Return to badsymbols.pl CVS log

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

Annotation of embedaddon/curl/tests/badsymbols.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: # This script grew out of help from Przemyslaw Iskra and Balint Szilakszi
                     25: # a late evening in the #curl IRC channel on freenode.
                     26: #
                     27: 
                     28: use strict;
                     29: use warnings;
                     30: use vars qw($Cpreprocessor);
                     31: 
                     32: #
                     33: # configurehelp perl module is generated by configure script
                     34: #
                     35: my $rc = eval {
                     36:     require configurehelp;
                     37:     configurehelp->import(qw(
                     38:         $Cpreprocessor
                     39:     ));
                     40:     1;
                     41: };
                     42: # Set default values if configure has not generated a configurehelp.pm file.
                     43: # This is the case with cmake.
                     44: if (!$rc) {
                     45:     $Cpreprocessor = 'cpp';
                     46: }
                     47: 
                     48: # we may get the dir root pointed out
                     49: my $root=$ARGV[0] || ".";
                     50: 
                     51: # need an include directory when building out-of-tree
                     52: my $i = ($ARGV[1]) ? "-I$ARGV[1] " : '';
                     53: 
                     54: my $incdir = "$root/include/curl";
                     55: 
                     56: my $verbose=0;
                     57: my $summary=0;
                     58: my $misses=0;
                     59: 
                     60: my @syms;
                     61: my %doc;
                     62: my %rem;
                     63: 
                     64: sub scanenums {
                     65:     my ($file)=@_;
                     66:     my $skipit = 0;
                     67: 
                     68:     open H_IN, "-|", "$Cpreprocessor $i$file" || die "Cannot preprocess $file";
                     69:     while ( <H_IN> ) {
                     70:         if( /^#(line|) (\d+) \"(.*)\"/) {
                     71:             # if the included file isn't in our incdir, then we skip this section
                     72:             # until next #line
                     73:             #
                     74:             if($3 !~ /^$incdir/) {
                     75:                 $skipit = 1;
                     76:                 next;
                     77:             }
                     78:             # parse this!
                     79:             $skipit = 0,
                     80:         }
                     81:         if($skipit) {
                     82:             next;
                     83:         }
                     84:         if ( /enum\s+(\S+\s+)?{/ .. /}/ ) {
                     85:             s/^\s+//;
                     86:             chomp;
                     87:             s/[,\s].*//;
                     88:             if(($_ !~ /\}(;|)/) &&
                     89:                ($_ ne "typedef") &&
                     90:                ($_ ne "enum") &&
                     91:                ($_ !~ /^[ \t]*$/) &&
                     92:                ($_ ne "#")) {
                     93:                 push @syms, $_;
                     94:             }
                     95:         }
                     96:     }
                     97:     close H_IN || die "Error preprocessing $file";
                     98: }
                     99: 
                    100: sub scanheader {
                    101:     my ($f)=@_;
                    102:     scanenums($f);
                    103:     open H, "<$f";
                    104:     while(<H>) {
                    105:         if (/^#define +([^ \n]*)/) {
                    106:             push @syms, $1;
                    107:         }
                    108:     }
                    109:     close H;
                    110: }
                    111: 
                    112: 
                    113: opendir(my $dh, $incdir) || die "Can't opendir: $!";
                    114: my @hfiles = grep { /\.h$/ } readdir($dh);
                    115: closedir $dh;
                    116: 
                    117: for(@hfiles) {
                    118:     scanheader("$incdir/$_");
                    119: }
                    120: 
                    121: my $errors = 0;
                    122: for my $s (@syms) {
                    123:     if($s !~ /^(lib|)curl/i) {
                    124:         print "Bad symbols in public header files:\n" if(!$errors);
                    125:         $errors++;
                    126:         print "  $s\n";
                    127:     }
                    128: }
                    129: if($errors) {
                    130:     exit 1;
                    131: }
                    132: printf "%d fine symbols found\n", scalar(@syms);