From 6073e8a8d4233e867b93dcd2786b2cf1494aafbd Mon Sep 17 00:00:00 2001 From: baldurk Date: Wed, 25 Oct 2017 12:03:08 +0100 Subject: [PATCH] indent hookset.pl to clang-format rules. No tabs, 2 space indent --- renderdoc/driver/gl/hookset.pl | 280 ++++++++++++++++----------------- 1 file changed, 140 insertions(+), 140 deletions(-) diff --git a/renderdoc/driver/gl/hookset.pl b/renderdoc/driver/gl/hookset.pl index 3d69aa0f8..da1165f9b 100644 --- a/renderdoc/driver/gl/hookset.pl +++ b/renderdoc/driver/gl/hookset.pl @@ -6,26 +6,26 @@ use POSIX; binmode(STDOUT, ":crlf") if $^O eq 'msys'; sub trim { - (my $s = $_[0]) =~ s/^\s+|\s+$//g; - return $s; + (my $s = $_[0]) =~ s/^\s+|\s+$//g; + return $s; } sub uniq { - my %seen; - grep !$seen{$_}++, @_; + my %seen; + grep !$seen{$_}++, @_; } sub uses_typedef { - return 1 if $_[0]{'typedef'} eq $_[1]; - return 1 if ("PFN" . uc($_[0]{'name'}) . "PROC") eq $_[1]; + return 1 if $_[0]{'typedef'} eq $_[1]; + return 1 if ("PFN" . uc($_[0]{'name'}) . "PROC") eq $_[1]; - foreach my $a (@{$_[0]{'aliases'}}) - { - return 1 if ("PFN" . uc($a) . "PROC") eq $_[1]; - } + foreach my $a (@{$_[0]{'aliases'}}) + { + return 1 if ("PFN" . uc($a) . "PROC") eq $_[1]; + } - return 0; + return 0; } my $printdefs = $ARGV[$1] eq "defs"; @@ -43,51 +43,51 @@ my @used = (); while() { - my $line = $_; + my $line = $_; - if($line =~ /\/\/ --/) - { - $current = \@unsupported; - } - elsif($line =~ /\/\/ \+\+ ([a-z]*)/) - { - $current = \@dllexport if $1 eq "dllexport"; - $current = \@glext if $1 eq "glext"; - } - elsif($line =~ /^\s*\/\/.*/) - { - # skip comments - } - elsif($line =~ /^\s*$/) - { - # skip blank lines - } - elsif($current != \@unsupported) - { - if($line =~ /(PFN.*PROC) (.*);(\s*\/\/ aliases )?([a-zA-Z0-9_ ,]*)?/) - { - my $typedef = $1; - my $name = $2; - my $aliases = $4; + if($line =~ /\/\/ --/) + { + $current = \@unsupported; + } + elsif($line =~ /\/\/ \+\+ ([a-z]*)/) + { + $current = \@dllexport if $1 eq "dllexport"; + $current = \@glext if $1 eq "glext"; + } + elsif($line =~ /^\s*\/\/.*/) + { + # skip comments + } + elsif($line =~ /^\s*$/) + { + # skip blank lines + } + elsif($current != \@unsupported) + { + if($line =~ /(PFN.*PROC) (.*);(\s*\/\/ aliases )?([a-zA-Z0-9_ ,]*)?/) + { + my $typedef = $1; + my $name = $2; + my $aliases = $4; - my @alias_split = split(/, */, $aliases); + my @alias_split = split(/, */, $aliases); - my %hook = (name => $name, typedef => $typedef, aliases => \@alias_split, processed => 0); + my %hook = (name => $name, typedef => $typedef, aliases => \@alias_split, processed => 0); - push @{$current}, { %hook }; + push @{$current}, { %hook }; - push @used, $typedef; - push @used, "PFN" . uc($name) . "PROC"; - foreach my $a (@alias_split) - { - push @used, "PFN" . uc($a) . "PROC"; - } - } - else - { - print "MALFORMED LINE IN gl_hookset.h: '$line'\n"; - } - } + push @used, $typedef; + push @used, "PFN" . uc($name) . "PROC"; + foreach my $a (@alias_split) + { + push @used, "PFN" . uc($a) . "PROC"; + } + } + else + { + print "MALFORMED LINE IN gl_hookset.h: '$line'\n"; + } + } } @used = uniq(@used); @@ -99,92 +99,92 @@ my @processed = (); my $typedefs = `grep -Eh PFN[0-9A-Z_-]+PROC official/glcorearb.h official/glext.h official/gl32.h official/glesext.h official/wglext.h official/legacygl.h`; foreach my $typedef (split(/\n/, $typedefs)) { - if($typedef =~ /^typedef (.*)\([A-Z_ *]* (.*)\) \((.*)\);/) - { - my $returnType = trim($1); - my $def = $2; - my $args = $3; - $args = "" if $args eq "void"; + if($typedef =~ /^typedef (.*)\([A-Z_ *]* (.*)\) \((.*)\);/) + { + my $returnType = trim($1); + my $def = $2; + my $args = $3; + $args = "" if $args eq "void"; - # glPathGlyphIndexRangeNV has an array parameter - GLuint baseAndCount[2] - # just transform these to pointer parameters, it's equivalent. - $args =~ s/([A-Za-z_][a-zA-Z_0-9]*) ([A-Za-z_][a-zA-Z_0-9]*)\[[0-9]*\]/$1 *$2/g; + # glPathGlyphIndexRangeNV has an array parameter - GLuint baseAndCount[2] + # just transform these to pointer parameters, it's equivalent. + $args =~ s/([A-Za-z_][a-zA-Z_0-9]*) ([A-Za-z_][a-zA-Z_0-9]*)\[[0-9]*\]/$1 *$2/g; - my $origargs = $args; - $args =~ s/ *([a-zA-Z_][a-zA-Z_0-9]*)(,|\Z)/, $1$2/g; + my $origargs = $args; + $args =~ s/ *([a-zA-Z_][a-zA-Z_0-9]*)(,|\Z)/, $1$2/g; - my $argcount = () = $args =~ /,/g; + my $argcount = () = $args =~ /,/g; - $argcount = floor(($argcount + 1)/2); + $argcount = floor(($argcount + 1)/2); - my $isused = grep {$_ eq $def} @used; + my $isused = grep {$_ eq $def} @used; - $current = \@unsupported; - my $name = $def; - $name =~ s/^PFN(.*)PROC$/$1/g; - $name = lc($name); # todo, fetch the proper name instead of using lowercase (and insensitive compare) - my $aliases = ""; + $current = \@unsupported; + my $name = $def; + $name =~ s/^PFN(.*)PROC$/$1/g; + $name = lc($name); # todo, fetch the proper name instead of using lowercase (and insensitive compare) + my $aliases = ""; - if($isused) - { - my @res = grep {uses_typedef($_, $def)} @dllexport; + if($isused) + { + my @res = grep {uses_typedef($_, $def)} @dllexport; - if(scalar @res) - { - $name = $res[0]{'name'}; - $aliases = $res[0]{'aliases'}; + if(scalar @res) + { + $name = $res[0]{'name'}; + $aliases = $res[0]{'aliases'}; - $current = \@dllexportfuncs; - } - else - { - @res = grep {uses_typedef($_, $def)} @glext; - print "SCRIPT ERROR: '$def' reported as used but can't find matching definition\n" if not scalar @res; + $current = \@dllexportfuncs; + } + else + { + @res = grep {uses_typedef($_, $def)} @glext; + print "SCRIPT ERROR: '$def' reported as used but can't find matching definition\n" if not scalar @res; - $name = $res[0]{'name'}; - $aliases = $res[0]{'aliases'}; + $name = $res[0]{'name'}; + $aliases = $res[0]{'aliases'}; - $current = \@glextfuncs; - } - } - elsif($name =~ /^wgl/i) - { - $current = \@dropped; - } + $current = \@glextfuncs; + } + } + elsif($name =~ /^wgl/i) + { + $current = \@dropped; + } - my $funcdefmacro = "HookWrapper$argcount($returnType, $name"; - $funcdefmacro .= ", $args" if $args ne ""; - $funcdefmacro .= ");"; + my $funcdefmacro = "HookWrapper$argcount($returnType, $name"; + $funcdefmacro .= ", $args" if $args ne ""; + $funcdefmacro .= ");"; - my $aliasdefmacro = "HookAliasWrapper$argcount($returnType, ALIASNAME, $name"; - $aliasdefmacro .= ", $args" if $args ne ""; - $aliasdefmacro .= ");"; + my $aliasdefmacro = "HookAliasWrapper$argcount($returnType, ALIASNAME, $name"; + $aliasdefmacro .= ", $args" if $args ne ""; + $aliasdefmacro .= ");"; - if(not grep {$_ eq $name} @processed) - { - my %func = ('name', $name, 'typedef', $def, 'macro', $funcdefmacro, 'aliasmacro', $aliasdefmacro, 'ret', $returnType, 'args', $origargs, 'aliases', $aliases); + if(not grep {$_ eq $name} @processed) + { + my %func = ('name', $name, 'typedef', $def, 'macro', $funcdefmacro, 'aliasmacro', $aliasdefmacro, 'ret', $returnType, 'args', $origargs, 'aliases', $aliases); - push @{$current}, { %func }; - push @processed, $name; - } - } + push @{$current}, { %func }; + push @processed, $name; + } + } } close(HOOKSET); if($printdefs) { - foreach my $el (@dllexportfuncs) - { - print " IMPLEMENT_FUNCTION_SERIALISED($el->{ret}, $el->{name}($el->{args}));\n"; - } - print "\n"; - foreach my $el (@glextfuncs) - { - print " IMPLEMENT_FUNCTION_SERIALISED($el->{ret}, $el->{name}($el->{args}));\n"; - } - print "\n"; - exit; + foreach my $el (@dllexportfuncs) + { + print " IMPLEMENT_FUNCTION_SERIALISED($el->{ret}, $el->{name}($el->{args}));\n"; + } + print "\n"; + foreach my $el (@glextfuncs) + { + print " IMPLEMENT_FUNCTION_SERIALISED($el->{ret}, $el->{name}($el->{args}));\n"; + } + print "\n"; + exit; } print <{name}); \\\n" + print " HookInit($el->{name}); \\\n" } print "\n"; print "\n"; @@ -238,19 +238,19 @@ print "// gl extensions\n"; print "#define HookCheckGLExtensions() \\\n"; foreach my $el (@glextfuncs) { - print " HookExtension($el->{typedef}, $el->{name}); \\\n"; + print " HookExtension($el->{typedef}, $el->{name}); \\\n"; foreach my $alias (@{$el->{aliases}}) - { - print " HookExtensionAlias($el->{typedef}, $el->{name}, $alias); \\\n"; - } + { + print " HookExtensionAlias($el->{typedef}, $el->{name}, $alias); \\\n"; + } } foreach my $el (@dllexportfuncs) { - print " HookExtension($el->{typedef}, $el->{name}); \\\n"; - foreach my $alias (@{$el->{aliases}}) - { - print " HookExtensionAlias($el->{typedef}, $el->{name}, $alias); \\\n"; - } + print " HookExtension($el->{typedef}, $el->{name}); \\\n"; + foreach my $alias (@{$el->{aliases}}) + { + print " HookExtensionAlias($el->{typedef}, $el->{name}, $alias); \\\n"; + } } print "\n"; print "\n"; @@ -260,12 +260,12 @@ print "#define DefineDLLExportHooks() \\\n"; foreach my $el (@dllexportfuncs) { foreach my $alias (@{$el->{aliases}}) - { - my $aliasmacro = $el->{aliasmacro}; - $aliasmacro =~ s/ALIASNAME/$alias/g; - print " $aliasmacro \\\n"; - } - print " $el->{macro} \\\n" + { + my $aliasmacro = $el->{aliasmacro}; + $aliasmacro =~ s/ALIASNAME/$alias/g; + print " $aliasmacro \\\n"; + } + print " $el->{macro} \\\n" } print "\n"; print "\n"; @@ -275,12 +275,12 @@ print "#define DefineGLExtensionHooks() \\\n"; foreach my $el (@glextfuncs) { foreach my $alias (@{$el->{aliases}}) - { - my $aliasmacro = $el->{aliasmacro}; - $aliasmacro =~ s/ALIASNAME/$alias/g; - print " $aliasmacro \\\n"; - } - print " $el->{macro} \\\n" + { + my $aliasmacro = $el->{aliasmacro}; + $aliasmacro =~ s/ALIASNAME/$alias/g; + print " $aliasmacro \\\n"; + } + print " $el->{macro} \\\n" } print "\n"; print "\n"; @@ -289,7 +289,7 @@ print "// unsupported entry points - used for dummy functions\n"; print "#define DefineUnsupportedDummies() \\\n"; foreach my $el (@unsupported) { - print " $el->{macro} \\\n" + print " $el->{macro} \\\n" } print "\n"; print "\n"; @@ -297,7 +297,7 @@ print "\n"; print "#define CheckUnsupported() \\\n"; foreach my $el (@unsupported) { - print " HandleUnsupported($el->{typedef}, $el->{name}); \\\n" + print " HandleUnsupported($el->{typedef}, $el->{name}); \\\n" } print "\n"; print "// clang-format on\n";