home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perlkt40.zip / Configure.cmd < prev    next >
OS/2 REXX Batch file  |  1997-11-16  |  499b  |  29 lines
  1. /* Rexx */
  2.  
  3. i=0
  4.  
  5. do while lines(HANDY.H)
  6.     i = i+1
  7.     text.i = linein(HANDY.H)
  8.     if substr( text, length(text), 1 ) = x2c('1a') then
  9.     text.i = delstr( text, length(text)-1, 1 );
  10. end
  11.  
  12. call lineout "HANDY.H"
  13.  
  14. "mkdir DOSBIN"
  15. "copy A2PJ.EXE DOSBIN\"
  16. "del A2PJ.EXE"
  17. "ren HANDY.H HANDY.H.bak"
  18. "ren PATCHLEV.H PATCHLEVEL.H"
  19. "ren MAKEFILE MAKEFILE.orig"
  20. "ren MAKEFILE.OS2 Makefile"
  21.  
  22. do j=1 to i
  23.    call lineout "HANDY.H",text.j
  24. end
  25.  
  26. call lineout "HANDY.H"
  27.  
  28. "gpatch<OS2.PAT"
  29.