Function CP_set_reference_state

wrappers/MathCAD/CoolPropMathcad.cpp:248–279

This code executes the user function CP_set_reference_state, which is a wrapper for the CoolProp.set_reference_stateS() function, used to set the H/S reference states based on a standard state string of "IIR", "ASHRAE", "NBP", or "DEF".

// the CoolProp.set_reference_stateS() function, used to set the H/S reference states
// based on a standard state string of "IIR", "ASHRAE", "NBP", or "DEF".
static LRESULT CP_set_reference_state(LPCOMPLEXSCALAR Conf,   // output (dummy value)
                                      LPCMCSTRING FluidName,  // name of fluid (string) to retrieve
                                      LPCMCSTRING StateStr)   // name of standard state (string) to set
{
    // Invoke the set_reference_stateS() function, no result from this void function.
    try {
        CoolProp::set_reference_stateS(FluidName->str, StateStr->str);
    } catch (const CoolProp::ValueError& e) {
        std::string emsg(e.what());
        CoolProp::set_error_string(emsg);

        // Normalize the error message to lowercase to simplify substring checks and
        // avoid repeating checks for different capitalizations.
        std::string emsg_l = emsg;
        std::transform(emsg_l.begin(), emsg_l.end(), emsg_l.begin(), [](unsigned char c) { return static_cast<char>(std::tolower(c)); });

        if (emsg_l.find("key") != std::string::npos)
            return MAKELRESULT(BAD_FLUID, 1);
        else if ((emsg_l.find("cannot use") != std::string::npos) || (emsg_l.find("temperature to qt_flash") != std::string::npos))
            return MAKELRESULT(BAD_REF, 2);
        else if (emsg_l.find("reference state") != std::string::npos)
            return MAKELRESULT(BAD_PARAMETER, 2);
        else
            return MAKELRESULT(UNKNOWN, 1);
    }

    // assign the dummy return value
    Conf->real = 0;

    // normal return
    return 0;
}

// Helper: centralize text-matching logic for Props1SI error handling
static LRESULT HandleProps1SIError(const std::string& emsg, const std::string& FluidString, const std::string& PropName) {