roaraudio_0_3beta7_pr1
Rev | Line | |
---|
[3083] | 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 { |
---|
[3086] | 29 | ($opts, $desc) = /\s+(.+?)\s+-\s+(.+)$/; |
---|
[3083] | 30 | push(@{$cur->[1]}, [$opts, $desc]); |
---|
| 31 | } |
---|
| 32 | } |
---|
| 33 | |
---|
[3086] | 34 | push(@cat, $cur); |
---|
| 35 | |
---|
[3083] | 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.