1 files changed, 68 insertions, 0 deletions
diff --git a/vere/pkg/noun/jets/c/cut.c b/vere/pkg/noun/jets/c/cut.c
new file mode 100644
index 0000000..43ed8c4
--- /dev/null
+++ b/vere/pkg/noun/jets/c/cut.c
@@ -0,0 +1,68 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+  u3_noun
+  u3qc_cut(u3_atom a,
+           u3_atom b,
+           u3_atom c,
+           u3_atom d)
+  {
+    c3_w b_w, c_w;
+    if ( !_(u3a_is_cat(a)) || (a >= 32) ) {
+      return u3m_bail(c3__fail);
+    }
+    if ( !_(u3r_safe_word(b, &b_w)) ) {
+      return u3m_bail(c3__fail);
+    }
+    if ( !_(u3r_safe_word(c, &c_w)) ) {
+      return u3m_bail(c3__fail);
+    }
+
+    {
+      c3_g a_g   = a;
+      c3_w len_w = u3r_met(a_g, d);
+
+      if ( (0 == c_w) || (b_w >= len_w) ) {
+        return 0;
+      }
+      if ( b_w + c_w > len_w ) {
+        c_w = (len_w - b_w);
+      }
+      if ( (b_w == 0) && (c_w == len_w) ) {
+        return u3k(d);
+      }
+      else {
+        u3i_slab sab_u;
+        u3i_slab_init(&sab_u, a_g, c_w);
+
+        u3r_chop(a_g, b_w, c_w, 0, sab_u.buf_w, d);
+
+        return u3i_slab_mint(&sab_u);
+      }
+    }
+  }
+  u3_noun
+  u3wc_cut(u3_noun cor)
+  {
+    u3_noun a, b, c, d;
+
+    if ( (c3n == u3r_mean(cor, u3x_sam_2,  &a,
+                                u3x_sam_12, &b,
+                                u3x_sam_13, &c,
+                                u3x_sam_7,  &d, 0)) ||
+         (c3n == u3ud(a)) ||
+         (c3n == u3ud(b)) ||
+         (c3n == u3ud(c)) ||
+         (c3n == u3ud(d)) )
+    {
+      return u3m_bail(c3__exit);
+    } else {
+      return u3qc_cut(a, b, c, d);
+    }
+  }
+