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.17 by greg, Sat Feb 22 02:07:30 2003 UTC vs.
Revision 2.18 by greg, Wed Feb 16 05:40:12 2005 UTC

# Line 153 | Line 153 | proc load_vars {f {vl all}} {  # load RIF variables
153          if {"$vl" == "all" && ! [chksave]} {return 0}
154          set curmess {Please wait...}
155          update
156 <        if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] {
157 <                set curmess [exec cat /usr/tmp/ro[pid]]
158 <                exec rm -f /usr/tmp/ro[pid]
156 >        if [catch {exec rad -n -w -e $f >& /tmp/ro[pid]}] {
157 >                set curmess [exec cat /tmp/ro[pid]]
158 >                exec rm -f /tmp/ro[pid]
159                  return 0
160          }
161 <        set fi [open /usr/tmp/ro[pid] r]
161 >        set fi [open /tmp/ro[pid] r]
162          if {"$vl" == "all"} {
163                  catch {unset radvar}
164                  while {[gets $fi curli] != -1} {
# Line 191 | Line 191 | proc load_vars {f {vl all}} {  # load RIF variables
191          }
192          set alldone [eof $fi]
193          close $fi
194 <        exec rm -f /usr/tmp/ro[pid]
194 >        exec rm -f /tmp/ro[pid]
195          preen
196          return 1
197   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines