lanes.linda("auto")

2 files changed, 17 insertions, 2 deletions

diff --git a/src/linda.cpp b/src/linda.cpp
index 33d9f0b..8b6df8e 100644
--- a/src/linda.cpp
+++ b/src/linda.cpp
@@ -88,7 +88,8 @@ template <bool OPT>
         if (!_lindaName.empty()) {
             std::ignore = luaG_pushstringview(L_, _lindaName);
         } else {
-            lua_pushfstring(L_, "%p", _linda);
+            // obfuscate the pointer so that we can't read the value with our eyes out of a script
+            std::ignore = luaG_pushstringview(L_, "%p", std::bit_cast<uintptr_t>(_linda) ^ kConfigRegKey.storage);
         }
         lua_concat(L_, 2);
         return 1;
diff --git a/src/lindafactory.cpp b/src/lindafactory.cpp
index d99d546..3f4b9b0 100644
--- a/src/lindafactory.cpp
+++ b/src/lindafactory.cpp
@@ -101,7 +101,7 @@ std::string_view LindaFactory::moduleName() const
 
 // #################################################################################################
 
-DeepPrelude* LindaFactory::newDeepObjectInternal(lua_State* L_) const
+DeepPrelude* LindaFactory::newDeepObjectInternal(lua_State* const L_) const
 {
     std::string_view _linda_name{};
     LindaGroup _linda_group{ 0 };
@@ -124,6 +124,20 @@ DeepPrelude* LindaFactory::newDeepObjectInternal(lua_State* L_) const
         break;
     }
 
+    // store in the linda the location of the script that created it
+    if (_linda_name == "auto") {
+        lua_Debug _ar;
+        if (lua_getstack(L_, 1, &_ar) == 1) { // 1 because we want the name of the function that called lanes.linda (where we currently are)
+            lua_getinfo(L_, "Sln", &_ar);
+            _linda_name = luaG_pushstringview(L_, "%s:%d", _ar.short_src, _ar.currentline);
+        } else {
+            _linda_name = luaG_pushstringview(L_, "<unresolved>");
+        }
+        // since the name is not empty, it is at slot 1, and we can replace "auto" with the result, just in case
+        LUA_ASSERT(L_, luaG_tostringview(L_, 1) == "auto");
+        lua_replace(L_, 1);
+    }
+
     // The deep data is allocated separately of Lua stack; we might no longer be around when last reference to it is being released.
     // One can use any memory allocation scheme. Just don't use L's allocF because we don't know which state will get the honor of GCing the linda
     Universe* const _U{ Universe::Get(L_) };