static u2_bean
_moot_to(u2_wire wir_r,
u2_noun van,
u2_noun sut,
u2_noun gil)
{
u2_ho_jet *jet_j = &j2_mbj(Pt6, ut)[1]; // total hack
if ( !(jet_j->sat_s & u2_jet_memo) ) {
return _moot_in(wir_r, van, sut, gil);
}
else {
c3_m fun_m = c3__moot;
u2_noun pro = u2_rl_find(wir_r, fun_m, sut);
if ( u2_none != pro ) {
return pro;
}
else {
pro = _moot_in(wir_r, van, sut, gil);
return u2_rl_save(wir_r, fun_m, sut, pro);
}
}
}
u2_noun // transfer
j2_mcy(Pt6, ut, burn)(u2_wire wir_r,
u2_noun van, // retain
u2_noun sut) // retain
{
u2_ho_jet *jet_j = &j2_mbj(Pt6, ut)[0]; // total hack
if ( !(jet_j->sat_s & u2_jet_memo) ) {
return j2_mcx(Pt6, ut, burn)(wir_r, van, sut);
}
else {
c3_m fun_m = c3__burn;
u2_noun pro = u2_rl_find(wir_r, fun_m, sut);
if ( u2_none != pro ) {
return pro;
}
else {
pro = j2_mcx(Pt6, ut, burn)(wir_r, van, sut);
return u2_rl_save(wir_r, fun_m, sut, pro);
}
}
}
_watt_drivers_0[],
_watt_drivers_1[],
_watt_drivers_2[];
u2_ho_driver
j2_da(Pt0) = { j2_sa(Pt0), 0, _watt_drivers_0, 0, u2_none };
static u2_ho_driver
_watt_drivers_0[] = {
{ j2_sb(Pt0, mood), 0, _watt_drivers_1, 0, u2_none },
{ }
};
static u2_ho_driver
_watt_drivers_1[] = {
{ j2_sb(PtM, tape), j2_mbj(PtM, tape), 0, 0, u2_none },
{ j2_sb(PtM, hoon), 0, _watt_drivers_2, 0, u2_none },
{ }
};
static u2_ho_driver
_watt_drivers_2[] = {
{ j2_sb(Pt1, add), j2_mbj(Pt1, add), 0, 0, u2_none },
{ j2_sb(Pt1, dec), j2_mbj(Pt1, dec), 0, 0, u2_none },
{ j2_sb(Pt1, div), j2_mbj(Pt1, div), 0, 0, u2_none },
{ j2_sb(Pt1, gte), j2_mbj(Pt1, gte), 0, 0, u2_none },
{ j2_sb(Pt1, gth), j2_mbj(Pt1, gth), 0, 0, u2_none },
{ j2_sb(Pt1, lte), j2_mbj(Pt1, lte), 0, 0, u2_none },
{ j2_sb(Pt1, lth), j2_mbj(Pt1, lth), 0, 0, u2_none },
{ j2_sb(Pt1, mod), j2_mbj(Pt1, mod), 0, 0, u2_none },
{ j2_sb(Pt1, mul), j2_mbj(Pt1, mul), 0, 0, u2_none },
{ j2_sc(Pt6, ut, play), j2_mcj(Pt6, ut, play), 0, 0, u2_none },
{ j2_sc(Pt6, ut, rest), j2_mcj(Pt6, ut, rest), 0, 0, u2_none },
{ j2_sc(Pt6, ut, seek), j2_mcj(Pt6, ut, seek), 0, 0, u2_none },
{ j2_sc(Pt6, ut, snap), j2_mcj(Pt6, ut, snap), 0, 0, u2_none },
{ j2_sc(Pt6, ut, swab), j2_mcj(Pt6, ut, swab), 0, 0, u2_none },
{ j2_sc(Pt6, ut, tack), j2_mcj(Pt6, ut, tack), 0, 0, u2_none },
{ j2_sc(Pt6, ut, tock), j2_mcj(Pt6, ut, tock), 0, 0, u2_none },
{ }
};
u2_ho_jet
j2_mbj(Pt6, ut)[] = {
{ "burn",
c3__hevy,
j2_mc(Pt6, ut, burn),
Tier6_b,
u2_none, u2_none },
{ "moot",
c3__hevy,
j2_mc(Pt6, ut, moot),
Tier6_b_memo,
u2_none, u2_none,
j2_mck(Pt6, ut, moot), c3__moot },
{ "repo", c3__hevy, j2_mc(Pt6, ut, repo), Tier6_b, u2_none, u2_none },
{ }
};
u2_ho_driver
j2_db(Pt6, ut) =
{ j2_sb(Pt6, ut), j2_mbj(Pt6, ut), j2_mbd(Pt6, ut), 0, u2_none };
*/
#include "all.h"
#include "../pit.h"
/* declarations
*/
extern u2_ho_jet j2_mcj(Pt4, in, gas)[];
extern u2_ho_jet j2_mcj(Pt4, in, has)[];
extern u2_ho_jet j2_mcj(Pt4, in, put)[];
extern u2_ho_jet j2_mcj(Pt4, in, tap)[];
/* structures
*/
u2_ho_driver
j2_mbd(Pt4, in)[] = {
{ j2_sc(Pt4, in, gas), j2_mcj(Pt4, in, gas), 0, 0, u2_none },
{ j2_sc(Pt4, in, has), j2_mcj(Pt4, in, has), 0, 0, u2_none },
{ j2_sc(Pt4, in, put), j2_mcj(Pt4, in, put), 0, 0, u2_none },
{ j2_sc(Pt4, in, tap), j2_mcj(Pt4, in, tap), 0, 0, u2_none },
{}
};
u2_ho_jet
j2_mbj(Pt4, in)[] = {
{ }
};
u2_ho_driver
j2_db(Pt4, in) =
{ j2_sb(Pt4, in), j2_mbj(Pt4, in), j2_mbd(Pt4, in), 0, u2_none };
