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 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);

    int luaerr;
    char line[1024];

    while (!i.eof() && !i.fail()) {
        i.getline(line,sizeof(line));

        luaerr = luaL_loadstring(LUA, line);
        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;
}