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

And now, with a for loop, so it can handle the nested USE() case.

Browse Source
This commit is contained in:
Rob Landley 2006-07-27 15:12:21 +00:00
parent fc367f9824
commit 52c7d7ebf3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/autodocifier.pl
View File

@ -21,8 +21,12 @@ 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/SKIP_\w+\(.*?"\s*\)//sxg; for (;;) {
$text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; my $text2 = $text;
$text =~ s/SKIP_\w+\(.*?"\s*\)//sxg;
$text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg;
last if ( $text2 eq $text );
}
$text =~ s/"\s*"//sg; $text =~ s/"\s*"//sg;
my @line = split("\n", $text); my @line = split("\n", $text);
$text = join('', $text = join('',