[CoreSupport] Tab indentation for perl scripts

This commit is contained in:
Nigel Stewart 2015-02-27 20:37:12 +10:00
parent d33d3b5b0f
commit 41a40b01e9
2 changed files with 25 additions and 25 deletions

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";
} }

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";
} }
} }