1 files changed, 149 insertions, 0 deletions
diff --git a/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglwglext-h.pl b/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglwglext-h.pl
new file mode 100755
index 00000000..f9c3971e
--- /dev/null
+++ b/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglwglext-h.pl
@@ -0,0 +1,149 @@
+#!/usr/bin/perl -w
+#
+# gen-gdkglwglext-h.pl
+#
+# Script for generating gdk/win32/gdkglwglext.h from SGI's OpenGL extension
+# header.
+#
+# written by Naofumi Yasufuku <naofumi@users.sourceforge.net>
+#
+
+@input_headers = ("wglext.h", "wglext-extra.h");
+
+#---------------
+open(IN, "common-header.h") || die "cannot open common-header.h";
+print while (<IN>);
+close(IN);
+
+print <<EOF;
+/*
+ * This is a generated file.  Please modify "gen-gdkglwglext-h.pl".
+ */
+
+#ifndef __GDK_GL_WGLEXT_H__
+#define __GDK_GL_WGLEXT_H__
+
+#include <glib.h>
+
+#ifdef G_OS_WIN32
+#define WIN32_LEAN_AND_MEAN 1
+#include <windows.h>
+#endif
+
+#include <GL/gl.h>
+
+#include <gdk/gdkgldefs.h>
+#include <gdk/gdkglquery.h>
+#include <gdk/gdkglconfig.h>
+
+#undef __wglext_h_
+#undef WGL_WGLEXT_VERSION
+#include <gdk/glext/wglext.h>
+#include <gdk/glext/wglext-extra.h>
+
+G_BEGIN_DECLS
+
+EOF
+#---------------
+
+foreach $in (@input_headers) {
+    open(IN, $in) || die "cannot open $in";
+
+    while (<IN>) {
+	if (/#ifndef\s+WGL_[a-zA-Z0-9]+_[a-z0-9_]+/) {
+	    @line = split;
+	    $_ = <IN>;
+	    if (/#define\s+$line[1]/) {
+		while (<IN>) {
+		    if (/#ifdef\s+WGL_WGLEXT_PROTOTYPES/) {
+
+			$extension = $line[1];
+
+			# function prototypes
+			@functions = ();
+			while (<IN>) {
+			    last if (/#endif/);
+			    ($func) = /(wgl\w+)/;
+			    push(@functions, $func);
+			}
+
+			# typedefs
+			@typedefs = ();
+			while (<IN>) {
+			    last if (/#endif/);
+			    chomp;
+			    push(@typedefs, $_);
+			}
+
+			generate_code();
+
+			last;
+
+		    } elsif (/#endif/) {
+			last;
+		    }
+		}
+	    }
+	}
+    }
+
+    close(IN);
+}
+
+#---------------
+print <<EOF;
+G_END_DECLS
+
+#endif /* __GDK_GL_WGLEXT_H__ */
+EOF
+#---------------
+
+# code generator
+sub generate_code {
+    print "/*\n";
+    print " * $extension\n";
+    print " */\n\n";
+
+    $i = 0;
+    foreach $func (@functions) {
+	print "/* $func */\n";
+
+	$type = $typedefs[$i++];
+	$type =~ s/PFN\w+/GdkGLProc_$func/;
+	print "$type\n";
+
+	print "GdkGLProc    gdk_gl_get_$func (void);\n";
+
+	$_ = $type;
+	($args) = /\(.*\)\s+\((.*)\)/;
+	@args_list = split(/,\s+/, $args);
+	foreach (@args_list) {
+	    ($_) = /.*\s+\**(\w+)$/;
+	    $_ = "" if (!$_);
+	}
+	$args = join(", ", @args_list);
+
+	if ($args eq "") {
+	    print "#define      gdk_gl_$func(proc) \\\n";
+	    print "  ( ((GdkGLProc_$func) (proc)) () )\n";
+	} else {
+	    print "#define      gdk_gl_$func(proc, $args) \\\n";
+	    print "  ( ((GdkGLProc_$func) (proc)) ($args) )\n";
+	}
+
+	print "\n";
+    }
+
+    print "/* proc struct */\n\n";
+
+    print "typedef struct _GdkGL_$extension GdkGL_$extension;\n\n";
+
+    print "struct _GdkGL_$extension\n";
+    print "{\n";
+    foreach $func (@functions) {
+	print "  GdkGLProc_$func $func;\n";
+    }
+    print "};\n\n";
+
+    print "GdkGL_$extension *gdk_gl_get_$extension (GdkGLConfig *glconfig);\n\n";
+}