summaryrefslogtreecommitdiff
path: root/vere/pkg/noun/jets/b
diff options
context:
space:
mode:
Diffstat (limited to 'vere/pkg/noun/jets/b')
-rw-r--r--vere/pkg/noun/jets/b/bind.c30
-rw-r--r--vere/pkg/noun/jets/b/clap.c36
-rw-r--r--vere/pkg/noun/jets/b/drop.c30
-rw-r--r--vere/pkg/noun/jets/b/find.c50
-rw-r--r--vere/pkg/noun/jets/b/flop.c34
-rw-r--r--vere/pkg/noun/jets/b/lent.c37
-rw-r--r--vere/pkg/noun/jets/b/levy.c49
-rw-r--r--vere/pkg/noun/jets/b/lien.c49
-rw-r--r--vere/pkg/noun/jets/b/mate.c30
-rw-r--r--vere/pkg/noun/jets/b/murn.c50
-rw-r--r--vere/pkg/noun/jets/b/need.c30
-rw-r--r--vere/pkg/noun/jets/b/reap.c41
-rw-r--r--vere/pkg/noun/jets/b/reel.c52
-rw-r--r--vere/pkg/noun/jets/b/roll.c38
-rw-r--r--vere/pkg/noun/jets/b/scag.c53
-rw-r--r--vere/pkg/noun/jets/b/skid.c58
-rw-r--r--vere/pkg/noun/jets/b/skim.c52
-rw-r--r--vere/pkg/noun/jets/b/skip.c52
-rw-r--r--vere/pkg/noun/jets/b/slag.c43
-rw-r--r--vere/pkg/noun/jets/b/snag.c44
-rw-r--r--vere/pkg/noun/jets/b/sort.c88
-rw-r--r--vere/pkg/noun/jets/b/turn.c45
-rw-r--r--vere/pkg/noun/jets/b/weld.c48
-rw-r--r--vere/pkg/noun/jets/b/zing.c47
24 files changed, 1086 insertions, 0 deletions
diff --git a/vere/pkg/noun/jets/b/bind.c b/vere/pkg/noun/jets/b/bind.c
new file mode 100644
index 0000000..7f37a69
--- /dev/null
+++ b/vere/pkg/noun/jets/b/bind.c
@@ -0,0 +1,30 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_bind(u3_noun a,
+ u3_noun b)
+ {
+ if ( 0 == a ) {
+ return 0;
+ } else {
+ return u3nc(0, u3n_slam_on(u3k(b), u3k(u3t(a))));
+ }
+ }
+ u3_noun
+ u3wb_bind(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_bind(a, b);
+ }
+ }
+
diff --git a/vere/pkg/noun/jets/b/clap.c b/vere/pkg/noun/jets/b/clap.c
new file mode 100644
index 0000000..9cfb41a
--- /dev/null
+++ b/vere/pkg/noun/jets/b/clap.c
@@ -0,0 +1,36 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_clap(u3_noun a,
+ u3_noun b,
+ u3_noun c)
+ {
+ if ( 0 == a ) {
+ return u3k(b);
+ }
+ else if ( 0 == b ) {
+ return u3k(a);
+ }
+ else {
+ return u3nc(0, u3n_slam_on(u3k(c), u3nc(u3k(u3t(a)), u3k(u3t(b)))));
+ }
+ }
+ u3_noun
+ u3wb_clap(u3_noun cor)
+ {
+ u3_noun a, b, c;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a,
+ u3x_sam_6, &b,
+ u3x_sam_7, &c, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_clap(a, b, c);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/drop.c b/vere/pkg/noun/jets/b/drop.c
new file mode 100644
index 0000000..8ce3f76
--- /dev/null
+++ b/vere/pkg/noun/jets/b/drop.c
@@ -0,0 +1,30 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_drop(u3_noun a)
+ {
+ if ( 0 == a ) {
+ return u3_nul;
+ }
+ else {
+ return u3nc(0, u3k(u3t(a)));
+ }
+ }
+ u3_noun
+ u3wb_drop(u3_noun cor)
+ {
+ u3_noun a;
+
+ if ( u3_none == (a = u3r_at(u3x_sam, cor)) ) {
+ return u3_none;
+ } else {
+ return u3qb_drop(a);
+ }
+ }
+
diff --git a/vere/pkg/noun/jets/b/find.c b/vere/pkg/noun/jets/b/find.c
new file mode 100644
index 0000000..c0295d2
--- /dev/null
+++ b/vere/pkg/noun/jets/b/find.c
@@ -0,0 +1,50 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+STATIC_ASSERT( (UINT32_MAX > u3a_cells),
+ "list index precision" );
+
+u3_noun
+u3qb_find(u3_noun nedl, u3_noun hstk)
+{
+ if ( u3_nul != nedl ) {
+ c3_w i_w = 0;
+
+ while ( u3_nul != hstk ) {
+ u3_noun i_h, t_h = hstk;
+ u3_noun i_n, t_n = nedl;
+ u3x_cell(t_h, &i_h, &t_h);
+ u3x_cell(t_n, &i_n, &t_n);
+
+ while ( c3y == u3r_sing(i_n, i_h) ) {
+ if ( u3_nul == t_n ) {
+ return u3nc(u3_nul, u3i_word(i_w));
+ }
+ else if ( u3_nul == t_h ) {
+ break;
+ }
+ else {
+ u3x_cell(t_h, &i_h, &t_h);
+ u3x_cell(t_n, &i_n, &t_n);
+ }
+ }
+
+ hstk = u3t(hstk);
+ i_w++;
+ }
+ }
+
+ return u3_nul;
+}
+
+u3_noun
+u3wb_find(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_find(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/flop.c b/vere/pkg/noun/jets/b/flop.c
new file mode 100644
index 0000000..0574e4e
--- /dev/null
+++ b/vere/pkg/noun/jets/b/flop.c
@@ -0,0 +1,34 @@
+/// @file
+
+#include "jets/k.h"
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_flop(u3_noun a)
+{
+ u3_noun i, t = a, b = u3_nul;
+
+ while ( u3_nul != t ) {
+ u3x_cell(t, &i, &t);
+ b = u3nc(u3k(i), b);
+ }
+
+ return b;
+}
+
+u3_noun
+u3wb_flop(u3_noun cor)
+{
+ return u3qb_flop(u3x_at(u3x_sam, cor));
+}
+
+u3_noun
+u3kb_flop(u3_noun a)
+{
+ u3_noun b = u3qb_flop(a);
+ u3z(a);
+ return b;
+}
diff --git a/vere/pkg/noun/jets/b/lent.c b/vere/pkg/noun/jets/b/lent.c
new file mode 100644
index 0000000..aa3a701
--- /dev/null
+++ b/vere/pkg/noun/jets/b/lent.c
@@ -0,0 +1,37 @@
+/// @file
+
+#include "jets/k.h"
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+STATIC_ASSERT( (UINT32_MAX > u3a_cells),
+ "length precision" );
+
+u3_noun
+u3qb_lent(u3_noun a)
+{
+ c3_w len_w = 0;
+
+ while ( u3_nul != a ) {
+ a = u3t(a);
+ len_w++;
+ }
+
+ return u3i_word(len_w);
+}
+
+u3_noun
+u3wb_lent(u3_noun cor)
+{
+ return u3qb_lent(u3x_at(u3x_sam, cor));
+}
+
+u3_noun
+u3kb_lent(u3_noun a)
+{
+ u3_noun b = u3qb_lent(a);
+ u3z(a);
+ return b;
+}
diff --git a/vere/pkg/noun/jets/b/levy.c b/vere/pkg/noun/jets/b/levy.c
new file mode 100644
index 0000000..2a24eb1
--- /dev/null
+++ b/vere/pkg/noun/jets/b/levy.c
@@ -0,0 +1,49 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+ static u3_noun
+ _levy_in(u3j_site* sit_u, u3_noun a)
+ {
+ if ( 0 == a ) {
+ return c3y;
+ } else {
+ u3_noun loz;
+
+ if ( c3n == u3du(a) ) {
+ return u3m_bail(c3__exit);
+ }
+ else switch ( (loz = u3j_gate_slam(sit_u, u3k(u3h(a)))) ) {
+ case c3y: return _levy_in(sit_u, u3t(a));
+ case c3n: return c3n;
+ default: u3z(loz);
+ return u3m_bail(c3__exit);
+ }
+ }
+ }
+
+ u3_noun
+ u3qb_levy(u3_noun a,
+ u3_noun b)
+ {
+ u3_noun pro;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+ pro = _levy_in(&sit_u, a);
+ u3j_gate_lose(&sit_u);
+ return pro;
+ }
+ u3_noun
+ u3wb_levy(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_levy(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/lien.c b/vere/pkg/noun/jets/b/lien.c
new file mode 100644
index 0000000..5d04907
--- /dev/null
+++ b/vere/pkg/noun/jets/b/lien.c
@@ -0,0 +1,49 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+ static u3_noun
+ _lien_in(u3j_site* sit_u, u3_noun a)
+ {
+ if ( 0 == a ) {
+ return c3n;
+ } else {
+ u3_noun loz;
+
+ if ( c3n == u3du(a) ) {
+ return u3m_bail(c3__exit);
+ }
+ else switch ( (loz = u3j_gate_slam(sit_u, u3k(u3h(a)))) ) {
+ case c3y: return c3y;
+ case c3n: return _lien_in(sit_u, u3t(a));
+ default: u3z(loz);
+ return u3m_bail(c3__exit);
+ }
+ }
+ }
+
+ u3_noun
+ u3qb_lien(u3_noun a,
+ u3_noun b)
+ {
+ u3_noun pro;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+ pro = _lien_in(&sit_u, a);
+ u3j_gate_lose(&sit_u);
+ return pro;
+ }
+ u3_noun
+ u3wb_lien(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_lien(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/mate.c b/vere/pkg/noun/jets/b/mate.c
new file mode 100644
index 0000000..f8dbd31
--- /dev/null
+++ b/vere/pkg/noun/jets/b/mate.c
@@ -0,0 +1,30 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_mate(u3_noun a,
+ u3_noun b)
+ {
+ if ( u3_nul == b ) {
+ return u3k(a);
+ } else if ( u3_nul == a ) {
+ return u3k(b);
+ } else if ( c3y == u3r_sing(u3t(a), u3t(b)) ) {
+ return u3k(a);
+ } else {
+ return u3m_error("mate");
+ }
+ }
+ u3_noun
+ u3wb_mate(u3_noun cor)
+ {
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_mate(a, b);
+ }
+
diff --git a/vere/pkg/noun/jets/b/murn.c b/vere/pkg/noun/jets/b/murn.c
new file mode 100644
index 0000000..e9d747c
--- /dev/null
+++ b/vere/pkg/noun/jets/b/murn.c
@@ -0,0 +1,50 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_murn(u3_noun a, u3_noun b)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ if ( u3_nul != a ) {
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun res, i, t = a;
+ u3j_site sit_u;
+
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ res = u3j_gate_slam(&sit_u, u3k(i));
+
+ if ( u3_nul != res ) {
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(u3t(res));
+ lit = tel;
+ u3z(res);
+ }
+ }
+ while ( u3_nul != t );
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ *lit = u3_nul;
+
+ return pro;
+}
+
+u3_noun
+u3wb_murn(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_murn(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/need.c b/vere/pkg/noun/jets/b/need.c
new file mode 100644
index 0000000..8723699
--- /dev/null
+++ b/vere/pkg/noun/jets/b/need.c
@@ -0,0 +1,30 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_need(u3_noun a)
+ {
+ if ( 0 == a ) {
+ return u3m_bail(c3__exit);
+ }
+ else {
+ return u3k(u3t(a));
+ }
+ }
+ u3_noun
+ u3wb_need(u3_noun cor)
+ {
+ u3_noun a;
+
+ if ( u3_none == (a = u3r_at(u3x_sam, cor)) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_need(a);
+ }
+ }
+
diff --git a/vere/pkg/noun/jets/b/reap.c b/vere/pkg/noun/jets/b/reap.c
new file mode 100644
index 0000000..35dd055
--- /dev/null
+++ b/vere/pkg/noun/jets/b/reap.c
@@ -0,0 +1,41 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_reap(u3_atom a,
+ u3_noun b)
+ {
+ if ( !_(u3a_is_cat(a)) ) {
+ return u3m_bail(c3__fail);
+ }
+ else {
+ u3_noun acc = u3_nul;
+ c3_w i_w = a;
+
+ while ( i_w ) {
+ acc = u3nc(u3k(b), acc);
+ i_w--;
+ }
+
+ return acc;
+ }
+ }
+
+ u3_noun
+ u3wb_reap(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
+ (c3n == u3ud(a)) )
+ {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_reap(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/reel.c b/vere/pkg/noun/jets/b/reel.c
new file mode 100644
index 0000000..0e7cefb
--- /dev/null
+++ b/vere/pkg/noun/jets/b/reel.c
@@ -0,0 +1,52 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+ u3_noun
+ u3qb_reel(u3_noun a,
+ u3_noun b)
+ {
+ u3_noun pro = u3k(u3x_at(u3x_sam_3, b));
+
+ if ( u3_nul != a ) {
+ u3a_pile pil_u;
+ u3j_site sit_u;
+ u3_noun* top;
+ u3_noun i, t = a;
+
+ u3a_pile_prep(&pil_u, sizeof(u3_noun));
+
+ // push list onto road stack
+ //
+ do {
+ u3x_cell(t, &i, &t);
+ top = u3a_push(&pil_u);
+ *top = i;
+ } while ( u3_nul != t );
+
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ while ( c3n == u3a_pile_done(&pil_u) ) {
+ pro = u3j_gate_slam(&sit_u, u3nc(u3k(*top), pro));
+ top = u3a_pop(&pil_u);
+ }
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ return pro;
+ }
+ u3_noun
+ u3wb_reel(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_reel(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/roll.c b/vere/pkg/noun/jets/b/roll.c
new file mode 100644
index 0000000..d546e8b
--- /dev/null
+++ b/vere/pkg/noun/jets/b/roll.c
@@ -0,0 +1,38 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+ u3_noun
+ u3qb_roll(u3_noun a,
+ u3_noun b)
+ {
+ u3_noun pro = u3k(u3x_at(u3x_sam_3, b));
+
+ if ( u3_nul != a ) {
+ u3j_site sit_u;
+ u3_noun i, t = a;
+ u3j_gate_prep(&sit_u, u3k(b));
+ do {
+ u3x_cell(t, &i, &t);
+ pro = u3j_gate_slam(&sit_u, u3nc(u3k(i), pro));
+ } while ( u3_nul != t );
+ u3j_gate_lose(&sit_u);
+ }
+
+ return pro;
+ }
+ u3_noun
+ u3wb_roll(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_roll(a, b);
+ }
+ }
+
diff --git a/vere/pkg/noun/jets/b/scag.c b/vere/pkg/noun/jets/b/scag.c
new file mode 100644
index 0000000..d13dd46
--- /dev/null
+++ b/vere/pkg/noun/jets/b/scag.c
@@ -0,0 +1,53 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_scag(u3_atom a, u3_noun b)
+{
+ if ( u3_nul == b ) {
+ return u3_nul;
+ }
+ else if ( !_(u3a_is_cat(a)) ) {
+ return u3m_bail(c3__fail);
+ }
+ else {
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ {
+ c3_w len_w = (c3_w)a;
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun i, t = b;
+
+ while ( len_w-- && (u3_nul != t) ) {
+ u3x_cell(t, &i, &t);
+
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ lit = tel;
+ }
+ }
+
+ *lit = u3_nul;
+
+ return pro;
+ }
+}
+
+u3_noun
+u3wb_scag(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+
+ if ( (c3n == u3ud(a)) && (u3_nul != b) ) {
+ return u3m_bail(c3__exit);
+ }
+
+ return u3qb_scag(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/skid.c b/vere/pkg/noun/jets/b/skid.c
new file mode 100644
index 0000000..de9c3f4
--- /dev/null
+++ b/vere/pkg/noun/jets/b/skid.c
@@ -0,0 +1,58 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_skid(u3_noun a, u3_noun b)
+{
+ u3_noun l, r;
+ u3_noun* lef = &l;
+ u3_noun* rig = &r;
+
+ if ( u3_nul != a) {
+ u3_noun i, t = a;
+ u3_noun* hed;
+ u3_noun* tel;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ switch ( u3j_gate_slam(&sit_u, u3k(i)) ) {
+ case c3y: {
+ *lef = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ lef = tel;
+ } break;
+
+ case c3n: {
+ *rig = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ rig = tel;
+ } break;
+
+ default: u3m_bail(c3__exit);
+ }
+ }
+ while ( u3_nul != t );
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ *lef = u3_nul;
+ *rig = u3_nul;
+
+ return u3nc(l, r);
+}
+
+u3_noun
+u3wb_skid(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_skid(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/skim.c b/vere/pkg/noun/jets/b/skim.c
new file mode 100644
index 0000000..56664c6
--- /dev/null
+++ b/vere/pkg/noun/jets/b/skim.c
@@ -0,0 +1,52 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_skim(u3_noun a, u3_noun b)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ if ( u3_nul != a) {
+ u3_noun i, t = a;
+ u3_noun* hed;
+ u3_noun* tel;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ switch ( u3j_gate_slam(&sit_u, u3k(i)) ) {
+ case c3y: {
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ lit = tel;
+ } break;
+
+ case c3n: break;
+
+ default: u3m_bail(c3__exit);
+ }
+ }
+ while ( u3_nul != t );
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ *lit = u3_nul;
+
+ return pro;
+}
+
+u3_noun
+u3wb_skim(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_skim(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/skip.c b/vere/pkg/noun/jets/b/skip.c
new file mode 100644
index 0000000..41d6175
--- /dev/null
+++ b/vere/pkg/noun/jets/b/skip.c
@@ -0,0 +1,52 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_skip(u3_noun a, u3_noun b)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ if ( u3_nul != a) {
+ u3_noun i, t = a;
+ u3_noun* hed;
+ u3_noun* tel;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ switch ( u3j_gate_slam(&sit_u, u3k(i)) ) {
+ case c3y: break;
+
+ case c3n: {
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ lit = tel;
+ } break;
+
+ default: u3m_bail(c3__exit);
+ }
+ }
+ while ( u3_nul != t );
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ *lit = u3_nul;
+
+ return pro;
+}
+
+u3_noun
+u3wb_skip(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_skip(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/slag.c b/vere/pkg/noun/jets/b/slag.c
new file mode 100644
index 0000000..fad88b0
--- /dev/null
+++ b/vere/pkg/noun/jets/b/slag.c
@@ -0,0 +1,43 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_slag(u3_atom a, u3_noun b)
+ {
+ if ( u3_nul == b ) {
+ return u3_nul;
+ }
+ else if ( !_(u3a_is_cat(a)) ) {
+ return u3m_bail(c3__fail);
+ }
+ else {
+ c3_w len_w = a;
+
+ while ( len_w ) {
+ if ( c3n == u3du(b) ) {
+ return u3_nul;
+ }
+ b = u3t(b);
+ len_w--;
+ }
+ return u3k(b);
+ }
+ }
+ u3_noun
+ u3wb_slag(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
+ (c3n == u3ud(a) && u3_nul != b) )
+ {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_slag(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/snag.c b/vere/pkg/noun/jets/b/snag.c
new file mode 100644
index 0000000..4b6dad8
--- /dev/null
+++ b/vere/pkg/noun/jets/b/snag.c
@@ -0,0 +1,44 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ u3_noun
+ u3qb_snag(u3_atom a,
+ u3_noun b)
+ {
+ if ( !_(u3a_is_cat(a)) ) {
+ return u3m_bail(c3__fail);
+ }
+ else {
+ c3_w len_w = a;
+
+ while ( len_w ) {
+ if ( c3n == u3du(b) ) {
+ return u3m_bail(c3__exit);
+ }
+ b = u3t(b);
+ len_w--;
+ }
+ if ( c3n == u3du(b) ) {
+ return u3m_bail(c3__exit);
+ }
+ return u3k(u3h(b));
+ }
+ }
+ u3_noun
+ u3wb_snag(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
+ (c3n == u3ud(a)) )
+ {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_snag(a, b);
+ }
+ }
diff --git a/vere/pkg/noun/jets/b/sort.c b/vere/pkg/noun/jets/b/sort.c
new file mode 100644
index 0000000..9b01d54
--- /dev/null
+++ b/vere/pkg/noun/jets/b/sort.c
@@ -0,0 +1,88 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+
+ // like skid, except its callback is $-([* *] ?) and it takes the second
+ // argument so that it calls its callback with [i.list, second]
+ //
+ // all args are RETAINED
+ static u3_noun
+ _split_in(u3j_site* sit_u,
+ u3_noun a,
+ u3_noun second)
+ {
+ if ( 0 == a ) {
+ return u3nc(u3_nul, u3_nul);
+ }
+ else if ( c3n == u3du(a) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ u3_noun acc = _split_in(sit_u, u3t(a), second);
+ u3_noun hoz = u3j_gate_slam(sit_u, u3nc(u3k(u3h(a)), u3k(second)));
+ u3_noun nex;
+
+ if ( c3y == hoz ) {
+ nex = u3nc(u3nc(u3k(u3h(a)), u3k(u3h(acc))), u3k(u3t(acc)));
+ }
+ else {
+ nex = u3nc(u3k(u3h(acc)), u3nc(u3k(u3h(a)), u3k(u3t(acc))));
+ }
+ u3z(hoz);
+ u3z(acc);
+
+ return nex;
+ }
+ }
+
+ static u3_noun
+ _sort_in(u3j_site* sit_u, u3_noun list)
+ {
+ if ( 0 == list ) {
+ return u3_nul;
+ }
+ else if ( c3n == u3du(list) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ u3_noun hed, tal;
+ u3x_cell(list, &hed, &tal);
+
+ u3_noun split = _split_in(sit_u, tal, hed);
+ u3_noun lhs = _sort_in(sit_u, u3h(split));
+ u3_noun rhs = u3nc(u3k(hed), _sort_in(sit_u, u3t(split)));
+
+ u3_noun ret = u3qb_weld(lhs, rhs);
+ u3z(lhs);
+ u3z(rhs);
+ u3z(split);
+
+ return ret;
+ }
+ }
+
+ u3_noun
+ u3qb_sort(u3_noun a,
+ u3_noun b)
+ {
+ u3_noun pro;
+ u3j_site sit_u;
+ u3j_gate_prep(&sit_u, u3k(b));
+ pro = _sort_in(&sit_u, a);
+ u3j_gate_lose(&sit_u);
+ return pro;
+ }
+ u3_noun
+ u3wb_sort(u3_noun cor)
+ {
+ u3_noun a, b;
+
+ if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
+ return u3m_bail(c3__exit);
+ } else {
+ return u3qb_sort(a, b);
+ }
+ }
+
diff --git a/vere/pkg/noun/jets/b/turn.c b/vere/pkg/noun/jets/b/turn.c
new file mode 100644
index 0000000..2259780
--- /dev/null
+++ b/vere/pkg/noun/jets/b/turn.c
@@ -0,0 +1,45 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_turn(u3_noun a, u3_noun b)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ if ( u3_nul != a ) {
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun i, t = a;
+ u3j_site sit_u;
+
+ u3j_gate_prep(&sit_u, u3k(b));
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3j_gate_slam(&sit_u, u3k(i));
+ lit = tel;
+ }
+ while ( u3_nul != t );
+
+ u3j_gate_lose(&sit_u);
+ }
+
+ *lit = u3_nul;
+
+ return pro;
+}
+
+u3_noun
+u3wb_turn(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_turn(a, b);
+}
diff --git a/vere/pkg/noun/jets/b/weld.c b/vere/pkg/noun/jets/b/weld.c
new file mode 100644
index 0000000..d50fa1c
--- /dev/null
+++ b/vere/pkg/noun/jets/b/weld.c
@@ -0,0 +1,48 @@
+/// @file
+
+#include "jets/k.h"
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_weld(u3_noun a, u3_noun b)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ {
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun i, t = a;
+
+ while ( u3_nul != t ) {
+ u3x_cell(t, &i, &t);
+
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(i);
+ lit = tel;
+ }
+ }
+
+ *lit = u3k(b);
+
+ return pro;
+}
+
+u3_noun
+u3wb_weld(u3_noun cor)
+{
+ u3_noun a, b;
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
+ return u3qb_weld(a, b);
+}
+
+u3_noun
+u3kb_weld(u3_noun a, u3_noun b)
+{
+ u3_noun c = u3qb_weld(a, b);
+ u3z(a); u3z(b);
+ return c;
+}
diff --git a/vere/pkg/noun/jets/b/zing.c b/vere/pkg/noun/jets/b/zing.c
new file mode 100644
index 0000000..1172d5e
--- /dev/null
+++ b/vere/pkg/noun/jets/b/zing.c
@@ -0,0 +1,47 @@
+/// @file
+
+#include "jets/q.h"
+#include "jets/w.h"
+
+#include "noun.h"
+
+u3_noun
+u3qb_zing(u3_noun a)
+{
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
+ if ( u3_nul == a ) {
+ *lit = u3_nul;
+ }
+ else {
+ u3_noun i, t = a;
+ u3x_cell(t, &i, &t);
+
+ while ( u3_nul != t ) {
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun i_i, t_i = i;
+
+ while ( u3_nul != t_i ) {
+ u3x_cell(t_i, &i_i, &t_i);
+
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3k(i_i);
+ lit = tel;
+ }
+
+ u3x_cell(t, &i, &t);
+ }
+
+ *lit = u3k(i);
+ }
+
+ return pro;
+}
+
+u3_noun
+u3wb_zing(u3_noun cor)
+{
+ return u3qb_zing(u3x_at(u3x_sam, cor));
+}
generated by cgit v1.2.3 (git 2.25.1) at 2025-11-26 02:26:19 +0000