1 files changed, 71 insertions, 0 deletions
diff --git a/auto/bin/make_header.pl b/auto/bin/make_header.pl
new file mode 100755
index 0000000..934ef77
--- /dev/null
+++ b/auto/bin/make_header.pl
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+##
+## Copyright (C) 2002-2008, Marcelo E. Magallon <mmagallo[]debian org>
+## Copyright (C) 2002-2008, Milan Ikits <milan ikits[]ieee org>
+##
+## This program is distributed under the terms and conditions of the GNU
+## General Public License Version 2 as published by the Free Software
+## Foundation or, at your option, any later version.
+
+use strict;
+use warnings;
+
+do 'bin/make.pl';
+
+# token
+sub make_define($$)
+{
+    return "#define $_[0] $_[1]"
+}
+
+# type declaration
+sub make_type($$)
+{
+    return "@_;"
+}
+
+# function pointer type declaration
+sub make_pfn_type($%)
+{
+    our $api;
+    return join(' ', "typedef", $_[1]->{rtype},
+        "($api * PFN" . (uc $_[0]) . "PROC)",
+        "(" . $_[1]->{parms} . ")") . ";";
+}
+
+# function name alias
+sub make_pfn_alias($%)
+{
+    our $type;
+    return join(" ", "#define", $_[0], $type . "EW_GET_FUN(" . prefixname($_[0]) . ")")
+}
+
+my @extlist = ();
+my %extensions = ();
+
+our $api = shift;
+our $type = shift;
+
+if (@ARGV)
+{
+    @extlist = @ARGV;
+
+	foreach my $ext (sort @extlist)
+	{
+		my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext);
+
+		make_separator($extname);
+		print "#ifndef $extname\n#define $extname 1\n";
+		output_tokens($tokens, \&make_define);
+		output_types($types, \&make_type);
+		output_exacts($exacts, \&make_exact);
+		output_decls($functions, \&make_pfn_type);
+		output_decls($functions, \&make_pfn_alias);
+
+		my $extvar = $extname;
+		$extvar =~ s/GL(X*)_/GL$1EW_/;
+		
+		print "\n#define $extvar " . $type . "EW_GET_VAR(" . prefix_varname($extvar) . ")\n";
+		print "\n#endif /* $extname */\n\n";
+	}
+}