home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / ExtraStuff / Edge_SasC.lha / rexx / hn_build_sc5.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  925 b   |  43 lines
  1. /* Edge macro: hn_build
  2. **
  3. ** $VER: hn_build_sc5.edge 1.5 (16-Feb-93 00:32:20)
  4. **
  5. ** Usage:    hn_build
  6. **
  7. ** Synopsis: Build active compiler project
  8. **           SAS/C 5 Version
  9. **
  10. ** Author:   Henrik Nordström
  11. **           Ängsvägen 1
  12. **           S 756 45 Uppsala
  13. */
  14.  
  15. options results
  16.  
  17. 'getenvvar _fe_name'
  18. parse var result filename '.' type
  19.  
  20. 'getenvvar _fe_user9'
  21. parse var result projectdir ',' projectname ',' arguments
  22. subname=projectname
  23.  
  24. if projectname=="" then do
  25.     /* Get project name from path */
  26.     projectname=strip(projectdir,'T','/')
  27.     st=lastpos('/',projectname)
  28.     if st==0 then st=lastpos(':',projectname)
  29.     projectname=substr(projectname,st+1)
  30. end
  31.  
  32. /* set directory */
  33. call pragma('d',projectdir)
  34.  
  35. 'savechanges'
  36.  
  37. if subname="" then
  38.     address command 'lc:lmk >"echo:t:build_'projectname'"'
  39. else    address command 'lc:lmk >"echo:t:build_'projectname'" "'subname'"'
  40.  
  41. call hn_readerr('t:build_'projectname)
  42. exit(RESULT)
  43.