Lines Matching refs:result
38 * A standard Tcl result.
72 * A standard Tcl result.
88 int i, result;
117 result = Tcl_SplitList(interp, caseArgv[0], &caseArgc, &caseArgv);
118 if (result != TCL_OK) {
119 return result;
130 interp->result = "extra case pattern with no body";
131 result = TCL_ERROR;
162 result = Tcl_SplitList(interp, caseArgv[i], &patArgc, &patArgv);
163 if (result != TCL_OK) {
180 result = Tcl_Eval(interp, caseArgv[body]);
181 if (result == TCL_ERROR) {
194 result = TCL_OK;
200 return result;
213 * A standard Tcl result.
229 int result;
236 result = Tcl_Eval(interp, argv[1]);
238 if (Tcl_SetVar(interp, argv[2], interp->result, 0) == NULL) {
239 Tcl_SetResult(interp, "couldn't save command result in variable",
245 sprintf(interp->result, "%d", result);
259 * A standard Tcl result.
277 int result;
294 result = TclChdir(interp, dirName);
296 return result;
309 * A standard Tcl result.
326 interp->result = Tcl_Concat(argc-1, argv+1);
342 * A standard Tcl result.
376 * A standard Tcl result.
422 * A standard Tcl result.
438 int result;
447 result = Tcl_Eval(interp, argv[1]);
452 * between, then evaluate the result.
456 result = Tcl_Eval(interp, cmd);
459 if (result == TCL_ERROR) {
464 return result;
477 * A standard Tcl result.
520 * A standard Tcl result.
537 int i, result;
554 result = Tcl_ExprString(interp, buffer.string);
556 return result;
569 * A standard Tcl result.
586 int c, statOp, result;
600 result = TCL_OK;
628 result = TCL_ERROR;
680 result = TCL_ERROR;
776 result = TCL_ERROR;
788 interp->result = "0";
790 interp->result = "1";
830 sprintf(interp->result, "%ld", (long) statBuf.st_atime);
850 result = TCL_ERROR;
857 result = TCL_ERROR;
860 result = StoreStatData(interp, argv[3], &statBuf);
870 sprintf(interp->result, "%ld", (long) statBuf.st_mtime);
905 result = TCL_ERROR;
920 sprintf(interp->result, "%lu", (unsigned long) statBuf.st_size);
927 result = TCL_ERROR;
935 result = TCL_ERROR;
938 result = StoreStatData(interp, argv[3], &statBuf);
949 interp->result = GetTypeFromMode((int) statBuf.st_mode);
959 result = TCL_ERROR;
963 interp->result = "0";
987 interp->result = "1";
989 interp->result = "0";
994 return result;
999 result = TCL_ERROR;
1015 * a message is left in interp->result.
1140 * A standard Tcl result.
1156 int result, value;
1164 result = Tcl_Eval(interp, argv[1]);
1165 if (result != TCL_OK) {
1166 if (result == TCL_ERROR) {
1169 return result;
1172 result = Tcl_ExprBoolean(interp, argv[2], &value);
1173 if (result != TCL_OK) {
1174 return result;
1179 result = Tcl_Eval(interp, argv[4]);
1180 if ((result != TCL_OK) && (result != TCL_CONTINUE)) {
1181 if (result == TCL_ERROR) {
1188 result = Tcl_Eval(interp, argv[3]);
1189 if (result == TCL_BREAK) {
1191 } else if (result != TCL_OK) {
1192 if (result == TCL_ERROR) {
1195 return result;
1198 if (result == TCL_BREAK) {
1199 result = TCL_OK;
1201 if (result == TCL_OK) {
1204 return result;
1217 * A standard Tcl result.
1233 int result = TCL_OK;
1287 result = Tcl_SplitList(interp, argv[1+i*2], &varcList[i], &varvList[i]);
1288 if (result != TCL_OK) {
1291 result = Tcl_SplitList(interp, argv[2+i*2], &argcList[i], &argvList[i]);
1292 if (result != TCL_OK) {
1319 result = TCL_ERROR;
1325 result = Tcl_Eval(interp, argv[argc-1]);
1326 if (result != TCL_OK) {
1327 if (result == TCL_CONTINUE) {
1328 result = TCL_OK;
1329 } else if (result == TCL_BREAK) {
1330 result = TCL_OK;
1332 } else if (result == TCL_ERROR) {
1343 if (result == TCL_OK) {
1363 return result;
1376 * A standard Tcl result.
1399 int size; /* Number of bytes needed for result of
1415 char *dst = interp->result; /* Where result is stored. Starts off at
1438 * 2. we must be able to provide a large enough result area to hold
1487 * will be needed to store the result, and substitute for
1643 interp->result =
1647 sprintf(interp->result, "bad field specifier \"%c\"", *format);
1655 * result, then format it.
1697 interp->result = dst;
1706 interp->result = "cannot mix \"%\" and \"%n$\" conversion specifiers";
1711 interp->result = "\"%n$\" argument index out of range";
1713 interp->result = "not enough arguments for all format specifiers";