minor cleanup... all that's left to do is
authorJohn Beppu <beppu@lbox.org>
Fri, 23 Feb 2001 02:54:31 +0000 (02:54 -0000)
committerJohn Beppu <beppu@lbox.org>
Fri, 23 Feb 2001 02:54:31 +0000 (02:54 -0000)
* make headers and footers for both the POD and SGML content
* make an SGML generator
* finish the command-line handling

Also, some of the documentation in usage.h will have to
be adjusted.  expr needs some lines to be indented, and
ls has a stray comma.  I may have missed some things...
but it looks OK for the most part.

docs/autodocifier.pl

index e5b9767d2998aa02c503372ad930789af9674534..a6e19129c3e19acda1c40e6161cd4a04bb55150e 100755 (executable)
@@ -44,7 +44,7 @@ sub pod_for_usage {
        my $usage = shift;
 
        my $trivial = $usage->{trivial};
-       $trivial !~ /^\s/ && $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
+       $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
 
        my @full = 
                map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
@@ -70,8 +70,9 @@ sub sgml_for_usage {
        "FIXME";
 }
 
-# the keys are applet names, and the values will contain
-# hashrefs of the form:
+# the keys are applet names, and 
+# the values will contain hashrefs of the form:
+#
 # {
 #     trivial => "...",
 #     full    => "...",
@@ -100,7 +101,6 @@ if (defined $opt{help}) {
        exit 1;
 }
 
-#
 # collect documenation into %docs
 foreach (@ARGV) {
        open(USAGE, $_) || die("$0: $!");
@@ -180,4 +180,4 @@ John BEPPU <beppu@lineo.com>
 
 =cut
 
-# $Id: autodocifier.pl,v 1.2 2001/02/23 02:33:28 beppu Exp $
+# $Id: autodocifier.pl,v 1.3 2001/02/23 02:54:31 beppu Exp $