ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 21:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fully done with cnts. Verified.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-15 01:48:16 -08:00
parent 5662848e5f
commit 8aa84c3d6c
5 changed files with 4 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

106
gen191/6/ap.c
View File

@ -261,43 +261,6 @@
/***
****
***/
static u2_noun
_cnbr_a(u2_wire wir_r,
u2_noun r_gen)
{
if ( (u2_nul == r_gen) ) {
return u2_nul;
}
else {
u2_noun ir_gen = u2_h(r_gen);
u2_noun tr_gen = u2_t(r_gen);
u2_noun pir_gen = u2_h(ir_gen);
u2_noun qir_gen = u2_t(ir_gen);
return u2_bc
(wir_r, u2_bc(wir_r,
u2_rx(wir_r, pir_gen),
u2_bt(wir_r, c3__ktdt,
u2_bc(wir_r, u2_nul, 13),
u2_bt(wir_r, c3__tsgr,
u2_bc(wir_r, u2_nul, _2),
u2_rx(wir_r, qir_gen)))),
_cnbr_a(wir_r, tr_gen));
}
}
_open_do_pqr(cnbr) // %|
{
u2_noun vop = u2_bc(wir_r, u2_bc(wir_r, u2_nul, _3), u2_nul);
u2_noun zil = j2_mbc(Pt2, weld)(wir_r, p_gen, vop);
u2_rz(wir_r, vop);
return u2_bt
(wir_r, c3__tsls,
u2_rx(wir_r, q_gen),
u2_bt
(wir_r, c3__cnts, zil, _cnbr_a(wir_r, r_gen)));
}
_open_do_pq(cncl) // %:
{
return u2_bq
@ -346,6 +309,7 @@
u2_rx(wir_r, r_gen),
u2_nul));
}
#if 0
_open_do_pqr(cnsg) // %~
{
return u2_bq
@ -357,6 +321,7 @@
u2_bc(wir_r, u2_nul, _6),
u2_rx(wir_r, r_gen))));
}
#endif
/***
****
***/
@ -484,57 +449,6 @@
/***
****
***/
#if 0
static u2_noun
_ap_snig_in(u2_noun gop)
{
if ( u2_nul == gop ) {
return u2nc(c3__bcts, c3__null);
} else {
u2_noun i_gop = u2h(gop);
u2_noun t_gop = u2t(gop);
u2_noun res = _ap_snig_in(t_gop);
if ( u2_no == u2du(i_gop) ) {
return u2nc(u2nt(c3__dtpt, c3_s2('t','a'), u2k(i_gop)),
res);
}
else {
u2_noun pi_gop = u2t(i_gop);
return u2nt
(c3__tsls,
u2nc(u2k(pi_gop), res),
u2nc
(c3__brhp,
u2nq(c3__wtsg,
u2nc(u2_nul, 6),
u2nc(u2_nul, 7),
u2nc(u2nc(u2_nul, 12),
u2nq(c3__cnts,
u2nc(u2_blip, u2_nul),
u2nc(u2nc(u2_nul, 6), u2nc(u2_nul, 13)),
u2_nul)))));
}
}
}
static u2_noun // produce
_ap_snig(u2_noun gop) // retain
{
return u2nt
(c3__ktls,
u2nc
(c3__brhp,
u2nq
(c3__wtcl,
u2nc(c3__bcts, c3__bean),
u2nc(c3__bcts, c3__null),
u2nc(u2nt(c3__dtpt, c3_s2('t','a'), 0),
u2nc(c3__cnbc, u2_blip)))),
_ap_snig_in(gop));
}
#endif
static u2_noun // produce
_smcl_in(u2_wire wir_r,
u2_noun q_gen) // retain
@ -658,13 +572,12 @@
// _open_pq (wthp);
_open_pq (wtgr);
_open_pqr (cnbr);
_open_pq (cncl);
_open_pq (cndt);
_open_pqrs(cnkt);
_open_pq (cnhp);
_open_pqr (cnls);
_open_pqr (cnsg);
// _open_pqr (cnsg);
_open_pq (brkt);
@ -720,19 +633,6 @@
}
}
}
case c3__hxts: {
if ( u2_no == u2_as_cell(u2_t(gen), &p_gen, &q_gen) ) {
return u2_bl_bail(wir_r, c3__fail);
}
else {
if ( u2_nul != q_gen ) {
return u2_bl_bail(wir_r, c3__fail);
}
else {
return u2_rx(wir_r, p_gen);
}
}
}
case c3__zpcb: {
if ( u2_no == u2_as_cell(u2_t(gen), &p_gen, &q_gen) ) {
return u2_bl_bail(wir_r, c3__fail);

27
gen191/6/ut_mint.c
View File

@ -662,33 +662,6 @@
}
case c3__cnts: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mint_used(wir_r);
{
u2_noun sec = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, p_gen);
u2_noun lar = _mint_foil(wir_r, sec);
u2_noun p_lar = u2_h(lar);
u2_noun q_lar = u2_t(lar);
u2_noun pq_lar = u2_h(q_lar);
u2_noun qq_lar = u2_t(q_lar);
u2_noun mew = j2_mcy(Pt6, ut, swab)(wir_r, van, sut, q_gen);
u2_noun yom = _mint_edit
(wir_r, van, sut, mew, p_lar, u2_rx(wir_r, qq_lar), u2_nul);
u2_noun p_yom = u2_h(yom);
u2_noun q_yom = u2_t(yom);
u2_noun ret = u2_bc
(wir_r, _mint_nice(wir_r, van, gol, u2_rx(wir_r, p_yom)),
(_0 == pq_lar) ? u2_rx(wir_r, q_yom)
: u2_bt(wir_r, _9,
u2_rx(wir_r, pq_lar),
u2_rx(wir_r, q_yom)));
u2_rz(wir_r, yom);
u2_rz(wir_r, mew);
u2_rz(wir_r, lar);
return ret;
}
case c3__hxts: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mint_used(wir_r);
{
u2_noun sec = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, p_gen);
u2_noun lar = _mint_foil(wir_r, sec);

37
gen191/6/ut_mull.c
View File

@ -617,43 +617,6 @@
u2_noun pq_vug = u2_h(q_vug);
u2_noun qq_vug = u2_t(q_vug);
if ( u2_and(u2_sing(p_lar, p_vug), u2_sing(pq_lar, pq_vug)) ) {
u2_bl_error(wir_r, "mull-bonk-e");
}
{
u2_noun mew = j2_mcy(Pt6, ut, swab)(wir_r, van, sut, q_gen);
u2_noun yom = _mull_edit
(wir_r, van, sut, dox, mew, u2_rx(wir_r, qq_lar),
u2_rx(wir_r, qq_vug));
u2_noun von = u2_bn_molt(wir_r, van, j2_ut_van_vet, u2_no, 0);
u2_noun p_ret = j2_mcy(Pt6, ut, fire)(wir_r, van, sut, u2_h(yom));
u2_noun q_ret = j2_mcy(Pt6, ut, fire)(wir_r, von, sut, u2_t(yom));
u2_rz(wir_r, von);
u2_rz(wir_r, yom);
u2_rz(wir_r, mew);
u2_rz(wir_r, vug);
u2_rz(wir_r, lar);
return u2_bc(wir_r, _mull_nice(wir_r, van, gol, p_ret), q_ret);
}
}
case c3__hxts: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mull_used(wir_r);
{
u2_noun sec = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, p_gen);
u2_noun suc = j2_mcy(Pt6, ut, seek)(wir_r, van, dox, c3__read, p_gen);
u2_noun lar = _mull_foil(wir_r, sec);
u2_noun p_lar = u2_h(lar);
u2_noun q_lar = u2_t(lar);
u2_noun pq_lar = u2_h(q_lar);
u2_noun qq_lar = u2_t(q_lar);
u2_noun vug = _mull_foil(wir_r, suc);
u2_noun p_vug = u2_h(vug);
u2_noun q_vug = u2_t(vug);
u2_noun pq_vug = u2_h(q_vug);
u2_noun qq_vug = u2_t(q_vug);
if ( u2_and(u2_sing(p_lar, p_vug), u2_sing(pq_lar, pq_vug)) ) {
u2_bl_error(wir_r, "mull-bonk-e");
}

17
gen191/6/ut_play.c
View File

@ -340,23 +340,6 @@
}
case c3__cnts: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_play_used(wir_r);
{
u2_noun sec = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, p_gen);
u2_noun lar = _play_foil(wir_r, sec);
u2_noun q_lar = u2_t(lar);
u2_noun qq_lar = u2_t(q_lar);
u2_noun mew = j2_mcy(Pt6, ut, swab)(wir_r, van, sut, q_gen);
u2_noun rag = _play_edit(wir_r, van, sut, mew, u2_rx(wir_r, qq_lar));
u2_noun ret = j2_mcy(Pt6, ut, fire)(wir_r, van, sut, rag);
u2_rz(wir_r, rag);
u2_rz(wir_r, mew);
u2_rz(wir_r, lar);
return ret;
}
case c3__hxts: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_play_used(wir_r);
{
u2_noun sec = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, p_gen);
u2_noun lar = _play_foil(wir_r, sec);

1
include/c/motes.h
View File

@ -482,6 +482,7 @@
# define c3__http c3_s4('h','t','t','p')
# define c3__hume c3_s4('h','u','m','e')
# define c3__hunk c3_s4('h','u','n','k')
# define c3__hxtr c3_s4('h','x','t','r')
# define c3__hxts c3_s4('h','x','t','s')
# define c3__ic c3_s2('i','c')
# define c3__ice c3_s3('i','c','e')