comparison src/main/beos/exports/genexp.pl @ 345:05b97424225f

*** empty log message ***
author Sam Lantinga <slouken@libsdl.org>
date Sat, 13 Apr 2002 18:08:45 +0000
parents 9154ec9ca3d2
children 02759105b989
comparison
equal deleted inserted replaced
344:7a69392b8599 345:05b97424225f
7 warn "Couldn't open $file: $!\n"; 7 warn "Couldn't open $file: $!\n";
8 next; 8 next;
9 } 9 }
10 $file =~ s,.*/,,; 10 $file =~ s,.*/,,;
11 while (<FILE>) { 11 while (<FILE>) {
12 if ( /DECLSPEC.*SDLCALL ([^\s\(]+)/ ) { 12 if ( / DECLSPEC.*SDLCALL ([^\s\(]+)/ ) {
13 print "_$1\n"; 13 print "_$1\n";
14 } 14 }
15 } 15 }
16 close(FILE); 16 close(FILE);
17 } 17 }