Function main1

src/Chain/libraries/glua/lua.cpp:594–615

int main1(int argc, char **argv) {
    /*
    argc = 2;
    argv = (char**)malloc(sizeof(char*) * 2);
    argv[0] = "lua";
    argv[1] = "sample.bytes";
    */
    int status, result;
    lua_State *L = luaL_newstate();  /* create state */
    if (L == nullptr) {
        l_message(argv[0], "cannot create state: not enough memory");
        return EXIT_FAILURE;
    }
    lua_pushcfunction(L, &pmain);  /* to call 'pmain' in protected mode */
    lua_pushinteger(L, argc);  /* 1st argument */
    lua_pushlightuserdata(L, argv); /* 2nd argument */
    status = lua_pcall(L, 2, 1, 0);  /* do the call */
    result = lua_toboolean(L, -1);  /* get result */
    report(L, status);
    lua_close(L);
    return (result && status == LUA_OK) ? EXIT_SUCCESS : EXIT_FAILURE;
}