songsenand
/
cgal
mirror of https://github.com/CGAL/cgal
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- Added "\n" to avoid too long lines in the output.

This commit is contained in:
Sylvain Pion 1999-08-02 09:46:33 +00:00
parent 5e51170335
commit e0bb0bfb51
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Packages/Interval_arithmetic/examples/Interval_arithmetic/filtered_predicate_converter
View File

@ -321,7 +321,8 @@ sub match_calls_in_body {
while (/(\W)($pred_list_re)(\s*\()/sm) { while (/(\W)($pred_list_re)(\s*\()/sm) {
my $predicate_name = $2; my $predicate_name = $2;
my ($num_args, $before, $after) = extract_balanced ("(", ")", "(".$'); my ($num_args, $before, $after) = extract_balanced ("(", ")", "(".$');
$new_body .= "$`$1$2_SAF$before, epsilon_"; # We add "_SAF" to the predicate name # We add "_SAF" to the predicate name
$new_body .= "$`$1$2_SAF$before,\n\t\tepsilon_";
# Recognize the actual predicate, with same number of arguments. # Recognize the actual predicate, with same number of arguments.
my $p; my $p;
@ -336,7 +337,7 @@ sub match_calls_in_body {
# We add the epsilon arguments to the call in $new_body. # We add the epsilon arguments to the call in $new_body.
my $old_num_eps = $num_eps; my $old_num_eps = $num_eps;
$num_eps += @$p[$eps_pos]; $num_eps += @$p[$eps_pos];
$new_body.= join(", epsilon_", $old_num_eps..$num_eps-1); $new_body.= join(",\n\t\tepsilon_", $old_num_eps..$num_eps-1);
$_ = $after; $_ = $after;
} }