Apple-2gs-SW/hush
1
0
Fork 0
mirror of https://github.com/sheumann/hush.git synced 2025-01-04 22:34:37 +00:00
Code Issues Projects Releases Wiki Activity

Added some documentation and made --sgml use sgml_from_usage().

Browse Source 
pod_from_usage() is the default generator.
This commit is contained in:
John Beppu 2001-02-23 17:51:08 +00:00
parent 3757f98d86
commit e6967b20cb
1 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
docs/autodocifier.pl
View File

@ -81,7 +81,10 @@ sub sgml_for_usage {
my $name = shift; my $name = shift;
my $usage = shift; my $usage = shift;
return return
"FIXME"; "<fixme>\n".
" $name\n".
"</fixme>\n"
;
} }
# the keys are applet names, and # the keys are applet names, and
@ -135,11 +138,13 @@ foreach (@ARGV) {
} }
} }
#use Data::Dumper; my $generator = \&pod_for_usage;
#print Data::Dumper->Dump([\%docs], [qw(docs)]); if (defined $opt{sgml}) {
$generator = \&sgml_for_usage;
}
foreach my $name (sort keys %docs) { foreach my $name (sort keys %docs) {
print pod_for_usage($name, $docs{$name}); print $generator->($name, $docs{$name});
} }
exit 0; exit 0;
@ -166,19 +171,29 @@ This script was based on a script by Erik Andersen (andersen@lineo.com).
=head1 OPTIONS =head1 OPTIONS
these control my behaviour =over 4
=over 8
=item --help =item --help
This displays the help message. This displays the help message.
=item --pod
Generate POD (this is the default)
=item --sgml
Generate SGML
=item --verbose
Be verbose (not implemented)
=back =back
=head1 FILES =head1 FILES
files that I manipulate F<usage.h>
=head1 COPYRIGHT =head1 COPYRIGHT
@ -192,4 +207,4 @@ John BEPPU <beppu@lineo.com>
=cut =cut
# $Id: autodocifier.pl,v 1.8 2001/02/23 17:41:41 beppu Exp $ # $Id: autodocifier.pl,v 1.9 2001/02/23 17:51:08 beppu Exp $