Apple-2gs-SW/hush
1
0
Fork 0
mirror of https://github.com/sheumann/hush.git synced 2024-12-22 14:30:31 +00:00
Code Issues Projects Releases Wiki Activity

I touched perl. I feel dirty.

Browse Source 
Make autodocifier suck less.  It still doesn't handle nested USE( USE() ) case
(the inner USE() winds up in the output), but making it recursive involves
getting perl to accept a "for" loop and it's telling me that "break" is an
unrecognized bareword and I hate perl.  This is at least an improvement.
This commit is contained in:
Rob Landley 2006-07-27 14:59:36 +00:00
parent eac0c06938
commit 277eb6bb44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/autodocifier.pl
View File

@ -21,8 +21,8 @@ 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_NOT\w+\(.*?"\s*\)//sxg; $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg;
$text =~ s/USAGE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg;
$text =~ s/"\s*"//sg; $text =~ s/"\s*"//sg;
my @line = split("\n", $text); my @line = split("\n", $text);
$text = join('', $text = join('',