Changeset 31927 for branches/eam_branches/ipp-20110710/psModules/src/objects/mksource.pl

Timestamp:

Jul 22, 2011, 5:10:58 PM (15 years ago)

Author:

eugene

Message:

switch to consolidated, autocoded pmSourceIO_CMF files

File:

• branches/eam_branches/ipp-20110710/psModules/src/objects/mksource.pl (modified) (2 diffs)

branches/eam_branches/ipp-20110710/psModules/src/objects/mksource.pl

@@ -14 +14 @@
 
 # see if we can add in PS1_DV* and PS1_SV* as well...
-@cmfmodes = ("PS1_V1", 1,
+%cmfmodes = ("PS1_V1", 1,
              "PS1_V2", 2,
              "PS1_V3", 3);
+
+print "1: $cmfmodes{1}\n";
+print "PS1_V1: $cmfmodes{'PS1_V1'}\n";
 
 open (FILE, "$template") || die "failed to open template $template\n";
@@ -50 +53 @@
 
     if ($gtMode) {
+        # print "gtMode : $line\n";
         $thisLevel = $cmfmodes{$gtMode};
         $myLevel = $cmfmodes{$cmfmode};
-        if ($thisLevel <= $myLevel) { next; }
-        $line =~ s|\@<\S*\@\s*||;
+        print "gtMode : $gtMode vs $cmfmode, $thisLevel, $myLevel\n";
+        if ($myLevel <= $thisLevel) { next; }
+        $line =~ s|\@>\S*\@\s*||;
     }
 
     if ($ltMode) {
+        # print "ltMode : $line\n";
         $thisLevel = $cmfmodes{$ltMode};
         $myLevel = $cmfmodes{$cmfmode};
-        if ($thisLevel >= $myLevel) { next; }
-        $line =~ s|\@>\S*\@\s*||;
+        print "ltMode : $ltMode vs $cmfmode, $thisLevel, $myLevel\n";
+        if ($myLevel >= $thisLevel) { next; }
+        $line =~ s|\@<\S*\@\s*||;
     }