regina/preinst.rexx

   1 /**/
   2 Parse Arg rexx_exe infile outfile
   3 Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
   4 Call Lineout outfile, "#!" || rexx_exe
   5 Do While( Lines( infile ) > 0)
   6    line = Linein( infile )
   7    Call Lineout outfile, line
   8 End
   9 Call Stream outfile, 'C', 'CLOSE'
  10 Return 0