regina/vcdef2lccdef.rexx

   1 Parse Arg infile outfile
   2 Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
   3 first = 1
   4 Do While Lines( infile ) > 0
   5    line = Linein( infile )
   6    Select
   7       When Word( line, 1 ) = 'LIBRARY' Then Call Lineout outfile, 'LIBRARY' Word( line, 2 )
   8       When Word( line, 1 ) = 'EXPORTS' Then
   9          Do
  10             If first Then
  11                Do
  12                   Call Lineout outfile, 'EXPORTS'
  13                   Call Lineout outfile, Word( line, 2 )
  14                   first = 0
  15                End
  16             Else Call Lineout outfile, Word( line, 2 )
  17          End
  18       Otherwise Nop
  19    End
  20 End
  21 Call Lineout outfile, 'SECTION'
  22 Call Lineout outfile, 'DATA SHARED'
  23 Call Stream outfile, 'C', 'CLOSE'