Fix some doc generation problems
authorEric Andersen <andersen@codepoet.org>
Sat, 13 Mar 2004 08:32:14 +0000 (08:32 -0000)
committerEric Andersen <andersen@codepoet.org>
Sat, 13 Mar 2004 08:32:14 +0000 (08:32 -0000)
docs/autodocifier.pl
docs/busybox_footer.pod

index e06a1dad80441525debcb8a0dd2499d53c3664ce..e1101d9d0e5632779427b8815b4a6b2655844ae4 100755 (executable)
@@ -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 $
index 0fc29f4c4ceea7cf7f10a2aa830602bca1efdc8e..d243a92d9054e55e1205c537cd07c4ff0daace52 100644 (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 $