diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/symbol-scan.pl | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/tests/symbol-scan.pl b/tests/symbol-scan.pl index dea1f73b8..cda9b7383 100644 --- a/tests/symbol-scan.pl +++ b/tests/symbol-scan.pl @@ -21,16 +21,25 @@ # ########################################################################### # -# This script grew out of help from Przemysław Iskra and Bálint Szilakszi +# This script grew out of help from Przemyslaw Iskra and Balint Szilakszi # a late evening in the #curl IRC channel on freenode. # +use strict; +use warnings; + +# +# configurehelp perl module is generated by configure script +# +use configurehelp qw( + $Cpreprocessor + ); + # 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 $i = ($ARGV[1]) ? "-I$ARGV[1] " : ''; my $h = "$root/include/curl/curl.h"; my $mh = "$root/include/curl/multi.h"; @@ -39,7 +48,11 @@ my $verbose=0; my $summary=0; my $misses=0; -open H_IN, "-|", "cpp $i$h" || die "Cannot preprocess curl.h"; +my @syms; +my %doc; +my %rem; + +open H_IN, "-|", "$Cpreprocessor $i$h" || die "Cannot preprocess curl.h"; while ( <H_IN> ) { if ( /enum\s+(\S+\s+)?{/ .. /}/ ) { s/^\s+//; |