Here's a list of the cases i've found of unnecesary commas separating string literals passed to vararg functions. **** (1129) Tcl_HideCommand( tcl/generic/tclBasic.c-1172- Tcl_AppendResult(interp, tcl/generic/tclBasic.c-1173- "cannot use namespace qualifiers in hidden command", tcl/generic/tclBasic.c:1174: " token (rename)", NULL); tcl/generic/tclBasic.c-1175- return TCL_ERROR; tcl/generic/tclBasic.c-1176- } -- tcl/generic/tclBasic.c-1195- if (cmdPtr->nsPtr != iPtr->globalNsPtr) { tcl/generic/tclBasic.c-1196- Tcl_AppendResult(interp, "can only hide global namespace commands", tcl/generic/tclBasic.c:1197: " (use rename then hide)", NULL); tcl/generic/tclBasic.c-1198- return TCL_ERROR; tcl/generic/tclBasic.c-1199- } -- **** (1294) Tcl_ExposeCommand( tcl/generic/tclBasic.c-1322- if (strstr(cmdName, "::") != NULL) { tcl/generic/tclBasic.c-1323- Tcl_AppendResult(interp, "can not expose to a namespace ", tcl/generic/tclBasic.c:1324: "(use expose to toplevel, then rename)", NULL); tcl/generic/tclBasic.c-1325- return TCL_ERROR; tcl/generic/tclBasic.c-1326- } -- -- tcl/generic/tclCkalloc.c-916- Tcl_AppendResult(interp, "bad option \"", argv[1], tcl/generic/tclCkalloc.c-917- "\": should be active, break_on_malloc, info, init, onexit, ", tcl/generic/tclCkalloc.c:918: "tag, trace, trace_on_at_malloc, or validate", NULL); tcl/generic/tclCkalloc.c-919- return TCL_ERROR; tcl/generic/tclCkalloc.c-920- -- **** (966) ConvertUTCToLocalUsingC( tcl/generic/tclClock.c-990- Tcl_AppendResult(interp, tcl/generic/tclClock.c-991- "localtime failed (clock value may be too ", tcl/generic/tclClock.c:992: "large/small to represent)", NULL); tcl/generic/tclClock.c-993- Tcl_SetErrorCode(interp, "CLOCK", "localtimeFailed", NULL); tcl/generic/tclClock.c-994- return TCL_ERROR; -- -- tcl/generic/tclCmdIL.c-3946- Tcl_AppendResult(interp, tcl/generic/tclCmdIL.c-3947- "\"-command\" option must be followed ", tcl/generic/tclCmdIL.c:3948: "by comparison command", NULL); tcl/generic/tclCmdIL.c-3949- return TCL_ERROR; tcl/generic/tclCmdIL.c-3950- } -- tcl/generic/tclCmdIL.c-3971- if (i == (objc-2)) { tcl/generic/tclCmdIL.c-3972- Tcl_AppendResult(interp, "\"-index\" option must be ", tcl/generic/tclCmdIL.c:3973: "followed by list index", NULL); tcl/generic/tclCmdIL.c-3974- return TCL_ERROR; tcl/generic/tclCmdIL.c-3975- } -- tcl/generic/tclCmdMZ.c-189- if (doinline && ((objc - 2) != 0)) { tcl/generic/tclCmdMZ.c-190- Tcl_AppendResult(interp, "regexp match variables not allowed", tcl/generic/tclCmdMZ.c:191: " when using -inline", (char *) NULL); tcl/generic/tclCmdMZ.c-192- goto optionError; tcl/generic/tclCmdMZ.c-193- } -- -- **** (2557) typedef int (*strCmpFn_t)(const char *, const char *); tcl/generic/tclCmdMZ.c-2688- if (TclGetString(objv[i])[0] == '#') { tcl/generic/tclCmdMZ.c-2689- Tcl_AppendResult(interp, ", this may be due to a ", tcl/generic/tclCmdMZ.c:2690: "comment incorrectly placed outside of a ", tcl/generic/tclCmdMZ.c:2691: "switch body - see the \"switch\" ", tcl/generic/tclCmdMZ.c:2692: "documentation", NULL); tcl/generic/tclCmdMZ.c-2693- break; tcl/generic/tclCmdMZ.c-2694- } -- -- **** (61) Tcl_RegisterConfig( tcl/generic/tclConfig.c-148- Tcl_Panic("%s.\n%s %s", Tcl_GetStringResult(interp), tcl/generic/tclConfig.c-149- "Tcl_RegisterConfig: Unable to create namespace for", tcl/generic/tclConfig.c:150: "package configuration."); tcl/generic/tclConfig.c-151- } tcl/generic/tclConfig.c-152- } -- tcl/generic/tclConfig.c-157- QueryConfigObjCmd, (ClientData) pkg, QueryConfigDelete) == NULL) { tcl/generic/tclConfig.c-158- Tcl_Panic("%s %s", "Tcl_RegisterConfig: Unable to create query", tcl/generic/tclConfig.c:159: "command for package configuration"); tcl/generic/tclConfig.c-160- } tcl/generic/tclConfig.c-161- -- **** (473) CopyRenameOneFile( tcl/generic/tclFCmd.c-589- TclGetString(source), "\" to \"", TclGetString(target), tcl/generic/tclFCmd.c-590- "\": trying to rename a volume or ", tcl/generic/tclFCmd.c:591: "move a directory into itself", NULL); tcl/generic/tclFCmd.c-592- goto done; tcl/generic/tclFCmd.c-593- } else if (errno != EXDEV) { -- **** (1095) DoTildeSubst( tcl/generic/tclFileName.c-1111- Tcl_ResetResult(interp); tcl/generic/tclFileName.c-1112- Tcl_AppendResult(interp, "couldn't find HOME environment ", tcl/generic/tclFileName.c:1113: "variable to expand path", (char *) NULL); tcl/generic/tclFileName.c-1114- } tcl/generic/tclFileName.c-1115- return NULL; -- tcl/generic/tclFileName.c-1262- Tcl_AppendResult(interp, tcl/generic/tclFileName.c-1263- "\"-tails\" must be used with either ", tcl/generic/tclFileName.c:1264: "\"-directory\" or \"-path\"", NULL); tcl/generic/tclFileName.c-1265- return TCL_ERROR; tcl/generic/tclFileName.c-1266- } -- **** (2520) SlaveRecursionLimit( tcl/generic/tclInterp.c-2530- if (Tcl_IsSafe(interp)) { tcl/generic/tclInterp.c-2531- Tcl_AppendResult(interp, "permission denied: ", tcl/generic/tclInterp.c:2532: "safe interpreters cannot change recursion limit", tcl/generic/tclInterp.c-2533- (char *) NULL); tcl/generic/tclInterp.c-2534- return TCL_ERROR; -- **** (3952) SlaveCommandLimitCmd( tcl/generic/tclInterp.c-4063- if (gran < 1) { tcl/generic/tclInterp.c-4064- Tcl_AppendResult(interp, "granularity must be at ", tcl/generic/tclInterp.c:4065: "least 1", NULL); tcl/generic/tclInterp.c-4066- return TCL_ERROR; tcl/generic/tclInterp.c-4067- } -- tcl/generic/tclInterp.c-4078- if (limit < 0) { tcl/generic/tclInterp.c-4079- Tcl_AppendResult(interp, "command limit value must be at ", tcl/generic/tclInterp.c:4080: "least 0", NULL); tcl/generic/tclInterp.c-4081- return TCL_ERROR; tcl/generic/tclInterp.c-4082- } -- **** (4123) SlaveTimeLimitCmd( tcl/generic/tclInterp.c-4255- if (gran < 1) { tcl/generic/tclInterp.c-4256- Tcl_AppendResult(interp, "granularity must be at ", tcl/generic/tclInterp.c:4257: "least 1", NULL); tcl/generic/tclInterp.c-4258- return TCL_ERROR; tcl/generic/tclInterp.c-4259- } -- tcl/generic/tclInterp.c-4302- if (secObj != NULL && secLen == 0 && milliLen > 0) { tcl/generic/tclInterp.c-4303- Tcl_AppendResult(interp, "may only set -milliseconds ", tcl/generic/tclInterp.c:4304: "if -seconds is not also being reset", NULL); tcl/generic/tclInterp.c-4305- return TCL_ERROR; tcl/generic/tclInterp.c-4306- } tcl/generic/tclInterp.c-4307- if (milliLen == 0 && (secObj == NULL || secLen > 0)) { tcl/generic/tclInterp.c-4308- Tcl_AppendResult(interp, "may only reset -milliseconds ", tcl/generic/tclInterp.c:4309: "if -seconds is also being reset", NULL); tcl/generic/tclInterp.c-4310- return TCL_ERROR; tcl/generic/tclInterp.c-4311- } -- **** (776) Tcl_UnregisterChannel( tcl/generic/tclIO.c-785- if (interp != NULL) { tcl/generic/tclIO.c-786- Tcl_AppendResult(interp, "Illegal recursive call to close ", tcl/generic/tclIO.c:787: "through close-handler of channel", NULL); tcl/generic/tclIO.c-788- } tcl/generic/tclIO.c-789- return TCL_ERROR; -- **** (2715) Tcl_Close( tcl/generic/tclIO.c-2754- if (interp) { tcl/generic/tclIO.c-2755- Tcl_AppendResult(interp, "Illegal recursive call to close ", tcl/generic/tclIO.c:2756: "through close-handler of channel", NULL); tcl/generic/tclIO.c-2757- } tcl/generic/tclIO.c-2758- return TCL_ERROR; -- **** (6735) Tcl_SetChannelOption( tcl/generic/tclIO.c-6752- if (interp) { tcl/generic/tclIO.c-6753- Tcl_AppendResult(interp, "unable to set channel options: ", tcl/generic/tclIO.c:6754: "background copy in progress", NULL); tcl/generic/tclIO.c-6755- } tcl/generic/tclIO.c-6756- return TCL_ERROR; -- tcl/generic/tclIO.c-6805- if (interp) { tcl/generic/tclIO.c-6806- Tcl_AppendResult(interp, "bad value for -buffering: ", tcl/generic/tclIO.c:6807: "must be one of full, line, or none", NULL); tcl/generic/tclIO.c-6808- return TCL_ERROR; tcl/generic/tclIO.c-6809- } -- tcl/generic/tclIO.c-6867- Tcl_AppendResult(interp, tcl/generic/tclIO.c-6868- "bad value for -eofchar: should be a list of zero,", tcl/generic/tclIO.c:6869: " one, or two elements", NULL); tcl/generic/tclIO.c-6870- } tcl/generic/tclIO.c-6871- ckfree((char *) argv); -- tcl/generic/tclIO.c-6911- Tcl_AppendResult(interp, tcl/generic/tclIO.c-6912- "bad value for -translation: must be a one or two", tcl/generic/tclIO.c:6913: " element list", NULL); tcl/generic/tclIO.c-6914- } tcl/generic/tclIO.c-6915- ckfree((char *) argv); -- tcl/generic/tclIO.c-6940- Tcl_AppendResult(interp, tcl/generic/tclIO.c-6941- "bad value for -translation: ", tcl/generic/tclIO.c:6942: "must be one of auto, binary, cr, lf, crlf,", tcl/generic/tclIO.c:6943: " or platform", NULL); tcl/generic/tclIO.c-6944- } tcl/generic/tclIO.c-6945- ckfree((char *) argv); -- tcl/generic/tclIO.c-6992- Tcl_AppendResult(interp, tcl/generic/tclIO.c-6993- "bad value for -translation: ", tcl/generic/tclIO.c:6994: "must be one of auto, binary, cr, lf, crlf,", tcl/generic/tclIO.c:6995: " or platform", NULL); tcl/generic/tclIO.c-6996- } tcl/generic/tclIO.c-6997- ckfree((char *) argv); -- **** (1522) TclGetOpenModeEx( tcl/generic/tclIOUtil.c-1688- if (interp != NULL) { tcl/generic/tclIOUtil.c-1689- Tcl_AppendResult(interp, "access mode must include either", tcl/generic/tclIOUtil.c:1690: " RDONLY, WRONLY, or RDWR", NULL); tcl/generic/tclIOUtil.c-1691- } tcl/generic/tclIOUtil.c-1692- return -1; -- **** (2142) Tcl_FSOpenFileChannel( tcl/generic/tclIOUtil.c-2229- if (interp != NULL) { tcl/generic/tclIOUtil.c-2230- Tcl_AppendResult(interp, "could not seek to end ", tcl/generic/tclIOUtil.c:2231: "of file while opening \"", Tcl_GetString(pathPtr), tcl/generic/tclIOUtil.c-2232- "\": ", Tcl_PosixError(interp), NULL); tcl/generic/tclIOUtil.c-2233- } -- **** (722) Tcl_CreateNamespace( tcl/generic/tclNamesp.c-758- Tcl_ResetResult(interp); tcl/generic/tclNamesp.c-759- Tcl_AppendResult(interp, "can't create namespace \"\": ", tcl/generic/tclNamesp.c:760: "only global namespace can have empty name", NULL); tcl/generic/tclNamesp.c-761- return NULL; tcl/generic/tclNamesp.c-762- } else { -- **** (3043) Tcl_DbIncrRefCount( tcl/generic/tclObj.c-3075- if (!hPtr) { tcl/generic/tclObj.c-3076- Tcl_Panic("%s%s", tcl/generic/tclObj.c:3077: "Trying to incr ref count of ", tcl/generic/tclObj.c:3078: "Tcl_Obj allocated in another thread"); tcl/generic/tclObj.c-3079- } tcl/generic/tclObj.c-3080- } -- **** (3108) Tcl_DbDecrRefCount( tcl/generic/tclObj.c-3140- if (!hPtr) { tcl/generic/tclObj.c-3141- Tcl_Panic("%s%s", tcl/generic/tclObj.c:3142: "Trying to decr ref count of ", tcl/generic/tclObj.c:3143: "Tcl_Obj allocated in another thread"); tcl/generic/tclObj.c-3144- } tcl/generic/tclObj.c-3145- -- **** (3180) Tcl_DbIsShared( tcl/generic/tclObj.c-3210- if (!hPtr) { tcl/generic/tclObj.c-3211- Tcl_Panic("%s%s", tcl/generic/tclObj.c:3212: "Trying to check shared status of", tcl/generic/tclObj.c:3213: "Tcl_Obj allocated in another thread"); tcl/generic/tclObj.c-3214- } tcl/generic/tclObj.c-3215- } -- **** (1295) TclFSMakePathRelative( tcl/generic/tclPathObj.c-1318- Tcl_ResetResult(interp); tcl/generic/tclPathObj.c-1319- Tcl_AppendResult(interp, "can't find object", tcl/generic/tclPathObj.c:1320: "string representation", (char *) NULL); tcl/generic/tclPathObj.c-1321- } tcl/generic/tclPathObj.c-1322- return NULL; -- **** (1419) TclFSMakePathFromNormalized( tcl/generic/tclPathObj.c-1440- Tcl_ResetResult(interp); tcl/generic/tclPathObj.c-1441- Tcl_AppendResult(interp, "can't find object", tcl/generic/tclPathObj.c:1442: "string representation", (char *) NULL); tcl/generic/tclPathObj.c-1443- } tcl/generic/tclPathObj.c-1444- return TCL_ERROR; -- **** (2238) SetFsPathFromAny( tcl/generic/tclPathObj.c-2306- Tcl_ResetResult(interp); tcl/generic/tclPathObj.c-2307- Tcl_AppendResult(interp, "couldn't find HOME environment ", tcl/generic/tclPathObj.c:2308: "variable to expand path", (char *) NULL); tcl/generic/tclPathObj.c-2309- } tcl/generic/tclPathObj.c-2310- return TCL_ERROR; -- **** (1024) Tcl_OpenCommandChannel( tcl/generic/tclPipe.c-1057- if ((flags & TCL_STDOUT) && (outPipe == NULL)) { tcl/generic/tclPipe.c-1058- Tcl_AppendResult(interp, "can't read output from command:", tcl/generic/tclPipe.c:1059: " standard output was redirected", NULL); tcl/generic/tclPipe.c-1060- goto error; tcl/generic/tclPipe.c-1061- } tcl/generic/tclPipe.c-1062- if ((flags & TCL_STDIN) && (inPipe == NULL)) { tcl/generic/tclPipe.c-1063- Tcl_AppendResult(interp, "can't write input to command:", tcl/generic/tclPipe.c:1064: " standard input was redirected", NULL); tcl/generic/tclPipe.c-1065- goto error; tcl/generic/tclPipe.c-1066- } -- **** (160) Tcl_PkgRequireEx( tcl/generic/tclPkg.c-245- Tcl_AppendResult(interp, "Cannot load package \"", name, tcl/generic/tclPkg.c-246- "\" in standalone executable: This package is not ", tcl/generic/tclPkg.c:247: "compiled with stub support", NULL); tcl/generic/tclPkg.c-248- return NULL; tcl/generic/tclPkg.c-249- } -- tcl/generic/tclPkg.c-269- if (pkgPtr->clientData != NULL) { tcl/generic/tclPkg.c-270- Tcl_AppendResult(interp, "circular package dependency: ", tcl/generic/tclPkg.c:271: "attempt to provide ", name, " ", tcl/generic/tclPkg.c-272- (char *)(pkgPtr->clientData), " requires ", name, NULL); tcl/generic/tclPkg.c-273- if (version != NULL) { -- tcl/generic/tclPkg.c-339- Tcl_AppendResult(interp, "attempt to provide package ", tcl/generic/tclPkg.c-340- name, " ", versionToProvide, " failed: ", tcl/generic/tclPkg.c:341: "bad return code: ", Tcl_GetString(codePtr), NULL); tcl/generic/tclPkg.c-342- Tcl_DecrRefCount(codePtr); tcl/generic/tclPkg.c-343- code = TCL_ERROR; -- **** (1262) TclMergeReturnOptions( tcl/generic/tclResult.c-1340- TclGetString(valuePtr), tcl/generic/tclResult.c-1341- "\": must be ok, error, return, break, ", tcl/generic/tclResult.c:1342: "continue, or an integer", NULL); tcl/generic/tclResult.c-1343- goto error; tcl/generic/tclResult.c-1344- } -- tcl/generic/tclResult.c-1360- Tcl_ResetResult(interp); tcl/generic/tclResult.c-1361- Tcl_AppendResult(interp, "bad -level value: ", tcl/generic/tclResult.c:1362: "expected non-negative integer but got \"", tcl/generic/tclResult.c-1363- TclGetString(valuePtr), "\"", NULL); tcl/generic/tclResult.c-1364- goto error; -- -- **** (1595) TestdstringCmd(dummy, interp, argc, argv) tcl/generic/tclTest.c-1686- Tcl_AppendResult(interp, "bad option \"", argv[1], tcl/generic/tclTest.c-1687- "\": must be append, element, end, free, get, length, ", tcl/generic/tclTest.c:1688: "result, trunc, or start", NULL); tcl/generic/tclTest.c-1689- return TCL_ERROR; tcl/generic/tclTest.c-1690- } -- -- **** (2617) TestlinkCmd(dummy, interp, argc, argv) tcl/generic/tclTest.c-2643- Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], tcl/generic/tclTest.c-2644- " option ?arg arg arg arg arg arg arg arg arg arg arg arg", tcl/generic/tclTest.c:2645: " arg arg?\"", NULL); tcl/generic/tclTest.c-2646- return TCL_ERROR; tcl/generic/tclTest.c-2647- } -- tcl/generic/tclTest.c-2651- argv[0], " ", argv[1], tcl/generic/tclTest.c-2652- " intRO realRO boolRO stringRO wideRO charRO ucharRO shortRO", tcl/generic/tclTest.c:2653: " ushortRO uintRO longRO ulongRO floatRO uwideRO\"", NULL); tcl/generic/tclTest.c-2654- return TCL_ERROR; tcl/generic/tclTest.c-2655- } -- tcl/generic/tclTest.c-2842- argv[0], " ", argv[1], tcl/generic/tclTest.c-2843- " intValue realValue boolValue stringValue wideValue", tcl/generic/tclTest.c:2844: " charValue ucharValue shortValue ushortValue uintValue", tcl/generic/tclTest.c:2845: " longValue ulongValue floatValue uwideValue\"", NULL); tcl/generic/tclTest.c-2846- return TCL_ERROR; tcl/generic/tclTest.c-2847- } -- tcl/generic/tclTest.c-2946- argv[0], " ", argv[1], tcl/generic/tclTest.c-2947- " intValue realValue boolValue stringValue wideValue", tcl/generic/tclTest.c:2948: " charValue ucharValue shortValue ushortValue uintValue", tcl/generic/tclTest.c:2949: " longValue ulongValue floatValue uwideValue\"", NULL); tcl/generic/tclTest.c-2950- return TCL_ERROR; tcl/generic/tclTest.c-2951- } -- **** (4055) TestsetplatformCmd(clientData, interp, argc, argv) tcl/generic/tclTest.c-4077- } else { tcl/generic/tclTest.c-4078- Tcl_AppendResult(interp, "unsupported platform: should be one of ", tcl/generic/tclTest.c:4079: "unix, or windows", NULL); tcl/generic/tclTest.c-4080- return TCL_ERROR; tcl/generic/tclTest.c-4081- } -- **** (4984) TeststatprocCmd (dummy, interp, argc, argv) tcl/generic/tclTest.c-5007- } else { tcl/generic/tclTest.c-5008- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ", tcl/generic/tclTest.c:5009: "must be TclpStat, ", tcl/generic/tclTest.c:5010: "TestStatProc1, TestStatProc2, or TestStatProc3", NULL); tcl/generic/tclTest.c-5011- return TCL_ERROR; tcl/generic/tclTest.c-5012- } -- tcl/generic/tclTest.c-5015- if (proc == PretendTclpStat) { tcl/generic/tclTest.c-5016- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ", tcl/generic/tclTest.c:5017: "must be ", tcl/generic/tclTest.c:5018: "TestStatProc1, TestStatProc2, or TestStatProc3", NULL); tcl/generic/tclTest.c-5019- return TCL_ERROR; tcl/generic/tclTest.c-5020- } -- tcl/generic/tclTest.c-5024- } else { tcl/generic/tclTest.c-5025- Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ", tcl/generic/tclTest.c:5026: "must be insert or delete", NULL); tcl/generic/tclTest.c-5027- return TCL_ERROR; tcl/generic/tclTest.c-5028- } -- tcl/generic/tclTest.c-5030- if (retVal == TCL_ERROR) { tcl/generic/tclTest.c-5031- Tcl_AppendResult(interp, "\"", argv[2], "\": ", tcl/generic/tclTest.c:5032: "could not be ", argv[1], "ed", NULL); tcl/generic/tclTest.c-5033- } tcl/generic/tclTest.c-5034- -- **** (5293) TestaccessprocCmd (dummy, interp, argc, argv) tcl/generic/tclTest.c-5316- } else { tcl/generic/tclTest.c-5317- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ", tcl/generic/tclTest.c:5318: "must be TclpAccess, ", tcl/generic/tclTest.c:5319: "TestAccessProc1, TestAccessProc2, or TestAccessProc3", NULL); tcl/generic/tclTest.c-5320- return TCL_ERROR; tcl/generic/tclTest.c-5321- } -- tcl/generic/tclTest.c-5324- if (proc == PretendTclpAccess) { tcl/generic/tclTest.c-5325- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": must be ", tcl/generic/tclTest.c:5326: "TestAccessProc1, TestAccessProc2, or TestAccessProc3", tcl/generic/tclTest.c-5327- NULL); tcl/generic/tclTest.c-5328- return TCL_ERROR; -- tcl/generic/tclTest.c-5333- } else { tcl/generic/tclTest.c-5334- Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ", tcl/generic/tclTest.c:5335: "must be insert or delete", NULL); tcl/generic/tclTest.c-5336- return TCL_ERROR; tcl/generic/tclTest.c-5337- } -- tcl/generic/tclTest.c-5339- if (retVal == TCL_ERROR) { tcl/generic/tclTest.c-5340- Tcl_AppendResult(interp, "\"", argv[2], "\": ", tcl/generic/tclTest.c:5341: "could not be ", argv[1], "ed", NULL); tcl/generic/tclTest.c-5342- } tcl/generic/tclTest.c-5343- -- **** (5403) TestopenfilechannelprocCmd (dummy, interp, argc, argv) tcl/generic/tclTest.c-5426- } else { tcl/generic/tclTest.c-5427- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ", tcl/generic/tclTest.c:5428: "must be TclpOpenFileChannel, ", tcl/generic/tclTest.c:5429: "TestOpenFileChannelProc1, TestOpenFileChannelProc2, or ", tcl/generic/tclTest.c:5430: "TestOpenFileChannelProc3", NULL); tcl/generic/tclTest.c-5431- return TCL_ERROR; tcl/generic/tclTest.c-5432- } -- tcl/generic/tclTest.c-5435- if (proc == PretendTclpOpenFileChannel) { tcl/generic/tclTest.c-5436- Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ", tcl/generic/tclTest.c:5437: "must be ", tcl/generic/tclTest.c:5438: "TestOpenFileChannelProc1, TestOpenFileChannelProc2, or ", tcl/generic/tclTest.c:5439: "TestOpenFileChannelProc3", NULL); tcl/generic/tclTest.c-5440- return TCL_ERROR; tcl/generic/tclTest.c-5441- } -- tcl/generic/tclTest.c-5445- } else { tcl/generic/tclTest.c-5446- Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ", tcl/generic/tclTest.c:5447: "must be insert or delete", NULL); tcl/generic/tclTest.c-5448- return TCL_ERROR; tcl/generic/tclTest.c-5449- } -- tcl/generic/tclTest.c-5451- if (retVal == TCL_ERROR) { tcl/generic/tclTest.c-5452- Tcl_AppendResult(interp, "\"", argv[2], "\": ", tcl/generic/tclTest.c:5453: "could not be ", argv[1], "ed", NULL); tcl/generic/tclTest.c-5454- } tcl/generic/tclTest.c-5455- -- **** (5599) TestChannelCmd(clientData, interp, argc, argv) tcl/generic/tclTest.c-6044- tcl/generic/tclTest.c-6045- Tcl_AppendResult(interp, "bad option \"", cmdName, "\": should be ", tcl/generic/tclTest.c:6046: "cut, clearchannelhandlers, info, isshared, mode, open, " tcl/generic/tclTest.c-6047- "readable, splice, writable, transform, unstack", NULL); tcl/generic/tclTest.c-6048- return TCL_ERROR; -- **** (6070) TestChannelEventCmd(dummy, interp, argc, argv) tcl/generic/tclTest.c-6259- } tcl/generic/tclTest.c-6260- Tcl_AppendResult(interp, "bad command ", cmd, ", must be one of ", tcl/generic/tclTest.c:6261: "add, delete, list, set, or removeall", NULL); tcl/generic/tclTest.c-6262- return TCL_ERROR; tcl/generic/tclTest.c-6263-} -- **** (861) TestobjCmd(clientData, interp, objc, objv) tcl/generic/tclTestObj.c-1027- "bad option \"", Tcl_GetString(objv[1]), tcl/generic/tclTestObj.c-1028- "\": must be assign, convert, duplicate, freeallvars, ", tcl/generic/tclTestObj.c:1029: "newobj, objcount, objtype, refcount, type, or types", NULL); tcl/generic/tclTestObj.c-1030- return TCL_ERROR; tcl/generic/tclTestObj.c-1031- } -- **** (3190) ObjMakeUpvar( tcl/generic/tclVar.c-3243- Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"", tcl/generic/tclVar.c-3244- myName, "\": upvar won't create namespace variable that ", tcl/generic/tclVar.c:3245: "refers to procedure variable", NULL); tcl/generic/tclVar.c-3246- return TCL_ERROR; tcl/generic/tclVar.c-3247- } -- **** (3274) TclPtrMakeUpvar( tcl/generic/tclVar.c-3312- Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"", tcl/generic/tclVar.c-3313- myName, "\": upvar won't create a scalar variable ", tcl/generic/tclVar.c:3314: "that looks like an array element", NULL); tcl/generic/tclVar.c-3315- return TCL_ERROR; tcl/generic/tclVar.c-3316- } -- **** (882) TtySetOptionProc( tcl/unix/tclUnixChan.c-949- if (interp) { tcl/unix/tclUnixChan.c-950- Tcl_AppendResult(interp, "bad value for -handshake: ", tcl/unix/tclUnixChan.c:951: "must be one of xonxoff, rtscts, dtrdsr or none", tcl/unix/tclUnixChan.c-952- NULL); tcl/unix/tclUnixChan.c-953- } -- tcl/unix/tclUnixChan.c-1014- Tcl_AppendResult(interp, tcl/unix/tclUnixChan.c-1015- "bad value for -ttycontrol: should be a list of", tcl/unix/tclUnixChan.c:1016: "signal,value pairs", NULL); tcl/unix/tclUnixChan.c-1017- } tcl/unix/tclUnixChan.c-1018- ckfree((char *) argv); -- tcl/unix/tclUnixChan.c-1062- Tcl_AppendResult(interp, "bad signal \"", argv[i], tcl/unix/tclUnixChan.c-1063- "\" for -ttycontrol: must be ", tcl/unix/tclUnixChan.c:1064: "DTR, RTS or BREAK", NULL); tcl/unix/tclUnixChan.c-1065- } tcl/unix/tclUnixChan.c-1066- ckfree((char *) argv); -- -- **** (146) TestfilehandlerCmd( tcl/unix/tclUnixTest.c-326- Tcl_AppendResult(interp, "bad option \"", argv[1], tcl/unix/tclUnixTest.c-327- "\": must be close, clear, counts, create, empty, fill, ", tcl/unix/tclUnixTest.c:328: "fillpartial, oneevent, wait, or windowevent", NULL); tcl/unix/tclUnixTest.c-329- return TCL_ERROR; tcl/unix/tclUnixTest.c-330- } -- **** (38) TclpDlopen( tcl/win/tclWinLoad.c-110- case ERROR_DLL_NOT_FOUND: tcl/win/tclWinLoad.c-111- Tcl_AppendResult(interp, "this library or a dependent library", tcl/win/tclWinLoad.c:112: " could not be found in library path", NULL); tcl/win/tclWinLoad.c-113- break; tcl/win/tclWinLoad.c-114- case ERROR_PROC_NOT_FOUND: tcl/win/tclWinLoad.c-115- Tcl_AppendResult(interp, "A function specified in the import", tcl/win/tclWinLoad.c:116: " table could not be resolved by the system. Windows", tcl/win/tclWinLoad.c:117: " is not telling which one, I'm sorry.", NULL); tcl/win/tclWinLoad.c-118- break; tcl/win/tclWinLoad.c-119- case ERROR_INVALID_DLL: tcl/win/tclWinLoad.c-120- Tcl_AppendResult(interp, "this library or a dependent library", tcl/win/tclWinLoad.c:121: " is damaged", NULL); tcl/win/tclWinLoad.c-122- break; tcl/win/tclWinLoad.c-123- case ERROR_DLL_INIT_FAILED: tcl/win/tclWinLoad.c-124- Tcl_AppendResult(interp, "the library initialization", tcl/win/tclWinLoad.c:125: " routine failed", NULL); tcl/win/tclWinLoad.c-126- break; tcl/win/tclWinLoad.c-127- default: -- **** (1650) SerialSetOptionProc( tcl/win/tclWinSerial.c-1760- Tcl_AppendResult(interp, "bad value \"", value, tcl/win/tclWinSerial.c-1761- "\" for -handshake: must be one of xonxoff, rtscts, ", tcl/win/tclWinSerial.c:1762: "dtrdsr or none", NULL); tcl/win/tclWinSerial.c-1763- } tcl/win/tclWinSerial.c-1764- return TCL_ERROR; -- tcl/win/tclWinSerial.c-1793- if (interp != NULL) { tcl/win/tclWinSerial.c-1794- Tcl_AppendResult(interp, "bad value for -xchar: should be ", tcl/win/tclWinSerial.c:1795: "a list of two elements with each a single character", tcl/win/tclWinSerial.c-1796- NULL); tcl/win/tclWinSerial.c-1797- } -- tcl/win/tclWinSerial.c-1852- Tcl_AppendResult(interp, "bad value \"", value, tcl/win/tclWinSerial.c-1853- "\" for -ttycontrol: should be a list of ", tcl/win/tclWinSerial.c:1854: "signal,value pairs", NULL); tcl/win/tclWinSerial.c-1855- } tcl/win/tclWinSerial.c-1856- ckfree((char *) argv); -- tcl/win/tclWinSerial.c-1933- Tcl_AppendResult(interp, "bad value \"", value, tcl/win/tclWinSerial.c-1934- "\" for -sysbuffer: should be a list of one or two ", tcl/win/tclWinSerial.c:1935: "integers > 0", NULL); tcl/win/tclWinSerial.c-1936- } tcl/win/tclWinSerial.c-1937- return TCL_ERROR; -- Trivial patch for tclBasic.c => --- tclBasic.c-orig 2006-06-30 17:17:24.937500000 +0100 +++ tclBasic.c 2006-06-30 17:17:56.281250000 +0100 @@ -1170,7 +1170,7 @@ if (strstr(hiddenCmdToken, "::") != NULL) { Tcl_AppendResult(interp, - "cannot use namespace qualifiers in hidden command", + "cannot use namespace qualifiers in hidden command" " token (rename)", NULL); return TCL_ERROR; } @@ -1193,7 +1193,7 @@ */ if (cmdPtr->nsPtr != iPtr->globalNsPtr) { - Tcl_AppendResult(interp, "can only hide global namespace commands", + Tcl_AppendResult(interp, "can only hide global namespace commands" " (use rename then hide)", NULL); return TCL_ERROR; } @@ -1320,7 +1320,7 @@ */ if (strstr(cmdName, "::") != NULL) { - Tcl_AppendResult(interp, "can not expose to a namespace ", + Tcl_AppendResult(interp, "can not expose to a namespace " "(use expose to toplevel, then rename)", NULL); return TCL_ERROR; }