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# 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 my $decl = $1; 53 $decl =~ s/\r$//; 54 print "$decl\n"; 55 } 56 } 57 close H; 58} 59 60foreach my $i (@incs) { 61 scanheader($i); 62} 63