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

Moar ap.c macro expansions

Browse Source
This commit is contained in:
Luke Patmore 2014-06-18 13:09:04 -07:00
parent 98a44cde66
commit d8fc596038
2 changed files with 52 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
gen164/6/ap.c
View File

@ -158,6 +158,23 @@
u2_bc(wir_r, u2_nul, _1)),
u2_rx(wir_r, q_gen));
}
_open_do_p(tssg) // =~
{
u2_noun tp_gen = u2_t(p_gen);
u2_noun ip_gen = u2_h(p_gen);
if ( (u2_nul == p_gen) ) {
return u2_bc(wir_r, c3__zpzp, u2_nul);
}
else if ( (u2_nul == tp_gen) ) {
return u2_rx(wir_r, ip_gen);
}
else {
return u2_bt(wir_r, c3__tsgr,
u2_rx(wir_r, ip_gen),
_open_in_tssg(wir_r, ter, tp_gen));
}
}
/***
****
***/
@ -732,7 +749,33 @@
_smcl_in(wir_r, q_gen));
}
}
#if 0
_open_do_pq(smsm)
{
return
u2_bt(wir_r, c3__tsgr, u2_bq(wir_r, c3__ktts, c3__v, u2_nul, _1),
u2_bt(wir_r, c3__tsls,
u2_bt(wir_r, c3__ktts, c3__a,
u2_bt(wir_r, c3__tsgr, u2_bc(wir_r, c3__cnzy, c3__v),
u2_rx(wir_r, p_gen))),
u2_bt(wir_r, c3__tsls,
u2_bt(wir_r, c3__ktts, c3__b,
u2_bt(wir_r, c3__tsgr,
u2_bc(wir_r, c3__cnzy, c3__v),
u2_rx(wir_r, q_gen))),
u2_bt(wir_r, c3__tsls,
u2_bt(wir_r, c3__ktts, c3__c,
u2_bq(wir_r, c3__cnhp,
u2_bc(wir_r, c3__cnzy, c3__a),
u2_bc(wir_r, c3__cnzy, c3__b),
u2_nul)),
u2_bt(wir_r, c3__wtgr,
u2_bt(wir_r, c3__dtts,
u2_bc(wir_r, c3__cnzy, c3__c),
u2_bc(wir_r, c3__cnzy, c3__b)),
u2_bc(wir_r, c3__cnzy, c3__c))))));
}
#endif
/* functions
*/
/** open
@ -834,6 +877,7 @@
_open_pqrs(sgwt);
_open_pq (smcl);
// _open_pq (smsm);
_open_pq (tsbr);
_open_pq (tscl);
@ -841,6 +885,7 @@
_open_pq (tsgl);
_open_pq (tshp);
_open_pq (tsls);
_open_p (tssg);
_open_pqr (wtdt);
_open_pq (wtgl);

6
include/c/motes.h
View File

@ -5,6 +5,7 @@
/** Definitions.
**/
# define c3__a c3_s1('a')
# 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')
@ -25,6 +26,7 @@
# define c3__axe c3_s3('a','x','e')
# define c3__axil c3_s4('a','x','i','l')
# define c3__axis c3_s4('a','x','i','s')
# define c3__b c3_s1('b')
# define c3__bac c3_s3('b','a','c')
# define c3__bach c3_s4('b','a','c','h')
# define c3__bag c3_s3('b','a','g')
@ -145,6 +147,7 @@
# define c3__butt c3_s4('b','u','t','t')
# define c3__by c3_s2('b','y')
# define c3__byte c3_s4('b','y','t','e')
# define c3__c c3_s1('c')
# define c3__cage c3_s4('c','a','g','e')
# define c3__cain c3_s4('c','a','i','n')
# define c3__call c3_s4('c','a','l','l')
@ -936,6 +939,7 @@
# define c3__smcl c3_s4('s','m','c','l')
# define c3__smdq c3_s4('s','m','d','q')
# define c3__smsg c3_s4('s','m','s','g')
# define c3__smsm c3_s4('s','m','s','m')
# define c3__smts c3_s4('s','m','t','s')
# define c3__snap c3_s4('s','n','a','p')
# define c3__so c3_s2('s','o')
@ -1050,6 +1054,7 @@
# define c3__tshp c3_s4('t','s','h','p')
# define c3__tsls c3_s4('t','s','l','s')
# define c3__tsms c3_s4('t','s','m','s')
# define c3__tssg c3_s4('t','s','s','g')
# define c3__tstr c3_s4('t','s','t','r')
# define c3__tub c3_s3('t','u','b')
# define c3__tul c3_s3('t','u','l')
@ -1077,6 +1082,7 @@
# define c3__uv c3_s2('u','v')
# define c3__uw c3_s2('u','w')
# define c3__ux c3_s2('u','x')
# define c3__v c3_s1('v')
# define c3__vamp c3_s4('v','a','m','p')
# define c3__vane c3_s4('v','a','n','e')
# define c3__var c3_s3('v','a','r')