home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxface.zip / configure.cmd < prev    next >
OS/2 REXX Batch file  |  1998-02-01  |  392b  |  19 lines
  1. /* rexX-Face configure  by fuji */
  2.  
  3.   '@echo off'
  4.   If RxFuncQuery('SysLoadFuncs') Then Do
  5.     Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6.     Call SysLoadFuncs
  7.   End
  8.  
  9.   sedScr = 'sedscr'
  10.  
  11.   Call SysFileTree '*.in', 'f.', 'FO'
  12.   Do i=1 To f.0
  13.     target = Reverse(Delstr(Reverse(f.i),1,3))
  14.     'sed -f' sedScr f.i '>' target
  15.   End
  16. Exit
  17.  
  18. /* end of procedure */
  19.