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

Comparing ray/src/util/do_action.tcl (file contents):
Revision 2.7 by greg, Tue Dec 6 19:36:21 1994 UTC vs.
Revision 2.8 by greg, Thu Oct 5 13:16:39 1995 UTC

# Line 174 | Line 174 | proc do_action w {             # Action screen
174          global rifname rvview rpview radvar bfname batch_pid \
175                          curmess scname mywin alldone batch_fmt hostname
176          if {"$w" == "done"} {
177 <                unset rpview bfname batch_pid mywin
177 >                unset rvview rpview bfname batch_pid mywin
178                  return
179          }
180          set bfname [file rootname [file tail $rifname]].err
# Line 225 | Line 225 | proc do_action w {             # Action screen
225          helplink $w.rbce trad action checkerr
226          if [file exists $bfname] {
227                  set fi [open $bfname r]
228 <                scan [gets $fi] $batch_fmt batch_pid batch_host
229 <                gets $fi radcom
228 >                if {[scan [gets $fi] $batch_fmt batch_pid batch_host] != 2} {
229 >                        set batch_host unknown
230 >                        set radcom {}
231 >                } else {
232 >                        gets $fi radcom
233 >                }
234                  close $fi
235                  if [string match "rad -v *" $radcom] {
236                          set rpview [lindex $radcom 2]

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines