#!/usr/bin/perl

#

# Program to take a set of header files and generate DLL export definitions

# Special exports to ignore for this platform

$exclude{"SDL_CreateThread_Core"} = 1;

while ( ($file = shift(@ARGV)) ) {

if ( ! defined(open(FILE, $file)) ) {

warn "Couldn't open $file: $!\n";

next;

}

$printed_header = 0;

$file =~ s,.*/,,;

while (<FILE>) {

if ( not $exclude{$1} ) {

print "\t$1\n";

}

}

}

close(FILE);

}

# Special exports to include for this platform