home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / uniview / arexx / compile.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-01-14  |  817 b   |  48 lines
  1. /*
  2. ** $PROJECT: UniView
  3. **
  4. ** $VER: compile.rexx 40.3 (14.01.98)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1996-1998 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: ruppert@amigaworld.com
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 14.01.98 : 040.003 : changed email address
  15. ** 01.12.96 : 040.002 : added make section
  16. ** 17.11.96 : 040.001 : initial
  17. **
  18. */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. 'GETFILEINFO'
  23. file = RESULT
  24.  
  25. 'GETCURRENTDIR'
  26. dir = RESULT
  27.  
  28. If Right(dir,1) ~= '/' Then
  29.    dir = dir || '/'
  30.  
  31. If Exists(dir || 'Makefile') Then Do
  32.    Say 'Making ' || dir
  33.  
  34.    olddir   = Pragma('d',dir)
  35.    oldstack = Pragma('s',40000)
  36.  
  37.    Address Command 'make'
  38.  
  39.    Pragma('d',olddir)
  40.    Pragma('s',oldstack)
  41. End
  42. Else Do
  43.    Say 'Compile : ' || file
  44.  
  45.    ADDRESS COMMAND 'sc:c/sc ' || file
  46. End
  47.  
  48.