diff options
Diffstat (limited to 'Libraries/glew-2.0.0/auto/bin/make_list.pl')
-rw-r--r-- | Libraries/glew-2.0.0/auto/bin/make_list.pl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/Libraries/glew-2.0.0/auto/bin/make_list.pl b/Libraries/glew-2.0.0/auto/bin/make_list.pl deleted file mode 100644 index ef1d81eb..00000000 --- a/Libraries/glew-2.0.0/auto/bin/make_list.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/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'; - -#--------------------------------------------------------------------------------------- - -# function pointer definition -sub make_init_call($%) -{ - my $name = prefixname($_[0]); - return " r = r || (" . $_[0] . " = (PFN" . (uc $_[0]) . "PROC)glewGetProcAddress(\"" . $name . "\")) == NULL;"; -} - -#--------------------------------------------------------------------------------------- - -my @extlist = (); -my %extensions = (); - -if (@ARGV) -{ - @extlist = @ARGV; - - foreach my $ext (sort @extlist) - { - my ($extname, $exturl, $extstring, $reuse, $types, $tokens, $functions, $exacts) = parse_ext($ext); - - my $extvar = $extname; - $extvar =~ s/GL(X*)_/GL$1EW_/; - - my $extpre = $extname; - $extpre =~ s/^(W?E?)GL(X?).*$/\l$1gl\l$2ew/; - - #my $pextvar = prefix_varname($extvar); - - if (length($extstring) && $extstring !~ /^GL_/ || keys %$functions) - { - print "#ifdef $extname\n"; - } - - if (length($extstring) && $extstring !~ /^GL_/) - { - print " " . $extvar . " = _glewSearchExtension(\"$extstring\", extStart, extEnd);\n"; - } - - if (keys %$functions) - { - if ($extname =~ /WGL_.*/) - { - print " if (glewExperimental || " . $extvar . "|| crippled) " . $extvar . "= !_glewInit_$extname();\n"; - } - else - { - print " if (glewExperimental || " . $extvar . ") " . $extvar . " = !_glewInit_$extname();\n"; - } - } - - if (length($extstring) && $extstring !~ /^GL_/ || keys %$functions) - { - print "#endif /* $extname */\n"; - } - } - -} |