149 lines
2.8 KiB
C++
149 lines
2.8 KiB
C++
|
|
#include "ag.h"
|
|
#include "Video.h"
|
|
#include "anaglym.h"
|
|
#include <lua.hpp>
|
|
#include <stdlib.h> /* exit() */
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <iostream>
|
|
#include <string>
|
|
using namespace std;
|
|
|
|
static void usage();
|
|
|
|
Engine * g_engine;
|
|
|
|
static void usage()
|
|
{
|
|
cerr << "Usage: anaglym [options] program.lua[c]" << endl;
|
|
exit(42);
|
|
}
|
|
|
|
int main(int argc, char * argv[])
|
|
{
|
|
const char * program = NULL;
|
|
for (int i = 1; i < argc; i++)
|
|
{
|
|
if (argv[i][0] != '-')
|
|
{
|
|
if (program == NULL)
|
|
{
|
|
program = argv[i];
|
|
}
|
|
else
|
|
{
|
|
cerr << "Warning: argument " << argv[i] << " ignored!" << endl;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
cerr << "Warning: Unrecognized option '" << argv[i]+1
|
|
<< "'" << endl;
|
|
}
|
|
}
|
|
|
|
if (program == NULL)
|
|
{
|
|
usage();
|
|
}
|
|
|
|
g_engine = new Engine();
|
|
g_engine->load(program);
|
|
g_engine->run();
|
|
delete g_engine;
|
|
|
|
return 0;
|
|
}
|
|
|
|
void Engine::reportErrors(int status)
|
|
{
|
|
if (status != 0)
|
|
{
|
|
cerr << "Engine: Error: " << lua_tostring(m_luaState, -1) << endl;
|
|
lua_pop(m_luaState, 1); // remove error message
|
|
}
|
|
}
|
|
|
|
Engine::Engine()
|
|
{
|
|
m_video = new Video();
|
|
}
|
|
|
|
Engine::~Engine()
|
|
{
|
|
delete m_video;
|
|
}
|
|
|
|
bool Engine::load(const char * program)
|
|
{
|
|
m_program_path = program;
|
|
size_t pos = m_program_path.find_last_of("/\\");
|
|
m_program_path = (pos != string::npos)
|
|
? m_program_path.substr(0, pos)
|
|
: ".";
|
|
|
|
m_luaState = lua_open();
|
|
|
|
registerLibraries();
|
|
|
|
int s = luaL_loadfile(m_luaState, program);
|
|
|
|
if ( s == 0 )
|
|
{
|
|
// execute Lua program
|
|
s = lua_pcall(m_luaState, 0, LUA_MULTRET, 0);
|
|
}
|
|
else
|
|
{
|
|
cerr << "Warning: problem loading '" << program << "'" << endl;
|
|
return 1;
|
|
}
|
|
|
|
reportErrors(s);
|
|
lua_close(m_luaState);
|
|
}
|
|
|
|
void Engine::registerLibraries()
|
|
{
|
|
/* Load the Lua string library */
|
|
lua_pushcfunction(m_luaState, luaopen_string);
|
|
lua_pcall(m_luaState, 0, 0, 0);
|
|
|
|
/* Load the Lua math library */
|
|
lua_pushcfunction(m_luaState, luaopen_math);
|
|
lua_pcall(m_luaState, 0, 0, 0);
|
|
|
|
/* Load the Lua table library */
|
|
lua_pushcfunction(m_luaState, luaopen_table);
|
|
lua_pcall(m_luaState, 0, 0, 0);
|
|
|
|
ag::register_functions(m_luaState);
|
|
}
|
|
|
|
string Engine::locateResource(const string & shortname)
|
|
{
|
|
string try_path;
|
|
|
|
try_path = m_program_path + "/" + shortname;
|
|
if (fileExists(try_path))
|
|
return try_path;
|
|
|
|
return "";
|
|
}
|
|
|
|
bool Engine::fileExists(const string & path)
|
|
{
|
|
struct stat st;
|
|
if (stat(path.c_str(), &st) == 0)
|
|
{
|
|
return S_ISREG(st.st_mode) && (st.st_size > 0);
|
|
}
|
|
return false;
|
|
}
|
|
|
|
void Engine::run()
|
|
{
|
|
}
|