Fix some doc generation problems

This commit is contained in:
Eric Andersen 2004-03-13 08:32:14 +00:00
parent ed43806c3b
commit 55c704c119
2 changed files with 24 additions and 21 deletions

View File

@ -3,7 +3,7 @@
use strict;
use Getopt::Long;
# collect lines continued with a '\' into an array
# collect lines continued with a '\' into an array
sub continuation {
my $fh = shift;
my @line;
@ -26,7 +26,7 @@ sub beautify {
$text =~ s/"\s*"//sg;
my @line = split("\n", $text);
$text = join('',
map {
map {
s/^\s*"//;
s/"\s*$//;
s/%/%%/g;
@ -42,10 +42,17 @@ sub pod_for_usage {
my $name = shift;
my $usage = shift;
# Sigh. Fixup the known odd-name applets.
$name =~ s/dpkg_deb/dpkg-deb/g;
$name =~ s/fsck_minix/fsck.minix/g;
$name =~ s/mkfs_minix/mkfs.minix/g;
$name =~ s/run_parts/run-parts/g;
$name =~ s/start_stop_daemon/start-stop-daemon/g;
# make options bold
my $trivial = $usage->{trivial};
$trivial =~ s/(?<!\w)(-\w+)/B<$1>/sxg;
my @f0 =
my @f0 =
map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
split("\n", $usage->{full});
@ -69,22 +76,19 @@ sub pod_for_usage {
# prepare examples if they exist
my $example = (defined $usage->{example})
?
?
"Example:\n\n" .
join ("\n",
map { "\t$_" }
join ("\n",
map { "\t$_" }
split("\n", $usage->{example})) . "\n\n"
: "";
return
"=item B<$name>".
"\n\n" .
"$name $trivial".
"\n\n" .
$full .
"\n\n" .
$notes .
$example.
"\n\n$name $trivial\n\n".
"$full\n\n" .
"$notes" .
"$example" .
"-------------------------------".
"\n\n"
;
@ -101,7 +105,7 @@ sub sgml_for_usage {
;
}
# the keys are applet names, and
# the keys are applet names, and
# the values will contain hashrefs of the form:
#
# {
@ -288,4 +292,4 @@ John BEPPU <b@ax9.org>
=cut
# $Id: autodocifier.pl,v 1.24 2003/07/14 21:20:48 andersen Exp $
# $Id: autodocifier.pl,v 1.25 2004/03/13 08:32:14 andersen Exp $

View File

@ -47,7 +47,7 @@ John Beppu <beppu@codepoet.org>
Edward Betts <edward@debian.org>
expr, hostid, logname, tty, wc, whoami, yes
=for html <br>
Brian Candler <B.Candler@pobox.com>
@ -62,10 +62,9 @@ Randolph Chung <tausq@debian.org>
=for html <br>
Dave Cinege <dcinege@psychosis.com>
Dave Cinege <dcinege@psychosis.com>
more(v2), makedevs, dutmp, modularization, auto links file,
various fixes, Linux Router Project maintenance
more(v2), makedevs, modularization, various fixes
=for html <br>
@ -99,7 +98,7 @@ Matt Kraai <kraai@alumni.carnegiemellon.edu>
=for html <br>
John Lombardo <john@deltanet.com>
John Lombardo <john@deltanet.com>
dirname, tr
@ -174,4 +173,4 @@ Glenn Engel <glenne@engel.org>
=cut
# $Id: busybox_footer.pod,v 1.12 2003/07/14 21:20:48 andersen Exp $
# $Id: busybox_footer.pod,v 1.13 2004/03/13 08:32:14 andersen Exp $