emo/busybox
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refinement

Browse Source
This commit is contained in:
John Beppu 2001-02-24 14:37:48 +00:00
parent dbfff6cbde
commit 7d597c4833
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
docs/autodocifier.pl
View File

@ -26,15 +26,12 @@ sub beautify {
$text =~ s/"\s*"//sg; $text =~ s/"\s*"//sg;
my @line = split("\n", $text); my @line = split("\n", $text);
$text = join('', $text = join('',
map { eval }
map { qq[ sprintf(qq#$_#) ] }
map { map {
s/^\s*//; s/^\s*//;
s/"//g; s/"//g;
s/% /%% /g; s/%/%%/g;
$_ eval qq[ sprintf(qq#$_#) ]
} } @line
@line
); );
return $text; return $text;
} }
@ -47,13 +44,13 @@ sub pod_for_usage {
# make options bold # make options bold
my $trivial = $usage->{trivial}; my $trivial = $usage->{trivial};
$trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg; $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
my @f1;
my @f0 = my @f0 =
map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ } 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 # add "\n" prior to certain lines to make indented
# lines look right # lines look right
my @f1;
my $len = @f0; my $len = @f0;
for (my $i = 0; $i < $len; $i++) { for (my $i = 0; $i < $len; $i++) {
push @f1, $f0[$i]; push @f1, $f0[$i];
@ -76,7 +73,7 @@ sub pod_for_usage {
; ;
} }
# generate SGML for an applet # FIXME | generate SGML for an applet
sub sgml_for_usage { sub sgml_for_usage {
my $name = shift; my $name = shift;
my $usage = shift; my $usage = shift;
@ -96,7 +93,9 @@ sub sgml_for_usage {
# } # }
my %docs; my %docs;
# get command-line options # get command-line options
my %opt; my %opt;
GetOptions( GetOptions(
@ -118,7 +117,9 @@ if (defined $opt{help}) {
exit 1; exit 1;
} }
# collect documenation into %docs # collect documenation into %docs
foreach (@ARGV) { foreach (@ARGV) {
open(USAGE, $_) || die("$0: $!"); open(USAGE, $_) || die("$0: $!");
my $fh = *USAGE; my $fh = *USAGE;
@ -138,13 +139,16 @@ foreach (@ARGV) {
} }
} }
# generate structured documentation
my $generator = \&pod_for_usage; my $generator = \&pod_for_usage;
if (defined $opt{sgml}) { if (defined $opt{sgml}) {
$generator = \&sgml_for_usage; $generator = \&sgml_for_usage;
} }
foreach my $name (sort keys %docs) { foreach my $applet (sort keys %docs) {
print $generator->($name, $docs{$name}); print $generator->($applet, $docs{$applet});
} }
exit 0; exit 0;
@ -207,4 +211,4 @@ John BEPPU <beppu@lineo.com>
=cut =cut
# $Id: autodocifier.pl,v 1.10 2001/02/23 17:55:03 beppu Exp $ # $Id: autodocifier.pl,v 1.11 2001/02/24 14:37:48 beppu Exp $