[BusyBox-cvs] busybox/docs autodocifier.pl, 1.24, 1.25 busybox_footer.pod, 1.12, 1.13

[Erik Andersen]

Update of /var/cvs/busybox/docs
In directory nail:/tmp/cvs-serv1668/docs

Modified Files:
	autodocifier.pl busybox_footer.pod 
Log Message:
Fix some doc generation problems


Index: busybox_footer.pod
===================================================================
RCS file: /var/cvs/busybox/docs/busybox_footer.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- a/busybox_footer.pod	14 Jul 2003 21:20:48 -0000	1.12
+++ b/busybox_footer.pod	13 Mar 2004 08:32:14 -0000	1.13
@@ -47,7 +47,7 @@
 Edward Betts <edward at debian.org>
 
     expr, hostid, logname, tty, wc, whoami, yes
- 
+
 =for html <br>
 
 Brian Candler <B.Candler at pobox.com>
@@ -62,10 +62,9 @@
 
 =for html <br>
 
-Dave Cinege <dcinege at psychosis.com>	
+Dave Cinege <dcinege at 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 @@
 
 =for html <br>
 
-John Lombardo <john at deltanet.com>	
+John Lombardo <john at deltanet.com>
 
     dirname, tr
 

Index: autodocifier.pl
===================================================================
RCS file: /var/cvs/busybox/docs/autodocifier.pl,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- a/autodocifier.pl	14 Jul 2003 21:20:48 -0000	1.24
+++ b/autodocifier.pl	13 Mar 2004 08:32:14 -0000	1.25
@@ -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 @@
 	$text =~ s/"\s*"//sg;
 	my @line = split("\n", $text);
 	$text = join('',
-		map { 
+		map {
 			s/^\s*"//;
 			s/"\s*$//;
 			s/%/%%/g;
@@ -42,10 +42,17 @@
 	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 @@
 
 	# 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 @@
 	;
 }
 
-# the keys are applet names, and 
+# the keys are applet names, and
 # the values will contain hashrefs of the form:
 #
 # {