Return to mem-include-scan.pl CVS log

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

Annotation of embedaddon/curl/tests/mem-include-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: # This script scans C source files. If they seem to use memory functions,
                     25: # it also makes sure that it #includes the correct two header files!
                     26: #
                     27: # You can also mark a C source as fine by using 'mem-include-scan' anywhere in
                     28: # it.
                     29: #
                     30: 
                     31: use strict;
                     32: use warnings;
                     33: 
                     34: my $dir = $ARGV[0] || die "specify directory!";
                     35: 
                     36: sub scanfile {
                     37:     my ($file) = @_;
                     38:     my $memfunc;
                     39:     my $memdebug;
                     40:     my $curlmem;
                     41: 
                     42:     print STDERR "checking $file...\n";
                     43: 
                     44:     open(F, "<$file");
                     45:     while(<F>) {
                     46:         if($_ =~ /(free|alloc|strdup)\(/) {
                     47:             $memfunc++;
                     48:         }
                     49:         elsif($_ =~ /^ *# *include \"memdebug.h\"/) {
                     50:             $memdebug++;
                     51:         }
                     52:         elsif($_ =~ /^ *# *include \"curl_memory.h\"/) {
                     53:             $curlmem++;
                     54:         }
                     55:         elsif($_ =~ /mem-include-scan/) {
                     56:             # free pass
                     57:             close(F);
                     58:             return 0;
                     59:         }
                     60:         if($memfunc && $memdebug && $curlmem) {
                     61:             last;
                     62:         }
                     63:     }
                     64:     close(F);
                     65: 
                     66: 
                     67:     if($memfunc) {
                     68:         if($memdebug && $curlmem) {
                     69:             return 0;
                     70:         }
                     71:         else {
                     72:             if(!$memdebug) {
                     73:                 print STDERR "$file doesn't include \"memdebug.h\"!\n";
                     74:             }
                     75:             if(!$curlmem) {
                     76:                 print STDERR "$file doesn't include \"curl_memory.h\"!\n";
                     77:             }
                     78:             return 1;
                     79:         }
                     80:     }
                     81:     return 0;
                     82: }
                     83: 
                     84: opendir(my $dh, $dir) || die "can't opendir $dir: $!";
                     85: my @cfiles = grep { /\.c\z/ && -f "$dir/$_" } readdir($dh);
                     86: closedir $dh;
                     87: 
                     88: my $errs;
                     89: for(@cfiles) {
                     90:     $errs += scanfile("$dir/$_");
                     91: }
                     92: 
                     93: if($errs) {
                     94:     print STDERR "----\n$errs errors detected!\n";
                     95:     exit 2;
                     96: }