Change directory structure

luprex/cpp/core/globaldb.cpp

@@ -0,0 +1,72 @@
+#include "luastack.hpp"
+#include "globaldb.hpp"
+
+LuaDefine(global_once, "name", "for a given string, returns true exactly once") {
+    LuaArg name;
+    LuaRet flag;
+    LuaVar oncedb, val;
+    LuaStack LS(L, name, flag, oncedb, val);
+
+    // Get a pointer to the oncedb.
+    LS.rawget(oncedb, LuaRegistry, "oncedb");
+    if (!LS.istable(oncedb)) {
+        LS.set(flag, false);
+        return LS.result();
+    }
+
+    LS.checkstring(name, "name");
+    LS.rawget(val, oncedb, name);
+    if (!LS.isnil(val)) {
+        LS.set(flag, false);
+        return LS.result();
+    }
+    LS.rawset(oncedb, name, true);
+    LS.set(flag, true);
+    return LS.result();
+}
+
+LuaDefine(global_clearonce, "name", "reset the specified once-flag") {
+    LuaArg name;
+    LuaVar oncedb;
+    LuaStack LS(L, name, oncedb);
+
+    // Get a pointer to the oncedb.
+    LS.rawget(oncedb, LuaRegistry, "oncedb");
+    if (!LS.istable(oncedb)) {
+        return LS.result();
+    }
+    LS.checkstring(name, "name");
+    LS.rawset(oncedb, name, LuaNil);
+    return LS.result();
+}
+
+LuaDefine(global_table, "globalname", "get a table where global data can be stored") {
+    LuaArg globalname;
+    LuaRet globaltab;
+    LuaVar globaldb;
+    LuaStack LS(L, globalname, globaltab, globaldb);
+    LS.checkstring(globalname, "globalname");
+
+    // Get a pointer to the globaldb.
+    LS.rawget(globaldb, LuaRegistry, "globaldb");
+
+    // nopredict
+    if (lua_isyieldable(L) && (!LS.istable(globaldb))) {
+        return lua_yield(L, 0);
+    }
+
+    // Get the globaltab from the globaldb, sanity check it.
+    LS.rawget(globaltab, globaldb, globalname);
+    if (LS.istable(globaltab)) {
+        return LS.result();
+    } else if (!LS.isnil(globaltab)) {
+        luaL_error(L, "%s is not a global", LS.ckstring(globalname).c_str());
+    }
+
+    // Create a new globaltab and store it in the globaldb.
+    LS.newtable(globaltab);
+    LS.rawset(globaldb, globalname, globaltab);
+    LS.rawset(globaltab, "__global", globalname);
+    LS.settabletype(globaltab, LUA_TT_GLOBALDB);
+    return LS.result();
+}