mirror of
https://github.com/nigels-com/glew.git
synced 2024-11-24 14:55:07 +00:00
[CoreSupport] Tab indentation for perl scripts
This commit is contained in:
parent
6bbb8d34df
commit
f85539c599
@ -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";
|
||||||
}
|
}
|
||||||
|
@ -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";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user