From 58fcb1d7f55424de904fd6ae53954b46d82aae8c Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <giann008@gmail.com>
Date: Tue, 11 Apr 2017 13:58:15 +0200
Subject: debug.upvalueid

---
 src/ldblib.js | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'src/ldblib.js')

diff --git a/src/ldblib.js b/src/ldblib.js
index efab872..426cef2 100644
--- a/src/ldblib.js
+++ b/src/ldblib.js
@@ -66,8 +66,27 @@ const db_getlocal = function(L) {
     }
 };
 
+/*
+** Check whether a given upvalue from a given closure exists and
+** returns its index
+*/
+const checkupval = function(L, argf, argnup) {
+    let nup = lauxlib.luaL_checkinteger(L, argnup);  /* upvalue index */
+    lauxlib.luaL_checktype(L, argf, lua.CT.LUA_TFUNCTION);  /* closure */
+    lauxlib.luaL_argcheck(L, (lapi.lua_getupvalue(L, argf, nup) !== null), argnup, lua.to_luastring("invalid upvalue index"));
+    return nup;
+};
+
+
+const db_upvalueid = function(L) {
+   let n = checkupval(L, 1, 2);
+   lapi.lua_pushlightuserdata(L, lapi.lua_upvalueid(L, 1, n));
+   return 1;
+};
+
 const dblib = {
-    "getlocal": db_getlocal
+    "getlocal": db_getlocal,
+    "upvalueid": db_upvalueid
 };
 
 // Only with Node
-- 
cgit v1.2.3-54-g00ecf