Tcl: cd back to previous directory

Question

On Unix, cd - can switch back to previous directory. I was wondering if there's a similar command in tcl interpreter can do the same?

score 4 · Answer 1 · answered Feb 04 '13 at 10:17

Tcl doesn't maintain a directory history/stack by default; you'd have to add one. You can do that in pure Tcl though:

rename cd real_cd
variable old_dir [pwd]
proc cd {directory} {
    variable old_dir
    if {$directory eq "-"} {
        set directory $old_dir
    }
    set old_dir [pwd]
    real_cd $directory
}

This is a very simple version that only remembers the last location, but everything else can be built on top in the same way.

score 3 · Accepted Answer · answered Feb 04 '13 at 09:58

No, there is no directory stack in Tcl, and previous directory is not remembered anywhere.

TclX provides pushd and popd commands for directory stack, but it does not modify cd command to put anything there. It can be done by command wrapping and renaming, but I wouldn't recommend it for something that can be used in a script (at least, don't override semantics of cd -).

Tcl: cd back to previous directory

2 Answers2