u3_noun _cqfu_peek(u3_noun van, u3_noun sut, u3_noun way, u3_atom axe) { if ( 1 == axe ) { return u3k(sut); } else return _peek_in(van, sut, way, axe, u3_nul); }
static u3_noun _peek_fork(u3_noun van, u3_noun p_sut, u3_noun way, u3_noun axe, u3_noun gil) { if ( u3_nul == p_sut ) { return u3_nul; } else { return u3nc(_peek_in(van, u3h(p_sut), way, axe, gil), _peek_fork(van, u3t(p_sut), way, axe, gil)); } }
u2_noun // transfer j2_mcx(Pt6, ut, peek)(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun way, u2_atom axe) // retain { if ( _1 == axe ) { return u2_rx(wir_r, sut); } else return _peek_in(wir_r, van, sut, way, axe, u2_nul); }
static u2_noun // produce _peek_in(u2_wire wir_r, u2_noun van, // retain u2_noun sut, // retain u2_noun way, // retain u2_atom axe, // retain u2_noun gil) // retain { u2_noun p_sut, q_sut; u2_noun pro; if ( (u2_no == u2_dust(sut)) ) switch ( sut ) { default: return u2_bl_bail(wir_r, c3__fail); case c3__noun: { return c3__noun; } case c3__void: { return c3__void; } } else switch ( u2_h(sut) ) { default: return u2_bl_bail(wir_r, c3__fail); case c3__atom: { return c3__void; } case c3__cell: { if ( (u2_no == u2_as_trel(sut, 0, &p_sut, &q_sut)) ) { return u2_bl_bail(wir_r, c3__fail); } else { u2_atom tip = j2_mbc(Pt3, cap)(wir_r, axe); u2_atom tap = j2_mbc(Pt3, mas)(wir_r, axe); if ( _2 == tip ) { pro = j2_mcx(Pt6, ut, peek)(wir_r, van, p_sut, way, tap); } else { pro = j2_mcx(Pt6, ut, peek)(wir_r, van, q_sut, way, tap); } u2_rl_lose(wir_r, tap); u2_rl_lose(wir_r, tip); return pro; } } case c3__core: { u2_noun pq_sut, qq_sut, rq_sut; u2_noun prq_sut, qrq_sut; if ( (u2_no == u2_as_trel(sut, 0, &p_sut, &q_sut)) || (u2_no == u2_as_trel(q_sut, &pq_sut, &qq_sut, &rq_sut)) || (u2_no == u2_as_cell(rq_sut, &prq_sut, &qrq_sut)) ) { return u2_bl_bail(wir_r, c3__fail); } else { u2_atom tip = j2_mbc(Pt3, cap)(wir_r, axe); u2_atom tap = j2_mbc(Pt3, mas)(wir_r, axe); if ( _3 == tip ) { if ( u2_no == j2_mcy(Pt6, ut, park)(wir_r, van, sut, way, tap) ) { // u2_noun dun = j2_mcy(Pt6, ut, dunq)(wir_r, van, "type", sut); u2_noun waz = j2_mcy(Pt6, ut, shep) (wir_r, van, "axis", 'd', u2_rx(wir_r, axe)); // u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dun)); u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, waz)); return u2_bl_error(wir_r, "peek-park"); } else pro = j2_mcx(Pt6, ut, peek)(wir_r, van, p_sut, way, tap); } else { pro = c3__noun; } u2_rl_lose(wir_r, tap); u2_rl_lose(wir_r, tip); return pro; } } case c3__cube: { if ( (u2_no == u2_as_trel(sut, 0, &p_sut, &q_sut)) ) { return u2_bl_bail(wir_r, c3__fail); } else { return _peek_in(wir_r, van, q_sut, way, axe, gil); } } case c3__face: { if ( (u2_no == u2_as_trel(sut, 0, &p_sut, &q_sut)) ) { return u2_bl_bail(wir_r, c3__fail); } else { return _peek_in(wir_r, van, q_sut, way, axe, gil); } } case c3__fork: { if ( (u2_no == u2_as_trel(sut, 0, &p_sut, &q_sut)) ) { return u2_bl_bail(wir_r, c3__fail); } else { u2_noun hed = _peek_in(wir_r, van, p_sut, way, axe, gil); u2_noun tal = _peek_in(wir_r, van, q_sut, way, axe, gil); pro = j2_mby(Pt6, fork)(wir_r, hed, tal); u2_rl_lose(wir_r, hed); u2_rl_lose(wir_r, tal); return pro; } } case c3__hold: { p_sut = u2_t(sut); if ( (u2_yes == j2_mcc(Pt4, in, has)(wir_r, gil, sut)) ) { return c3__void; } else { u2_noun zoc = j2_mcc(Pt4, in, put)(wir_r, gil, sut); u2_type fop = j2_mcy(Pt6, ut, repo)(wir_r, van, sut); u2_noun pro = _peek_in(wir_r, van, fop, way, axe, zoc); u2_rl_lose(wir_r, fop); u2_rl_lose(wir_r, zoc); return pro; } } } }
static u3_noun _peek_in(u3_noun van, u3_noun sut, u3_noun way, u3_atom axe, u3_noun gil) { u3_noun p_sut, q_sut; u3_noun pro; if ( (c3n == u3du(sut)) ) switch ( sut ) { default: return u3m_bail(c3__fail); case c3__noun: { return c3__noun; } case c3__void: { return c3__void; } } else switch ( u3h(sut) ) { default: return u3m_bail(c3__fail); case c3__atom: { return c3__void; } case c3__bull: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { return _peek_in(van, q_sut, way, axe, gil); } } case c3__cell: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { u3_atom tip = u3qc_cap(axe); u3_atom tap = u3qc_mas(axe); if ( 2 == tip ) { pro = _cqfu_peek(van, p_sut, way, tap); } else { pro = _cqfu_peek(van, q_sut, way, tap); } u3z(tap); u3z(tip); return pro; } } case c3__core: { u3_noun pq_sut, qq_sut, rq_sut; u3_noun prq_sut, qrq_sut; if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) || (c3n == u3r_trel(q_sut, &pq_sut, &qq_sut, &rq_sut)) || (c3n == u3r_cell(rq_sut, &prq_sut, &qrq_sut)) ) { return u3m_bail(c3__fail); } else { u3_atom tip = u3qc_cap(axe); u3_atom tap = u3qc_mas(axe); if ( 3 == tip ) { if ( c3n == u3qfu_park(van, sut, way, tap) ) { // u3_noun dun = u3qfu_dunq(van, "type", sut); u3_noun waz = u3qfu_shep (van, "axis", 'd', u3k(axe)); // u3t_push(u3nc(c3__mean, dun)); u3t_push(u3nc(c3__mean, waz)); return u3m_error("peek-park"); } else pro = _cqfu_peek(van, p_sut, way, tap); } else { pro = c3__noun; } u3z(tap); u3z(tip); return pro; } } case c3__cube: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { return _peek_in(van, q_sut, way, axe, gil); } } case c3__face: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { return _peek_in(van, q_sut, way, axe, gil); } } case c3__fork: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { u3_noun hed = _peek_in(van, p_sut, way, axe, gil); u3_noun tal = _peek_in(van, q_sut, way, axe, gil); pro = u3qf_fork(hed, tal); u3z(hed); u3z(tal); return pro; } } case c3__hold: { p_sut = u3t(sut); if ( (c3y == u3qdi_has(gil, sut)) ) { return c3__void; } else { u3_noun zoc = u3qdi_put(gil, sut); u3_noun fop = u3qfu_repo(van, sut); u3_noun pro = _peek_in(van, fop, way, axe, zoc); u3z(fop); u3z(zoc); return pro; } } } }
static u3_noun _peek_in(u3_noun van, u3_noun sut, u3_noun way, u3_atom axe, u3_noun gil) { u3_noun p_sut, q_sut; u3_noun pro; if ( (c3n == u3du(sut)) ) switch ( sut ) { default: return u3m_bail(c3__fail); case c3__noun: { return c3__noun; } case c3__void: { return c3__void; } } else switch ( u3h(sut) ) { default: return u3m_bail(c3__fail); case c3__atom: { return c3__void; } case c3__cell: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { u3_atom tip = u3qc_cap(axe); u3_atom tap = u3qc_mas(axe); if ( 2 == tip ) { pro = _cqfu_peek(van, p_sut, way, tap); } else { pro = _cqfu_peek(van, q_sut, way, tap); } u3z(tap); u3z(tip); return pro; } } case c3__core: { u3_noun pq_sut, qq_sut, rq_sut; u3_noun prq_sut, qrq_sut; if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) || (c3n == u3r_trel(q_sut, &pq_sut, &qq_sut, &rq_sut)) || (c3n == u3r_cell(rq_sut, &prq_sut, &qrq_sut)) ) { return u3m_bail(c3__fail); } else { u3_atom now = u3qc_cap(axe); u3_atom lat = u3qc_mas(axe); if ( 3 == now ) { u3_noun pec = u3qfu_perk(van, sut, way, pq_sut); u3_noun sam = u3h(pec); u3_noun con = u3t(pec); if ( c3y == c3a(sam, con) ) { pro = _cqfu_peek(van, p_sut, way, lat); } else { u3_noun typ; { u3_noun hed, tal; if ( c3n == sam ) { hed = c3__noun; } else { hed = _cqfu_peek(van, p_sut, way, 2); } if ( c3n == con ) { tal = c3__noun; } else { tal = _cqfu_peek(van, p_sut, way, 3); } typ = u3qf_cell(hed, tal); u3z(hed); u3z(tal); } pro = _cqfu_peek(van, typ, way, lat); u3z(typ); } u3z(pec); } else { pro = c3__noun; } u3z(lat); u3z(now); return pro; } } case c3__face: { if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) { return u3m_bail(c3__fail); } else { return _peek_in(van, q_sut, way, axe, gil); } } case c3__fork: p_sut = u3t(sut); { u3_noun yed = u3qdi_tap(p_sut, u3_nul); u3_noun ret = u3kf_fork(_peek_fork(van, yed, way, axe, gil)); u3z(yed); return ret; } case c3__hold: { if ( (c3y == u3qdi_has(gil, sut)) ) { return c3__void; } else { u3_noun zoc = u3qdi_put(gil, sut); u3_noun fop = u3qfu_repo(van, sut); u3_noun pro = _peek_in(van, fop, way, axe, zoc); u3z(fop); u3z(zoc); return pro; } } } }