From 8f369c53cf0bb94d9ef939153d6da51b364894ea Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Mon, 2 Feb 2015 23:32:38 +0100 Subject: test1135: verify the CURL_EXTERN order in header files --- tests/extern-scan.pl | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100755 tests/extern-scan.pl (limited to 'tests/extern-scan.pl') diff --git a/tests/extern-scan.pl b/tests/extern-scan.pl new file mode 100755 index 000000000..49d0c86b0 --- /dev/null +++ b/tests/extern-scan.pl @@ -0,0 +1,60 @@ +#!/usr/bin/env perl +#*************************************************************************** +# _ _ ____ _ +# Project ___| | | | _ \| | +# / __| | | | |_) | | +# | (__| |_| | _ <| |___ +# \___|\___/|_| \_\_____| +# +# Copyright (C) 2010-2015, Daniel Stenberg, , 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. +# +########################################################################### +# +# + +use strict; +use warnings; + +# we may get the dir root pointed out +my $root=$ARGV[0] || "."; + +my @incs = ( + "$root/include/curl/curl.h", + "$root/include/curl/easy.h", + "$root/include/curl/mprintf.h", + "$root/include/curl/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() { + if (/^(CURL_EXTERN.*)/) { + print "$1\n"; + } + } + close H; +} + +foreach my $i (@incs) { + scanheader($i); +} -- cgit v1.2.3