regina/def2exp.rexx

   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 Source os .
   6 Parse Arg infile outfile .
   7 Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
   8 Do While( Lines( infile ) > 0 )
   9    Parse Value Linein( infile ) With . 'EXPORTS' func
  10    If func \= '' Then
  11       Do
  12          If os = 'WIN32' Then Call Lineout outfile, 'EXPORTS' Strip( func )
  13          Else Call Lineout outfile, Strip( func )
  14       End
  15 End
  16 Return 0