From fcedfddf00b3f994e4f4e40332ac7fc192c63244 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 5 Oct 2025 21:56:51 +0700
Subject: claude is gud

---
 vere/pkg/noun/jets/e/keccak.c | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 vere/pkg/noun/jets/e/keccak.c

(limited to 'vere/pkg/noun/jets/e/keccak.c')

diff --git a/vere/pkg/noun/jets/e/keccak.c b/vere/pkg/noun/jets/e/keccak.c
new file mode 100644
index 0000000..6149c55
--- /dev/null
+++ b/vere/pkg/noun/jets/e/keccak.c
@@ -0,0 +1,42 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+#include "urcrypt.h"
+
+#define defw(bits,byts) \
+  u3_atom \
+  _kecc_##bits(c3_w len_w, u3_atom a) \
+  { \
+    c3_y  out[byts]; \
+    c3_y* buf_y = u3r_bytes_alloc(0, len_w, a); \
+    if ( 0 != urcrypt_keccak_##bits(buf_y, len_w, out) ) { \
+      /* urcrypt_keccac_##bits always succeeds when called correctly */ \
+      return u3m_bail(c3__oops); \
+    } \
+    else { \
+      u3_atom pro = u3i_bytes(byts, out); \
+      u3a_free(buf_y); \
+      return pro; \
+    } \
+  } \
+  \
+  u3_weak \
+  u3we_kecc##bits(u3_noun cor) \
+  { \
+    c3_w    len_w; \
+    u3_noun len, tom; \
+    u3x_mean(cor, u3x_sam_2, &len, u3x_sam_3, &tom, 0); \
+    return ( (c3n == u3ud(len)) || (c3n == u3ud(tom)) ) \
+      ? u3m_bail(c3__exit) \
+      : (!u3r_word_fit(&len_w, len)) \
+      ? u3m_bail(c3__fail) \
+      : _kecc_##bits(len_w, tom); \
+  }
+
+defw(224, 28)
+defw(256, 32)
+defw(384, 48)
+defw(512, 64)
-- 
cgit v1.2.3