summaryrefslogtreecommitdiffstats
path: root/lua.rs
blob: 77a9c74c74018e06de4ffcb8f7a8460a6528f5a8 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
#[link(name = "lua", vers = "0.0.1", author = "doy")];

#[crate_type = "lib"];

use ptr::null;
use libc::{c_char,c_int};

pub struct State {
    priv state: *lua_State,
}

impl State {
    fn close(self) {
        close(self)
    }

    fn openlibs(self) {
        openlibs(self)
    }

    fn loadstring(self, string: &str) -> Status {
        loadstring(self, string)
    }

    fn call(self, nargs: int, nresults: int) {
        call(self, nargs, nresults)
    }
}

pub enum Status {
    OK        = 0,
    YIELD     = 1,
    ERRRUN    = 2,
    ERRSYNTAX = 3,
    ERRMEM    = 4,
    ERRGCMM   = 5,
    ERRERR    = 6,
}

pub fn newstate() -> State {
    State { state: lua::luaL_newstate() }
}

pub fn close(state: State) {
    lua::lua_close(state.state)
}

pub fn openlibs(state: State) {
    lua::luaL_openlibs(state.state)
}

pub fn loadstring(state: State, string: &str) -> Status {
    let status = do str::as_c_str(string) |c_string| {
        lua::luaL_loadstring(state.state, c_string)
    };
    match status {
        0 => OK,
        3 => ERRSYNTAX,
        4 => ERRMEM,
        5 => ERRGCMM,
        _ => fail ~"Unexpected status in loadstring",
    }
}

pub fn call(state: State, nargs: int, nresults: int) {
    lua::lua_callk(
        state.state,
        nargs as c_int,
        nresults as c_int,
        0 as c_int,
        null()
    )
}

enum lua_State {}
enum lua_CFunction {}

extern mod lua {
    fn luaL_newstate() -> *lua_State;
    fn lua_close(state: *lua_State);
    fn luaL_openlibs(state: *lua_State);

    fn luaL_loadstring(state: *lua_State, string: *c_char) -> c_int;
    fn lua_callk(
        state: *lua_State,
        nargs: c_int,
        nresults: c_int,
        ctx: c_int,
        k: *lua_CFunction
    );
}