diff options
| author | fukachan <fukachan> | 2003-03-06 04:19:39 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-06 04:19:39 +0000 |
| commit | 6e0bc3bb5deb41287d2000940be0c2d9b20c23d1 (patch) | |
| tree | bc8b52760f215917506e359ff408f0cdd1475937 | |
| parent | 26a13e30321c8a6a732554565b6c16113b06bd2e (diff) | |
| download | fml8-6e0bc3bb5deb41287d2000940be0c2d9b20c23d1.tar.gz fml8-6e0bc3bb5deb41287d2000940be0c2d9b20c23d1.tar.bz2 fml8-6e0bc3bb5deb41287d2000940be0c2d9b20c23d1.zip | |
filter $curproc->util TODO temporarily
| -rwxr-xr-x | regress/simulation/.gen_todo.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/regress/simulation/.gen_todo.pl b/regress/simulation/.gen_todo.pl index 30d31ba6..2dc7a1d1 100755 --- a/regress/simulation/.gen_todo.pl +++ b/regress/simulation/.gen_todo.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML$ +# $FML: .gen_todo.pl,v 1.1 2003/01/11 16:10:03 fukachan Exp $ # use strict; @@ -9,6 +9,7 @@ use Carp; my $function; my $todo = {}; my $KEY = "__FILE_GLOBAL__"; +my $all = 0; while (<>) { if (/^sub (\S+)/o) { @@ -19,6 +20,8 @@ while (<>) { $function = $KEY; } + next if /XXX-TODO.*curproc->util->/ && (! $all); + if (/(XXX-TODO:|XXX-TODO)\s*(.*)\s*$/o) { my ($xtodo) = $2; $todo->{ $ARGV }->{ $function } .= "\t". $xtodo . "\n"; |