dosbox-x/experiments/lua/lua1.cpp

#include <stdio.h>
#include <string.h>
#include <assert.h>

extern "C" {
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
}

#include <iostream>
#include <fstream>

using namespace std;

int reg_c_function1(lua_State *LUA) {
    (void)LUA;

    printf("* * From C++ here: LUA called reg_c_function1\n");
    return 0;
}

int reg_c_function2(lua_State *LUA) {
    (void)LUA;

    printf("* * From C++ here: LUA called reg_c_function2 '%s'\n",lua_tostring(LUA, -1));
    return 0;
}

int reg_c_function3(lua_State *LUA) {
    (void)LUA;

    printf("* * From C++ here: LUA called reg_c_function3\n");

    lua_pushstring(LUA, "Hello world I am a return value");
    return 1;
}

int main(int argc,char **argv) {
    ifstream i;

    if (argc > 1)
        i.open(argv[1],ios_base::in);
    else
        i.open("lua1.lua",ios_base::in);

    if (!i.is_open()) return 1;

    lua_State *LUA = luaL_newstate();
    assert(LUA != NULL);

    luaL_openlibs(LUA);

    lua_register(LUA, "reg_c_function1", reg_c_function1);
    lua_register(LUA, "reg_c_function2", reg_c_function2);
    lua_register(LUA, "reg_c_function3", reg_c_function3);

    int luaerr;
    char *blob;
    off_t sz;

    sz = 65536;
    blob = new char[sz]; /* or throw a C++ exception on fail */

    i.read(blob,sz-1);
    {
        streamsize rd = i.gcount();
        assert(rd < sz);
        blob[rd] = 0;
    }

    luaerr = luaL_loadstring(LUA, blob);
    if (luaerr) {
        fprintf(stderr,"LUA error: %s\n", lua_tostring(LUA, -1));
        lua_pop(LUA, 1);
        return 1;
    }

    delete[] blob;

    if (luaerr == 0) luaerr = lua_pcall(LUA, 0, 0, 0);

    if (luaerr) {
        fprintf(stderr,"LUA error: %s\n", lua_tostring(LUA, -1));
        lua_pop(LUA, 1);
    }

    assert(LUA != NULL);
    lua_close(LUA);
    i.close();
    return 0;
}