Subversion Repositories pspware

Rev

Rev 345 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
345 Oobles 1
#include <stdlib.h>
2
#include <unistd.h>
3
#include <string.h>
4
 
5
#include <pspkernel.h>
6
#include <pspdebug.h>
7
#include <pspdisplay.h>
8
 
9
#include "luaplayer.h"
10
 
11
 
12
static lua_State *L;
13
 
14
 
15
const char * runScript(const char* script, bool isStringBuffer )
16
{
17
        L = lua_open();
18
 
19
        // Standard libraries
20
        luaopen_io(L);
21
        luaopen_base(L);
22
        luaopen_table(L);
23
        luaopen_string(L);
24
        luaopen_math(L);
350 Oobles 25
 
26
        // luasystem.cpp defines our loadlib.
27
        // luaopen_loadlib(L);
345 Oobles 28
 
29
        // Modules
30
        luaSound_init(L);
31
        luaControls_init(L);
32
        luaGraphics_init(L);
33
        lua3D_init(L);
34
        luaTimer_init(L);
35
        luaSystem_init(L);
36
        luaWlan_init(L);
37
 
38
        int s = 0;
39
        const char * errMsg = NULL;
40
 
41
        if(!isStringBuffer)
42
                s = luaL_loadfile(L, script);
43
        else
44
                s = luaL_loadbuffer(L, script, strlen(script), NULL);
45
 
46
        if (s == 0) {
47
                s = lua_pcall(L, 0, LUA_MULTRET, 0);
48
        }
49
        if (s) {
50
                errMsg = lua_tostring(L, -1);
51
                printf("error: %s\n", lua_tostring(L, -1));
52
                lua_pop(L, 1); // remove error message
53
        }
54
        lua_close(L);
55
 
56
        return errMsg;
57
}