1 files changed, 0 insertions, 154 deletions
diff --git a/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglglxext-c.pl b/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglglxext-c.pl
deleted file mode 100755
index 161ee507..00000000
--- a/plugins/gtkui/gtkglext-gtk2/gdk/glext/gen-gdkglglxext-c.pl
+++ /dev/null
@@ -1,154 +0,0 @@
-#!/usr/bin/perl -w
-#
-# gen-gdkglglxext-c.pl
-#
-# Script for generating gdk/x11/gdkglglxext.c from SGI's OpenGL extension
-# header.
-#
-# written by Naofumi Yasufuku <naofumi@users.sourceforge.net>
-#
-
-@input_headers = ("glxext.h", "glxext-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-gdkglglxext-c.pl".
- */
-
-#include "gdkglx.h"
-#include "gdkglprivate-x11.h"
-#include "gdkglglxext.h"
-
-EOF
-#---------------
-
-foreach $in (@input_headers) {
-    open(IN, $in) || die "cannot open $in";
-
-    while (<IN>) {
-	if (/#ifndef\s+GLX_[a-zA-Z0-9]+_[a-z0-9_]+/) {
-	    @line = split;
-	    $_ = <IN>;
-	    if (/#define\s+$line[1]/) {
-		while (<IN>) {
-		    if (/#ifdef\s+GLX_GLXEXT_PROTOTYPES/) {
-
-			$extension = $line[1];
-
-			# function prototypes
-			@functions = ();
-			while (<IN>) {
-			    last if (/#endif/);
-			    ($func) = /(glX\w+)/;
-			    push(@functions, $func);
-			}
-
-			# typedefs
-			@typedefs = ();
-			while (<IN>) {
-			    last if (/#endif/);
-			    chomp;
-			    push(@typedefs, $_);
-			}
-
-			generate_code();
-
-			last;
-
-		    } elsif (/#endif/) {
-			last;
-		    }
-		}
-	    }
-	}
-    }
-
-    close(IN);
-}
-
-# code generator
-sub generate_code {
-    print "/*\n";
-    print " * $extension\n";
-    print " */\n\n";
-
-    if ($extension eq "GLX_SGIX_video_source") {
-	print "#ifdef _VL_H\n\n";
-    } elsif ($extension eq "GLX_SGIX_dmbuffer") {
-	print "#ifdef _DM_BUFFER_H_\n\n";
-    }
-
-    print "static GdkGL_$extension _procs_$extension = {\n";
-    print "  (GdkGLProc_$functions[0]) -1";
-    for ($i = 1; $i <= $#functions; $i++) {
-	print ",\n  (GdkGLProc_$functions[$i]) -1";
-    }
-    print "\n};\n\n";
-
-    foreach $func (@functions) {
-	print "/* $func */\n";
-	print "GdkGLProc\n";
-	print "gdk_gl_get_$func (void)\n";
-	print "{\n";
-	print "  if (_procs_$extension.$func == (GdkGLProc_$func) -1)\n";
-	print "    _procs_$extension.$func =\n";
-	print "      (GdkGLProc_$func) gdk_gl_get_proc_address (\"$func\");\n";
-	print "\n";
-	print "  GDK_GL_NOTE (MISC,\n";
-	print "    g_message (\" - gdk_gl_get_$func () - \%s\",\n";
-	print "               (_procs_$extension.$func) ? \"supported\" : \"not supported\"));\n";
-	print "\n";
-	print "  return (GdkGLProc) (_procs_$extension.$func);\n";
-	print "}\n\n";
-    }
-
-    print "/* Get $extension functions */\n";
-    print "GdkGL_$extension *\n";
-    if ($extension =~ /^GLX_VERSION_.*/) {
-	print "gdk_gl_get_$extension (void)\n";
-    } else {
-	print "gdk_gl_get_$extension (GdkGLConfig *glconfig)\n";
-    }
-    print "{\n";
-    print "  static gint supported = -1;\n";
-    print "\n";
-    print "  if (supported == -1)\n";
-    print "    {\n";
-    if ($extension =~ /^GLX_VERSION_.*/) {
-	print "      supported =  (gdk_gl_get_$functions[0] () != NULL);\n";
-	for ($i = 1; $i <= $#functions; $i++) {
-	    print "      supported &= (gdk_gl_get_$functions[$i] () != NULL);\n";
-	}
-    } else {
-	print "      supported = gdk_x11_gl_query_glx_extension (glconfig, \"$extension\");\n";
-	print "\n";
-	print "      if (supported)\n";
-	print "        {\n";
-	foreach $func (@functions) {
-	    print "          supported &= (gdk_gl_get_$func () != NULL);\n";
-	}
-	print "        }\n";
-    }
-    print "    }\n";
-    print "\n";
-    print "  GDK_GL_NOTE (MISC,\n";
-    print "    g_message (\" - gdk_gl_get_$extension () - \%s\",\n";
-    print "               (supported) ? \"supported\" : \"not supported\"));\n";
-    print "\n";
-    print "  if (!supported)\n";
-    print "    return NULL;\n";
-    print "\n";
-    print "  return &_procs_$extension;\n";
-    print "}\n\n";
-
-    if ($extension eq "GLX_SGIX_video_source") {
-	print "#endif /* _VL_H */\n\n";
-    } elsif ($extension eq "GLX_SGIX_dmbuffer") {
-	print "#endif /* _DM_BUFFER_H_ */\n\n";
-    }
-}