Subversion Repositories or1k

# 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

}