home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / ObSup_Scripts / AmokEd / OberonMake.aed < prev    next >
Encoding:
Text File  |  1992-08-01  |  668 b   |  34 lines
  1. /* OberonMake  - Rexx-Apll für OMake */
  2.  
  3. if ~show('L','rexxsupport.library') then
  4.    call addlib('rexxsupport.library',0,-30)
  5.  
  6. 'rx oberonsave'
  7.  
  8. opts = ''
  9. open('file','env:OProject','R')
  10. project = readln('file')
  11. close('file')
  12.  
  13. IF open('file','env:.OCopt','R') THEN DO
  14.   copts = 'c'||readln('file')
  15.   close('file')
  16. END;
  17. IF open('file','env:.OLopt','R') THEN DO
  18.   lopts = 'l'||readln('file')
  19.   close('file')
  20. END;
  21.  
  22. call close 'STDERR'
  23. call open 'STDERR','NIL:','W'
  24. call close 'STDIN'
  25. call close 'STDOUT'
  26. call open 'STDOUT','CON:25/15/640/256/RexxCon','RW'
  27. call pragma '*','STDOUT'
  28.  
  29. address command 'omake >* <*' copts lopts project 'DONTLINK'
  30.  
  31. delay(100)
  32. close('STDOUT')
  33.  
  34.