Changeset 5029 for branches/uq/lang/tcl/scripts/library.tcl

Timestamp:

Feb 17, 2015 5:49:36 PM (9 years ago)

Author:

mmh

Message:

puq integration snap

File:

• branches/uq/lang/tcl/scripts/library.tcl (modified) (3 diffs)

branches/uq/lang/tcl/scripts/library.tcl

@@ -215 +215 @@
     public method remove {{path ""}}
     public method xml {{path ""}}
+    public method uq_make_template {}
 
     public method diff {libobj}
@@ -228 +229 @@
     private variable _root 0       ;# non-zero => this obj owns document
     private variable _document ""  ;# XML DOM tree
-    private variable _node ""      ;# node within 
+    private variable _node ""      ;# node within
 }
 
@@ -1038 +1039 @@
     return $rlist
 }
+
+
+# FIXME: get units convert. change varlist to have no units
+itcl::body Rappture::LibraryObj::uq_make_template {} {
+    set varlist ""
+    set n [$_node selectNodes /run/input//number]
+    foreach _n $n {
+        set x [$_n selectNodes current/text()]
+        set val [$x nodeValue]
+        if {[string equal -length 8 $val "uniform "] ||
+            [string equal -length 9 $val "gaussian "]} {
+            set unode [$_n selectNodes units/text()]
+            if {"" != $unode} {
+                set units [$unode nodeValue]
+                set val [Rappture::Units::mconvert $val \
+                -context $units -to $units -units off]
+            }
+            $x nodeValue @@[$_n getAttribute id]
+            lappend varlist [list [$_n getAttribute id] $val]
+        }
+    }
+    return $varlist
+}