diff options
| author | John Beppu | 2001-02-23 03:12:45 +0000 |
|---|---|---|
| committer | John Beppu | 2001-02-23 03:12:45 +0000 |
| commit | b249fbb1dc93e50fc41dfe8823ac09b76c9ca04a (patch) | |
| tree | 264af7a2ab04d6c5c30839235b18aaf26c615473 /docs/autodocifier.pl | |
| parent | 8c16bc5012de1c0c7b34e1d01004571f5f7e7b63 (diff) | |
| download | busybox-b249fbb1dc93e50fc41dfe8823ac09b76c9ca04a.zip busybox-b249fbb1dc93e50fc41dfe8823ac09b76c9ca04a.tar.gz | |
I can't leave it alone.
Diffstat (limited to 'docs/autodocifier.pl')
| -rwxr-xr-x | docs/autodocifier.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index a6e1912..8e1ab0a 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 $ |