aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Beppu <beppu@lbox.org>2001-02-23 17:41:41 +0000
committerJohn Beppu <beppu@lbox.org>2001-02-23 17:41:41 +0000
commit8373e70c55805bc933cf11d0150182fe3b80a3b2 (patch)
tree2c57d7e84bbc39ad8363a2fb0094c56e64f95c27
parent7a9cc2dcdd58e4e98b71b220e9430d71047098ab (diff)
downloadbusybox-8373e70c55805bc933cf11d0150182fe3b80a3b2.tar.gz
During POD generation, it inserts a blank line before lines
that were intended to be indented.
-rwxr-xr-xdocs/autodocifier.pl22
1 files changed, 17 insertions, 5 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl
index fc4acadc8..e02bca93e 100755
--- a/docs/autodocifier.pl
+++ b/docs/autodocifier.pl
@@ -44,14 +44,26 @@ sub pod_for_usage {
my $name = shift;
my $usage = shift;
+ # make options bold
my $trivial = $usage->{trivial};
$trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
-
- my $full =
- join("\n",
+ my @f1;
+ my @f0 =
map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
- split("\n", $usage->{full}));
+ split("\n", $usage->{full});
+
+ # add "\n" prior to certain lines to make indented
+ # lines look right
+ my $len = @f0;
+ for (my $i = 0; $i < $len; $i++) {
+ push @f1, $f0[$i];
+ if (($i+1) != $len && $f0[$i] !~ /^\s/ && $f0[$i+1] =~ /^\s/) {
+ next if ($f0[$i] =~ /^$/);
+ push(@f1, "") unless ($f0[$i+1] =~ /^\s*$/s);
+ }
+ }
+ my $full = join("\n", @f1);
return
"-------------------------------\n".
"\n".
@@ -180,4 +192,4 @@ John BEPPU <beppu@lineo.com>
=cut
-# $Id: autodocifier.pl,v 1.7 2001/02/23 16:16:08 beppu Exp $
+# $Id: autodocifier.pl,v 1.8 2001/02/23 17:41:41 beppu Exp $