+ # define some proj numbers
+ if (exists($n{"outs"})) {
+ undef my @outs;
+
+ @outs = @{ $n{"outs"} };
+ $num_outs = $#outs + 1;
+
+ push(@obst_proj, "\nenum pn_$op {\n");
+
+ for (my $idx = 0; $idx <= $#outs; $idx++) {
+ # check, if we have additional flags annotated to out
+ if ($outs[$idx] =~ /:(S|I(\|(S|I))*)/) {
+ push(@out_flags, $1);
+ $outs[$idx] =~ s/:(S|I(\|(S|I))*)//;
+ }
+ push(@obst_proj, " pn_$op\_".$outs[$idx]." = $idx,\n");
+ }
+
+ push(@obst_proj, "};\n");
+ $tuple = 1;
+ }
+