21 lines
596 B
Tcl
21 lines
596 B
Tcl
|
# path.tcl - Path-handling helpers.
|
||
|
|
# Copyright (C) 1998 Cygnus Solutions.
|
||
|
|
# Written by Tom Tromey <tromey@cygnus.com>.
|
||
|
|
|
||
|
|
# This proc takes a possibly relative path and expands it to the
|
||
|
|
# corresponding fully qualified path. Additionally, on Windows the
|
||
|
|
# result is guaranteed to be in "long" form.
|
||
|
|
proc canonical_path {path} {
|
||
|
|
global tcl_platform
|
||
|
|
|
||
|
|
set r [file join [pwd] $path]
|
||
|
|
if {$tcl_platform(platform) == "windows"} then {
|
||
|
|
# This will fail if the file does not already exist.
|
||
|
|
if {! [catch {file attributes $r -longname} long]} then {
|
||
|
|
set r $long
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $r
|
||
|
|
}
|