Mercurial > sdl-ios-xcode
annotate src/main/beos/exports/genexp.pl @ 22:48c34d68918e
Fixed to work on Solaris x86
| author | Sam Lantinga <slouken@lokigames.com> |
|---|---|
| date | Thu, 10 May 2001 20:19:50 +0000 |
| parents | 74212992fb08 |
| children | 9154ec9ca3d2 |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/perl |
| 2 # | |
| 3 # Program to take a set of header files and generate MWCC export definitions | |
| 4 | |
| 5 while ( ($file = shift(@ARGV)) ) { | |
| 6 if ( ! defined(open(FILE, $file)) ) { | |
| 7 warn "Couldn't open $file: $!\n"; | |
| 8 next; | |
| 9 } | |
| 10 $file =~ s,.*/,,; | |
| 11 while (<FILE>) { | |
| 12 if ( /DECLSPEC.*\s\**([^\s\(]+)\(/ ) { | |
| 13 print "_$1\n"; | |
| 14 } elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) { | |
| 15 print "_$1\n"; | |
| 16 } | |
| 17 } | |
| 18 close(FILE); | |
| 19 } | |
| 20 # Special exports not public in the header files |