diff options
| author | fukachan <fukachan> | 2006-03-20 06:05:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-03-20 06:05:25 +0000 |
| commit | 3349792e5606b6129d7deb1dfa975e7d7f287217 (patch) | |
| tree | 82db1e6301ce0efaaf867c889552f3d784f65edb /regress | |
| parent | 119421ef4f6052a993ce0121dc5c40da8012be7c (diff) | |
| download | fml8-3349792e5606b6129d7deb1dfa975e7d7f287217.tar.gz fml8-3349792e5606b6129d7deb1dfa975e7d7f287217.tar.bz2 fml8-3349792e5606b6129d7deb1dfa975e7d7f287217.zip | |
support .ok rule
Diffstat (limited to 'regress')
| -rwxr-xr-x | regress/fml4to8/gen_rules.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/regress/fml4to8/gen_rules.pl b/regress/fml4to8/gen_rules.pl index fffb0955..eeb93307 100755 --- a/regress/fml4to8/gen_rules.pl +++ b/regress/fml4to8/gen_rules.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML: gen_rules.pl,v 1.7 2006/01/04 07:50:02 fukachan Exp $ +# $FML: gen_rules.pl,v 1.8 2006/03/08 13:35:27 fukachan Exp $ # use strict; @@ -54,6 +54,9 @@ sub _parse_rule_file next LINE if $buf =~ /^\s*$/o; next LINE if $buf =~ /^\#/o; + # o.k. + next LINE if $buf =~ /^\.ok/o; + if ($buf =~ /^\.if\s+(\S+)/o) { $var_name = sprintf("%s_%s", $var_count++, $1); $var_rules->{ $var_name } .= $buf; |