From 1a2c8b663ed89b4d4a75463e28260a7c4955ecb1 Mon Sep 17 00:00:00 2001
From: Aki <please@ignore.pl>
Date: Sat, 2 Nov 2024 03:27:03 +0100
Subject: Cleaned up and added common reading scripts

---
 reading.lua | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 reading.lua

(limited to 'reading.lua')

diff --git a/reading.lua b/reading.lua
new file mode 100644
index 0000000..2b74446
--- /dev/null
+++ b/reading.lua
@@ -0,0 +1,38 @@
+local function next_trigram (message, index)
+	index = (index or 0) + 1
+	local offset = (index - 1) * 3
+	local a = message[offset + 1]
+	if not a then
+		return nil
+	end
+	return index, a, message[offset + 2], message[offset + 3]
+end
+
+
+local function next_value (message, index)
+	local a, b, c
+	index, a, b, c = next_trigram(message, index)
+	if not index then
+		return nil
+	end
+	return index, a * 25 + b * 5 + c
+end
+
+
+local reading = {
+	next_trigram = next_trigram,
+	next_value = next_value,
+}
+
+
+function reading.trigrams (message, start)
+	return next_trigram, message, start
+end
+
+
+function reading.values (message, start)
+	return next_value, message, start
+end
+
+
+return reading
-- 
cgit v1.1