From 64e064330c5c595d0b8553028e0c5ca95c5e5392 Mon Sep 17 00:00:00 2001
From: Bardur Arantsson <bardur@scientician.net>
Date: Tue, 19 Jun 2012 18:32:22 +0200
Subject: Lua: Remove Lua

---
 src/script.c | 496 -----------------------------------------------------------
 1 file changed, 496 deletions(-)

(limited to 'src/script.c')

diff --git a/src/script.c b/src/script.c
index 9a863146..40f43f95 100644
--- a/src/script.c
+++ b/src/script.c
@@ -12,220 +12,9 @@
 
 #include "angband.h"
 
-#include "lua/lua.h"
-#include "lua/lualib.h"
-#include "lauxlib.h"
-#include "tolua.h"
-
-int tolua_monster_open (lua_State *L);
-int tolua_player_open (lua_State *L);
-int tolua_player_c_open (lua_State *L);
-int tolua_util_open (lua_State *L);
-int tolua_z_pack_open (lua_State *L);
-int tolua_object_open (lua_State *L);
-int tolua_spells_open (lua_State *L);
-int tolua_dungeon_open (lua_State *L);
-
-/*
- * Lua state
- */
-lua_State* L = NULL;
-
-/* ToME Lua error message handler */
-static int tome_errormessage(lua_State *L)
-{
-	char buf[200];
-	cptr str = luaL_check_string(L, 1);
-	int i = 0, j = 0;
-
-	while (str[i])
-	{
-		if (str[i] == '#')
-		{
-			buf[j++] = '$';
-		}
-		else if (str[i] != '\n')
-		{
-			buf[j++] = str[i];
-		}
-		else
-		{
-			buf[j] = '\0';
-			cmsg_format(TERM_VIOLET, "LUA: %s", buf);
-			j = 0;
-		}
-		i++;
-	}
-	buf[j] = '\0';
-	cmsg_format(TERM_VIOLET, "LUA: %s", buf);
-	return (0);
-}
-
-static struct luaL_reg tome_iolib[] =
-{
-	{ "_ALERT", tome_errormessage },
-};
-
-#define luaL_check_bit(L, n)  ((long)luaL_check_number(L, n))
-#define luaL_check_ubit(L, n) ((unsigned long)luaL_check_bit(L, n))
-
-
-/*
- * Monadic bit negation operation
- * MONADIC(not,     ~)
- */
-static int int_not(lua_State* L)
-{
-	lua_pushnumber(L, ~luaL_check_bit(L, 1));
-	return 1;
-}
-
-
-/*
- * Dyadic integer modulus operation
- * DYADIC(mod,      %)
- */
-static int int_mod(lua_State* L)
-{
-	lua_pushnumber(L, luaL_check_bit(L, 1) % luaL_check_bit(L, 2));
-	return 1;
-}
-
-
-/*
- * Variable length bitwise AND operation
- * VARIADIC(and,    &)
- */
-static int int_and(lua_State *L)
-{
-	int n = lua_gettop(L), i;
-	long w = luaL_check_bit(L, 1);
-
-	for (i = 2; i <= n; i++) w &= luaL_check_bit(L, i);
-	lua_pushnumber(L, w);
-
-	return 1;
-}
-
-
-/*
- * Variable length bitwise OR operation
- * VARIADIC(or,     |)
- */
-static int int_or(lua_State *L)
-{
-	int n = lua_gettop(L), i;
-	long w = luaL_check_bit(L, 1);
-
-	for (i = 2; i <= n; i++) w |= luaL_check_bit(L, i);
-	lua_pushnumber(L, w);
-
-	return 1;
-}
-
-
-/*
- * Variable length bitwise XOR operation
- * VARIADIC(xor,    ^)
- */
-static int int_xor(lua_State *L)
-{
-	int n = lua_gettop(L), i;
-	long w = luaL_check_bit(L, 1);
-
-	for (i = 2; i <= n; i++) w ^= luaL_check_bit(L, i);
-	lua_pushnumber(L, w);
-
-	return 1;
-}
-
-
-/*
- * Binary left shift operation
- * TDYADIC(lshift,  <<, , u)
- */
-static int int_lshift(lua_State* L)
-{
-	lua_pushnumber(L, luaL_check_bit(L, 1) << luaL_check_ubit(L, 2));
-	return 1;
-}
-
-/*
- * Binary logical right shift operation
- * TDYADIC(rshift,  >>, u, u)
- */
-static int int_rshift(lua_State* L)
-{
-	lua_pushnumber(L, luaL_check_ubit(L, 1) >> luaL_check_ubit(L, 2));
-	return 1;
-}
-
-/*
- * Binary arithmetic right shift operation
- * TDYADIC(arshift, >>, , u)
- */
-static int int_arshift(lua_State* L)
-{
-	lua_pushnumber(L, luaL_check_bit(L, 1) >> luaL_check_ubit(L, 2));
-	return 1;
-}
-
-
-static const struct luaL_reg bitlib[] =
-{
-	{"bnot", int_not},
-	{"imod", int_mod},   /* "mod" already in Lua math library */
-	{"band", int_and},
-	{"bor", int_or},
-	{"bxor", int_xor},
-	{"lshift", int_lshift},
-	{"rshift", int_rshift},
-	{"arshift", int_arshift},
-};
-
-/*
- * Initialize lua scripting
- */
-static bool_ init_lua_done = FALSE;
-void init_lua()
-{
-	/* Hack -- Do not initialize more than once */
-	if (init_lua_done) return;
-	init_lua_done = TRUE;
-
-	/* Start the interpreter with default stack size */
-	L = lua_open(0);
-
-	/* Register the Lua base libraries */
-	lua_baselibopen(L);
-	lua_strlibopen(L);
-	lua_iolibopen(L);
-	lua_dblibopen(L);
-
-	/* Register tome lua debug library */
-	luaL_openl(L, tome_iolib);
-
-	/* Register the bitlib */
-	luaL_openl(L, bitlib);
-
-	/* Register the ToME main APIs */
-	tolua_player_open(L);
-	tolua_player_c_open(L);
-	tolua_util_open(L);
-	tolua_z_pack_open(L);
-	tolua_object_open(L);
-	tolua_monster_open(L);
-	tolua_spells_open(L);
-	tolua_dungeon_open(L);
-}
 
 void init_lua_init()
 {
-	int i, max;
-
-	/* Load the first lua file */
-	tome_dofile_anywhere(ANGBAND_DIR_CORE, "init.lua", TRUE);
-
 	/* Initialize schooled spells */
 	schools_init();
 	school_spells_init();
@@ -237,288 +26,3 @@ void init_lua_init()
 	/* Finish up the corruptions */
 	init_corruptions();
 }
-
-bool_ tome_dofile(char *file)
-{
-	char buf[1024];
-	int oldtop = lua_gettop(L);
-
-	/* Build the filename */
-	path_build(buf, sizeof(buf), ANGBAND_DIR_SCPT, file);
-
-	if (!file_exist(buf))
-	{
-		/* No lua source(.lua), maybe a compiled one(.luo) ? */
-		if (suffix(buf, ".lua"))
-		{
-			int len = strlen(buf);
-			buf[len - 1] = 'o';
-			if (!file_exist(buf))
-			{
-				cmsg_format(TERM_VIOLET,
-				            "tome_dofile(): file %s(%s) doesn't exist.", file, buf);
-				return (FALSE);
-			}
-		}
-	}
-
-	lua_dofile(L, buf);
-	lua_settop(L, oldtop);
-
-	return (TRUE);
-}
-
-bool_ tome_dofile_anywhere(cptr dir, char *file, bool_ test_exist)
-{
-	char buf[1024];
-	int oldtop = lua_gettop(L);
-
-	/* Build the filename */
-	path_build(buf, sizeof(buf), dir, file);
-
-	if (!file_exist(buf))
-	{
-		/* No lua source(.lua), maybe a compiled one(.luo) ? */
-		if (suffix(buf, ".lua"))
-		{
-			int len = strlen(buf);
-			buf[len - 1] = 'o';
-			if (!file_exist(buf))
-			{
-				if (test_exist)
-					cmsg_format(TERM_VIOLET,
-					            "tome_dofile_anywhere(): file %s(%s) doesn't exist in %s.", dir, file, buf);
-				return (FALSE);
-			}
-		}
-	}
-
-	lua_dofile(L, buf);
-	lua_settop(L, oldtop);
-
-	return (TRUE);
-}
-
-int exec_lua(char *file)
-{
-	int oldtop = lua_gettop(L);
-	int res;
-
-	if (!lua_dostring(L, file))
-	{
-		int size = lua_gettop(L) - oldtop;
-		res = tolua_getnumber(L, -size, 0);
-	}
-	else
-		res = 0;
-
-	lua_settop(L, oldtop);
-	return (res);
-}
-
-cptr string_exec_lua(char *file)
-{
-	int oldtop = lua_gettop(L);
-	cptr res;
-
-	if (!lua_dostring(L, file))
-	{
-		int size = lua_gettop(L) - oldtop;
-		res = tolua_getstring(L, -size, "");
-	}
-	else
-		res = "";
-	lua_settop(L, oldtop);
-	return (res);
-}
-
-void dump_lua_stack(int min, int max)
-{
-	int i;
-
-	cmsg_print(TERM_YELLOW, "lua_stack:");
-	for (i = min; i <= max; i++)
-	{
-		if (lua_isnumber(L, i)) cmsg_format(TERM_YELLOW, "%d [n] = %d", i, tolua_getnumber(L, i, 0));
-		else if (lua_isstring(L, i)) cmsg_format(TERM_YELLOW, "%d [s] = '%s'", i, tolua_getstring(L, i, 0));
-	}
-	cmsg_print(TERM_YELLOW, "END lua_stack");
-}
-
-bool_ call_lua(cptr function, cptr args, cptr ret, ...)
-{
-	int i = 0, nb = 0, nbr = 0;
-	int oldtop = lua_gettop(L), size;
-	va_list ap;
-
-	va_start(ap, ret);
-
-	/* Push the function */
-	lua_getglobal(L, function);
-
-	/* Push and count the arguments */
-	while (args[i])
-	{
-		switch (args[i++])
-		{
-		case 'd':
-		case 'l':
-			tolua_pushnumber(L, va_arg(ap, s32b));
-			nb++;
-			break;
-		case 's':
-			tolua_pushstring(L, va_arg(ap, char*));
-			nb++;
-			break;
-		case 'O':
-			tolua_pushusertype(L, (void*)va_arg(ap, object_type*), tolua_tag(L, "object_type"));
-			nb++;
-			break;
-		case 'M':
-			tolua_pushusertype(L, (void*)va_arg(ap, monster_type*), tolua_tag(L, "monster_type"));
-			nb++;
-			break;
-		case 'n':
-			lua_pushnil(L);
-			nb++;
-			break;
-		case '(':
-		case ')':
-		case ',':
-			break;
-		}
-	}
-
-	/* Count returns */
-	nbr = strlen(ret);
-
-	/* Call the function */
-	if (lua_call(L, nb, nbr))
-	{
-		cmsg_format(TERM_VIOLET, "ERROR in lua_call while calling '%s' from call_lua. Things should start breaking up from now on!", function);
-		return FALSE;
-	}
-
-	/* Number of returned values, SHOULD be the same as nbr, but I'm paranoid */
-	size = lua_gettop(L) - oldtop;
-
-	/* Get the returns */
-	for (i = 0; ret[i]; i++)
-	{
-		switch (ret[i])
-		{
-		case 'd':
-		case 'l':
-			{
-				s32b *tmp = va_arg(ap, s32b*);
-
-				if (lua_isnumber(L, ( -size) + i)) *tmp = tolua_getnumber(L, ( -size) + i, 0);
-				else *tmp = 0;
-				break;
-			}
-
-		case 's':
-			{
-				cptr *tmp = va_arg(ap, cptr*);
-
-				if (lua_isstring(L, ( -size) + i)) *tmp = tolua_getstring(L, ( -size) + i, "");
-				else *tmp = NULL;
-				break;
-			}
-
-		case 'O':
-			{
-				object_type **tmp = va_arg(ap, object_type**);
-
-				if (tolua_istype(L, ( -size) + i, tolua_tag(L, "object_type"), 0))
-					*tmp = (object_type*)tolua_getuserdata(L, ( -size) + i, NULL);
-				else
-					*tmp = NULL;
-				break;
-			}
-
-		case 'M':
-			{
-				monster_type **tmp = va_arg(ap, monster_type**);
-
-				if (tolua_istype(L, ( -size) + i, tolua_tag(L, "monster_type"), 0))
-					*tmp = (monster_type*)tolua_getuserdata(L, ( -size) + i, NULL);
-				else
-					*tmp = NULL;
-				break;
-			}
-
-		default:
-			cmsg_format(TERM_VIOLET, "ERROR in lua_call while calling '%s' from call_lua: Unknown return type '%c'", function, ret[i]);
-			return FALSE;
-		}
-	}
-
-	lua_settop(L, oldtop);
-
-	va_end(ap);
-
-	return TRUE;
-}
-
-bool_ get_lua_var(cptr name, char type, void *arg)
-{
-	int oldtop = lua_gettop(L), size;
-
-	/* Push the function */
-	lua_getglobal(L, name);
-
-	size = lua_gettop(L) - oldtop;
-
-	switch (type)
-	{
-	case 'd':
-	case 'l':
-		{
-			s32b *tmp = (s32b*)arg;
-
-			if (lua_isnumber(L, ( -size))) *tmp = tolua_getnumber(L, ( -size), 0);
-			else *tmp = 0;
-			break;
-		}
-
-	case 's':
-		{
-			cptr *tmp = (cptr*)arg;
-
-			if (lua_isstring(L, ( -size))) *tmp = tolua_getstring(L, ( -size), "");
-			else *tmp = NULL;
-			break;
-		}
-
-	case 'O':
-		{
-			object_type **tmp = (object_type**)arg;
-
-			if (tolua_istype(L, ( -size), tolua_tag(L, "object_type"), 0))
-				*tmp = (object_type*)tolua_getuserdata(L, ( -size), NULL);
-			else
-				*tmp = NULL;
-			break;
-		}
-
-	case 'M':
-		{
-			monster_type **tmp = (monster_type**)arg;
-
-			if (tolua_istype(L, ( -size), tolua_tag(L, "monster_type"), 0))
-				*tmp = (monster_type*)tolua_getuserdata(L, ( -size), NULL);
-			else
-				*tmp = NULL;
-			break;
-		}
-
-	default:
-		cmsg_format(TERM_VIOLET, "ERROR in get_lua_var while calling '%s': Unknown return type '%c'", name, type);
-		return FALSE;
-	}
-
-	lua_settop(L, oldtop);
-
-	return TRUE;
-}
-- 
cgit v1.2.3