Lines Matching refs:result
368 * interp->result, so we have to clear the result before
373 interp->result = "integer value too large to represent";
375 interp->result, (char *) NULL);
428 * standard Tcl error is returned, using interp->result to hold
453 int result;
477 interp->result = "integer value too large to represent";
479 interp->result, (char *) NULL);
527 result = Tcl_Eval(interp, p+1);
529 if (result != TCL_OK) {
530 return result;
539 result = ExprParseString(interp, interp->result, valuePtr);
540 if (result != TCL_OK) {
541 return result;
548 result = TclParseQuotes(interp, infoPtr->expr, '"', 0,
550 if (result != TCL_OK) {
551 return result;
558 result = TclParseBraces(interp, infoPtr->expr, &infoPtr->expr,
560 if (result != TCL_OK) {
561 return result;
703 * returned in *valuePtr. If an error occurred, then interp->result
741 int result;
753 result = ExprLex(interp, infoPtr, valuePtr);
754 if (result != TCL_OK) {
763 result = ExprGetValue(interp, infoPtr, -1, valuePtr);
764 if (result != TCL_OK) {
770 result = TCL_ERROR;
787 result = ExprGetValue(interp, infoPtr, precTable[infoPtr->token],
789 if (result != TCL_OK) {
852 result = ExprLex(interp, infoPtr, &value2);
853 if (result != TCL_OK) {
863 result = TCL_OK;
870 result = TCL_OK;
876 * determines the result, don't execute anything in the
901 result = ExprGetValue(interp, infoPtr, precTable[operator],
904 if (result != TCL_OK) {
920 result = ExprGetValue(interp, infoPtr,
922 if (result != TCL_OK) {
930 result = ExprGetValue(interp, infoPtr,
935 result = ExprGetValue(interp, infoPtr,
938 if (result != TCL_OK) {
945 result = ExprGetValue(interp, infoPtr,
947 if (result != TCL_OK) {
953 result = ExprGetValue(interp, infoPtr, precTable[operator],
957 result = ExprGetValue(interp, infoPtr, precTable[operator],
960 if (result != TCL_OK) {
1079 interp->result = "unknown operator in expression";
1080 result = TCL_ERROR;
1104 interp->result = "divide by zero";
1106 interp->result, (char *) NULL);
1107 result = TCL_ERROR;
1284 interp->result = "can't have : operator without ? first";
1285 result = TCL_ERROR;
1294 return result;
1299 result = TCL_ERROR;
1307 result = TCL_ERROR;
1360 * The result is a standard Tcl return value. If an error
1361 * occurs then an error message is left in interp->result.
1364 * or double). Caller may need to convert result. Caller
1379 Value *valuePtr; /* Where to store result. Should
1383 int result;
1408 result = ExprGetValue(interp, &info, -1, valuePtr);
1409 if (result != TCL_OK) {
1410 return result;
1439 * Each of the procedures below returns a standard Tcl result.
1441 * interp->result. Otherwise the value of the expression,
1443 * the expression had a result that was incompatible with the
1457 long *ptr; /* Where to store result. */
1460 int result;
1462 result = ExprTopLevel(interp, string, &value);
1463 if (result == TCL_OK) {
1469 interp->result = "expression didn't have numeric value";
1470 result = TCL_ERROR;
1476 return result;
1484 double *ptr; /* Where to store result. */
1487 int result;
1489 result = ExprTopLevel(interp, string, &value);
1490 if (result == TCL_OK) {
1496 interp->result = "expression didn't have numeric value";
1497 result = TCL_ERROR;
1503 return result;
1511 int *ptr; /* Where to store 0/1 result. */
1514 int result;
1516 result = ExprTopLevel(interp, string, &value);
1517 if (result == TCL_OK) {
1523 result = Tcl_GetBoolean(interp, value.pv.buffer, ptr);
1529 return result;
1541 * A standard Tcl result. If the result is TCL_OK, then the
1542 * interpreter's result is set to the string value of the
1543 * expression. If the result is TCL_OK, then interp->result
1559 int result;
1561 result = ExprTopLevel(interp, string, &value);
1562 if (result == TCL_OK) {
1564 sprintf(interp->result, "%ld", value.intValue);
1566 Tcl_PrintDouble(interp, value.doubleValue, interp->result);
1569 interp->result = value.pv.buffer;
1580 return result;
1650 * is returned and an error message is left in interp->result.
1680 int i, result;
1692 result = ExprLex(interp, infoPtr, valuePtr);
1693 if (result != TCL_OK) {
1716 result = ExprLex(interp, infoPtr, valuePtr);
1717 if ((result != TCL_OK) || (infoPtr->token != CLOSE_PAREN)) {
1723 result = ExprGetValue(interp, infoPtr, -1, valuePtr);
1724 if (result != TCL_OK) {
1725 return result;
1728 interp->result =
1766 interp->result = "too many arguments for math function";
1774 interp->result = "too few arguments for math function";
1790 * Invoke the function and copy its result back into valuePtr.
1794 result = (*mathFuncPtr->proc)(mathFuncPtr->clientData, interp, args,
1797 if (result != TCL_OK) {
1798 return result;
1824 * interp->result accordingly.
1827 * Interp->result is set to hold an error message.
1844 interp->result = "domain error: argument not in valid range";
1845 Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", interp->result,
1849 interp->result = "floating-point value too small to represent";
1850 Tcl_SetErrorCode(interp, "ARITH", "UNDERFLOW", interp->result,
1853 interp->result = "floating-point value too large to represent";
1854 Tcl_SetErrorCode(interp, "ARITH", "OVERFLOW", interp->result,
1861 Tcl_SetErrorCode(interp, "ARITH", "UNKNOWN", interp->result,
1876 * Each procedure returns TCL_OK if it succeeds and places result
1878 * and leaves an error message in interp->result.
1890 * returns a double result. */
1911 * returns a double result. */
1950 interp->result = "integer value too large to represent";
1951 Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", interp->result,
1994 interp->result = "integer value too large to represent";
1996 interp->result, (char *) NULL);
2024 interp->result = "integer value too large to represent";
2026 interp->result, (char *) NULL);