Zengtudor/glew
1
0
Fork 0
mirror of https://github.com/nigels-com/glew.git synced 2024-11-28 08:41:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

[CoreSupport] Tab indentation for perl scripts

Browse Source
This commit is contained in:
Nigel Stewart 2015-02-27 20:37:12 +10:00
parent 38fcc6db5b
commit 741c93e52c
3 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
auto/bin/make_def_var.pl
View File

@ -19,13 +19,13 @@ our $type = shift;
if (@ARGV) if (@ARGV)
{ {
@extlist = @ARGV; @extlist = @ARGV;
foreach my $ext (sort @extlist) foreach my $ext (sort @extlist)
{ {
my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext); my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext);
my $extvar = $extname; my $extvar = $extname;
$extvar =~ s/GL(X*)_/GL$1EW_/; $extvar =~ s/GL(X*)_/GL$1EW_/;
print "GLboolean " . prefix_varname($extvar) . " = GL_FALSE;\n"; print "GLboolean " . prefix_varname($extvar) . " = GL_FALSE;\n";
} }
} }

32
auto/bin/make_enable_index.pl
View File

@ -20,26 +20,26 @@ my @extlist = ();
if (@ARGV) if (@ARGV)
{ {
@extlist = @ARGV; @extlist = @ARGV;
print "/* Detected in the extension string or strings */\n"; print "/* Detected in the extension string or strings */\n";
print "static GLboolean _glewExtensionString[" . scalar @extlist . "];\n"; print "static GLboolean _glewExtensionString[" . scalar @extlist . "];\n";
print "/* Detected via extension string or experimental mode */\n"; print "/* Detected via extension string or experimental mode */\n";
print "static GLboolean* _glewExtensionEnabled[] = {\n";; print "static GLboolean* _glewExtensionEnabled[] = {\n";;
foreach my $ext (sort @extlist) foreach my $ext (sort @extlist)
{ {
my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) =
parse_ext($ext); parse_ext($ext);
my $extvar = $extname; my $extvar = $extname;
$extvar =~ s/GL(X*)_/GL$1EW_/; $extvar =~ s/GL(X*)_/GL$1EW_/;
print "#ifdef $extname\n"; print "#ifdef $extname\n";
print " &__$extvar,\n"; print " &__$extvar,\n";
print "#endif\n"; print "#endif\n";
} }
print " NULL\n};\n"; print " NULL\n};\n";
} }

18
auto/bin/make_index.pl
View File

@ -24,15 +24,15 @@ my @extlist = ();
if (@ARGV) if (@ARGV)
{ {
@extlist = @ARGV; @extlist = @ARGV;
foreach my $ext (sort @extlist) foreach my $ext (sort @extlist)
{ {
my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) =
parse_ext($ext); parse_ext($ext);
print "#ifdef $extname\n"; print "#ifdef $extname\n";
print " \"$extname\",\n"; print " \"$extname\",\n";
print "#endif\n"; print "#endif\n";
} }
} }