12 my ($line, $e, @fields, $field);
14 while (defined($line = <>)) {
16 if ($line =~ "^ *\$") {
19 @fields = split(" ", $line);
20 while (defined(($field = shift(@fields)))) {
21 if ($field =~ ":\$") {
24 push(@executables, $e);
27 $matrix{$e . ">" . $field} = 1;
33 sub print_safe_objects
35 my @objs = keys(%objects);
39 print("#ifdef MAIN_INPUT_FILE_IS_$o1\n");
40 O2: foreach $o2 (@objs) {
41 foreach $e (@executables) {
42 if (!defined($matrix{$e . ">" . $o1})) {
45 if (defined($matrix{$e . ">" . $o2})) {
52 printf("SS_ENUM(%s);\n", $_);