This reverts renaming and usage of lib/*.h header files done
28-12-2012, reverting 2 commits:
  f871de0... build: make use of 76 lib/*.h renamed files
  ffd8e12... build: rename 76 lib/*.h files
This also reverts removal of redundant include guard (redundant thanks
to changes in above commits) done 2-12-2013, reverting 1 commit:
  c087374... curl_setup.h: remove redundant include guard
This also reverts renaming and usage of lib/*.c source files done
3-12-2013, reverting 3 commits:
  13606bb... build: make use of 93 lib/*.c renamed files
  5b6e792... build: rename 93 lib/*.c files
  7d83dff... build: commit 13606bbfde follow-up 1
Start of related discussion thread:
  http://curl.haxx.se/mail/lib-2013-01/0012.html
Asking for confirmation on pushing this revertion commit:
  http://curl.haxx.se/mail/lib-2013-01/0048.html
Confirmation summary:
  http://curl.haxx.se/mail/lib-2013-01/0079.html
NOTICE: The list of 2 files that have been modified by other
intermixed commits, while renamed, and also by at least one
of the 6 commits this one reverts follows below. These 2 files
will exhibit a hole in history unless git's '--follow' option
is used when viewing logs.
  lib/curl_imap.h
  lib/curl_smtp.h
		
	
		
			
				
	
	
		
			97 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			97 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
#!/usr/bin/env perl
 | 
						|
#***************************************************************************
 | 
						|
#                                  _   _ ____  _
 | 
						|
#  Project                     ___| | | |  _ \| |
 | 
						|
#                             / __| | | | |_) | |
 | 
						|
#                            | (__| |_| |  _ <| |___
 | 
						|
#                             \___|\___/|_| \_\_____|
 | 
						|
#
 | 
						|
# Copyright (C) 2010-2012, 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 http://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.
 | 
						|
#
 | 
						|
###########################################################################
 | 
						|
#
 | 
						|
# This script scans C source files. If they seem to use memory functions,
 | 
						|
# it also makes sure that it #includes the correct two header files!
 | 
						|
#
 | 
						|
# You can also mark a C source as fine by using 'mem-include-scan' anywhere in
 | 
						|
# it.
 | 
						|
#
 | 
						|
 | 
						|
use strict;
 | 
						|
use warnings;
 | 
						|
 | 
						|
my $dir = $ARGV[0] || die "specify directory!";
 | 
						|
 | 
						|
sub scanfile {
 | 
						|
    my ($file) = @_;
 | 
						|
    my $memfunc;
 | 
						|
    my $memdebug;
 | 
						|
    my $curlmem;
 | 
						|
 | 
						|
    print STDERR "checking $file...\n";
 | 
						|
 | 
						|
    open(F, "<$file");
 | 
						|
    while(<F>) {
 | 
						|
        if($_ =~ /(free|alloc|strdup)\(/) {
 | 
						|
            $memfunc++;
 | 
						|
        }
 | 
						|
        elsif($_ =~ /^ *# *include \"memdebug.h\"/) {
 | 
						|
            $memdebug++;
 | 
						|
        }
 | 
						|
        elsif($_ =~ /^ *# *include \"curl_memory.h\"/) {
 | 
						|
            $curlmem++;
 | 
						|
        }
 | 
						|
        elsif($_ =~ /mem-include-scan/) {
 | 
						|
            # free pass
 | 
						|
            close(F);
 | 
						|
            return 0;
 | 
						|
        }
 | 
						|
        if($memfunc && $memdebug && $curlmem) {
 | 
						|
            last;
 | 
						|
        }
 | 
						|
    }
 | 
						|
    close(F);
 | 
						|
 | 
						|
 | 
						|
    if($memfunc) {
 | 
						|
        if($memdebug && $curlmem) {
 | 
						|
            return 0;
 | 
						|
        }
 | 
						|
        else {
 | 
						|
            if(!$memdebug) {
 | 
						|
                print STDERR "$file doesn't include \"memdebug.h\"!\n";
 | 
						|
            }
 | 
						|
            if(!$curlmem) {
 | 
						|
                print STDERR "$file doesn't include \"curl_memory.h\"!\n";
 | 
						|
            }
 | 
						|
            return 1;
 | 
						|
        }
 | 
						|
    }
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
opendir(my $dh, $dir) || die "can't opendir $dir: $!";
 | 
						|
my @cfiles = grep { /\.c\z/ && -f "$dir/$_" } readdir($dh);
 | 
						|
closedir $dh;
 | 
						|
 | 
						|
my $errs;
 | 
						|
for(@cfiles) {
 | 
						|
    $errs += scanfile("$dir/$_");
 | 
						|
}
 | 
						|
 | 
						|
if($errs) {
 | 
						|
    print STDERR "----\n$errs errors detected!\n";
 | 
						|
    exit 2;
 | 
						|
}
 |