[ViewVC] Diff of: radiance/ray/src/util/util.tcl

Comparing ray/src/util/util.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:12 1994 UTC vs.
Revision 2.2 by greg, Sun Oct 30 08:33:02 1994 UTC

+        return {} ;             # this would seem to be an error
-+
-+
+proc writevars {f vl} {         # write variables to a file
-+
+        foreach v $vl {
-+
+                upvar $v myv
-+
+                if [catch {set il [array names myv]}] {
-+
+                        puts $f "set $v [list $myv]"
-+
+                } else {
-+
+                        foreach i $il {
-+
+                                puts $f "set ${v}($i) [list $myv($i)]"
-+
+                        }
-+
+                }
-+
+        }
-+
+}

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines