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.11 by greg, Thu Sep 21 10:29:12 1995 UTC vs.
Revision 2.15 by gregl, Tue Aug 12 15:19:05 1997 UTC

# Line 3 | Line 3
3   # Choose the Rad Input File to work on.
4   #
5  
6 set rif_glob *.rif
7
6   proc preen {} {                 # clean up radvar
7          global radvar rifname
8          foreach n {objects scene materials illum mkillum render oconv pfilt
# Line 75 | Line 73 | proc preen {} {                        # clean up radvar
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 }
# Line 143 | Line 141 | proc putradvar {fi vn} {       # print out a rad variable
141   proc load_vars {f {vl all}} {   # load RIF variables
142          global curmess radvar alldone
143          if {"$f" == ""} {return 0}
144 <        if {! [file exists $f]} {
144 >        if {! [file isfile $f]} {
145                  beep
146                  set curmess "$f: no such file."
147                  return 0
# Line 160 | Line 158 | proc load_vars {f {vl all}} {  # load RIF variables
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
# Line 169 | 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] {
# Line 238 | Line 240 | proc newsave f {               # save a RIF
240                          return 0
241                  }
242          } elseif {[file exists $f]} {
243 +                set ftyp [file type $f]
244 +                if { $ftyp != "file" } {
245 +                        beep
246 +                        set curmess "Selected file $f is a $ftyp."
247 +                        return 0
248 +                }
249                  if [tk_dialog .dlg {Verification} \
250                                  "Overwrite existing file $f?" \
251                                  questhead 1 {Go Ahead} {Cancel}] {
252                          return 0
253                  }
254          }
255 <        if {[file exists $f] && ! [file writable $f] &&
255 >        if {[file isfile $f] && ! [file writable $f] &&
256                          [catch {exec chmod u+w $f} curmess]} {
257                  beep
258                  return 0
# Line 261 | Line 269 | proc newsave f {               # save a RIF
269   proc newnew f {                 # create a new RIF
270          global rifname readonly curmess radvar
271          if [file exists $f] {
272 +                set ftyp [file type $f]
273 +                if { $ftyp != "file" } {
274 +                        beep
275 +                        set curmess "Selected file $f is a $ftyp."
276 +                        return 0
277 +                }
278                  if [tk_dialog .dlg {Verification} \
279                                  "File $f exists -- disregard it?" \
280                                  questhead 1 {Yes} {Cancel}] {
# Line 278 | Line 292 | proc newnew f {                        # create a new RIF
292   }
293  
294   proc do_file w {
295 <        global rifname readonly rif_glob curfile curpat
295 >        global rifname readonly myglob curfile curpat
296          if {"$w" == "done"} {
297                  cd [file dirname $rifname]
298 <                set rif_glob $curpat
298 >                set myglob(rif) $curpat
299                  return
300          }
301          frame $w
# Line 302 | Line 316 | proc do_file w {
316          helplink $w.left.new trad file new
317          helplink $w.left.ro trad file readonly
318          getfile -view view_txt -perm \
319 <                        -win $w.right -glob [file dirname $rifname]/$rif_glob
319 >                        -win $w.right -glob [file dirname $rifname]/$myglob(rif)
320          set curfile [file tail $rifname]
321   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines