+ if (exists($n{"outs"})) {
+ undef my @outs;
+ @outs = @{ $n{"outs"} };
+ push(@obst_proj, "\nenum pn_$op {\n");
+ for (my $idx = 0; $idx <= $#outs; $idx++) {
+ push(@obst_proj, " pn_$op\_".$outs[$idx]." = $idx,\n");
+ }
+ push(@obst_proj, "};\n");
+ $tuple = 1;
+ }
+