urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 18:31:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

Disable last of old code.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-12-08 18:11:59 -08:00
parent a4d68f9464
commit 2ceb603439
1 changed files with 74 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
jets/f/ap.c
View File

@ -19,9 +19,9 @@
# define _ap_jet_rake 1 # define _ap_jet_rake 1
# define _ap_jet_hack 2 # define _ap_jet_hack 2
#if 0
static u3_noun static u3_noun
_open_in(u3_noun ter, u3_noun gen); _open_in(u3_noun ter, u3_noun gen);
#if 0
/* ~(. al gen) /* ~(. al gen)
*/ */
static u3_noun static u3_noun
@ -32,7 +32,28 @@
return u3i_molt(gat, u3x_sam, u3nc(c3__herb, u3k(gen)), 0); return u3i_molt(gat, u3x_sam, u3nc(c3__herb, u3k(gen)), 0);
} }
#endif /* ~(. al gen)
*/
static u3_noun
_al_core(u3_noun ter,
u3_noun gen)
{
u3_noun gat = u3j_hook(u3k(ter), "al");
return u3i_molt(gat, u3x_sam, u3k(gen), 0);
}
/* van is transferred, gen is retained
*/
static u3_noun
_ap_bunt(u3_noun van,
u3_noun gen)
{
u3_noun pro = u3qfl_bunt(van, gen);
u3z(van);
return pro;
}
/** open cases /** open cases
**/ **/
@ -57,6 +78,12 @@
/*** /***
**** ****
***/ ***/
_open_do_pq(tsbr) // =:
{
return u3nt(c3__tsls,
_ap_bunt(_al_core(ter, p_gen), p_gen),
u3k(q_gen));
}
_open_do_pq(tscl) // =: _open_do_pq(tscl) // =:
{ {
return u3nt(c3__tsgr, return u3nt(c3__tsgr,
@ -120,6 +147,17 @@
/*** /***
**** ****
***/ ***/
_open_do_p(bccb) // $_
{
return _ap_bunt(_al_core(ter, p_gen), p_gen);
}
_open_do_p(bctr) // $*
{
return
u3nc(c3__ktsg,
_ap_bunt(_al_core(ter, p_gen),
p_gen));
}
_open_do_p(bczp) // $! _open_do_p(bczp) // $!
{ {
return u3nt(c3__bccb, return u3nt(c3__bccb,
@ -720,6 +758,8 @@
return u3m_bail(c3__fail); \ return u3m_bail(c3__fail); \
} else return _open_in_##stem(ter, p_gen, q_gen, r_gen, s_gen); } else return _open_in_##stem(ter, p_gen, q_gen, r_gen, s_gen);
_open_p (bccb);
_open_p (bctr);
_open_p (bczp); _open_p (bczp);
_open_p (brdt); _open_p (brdt);
@ -766,6 +806,7 @@
_open_pq (smcl); _open_pq (smcl);
// _open_pq (smsm); // _open_pq (smsm);
_open_pq (tsbr);
_open_pq (tscl); _open_pq (tscl);
_open_pqr (tsdt); _open_pqr (tsdt);
_open_pq (tsgl); _open_pq (tsgl);
@ -942,6 +983,7 @@
return u3qfp_hack(ter, gen); return u3qfp_hack(ter, gen);
} }
} }
#endif
/* boilerplate /* boilerplate
*/ */
@ -968,13 +1010,7 @@
_ap_open_l(u3_noun ter, _ap_open_l(u3_noun ter,
u3_noun gen) u3_noun gen)
{ {
u3_noun pro = _open_in(ter, gen); return _ap_open_n(ter, gen);
if ( u3_none != pro ) {
return pro;
} else {
return _ap_open_n(ter, gen);
}
} }
u3_noun u3_noun
@ -984,6 +1020,20 @@
return _ap_open_l(ter, gen); return _ap_open_l(ter, gen);
} }
u3_noun
u3wfp_open(u3_noun cor)
{
u3_noun gen;
if ( u3_none == (gen = u3r_at(u3x_sam, cor)) ) {
return u3m_bail(c3__fail);
} else {
u3_noun ter = u3r_at(u3x_con, cor);
return u3qfp_open(ter, gen);
}
}
/* boilerplate /* boilerplate
* *
*/ */
@ -991,7 +1041,7 @@
_aq_core(u3_noun ter, _aq_core(u3_noun ter,
u3_noun gen) u3_noun gen)
{ {
u3_noun gat = u3j_hook(u3k(ter), "ap"); u3_noun gat = u3j_hook(u3k(ter), "aq");
return u3i_molt(gat, u3x_sam, u3k(gen), 0); return u3i_molt(gat, u3x_sam, u3k(gen), 0);
} }
@ -1010,13 +1060,7 @@
_aq_open_l(u3_noun ter, _aq_open_l(u3_noun ter,
u3_noun gen) u3_noun gen)
{ {
u3_noun pro = _open_in(ter, gen); return _aq_open_n(ter, gen);
if ( u3_none != pro ) {
return pro;
} else {
return _aq_open_n(ter, gen);
}
} }
u3_noun u3_noun
@ -1026,3 +1070,16 @@
return _aq_open_l(ter, gen); return _aq_open_l(ter, gen);
} }
u3_noun
u3wfp_nepo(u3_noun cor)
{
u3_noun gen;
if ( u3_none == (gen = u3r_at(u3x_sam, cor)) ) {
return u3m_bail(c3__fail);
} else {
u3_noun ter = u3r_at(u3x_con, cor);
return u3qfp_nepo(ter, gen);
}
}