home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / ExtraStuff / Edge_SasC.lha / rexx / hn_runcompiled.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  857 b   |  40 lines
  1. /* Edge macro: hn_rumcompiled
  2. **
  3. ** $VER: hn_runcompiled.edge 1.3 (16-Feb-93 01:14:04)
  4. **
  5. ** Usage:    hn_runcompiled [RUN|DEBUG]
  6. **
  7. ** Synopsis: Run compiled program
  8. **           If you don't use SAS/C CPR then change DEBUGGER= to what ever
  9. **           debugger you prefer.
  10. **
  11. ** Author:   Henrik Nordström
  12. **           Ängsvägen 1
  13. **           S 756 45 Uppsala
  14. */
  15.  
  16. DEBUGGER='CPR'
  17.  
  18. parse arg mode
  19.  
  20. options results
  21. 'getenvvar _fe_user8'
  22. parse var result compilerflags ',' linkoptions ',' outdir ',' arguments
  23.  
  24. 'getenvvar _fe_path'
  25. pragma('d',result)
  26.  
  27. 'getenvvar _fe_name'
  28. parse var result filename '.' type
  29.  
  30. select 
  31. when mode='' | mode='RUN' then
  32.   address COMMAND '"'outdir||filename'" 'arguments
  33. when mode='DEBUG' then
  34.   address COMMAND DEBUGGER '"'outdir||filename'" 'arguments
  35. otherwise do
  36.   say 'USAGE:hn_runcompiled [RUN|DEBUG]'
  37.   exit(10)
  38.   end
  39. end
  40.