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.1 by greg, Thu Oct 27 15:56:06 1994 UTC vs.
Revision 2.2 by greg, Thu Dec 1 09:53:55 1994 UTC

# Line 273 | Line 273 | proc newnew f {                        # create a new RIF
273   proc do_file w {
274          global rifname readonly rif_glob curfile curpat
275          if {"$w" == "done"} {
276 +                cd [file dirname $rifname]
277                  set rif_glob $curpat
278                  return
279          }

Diff Legend

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