Loading tests/data/test1119 +1 −1 Original line number Diff line number Diff line Loading @@ -17,7 +17,7 @@ Verify that symbols-in-versions and headers are in sync </name> <command type="perl"> %SRCDIR/symbol-scan.pl %SRCDIR/.. %SRCDIR/symbol-scan.pl %SRCDIR/.. ../include/curl </command> </client> Loading tests/symbol-scan.pl +7 −2 Original line number Diff line number Diff line Loading @@ -28,6 +28,10 @@ # we may get the dir root pointed out my $root=$ARGV[0] || "."; # need an include directory when building out-of-tree my $i=$ARGV[1]; $i="-I$i " if $i; my $h = "$root/include/curl/curl.h"; my $mh = "$root/include/curl/multi.h"; Loading @@ -35,7 +39,7 @@ my $verbose=0; my $summary=0; my $misses=0; open H_IN, "-|", "cpp " . $h; open H_IN, "-|", "cpp $i$h" || die "Cannot preprocess curl.h"; while ( <H_IN> ) { if ( /enum\s+(\S+\s+)?{/ .. /}/ ) { s/^\s+//; Loading @@ -45,7 +49,8 @@ while ( <H_IN> ) { push @syms, $_; } } close H_IN; close H_IN || die "Error preprocessing curl.h"; sub scanheader { my ($f)=@_; open H, "<$f"; Loading Loading
tests/data/test1119 +1 −1 Original line number Diff line number Diff line Loading @@ -17,7 +17,7 @@ Verify that symbols-in-versions and headers are in sync </name> <command type="perl"> %SRCDIR/symbol-scan.pl %SRCDIR/.. %SRCDIR/symbol-scan.pl %SRCDIR/.. ../include/curl </command> </client> Loading
tests/symbol-scan.pl +7 −2 Original line number Diff line number Diff line Loading @@ -28,6 +28,10 @@ # we may get the dir root pointed out my $root=$ARGV[0] || "."; # need an include directory when building out-of-tree my $i=$ARGV[1]; $i="-I$i " if $i; my $h = "$root/include/curl/curl.h"; my $mh = "$root/include/curl/multi.h"; Loading @@ -35,7 +39,7 @@ my $verbose=0; my $summary=0; my $misses=0; open H_IN, "-|", "cpp " . $h; open H_IN, "-|", "cpp $i$h" || die "Cannot preprocess curl.h"; while ( <H_IN> ) { if ( /enum\s+(\S+\s+)?{/ .. /}/ ) { s/^\s+//; Loading @@ -45,7 +49,8 @@ while ( <H_IN> ) { push @syms, $_; } } close H_IN; close H_IN || die "Error preprocessing curl.h"; sub scanheader { my ($f)=@_; open H, "<$f"; Loading