This one should be able to deal with the USAGE macros a little
more robustly. I also blow away any USAGE_NOT_\w+ macros.
This commit is contained in:
parent
ed0d958c3e
commit
df1e9daf30
@ -21,8 +21,9 @@ sub continuation {
|
|||||||
# regex && eval away unwanted strings from documentation
|
# regex && eval away unwanted strings from documentation
|
||||||
sub beautify {
|
sub beautify {
|
||||||
my $text = shift;
|
my $text = shift;
|
||||||
$text =~ s/USAGE_\w+\([\s]*?(".*?").*?\)/$1/sg;
|
$text =~ s/USAGE_NOT\w+\(.*?"\s*\)//sxg;
|
||||||
$text =~ s/"[\s]*"//sg;
|
$text =~ s/USAGE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg;
|
||||||
|
$text =~ s/"\s*"//sg;
|
||||||
my @line = split("\n", $text);
|
my @line = split("\n", $text);
|
||||||
$text = join('',
|
$text = join('',
|
||||||
map { eval }
|
map { eval }
|
||||||
@ -35,6 +36,8 @@ sub beautify {
|
|||||||
}
|
}
|
||||||
@line
|
@line
|
||||||
);
|
);
|
||||||
|
print STDERR "-- d\n";
|
||||||
|
print STDERR $text;
|
||||||
return $text;
|
return $text;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -179,4 +182,4 @@ John BEPPU <beppu@lineo.com>
|
|||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
# $Id: autodocifier.pl,v 1.5 2001/02/23 13:04:39 beppu Exp $
|
# $Id: autodocifier.pl,v 1.6 2001/02/23 16:15:34 beppu Exp $
|
||||||
|
Loading…
Reference in New Issue
Block a user