home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / plm.zip / plm / plm.cmd < prev    next >
OS/2 REXX Batch file  |  2000-05-09  |  1KB  |  55 lines
  1. /* Rexx -- PLM.CMD                            */
  2. /* Command file for running the PL/M compiler */
  3. /* Usage: PLM <filename[.PLM]>                */
  4. /* Input: <filename> [.PLM]                   */
  5. /* Output: <filename>.HEX in the current directory */
  6. /*         <filename>.PRN  "  "    "        "      */
  7. /* Do not use filenames of the type "fort.n"       */
  8. /*    these are reserved for the quirky f2c IO     */
  9.  
  10. '@echo off'
  11. Call RxFuncAdd 'SysFileDelete', 'RexxUtil', 'SysFileDelete'
  12. Parse Arg Input
  13. Parse Var Input base '.' ext
  14. i = Lastpos('\',base)
  15. If i=0 
  16. Then b=base 
  17. Else b=Substr(base,i+1)
  18.  
  19. If ext='' Then ext='PLM' 
  20. Input  = base || '.' || ext
  21. Output = b    || '.' || 'HEX'
  22. List   = b    || '.' || 'PRN'
  23.  
  24. rc = SysFileDelete('fort.1')
  25. rc = SysFileDelete('fort.2')
  26. rc = SysFileDelete('fort.4')
  27. rc = SysFileDelete('fort.7')
  28. rc = SysFileDelete('fort.11')
  29. rc = SysFileDelete('fort.12')
  30. rc = SysFileDelete('fort.16')
  31. rc = SysFileDelete('fort.17')
  32.  
  33. /**** PASS1 ****/
  34. 'copy dummy fort.1'
  35. 'copy' Input 'fort.2' 
  36. 'PLM81'
  37.  
  38. /*** PASS2 ****/
  39. 'copy fort.16 fort.4'
  40. 'copy fort.17 fort.7'
  41. 'PLM82'
  42. 'copy fort.12' List
  43. 'copy fort.17' Output
  44. rc = SysFileDelete('fort.1')
  45. rc = SysFileDelete('fort.2')
  46. rc = SysFileDelete('fort.4')
  47. rc = SysFileDelete('fort.7')
  48. rc = SysFileDelete('fort.11')
  49. rc = SysFileDelete('fort.12')
  50. rc = SysFileDelete('fort.16')
  51. rc = SysFileDelete('fort.17')
  52.  
  53.  
  54. Exit
  55.