LuaBase::LuaBase() :
_translationMode(0), _frameTimeCollection(0) {
s_instance = this;
lua_iolibopen();
lua_strlibopen();
lua_mathlibopen();
}
static void userinit (void) {
lua_baselibopen(L);
lua_iolibopen(L);
lua_strlibopen(L);
lua_mathlibopen(L);
lua_dblibopen(L);
/* add your libraries here */
}
void lua_init()
{
g_pLuaVm = lua_open();
lua_baselibopen(g_pLuaVm);
lua_tablibopen(g_pLuaVm);
lua_iolibopen(g_pLuaVm);
lua_strlibopen(g_pLuaVm);
lua_mathlibopen(g_pLuaVm);
register_lua_functions(g_pLuaVm);
g_pEffectLuaVm = lua_open();
lua_baselibopen(g_pEffectLuaVm);
lua_tablibopen(g_pEffectLuaVm);
lua_iolibopen(g_pEffectLuaVm);
lua_strlibopen(g_pEffectLuaVm);
lua_mathlibopen(g_pEffectLuaVm);
register_lua_functions(g_pEffectLuaVm);
}
int main() {
int i;
#ifndef NOSERIAL
serial_init(57600);
usleep(2000000);
printf("Serial OK\r\n");
#endif
atexit(quit);
g_registry = new Registry();
g_registry->set("DataDir", "/GRIMDATA");
g_registry->set("good_times", "TRUE");
g_driver = new DriverRonin();
g_engine = new Engine();
g_resourceloader = new ResourceLoader();
g_localizer = new Localizer();
g_mixer = new SoundMixer();
g_mixer->setVolume(255);
g_timer = new Timer();
g_smush = new Smush();
g_imuse = new Imuse(20);
Bitmap *splash_bm = NULL;
splash_bm = g_resourceloader->loadBitmap("splash.bm");
splash_bm->ref();
g_driver->clearScreen();
splash_bm->draw();
g_driver->flipBuffer();
splash_bm->deref();
lua_iolibopen();
lua_strlibopen();
lua_mathlibopen();
register_lua();
g_lua_initialized = true;
bundle_dofile("_system.lua");
lua_pushnil(); // resumeSave
lua_pushnil(); // bootParam
// lua_pushnumber(0); // bootParam
lua_call("BOOT");
g_engine->setMode(ENGINE_MODE_NORMAL);
g_engine->mainLoop();
quit();
return 0;
}
void context_new_VM(context_t * context)
{
context_lock_list();
context->luaVM = lua_open();
lua_baselibopen(context->luaVM);
lua_tablibopen(context->luaVM);
lua_iolibopen(context->luaVM);
lua_strlibopen(context->luaVM);
lua_mathlibopen(context->luaVM);
register_lua_functions(context);
context_unlock_list();
}
static void userinit (void) {
lua_baselibopen(L);
lua_iolibopen(L);
lua_strlibopen(L);
lua_mathlibopen(L);
lua_dblibopen(L);
/* add your libraries here */
lua_socketlibopen(L);
md5lib_open(L);
wrap_register(L);
ltime_register(L);
luaopen_posix(L);
drop_register(L);
}
int main(void)
{
int rc;
L=lua_open(0);
lua_baselibopen(L);
lua_iolibopen(L);
lua_strlibopen(L);
lua_mathlibopen(L);
lua_dblibopen(L);
start_trace(stderr);
rc=lua_dofile(L,0);
stop_trace();
return rc;
}
classLUA::classLUA (int iStackSize)
{
m_pState = lua_open (0);
if ( m_pState )
{
lua_baselibopen(m_pState);
lua_mathlibopen(m_pState);
lua_iolibopen(m_pState);
}
m_pBuffer = NULL;
m_lBufferSize = 0;
}
kgmLuaScript::kgmLuaScript(kgmIResources *r)
{
resources = r;
handler = lua_open(0);
if(!handler)
return;
lua_baselibopen (handler);
//lua_iolibopen (handler);
lua_strlibopen (handler);
lua_mathlibopen (handler);
//lua_dblibopen (handler);
}
int main(int argc, char *argv[])
{
/* initialize Lua */
lua_State *L = lua_open(0);
/* open libraries */
lua_baselibopen(L);
lua_iolibopen(L);
lua_strlibopen(L);
lua_mathlibopen(L);
lua_socketlibopen(L);
lua_muwlibopen(L);
/* execute the specified file */
return lua_dofile(L, argv[1]);
}
void AvHScriptInstance::Init()
{
this->mState = lua_open();
lua_baselibopen(this->mState);
lua_strlibopen(this->mState);
lua_mathlibopen(this->mState);
//lua_iolibopen(this->mState);
this->InitShared();
#ifdef AVH_SERVER
this->InitServer();
#else
this->InitClient();
#endif
}
bool kgmLuaOpen()
{
if(lua_main)
return false;
lua_main = lua_open(0);
if(!lua_main)
return false;
lua_baselibopen (lua_main);
lua_iolibopen (lua_main);
lua_strlibopen (lua_main);
lua_mathlibopen (lua_main);
lua_dblibopen (lua_main);
return true;
}
/*
** Python prototype: "lua_state <-- lua_open([stack_size])"
** opens a Lua State and returns it to Python
** accepts an optional parameter informing the size of the stack Lua should use
** (measured in number of elements)
*/
static PyObject *Py_lua_open(PyObject *self, PyObject *args) {
lua_State *L;
int stack_size = 0;
PyObject *result = NULL;
if (PyArg_ParseTuple(args, "|i:lua_open", &stack_size)) {
L = lua_open(stack_size);
lua_baselibopen(L);
lua_iolibopen(L);
lua_strlibopen(L);
lua_mathlibopen(L);
lua_dblibopen(L);
lua_register(L, "_LuaPy_callPythonFunction", Lua_callPythonFunction);
lua_register(L, "_LuaPy_setErrorMessage", Lua_setErrorMessage);
lua_dostring(L, LUA_init_state);
result = Py_BuildValue("i", L);
}
return result;
}
int main (int argc, char *argv[])
{
int i;
OleInitialize(NULL);
SetConsoleTitle(LUACOM_VERSION);
#if defined(LUA4)
lua_State *lua_state = lua_open(0);
lua_baselibopen (lua_state);
lua_mathlibopen (lua_state);
lua_iolibopen (lua_state);
lua_strlibopen (lua_state);
#elif defined(LUA5)
lua_State *lua_state = lua_open();
luaopen_base (lua_state);
luaopen_math (lua_state);
luaopen_io (lua_state);
luaopen_string (lua_state);
luaopen_table (lua_state);
#endif
lua_pushstring(lua_state, "> "); lua_setglobal(lua_state, "_PROMPT");
luacom_open(lua_state);
init_windows(lua_state);
if (argc < 2) { /* no arguments? */
if (isatty(0)) {
printf("%s %s\n", LUACOM_VERSION, LUACOM_COPYRIGHT);
manual_input(lua_state, 1);
}
else
ldo(lua_state, lua_dofile, NULL); /* executes stdin as a file */
}
else for (i=1; i<argc; i++) {
if (argv[i][0] == '-') { /* option? */
switch (argv[i][1]) {
case 0:
ldo(lua_state, lua_dofile, NULL); /* executes stdin as a file */
break;
case 'i':
manual_input(lua_state, 1);
break;
case 'q':
manual_input(lua_state, 0);
break;
case 'v':
printf("%s %s\n(written by %s)\n\n",
LUACOM_VERSION, LUACOM_COPYRIGHT, LUACOM_AUTHORS);
break;
case 'e':
i++;
if (ldo(lua_state, lua_dostring, argv[i]) != 0) {
fprintf(stderr, "lua: error running argument `%s'\n", argv[i]);
return 1;
}
break;
default:
print_message();
exit(1);
}
}
else if (strchr(argv[i], '='))
assign(lua_state, argv[i]);
else {
int result = ldo(lua_state, lua_dofile, argv[i]);
if (result) {
if (result == 2) {
fprintf(stderr, "lua: cannot execute file ");
perror(argv[i]);
}
exit(1);
}
}
}
luacom_close(lua_state);
lua_close(lua_state);
OleUninitialize();
return 0;
}
int main ( int argc, char **argv )
{
IupOpen(&argc, &argv);
#ifndef IUPLUA_NO_GL
IupGLCanvasOpen();
#endif
#ifndef IUPLUA_NO_CD
IupControlsOpen();
IupPPlotOpen();
#endif
lua_open();
lua_setdebug(1);
lua_iolibopen( );
lua_strlibopen( );
lua_mathlibopen( );
iuplua_open( );
iupkey_open( );
#ifndef IUPLUA_NO_GL
iupgllua_open();
#endif
#ifndef IUPLUA_NO_CD
iupcontrolslua_open();
iup_pplotlua_open();
cdlua_open();
cdluaiup_open();
#endif
#ifndef IUPLUA_NO_IM
iupimlua_open();
imlua_open();
#endif
if (argc <= 1)
{
if(!iuplua_dofile("console3.lua"))
{
#ifdef TEC_BIGENDIAN
#ifdef TEC_64
#include "loh/console3_be64.loh"
#else
#include "loh/console3_be32.loh"
#endif
#else
#ifdef TEC_64
#ifdef WIN64
#include "loh/console3_le64w.loh"
#else
#include "loh/console3_le64.loh"
#endif
#else
#include "loh/console3.loh"
#endif
#endif
}
}
else
{
int ok = 1,
i = 1;
/* Running all .lua given as arguments */
while(ok & (i < argc))
{
ok = iuplua_dofile(argv[i]);
i++;
}
if(!ok)
{
return EXIT_FAILURE;
}
}
#ifndef IUPLUA_NO_CD
cdlua_close();
IupControlsClose();
#endif
IupClose();
lua_close();
return EXIT_SUCCESS;
}
