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:
John Beppu 2001-02-23 16:15:34 +00:00
parent ed0d958c3e
commit df1e9daf30

View File

@ -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 $