Attachment "unnecesary_commas.txt" to
ticket [1515234fff]
added by
afredd
2006-06-30 23:41:47.
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;
}