home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / ObSup_Scripts / AmokEd / OberonLink.aed < prev    next >
Encoding:
Text File  |  1992-08-01  |  576 b   |  31 lines
  1. /* OberonLink  - Linkt Oberon-Programme */
  2.  
  3. parse arg filename opts .
  4.  
  5. call close 'STDERR'
  6. call open 'STDERR','NIL:','W'
  7. call close 'STDIN'
  8. call close 'STDOUT'
  9. call open 'STDOUT','CON:0/0/640/256/RexxCon','RW'
  10. call pragma '*','STDOUT'
  11.  
  12. l = lastpos('.mod',filename)
  13. if l ~= (length(filename)-3) then exit
  14. linkname = left(filename,l)
  15.  
  16. open('file','env:OProject','R')
  17. project = readln('file')
  18. close('file')
  19.  
  20. IF open('file','env:'||project||'.OLopt','R') THEN DO
  21.   opts = readln('file')
  22.   close('file')
  23. END;
  24.  
  25. address command 'OLink' opts wthname
  26.  
  27. delay(100)
  28. close('STDOUT')
  29. exit
  30.  
  31.