view src/main/beos/exports/genexp.pl @ 930:02759105b989

Date: Fri, 20 Aug 2004 08:31:20 +0200 From: "Markus F.X.J. Oberhumer" Subject: [SDL-CVS][patch] add missing SDLCALL to headers the small patch attached below (against current CVS) adds some missing SDLCALL decorations to callback types and arguments. Unfortunately one of these changes breaks your gen{def,exp}.pl scripts which should be changed to use non-greedy regular expression matching...
author Sam Lantinga <slouken@libsdl.org>
date Fri, 20 Aug 2004 18:57:01 +0000
parents 05b97424225f
children 6c7b69218276
line wrap: on
line source

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

while ( ($file = shift(@ARGV)) ) {
	if ( ! defined(open(FILE, $file)) ) {
		warn "Couldn't open $file: $!\n";
		next;
	}
	$file =~ s,.*/,,;
	while (<FILE>) {
		if ( / DECLSPEC.* SDLCALL ([^\s\(]+)/ ) {
			print "_$1\n";
		}
	}
	close(FILE);
}
# Special exports not public in the header files