home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxtk12.zip / def2exp.rexx < prev    next >
OS/2 REXX Batch file  |  2000-04-23  |  349b  |  12 lines
  1. /* def2exp.rexx
  2.  * Write all lines beginning with EXPORTS to the outfile.
  3.  * This is used for AIX 3.x and AIX 4.1
  4.  */
  5. Parse Arg infile outfile .
  6. Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
  7. Do While( Lines( infile ) > 0 )
  8.    Parse Value Linein( infile ) With . 'EXPORTS' func
  9.    If func \= '' Then Call Lineout outfile, Strip( func )
  10. End
  11. Return 0
  12.