path.tcl

来自「windows下的GDB insight前端」· TCL 代码 · 共 21 行

# path.tcl - Path-handling helpers.
# Copyright (C) 1998 Cygnus Solutions.
# Written by Tom Tromey <[e-mail]>.

# 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
}