1

#include "lua_objs.h"

     2

     3

#include <lua5.1/lua.h>

     4

#include <lua5.1/lualib.h>

     5

#include <lua5.1/lauxlib.h>

     6

     7

/**

     8

 * Our lua wrapper for irc_net

     9

 */

    10

struct lua_irc_net {

    11

    struct irc_net *net;

    12

};

    13

    14

/**

    15

 * Wrapper for irc_client

    16

 */

    17

struct lua_client {

    18

    struct irc_client *client;

    19

};

    20

    21

static int lua_client_quit (lua_State *L)

    22

{

    23

    struct lua_client *lua_client;

    24

    err_t err;

    25

    26

    // validate the lua_client arg

    27

    if ((lua_client = luaL_checkudata(L, 1, "evirc.client")) == NULL)

    28

        return luaL_argerror(L, 1, "`client` expected");

    29

    30

    // the message

    31

    const char *message = luaL_checkstring(L, 2);

    32

    33

    // execute

    34

    if ((err = irc_client_quit(lua_client->client, message)))

    35

        return luaL_error(L, "irc_client_quit: %s", error_name(err));

    36

    37

    // ok

    38

    return 0;

    39

}

    40

    41

static const struct luaL_Reg lua_client_lib[] = {

    42

    {   "quit",     &lua_client_quit    },

    43

    {   NULL,       NULL                    }

    44

};

    45

    46

/**

    47

 * Initializes a lua_irc_client wrapper for the given client in the give lua state. This registers a set of globals for

    48

 * 'client' and 'networks'.

    49

 */

    50

static err_t lua_client_init (lua_State *L, struct irc_client *client)

    51

{

    52

    // allocate the global "client" object

    53

    // XXX: mem errors?

    54

    struct lua_client *lua_client = lua_newuserdata(L, sizeof(*client));

    55

    56

    // push a new metatable to identify the client object

    57

    luaL_newmetatable(L, "evirc.client");

    58

    59

    // set the metatable __index to itself

    60

    lua_pushvalue(L, -1);

    61

    lua_setfield(L, -1, "__index");

    62

    63

    // register the methods to the metatable

    64

    luaL_register(L, NULL, lua_client_lib);

    65

    66

    // set the client userdata's metatable

    67

    lua_setmetatable(L, -2);

    68

    69

    // initialize it

    70

    lua_client->client = client;

    71

    72

    // store it as a global

    73

    lua_setglobal(L, "client");

    74

    75

    // ok

    76

    return SUCCESS;

    77

}

    78

    79

err_t lua_objs_init (lua_State *L, struct nexus *nexus)

    80

{

    81

    // init the various bits

    82

    return lua_client_init(L, nexus->client);

    83

}