73 |
|
|
74 |
|
proc setradvar stmt { # assign a rad variable |
75 |
|
global radvar |
76 |
< |
regexp {^([a-zA-Z][a-zA-Z0-9]*) *= *(.*)$} $stmt dummy vnam vval |
76 |
> |
regexp {^([a-zA-Z][a-zA-Z0-9]*) *=[ ]*(.*)$} $stmt dummy vnam vval |
77 |
|
switch -glob $vnam { |
78 |
|
obj* { eval lappend radvar(objects) $vval } |
79 |
|
sce* { eval lappend radvar(scene) $vval } |
158 |
|
if {"$vl" == "all"} { |
159 |
|
catch {unset radvar} |
160 |
|
while {[gets $fi curli] != -1} { |
161 |
< |
if [regexp {^[a-zA-Z][a-zA-Z0-9]*= } $curli] { |
161 |
> |
if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] { |
162 |
|
setradvar $curli |
163 |
|
} else { |
164 |
|
break |