From c1c32688a4afc43f6addb99b8b5fa878944a70e3 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 14 Jan 2019 15:42:48 -0800
Subject: Overhaul in progress, mostly working. Moved all the nomsu packages
 into lib/, including core/*. Changes to how nomsu environments and importing
 work.

---
 lib/base64/init.nom | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 lib/base64/init.nom

(limited to 'lib/base64/init.nom')

diff --git a/lib/base64/init.nom b/lib/base64/init.nom
new file mode 100644
index 0000000..54f785f
--- /dev/null
+++ b/lib/base64/init.nom
@@ -0,0 +1,50 @@
+#!/usr/bin/env nomsu -V6.14
+#
+    This file defines actions for encoding/decoding base 64, as specified in:
+    https://tools.ietf.org/html/rfc4648
+    
+$b64_str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+$b64_chars = [: for $ in 1 to (size of $b64_str): add ($b64_str, character $)]
+$reverse_b64 = {: for $c in $b64_chars at $i: add $c = ($i - 1)}
+$reverse_b64."=" = 64
+set $reverse_b64's metatable to {.__index = (-> 0)}
+test:
+    $cases = ["", "Zg==", "Zm8=", "Zm9v", "Zm9vYg==", "Zm9vYmE=", "Zm9vYmFy"]
+    for $len = $encoded in $cases:
+        $plain = ("foobar", from 1 to ($len - 1))
+        assume (base64 $plain) == $encoded
+        assume (base64 decode $encoded) == $plain
+
+externally [base64 $str, base64 encode $str, $str base64] all mean:
+    $chars = []
+    for $i in 1 to (size of $str) via 3:
+        $bytes = [=lua "\$str:byte(\$i, \($i + 2))"]
+        $chars, add $b64_chars.((($bytes.1 & 252) >> 2) + 1)
+        if (size of $bytes) is:
+            3:
+                $chars, add $b64_chars.((($bytes.1 & 3) << 4) + (($bytes.2 & 240) >> 4) + 1)
+                $chars, add $b64_chars.((($bytes.2 & 15) << 2) + (($bytes.3 & 192) >> 6) + 1)
+                $chars, add $b64_chars.(($bytes.3 & 63) + 1)
+            
+            2:
+                $chars, add $b64_chars.((($bytes.1 & 3) << 4) + (($bytes.2 & 240) >> 4) + 1)
+                $chars, add $b64_chars.((($bytes.2 & 15) << 2) + 1)
+                $chars, add "="
+            
+            1:
+                $chars, add $b64_chars.((($bytes.1 & 3) << 4) + 1)
+                $chars, add "="
+                $chars, add "="
+    return ($chars, joined)
+
+externally (chr $) means (=lua "string.char(\$)")
+externally [decode base64 $str, $str base64 decoded, base64 decode $str] all mean:
+    $chars = []
+    for $i in 1 to (size of $str) via 4:
+        $indices = [: for $j in $i to ($i + 3): add $reverse_b64.($str, character $j)]
+        $chars, add (chr (($indices.1 << 2) + (($indices.2 & 48) >> 4)))
+        if (($str, character ($i + 2)) == "="): stop
+        $chars, add (chr ((($indices.2 & 15) << 4) + (($indices.3 & 60) >> 2)))
+        if (($str, character ($i + 3)) == "="): stop
+        $chars, add (chr ((($indices.3 & 3) << 6) + $indices.4))
+    return ($chars, joined)
-- 
cgit v1.2.3