home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / bbs / ff810.lha / FF810 / Amiga_E / Bin / ecompile.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-24  |  567b  |  21 lines
  1. /* run E compiler from ced */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS COMMAND
  6. IF ~EXISTS('ram:ec') THEN 'copy run:ec ram:'    /* for slow sys: devices */
  7. ADDRESS 'rexx_ced'
  8. 'status 19'                    /* ask ced filename */
  9. file = result
  10. SAY 'invoking E compiler with file' file
  11. PARSE VAR file comparg '.e'            /* strip the extension */
  12. ADDRESS
  13. OPTIONS FAILAT 100000
  14. 'ram:ec -we' comparg                /* run compiler */
  15. eline = rc
  16. IF EXISTS(comparg) THEN comparg            /* run exe */
  17. ADDRESS
  18. a = READLN(STDOUT)                /* wait for a <cr> */
  19. IF eline>0 THEN 'jumpto' eline '0'        /* jump to spot of error */
  20. 'cedtofront'
  21.