Merge branch 'jc/cvsserver-perm-bit-fix'
[git] / 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|REMOTES)\]}\)//;
15         s/\@anchor\{[^{}]*\}//g;
16         print TMP;
17 }
18 close TMP;
19
20 printf '\input texinfo
21 @setfilename gitman.info
22 @documentencoding UTF-8
23 @dircategory Development
24 @direntry
25 * Git Man Pages: (gitman).  Manual pages for Git revision control system
26 @end direntry
27 @node Top,,, (dir)
28 @top Git Manual Pages
29 @documentlanguage en
30 @menu
31 ', $menu[0];
32
33 for (@menu) {
34         print "* ${_}::\n";
35 }
36 print "\@end menu\n";
37 open TMP, '<', "$output.tmp";
38 while (<TMP>) {
39         print;
40 }
41 close TMP;
42 print "\@bye\n";
43 unlink "$output.tmp";