From 741c93e52c4c1c75f5868d884d14de37746e980c Mon Sep 17 00:00:00 2001 From: Nigel Stewart Date: Fri, 27 Feb 2015 20:37:12 +1000 Subject: [PATCH] [CoreSupport] Tab indentation for perl scripts --- auto/bin/make_def_var.pl | 16 ++++++++-------- auto/bin/make_enable_index.pl | 32 ++++++++++++++++---------------- auto/bin/make_index.pl | 18 +++++++++--------- 3 files changed, 33 insertions(+), 33 deletions(-) diff --git a/auto/bin/make_def_var.pl b/auto/bin/make_def_var.pl index ae007a6..2b2a1d9 100755 --- a/auto/bin/make_def_var.pl +++ b/auto/bin/make_def_var.pl @@ -19,13 +19,13 @@ our $type = shift; if (@ARGV) { - @extlist = @ARGV; + @extlist = @ARGV; - foreach my $ext (sort @extlist) - { - my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext); - my $extvar = $extname; - $extvar =~ s/GL(X*)_/GL$1EW_/; - print "GLboolean " . prefix_varname($extvar) . " = GL_FALSE;\n"; - } + foreach my $ext (sort @extlist) + { + my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = parse_ext($ext); + my $extvar = $extname; + $extvar =~ s/GL(X*)_/GL$1EW_/; + print "GLboolean " . prefix_varname($extvar) . " = GL_FALSE;\n"; + } } diff --git a/auto/bin/make_enable_index.pl b/auto/bin/make_enable_index.pl index 48c521d..9c9d375 100755 --- a/auto/bin/make_enable_index.pl +++ b/auto/bin/make_enable_index.pl @@ -20,26 +20,26 @@ my @extlist = (); if (@ARGV) { - @extlist = @ARGV; + @extlist = @ARGV; - print "/* Detected in the extension string or strings */\n"; - print "static GLboolean _glewExtensionString[" . scalar @extlist . "];\n"; + print "/* Detected in the extension string or strings */\n"; + print "static GLboolean _glewExtensionString[" . scalar @extlist . "];\n"; - print "/* Detected via extension string or experimental mode */\n"; - print "static GLboolean* _glewExtensionEnabled[] = {\n";; + print "/* Detected via extension string or experimental mode */\n"; + print "static GLboolean* _glewExtensionEnabled[] = {\n";; - foreach my $ext (sort @extlist) - { - my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = - parse_ext($ext); + foreach my $ext (sort @extlist) + { + my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = + parse_ext($ext); - my $extvar = $extname; - $extvar =~ s/GL(X*)_/GL$1EW_/; + my $extvar = $extname; + $extvar =~ s/GL(X*)_/GL$1EW_/; - print "#ifdef $extname\n"; - print " &__$extvar,\n"; - print "#endif\n"; - } + print "#ifdef $extname\n"; + print " &__$extvar,\n"; + print "#endif\n"; + } - print " NULL\n};\n"; + print " NULL\n};\n"; } diff --git a/auto/bin/make_index.pl b/auto/bin/make_index.pl index 45eca07..f252cd4 100755 --- a/auto/bin/make_index.pl +++ b/auto/bin/make_index.pl @@ -24,15 +24,15 @@ my @extlist = (); if (@ARGV) { - @extlist = @ARGV; + @extlist = @ARGV; - foreach my $ext (sort @extlist) - { - my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = - parse_ext($ext); + foreach my $ext (sort @extlist) + { + my ($extname, $exturl, $extstring, $types, $tokens, $functions, $exacts) = + parse_ext($ext); - print "#ifdef $extname\n"; - print " \"$extname\",\n"; - print "#endif\n"; - } + print "#ifdef $extname\n"; + print " \"$extname\",\n"; + print "#endif\n"; + } }