diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-09-12 19:22:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-09-12 19:22:12 (GMT) |
| commit | 03b067073f91c9f11e8759274ed179bdd2514ba5 (patch) | |
| tree | fed2d1b85e7ddc8fefad4197e79e44ff36d1979d /generic/tclPathObj.c | |
| parent | 0f853031fb5b9551dd0e096bc17f598537ebc532 (diff) | |
| parent | e8b480af282e864a1aa89ad3d3d6d092fcec934d (diff) | |
| download | tcl-03b067073f91c9f11e8759274ed179bdd2514ba5.zip tcl-03b067073f91c9f11e8759274ed179bdd2514ba5.tar.gz tcl-03b067073f91c9f11e8759274ed179bdd2514ba5.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclPathObj.c')
| -rw-r--r-- | generic/tclPathObj.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 33c9f77..b91c250 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -30,6 +30,9 @@ static int IsSeparatorOrNull(int ch); static Tcl_Obj * GetExtension(Tcl_Obj *pathPtr); static int MakePathFromNormalized(Tcl_Interp *interp, Tcl_Obj *pathPtr); +static int MakeTildeRelativePath(Tcl_Interp *interp, + const char *user, const char *subPath, + Tcl_DString *dsPtr); /* * Define the 'path' object type, which Tcl uses to represent file paths |