summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog11
-rw-r--r--generic/tclBinary.c41
-rw-r--r--generic/tclCmdAH.c74
-rw-r--r--generic/tclCmdIL.c52
-rw-r--r--generic/tclCmdMZ.c48
-rw-r--r--generic/tclDictObj.c42
-rw-r--r--generic/tclIOCmd.c42
-rw-r--r--generic/tclIndexObj.c10
-rw-r--r--generic/tclVar.c26
9 files changed, 179 insertions, 167 deletions
diff --git a/ChangeLog b/ChangeLog
index 5f6c6bb..afc4c7e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2010-12-10 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * generic/tclBinary.c: Fix gcc -Wextra warning: missing initializer
+ * generic/tclCmdAH.c:
+ * generic/tclCmdIL.c:
+ * generic/tclCmdMZ.c:
+ * generic/tclDictObj.c:
+ * generic/tclIndexObj.c:
+ * generic/tclIOCmd.c:
+ * generic/tclVar.c:
+
2010-12-09 Donal K. Fellows <dkf@users.sf.net>
* tests/fCmd.test: Improve sanity of constraints now that we don't
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 6036f31..b9af8c3 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.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: tclBinary.c,v 1.68 2010/12/06 09:01:49 nijtmans Exp $
+ * RCS: @(#) $Id: tclBinary.c,v 1.69 2010/12/10 13:08:54 nijtmans Exp $
*/
#include "tclInt.h"
@@ -691,29 +691,30 @@ TclAppendBytesToByteArray(
*----------------------------------------------------------------------
*/
+static const EnsembleImplMap binaryMap[] = {
+{ "format", BinaryFormatCmd, NULL, NULL, NULL, 0 },
+{ "scan", BinaryScanCmd, NULL, NULL, NULL, 0 },
+{ "encode", NULL, NULL, NULL, NULL, 0 },
+{ "decode", NULL, NULL, NULL, NULL, 0 },
+{ NULL, NULL, NULL, NULL, NULL, 0 }
+};
+static const EnsembleImplMap encodeMap[] = {
+{ "hex", BinaryEncodeHex, NULL, NULL, (ClientData)HexDigits, 0 },
+{ "uuencode", BinaryEncode64, NULL, NULL, (ClientData)UueDigits, 0 },
+{ "base64", BinaryEncode64, NULL, NULL, (ClientData)B64Digits, 0 },
+{ NULL, NULL, NULL, NULL, NULL, 0 }
+};
+static const EnsembleImplMap decodeMap[] = {
+{ "hex", BinaryDecodeHex, NULL, NULL, NULL, 0 },
+{ "uuencode", BinaryDecodeUu, NULL, NULL, NULL, 0 },
+{ "base64", BinaryDecode64, NULL, NULL, NULL, 0 },
+{ NULL, NULL, NULL, NULL, NULL, 0 }
+};
+
Tcl_Command
TclInitBinaryCmd(
Tcl_Interp *interp)
{
- const EnsembleImplMap binaryMap[] = {
- { "format", BinaryFormatCmd, NULL, NULL ,NULL },
- { "scan", BinaryScanCmd, NULL,NULL ,NULL },
- { "encode", NULL, NULL, NULL, NULL },
- { "decode", NULL, NULL, NULL, NULL },
- { NULL, NULL, NULL, NULL, NULL }
- };
- const EnsembleImplMap encodeMap[] = {
- { "hex", BinaryEncodeHex, NULL, NULL, (ClientData)HexDigits },
- { "uuencode", BinaryEncode64, NULL, NULL, (ClientData)UueDigits },
- { "base64", BinaryEncode64, NULL, NULL, (ClientData)B64Digits },
- { NULL, NULL, NULL, NULL, NULL }
- };
- const EnsembleImplMap decodeMap[] = {
- { "hex", BinaryDecodeHex, NULL, NULL, NULL },
- { "uuencode", BinaryDecodeUu, NULL, NULL, NULL },
- { "base64", BinaryDecode64, NULL, NULL, NULL },
- { NULL, NULL, NULL, NULL, NULL }
- };
Tcl_Command binaryEnsemble;
binaryEnsemble = TclMakeEnsemble(interp, "binary", binaryMap);
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;
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 5ff71a5..8872a7b 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.185 2010/09/27 19:42:38 msofer Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.186 2010/12/10 13:08:53 nijtmans Exp $
*/
#include "tclInt.h"
@@ -160,31 +160,31 @@ static Tcl_Obj * SelectObjFromSublist(Tcl_Obj *firstPtr,
*/
static const EnsembleImplMap defaultInfoMap[] = {
- {"args", InfoArgsCmd, NULL, NULL, NULL},
- {"body", InfoBodyCmd, NULL, NULL, NULL},
- {"cmdcount", InfoCmdCountCmd, NULL, NULL, NULL},
- {"commands", InfoCommandsCmd, NULL, NULL, NULL},
- {"complete", InfoCompleteCmd, NULL, NULL, NULL},
- {"coroutine", TclInfoCoroutineCmd, NULL, NULL, NULL},
- {"default", InfoDefaultCmd, NULL, NULL, NULL},
- {"errorstack", InfoErrorStackCmd, NULL, NULL, NULL},
- {"exists", TclInfoExistsCmd, TclCompileInfoExistsCmd, NULL, NULL},
- {"frame", InfoFrameCmd, NULL, NULL, NULL},
- {"functions", InfoFunctionsCmd, NULL, NULL, NULL},
- {"globals", TclInfoGlobalsCmd, NULL, NULL, NULL},
- {"hostname", InfoHostnameCmd, NULL, NULL, NULL},
- {"level", InfoLevelCmd, NULL, NULL, NULL},
- {"library", InfoLibraryCmd, NULL, NULL, NULL},
- {"loaded", InfoLoadedCmd, NULL, NULL, NULL},
- {"locals", TclInfoLocalsCmd, NULL, NULL, NULL},
- {"nameofexecutable", InfoNameOfExecutableCmd, NULL, NULL, NULL},
- {"patchlevel", InfoPatchLevelCmd, NULL, NULL, NULL},
- {"procs", InfoProcsCmd, NULL, NULL, NULL},
- {"script", InfoScriptCmd, NULL, NULL, NULL},
- {"sharedlibextension", InfoSharedlibCmd, NULL, NULL, NULL},
- {"tclversion", InfoTclVersionCmd, NULL, NULL, NULL},
- {"vars", TclInfoVarsCmd, NULL, NULL, NULL},
- {NULL, NULL, NULL, NULL, NULL}
+ {"args", InfoArgsCmd, NULL, NULL, NULL, 0},
+ {"body", InfoBodyCmd, NULL, NULL, NULL, 0},
+ {"cmdcount", InfoCmdCountCmd, NULL, NULL, NULL, 0},
+ {"commands", InfoCommandsCmd, NULL, NULL, NULL, 0},
+ {"complete", InfoCompleteCmd, NULL, NULL, NULL, 0},
+ {"coroutine", TclInfoCoroutineCmd, NULL, NULL, NULL, 0},
+ {"default", InfoDefaultCmd, NULL, NULL, NULL, 0},
+ {"errorstack", InfoErrorStackCmd, NULL, NULL, NULL, 0},
+ {"exists", TclInfoExistsCmd, TclCompileInfoExistsCmd, NULL, NULL, 0},
+ {"frame", InfoFrameCmd, NULL, NULL, NULL, 0},
+ {"functions", InfoFunctionsCmd, NULL, NULL, NULL, 0},
+ {"globals", TclInfoGlobalsCmd, NULL, NULL, NULL, 0},
+ {"hostname", InfoHostnameCmd, NULL, NULL, NULL, 0},
+ {"level", InfoLevelCmd, NULL, NULL, NULL, 0},
+ {"library", InfoLibraryCmd, NULL, NULL, NULL, 0},
+ {"loaded", InfoLoadedCmd, NULL, NULL, NULL, 0},
+ {"locals", TclInfoLocalsCmd, NULL, NULL, NULL, 0},
+ {"nameofexecutable", InfoNameOfExecutableCmd, NULL, NULL, NULL, 0},
+ {"patchlevel", InfoPatchLevelCmd, NULL, NULL, NULL, 0},
+ {"procs", InfoProcsCmd, NULL, NULL, NULL, 0},
+ {"script", InfoScriptCmd, NULL, NULL, NULL, 0},
+ {"sharedlibextension", InfoSharedlibCmd, NULL, NULL, NULL, 0},
+ {"tclversion", InfoTclVersionCmd, NULL, NULL, NULL, 0},
+ {"vars", TclInfoVarsCmd, NULL, NULL, NULL, 0},
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
/*
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index fbe8eac..c36cd8b 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.215 2010/11/03 11:08:21 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.216 2010/12/10 13:08:53 nijtmans Exp $
*/
#include "tclInt.h"
@@ -3346,29 +3346,29 @@ TclInitStringCmd(
Tcl_Interp *interp) /* Current interpreter. */
{
static const EnsembleImplMap stringImplMap[] = {
- {"bytelength", StringBytesCmd, NULL, NULL, NULL},
- {"compare", StringCmpCmd, TclCompileStringCmpCmd, NULL, NULL},
- {"equal", StringEqualCmd, TclCompileStringEqualCmd, NULL, NULL},
- {"first", StringFirstCmd, NULL, NULL, NULL},
- {"index", StringIndexCmd, TclCompileStringIndexCmd, NULL, NULL},
- {"is", StringIsCmd, NULL, NULL, NULL},
- {"last", StringLastCmd, NULL, NULL, NULL},
- {"length", StringLenCmd, TclCompileStringLenCmd, NULL, NULL},
- {"map", StringMapCmd, NULL, NULL, NULL},
- {"match", StringMatchCmd, TclCompileStringMatchCmd, NULL, NULL},
- {"range", StringRangeCmd, NULL, NULL, NULL},
- {"repeat", StringReptCmd, NULL, NULL, NULL},
- {"replace", StringRplcCmd, NULL, NULL, NULL},
- {"reverse", StringRevCmd, NULL, NULL, NULL},
- {"tolower", StringLowerCmd, NULL, NULL, NULL},
- {"toupper", StringUpperCmd, NULL, NULL, NULL},
- {"totitle", StringTitleCmd, NULL, NULL, NULL},
- {"trim", StringTrimCmd, NULL, NULL, NULL},
- {"trimleft", StringTrimLCmd, NULL, NULL, NULL},
- {"trimright", StringTrimRCmd, NULL, NULL, NULL},
- {"wordend", StringEndCmd, NULL, NULL, NULL},
- {"wordstart", StringStartCmd, NULL, NULL, NULL},
- {NULL, NULL, NULL, NULL, NULL}
+ {"bytelength", StringBytesCmd, NULL, NULL, NULL, 0},
+ {"compare", StringCmpCmd, TclCompileStringCmpCmd, NULL, NULL, 0},
+ {"equal", StringEqualCmd, TclCompileStringEqualCmd, NULL, NULL, 0},
+ {"first", StringFirstCmd, NULL, NULL, NULL, 0},
+ {"index", StringIndexCmd, TclCompileStringIndexCmd, NULL, NULL, 0},
+ {"is", StringIsCmd, NULL, NULL, NULL, 0},
+ {"last", StringLastCmd, NULL, NULL, NULL, 0},
+ {"length", StringLenCmd, TclCompileStringLenCmd, NULL, NULL, 0},
+ {"map", StringMapCmd, NULL, NULL, NULL, 0},
+ {"match", StringMatchCmd, TclCompileStringMatchCmd, NULL, NULL, 0},
+ {"range", StringRangeCmd, NULL, NULL, NULL, 0},
+ {"repeat", StringReptCmd, NULL, NULL, NULL, 0},
+ {"replace", StringRplcCmd, NULL, NULL, NULL, 0},
+ {"reverse", StringRevCmd, NULL, NULL, NULL, 0},
+ {"tolower", StringLowerCmd, NULL, NULL, NULL, 0},
+ {"toupper", StringUpperCmd, NULL, NULL, NULL, 0},
+ {"totitle", StringTitleCmd, NULL, NULL, NULL, 0},
+ {"trim", StringTrimCmd, NULL, NULL, NULL, 0},
+ {"trimleft", StringTrimLCmd, NULL, NULL, NULL, 0},
+ {"trimright", StringTrimRCmd, NULL, NULL, NULL, 0},
+ {"wordend", StringEndCmd, NULL, NULL, NULL, 0},
+ {"wordstart", StringStartCmd, NULL, NULL, NULL, 0},
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
return TclMakeEnsemble(interp, "string", stringImplMap);
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index 6a17b02..358b313 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDictObj.c,v 1.84 2010/08/22 18:53:26 nijtmans Exp $
+ * RCS: @(#) $Id: tclDictObj.c,v 1.85 2010/12/10 13:08:53 nijtmans Exp $
*/
#include "tclInt.h"
@@ -87,26 +87,26 @@ static int DictForLoopCallback(ClientData data[],
*/
static const EnsembleImplMap implementationMap[] = {
- {"append", DictAppendCmd, TclCompileDictAppendCmd, NULL, NULL },
- {"create", DictCreateCmd, NULL, NULL, NULL },
- {"exists", DictExistsCmd, NULL, NULL, NULL },
- {"filter", DictFilterCmd, NULL, NULL, NULL },
- {"for", NULL, TclCompileDictForCmd, DictForNRCmd, NULL },
- {"get", DictGetCmd, TclCompileDictGetCmd, NULL, NULL },
- {"incr", DictIncrCmd, TclCompileDictIncrCmd, NULL, NULL },
- {"info", DictInfoCmd, NULL, NULL, NULL },
- {"keys", DictKeysCmd, NULL, NULL, NULL },
- {"lappend", DictLappendCmd, TclCompileDictLappendCmd, NULL, NULL },
- {"merge", DictMergeCmd, NULL, NULL, NULL },
- {"remove", DictRemoveCmd, NULL, NULL, NULL },
- {"replace", DictReplaceCmd, NULL, NULL, NULL },
- {"set", DictSetCmd, TclCompileDictSetCmd, NULL, NULL },
- {"size", DictSizeCmd, NULL, NULL, NULL },
- {"unset", DictUnsetCmd, NULL, NULL, NULL },
- {"update", DictUpdateCmd, TclCompileDictUpdateCmd, NULL, NULL },
- {"values", DictValuesCmd, NULL, NULL, NULL },
- {"with", DictWithCmd, NULL, NULL, NULL },
- {NULL, NULL, NULL, NULL, NULL}
+ {"append", DictAppendCmd, TclCompileDictAppendCmd, NULL, NULL, 0 },
+ {"create", DictCreateCmd, NULL, NULL, NULL, 0 },
+ {"exists", DictExistsCmd, NULL, NULL, NULL, 0 },
+ {"filter", DictFilterCmd, NULL, NULL, NULL, 0 },
+ {"for", NULL, TclCompileDictForCmd, DictForNRCmd, NULL, 0 },
+ {"get", DictGetCmd, TclCompileDictGetCmd, NULL, NULL, 0 },
+ {"incr", DictIncrCmd, TclCompileDictIncrCmd, NULL, NULL, 0 },
+ {"info", DictInfoCmd, NULL, NULL, NULL, 0 },
+ {"keys", DictKeysCmd, NULL, NULL, NULL, 0 },
+ {"lappend", DictLappendCmd, TclCompileDictLappendCmd, NULL, NULL, 0 },
+ {"merge", DictMergeCmd, NULL, NULL, NULL, 0 },
+ {"remove", DictRemoveCmd, NULL, NULL, NULL, 0 },
+ {"replace", DictReplaceCmd, NULL, NULL, NULL, 0 },
+ {"set", DictSetCmd, TclCompileDictSetCmd, NULL, NULL, 0 },
+ {"size", DictSizeCmd, NULL, NULL, NULL, 0 },
+ {"unset", DictUnsetCmd, NULL, NULL, NULL, 0 },
+ {"update", DictUpdateCmd, TclCompileDictUpdateCmd, NULL, NULL, 0 },
+ {"values", DictValuesCmd, NULL, NULL, NULL, 0 },
+ {"with", DictWithCmd, NULL, NULL, NULL, 0 },
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
/*
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 59d7b3b..3c9d4e3 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOCmd.c,v 1.70 2010/12/09 15:09:07 dkf Exp $
+ * RCS: @(#) $Id: tclIOCmd.c,v 1.71 2010/12/10 13:08:54 nijtmans Exp $
*/
#include "tclInt.h"
@@ -1957,26 +1957,26 @@ TclInitChanCmd(
* function at the moment.
*/
static const EnsembleImplMap initMap[] = {
- {"blocked", Tcl_FblockedObjCmd, NULL, NULL, NULL},
- {"close", Tcl_CloseObjCmd, NULL, NULL, NULL},
- {"copy", Tcl_FcopyObjCmd, NULL, NULL, NULL},
- {"create", TclChanCreateObjCmd, NULL, NULL, NULL}, /* TIP #219 */
- {"eof", Tcl_EofObjCmd, NULL, NULL, NULL},
- {"event", Tcl_FileEventObjCmd, NULL, NULL, NULL},
- {"flush", Tcl_FlushObjCmd, NULL, NULL, NULL},
- {"gets", Tcl_GetsObjCmd, NULL, NULL, NULL},
- {"names", TclChannelNamesCmd},
- {"pending", ChanPendingObjCmd, NULL, NULL, NULL}, /* TIP #287 */
- {"pop", TclChanPopObjCmd, NULL, NULL, NULL}, /* TIP #230 */
- {"postevent", TclChanPostEventObjCmd, NULL, NULL, NULL}, /* TIP #219 */
- {"push", TclChanPushObjCmd, NULL, NULL, NULL}, /* TIP #230 */
- {"puts", Tcl_PutsObjCmd, NULL, NULL, NULL},
- {"read", Tcl_ReadObjCmd, NULL, NULL, NULL},
- {"seek", Tcl_SeekObjCmd, NULL, NULL, NULL},
- {"pipe", ChanPipeObjCmd, NULL, NULL, NULL}, /* TIP #304 */
- {"tell", Tcl_TellObjCmd, NULL, NULL, NULL},
- {"truncate", ChanTruncateObjCmd, NULL, NULL, NULL}, /* TIP #208 */
- {NULL, NULL, NULL, NULL, NULL}
+ {"blocked", Tcl_FblockedObjCmd, NULL, NULL, NULL, 0},
+ {"close", Tcl_CloseObjCmd, NULL, NULL, NULL, 0},
+ {"copy", Tcl_FcopyObjCmd, NULL, NULL, NULL, 0},
+ {"create", TclChanCreateObjCmd, NULL, NULL, NULL, 0}, /* TIP #219 */
+ {"eof", Tcl_EofObjCmd, NULL, NULL, NULL, 0},
+ {"event", Tcl_FileEventObjCmd, NULL, NULL, NULL, 0},
+ {"flush", Tcl_FlushObjCmd, NULL, NULL, NULL, 0},
+ {"gets", Tcl_GetsObjCmd, NULL, NULL, NULL, 0},
+ {"names", TclChannelNamesCmd, NULL, NULL, NULL, 0},
+ {"pending", ChanPendingObjCmd, NULL, NULL, NULL, 0}, /* TIP #287 */
+ {"pop", TclChanPopObjCmd, NULL, NULL, NULL, 0}, /* TIP #230 */
+ {"postevent", TclChanPostEventObjCmd, NULL, NULL, NULL, 0}, /* TIP #219 */
+ {"push", TclChanPushObjCmd, NULL, NULL, NULL, 0}, /* TIP #230 */
+ {"puts", Tcl_PutsObjCmd, NULL, NULL, NULL, 0},
+ {"read", Tcl_ReadObjCmd, NULL, NULL, NULL, 0},
+ {"seek", Tcl_SeekObjCmd, NULL, NULL, NULL, 0},
+ {"pipe", ChanPipeObjCmd, NULL, NULL, NULL, 0}, /* TIP #304 */
+ {"tell", Tcl_TellObjCmd, NULL, NULL, NULL, 0},
+ {"truncate", ChanTruncateObjCmd, NULL, NULL, NULL, 0}, /* TIP #208 */
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
static const char *const extras[] = {
"configure", "::fconfigure",
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index 9eef11a..061ba90 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIndexObj.c,v 1.59 2010/03/30 13:17:18 nijtmans Exp $
+ * RCS: @(#) $Id: tclIndexObj.c,v 1.60 2010/12/10 13:08:54 nijtmans Exp $
*/
#include "tclInt.h"
@@ -529,10 +529,10 @@ TclInitPrefixCmd(
Tcl_Interp *interp) /* Current interpreter. */
{
static const EnsembleImplMap prefixImplMap[] = {
- {"all", PrefixAllObjCmd, NULL, NULL, NULL},
- {"longest", PrefixLongestObjCmd, NULL, NULL, NULL},
- {"match", PrefixMatchObjCmd, NULL, NULL, NULL},
- {NULL, NULL, NULL, NULL, NULL}
+ {"all", PrefixAllObjCmd, NULL, NULL, NULL, 0},
+ {"longest", PrefixLongestObjCmd, NULL, NULL, NULL, 0},
+ {"match", PrefixMatchObjCmd, NULL, NULL, NULL, 0},
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
Tcl_Command prefixCmd;
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 3370f9d..9a97146 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclVar.c,v 1.205 2010/09/27 17:36:48 msofer Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.206 2010/12/10 13:08:53 nijtmans Exp $
*/
#include "tclInt.h"
@@ -4226,18 +4226,18 @@ TclInitArrayCmd(
Tcl_Interp *interp) /* Current interpreter. */
{
static const EnsembleImplMap arrayImplMap[] = {
- {"anymore", ArrayAnyMoreCmd, NULL, NULL, NULL},
- {"donesearch", ArrayDoneSearchCmd, NULL, NULL, NULL},
- {"exists", ArrayExistsCmd, NULL, NULL, NULL},
- {"get", ArrayGetCmd, NULL, NULL, NULL},
- {"names", ArrayNamesCmd, NULL, NULL, NULL},
- {"nextelement", ArrayNextElementCmd, NULL, NULL, NULL},
- {"set", ArraySetCmd, NULL, NULL, NULL},
- {"size", ArraySizeCmd, NULL, NULL, NULL},
- {"startsearch", ArrayStartSearchCmd, NULL, NULL, NULL},
- {"statistics", ArrayStatsCmd, NULL, NULL, NULL},
- {"unset", ArrayUnsetCmd, NULL, NULL, NULL},
- {NULL, NULL, NULL, NULL, NULL}
+ {"anymore", ArrayAnyMoreCmd, NULL, NULL, NULL, 0},
+ {"donesearch", ArrayDoneSearchCmd, NULL, NULL, NULL, 0},
+ {"exists", ArrayExistsCmd, NULL, NULL, NULL, 0},
+ {"get", ArrayGetCmd, NULL, NULL, NULL, 0},
+ {"names", ArrayNamesCmd, NULL, NULL, NULL, 0},
+ {"nextelement", ArrayNextElementCmd, NULL, NULL, NULL, 0},
+ {"set", ArraySetCmd, NULL, NULL, NULL, 0},
+ {"size", ArraySizeCmd, NULL, NULL, NULL, 0},
+ {"startsearch", ArrayStartSearchCmd, NULL, NULL, NULL, 0},
+ {"statistics", ArrayStatsCmd, NULL, NULL, NULL, 0},
+ {"unset", ArrayUnsetCmd, NULL, NULL, NULL, 0},
+ {NULL, NULL, NULL, NULL, NULL, 0}
};
return TclMakeEnsemble(interp, "array", arrayImplMap);