1 files changed, 53 insertions, 0 deletions
diff --git a/auto/bin/make_str.pl b/auto/bin/make_str.pl
new file mode 100755
index 0000000..ac4a366
--- /dev/null
+++ b/auto/bin/make_str.pl
@@ -0,0 +1,53 @@
+#!/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';
+
+my @extlist = ();
+my %extensions = ();
+
+if (@ARGV)
+{
+    @extlist = @ARGV;
+
+	my $curexttype = "";
+	foreach my $ext (sort @extlist)
+	{
+		my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext);
+		my $exttype = $extname;
+		$exttype =~ s/(W*?)GL(X*?)_(.*?_)(.*)/$3/;
+		my $extrem = $extname;
+		$extrem =~ s/(W*?)GL(X*?)_(.*?_)(.*)/$4/;
+		my $extvar = $extname;
+		$extvar =~ s/(W*)GL(X*)_/$1GL$2EW_/;
+		if(!($exttype =~ $curexttype))
+		{
+			if(length($curexttype) > 0)
+			{
+				print "      }\n";
+			}
+			print "      if (_glewStrSame2(&pos, &len, (const GLubyte*)\"$exttype\", " . length($exttype) . "))\n";
+			print "      {\n";
+			$curexttype = $exttype;
+		}
+		print "#ifdef $extname\n";
+		print "        if (_glewStrSame3(&pos, &len, (const GLubyte*)\"$extrem\", ". length($extrem) . "))\n";
+		#print "        return $extvar;\n";
+		print "        {\n";
+		print "          ret = $extvar;\n";
+		print "          continue;\n";
+		print "        }\n";
+		print "#endif\n";
+	}
+
+	print "      }\n";
+}