44a8e56a |
1 | # Usage: rofftoc PerlTOC.xxx.raw |
2 | # |
3 | # Post-processes roffitall output. Called from roffitall to produce |
4 | # a formatted table of contents. |
5 | # |
6 | # Author: Tom Christiansen |
7 | |
8 | print <<'EOF'; |
9 | .de NP |
10 | '.sp 0.8i |
11 | .tl ''- % -'' |
12 | 'bp |
13 | 'sp 0.5i |
14 | .tl ''\fB\s+2Perl Table of Contents\s0\fR'' |
15 | 'sp 0.3i |
16 | .. |
17 | .wh -1i NP |
18 | .af % i |
19 | .sp 0.5i |
20 | .tl ''\fB\s+5Perl Table of Contents\s0\fR'' |
21 | .sp 0.5i |
22 | .nf |
23 | .na |
24 | EOF |
25 | while (<>) { |
26 | #chomp; |
27 | s/Index://; |
28 | ($type, $page, $desc) = split ' ', $_, 3; |
29 | $desc =~ s/^"(.*)"$/$1/; |
30 | if ($type eq 'Title') { |
31 | ($name = $desc) =~ s/ .*//; |
32 | next; |
33 | } elsif ($type eq 'Name') { |
34 | #print STDERR $page, "\t", $desc; |
35 | print ".ne 5\n"; |
36 | print ".in 0\n"; |
37 | print ".sp\n"; |
38 | print ".ft B\n"; |
39 | print "$desc\n"; |
40 | print ".ft P\n"; |
41 | print ".in 5n\n"; |
42 | } elsif ($type eq 'Header') { |
43 | print ".br\n", $page, "\t", $desc; |
44 | } elsif ($type eq 'Subsection') { |
45 | print ".br\n", $page, "\t\t", $desc; |
46 | } elsif ($type eq 'Item') { |
47 | next if $desc =~ /\\bu/; |
48 | next unless $name =~ /POSIX|func/i; |
49 | print ".br\n", $page, "\t\t\t", $desc; |
50 | } |
51 | } |
52 | __END__ |
53 | Index:Title 1 "PERL 1" |
54 | Index:Name 1 "perl - Practical Extraction and Report Language" |
55 | Index:Header 1 "NAME" |
56 | Index:Header 1 "SYNOPSIS" |
57 | Index:Header 2 "DESCRIPTION" |
58 | Index:Item 2 "\(bu Many usability enhancements" |
59 | Index:Item 2 "\(bu Simplified grammar" |
60 | Index:Item 2 "\(bu Lexical scoping" |
61 | Index:Item 2 "\(bu Arbitrarily nested data structures" |
62 | Index:Item 2 "\(bu Modularity and reusability" |