Lines Matching refs:sortInterp
39 static Tcl_Interp *sortInterp = NULL; /* Interpreter for "lsort" command.
880 if (sortInterp != NULL) {
889 sortInterp = interp;
954 sortInterp = NULL;
991 * so as to preserve the error message in sortInterp->result.
1001 if ((Tcl_GetInt(sortInterp, firstString, &a) != TCL_OK)
1002 || (Tcl_GetInt(sortInterp, secondString, &b) != TCL_OK)) {
1003 Tcl_AddErrorInfo(sortInterp,
1016 if ((Tcl_GetDouble(sortInterp, firstString, &a) != TCL_OK)
1017 || (Tcl_GetDouble(sortInterp, secondString, &b) != TCL_OK)) {
1018 Tcl_AddErrorInfo(sortInterp,
1040 sortCode = Tcl_Eval(sortInterp, Tcl_DStringValue(&sortCmd));
1043 Tcl_AddErrorInfo(sortInterp,
1052 order = strtol(sortInterp->result, &end, 0);
1053 if ((end == sortInterp->result) || (*end != 0)) {
1054 Tcl_ResetResult(sortInterp);
1055 Tcl_AppendResult(sortInterp,