CoolProp/wrappers/Lua/coolprop/capi.c

#include <stddef.h>
#include <stdlib.h>
#include <lua.h>
#include <lauxlib.h>
#include "../../../include/CoolPropLib.h"
#include "compat.h"

static int lua_coolprop_Props1SI(lua_State* L) {
    lua_pushnumber(L, Props1SI(luaL_checkstring(L, 1), luaL_checkstring(L, 2)));
    return 1;
}

static int lua_coolprop_PropsSI(lua_State* L) {
    lua_pushnumber(L, PropsSI(luaL_checkstring(L, 1), luaL_checkstring(L, 2), luaL_checknumber(L, 3), luaL_checkstring(L, 4), luaL_checknumber(L, 5),
                              luaL_checkstring(L, 6)));
    return 1;
}

static int lua_coolprop_PhaseSI(lua_State* L) {
    char phase[256];
    int ok = PhaseSI(luaL_checkstring(L, 1), luaL_checknumber(L, 2), luaL_checkstring(L, 3), luaL_checknumber(L, 4), luaL_checkstring(L, 5), phase,
                     sizeof(phase));
    if (ok == 1) {
        lua_pushstring(L, phase);
        return 1;
    } else {
        return 0;
    }
}

static int lua_coolprop_get_global_param_string(lua_State* L) {
    char output[4096];
    int ok = get_global_param_string(luaL_checkstring(L, 1), output, sizeof(output));
    if (ok == 1) {
        lua_pushstring(L, output);
        return 1;
    }
    return 0;
}

static int lua_coolprop_get_parameter_information_string(lua_State* L) {
    char output[4096];
    int ok = get_parameter_information_string(luaL_checkstring(L, 1), output, sizeof(output));
    if (ok == 1) {
        lua_pushstring(L, output);
        return 1;
    }
    return 0;
}

/*
static int lua_coolprop_get_mixture_binary_pair_data(lua_State *L) {
    lua_pushinteger(L, get_mixture_binary_pair_data(
        luaL_checkstring(L, 1),
        luaL_checkstring(L, 2),
        luaL_checkstring(L, 3)
    ));
    return 1;
}
*/

static int lua_coolprop_get_fluid_param_string(lua_State* L) {
    char output[4096];
    int ok = get_fluid_param_string(luaL_checkstring(L, 1), luaL_checkstring(L, 2), output, sizeof(output));
    if (ok == 1) {
        lua_pushstring(L, output);
        return 1;
    }
    return 0;
}

static int lua_coolprop_set_reference_stateS(lua_State* L) {
    lua_pushboolean(L, set_reference_stateS(luaL_checkstring(L, 1), luaL_checkstring(L, 2)));
    return 1;
}

static int lua_coolprop_set_reference_stateD(lua_State* L) {
    lua_pushboolean(L, set_reference_stateD(luaL_checkstring(L, 1), luaL_checknumber(L, 2), luaL_checknumber(L, 3), luaL_checknumber(L, 4),
                                            luaL_checknumber(L, 5)));
    return 1;
}

static int lua_coolprop_F2K(lua_State* L) {
    lua_pushnumber(L, F2K(luaL_checknumber(L, 1)));
    return 1;
}

static int lua_coolprop_K2F(lua_State* L) {
    lua_pushnumber(L, K2F(luaL_checknumber(L, 1)));
    return 1;
}

static int lua_coolprop_get_param_index(lua_State* L) {
    lua_pushnumber(L, get_param_index(luaL_checkstring(L, 1)));
    return 1;
}

static int lua_coolprop_redirect_stdout(lua_State* L) {
    lua_pushboolean(L, redirect_stdout(luaL_checkstring(L, 1)));
    return 1;
}

static int lua_coolprop_get_debug_level(lua_State* L) {
    lua_pushinteger(L, get_debug_level());
    return 1;
}

static int lua_coolprop_set_debug_level(lua_State* L) {
    set_debug_level(luaL_checknumber(L, 1));
    return 0;
}

static int lua_coolprop_saturation_ancillary(lua_State* L) {
    lua_pushnumber(L, saturation_ancillary(luaL_checkstring(L, 1), luaL_checkstring(L, 2), luaL_checkinteger(L, 3), luaL_checkstring(L, 4),
                                           luaL_checknumber(L, 5)));
    return 1;
}

static int lua_coolprop_HAPropsSI(lua_State* L) {
    lua_pushnumber(L, HAPropsSI(luaL_checkstring(L, 1), luaL_checkstring(L, 2), luaL_checknumber(L, 3), luaL_checkstring(L, 4),
                                luaL_checknumber(L, 5), luaL_checkstring(L, 6), luaL_checknumber(L, 7)));
    return 1;
}

static struct luaL_Reg funcs[] = {{"Props1SI", lua_coolprop_Props1SI},
                                  {"PropsSI", lua_coolprop_PropsSI},
                                  {"PhaseSI", lua_coolprop_PhaseSI},
                                  {"get_global_param_string", lua_coolprop_get_global_param_string},
                                  {"get_parameter_information_string", lua_coolprop_get_parameter_information_string},
                                  //{"get_mixture_binary_pair_data", lua_coolprop_get_mixture_binary_pair_data},
                                  {"get_fluid_param_string", lua_coolprop_get_fluid_param_string},
                                  {"set_reference_stateS", lua_coolprop_set_reference_stateS},
                                  {"set_reference_stateD", lua_coolprop_set_reference_stateD},
                                  {"F2K", lua_coolprop_F2K},
                                  {"K2F", lua_coolprop_K2F},
                                  {"get_param_index", lua_coolprop_get_param_index},
                                  {"redirect_stdout", lua_coolprop_redirect_stdout},
                                  {"get_debug_level", lua_coolprop_get_debug_level},
                                  {"set_debug_level", lua_coolprop_set_debug_level},
                                  {"saturation_ancillary", lua_coolprop_saturation_ancillary},
                                  {"HAPropsSI", lua_coolprop_HAPropsSI},
                                  {NULL, NULL}};

int luaopen_coolprop_capi(lua_State* L) {
    luaL_newlib(L, funcs);
    return 1;
}