romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-25 09:03:32 +03:00
Code Issues Projects Releases Packages Wiki Activity

symbol-scan: use configure script knowledge about how to run the C preprocessor

Browse source
This commit is contained in:
Yang Tse 2010-11-25 21:05:20 +01:00
parent e8bc33d0a3
commit ef24ecde68
4 changed files with 61 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

21
tests/symbol-scan.pl
View file

@ -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+//;