evirc: src/lua_console.c@b6b183fbf373 (annotated)

93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	1	#include "lua_console.h"
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	2	#include "lua_objs.h"
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	3	#include "log.h"
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	4
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	5	#include <stdlib.h>
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	6
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	7	#include <lua5.1/lauxlib.h>
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	8
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	9	static void lua_console_on_line (const char line, void arg)
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	10	{
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	11	struct lua_console *lc = arg;
105 b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	12	lua_State *L = lc->lua->st;
93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	13	int ret;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	14
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	15	// ignore empty lines and EOF
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	16	if (!line \|\| !(*line))
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	17	return;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	18
105 b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	19	// XXX: move to nexus_lua
b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	20
93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	21	// load the line as a lua function
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	22	if ((ret = luaL_loadstring(L, line)))
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	23	goto error;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	24
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	25	// execute it
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	26	if ((ret = lua_pcall(L, 0, 0, 0)))
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	27	goto error;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	28
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	29	// XXX: display results?
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	30
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	31	error:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	32	if (ret) {
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	33	const char *error = lua_tostring(L, -1);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	34
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	35	switch (ret) {
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	36	case LUA_ERRSYNTAX:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	37	log_error("syntax error: %s", error);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	38	break;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	39
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	40	case LUA_ERRRUN:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	41	log_error("runtime error: %s", error);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	42	break;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	43
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	44	case LUA_ERRMEM:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	45	log_error("memory allocation error: %s", error);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	46	break;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	47
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	48	case LUA_ERRERR:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	49	log_error("error handling error: %s", error);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	50	break;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	51
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	52	default:
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	53	log_error("unknown error: %s", error);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	54	break;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	55	};
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	56
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	57	lua_pop(L, 1);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	58	}
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	59	}
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	60
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	61	static struct console_callbacks _console_callbacks = {
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	62	.on_line = &lua_console_on_line,
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	63	};
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	64
105 b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	65	err_t lua_console_create (struct lua_console *lc_ptr, struct console console, struct nexus_lua lua, struct error_info err)
93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	66	{
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	67	struct lua_console *lc;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	68
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	69	// allocate
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	70	if ((lc = calloc(1, sizeof(*lc))) == NULL)
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	71	return SET_ERROR(err, ERR_CALLOC);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	72
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	73	// store
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	74	lc->console = console;
105 b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	75	lc->lua = lua;
93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	76
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	77	// set our console callbacks
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	78	console_set_callbacks(console, &_console_callbacks, lc);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	79
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	80	// ok
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	81	*lc_ptr = lc;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	82
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	83	return SUCCESS;
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	84	}
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	85
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	86	void lua_console_destroy (struct lua_console *lc)
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	87	{
105 b6b183fbf373 implement a separate nexus_lua module Tero Marttila <terom@fixme.fi> parents: 93 diff changeset	88	// the console
93 42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	89	console_destroy(lc->console);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	90
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	91	free(lc);
42ade8285570 add some rudimentary lua support, by having a simple interactive console, and providing access to irc_client_quit Tero Marttila <terom@fixme.fi> parents: diff changeset	92	}

author	Tero Marttila <terom@fixme.fi>
	Wed, 01 Apr 2009 00:57:34 +0300
changeset 105	b6b183fbf373
parent 93	42ade8285570
child 106	f00661136ac2
permissions	-rw-r--r--