Lines Matching refs:result
56 * A standard Tcl result.
84 interp->result = dirName;
98 * A standard Tcl result.
196 interp->result = "0";
207 char *result, info[50];
212 result = Tcl_SetVar(interp, argPtr[i+2], "-1 -1", 0);
214 result = Tcl_SetVar(interp, argPtr[i+2], "", 0);
220 result = Tcl_SetVar(interp, argPtr[i+2], info, 0);
228 result = Tcl_SetVar(interp, argPtr[i+2], first, 0);
232 if (result == NULL) {
238 interp->result = "1";
252 * A standard Tcl result.
358 * result variable.
473 * result variable.
482 sprintf(interp->result, "%d", numMatches);
503 * A standard Tcl result.
621 * A standard Tcl result.
699 * A standard Tcl result.
734 int numScanned; /* sscanf's result. */
808 interp->result = "too many fields to scan";
835 interp->result =
860 interp->result = "unmatched [ in format string";
870 sprintf(interp->result, "bad scan conversion character \"%c\"",
881 interp->result =
974 sprintf(interp->result, "%d", numScanned);
995 * A standard Tcl result.
1029 * A standard Tcl result.
1106 * A standard Tcl result.
1142 interp->result = "1";
1144 interp->result = "-1";
1146 interp->result = "0";
1172 sprintf(interp->result, "%d", match);
1186 interp->result[0] = argv[2][index];
1187 interp->result[1] = 0;
1206 sprintf(interp->result, "%d", strlen(argv[2]));
1215 interp->result = "1";
1217 interp->result = "0";
1279 for (p = interp->result; *p != 0; p++) {
1295 for (p = interp->result; *p != 0; p++) {
1333 p = interp->result + strlen(interp->result) - 1;
1334 donePtr = &interp->result[-1];
1388 sprintf(interp->result, "%d", cur);
1422 sprintf(interp->result, "%d", cur);
1445 * A standard Tcl result.
1462 Tcl_DString result;
1508 Tcl_DStringInit(&result);
1515 Tcl_DStringAppend(&result, old, p-old);
1518 Tcl_DStringAppend(&result, &c, 1);
1529 Tcl_DStringAppend(&result, old, p-old);
1533 Tcl_DStringFree(&result);
1536 Tcl_DStringAppend(&result, value, -1);
1546 Tcl_DStringAppend(&result, old, p-old);
1551 Tcl_DStringFree(&result);
1555 Tcl_DStringAppend(&result, iPtr->result, -1);
1568 Tcl_DStringAppend(&result, old, p-old);
1570 Tcl_DStringResult(interp, &result);
1584 * A standard Tcl result.
1658 interp->result = "extra switch pattern with no body";
1741 * A standard Tcl result.
1757 int count, i, result;
1774 result = Tcl_Eval(interp, argv[1]);
1775 if (result != TCL_OK) {
1776 if (result == TCL_ERROR) {
1782 return result;
1788 sprintf(interp->result, "%.0f microseconds per iteration",
1803 * A standard Tcl result.
2002 char *result;
2007 result = NULL;
2038 * result from the interpreter used for the command.
2043 dummy.result = "";
2044 Tcl_SetResult((Tcl_Interp *) &dummy, interp->result, TCL_VOLATILE);
2047 dummy.result = interp->result;
2053 tvarPtr->errMsg = (char *) ckalloc((unsigned) (strlen(interp->result) + 1));
2054 strcpy(tvarPtr->errMsg, interp->result);
2055 result = tvarPtr->errMsg;
2058 Tcl_SetResult(interp, dummy.result,
2062 result = NULL;
2068 return result;
2081 * A standard Tcl result.
2097 int result, value;
2106 result = Tcl_ExprBoolean(interp, argv[1], &value);
2107 if (result != TCL_OK) {
2108 return result;
2113 result = Tcl_Eval(interp, argv[2]);
2114 if ((result != TCL_OK) && (result != TCL_CONTINUE)) {
2115 if (result == TCL_ERROR) {
2124 if (result == TCL_BREAK) {
2125 result = TCL_OK;
2127 if (result == TCL_OK) {
2130 return result;