comparison src/main/beos/exports/genexp.pl @ 337:9154ec9ca3d2

Explicitly specify the SDL API calling convention (C by default)
author Sam Lantinga <slouken@libsdl.org>
date Thu, 11 Apr 2002 14:35:16 +0000
parents 74212992fb08
children 05b97424225f
comparison
equal deleted inserted replaced
336:745873ea091f 337:9154ec9ca3d2
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.*\s\**([^\s\(]+)\(/ ) { 12 if ( /DECLSPEC.*SDLCALL ([^\s\(]+)/ ) {
13 print "_$1\n";
14 } elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) {
15 print "_$1\n"; 13 print "_$1\n";
16 } 14 }
17 } 15 }
18 close(FILE); 16 close(FILE);
19 } 17 }