File: preinst.rexx

package info (click to toggle)
regina 2.2-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 3,332 kB
  • ctags: 4,775
  • sloc: ansic: 38,518; sh: 2,552; lex: 1,878; yacc: 1,028; makefile: 771
file content (10 lines) | stat: -rw-r--r-- 245 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
/**/
Parse Arg rexx_exe infile outfile
line = Linein(infile)
Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
Call Lineout outfile, "#!" || rexx_exe
Do While(Lines(infile) > 0)
   line = Linein(infile)
   Call Lineout(outfile, line )
End
Return 0