mirror of
https://github.com/baldurk/renderdoc.git
synced 2026-05-12 13:00:32 +00:00
indent hookset.pl to clang-format rules. No tabs, 2 space indent
This commit is contained in:
baldurk
+140
-140
@@ -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(<HOOKSET>)
|
||||
{
|
||||
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 <<ENDOFHEADER;
|
||||
@@ -229,7 +229,7 @@ print "// dllexport functions\n";
|
||||
print "#define DLLExportHooks() \\\n";
|
||||
foreach my $el (@dllexportfuncs)
|
||||
{
|
||||
print " HookInit($el->{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";
|
||||
|
||||
Reference in New Issue
Block a user