src/main/beos/exports/genexp.pl
author Sam Lantinga <slouken@libsdl.org>
Thu, 11 Apr 2002 14:35:16 +0000
changeset 337 9154ec9ca3d2
parent 0 74212992fb08
child 345 05b97424225f
permissions -rwxr-xr-x
Explicitly specify the SDL API calling convention (C by default)
     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.*SDLCALL ([^\s\(]+)/ ) {
    13 			print "_$1\n";
    14 		}
    15 	}
    16 	close(FILE);
    17 }
    18 # Special exports not public in the header files