Return to extern-scan.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / tests

Annotation of embedaddon/curl/tests/extern-scan.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/env perl
                      2: #***************************************************************************
                      3: #                                  _   _ ____  _
                      4: #  Project                     ___| | | |  _ \| |
                      5: #                             / __| | | | |_) | |
                      6: #                            | (__| |_| |  _ <| |___
                      7: #                             \___|\___/|_| \_\_____|
                      8: #
                      9: # Copyright (C) 2010 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
                     10: #
                     11: # This software is licensed as described in the file COPYING, which
                     12: # you should have received as part of this distribution. The terms
                     13: # are also available at https://curl.haxx.se/docs/copyright.html.
                     14: #
                     15: # You may opt to use, copy, modify, merge, publish, distribute and/or sell
                     16: # copies of the Software, and permit persons to whom the Software is
                     17: # furnished to do so, under the terms of the COPYING file.
                     18: #
                     19: # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
                     20: # KIND, either express or implied.
                     21: #
                     22: ###########################################################################
                     23: #
                     24: #
                     25: 
                     26: use strict;
                     27: use warnings;
                     28: 
                     29: # we may get the dir root pointed out
                     30: my $root=$ARGV[0] || ".";
                     31: 
                     32: my @incs = (
                     33:     "$root/include/curl/curl.h",
                     34:     "$root/include/curl/easy.h",
                     35:     "$root/include/curl/mprintf.h",
                     36:     "$root/include/curl/multi.h",
                     37:     );
                     38: 
                     39: my $verbose=0;
                     40: my $summary=0;
                     41: my $misses=0;
                     42: 
                     43: my @syms;
                     44: my %doc;
                     45: my %rem;
                     46: 
                     47: sub scanheader {
                     48:     my ($f)=@_;
                     49:     open H, "<$f" || die;
                     50:     while(<H>) {
                     51:         if (/^(CURL_EXTERN.*)/) {
                     52:             my $decl = $1;
                     53:             $decl =~ s/\r$//;
                     54:             print "$decl\n";
                     55:         }
                     56:     }
                     57:     close H;
                     58: }
                     59: 
                     60: foreach my $i (@incs) {
                     61:     scanheader($i);
                     62: }