diff options
| author | Rob Landley <rob@landley.net> | 2006-07-27 15:12:21 +0000 |
|---|---|---|
| committer | Rob Landley <rob@landley.net> | 2006-07-27 15:12:21 +0000 |
| commit | 52c7d7ebf3ed05f24147210aa969b69bdabcc135 (patch) | |
| tree | 2f082bba6e8a01af8a8b1549b5668ea4948b3b05 /docs | |
| parent | fc367f98244c14ec0deeee7a5533811cc9aa2538 (diff) | |
| download | busybox-w32-52c7d7ebf3ed05f24147210aa969b69bdabcc135.tar.gz busybox-w32-52c7d7ebf3ed05f24147210aa969b69bdabcc135.tar.bz2 busybox-w32-52c7d7ebf3ed05f24147210aa969b69bdabcc135.zip | |
And now, with a for loop, so it can handle the nested USE() case.
Diffstat (limited to 'docs')
| -rwxr-xr-x | docs/autodocifier.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index c39260acb..4acb6bdc8 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl | |||
| @@ -21,8 +21,12 @@ sub continuation { | |||
| 21 | # regex && eval away unwanted strings from documentation | 21 | # regex && eval away unwanted strings from documentation |
| 22 | sub beautify { | 22 | sub beautify { |
| 23 | my $text = shift; | 23 | my $text = shift; |
| 24 | $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg; | 24 | for (;;) { |
| 25 | $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; | 25 | my $text2 = $text; |
| 26 | $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg; | ||
| 27 | $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; | ||
| 28 | last if ( $text2 eq $text ); | ||
| 29 | } | ||
| 26 | $text =~ s/"\s*"//sg; | 30 | $text =~ s/"\s*"//sg; |
| 27 | my @line = split("\n", $text); | 31 | my @line = split("\n", $text); |
| 28 | $text = join('', | 32 | $text = join('', |