10

struct lua_net {

    15

 * Create a lua_net userdata from the given irc_net and push it onto the stack, returning 1.

    16

 */

    17

static int lua_net_create (lua_State *L, struct irc_net *net)

    18

{

    19

    // create the new userdata on the stack

    20

    struct lua_net *lua_net = lua_newuserdata(L, sizeof(*lua_net));

    21

    22

    // get the type and set it

    23

    luaL_getmetatable(L, "evirc.net");

    24

    lua_setmetatable(L, -2);

    25

    26

    // initialize

    27

    lua_net->net = net;

    28

    29

    // ok

    30

    return 1;

    31

}

    32

    33

/**

    34

 * Join a new channel, returning the lua_chan

    35

 */

    36

static int lua_net_join (lua_State *L)

    37

{

    38

    struct lua_net *lua_net;

    39

    struct irc_chan_info chan_info;

    40

    struct irc_chan *chan;

    41

    struct error_info err;

    42

    43

    // validate the lua_net arg

    44

    if ((lua_net = luaL_checkudata(L, 1, "evirc.net")) == NULL)

    45

        return luaL_argerror(L, 1, "`evirc.net` expected");

    46

    47

    // the channel name

    48

    chan_info.channel = luaL_checkstring(L, 2);

    49

    50

    // add it

    51

    if (irc_net_add_chan(lua_net->net, &chan, &chan_info, &err))

    52

        return luaL_error(L, "irc_net_add_chan: %s: %s", chan_info.channel, error_msg(&err));

    53

    54

    // XXX: wrap it

    55

    return 0;

    56

}

    57

    58

static const struct luaL_Reg lua_net_methods[] = {

    59

    {   "join",         &lua_net_join       },

    60

    {   NULL,           NULL                }

    61

};

    62

    63

/**

    64

 * Initialize the lua_net object type

    65

 */

    66

static err_t lua_net_init (lua_State *L)

    67

{

    68

    luaL_newmetatable(L, "evirc.net");

    69

    70

    // set the metatable __index to itself

    71

    lua_pushvalue(L, -1);

    72

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

    73

    74

    // register the methods to the metatable

    75

    luaL_register(L, NULL, lua_net_methods);

    76

    77

    return SUCCESS;

    78

}

    79

    80

/**

    94

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

   107

static int lua_client_get_network (lua_State *L)

   108

{

   109

    struct lua_client *lua_client;

   110

    struct irc_net *net;

   111

   112

    // validate the lua_client arg

   113

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

   114

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

   115

   116

    // the network name

   117

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

   118

   119

    // lookup the irc_net

   120

    if ((net = irc_client_get_net(lua_client->client, network)) == NULL)

   121

        return luaL_error(L, "irc_client_get_net: no such network: %s", network);

   122

   123

    // wrap it

   124

    return lua_net_create(L, net);

   125

}

   126

   127

static const struct luaL_Reg lua_client_methods[] = {

   128

    {   "quit",         &lua_client_quit        },

   129

    {   "network",      &lua_client_get_network },

   130

    {   NULL,           NULL                    }

   141

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

   151

    luaL_register(L, NULL, lua_client_methods);

   169

    lua_client_init(L, nexus->client);

   170

    lua_net_init(L);

   171

   172

    return SUCCESS;