123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323 |
- use strict;
- use warnings;
- my $root=$ARGV[0] || ".";
- my $buildroot=$ARGV[1] || ".";
- my $syms = "$root/docs/libcurl/symbols-in-versions";
- my $curlh = "$root/include/curl/curl.h";
- my $errors=0;
- my %alias = (
- 'CURLINFO_DATA_IN' => 'none',
- 'CURLINFO_DATA_OUT' => 'none',
- 'CURLINFO_END' => 'none',
- 'CURLINFO_HEADER_IN' => 'none',
- 'CURLINFO_HEADER_OUT' => 'none',
- 'CURLINFO_LASTONE' => 'none',
- 'CURLINFO_NONE' => 'none',
- 'CURLINFO_SSL_DATA_IN' => 'none',
- 'CURLINFO_SSL_DATA_OUT' => 'none',
- 'CURLINFO_TEXT' => 'none'
- );
- sub scanmdpage {
- my ($file, @words) = @_;
- open(my $mh, "<", "$file") ||
- die "could not open $file";
- my @m;
- while(<$mh>) {
- if($_ =~ /^## (.*)/) {
- my $w = $1;
-
- $w =~ s/\\-/-/g;
- push @m, $w;
- }
- }
- close($mh);
- my @ms = sort @m;
- for my $i (0 .. $#m) {
- if($ms[$i] ne $m[$i]) {
- print STDERR "$file:1:ERROR: $m[$i] is not alphabetical (expected $ms[$i])\n";
- $errors++;
-
- last;
- }
- }
- foreach my $m (@words) {
- my @g = grep(/$m/, @m);
- if(!$g[0]) {
- print STDERR "Missing mention of $m in $file\n";
- $errors++;
- }
- }
- }
- my $r;
- open($r, "<", "$curlh") ||
- die "no curl.h";
- while(<$r>) {
- if(/^\#define (CURL(OPT|INFO|MOPT)_\w+) (.*)/) {
- $alias{$1}=$3;
- }
- }
- close($r);
- my @curlopt;
- my @curlinfo;
- my @curlmopt;
- open($r, "<", "$syms") ||
- die "no input file";
- while(<$r>) {
- chomp;
- my $l= $_;
- if($l =~ /(CURL(OPT|INFO|MOPT)_\w+) *([0-9.]*) *([0-9.-]*) *([0-9.]*)/) {
- my ($opt, $type, $add, $dep, $rem) = ($1, $2, $3, $4, $5);
- if($alias{$opt}) {
-
- }
- elsif($rem) {
-
-
- }
- else {
- if($type eq "OPT") {
- push @curlopt, $opt,
- }
- elsif($type eq "INFO") {
- push @curlinfo, $opt,
- }
- elsif($type eq "MOPT") {
- push @curlmopt, $opt,
- }
- if(! -f "$root/docs/libcurl/opts/$opt.md") {
- print STDERR "Missing $opt.md\n";
- $errors++;
- }
- }
- }
- }
- close($r);
- scanmdpage("$root/docs/libcurl/curl_easy_setopt.md", @curlopt);
- scanmdpage("$root/docs/libcurl/curl_easy_getinfo.md", @curlinfo);
- scanmdpage("$root/docs/libcurl/curl_multi_setopt.md", @curlmopt);
- my %opts = (
-
- '--no-alpn' => 1,
- '--no-npn' => 1,
- '-N, --no-buffer' => 1,
- '--no-sessionid' => 1,
- '--no-keepalive' => 1,
- '--no-progress-meter' => 1,
- '--no-clobber' => 1,
-
- '--alpn' => 6,
- '--npn' => 6,
- '--eprt' => 6,
- '--epsv' => 6,
- '--keepalive' => 6,
- '-N, --buffer' => 6,
- '--sessionid' => 6,
- '--progress-meter' => 6,
- '--clobber' => 6,
-
- '--krb4' => 6,
- '--ftp-ssl' => 6,
- '--ftp-ssl-reqd' => 6,
- '--include' => 6,
-
- '--test-duphandle' => 6,
- '--test-event' => 6,
- '--wdebug' => 6,
- );
- open($r, "<", "$root/src/tool_getparam.c") ||
- die "no input file";
- my $list;
- my @getparam;
- my $prevlong = "";
- my $no = 0;
- while(<$r>) {
- $no++;
- chomp;
- if(/struct LongShort aliases/) {
- $list=1;
- }
- elsif($list) {
- if( /^ \{(\"[^,]*\").*\'(.)\', (.*)\}/) {
- my ($l, $s, $rd)=($1, $2, $3);
- my $sh;
- my $lo;
- my $title;
- if(($l cmp $prevlong) < 0) {
- print STDERR "tool_getparam.c:$no: '$l' is NOT placed in alpha-order\n";
- }
- if($l =~ /\"(.*)\"/) {
-
- $lo = $1;
- $title="--$lo";
- }
- if($s ne " ") {
-
- $sh = $s;
- $title="-$sh, $title";
- }
- push @getparam, $title;
- $opts{$title} |= 1;
- $prevlong = $l;
- }
- }
- }
- close($r);
- open($r, "<", "$buildroot/docs/cmdline-opts/curl.1") || open($r, "<", "$root/docs/cmdline-opts/curl.1") ||
- die "failed getting curl.1";
- my @manpage;
- while(<$r>) {
- chomp;
- my $l= $_;
- $l =~ s/\\-/-/g;
- if($l =~ /^\.IP \"(-[^\"]*)\"/) {
- my $str = $1;
- my $combo;
- if($str =~ /^-(.), --([a-z0-9.-]*)/) {
-
- $combo = "-$1, --$2";
- }
- elsif($str =~ /^--([a-z0-9.-]*)/) {
-
- $combo = "--$1";
- }
- if($combo) {
- push @manpage, $combo;
- $opts{$combo} |= 2;
- }
- }
- }
- close($r);
- open($r, "<", "$root/src/tool_listhelp.c") ||
- die "no input file";
- my @toolhelp;
- while(<$r>) {
- chomp;
- my $l= $_;
- if(/^ \{\" *(.*)/) {
- my $str=$1;
- my $combo;
- if($str =~ /^-(.), --([a-z0-9.-]*)/) {
-
- $combo = "-$1, --$2";
- }
- elsif($str =~ /^--([a-z0-9.-]*)/) {
-
- $combo = "--$1";
- }
- if($combo) {
- push @toolhelp, $combo;
- $opts{$combo} |= 4;
- }
- }
- }
- close($r);
- foreach my $o (keys %opts) {
- my $where = $opts{$o};
- if($where != 7) {
-
- $errors++;
- my $exists;
- my $missing;
- if($where & 1) {
- $exists=" tool_getparam.c";
- }
- else {
- $missing=" tool_getparam.c";
- }
- if($where & 2) {
- $exists.= " curl.1";
- }
- else {
- $missing.= " curl.1";
- }
- if($where & 4) {
- $exists .= " tool_listhelp.c";
- }
- else {
- $missing .= " tool_listhelp.c";
- }
- print STDERR "$o is not in$missing (but in$exists)\n";
- }
- }
- print STDERR "$errors\n";
|