roaraudio_0_3beta7_pr1
Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | |
---|
3 | use strict; |
---|
4 | |
---|
5 | #use Data::Dumper; |
---|
6 | |
---|
7 | my $progname; |
---|
8 | |
---|
9 | my $usage = <>; |
---|
10 | my @cat; |
---|
11 | my $cur = ['FIXME', []]; |
---|
12 | |
---|
13 | my ($opts, $desc); |
---|
14 | |
---|
15 | $usage =~ s/\r?\n//; |
---|
16 | |
---|
17 | $usage =~ s/^Usage:\s*//; |
---|
18 | |
---|
19 | ($progname) = $usage =~ /^(\S+)\s/; |
---|
20 | |
---|
21 | while (<>) { |
---|
22 | s/\r?\n//; |
---|
23 | next if $_ eq ''; |
---|
24 | |
---|
25 | if ( /^(.+):$/ ) { |
---|
26 | push(@cat, $cur); |
---|
27 | $cur = [$1, []]; |
---|
28 | } else { |
---|
29 | ($opts, $desc) = /\s+(.+?)\s+-\s+(.+)$/; |
---|
30 | push(@{$cur->[1]}, [$opts, $desc]); |
---|
31 | } |
---|
32 | } |
---|
33 | |
---|
34 | push(@cat, $cur); |
---|
35 | |
---|
36 | shift(@cat); |
---|
37 | |
---|
38 | #print Dumper($usage, $progname, \@cat); |
---|
39 | |
---|
40 | print ".\\\" $progname.1:\n\n"; |
---|
41 | print ".TH \"$progname\" \"1\" \"FIXME(DATE)\" \"RoarAudio\" \"System User's Manual: $progname\"\n\n"; |
---|
42 | print ".SH NAME\n\n"; |
---|
43 | print "$progname \\- FIXME(PROGNAME)\n\n"; |
---|
44 | print ".SH SYNOPSIS\n\n"; |
---|
45 | print $usage, "\n\n"; |
---|
46 | print ".SH DESCRIPTION\n\n"; |
---|
47 | print "FIXME(DESCRIPTION)\n\n"; |
---|
48 | |
---|
49 | foreach my $c (@cat) { |
---|
50 | print ".SH \"\U$c->[0]\"\n\n"; |
---|
51 | foreach my $o (@{$c->[1]}) { |
---|
52 | print ".TP\n"; |
---|
53 | print "\\fB$o->[0]\\fR\n"; |
---|
54 | print $o->[1], "\n\n"; |
---|
55 | } |
---|
56 | } |
---|
57 | |
---|
58 | print <<'DATA'; |
---|
59 | .SH "SEE ALSO" |
---|
60 | \fBroartips\fR(7), |
---|
61 | \fBlibroar\fR(7), |
---|
62 | \fBRoarAudio\fR(7). |
---|
63 | |
---|
64 | .SH "HISTORY" |
---|
65 | |
---|
66 | For history information see \fBRoarAudio\fR(7). |
---|
67 | |
---|
68 | .\" ll |
---|
69 | DATA |
---|
70 | |
---|
71 | #ll |
---|
Note: See
TracBrowser
for help on using the repository browser.