1 files changed, 42 insertions, 0 deletions
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)