Lua: Add get_lua_list_size()

2 files changed, 8 insertions, 0 deletions

diff --git a/src/externs.h b/src/externs.h
index fbb3a9c1..798ab111 100644
--- a/src/externs.h
+++ b/src/externs.h
@@ -2295,6 +2295,7 @@ extern bool_ lua_summon_monster(int y, int x, int lev, bool_ ffriend, char *fct)
 
 extern s16b    add_new_gods(char *name);
 extern int     get_lua_int(cptr name);
+extern int     get_lua_list_size(cptr list_name);
 
 extern bool_    get_com_lua(cptr promtp, int *com);
 
diff --git a/src/lua_bind.c b/src/lua_bind.c
index 469dfddb..e7870189 100644
--- a/src/lua_bind.c
+++ b/src/lua_bind.c
@@ -558,6 +558,13 @@ int get_lua_int(cptr name)
 	return exec_lua(buf);
 }
 
+int get_lua_list_size(cptr list_var)
+{
+	char buf[128];
+	sprintf(buf, "return getn(%s)", list_var);
+	return exec_lua(buf);
+}
+
 void increase_mana(int delta)
 {
 	char buf[256];