1#!/usr/bin/env perl
2#***************************************************************************
3#                                  _   _ ____  _
4#  Project                     ___| | | |  _ \| |
5#                             / __| | | | |_) | |
6#                            | (__| |_| |  _ <| |___
7#                             \___|\___/|_| \_\_____|
8#
9# Copyright (C) 2010-2015, 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
26use strict;
27use warnings;
28
29# we may get the dir root pointed out
30my $root=$ARGV[0] || ".";
31
32my @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
39my $verbose=0;
40my $summary=0;
41my $misses=0;
42
43my @syms;
44my %doc;
45my %rem;
46
47sub scanheader {
48    my ($f)=@_;
49    open H, "<$f" || die;
50    while(<H>) {
51        if (/^(CURL_EXTERN.*)/) {
52            print "$1\n";
53        }
54    }
55    close H;
56}
57
58foreach my $i (@incs) {
59    scanheader($i);
60}
61