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.8 by greg, Wed May 17 15:55:06 1995 UTC vs.
Revision 2.12 by greg, Tue Oct 17 21:28:20 1995 UTC

# Line 8 | Line 8 | set rif_glob *.rif
8   proc preen {} {                 # clean up radvar
9          global radvar rifname
10          foreach n {objects scene materials illum mkillum render oconv pfilt
11 <                        AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
11 >                        RAWFILE ZFILE AMBFILE OPTFILE EXPOSURE ZONE REPORT} {
12                  if {! [info exists radvar($n)]} {
13                          set radvar($n) {}
14                  }
# Line 100 | Line 100 | proc setradvar stmt {          # assign a rad variable
100                  PEN* { set radvar(PENUMBRAS) $vval }
101                  VAR* { set radvar(VARIABILITY) $vval }
102                  REP* { set radvar(REPORT) $vval }
103 +                RAW* { set radvar(RAWFILE) $vval }
104 +                ZF* {set radvar(ZFILE) $vval }
105          }
106                  
107   }
# Line 119 | Line 121 | proc putradvar {fi vn} {       # print out a rad variable
121          }
122          if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
123                          EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
124 <                        VARIABILITY REPORT} $vn] >= 0} {
124 >                        RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
125                  puts $fi "$vn= $radvar($vn)"
126                  return
127          }
# Line 141 | Line 143 | proc putradvar {fi vn} {       # print out a rad variable
143   proc load_vars {f {vl all}} {   # load RIF variables
144          global curmess radvar alldone
145          if {"$f" == ""} {return 0}
146 <        if {! [file exists $f]} {
146 >        if {! [file isfile $f]} {
147                  beep
148                  set curmess "$f: no such file."
149                  return 0
# Line 236 | Line 238 | proc newsave f {               # save a RIF
238                          return 0
239                  }
240          } elseif {[file exists $f]} {
241 +                set ftyp [file type $f]
242 +                if { $ftyp != "file" } {
243 +                        beep
244 +                        set curmess "Selected file $f is a $ftyp."
245 +                        return 0
246 +                }
247                  if [tk_dialog .dlg {Verification} \
248                                  "Overwrite existing file $f?" \
249                                  questhead 1 {Go Ahead} {Cancel}] {
250                          return 0
251                  }
252          }
253 <        if {[file exists $f] && ! [file writable $f] &&
253 >        if {[file isfile $f] && ! [file writable $f] &&
254                          [catch {exec chmod u+w $f} curmess]} {
255                  beep
256                  return 0
# Line 259 | Line 267 | proc newsave f {               # save a RIF
267   proc newnew f {                 # create a new RIF
268          global rifname readonly curmess radvar
269          if [file exists $f] {
270 +                set ftyp [file type $f]
271 +                if { $ftyp != "file" } {
272 +                        beep
273 +                        set curmess "Selected file $f is a $ftyp."
274 +                        return 0
275 +                }
276                  if [tk_dialog .dlg {Verification} \
277                                  "File $f exists -- disregard it?" \
278                                  questhead 1 {Yes} {Cancel}] {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines