diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-08-06 03:12:49 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-08-06 03:12:49 (GMT) |
| commit | 90b60f208406b3811bad8f7327b663239fd1eea7 (patch) | |
| tree | 8ec303940d6d62b3b8cb7bd7b183d65a3a33cf1e /generic/tclInt.h | |
| parent | 6fa6c0b20139268bc5455dcdd3172b187b375476 (diff) | |
| download | tcl-90b60f208406b3811bad8f7327b663239fd1eea7.zip tcl-90b60f208406b3811bad8f7327b663239fd1eea7.tar.gz tcl-90b60f208406b3811bad8f7327b663239fd1eea7.tar.bz2 | |
Added file home command for (possible) Tcl 9 TIP 602 migration
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index ac6fb54..782eadb 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2976,6 +2976,7 @@ MODULE_SCOPE Tcl_ObjCmdProc TclFileReadLinkCmd; MODULE_SCOPE Tcl_ObjCmdProc TclFileRenameCmd; MODULE_SCOPE Tcl_ObjCmdProc TclFileTempDirCmd; MODULE_SCOPE Tcl_ObjCmdProc TclFileTemporaryCmd; +MODULE_SCOPE Tcl_ObjCmdProc TclFileHomeCmd; MODULE_SCOPE void TclCreateLateExitHandler(Tcl_ExitProc *proc, ClientData clientData); MODULE_SCOPE void TclDeleteLateExitHandler(Tcl_ExitProc *proc, @@ -3083,6 +3084,12 @@ MODULE_SCOPE int TclIsDigitProc(int byte); MODULE_SCOPE int TclIsBareword(int byte); MODULE_SCOPE Tcl_Obj * TclJoinPath(int elements, Tcl_Obj * const objv[], int forceRelative); +MODULE_SCOPE int TclGetHomeDir(Tcl_Interp *interp, const char *user, + Tcl_DString *dsPtr); +MODULE_SCOPE Tcl_Obj * TclGetHomeDirObj(Tcl_Interp *interp, const char *user); +MODULE_SCOPE Tcl_Obj * TclResolveTildePath(Tcl_Interp *interp, + Tcl_Obj *pathObj); +MODULE_SCOPE Tcl_Obj * TclResolveTildePathList(Tcl_Obj *pathsObj); MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int *result); MODULE_SCOPE void TclLimitRemoveAllHandlers(Tcl_Interp *interp); MODULE_SCOPE Tcl_Obj * TclLindexList(Tcl_Interp *interp, |