home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 5
/
FreshFish_July-August1994.bin
/
useful
/
dist
/
dev
/
e
/
amiga_e
/
bin
/
rexx
/
ecompile.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1993-10-05
|
812b
|
38 lines
/* Ecompile.rexx: run E compiler from ced.
thanks to Rick Younie for improvements. */
epath = 'e:bin/' /* homedir of EC */
OPTIONS RESULTS
ADDRESS COMMAND
IF ~EXISTS('ram:ec') THEN 'copy 'epath'ec ram:' /* for slow sys: devices */
ADDRESS 'rexx_ced'
'status 19' /* ask ced filename */
file = result
'status 18'
IF result ~= 0 THEN DO /* save if changed */
'save' file
SAY 'saving changes..'
END
ELSE SAY 'no changes..'
PARSE VAR file comparg '.e' /* strip the extension */
SAY 'invoking E compiler with file' comparg'.e'
ADDRESS
OPTIONS FAILAT 1000000
'ram:ec -we' comparg /* run compiler */
eline = rc
IF EXISTS(comparg) THEN comparg /* run exe */
ADDRESS
pull /* wait for a <cr> */
'cedtofront'
IF eline>0 THEN 'jump to line' eline '0' /* jump to spot of error */
exit 0