blob: d7b1d06ad04f26f38d37f8c9d4182acc2e80b60a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# FileCmpt.tcl --
#
# File access portibility routines.
#
# Copyright (c) 1996, Expert Interface Technologies
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# Internal file names
# (1) Idempotent: [tixFileIntName $intName] == $intName
# (2) Does not contain "~", "..", "."
# (3) All DOS type C:foo will be translated to absoulte path such as
# /\C:\windows\foo
# (4) Does not contail trailing "/" or "\\" characters
#
proc tixFileResolveName {nativeName {defParent ""}} {
if {$defParent != ""} {
return [tixNativeName [tixFileIntName $nativeName [tixFileIntName $defParent]]]
} else {
return [tixNativeName [tixFileIntName $nativeName]]
}
}
proc tixNSubFolder {parent sub} {
return [tixNativeName [tixSubFolder \
[tixFileIntName $parent] [tixFileIntName $sub]]]
}
|