1

#include "lua_console.h"

     2

#include "lua_objs.h"

     3

#include "log.h"

     4

     5

#include <stdlib.h>

     6

     7

#include <lua5.1/lualib.h>

     8

#include <lua5.1/lauxlib.h>

     9

    10

static void lua_console_on_line (const char *line, void *arg)

    11

{

    12

    struct lua_console *lc = arg;

    13

    lua_State *L = lc->st;

    14

    int ret;

    15

    16

    // ignore empty lines and EOF

    17

    if (!line || !(*line))

    18

        return;

    19

    20

    // load the line as a lua function

    21

    if ((ret = luaL_loadstring(L, line)))

    22

        goto error;

    23

    24

    // execute it

    25

    if ((ret = lua_pcall(L, 0, 0, 0)))

    26

        goto error;

    27

    28

    // XXX: display results?

    29

    30

error:

    31

    if (ret) {

    32

        const char *error = lua_tostring(L, -1);

    33

    34

        switch (ret) {

    35

            case LUA_ERRSYNTAX:

    36

                log_error("syntax error: %s", error);

    37

                break;

    38

    39

            case LUA_ERRRUN:

    40

                log_error("runtime error: %s", error);

    41

                break;

    42

    43

            case LUA_ERRMEM:

    44

                log_error("memory allocation error: %s", error);

    45

                break;

    46

    47

            case LUA_ERRERR:

    48

                log_error("error handling error: %s", error);

    49

                break;

    50

    51

            default:

    52

                log_error("unknown error: %s", error);

    53

                break;

    54

        };

    55

    56

        lua_pop(L, 1);

    57

    }

    58

}

    59

    60

static struct console_callbacks _console_callbacks = {

    61

    .on_line    = &lua_console_on_line,

    62

};

    63

    64

err_t lua_console_create (struct lua_console **lc_ptr, struct console *console, struct nexus *nexus, struct error_info *err)

    65

{

    66

    struct lua_console *lc;

    67

    68

    // allocate

    69

    if ((lc = calloc(1, sizeof(*lc))) == NULL)

    70

        return SET_ERROR(err, ERR_CALLOC);

    71

    72

    // store

    73

    lc->console = console;

    74

    75

    // set our console callbacks

    76

    console_set_callbacks(console, &_console_callbacks, lc);

    77

    78

    // create the lua state

    79

    if ((lc->st = luaL_newstate()) == NULL)

    80

        JUMP_SET_ERROR(err, ERR_LUA_MEM);

    81

    82

    // we can then load the core libs

    83

    // XXX: we don't need all of these

    84

    // XXX: errors?

    85

    luaL_openlibs(lc->st);

    86

    87

    // then our own things

    88

    if ((ERROR_CODE(err) = lua_objs_init(lc->st, nexus)))

    89

        goto error;

    90

    91

    // ok

    92

    *lc_ptr = lc;

    93

    94

    return SUCCESS;

    95

    96

error:

    97

    // destroy

    98

    lua_console_destroy(lc);

    99

   100

    return ERROR_CODE(err);

   101

}

   102

   103

void lua_console_destroy (struct lua_console *lc)

   104

{

   105

    // close the lua stuff

   106

    lua_close(lc->st);

   107

   108

    // and the console

   109

    console_destroy(lc->console);

   110

   111

    free(lc);

   112

}