State at 2025-12-23

1 files changed, 47 insertions, 0 deletions

diff --git a/pad/init_code.lua b/pad/init_code.lua
index e0fbfdf..5996fe3 100644
--- a/pad/init_code.lua
+++ b/pad/init_code.lua
@@ -21,6 +21,53 @@ F.ack = function(n, c)
   return r
 end
 
+F.ack2 = function(n, c)
+  local r
+  local acc_n
+
+  if n ~= nil and c ~= nil then
+    acc_n = S.acc and S.acc[n]
+    if acc_n then
+      r = S.acc[n][c]
+    end
+  end
+
+  return r
+end
+
+F.cac = function(n)
+  local c = 0
+
+  if n ~= nil and S.acc[n] ~= nil then
+    for _ in pairs(S.acc[n]) do
+      c = c + 1
+    end
+  end
+
+  return c
+end
+
+F.adc = function(n, c, a)
+  local s
+
+  if n ~= nil and c ~= nil then
+    acc_n = S.acc and S.acc[n]
+
+    if not acc_n then
+      S.acc[n] = {}
+    end
+    S.acc[n][c] = a
+
+    if not S.acc[n][c] then
+      s = false
+    else
+      s = true
+    end
+  end
+
+  return s
+end
+
 F.ick = function (m)
    local wm, au, out, r
    local a, b, c, d