From 2e59352342fe1bf319e93f06f8b05c5c20f32742 Mon Sep 17 00:00:00 2001 From: xiphiness Date: Fri, 1 Sep 2023 06:42:01 -0600 Subject: [PATCH 1/3] x/jub: add jub:by --- pkg/noun/jets/d/by_jub.c | 129 +++++++++++++++++++++++++++++++++++++++ pkg/noun/jets/q.h | 1 + pkg/noun/jets/tree.c | 28 ++++++++- pkg/noun/jets/w.h | 1 + pkg/vere/pier.c | 2 +- pkg/vere/serf.c | 2 +- 6 files changed, 160 insertions(+), 3 deletions(-) create mode 100644 pkg/noun/jets/d/by_jub.c diff --git a/pkg/noun/jets/d/by_jub.c b/pkg/noun/jets/d/by_jub.c new file mode 100644 index 0000000000..603f68f715 --- /dev/null +++ b/pkg/noun/jets/d/by_jub.c @@ -0,0 +1,129 @@ +/* j/4/by_jub.c +** +*/ +#include "jets/q.h" +#include "jets/w.h" + +#include "noun.h" + +u3_noun +u3qdb_jub(u3_noun a, + u3_noun key, + u3_noun fun) +{ + if ( u3_nul == a ) { + u3_noun val = u3n_slam_on(u3k(fun), u3_nul); + + if ( u3_nul != val ) { + u3_noun b = u3nt(u3nc(u3k(key), u3k(u3t(val))), u3_nul, u3_nul); + + u3z(val); + return b; + } + else { + return u3_nul; + } + } + + else { + u3_noun n_a, lr_a; + u3_noun pn_a, qn_a; + u3x_cell(a, &n_a, &lr_a); + u3x_cell(n_a, &pn_a, &qn_a); + + if ( c3y == u3r_sing(pn_a, key) ) { + u3_noun val = u3n_slam_on(u3k(fun), u3nc(u3_nul, u3k(qn_a))); + + if ( u3_nul != val ) { + u3_noun u_val = u3t(val); + + if ( c3y == u3r_sing(qn_a, u_val) ) { + + u3z(val); + return u3k(a); + } + else { + u3_noun b = u3nc(u3nc(u3k(pn_a), u3k(u_val)), u3k(lr_a)); + + u3z(val); + return b; + } + } + else { + u3_noun b = u3qdb_del(a, key); + + return b; + } + } + else { + u3_noun l_a, r_a; + u3x_cell(lr_a, &l_a, &r_a); + u3_noun d; + + if ( c3y == u3qc_gor(key, pn_a) ) { + d = u3qdb_jub(l_a, key, fun); + + if ( u3_nul == d ) { + return u3qdb_put(u3k(r_a), u3k(pn_a), u3k(qn_a)); + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { + return u3nt(u3k(n_a), + d, + u3k(r_a)); + } + else { + u3_noun n_d, l_d, r_d; + + u3r_trel(d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3k(l_d), + u3nt(u3k(n_a), + u3k(r_d), + u3k(r_a))); + + u3z(d); + return e; + } + } + else { + d = u3qdb_jub(r_a, key, fun); + + if ( u3_nul == d ) { + return u3qdb_put(u3k(l_a), u3k(pn_a), u3k(qn_a)); + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { + return u3nt(u3k(n_a), + u3k(l_a), + d); + } + else { + u3_noun n_d, l_d, r_d; + u3r_trel(d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3nt(u3k(n_a), + u3k(l_a), + u3k(l_d)), + u3k(r_d)); + + u3z(d); + return e; + } + } + } + } +} + +u3_noun +u3wdb_jub(u3_noun cor) +{ + u3_noun a, key, fun; + u3x_mean(cor, u3x_sam_2, &key, + u3x_sam_3, &fun, + u3x_con_sam, &a, 0); + + return u3qdb_jub(a, key, fun); +} diff --git a/pkg/noun/jets/q.h b/pkg/noun/jets/q.h index 33c63ef42b..b62c5d2396 100644 --- a/pkg/noun/jets/q.h +++ b/pkg/noun/jets/q.h @@ -89,6 +89,7 @@ u3_noun u3qdb_dif(u3_noun, u3_noun); u3_noun u3qdb_gas(u3_noun, u3_noun); u3_noun u3qdb_get(u3_noun, u3_noun); + u3_noun u3qdb_del(u3_noun, u3_noun); u3_noun u3qdb_has(u3_noun, u3_noun); u3_noun u3qdb_int(u3_noun, u3_noun); u3_noun u3qdb_key(u3_noun); diff --git a/pkg/noun/jets/tree.c b/pkg/noun/jets/tree.c index c15e29ba8e..efee0a0b35 100644 --- a/pkg/noun/jets/tree.c +++ b/pkg/noun/jets/tree.c @@ -1905,6 +1905,7 @@ static c3_c* _140_two__in_ha[] = { "fac9248ebd1defade9df695cd81f94355bebb271f85b164ff34658a5f45c71a0", 0 }; + static u3j_core _140_two__by_d[] = { { "all", 7, _140_two__by_all_a, 0, _140_two__by_all_ha }, { "any", 7, _140_two__by_any_a, 0, _140_two__by_any_ha }, @@ -2272,6 +2273,31 @@ static u3j_core _139_two__in_d[] = {} }; +static u3j_harm _139_two__by_jub_a[] = {{".2", u3wdb_jub, c3y}, {}}; +static u3j_core _139_two__by_d[] = + { { "all", 7, _140_two__by_all_a, 0, no_hashes }, + { "any", 7, _140_two__by_any_a, 0, no_hashes }, + { "apt", 7, _140_two__by_apt_a, 0, no_hashes }, + { "bif", 7, _140_two__by_bif_a, 0, no_hashes }, + { "del", 7, _140_two__by_del_a, 0, no_hashes }, + { "dif", 7, _140_two__by_dif_a, 0, no_hashes }, + { "gas", 7, _140_two__by_gas_a, 0, no_hashes }, + { "get", 7, _140_two__by_get_a, 0, no_hashes }, + { "has", 7, _140_two__by_has_a, 0, no_hashes }, + { "int", 7, _140_two__by_int_a, 0, no_hashes }, + { "jab", 7, _140_two__by_jab_a, 0, no_hashes }, + { "key", 7, _140_two__by_key_a, 0, no_hashes }, + { "put", 7, _140_two__by_put_a, 0, no_hashes }, + { "rep", 7, _140_two__by_rep_a, 0, no_hashes }, + { "run", 7, _140_two__by_run_a, 0, no_hashes }, + { "tap", 7, _140_two__by_tap_a, 0, no_hashes }, + { "uni", 7, _140_two__by_uni_a, 0, no_hashes }, + { "urn", 7, _140_two__by_urn_a, 0, no_hashes }, + { "wyt", 3, _140_two__by_wyt_a, 0, no_hashes }, + { "jub", 7, _139_two__by_jub_a, 0, no_hashes }, + {} + }; + static u3j_core _139_two_d[] = { { "tri", 3, 0, _139_tri_d, no_hashes, _140_tri_ho }, @@ -2326,7 +2352,7 @@ static u3j_core _139_two_d[] = { "sqt", 7, _140_two_sqt_a, 0, no_hashes }, { "xeb", 7, _140_two_xeb_a, 0, no_hashes }, - { "by", 7, 0, _140_two__by_d, no_hashes }, + { "by", 7, 0, _139_two__by_d, no_hashes }, { "in", 7, 0, _139_two__in_d, no_hashes }, {} }; diff --git a/pkg/noun/jets/w.h b/pkg/noun/jets/w.h index d838416c03..105c318011 100644 --- a/pkg/noun/jets/w.h +++ b/pkg/noun/jets/w.h @@ -96,6 +96,7 @@ u3_noun u3wdb_has(u3_noun); u3_noun u3wdb_int(u3_noun); u3_noun u3wdb_jab(u3_noun); + u3_noun u3wdb_jub(u3_noun); u3_noun u3wdb_key(u3_noun); u3_noun u3wdb_put(u3_noun); # define u3wdb_tap u3wdi_tap diff --git a/pkg/vere/pier.c b/pkg/vere/pier.c index 263af55e1a..d55b4154b9 100644 --- a/pkg/vere/pier.c +++ b/pkg/vere/pier.c @@ -813,7 +813,7 @@ _pier_wyrd_card(u3_pier* pir_u) u3_noun kel = u3nl(u3nc(c3__zuse, VERE_ZUSE), // XX from both king and serf? u3nc(c3__lull, VERE_LULL), // XX from both king and serf? u3nc(c3__arvo, 238), // XX from both king and serf? - u3nc(c3__hoon, 139), // god_u->hon_y + u3nc(c3__hoon, 138), // god_u->hon_y u3nc(c3__nock, 4), // god_u->noc_y u3_none); u3_noun wir = u3nc(c3__arvo, u3_nul); diff --git a/pkg/vere/serf.c b/pkg/vere/serf.c index 3a59005e00..cfa7c23060 100644 --- a/pkg/vere/serf.c +++ b/pkg/vere/serf.c @@ -976,7 +976,7 @@ u3_serf_init(u3_serf* sef_u) { c3_w pro_w = 1; - c3_y hon_y = 139; + c3_y hon_y = 138; c3_y noc_y = 4; u3_noun ver = u3nt(pro_w, hon_y, noc_y); From 5c3b2dbf4ea27399e6186cdac35fa66790a75964 Mon Sep 17 00:00:00 2001 From: xiphiness Date: Fri, 1 Sep 2023 19:56:20 -0600 Subject: [PATCH 2/3] x/jub: add jib:by --- pkg/noun/jets/d/by_jib.c | 129 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 129 insertions(+) create mode 100644 pkg/noun/jets/d/by_jib.c diff --git a/pkg/noun/jets/d/by_jib.c b/pkg/noun/jets/d/by_jib.c new file mode 100644 index 0000000000..5eacb9f2de --- /dev/null +++ b/pkg/noun/jets/d/by_jib.c @@ -0,0 +1,129 @@ +/* j/4/by_jib.c +** +*/ +#include "jets/q.h" +#include "jets/w.h" + +#include "noun.h" + +u3_noun +u3qdb_jib(u3_noun a, + u3_noun key, + u3_noun fun) +{ + if ( u3_nul == a ) { + u3_noun value = u3n_kick_on(u3k(fun)); + + if ( u3_nul != val ) { + u3_noun b = u3nt(u3nc(u3k(key), u3k(u3t(val))), u3_nul, u3_nul); + + u3z(val); + return b; + } + else { + return u3_nul; + } + } + + else { + u3_noun n_a, lr_a; + u3_noun pn_a, qn_a; + u3x_cell(a, &n_a, &lr_a); + u3x_cell(n_a, &pn_a, &qn_a); + + if ( c3y == u3r_sing(pn_a, key) ) { + u3_noun value = u3n_slam_on(u3k(fun), u3k(qn_a)); + + if ( u3_nul != val ) { + u3_noun u_val = u3t(val); + + if ( c3y == u3r_sing(qn_a, u_val) ) { + + u3z(val); + return u3k(a); + } + else { + u3_noun b = u3nc(u3nc(u3k(pn_a), u3k(u_val)), u3k(lr_a)); + + u3z(val); + return b; + } + } + else { + u3_noun b = u3qdb_del(a, key); + + return b; + } + } + else { + u3_noun l_a, r_a; + u3x_cell(lr_a, &l_a, &r_a); + u3_noun d; + + if ( c3y == u3qc_gor(key, pn_a) ) { + d = u3qdb_jib(l_a, key, fun); + + if ( u3_nul == d ) { + return u3qdb_put(u3k(r_a), u3k(pn_a), u3k(qn_a)); + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { + return u3nt(u3k(n_a), + d, + u3k(r_a)); + } + else { + u3_noun n_d, l_d, r_d; + + u3r_trel(d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3k(l_d), + u3nt(u3k(n_a), + u3k(r_d), + u3k(r_a))); + + u3z(d); + return e; + } + } + else { + d = u3qdb_jib(r_a, key, fun); + + if ( u3_nul == d ) { + return u3qdb_put(u3k(l_a), u3k(pn_a), u3k(qn_a)); + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { + return u3nt(u3k(n_a), + u3k(l_a), + d); + } + else { + u3_noun n_d, l_d, r_d; + u3r_trel(d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3nt(u3k(n_a), + u3k(l_a), + u3k(l_d)), + u3k(r_d)); + + u3z(d); + return e; + } + } + } + } +} + +u3_noun +u3wdb_jib(u3_noun cor) +{ + u3_noun a, key, fun; + u3x_mean(cor, u3x_sam_2, &key, + u3x_sam_3, &fun, + u3x_con_sam, &a, 0); + + return u3qdb_jib(a, key, fun); +} From 5afcb822fb9c4f137f22ca9f13219f4c58effb7b Mon Sep 17 00:00:00 2001 From: xiphiness Date: Tue, 3 Oct 2023 12:12:33 -0600 Subject: [PATCH 3/3] x/jub: jet work --- pkg/noun/jets/d/by_gos.c | 44 +++++++++++++ pkg/noun/jets/d/by_jib.c | 129 ------------------------------------- pkg/noun/jets/d/by_put.c | 4 +- pkg/noun/jets/d/by_pyt.c | 135 +++++++++++++++++++++++++++++++++++++++ pkg/noun/jets/q.h | 1 + pkg/noun/jets/tree.c | 4 ++ pkg/noun/jets/w.h | 2 + 7 files changed, 189 insertions(+), 130 deletions(-) create mode 100644 pkg/noun/jets/d/by_gos.c delete mode 100644 pkg/noun/jets/d/by_jib.c create mode 100644 pkg/noun/jets/d/by_pyt.c diff --git a/pkg/noun/jets/d/by_gos.c b/pkg/noun/jets/d/by_gos.c new file mode 100644 index 0000000000..624232f78c --- /dev/null +++ b/pkg/noun/jets/d/by_gos.c @@ -0,0 +1,44 @@ +/// @file + +#include "jets/k.h" +#include "jets/q.h" +#include "jets/w.h" + +#include "noun.h" + +u3_noun +u3qdb_gos(u3_noun a, + u3_noun b) +{ + if ( u3_nul == b ) { + return u3k(a); + } + else { + u3_noun i_b, t_b, + pi_b, qi_b; + u3x_cell(b, &i_b, &t_b); + u3x_cell(i_b, &pi_b, &qi_b); + + u3_noun c = u3qdb_pyt(a, pi_b, qi_b); + u3_noun d = u3qdb_gos(c, t_b); + u3z(c); + return d; + } +} + +u3_noun +u3wdb_gos(u3_noun cor) +{ + u3_noun a, b; + u3x_mean(cor, u3x_sam, &b, u3x_con_sam, &a, 0); + return u3qdb_gos(a, b); +} + +u3_noun +u3kdb_gos(u3_noun a, + u3_noun b) +{ + u3_noun c = u3qdb_gos(a, b); + u3z(a); u3z(b); + return c; +} diff --git a/pkg/noun/jets/d/by_jib.c b/pkg/noun/jets/d/by_jib.c deleted file mode 100644 index 5eacb9f2de..0000000000 --- a/pkg/noun/jets/d/by_jib.c +++ /dev/null @@ -1,129 +0,0 @@ -/* j/4/by_jib.c -** -*/ -#include "jets/q.h" -#include "jets/w.h" - -#include "noun.h" - -u3_noun -u3qdb_jib(u3_noun a, - u3_noun key, - u3_noun fun) -{ - if ( u3_nul == a ) { - u3_noun value = u3n_kick_on(u3k(fun)); - - if ( u3_nul != val ) { - u3_noun b = u3nt(u3nc(u3k(key), u3k(u3t(val))), u3_nul, u3_nul); - - u3z(val); - return b; - } - else { - return u3_nul; - } - } - - else { - u3_noun n_a, lr_a; - u3_noun pn_a, qn_a; - u3x_cell(a, &n_a, &lr_a); - u3x_cell(n_a, &pn_a, &qn_a); - - if ( c3y == u3r_sing(pn_a, key) ) { - u3_noun value = u3n_slam_on(u3k(fun), u3k(qn_a)); - - if ( u3_nul != val ) { - u3_noun u_val = u3t(val); - - if ( c3y == u3r_sing(qn_a, u_val) ) { - - u3z(val); - return u3k(a); - } - else { - u3_noun b = u3nc(u3nc(u3k(pn_a), u3k(u_val)), u3k(lr_a)); - - u3z(val); - return b; - } - } - else { - u3_noun b = u3qdb_del(a, key); - - return b; - } - } - else { - u3_noun l_a, r_a; - u3x_cell(lr_a, &l_a, &r_a); - u3_noun d; - - if ( c3y == u3qc_gor(key, pn_a) ) { - d = u3qdb_jib(l_a, key, fun); - - if ( u3_nul == d ) { - return u3qdb_put(u3k(r_a), u3k(pn_a), u3k(qn_a)); - } - - if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { - return u3nt(u3k(n_a), - d, - u3k(r_a)); - } - else { - u3_noun n_d, l_d, r_d; - - u3r_trel(d, &n_d, &l_d, &r_d); - - u3_noun e = u3nt(u3k(n_d), - u3k(l_d), - u3nt(u3k(n_a), - u3k(r_d), - u3k(r_a))); - - u3z(d); - return e; - } - } - else { - d = u3qdb_jib(r_a, key, fun); - - if ( u3_nul == d ) { - return u3qdb_put(u3k(l_a), u3k(pn_a), u3k(qn_a)); - } - - if ( c3y == u3qc_mor(pn_a, u3h(u3h(d))) ) { - return u3nt(u3k(n_a), - u3k(l_a), - d); - } - else { - u3_noun n_d, l_d, r_d; - u3r_trel(d, &n_d, &l_d, &r_d); - - u3_noun e = u3nt(u3k(n_d), - u3nt(u3k(n_a), - u3k(l_a), - u3k(l_d)), - u3k(r_d)); - - u3z(d); - return e; - } - } - } - } -} - -u3_noun -u3wdb_jib(u3_noun cor) -{ - u3_noun a, key, fun; - u3x_mean(cor, u3x_sam_2, &key, - u3x_sam_3, &fun, - u3x_con_sam, &a, 0); - - return u3qdb_jib(a, key, fun); -} diff --git a/pkg/noun/jets/d/by_put.c b/pkg/noun/jets/d/by_put.c index ad0e7ecad2..890dea4377 100644 --- a/pkg/noun/jets/d/by_put.c +++ b/pkg/noun/jets/d/by_put.c @@ -33,7 +33,7 @@ u3qdb_put(u3_noun a, } } else { - u3_noun d, n_d, l_d, r_d; + u3_noun d; if ( c3y == u3qc_gor(b, pn_a) ) { d = u3qdb_put(l_a, b, c); @@ -44,6 +44,7 @@ u3qdb_put(u3_noun a, u3k(r_a)); } else { + u3_noun n_d, l_d, r_d; u3r_trel(d, &n_d, &l_d, &r_d); u3_noun e = u3nt(u3k(n_d), @@ -65,6 +66,7 @@ u3qdb_put(u3_noun a, d); } else { + u3_noun n_d, l_d, r_d; u3r_trel(d, &n_d, &l_d, &r_d); u3_noun e = u3nt(u3k(n_d), diff --git a/pkg/noun/jets/d/by_pyt.c b/pkg/noun/jets/d/by_pyt.c new file mode 100644 index 0000000000..8659cb16c6 --- /dev/null +++ b/pkg/noun/jets/d/by_pyt.c @@ -0,0 +1,135 @@ +/// @file + +#include "jets/k.h" +#include "jets/q.h" +#include "jets/w.h" + +#include "noun.h" + +typedef struct { + c3_o mut; + u3_noun d; +} pyt_inner_ret; + +pyt_inner_ret +u3qdb_pyt_inner(u3_noun a, + u3_noun b, + u3_noun c) +{ + if ( u3_nul == a ) { + return ( pyt_inner_ret ) { c3y, u3nt(u3nc(u3k(b), u3k(c)), + u3_nul, + u3_nul) }; + } + else { + u3_noun n_a, l_a, r_a; + u3_noun pn_a, qn_a; + u3x_trel(a, &n_a, &l_a, &r_a); + u3x_cell(n_a, &pn_a, &qn_a); + + if ( c3y == u3r_sing(pn_a, b) ) { + if ( c3y == u3r_sing(qn_a, c) ) { + return ( pyt_inner_ret ) { c3n, u3_nul } ; + } + else { + return ( pyt_inner_ret ) { c3y, u3nt(u3nc(u3k(b), u3k(c)), + u3k(l_a), + u3k(r_a))}; + } + } + else { + pyt_inner_ret d_ret; + + if ( c3y == u3qc_gor(b, pn_a) ) { + d_ret = u3qdb_pyt_inner(l_a, b, c); + + if ( c3n == d_ret.mut ) { + return d_ret; + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d_ret.d))) ) { + d_ret.d = u3nt(u3k(n_a), + d_ret.d, + u3k(r_a)); + return d_ret; + } + else { + u3_noun n_d, l_d, r_d; + u3r_trel(d_ret.d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3k(l_d), + u3nt(u3k(n_a), + u3k(r_d), + u3k(r_a))); + + u3z(d_ret.d); + d_ret.d = e; + return d_ret; + } + } + else { + d_ret = u3qdb_pyt_inner(r_a, b, c); + + if ( c3n == d_ret.mut ) { + return d_ret; + } + + if ( c3y == u3qc_mor(pn_a, u3h(u3h(d_ret.d))) ) { + d_ret.d = u3nt(u3k(n_a), + u3k(l_a), + d_ret.d); + return d_ret; + } + else { + u3_noun n_d, l_d, r_d; + u3r_trel(d_ret.d, &n_d, &l_d, &r_d); + + u3_noun e = u3nt(u3k(n_d), + u3nt(u3k(n_a), + u3k(l_a), + u3k(l_d)), + u3k(r_d)); + + u3z(d_ret.d); + d_ret.d = e; + return d_ret; + } + } + } + } +} + +u3_noun +u3qdb_pyt(u3_noun a, + u3_noun b, + u3_noun c) +{ + pyt_inner_ret d_ret = u3qdb_pyt_inner(u3k(a), b, c); + if ( c3y == d_ret.mut ) { + u3z(a); + return d_ret.d; + } + return a; +} + + +u3_noun +u3wdb_pyt(u3_noun cor) +{ + u3_noun a, b, c; + u3x_mean(cor, u3x_sam_2, &b, + u3x_sam_3, &c, + u3x_con_sam, &a, 0); + return u3qdb_pyt(a, b, c); +} + +u3_noun +u3kdb_pyt(u3_noun a, + u3_noun b, + u3_noun c) +{ + u3_noun pro = u3qdb_pyt(a, b, c); + u3z(a); u3z(b); u3z(c); + return pro; +} diff --git a/pkg/noun/jets/q.h b/pkg/noun/jets/q.h index b62c5d2396..d899971bfc 100644 --- a/pkg/noun/jets/q.h +++ b/pkg/noun/jets/q.h @@ -94,6 +94,7 @@ u3_noun u3qdb_int(u3_noun, u3_noun); u3_noun u3qdb_key(u3_noun); u3_noun u3qdb_put(u3_noun, u3_noun, u3_noun); + u3_noun u3qdb_pyt(u3_noun, u3_noun, u3_noun); u3_noun u3qdb_run(u3_noun, u3_noun); # define u3qdb_tap u3qdi_tap u3_noun u3qdb_uni(u3_noun, u3_noun); diff --git a/pkg/noun/jets/tree.c b/pkg/noun/jets/tree.c index efee0a0b35..765c81ddad 100644 --- a/pkg/noun/jets/tree.c +++ b/pkg/noun/jets/tree.c @@ -2274,6 +2274,8 @@ static u3j_core _139_two__in_d[] = }; static u3j_harm _139_two__by_jub_a[] = {{".2", u3wdb_jub, c3y}, {}}; +static u3j_harm _139_two__by_gos_a[] = {{".2", u3wdb_gos, c3y}, {}}; +static u3j_harm _139_two__by_pyt_a[] = {{".2", u3wdb_pyt, c3y}, {}}; static u3j_core _139_two__by_d[] = { { "all", 7, _140_two__by_all_a, 0, no_hashes }, { "any", 7, _140_two__by_any_a, 0, no_hashes }, @@ -2295,6 +2297,8 @@ static u3j_core _139_two__by_d[] = { "urn", 7, _140_two__by_urn_a, 0, no_hashes }, { "wyt", 3, _140_two__by_wyt_a, 0, no_hashes }, { "jub", 7, _139_two__by_jub_a, 0, no_hashes }, + { "pyt", 7, _139_two__by_pyt_a, 0, no_hashes }, + { "gos", 7, _139_two__by_gos_a, 0, no_hashes }, {} }; diff --git a/pkg/noun/jets/w.h b/pkg/noun/jets/w.h index 105c318011..b85af53c1b 100644 --- a/pkg/noun/jets/w.h +++ b/pkg/noun/jets/w.h @@ -97,6 +97,8 @@ u3_noun u3wdb_int(u3_noun); u3_noun u3wdb_jab(u3_noun); u3_noun u3wdb_jub(u3_noun); + u3_noun u3wdb_pyt(u3_noun); + u3_noun u3wdb_gos(u3_noun); u3_noun u3wdb_key(u3_noun); u3_noun u3wdb_put(u3_noun); # define u3wdb_tap u3wdi_tap