home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / blabla / bed_defs&macros / rexx / e / compilee.bed next >
Text File  |  1998-01-24  |  657b  |  38 lines
  1. /*
  2. ** $VER: CompileE.bed 1.0 (21.01.97)
  3. **
  4. ** Invoke the AmigaE Compiler
  5. **
  6. ** by Karol Bryd/subblabla
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. 'SaveFile QUIET NOICON'
  12. 'GetFilePath PATH'
  13. path = RESULT
  14.  
  15. 'GetFilePath'
  16. name=RESULT
  17.  
  18. OPTIONS FAILAT 10000
  19. ADDRESS COMMAND 'e:bin/flushcache'
  20.  
  21. exec='e:bin/mac2efront ' || 't:tmp_e.e ' || '"' || name || '"'
  22. ADDRESS COMMAND exec
  23.  
  24. IF ~EXISTS('t:tmp_e.e') THEN
  25.     ADDRESS COMMAND 'copy ' || name || ' t:tmp_e.e QUIET'
  26. ELSE
  27.     SAY exec
  28.  
  29. ADDRESS COMMAND 'e:bin/ec ' || 't:tmp_e.e'
  30.  
  31. PARSE VAR name name1 '.e'
  32.  
  33. ADDRESS COMMAND 'copy t:tmp_e ' || name1 || ' QUIET'
  34.  
  35. ADDRESS COMMAND 'delete t:tmp_e QUIET'
  36. ADDRESS COMMAND 'delete t:tmp_e.e QUIET'
  37.  
  38.