ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/do_file.tcl
(Generate patch)

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.13 by greg, Fri May 17 13:53:07 1996 UTC vs.
Revision 2.14 by greg, Wed Jul 10 11:48:58 1996 UTC

# Line 167 | Line 167 | proc load_vars {f {vl all}} {  # load RIF variables
167                  set curmess {Project loaded.}
168          } else {
169                  foreach n $vl {
170 <                        catch {unset radvar($n)}
170 >                        if [regexp {[a-z][a-z]*} $n] {
171 >                                set radvar($n) {}
172 >                        } else {
173 >                                catch {unset radvar($n)}
174 >                        }
175                  }
176                  while {[gets $fi curli] != -1} {
177                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines