/* functions */ u2_weak // transfer j2_mbc(Pt3, cat)(u2_wire wir_r, u2_atom a, // retain u2_atom b, // retain u2_atom c) // retain { if ( !u2_fly_is_cat(a) || (a >= 32) ) { return u2_bl_bail(wir_r, c3__fail); } else { c3_g a_g = a; c3_w lew_w = u2_met(a_g, b); c3_w ler_w = u2_met(a_g, c); c3_w all_w = (lew_w + ler_w); if ( 0 == all_w ) { return 0; } else { u2_ray sal_r = u2_rl_slaq(wir_r, a_g, all_w); if ( 0 == sal_r ) { return u2_bl_bail(wir_r, c3__fail); } else { u2_chop(a_g, 0, lew_w, 0, sal_r, b); u2_chop(a_g, 0, ler_w, lew_w, sal_r, c); } // return u2_rl_moot(wir_r, sal_r); return u2_rl_malt(wir_r, sal_r); } } }
/* functions */ u2_weak // transfer j2_mbc(Pt3, con)(u2_wire wir_r, u2_atom a, // retain u2_atom b) // retain { c3_w lna_w = u2_met(5, a); c3_w lnb_w = u2_met(5, b); if ( (lna_w == 0) && (lnb_w == 0) ) { return _0; } else { c3_w len_w = c3_max(lna_w, lnb_w); u2_ray sal_r = u2_rl_slab(wir_r, len_w); if ( 0 == sal_r ) { return u2_none; } else { c3_w i_w; u2_chop(5, 0, lna_w, 0, sal_r, a); for ( i_w = 0; i_w < lnb_w; i_w++ ) { *u2_at_ray(sal_r + i_w) |= u2_atom_word(b, i_w); } return u2_rl_moot(wir_r, sal_r); } } }
/* functions */ u2_weak // transfer j2_mbc(Pt3, rsh)(u2_wire wir_r, u2_atom a, // retain u2_atom b, // retain u2_atom c) // retain { if ( !u2_fly_is_cat(a) || (a >= 32) ) { return u2_bl_bail(wir_r, c3__fail); } else if ( !u2_fly_is_cat(b) ) { return _0; } else { c3_g a_g = a; c3_w b_w = b; c3_w len_w = u2_met(a_g, c); if ( b_w >= len_w ) { return _0; } else { u2_ray sal_r = u2_rl_slaq(wir_r, a_g, (len_w - b_w)); if ( 0 == sal_r ) { return u2_bl_bail(wir_r, c3__fail); } u2_chop(a_g, b_w, (len_w - b_w), 0, sal_r, c); // return u2_rl_moot(wir_r, sal_r); return u2_rl_malt(wir_r, sal_r); } } }
/* functions */ u2_weak // transfer j2_mbc(Pt3, cut)(u2_wire wir_r, u2_atom a, // retain u2_atom b, // retain u2_atom c, // retain u2_atom d) // retain { if ( !u2_fly_is_cat(a) || (a >= 32) ) { return u2_bl_bail(wir_r, c3__fail); } if ( !u2_fly_is_cat(b) ) { return _0; } if ( !u2_fly_is_cat(c) ) { c = 0x7fffffff; } { c3_g a_g = a; c3_w b_w = b; c3_w c_w = c; c3_w len_w = u2_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 u2_rx(wir_r, d); } else { u2_ray sal_r = u2_rl_slaq(wir_r, a_g, c_w); if ( 0 == sal_r ) { return u2_bl_bail(wir_r, c3__fail); } u2_chop(a_g, b_w, c_w, 0, sal_r, d); return u2_rl_malt(wir_r, sal_r); } } }
/* functions */ u2_weak // transfer j2_mbc(Pt3, rap)(u2_wire wir_r, u2_atom a, // retain u2_noun b) // retain { if ( !u2_fly_is_cat(a) || (a >= 32) ) { return u2_bl_bail(wir_r, c3__exit); } else { c3_g a_g = a; c3_w tot_w = 0; u2_ray sal_r; /* Measure and validate the slab required. */ { u2_noun cab = b; while ( 1 ) { u2_noun h_cab; c3_w len_w; if ( _0 == cab ) { break; } else if ( u2_no == u2_dust(cab) ) { return u2_bl_bail(wir_r, c3__exit); } else if ( u2_no == u2_stud(h_cab = u2_h(cab)) ) { return u2_bl_bail(wir_r, c3__exit); } else if ( (tot_w + (len_w = u2_met(a_g, h_cab))) < tot_w ) { return u2_bl_bail(wir_r, c3__fail); } tot_w += len_w; cab = u2_t(cab); } if ( 0 == tot_w ) { return _0; } if ( 0 == (sal_r = u2_rl_slaq(wir_r, a_g, tot_w)) ) { return u2_bl_bail(wir_r, c3__fail); } } /* Chop the list atoms in. */ { u2_noun cab = b; c3_w pos_w = 0; while ( _0 != cab ) { u2_noun h_cab = u2_h(cab); c3_w len_w = u2_met(a_g, h_cab); u2_chop(a_g, 0, len_w, pos_w, sal_r, h_cab); pos_w += len_w; cab = u2_t(cab); } } // return u2_rl_moot(wir_r, sal_r); return u2_rl_malt(wir_r, sal_r); } }