diff options
author | nikita <nikita@n0.is> | 2020-05-20 21:57:51 +0200 |
---|---|---|
committer | nikita <nikita@n0.is> | 2020-05-20 21:57:51 +0200 |
commit | 2ec8d5b0d78e443e6e3b907b6aa5865c063446e8 (patch) | |
tree | 572cf1bb56295d51c99888251cbef506362e73df /tests/extern-scan.pl.in | |
parent | a479c28461cb39531f30460360920acad21c3130 (diff) | |
download | gnurl-2ec8d5b0d78e443e6e3b907b6aa5865c063446e8.tar.gz gnurl-2ec8d5b0d78e443e6e3b907b6aa5865c063446e8.tar.bz2 gnurl-2ec8d5b0d78e443e6e3b907b6aa5865c063446e8.zip |
rename
Diffstat (limited to 'tests/extern-scan.pl.in')
-rwxr-xr-x | tests/extern-scan.pl.in | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/tests/extern-scan.pl.in b/tests/extern-scan.pl.in new file mode 100755 index 000000000..99b096ba2 --- /dev/null +++ b/tests/extern-scan.pl.in @@ -0,0 +1,62 @@ +#!/usr/bin/env perl +#*************************************************************************** +# _ _ ____ _ +# Project ___| | | | _ \| | +# / __| | | | |_) | | +# | (__| |_| | _ <| |___ +# \___|\___/|_| \_\_____| +# +# Copyright (C) 2010 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al. +# +# This software is licensed as described in the file COPYING, which +# you should have received as part of this distribution. The terms +# are also available at https://curl.haxx.se/docs/copyright.html. +# +# You may opt to use, copy, modify, merge, publish, distribute and/or sell +# copies of the Software, and permit persons to whom the Software is +# furnished to do so, under the terms of the COPYING file. +# +# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY +# KIND, either express or implied. +# +########################################################################### +# +# + +use strict; +use warnings; + +# we may get the dir root pointed out +my $root=$ARGV[0] || "."; + +my @incs = ( + "$root/include/gnurl/curl.h", + "$root/include/gnurl/easy.h", + "$root/include/gnurl/mprintf.h", + "$root/include/gnurl/multi.h", + ); + +my $verbose=0; +my $summary=0; +my $misses=0; + +my @syms; +my %doc; +my %rem; + +sub scanheader { + my ($f)=@_; + open H, "<$f" || die; + while(<H>) { + if (/^(CURL_EXTERN.*)/) { + my $decl = $1; + $decl =~ s/\r$//; + print "$decl\n"; + } + } + close H; +} + +foreach my $i (@incs) { + scanheader($i); +} |