1

#include "lua_console.h"

     2

#include "lua_objs.h"

     3

#include "log.h"

     4

     5

#include <stdlib.h>

     6

     7

#include <lua5.1/lauxlib.h>

     8

     9

struct lua_console {

    10

    /** The lowlevel line-based console */

    11

    struct console *console;

    12

    13

    /** Our lua state */

    14

    struct nexus_lua *lua;

    15

    16

    /** Coroutine state */

    17

    struct lua_thread thread;

    18

};

    19

    20

/**

    21

 * Line finished execution

    22

 */

    24

{

    25

    struct lua_console *lc = arg;

    26

    27

    if (err)

    28

        // display error message

    29

        console_print(lc->console, error_msg(err));

    30

    31

    // XXX: display return value?

    32

    33

    // un-wait console

    34

    console_continue(lc->console);

    35

}

    36

    37

/**

    38

 * Got a line to exec from the console

    39

 */

    40

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

    41

{

    42

    struct lua_console *lc = arg;

    43

    error_t err;

    45

    46

    // ignore empty lines and EOF

    47

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

    48

        return CONSOLE_CONTINUE;

    49

    50

    // exec it in our thread

    52

        // display error message

    53

        console_print(lc->console, error_msg(&err));

    54

    55

        return CONSOLE_CONTINUE;

    57

    64

}

    65

    66

static void lua_console_on_eof (void *arg)

    67

{

    68

    struct lua_console *lc = arg;

    69

    70

    // exit the process

    71

    nexus_shutdown(lc->lua->nexus);

    72

}

    73

    74

static struct console_callbacks _console_callbacks = {

    75

    .on_line    = lua_console_on_line,

    76

    .on_eof     = lua_console_on_eof,

    77

};

    78

    79

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

    80

{

    81

    struct lua_console *lc;

    82

    83

    // allocate

    84

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

    85

        return SET_ERROR(err, ERR_CALLOC);

    86

    87

    // store

    88

    lc->console = console;

    89

    lc->lua = lua;

    90

    91

    // set our console callbacks

    92

    console_set_callbacks(console, &_console_callbacks, lc);

    93

    94

    // init thread

    95

    lua_thread_init(&lc->thread, lua, lua_console_on_thread, lc);

    96

    97

    // ok

    98

    *lc_ptr = lc;

    99

   100

    return SUCCESS;

   101

}

   102

   103

void lua_console_destroy (struct lua_console *lc)

   104

{

   105

    // the console

   106

    console_destroy(lc->console);

   107

   108

    free(lc);

   109

}