diff --git a/pkg/urbit/include/jets/w.h b/pkg/urbit/include/jets/w.h index 8065457fd2..e81acabb02 100644 --- a/pkg/urbit/include/jets/w.h +++ b/pkg/urbit/include/jets/w.h @@ -55,8 +55,10 @@ u3_noun u3wc_dor(u3_noun); u3_noun u3wc_dvr(u3_noun); u3_noun u3wc_end(u3_noun); + u3_noun u3wc_new_end(u3_noun); u3_noun u3wc_gor(u3_noun); u3_noun u3wc_lsh(u3_noun); + u3_noun u3wc_new_lsh(u3_noun); u3_noun u3wc_mas(u3_noun); u3_noun u3wc_met(u3_noun); u3_noun u3wc_mix(u3_noun); @@ -70,6 +72,7 @@ u3_noun u3wc_rev(u3_noun); u3_noun u3wc_rip(u3_noun); u3_noun u3wc_rsh(u3_noun); + u3_noun u3wc_new_rsh(u3_noun); u3_noun u3wc_swp(u3_noun); u3_noun u3wc_sqt(u3_noun); diff --git a/pkg/urbit/jets/c/end.c b/pkg/urbit/jets/c/end.c index dfa30fb214..3d23815507 100644 --- a/pkg/urbit/jets/c/end.c +++ b/pkg/urbit/jets/c/end.c @@ -56,3 +56,14 @@ } } +u3_noun +u3wc_new_end(u3_noun cor) +{ + u3_atom bloq, step; + u3_noun a, b; + u3x_mean(cor, u3x_sam_2, &a, + u3x_sam_3, &b, 0); + u3x_bite(a, &bloq, &step); + + return u3qc_end(bloq, step, u3x_atom(b)); +} diff --git a/pkg/urbit/jets/c/lsh.c b/pkg/urbit/jets/c/lsh.c index d6789144c3..a205d7249a 100644 --- a/pkg/urbit/jets/c/lsh.c +++ b/pkg/urbit/jets/c/lsh.c @@ -66,3 +66,14 @@ return d; } +u3_noun +u3wc_new_lsh(u3_noun cor) +{ + u3_atom bloq, step; + u3_noun a, b; + u3x_mean(cor, u3x_sam_2, &a, + u3x_sam_3, &b, 0); + u3x_bite(a, &bloq, &step); + + return u3qc_lsh(bloq, step, u3x_atom(b)); +} diff --git a/pkg/urbit/jets/c/rsh.c b/pkg/urbit/jets/c/rsh.c index 1919ce3eac..461109b16f 100644 --- a/pkg/urbit/jets/c/rsh.c +++ b/pkg/urbit/jets/c/rsh.c @@ -63,3 +63,14 @@ return d; } +u3_noun +u3wc_new_rsh(u3_noun cor) +{ + u3_atom bloq, step; + u3_noun a, b; + u3x_mean(cor, u3x_sam_2, &a, + u3x_sam_3, &b, 0); + u3x_bite(a, &bloq, &step); + + return u3qc_rsh(bloq, step, u3x_atom(b)); +} diff --git a/pkg/urbit/jets/tree.c b/pkg/urbit/jets/tree.c index c3d6d680a6..2c711f015a 100644 --- a/pkg/urbit/jets/tree.c +++ b/pkg/urbit/jets/tree.c @@ -1503,6 +1503,10 @@ static c3_c* _141_two_end_ha[] = { "45a0efc0c4ae4b93f554d480a9d2c52474d5ebd6b1b9b0ab888b9bee2117db55", 0 }; +static u3j_harm _141_two_new_end_a[] = {{".2", u3wc_new_end, c3y}, {}}; +static c3_c* _141_two_new_end_ha[] = { + 0 +}; static u3j_harm _141_two_gor_a[] = {{".2", u3wc_gor, c3y}, {}}; static c3_c* _141_two_gor_ha[] = { "3ab7d6a56b8b347bd677a77ec43cda984d1eb869bab5c9bc2185f5c4a366703a", @@ -1513,6 +1517,10 @@ static c3_c* _141_two_lsh_ha[] = { "a93f01f1db5bcaf1973d01234bbcec8f8adf9d6402a8d715a1b13b70a140a428", 0 }; +static u3j_harm _141_two_new_lsh_a[] = {{".2", u3wc_new_lsh, c3y}, {}}; +static c3_c* _141_two_new_lsh_ha[] = { + 0 +}; // XX appears to be a duplicate of _141_one_mas_a // static u3j_harm _141_two_mas_a[] = {{".2", u3wc_mas, c3y}, {}}; @@ -1577,6 +1585,10 @@ static c3_c* _141_two_rsh_ha[] = { "a401145b4c11ec8d17a729fe30f06c295865ffed1b970b0a788f0fec1ed0a703", 0 }; +static u3j_harm _141_two_new_rsh_a[] = {{".2", u3wc_new_rsh, c3y}, {}}; +static c3_c* _141_two_new_rsh_ha[] = { + 0 +}; static u3j_harm _141_two_swp_a[] = {{".2", u3wc_swp, c3y}, {}}; static c3_c* _141_two_swp_ha[] = { "f809ed11a87db6cef8944c7252d53cda1e030240ee52912c3843d56805ac17fa", @@ -1845,9 +1857,11 @@ static u3j_core _141_two_d[] = { "dor", 7, _141_two_dor_a, 0, _141_two_dor_ha }, { "dvr", 7, _141_two_dvr_a, 0, _141_two_dvr_ha }, { "end", 7, _141_two_end_a, 0, _141_two_end_ha }, + { "new-end", 7, _141_two_new_end_a, 0, _141_two_new_end_ha }, { "gor", 7, _141_two_gor_a, 0, _141_two_gor_ha }, { "jam", 7, _141_two_jam_a, 0, _141_two_jam_ha }, { "lsh", 7, _141_two_lsh_a, 0, _141_two_lsh_ha }, + { "new-lsh", 7, _141_two_new_lsh_a, 0, _141_two_new_lsh_ha }, { "mas", 7, _141_two_mas_a, 0, _141_two_mas_ha }, { "mat", 7, _141_two_mat_a, 0, _141_two_mat_ha }, { "met", 7, _141_two_met_a, 0, _141_two_met_ha }, @@ -1860,6 +1874,7 @@ static u3j_core _141_two_d[] = { "rev", 7, _141_two_rev_a, 0, _141_two_rev_ha }, { "rip", 7, _141_two_rip_a, 0, _141_two_rip_ha }, { "rsh", 7, _141_two_rsh_a, 0, _141_two_rsh_ha }, + { "new-rsh", 7, _141_two_new_rsh_a, 0, _141_two_new_rsh_ha }, { "swp", 7, _141_two_swp_a, 0, _141_two_swp_ha }, { "rub", 7, _141_two_rub_a, 0, _141_two_rub_ha }, { "peg", 7, _141_two_peg_a, 0, _141_two_peg_ha },