urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added moar ap.c macro expansions.

Browse Source
This commit is contained in:
Luke Patmore 2014-06-12 15:22:25 -07:00
parent e7b1d8d798
commit 4cf4ca57d9
2 changed files with 41 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
gen164/6/ap.c
View File

@ -68,13 +68,11 @@
return u2_bt(wir_r, c3__tsgr, u2_rx(wir_r, q_gen),
u2_rx(wir_r, p_gen));
}
_open_do_pq(tshp) // =-
{
return u2_bt(wir_r, c3__tsls, u2_rx(wir_r, q_gen),
u2_rx(wir_r, p_gen));
}
_open_do_pq(tsls) // =+
{
return u2_bt
@ -223,6 +221,22 @@
}
/***
****
***/
_open_do_p(zpgr) // !>
{
return u2_bq
(wir_r, c3__cnhp,
u2_bc(wir_r, c3__cnzy, c3__onan),
u2_bt(wir_r, c3__zpsm,
u2_bc(wir_r, c3__bctr,
u2_bc(wir_r, c3__herb,
u2_bc(wir_r, c3__cnzy,
c3__abel))),
u2_rx(wir_r, p_gen)),
u2_nul);
}
/***
****
***/
_open_do_pq(clhp) // :-
{
@ -236,6 +250,13 @@
(wir_r, u2_rx(wir_r, q_gen),
u2_rx(wir_r, p_gen));
}
_open_do_p(clcn) // :%
{
return u2_bc
(wir_r, u2_bc(wir_r, c3__clsg,
u2_rx(wir_r, p_gen)),
u2_bc(wir_r, c3__bczp, c3__null));
}
_open_do_pqrs(clkt) // :^
{
return u2_bq
@ -406,6 +427,7 @@
}
_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,
@ -425,6 +447,12 @@
u2_rx(wir_r, p_gen),
u2_rx(wir_r, q_gen)));
}
_open_do_p(brwt) // |?
{
return u2_bt(wir_r, c3__ktwt,
c3__brdt,
u2_rx(wir_r, p_gen));
}
/***
****
***/
@ -616,12 +644,16 @@
} else return _open_in_##stem(wir_r, p_gen, q_gen, r_gen, s_gen);
_open_p (bczp);
_open_p (brhp);
_open_p (brdt);
_open_pq (brcb);
_open_pq (brkt);
_open_pq (brls);
_open_p (brwt);
_open_pq (clcb);
_open_p (clcn);
_open_pq (clhp);
_open_pqrs(clkt);
_open_pqr (clls);
@ -666,6 +698,8 @@
_open_pqr (wtls);
_open_pqr (wtkt);
_open_p (wtpm);
_open_p (zpgr);
}
}

5
include/c/motes.h
View File

@ -5,6 +5,7 @@
/** Definitions.
**/
# define c3__abel c3_s4('a','b','e','l')
# define c3__abo c3_s3('a','b','o')
# define c3__actd c3_s4('a','c','t','d')
# define c3__add c3_s3('a','d','d')
@ -130,6 +131,7 @@
# define c3__brtg c3_s4('b','r','t','g')
# define c3__brtr c3_s4('b','r','t','r')
# define c3__brts c3_s4('b','r','t','s')
# define c3__brwt c3_s4('b','r','w','t')
# define c3__brzp c3_s4('b','r','z','p')
# define c3__bud c3_s3('b','u','d')
# define c3__bull c3_s4('b','u','l','l')
@ -178,6 +180,7 @@
# define c3__clat c3_s4('c','l','a','t')
# define c3__clay c3_s4('c','l','a','y')
# define c3__clcb c3_s4('c','l','c','b')
# define c3__clcn c3_s4('c','l','c','n')
# define c3__clep c3_s4('c','l','e','p')
# define c3__clet c3_s4('c','l','e','t')
# define c3__clhp c3_s4('c','l','h','p')
@ -467,6 +470,7 @@
# define c3__helo c3_s4('h','e','l','o')
# define c3__hep c3_s3('h','e','p')
# define c3__hept c3_s4('h','e','p','t')
# define c3__herb c3_s4('h','e','r','b')
# define c3__hevy c3_s4('h','e','v','y')
# define c3__hez c3_s3('h','e','z')
# define c3__hide c3_s4('h','i','d','e')
@ -708,6 +712,7 @@
# define c3__off c3_s3('o','f','f')
# define c3__old c3_s3('o','l','d')
# define c3__on c3_s2('o','n')
# define c3__onan c3_s4('o','n','a','n')
# define c3__one c3_s3('o','n','e')
# define c3__only c3_s4('o','n','l','y')
# define c3__op c3_s2('o','p')