docs-xml/scripts/find_missing_manpages.pl

   1 #!/usr/bin/perl
   2
   3 my %doc;
   4
   5 $invar = 0;
   6
   7 $topdir = (shift @ARGV) or $topdir = ".";
   8
   9 $progs = "";
  10
  11 open(IN, "$topdir/Makefile.in");
  12 while(<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
  24 foreach(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 }