src/main/macosx/exports/gendef.pl
author Sam Lantinga <slouken@lokigames.com>
Thu, 07 Jun 2001 14:28:11 +0000
changeset 47 45b1c4303f87
child 337 9154ec9ca3d2
permissions -rw-r--r--
Added initial support for Quartz video (thanks Darrell!)
     1 #!/usr/bin/perl
     2 #
     3 # Program to take a set of header files and generate DLL 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 	$printed_header = 0;
    11 	$file =~ s,.*/,,;
    12 	while (<FILE>) {
    13 		if ( /DECLSPEC.*\s\**([^\s\(]+)\(/ ) {
    14 			print "\t_$1\n";
    15 		} elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) {
    16 			print "\t_$1\n";
    17 		}
    18 	}
    19 	close(FILE);
    20 }