summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdAH.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r--generic/tclCmdAH.c74
1 files changed, 37 insertions, 37 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 4326276..01e4a41 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.128 2010/12/09 15:09:07 dkf Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.129 2010/12/10 13:08:54 nijtmans Exp $
*/
#include "tclInt.h"
@@ -934,41 +934,41 @@ TclInitFileCmd(
*/
static const EnsembleImplMap initMap[] = {
- {"atime", FileAttrAccessTimeCmd},
- {"attributes", TclFileAttrsCmd},
- {"channels", TclChannelNamesCmd},
- {"copy", TclFileCopyCmd},
- {"delete", TclFileDeleteCmd},
- {"dirname", PathDirNameCmd},
- {"executable", FileAttrIsExecutableCmd},
- {"exists", FileAttrIsExistingCmd},
- {"extension", PathExtensionCmd},
- {"isdirectory", FileAttrIsDirectoryCmd},
- {"isfile", FileAttrIsFileCmd},
- {"join", PathJoinCmd},
- {"link", TclFileLinkCmd},
- {"lstat", FileAttrLinkStatCmd},
- {"mtime", FileAttrModifyTimeCmd},
- {"mkdir", TclFileMakeDirsCmd},
- {"nativename", PathNativeNameCmd},
- {"normalize", PathNormalizeCmd},
- {"owned", FileAttrIsOwnedCmd},
- {"pathtype", PathTypeCmd},
- {"readable", FileAttrIsReadableCmd},
- {"readlink", TclFileReadLinkCmd},
- {"rename", TclFileRenameCmd},
- {"rootname", PathRootNameCmd},
- {"separator", FilesystemSeparatorCmd},
- {"size", FileAttrSizeCmd},
- {"split", PathSplitCmd},
- {"stat", FileAttrStatCmd},
- {"system", PathFilesystemCmd},
- {"tail", PathTailCmd},
- {"tempfile", TclFileTemporaryCmd},
- {"type", FileAttrTypeCmd},
- {"volumes", FilesystemVolumesCmd},
- {"writable", FileAttrIsWritableCmd},
- {NULL}
+ {"atime", FileAttrAccessTimeCmd, NULL, NULL, NULL, 0},
+ {"attributes", TclFileAttrsCmd, NULL, NULL, NULL, 0},
+ {"channels", TclChannelNamesCmd, NULL, NULL, NULL, 0},
+ {"copy", TclFileCopyCmd, NULL, NULL, NULL, 0},
+ {"delete", TclFileDeleteCmd, NULL, NULL, NULL, 0},
+ {"dirname", PathDirNameCmd, NULL, NULL, NULL, 0},
+ {"executable", FileAttrIsExecutableCmd, NULL, NULL, NULL, 0},
+ {"exists", FileAttrIsExistingCmd, NULL, NULL, NULL, 0},
+ {"extension", PathExtensionCmd, NULL, NULL, NULL, 0},
+ {"isdirectory", FileAttrIsDirectoryCmd, NULL, NULL, NULL, 0},
+ {"isfile", FileAttrIsFileCmd, NULL, NULL, NULL, 0},
+ {"join", PathJoinCmd, NULL, NULL, NULL, 0},
+ {"link", TclFileLinkCmd, NULL, NULL, NULL, 0},
+ {"lstat", FileAttrLinkStatCmd, NULL, NULL, NULL, 0},
+ {"mtime", FileAttrModifyTimeCmd, NULL, NULL, NULL, 0},
+ {"mkdir", TclFileMakeDirsCmd, NULL, NULL, NULL, 0},
+ {"nativename", PathNativeNameCmd, NULL, NULL, NULL, 0},
+ {"normalize", PathNormalizeCmd, NULL, NULL, NULL, 0},
+ {"owned", FileAttrIsOwnedCmd, NULL, NULL, NULL, 0},
+ {"pathtype", PathTypeCmd, NULL, NULL, NULL, 0},
+ {"readable", FileAttrIsReadableCmd, NULL, NULL, NULL, 0},
+ {"readlink", TclFileReadLinkCmd, NULL, NULL, NULL, 0},
+ {"rename", TclFileRenameCmd, NULL, NULL, NULL, 0},
+ {"rootname", PathRootNameCmd, NULL, NULL, NULL, 0},
+ {"separator", FilesystemSeparatorCmd, NULL, NULL, NULL, 0},
+ {"size", FileAttrSizeCmd, NULL, NULL, NULL, 0},
+ {"split", PathSplitCmd, NULL, NULL, NULL, 0},
+ {"stat", FileAttrStatCmd, NULL, NULL, NULL, 0},
+ {"system", PathFilesystemCmd, NULL, NULL, NULL, 0},
+ {"tail", PathTailCmd, NULL, NULL, NULL, 0},
+ {"tempfile", TclFileTemporaryCmd, NULL, NULL, NULL, 0},
+ {"type", FileAttrTypeCmd, NULL, NULL, NULL, 0},
+ {"volumes", FilesystemVolumesCmd, NULL, NULL, NULL, 0},
+ {"writable", FileAttrIsWritableCmd, NULL, NULL, NULL, 0},
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
return TclMakeEnsemble(interp, "file", initMap);
}
@@ -1032,7 +1032,7 @@ TclMakeFileCommandSafe(
{"type", 1},
{"volumes", 1},
{"writable", 1},
- {NULL}
+ {NULL, 0}
};
int i;
Tcl_DString oldBuf, newBuf;