1#!/usr/bin/perl 2 3my %doc; 4 5$invar = 0; 6 7$topdir = (shift @ARGV) or $topdir = "."; 8 9$progs = ""; 10 11open(IN, "$topdir/Makefile.in"); 12while(<IN>) { 13 if($invar && /^([ \t]*)(.*?)([\\])$/) { 14 $progs.=" " . $2; 15 if($4) { $invar = 1; } else { $invar = 0; } 16 } elsif(/^([^ ]*)_PROGS([0-9]*) = (.*?)([\\])$/) { 17 $progs.=" " . $3; 18 if($4) { $invar = 1; } 19 } else { $invar = 0; } 20} 21 22$progs =~ s/@([^@]+)@//g; 23 24foreach(split(/bin\//, $progs)) { 25 next if($_ eq " "); 26 s/\@EXEEXT\@//g; 27 s/ //g; 28 29 $f = $_; 30 31 $found = 0; 32 33 for($i = 0; $i < 9; $i++) { 34 if(-e "manpages-3/$f.$i.xml") { $found = 1; } 35 } 36 37 if(!$found) { 38 print "'$f' does not have a manpage\n"; 39 } 40} 41