view src/main/macosx/exports/gendef.pl @ 1037:c5dedfdb4e42

Date: Tue, 01 Feb 2005 17:53:07 -0800 From: Bill May Subject: [SDL] Diffs for dsp audio in case of failures. The rewrite recently done for 1.2.8 forgot to handle error cases by closing the audio. Here is a patch that does.
author Sam Lantinga <slouken@libsdl.org>
date Sat, 12 Feb 2005 19:39:08 +0000
parents 02759105b989
children 6c7b69218276
line wrap: on
line source

#!/usr/bin/perl
#
# Program to take a set of header files and generate DLL export definitions

# print objective-c exports
print "\t.objc_class_name_SDL_QuartzWindow\n";
print "\t.objc_class_name_SDL_QuartzWindowDelegate\n";

while ( ($file = shift(@ARGV)) ) {
	if ( ! defined(open(FILE, $file)) ) {
		warn "Couldn't open $file: $!\n";
		next;
	}
	$printed_header = 0;
	$file =~ s,.*/,,;
	while (<FILE>) {
		if ( / DECLSPEC.* SDLCALL ([^\s\(]+)/ ) {
			print "\t_$1\n";
		}
	}
	close(FILE);
}