306 |
### End Comment handling ### |
### End Comment handling ### |
307 |
$keep_atom = 0; |
$keep_atom = 0; |
308 |
$matched = 0; |
$matched = 0; |
309 |
|
my $atom = $out_atoms[$item]; |
310 |
foreach (@{$templates{$template_name}{rules}}) { |
foreach (@{$templates{$template_name}{rules}}) { |
|
my $atom = $out_atoms[$item]; |
|
311 |
eval ( $_ ); |
eval ( $_ ); |
312 |
$@ and die qq(error while applying the rule '$_' to '$in' : $@); |
$@ and die qq(error while applying the rule '$_' to '$in' : $@); |
313 |
# $next_item = $matched && !$keep_atom; |
# $next_item = $matched && !$keep_atom; |
318 |
push @{$out_atoms[$item]->{invalid}}, $in; |
push @{$out_atoms[$item]->{invalid}}, $in; |
319 |
print "\nLibconf.pm warning: can't parse line n°" . $line_idx . " :\n$in\n"; |
print "\nLibconf.pm warning: can't parse line n°" . $line_idx . " :\n$in\n"; |
320 |
} |
} |
321 |
$keep_atom or $item++; |
# $keep_atom or $item++; |
322 |
|
$matched && !$keep_atom and $item++; |
323 |
# if (!$keep_atom) { |
# if (!$keep_atom) { |
324 |
# $item++; |
# $item++; |
325 |
# $next_item = 0; |
# $next_item = 0; |