From bfd584db255cd99a7b094a1c06bc9bad9ec6f418 Mon Sep 17 00:00:00 2001
From: Bardur Arantsson <bardur@scientician.net>
Date: Thu, 17 May 2012 10:08:01 +0200
Subject: Lua: Add get_lua_list_size()

---
 src/externs.h  | 1 +
 src/lua_bind.c | 7 +++++++
 2 files changed, 8 insertions(+)

(limited to 'src')

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];
-- 
cgit v1.2.3