Documentation/cat-texi.perl

   1 #!/usr/bin/perl -w
   2
   3 my @menu = ();
   4 my $output = $ARGV[0];
   5
   6 open TMP, '>', "$output.tmp";
   7
   8 while (<STDIN>) {
   9         next if (/^\\input texinfo/../\@node Top/);
  10         next if (/^\@bye/ || /^\.ft/);
  11         if (s/^\@top (.*)/\@node $1,,,Top/) {
  12                 push @menu, $1;
  13         }
  14         s/\(\@pxref{\[URLS\]}\)//;
  15         print TMP;
  16 }
  17 close TMP;
  18
  19 printf '\input texinfo
  20 @setfilename gitman.info
  21 @documentencoding us-ascii
  22 @node Top,,%s
  23 @top Git Manual Pages
  24 @documentlanguage en
  25 @menu
  26 ', $menu[0];
  27
  28 for (@menu) {
  29         print "* ${_}::\n";
  30 }
  31 print "\@end menu\n";
  32 open TMP, '<', "$output.tmp";
  33 while (<TMP>) {
  34         print;
  35 }
  36 close TMP;
  37 print "\@bye\n";
  38 unlink "$output.tmp";