Implement debug context args

debugger.lua

@@ -1,11 +1,19 @@
-local function execDebug()
+local function copyObject(o)
+  local obj = {}
+  for k,v in pairs(o) do
+    obj[k] = v
+  end
+  return obj
+end
+
+local function execDebug(env)
   local input = io.input()
   local result = { pcall(input.read, input, "*l") }
   if not result[1] then
     return false, result[2]
   end
 
-  local func = load("return " .. result[2])
+  local func = load(result[2], "debug", "bt", env)
   if type(func) ~= "function" then
     return false, func
   end
@@ -13,10 +21,12 @@ local function execDebug()
   return pcall(func)
 end
 
-local function debugREPL(onResult)
+local function debugREPL(onResult, debugArgs)
+  local globalEnv = copyObject(_ENV)
+  globalEnv._debug = debugArgs
   local result, retval
   repeat
-    result, retval = execDebug()
+    result, retval = execDebug(globalEnv)
     if result and type(onResult) == "function" then
       onResult(retval)
     end

storage/itemstack.lua

@@ -7,10 +7,10 @@ local Debugger = require("debugger")
 local ItemStack = Sentinel:tag({}, Sentinel.ITEMSTACK)
 ItemStack.__index = ItemStack
 
-local function hookDebugger()
+local function hookDebugger(context)
   local errorCond = Debugger.debugREPL(function(retval)
     Logger:error("->", retval)
-  end)
+  end, context)
   Logger:error("x>", errorCond)
 end
 
@@ -202,7 +202,7 @@ end
 function ItemStack:transferTo(target, count)
   if target:getMaxCount() == nil then
     Logger:error("Max count is nil?", target, "\n", self, "\n", count)
-    hookDebugger()
+    hookDebugger({ target = target, count = count, self = self })
   end
   local cap = math.min(count or self:getCount(), target:getMaxCount() - target:getCount(), self:getCount())
 
@@ -233,7 +233,7 @@ function ItemStack:transferTo(target, count)
       target:getInventory().getItemLimit(target:getSlot()), "\n",
       result
     )
-    hookDebugger()
+    hookDebugger({ target = target, count = count, self = self, result = result, errC = errC, cap = cap })
   end
 
   target:_modify(result[2], self)