home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / Edge1721.DMS / Edge1721.adf / ExtraStuff / Edge_SasC.lha / rexx / hn_build_sc6.edge < prev    next >
Encoding:
Text File  |  1993-11-09  |  1.2 KB  |  55 lines
  1. /* Edge macro: hn_build
  2. **
  3. ** $VER: hn_build_sc6.edge 1.5 (17-Feb-93 13:46:47)
  4. **
  5. ** Usage:    hn_build
  6. **
  7. ** Synopsis: Build current compiler project
  8. **           SAS/C 6 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. /* start scmsg */
  38. if ~show(p,'SC_SCMSG') then do
  39.     address command 'run <>nil: scmsg rexxonly'
  40.     address command 'waitforport SC_SCMSG'
  41. end
  42.  
  43. /* FORCE sc ERRREXX compilerflag */
  44. address command 'scopts ERRREXX'
  45.  
  46. /* Clear scmsg from errors... */
  47. address SC_SCMSG clear
  48.  
  49. if subname="" then
  50.     address command 'smake >"echo:t:build_'projectname'"'
  51. else    address command 'smake >"echo:t:build_'projectname'" "'subname'"'
  52.  
  53. call hn_readerr('t:build_'projectname)
  54. exit(0)
  55.