File: def2exp.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 (16 lines) | stat: -rw-r--r-- 477 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
/* def2exp.rexx
 * Write all lines beginning with EXPORTS to the outfile.
 * This is used for AIX 3.x and AIX 4.1
 */
Parse Source os .
Parse Arg infile outfile .
Call Stream outfile, 'C', 'OPEN WRITE REPLACE'
Do While( Lines( infile ) > 0 )
   Parse Value Linein( infile ) With . 'EXPORTS' func
   If func \= '' Then 
      Do
         If os = 'WIN32' Then Call Lineout outfile, 'EXPORTS' Strip( func )
         Else Call Lineout outfile, Strip( func )
      End
End
Return 0