home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / ObSup_Scripts / AmokEd / OberonC.aed < prev    next >
Encoding:
Text File  |  1992-08-01  |  755 b   |  42 lines
  1. /* OberonC - Compiliert Oberon Programme */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7.  
  8. 'top first'
  9. 'find MODULE' ; 'wright'
  10. 'scanf %[~;]'
  11. 'chfilename $scanf.mod'
  12.  
  13. 'getval $filename'
  14. filename = result
  15.  
  16. opts = ''
  17.  
  18. IF open('file','env:.OCopt','R') THEN DO
  19.   copts = readln('file')
  20.   close('file')
  21. END;
  22.  
  23. 'if m (top first find :Date. right wright remeol ('||date() time()||'))'
  24. 'if m saveold'
  25.  
  26. call close 'STDERR'
  27. call open 'STDERR','NIL:','W'
  28. call close 'STDIN'
  29. call close 'STDOUT'
  30. call open 'STDOUT','CON:25/15/640/256/RexxCon','RW'
  31. call pragma '*','STDOUT'
  32.  
  33. address command 'oberon >* <*' copts filename
  34.  
  35. if rc ~= 0 then do
  36.   close('STDOUT')
  37.   'rx1 OberonErr first'
  38. end; else
  39.   close('STDOUT')
  40.  
  41.  
  42.