aboutsummaryrefslogtreecommitdiff
path: root/docs/autodocifier.pl
diff options
context:
space:
mode:
Diffstat (limited to 'docs/autodocifier.pl')
-rwxr-xr-xdocs/autodocifier.pl15
1 files changed, 7 insertions, 8 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl
index a6e19129c..8e1ab0a74 100755
--- a/docs/autodocifier.pl
+++ b/docs/autodocifier.pl
@@ -46,9 +46,10 @@ sub pod_for_usage {
my $trivial = $usage->{trivial};
$trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
- my @full =
+ my $full =
+ join("\n"
map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
- split("\n", $usage->{full});
+ split("\n", $usage->{full}));
return
"-------------------------------\n".
@@ -57,7 +58,7 @@ sub pod_for_usage {
"\n\n".
"$name $trivial".
"\n\n".
- join("\n", @full).
+ $full.
"\n\n"
;
}
@@ -146,11 +147,9 @@ The purpose of this script is to automagically generate documentation
for busybox using its usage.h as the original source for content.
Currently, the same content has to be duplicated in 3 places in
slightly different formats -- F<usage.h>, F<docs/busybox.pod>, and
-F<docs/busybox.sgml>. Duplicating the same content in these 3 places
-is tedious, so Perl has come to the rescue.
+F<docs/busybox.sgml>. This is tedious, so Perl has come to the rescue.
-This script was based on an original work by
-Erik Andersen (andersen@lineo.com).
+This script was based on a script by Erik Andersen (andersen@lineo.com).
=head1 OPTIONS
@@ -180,4 +179,4 @@ John BEPPU <beppu@lineo.com>
=cut
-# $Id: autodocifier.pl,v 1.3 2001/02/23 02:54:31 beppu Exp $
+# $Id: autodocifier.pl,v 1.4 2001/02/23 03:12:45 beppu Exp $