Move clua_register_metatable to cluautil.

1 files changed, 23 insertions, 0 deletions

diff --git a/crawl-ref/source/cluautil.cc b/crawl-ref/source/cluautil.cc
index 13f5ab7267..fe0ba1cd93 100644
--- a/crawl-ref/source/cluautil.cc
+++ b/crawl-ref/source/cluautil.cc
@@ -75,3 +75,26 @@ void luaopen_setmeta(lua_State *ls,
     lua_pushvalue(ls, -2);
     lua_settable(ls, -3);
 }
+
+void clua_register_metatable(lua_State *ls, const char *tn,
+                             const luaL_reg *lr,
+                             int (*gcfn)(lua_State *ls))
+{
+    lua_stack_cleaner clean(ls);
+    luaL_newmetatable(ls, tn);
+    lua_pushstring(ls, "__index");
+    lua_pushvalue(ls, -2);
+    lua_settable(ls, -3);
+
+    if (gcfn)
+    {
+        lua_pushstring(ls, "__gc");
+        lua_pushcfunction(ls, gcfn);
+        lua_settable(ls, -3);
+    }
+
+    if (lr)
+    {
+        luaL_openlib(ls, NULL, lr, 0);
+    }
+}