ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added bunting macro expansions to ap.c

Browse Source
This commit is contained in:
Luke Patmore 2014-06-17 11:04:27 -07:00
parent 4eff84e13c
commit e162abc6db
2 changed files with 72 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
gen164/6/ap.c
View File

@ -39,30 +39,63 @@
static u2_weak
_open_in(u2_wire wir_r,
u2_noun ter,
u2_noun gen);
static u2_noun
_al_core(u2_wire wir_r,
u2_noun ter,
u2_noun gen)
{
u2_weak hoc = u2_ds_look(wir_r, ter, "al");
if ( u2_none == hoc ) {
return u2_cm_bail(c3__fail);
}
else {
u2_noun gat = u2_nk_soft(wir_r, u2_rx(wir_r, ter), hoc);
u2_noun cor = u2_rl_molt(wir_r, gat,
u2_cv_sam, u2_rx(wir_r, gen),
0);
u2_rz(wir_r, hoc);
u2_rz(wir_r, gat);
return cor;
}
}
/** open cases
**/
#define _open_do_p(stem) \
static u2_noun _open_in_##stem \
(u2_wire wir_r, u2_noun p_gen)
(u2_wire wir_r, u2_noun ter, u2_noun p_gen)
#define _open_do_pq(stem) \
static u2_noun _open_in_##stem \
(u2_wire wir_r, u2_noun p_gen, u2_noun q_gen)
(u2_wire wir_r, u2_noun ter, u2_noun p_gen, u2_noun q_gen)
#define _open_do_pqr(stem) \
static u2_noun _open_in_##stem \
(u2_wire wir_r, u2_noun p_gen, u2_noun q_gen, u2_noun r_gen)
(u2_wire wir_r, u2_noun ter, u2_noun p_gen, u2_noun q_gen, u2_noun r_gen)
#define _open_do_pqrs(stem) \
static u2_noun _open_in_##stem \
(u2_wire wir_r, u2_noun p_gen, u2_noun q_gen, u2_noun r_gen, u2_noun s_gen)
(u2_wire wir_r, u2_noun ter, u2_noun p_gen, u2_noun q_gen, u2_noun r_gen, \
u2_noun s_gen)
/***
****
***/
_open_do_pq(tsbr) // =:
{
return
u2_bt(wir_r, c3__tsls,
j2_mcy(Pt6, al, bunt)(wir_r,
_al_core(wir_r, ter, p_gen), p_gen),
u2_rx(wir_r, q_gen));
}
_open_do_pq(tscl) // =:
{
return u2_bt(wir_r, c3__tsgr,
@ -105,12 +138,23 @@
/***
****
***/
_open_do_p(bccb) // $_
{
return j2_mcy(Pt6, al, bunt)(wir_r, _al_core(wir_r, ter, p_gen), p_gen);
}
_open_do_p(bctr) // $*
{
return
u2_bc(wir_r, c3__ktsg,
j2_mcy(Pt6, al, bunt)(wir_r,
_al_core(wir_r, ter, p_gen),
p_gen));
}
_open_do_p(bczp) // $!
{
return u2_bt
(wir_r, c3__bccb, c3__axil, u2_rx(wir_r, p_gen));
}
/***
****
***/
@ -147,7 +191,7 @@
(wir_r, c3__wtcl,
u2_rx(wir_r, ip_gen),
u2_bt(wir_r, c3__dtzz, 'f', u2_yes),
_open_in_wtbr(wir_r, tp_gen));
_open_in_wtbr(wir_r, ter, tp_gen));
}
}
_open_do_pqr(wtkt) // ?^
@ -203,7 +247,7 @@
u2_rx(wir_r, piq_gen),
u2_rx(wir_r, p_gen)),
u2_rx(wir_r, qiq_gen),
_open_in_wthp(wir_r, p_gen, tq_gen));
_open_in_wthp(wir_r, ter, p_gen, tq_gen));
}
}
_open_do_p(wtpm) // ?&
@ -218,7 +262,7 @@
return u2_bq
(wir_r, c3__wtcl,
u2_rx(wir_r, ip_gen),
_open_in_wtpm(wir_r, tp_gen),
_open_in_wtpm(wir_r, ter, tp_gen),
u2_bt(wir_r, c3__dtzz, 'f', u2_no));
}
}
@ -323,7 +367,7 @@
u2_noun tp_gen = u2_t(p_gen);
return u2_bc(wir_r, u2_rx(wir_r, ip_gen),
_open_in_clsg(wir_r, tp_gen));
_open_in_clsg(wir_r, ter, tp_gen));
}
}
_open_do_p(cltr) // :*
@ -340,7 +384,7 @@
} else {
return u2_bc
(wir_r, u2_rx(wir_r, ip_gen),
_open_in_cltr(wir_r, tp_gen));
_open_in_cltr(wir_r, ter, tp_gen));
}
}
}
@ -459,6 +503,13 @@
u2_bq(wir_r, c3__cnhp, u2_rx(wir_r, p_gen), u2_rx(wir_r, q_gen), u2_nul),
u2_rx(wir_r, q_gen));
}
_open_do_pq(kthp) // ^-
{
return u2_bt
(wir_r, c3__ktls,
j2_mcy(Pt6, al, bunt)(wir_r, _al_core(wir_r, ter, p_gen), p_gen),
u2_rx(wir_r, q_gen));
}
/***
****
***/
@ -470,7 +521,6 @@
}
_open_do_pq(brkt) // |^
{
//[%brkt *] [%tsgr [%brcn (~(put by q.gen) %$ [%ash p.gen])] [%cnzy %$]]
u2_noun diz = u2_bc(wir_r, c3__ash, u2_rx(wir_r, p_gen));
u2_noun ret = u2_bt
(wir_r,
@ -650,6 +700,7 @@
**/
static u2_weak
_open_in(u2_wire wir_r,
u2_noun ter,
u2_noun gen)
{
u2_noun p_gen, q_gen, r_gen, s_gen;
@ -676,19 +727,19 @@
# define _open_p(stem) \
case c3__##stem: \
return _open_in_##stem(wir_r, u2_t(gen)); \
return _open_in_##stem(wir_r, ter, u2_t(gen)); \
# define _open_pq(stem) \
case c3__##stem: \
if ( u2_no == u2_as_cell(u2_t(gen), &p_gen, &q_gen) ) { \
return u2_bl_bail(wir_r, c3__fail); \
} else return _open_in_##stem(wir_r, p_gen, q_gen);
} else return _open_in_##stem(wir_r, ter, p_gen, q_gen);
# define _open_pqr(stem) \
case c3__##stem: \
if ( u2_no == u2_as_trel(u2_t(gen), &p_gen, &q_gen, &r_gen) ) { \
return u2_bl_bail(wir_r, c3__fail); \
} else return _open_in_##stem(wir_r, p_gen, q_gen, r_gen);
} else return _open_in_##stem(wir_r, ter, p_gen, q_gen, r_gen);
# define _open_pqrs(stem) \
case c3__##stem: \
@ -696,8 +747,10 @@
(u2_t(gen), &p_gen, &q_gen, &r_gen, &s_gen) )\
{ \
return u2_bl_bail(wir_r, c3__fail); \
} else return _open_in_##stem(wir_r, p_gen, q_gen, r_gen, s_gen);
} else return _open_in_##stem(wir_r, ter, p_gen, q_gen, r_gen, s_gen);
_open_p (bccb);
_open_p (bctr);
_open_p (bczp);
_open_p (brdt);
@ -728,6 +781,7 @@
_open_p (hxgr);
_open_pq (ktdt);
_open_pq (kthp);
_open_pq (sgts);
_open_pq (sgbr);
@ -741,6 +795,7 @@
_open_pq (smcl);
_open_pq (tsbr);
_open_pq (tscl);
_open_pqr (tsdt);
_open_pq (tsgl);
@ -971,7 +1026,7 @@
u2_noun ter, // retain
u2_noun gen) // retain
{
u2_weak pro = _open_in(wir_r, gen);
u2_weak pro = _open_in(wir_r, ter, gen);
if ( u2_none != pro ) {
return pro;

1
include/c/motes.h
View File

@ -550,6 +550,7 @@
# define c3__ktdt c3_s4('k','t','d','t')
# define c3__ktgl c3_s4('k','t','g','l')
# define c3__ktgr c3_s4('k','t','g','r')
# define c3__kthp c3_s4('k','t','h','p')
# define c3__kthx c3_s4('k','t','h','x')
# define c3__ktlc c3_s4('k','t','l','c')
# define c3__ktld c3_s4('k','t','l','d')