Function OPS_EvalDoubleStringExpression

SRC/api/elementAPI_TCL.cpp:389–396

extern "C"
int OPS_EvalDoubleStringExpression(const char* theExpression, double& current_val) {
    if (Tcl_ExprDouble(theInterp, theExpression, &current_val) != TCL_OK) {
        opserr << "OPS_EvalDoubleStringExpression::evaluateExpression -- expression \"" << theExpression;
        opserr << "\" caused error:" << endln << Tcl_GetStringResult(theInterp) << endln;
        return -1;
    }
    return 0;
}

extern "C"
int OPS_SetDoubleOutput(int* numData, double* data, bool scalar)