Changeset 1210

Timestamp:

Nov 5, 2008, 2:07:41 PM (16 years ago)

Author:

dkearney

Message:

minor parsing errors and comments for future version

File:

• trunk/gui/apps/simsim.in (modified) (5 diffs)

trunk/gui/apps/simsim.in

@@ -149 +149 @@
     set exDir [file join $toolDir "examples"]
     if {! [file isdirectory $exDir]} {
-        puts "could not find examples directory"
+        # in this case we should try to keep processing, not exit
+        puts "could not find examples directory: $exDir"
         exit 0
     }
@@ -213 +214 @@
 }
 
-proc defaultize {xmlobj} {
+proc defaultize {xmlobj toolDir} {
     set childList [$xmlobj children -as object input]
 
@@ -226 +227 @@
             string      { defaultHandler $child }
             choice      { defaultHandler $child }
-            loader      { loaderHandler  $child }
+            loader      { loaderHandler  $child $toolDir }
             structure   { defaultHandler $child }
             group       { set cclist [groupHandler $child]
@@ -626 +627 @@
         }
     } elseif {("-n" == $opt) || ("--nosim" == $opt)} {
-        incr i
         set params(--nosim) true
     } elseif {("-h" == $opt) || ("--help" == $opt)} {
@@ -658 +658 @@
 set installdir [file dirname $params(--tool)]
 
-switch -- $params(--values) {
-    random      { randomize presets $xmlobj $installdir }
-    current     { continue }
-    default     { defaultize $xmlobj }
-}
-
+# need a better way to do this,
+# maybe just take xmldiff functionality out of simsim
+if {(!$params(--nosim)) || ("" != $params(--driver))} {
+    switch -- $params(--values) {
+        random      { randomize presets $xmlobj $installdir }
+        current     { continue }
+        default     { defaultize $xmlobj $installdir }
+    }
+}
 
 if {"" != $params(--driver)} {