docs-xml/scripts/find_missing_manpages.pl

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