]>
Commit | Line | Data |
---|---|---|
5cefc33b JH |
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"; |