From 593f86224d7fe73f4a25ed82956c2967e68983e0 Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Tue, 23 Dec 2025 00:00:03 +0100
Subject: State at 2025-12-23

---
 pad/init_code.lua | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

(limited to 'pad/init_code.lua')

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
-- 
cgit v1.2.3