u2_weak // transfer j2_mci(Pt6, ut, bust)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun dib) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "bust"); if ( u2_none == hoc ) { c3_assert(!"register bust"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cw_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cw_sam, u2_rx(wir_r, dib), 0); if ( (u2_none == j2_mcj(Pt6, ut, bust)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, bust)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
u2_weak // transfer j2_mci(Pt6, ut, tack)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun peh, // retain u2_noun mur) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "tack"); if ( u2_none == hoc ) { c3_assert(!"register tack"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cv_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cv_sam_2, u2_rx(wir_r, peh), u2_cv_sam_3, u2_rx(wir_r, mur), 0); if ( (u2_none == j2_mcj(Pt6, ut, tack)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, tack)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
u2_weak // transfer j2_mci(Pt6, ut, fink)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun dep, // retain u2_noun way, // retain u2_noun cog) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "fink"); if ( u2_none == hoc ) { c3_assert(!"register fink"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cv_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cv_sam_2, u2_rx(wir_r, dep), u2_cv_sam_6, u2_rx(wir_r, way), u2_cv_sam_7, u2_rx(wir_r, cog), 0); if ( (u2_none == j2_mcj(Pt6, ut, fink)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, fink)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
u2_bean j2_mci(Pt6, ut, park)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun way, // retain u2_noun axe) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "park"); if ( u2_none == hoc ) { c3_assert(!"register park"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cv_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cv_sam_2, u2_rx(wir_r, way), u2_cv_sam_3, u2_rx(wir_r, axe), 0); if ( (u2_none == j2_mcj(Pt6, ut, park)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, park)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
u2_weak // produce j2_mci(Pt6, ut, mint)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun gol, // retain u2_noun gen) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "mint"); if ( u2_none == hoc ) { c3_assert(!"register mint"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cw_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cw_sam_2, u2_rx(wir_r, gol), u2_cw_sam_3, u2_rx(wir_r, gen), 0); if ( (u2_none == j2_mcj(Pt6, ut, mint)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, mint)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
u2_weak // transfer j2_mci(Pt6, ut, cull)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_flag pol, // retain u2_atom axe, // retain u2_noun ref) // retain { u2_weak hoc = u2_ds_look(wir_r, van, "cull"); if ( u2_none == hoc ) { c3_assert(!"register cull"); return u2_none; } else { u2_weak von = u2_rl_molt(wir_r, van, u2_cw_sam, u2_rx(wir_r, sut), 0); u2_weak gat = u2_nk_soft(wir_r, von, hoc); u2_weak cor = u2_rl_molt(wir_r, gat, u2_cw_sam_2, pol, u2_cw_sam_6, u2_rx(wir_r, axe), u2_cw_sam_7, u2_rx(wir_r, ref), 0); if ( (u2_none == j2_mcj(Pt6, ut, cull)[0].xip) ) { u2_noun xip = u2_ds_find(wir_r, cor); c3_assert(u2_none != xip); j2_mcj(Pt6, ut, cull)[0].xip = xip; } u2_rl_lose(wir_r, gat); return cor; } }
/* _zuse_ol_mint(): mint from gen, pit, gol. */ u2_weak // transfer _zuse_ol_mint(u2_wire wir_r, u2_noun pit, // retain u2_noun typ, // retain u2_noun gol, // retain u2_noun gen) // retain { u2_noun fut = u2_sh_look(wir_r, pit, "ut"); if ( u2_none == fut ) { printf("zuse: fut failed\n"); return u2_none; } else { u2_noun tut = u2_nk_nock(wir_r, u2_rx(wir_r, pit), fut); if ( u2_none == tut ) { printf("zuse: tut failed\n"); return u2_none; } else { u2_noun van = u2_rl_molt(wir_r, tut, u2_cv_sam, u2_rx(wir_r, typ), 0); u2_rl_lose(wir_r, tut); if ( u2_none == van ) { printf("zuse: van failed\n"); return u2_none; } else { u2_noun gom = u2_sh_look(wir_r, van, "mint"); if ( u2_none == gom ) { printf("zuse: gom failed\n"); u2_rl_lose(wir_r, van); return u2_none; } else { u2_noun mil = u2_nk_nock(wir_r, van, gom); if ( u2_none == mil ) { printf("zuse: mil failed\n"); return u2_none; } else { u2_noun ruq = u2_rc(wir_r, u2_rx(wir_r, gol), u2_rx(wir_r, gen)); if ( u2_none == ruq ) { printf("zuse: ruq failed\n"); return u2_none; } else return u2_nk_mung(wir_r, mil, ruq); } } } } } }