diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-07-31 11:54:14 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-07-31 11:54:14 (GMT) |
| commit | 515f8ab0440b2d4cb6411790c2c08210cadfee6a (patch) | |
| tree | 5f85e0db518c62abc09ba9dcf9405773475c5c2e /generic/tclCmdAH.c | |
| parent | d2518017c7f55b82f10c7ee1e77cbe27218cc857 (diff) | |
| download | tcl-515f8ab0440b2d4cb6411790c2c08210cadfee6a.zip tcl-515f8ab0440b2d4cb6411790c2c08210cadfee6a.tar.gz tcl-515f8ab0440b2d4cb6411790c2c08210cadfee6a.tar.bz2 | |
Add 'file home' command
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 41ab339..48b90bc 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -1042,6 +1042,7 @@ TclInitFileCmd( {"executable", FileAttrIsExecutableCmd, TclCompileBasic1ArgCmd, NULL, NULL, 1}, {"exists", FileAttrIsExistingCmd, TclCompileBasic1ArgCmd, NULL, NULL, 1}, {"extension", PathExtensionCmd, TclCompileBasic1ArgCmd, NULL, NULL, 1}, + {"home", TclFileHomeCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 0}, {"isdirectory", FileAttrIsDirectoryCmd, TclCompileBasic1ArgCmd, NULL, NULL, 1}, {"isfile", FileAttrIsFileCmd, TclCompileBasic1ArgCmd, NULL, NULL, 1}, {"join", PathJoinCmd, TclCompileBasicMin1ArgCmd, NULL, NULL, 0}, |