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