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

Keyword stems, step 1.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-02-05 01:25:58 -08:00
parent 35a385e81c
commit c7e9b8676f
4 changed files with 221 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
include/c/motes.h
View File

@ -10,6 +10,7 @@
# 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')
# define c3__aka c3_s3('a','k','a')
# define c3__all c3_s3('a','l','l')
# define c3__alrm c3_s4('a','l','r','m')
# define c3__amat c3_s4('a','m','a','t')
@ -788,6 +789,7 @@
# define c3__peg c3_s3('p','e','g')
# define c3__peld c3_s4('p','e','l','d')
# define c3__pen c3_s3('p','e','n')
# define c3__per c3_s3('p','e','r')
# define c3__perd c3_s4('p','e','r','d')
# define c3__pesk c3_s4('p','e','s','k')
# define c3__pfix c3_s4('p','f','i','x')
@ -1002,6 +1004,7 @@
# define c3__spig c3_s4('s','p','i','g')
# define c3__spil c3_s4('s','p','i','l')
# define c3__spin c3_s4('s','p','i','n')
# define c3__spit c3_s4('s','p','i','t')
# define c3__spot c3_s4('s','p','o','t')
# define c3__stam c3_s4('s','t','a','m')
# define c3__star c3_s4('s','t','a','r')
@ -1117,7 +1120,7 @@
# define c3__tupl c3_s4('t','u','p','l')
# define c3__turd c3_s4('t','u','r','d')
# define c3__turn c3_s4('t','u','r','n')
# define c3__twin c3_s4('t','w','i','n')
# define c3__twig c3_s4('t','w','i','g')
# define c3__twix c3_s4('t','w','i','x')
# define c3__txt c3_s3('t','x','t')
# define c3__type c3_s4('t','y','p','e')
@ -1153,6 +1156,7 @@
# define c3__vint c3_s4('v','i','n','t')
# define c3__void c3_s4('v','o','i','d')
# define c3__vorp c3_s4('v','o','r','p')
# define c3__way c3_s3('w','a','y')
# define c3__wail c3_s4('w','a','i','l')
# define c3__wake c3_s4('w','a','k','e')
# define c3__wamp c3_s4('w','a','m','p')
@ -1170,6 +1174,7 @@
# define c3__wild c3_s4('w','i','l','d')
# define c3__win c3_s3('w','i','n')
# define c3__wipe c3_s4('w','i','p','e')
# define c3__wish c3_s4('w','i','s','h')
# define c3__with c3_s4('w','i','t','h')
# define c3__wnut c3_s4('w','n','u','t')
# define c3__wood c3_s4('w','o','o','d')

118
jets/f/ut_mint.c
View File

@ -396,7 +396,8 @@
return ret;
}
case c3__wtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__wtts:
case c3__fit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun heb = u3nc(c3__herb, u3k(p_gen));
@ -418,7 +419,8 @@
return ret;
}
case c3__wtcl: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__wtcl:
case c3__if: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mint_used();
{
u3_noun bol = _mint_bean();
@ -450,7 +452,9 @@
return ret;
}
case c3__clhp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__clhp:
case c3__dub: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun hed = _mint_in(van, sut, c3__noun, p_gen);
@ -466,7 +470,9 @@
return ret;
}
case c3__dtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtts:
case c3__same: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun typ = _mint_nice(van, gol, _mint_bean());
@ -486,7 +492,9 @@
return ret;
}
case c3__dtwt: p_gen = u3t(gen);
case c3__dtwt:
case c3__deep: p_gen = u3t(gen);
_mint_used();
{
u3_noun typ = _mint_nice(van, gol, _mint_bean());
@ -494,7 +502,9 @@
return u3nc(typ,
u3nc(3, _mint_corn(van, sut, p_gen)));
}
case c3__dtkt: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtkt:
case c3__wish: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun nog = u3nc(c3__cnbc, u3k(p_gen));
@ -509,7 +519,9 @@
u3z(nog);
return ret;
}
case c3__dtls: p_gen = u3t(gen);
case c3__dtls:
case c3__bump: p_gen = u3t(gen);
_mint_used();
{
u3_noun tom = u3nt(c3__atom, u3_blip, u3_nul);
@ -521,6 +533,7 @@
u3z(sam);
return ret;
}
case c3__rock: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
@ -530,7 +543,9 @@
return ret;
}
case c3__dttr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dttr:
case c3__kick: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun one = _mint_corn(van, sut, p_gen);
@ -539,6 +554,7 @@
return u3nc(_mint_nice(van, gol, c3__noun),
u3nt(2, one, two));
}
case c3__sand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
@ -548,12 +564,15 @@
return ret;
}
case c3__hand:
_mint_used();
{
return u3k(u3t(gen));
}
case c3__ktbr: p_gen = u3t(gen);
case c3__ktbr:
case c3__iron: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
@ -563,7 +582,9 @@
u3z(ryd);
return pro;
}
case c3__ktpm: p_gen = u3t(gen);
case c3__ktpm:
case c3__zinc: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
@ -573,7 +594,9 @@
u3z(ryd);
return pro;
}
case c3__ktwt: p_gen = u3t(gen);
case c3__ktwt:
case c3__lead: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
@ -583,7 +606,9 @@
u3z(ryd);
return pro;
}
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts:
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun vat = _mint_in(van, sut, gol, q_gen);
@ -594,18 +619,9 @@
u3z(vat);
return ret;
}
case c3__ktzp: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun vat = _mint_in(van, sut, gol, q_gen);
ret = u3nc(u3qfu_conk(van, u3h(vat), p_gen),
u3k(u3t(vat)));
u3z(vat);
return ret;
}
case c3__ktsg: p_gen = u3t(gen);
case c3__ktsg:
case c3__burn: p_gen = u3t(gen);
_mint_used();
{
u3_noun nef = _mint_in(van, sut, gol, p_gen);
@ -629,7 +645,9 @@
u3z(nef);
return ret;
}
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls:
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun huz = u3qfu_play(van, sut, p_gen);
@ -640,7 +658,9 @@
u3z(zel);
return ret;
}
case c3__tsgr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__tsgr:
case c3__per: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun fid = _mint_in(van, sut, c3__noun, p_gen);
@ -657,7 +677,9 @@
u3z(dov);
return ret;
}
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr:
case c3__aka: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mint_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);
@ -666,12 +688,16 @@
u3z(boc);
return ret;
}
case c3__cnts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__cnts:
case c3__make: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
return _mint_cnts(van, sut, gol, p_gen, q_gen);
}
case c3__brcn: p_gen = u3t(gen);
case c3__brcn:
case c3__core: p_gen = u3t(gen);
_mint_used();
{
u3_noun ruf = u3nc(u3_nul, 1);
@ -681,7 +707,9 @@
return ret;
}
case c3__sgzp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sgzp:
case c3__type: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun typ = u3qfu_play(van, sut, p_gen);
@ -696,7 +724,9 @@
u3z(typ);
return ret;
}
case c3__sggr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sggr:
case c3__hint: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun hum = _mint_in(van, sut, gol, q_gen);
@ -714,7 +744,9 @@
u3z(hum);
return ret;
}
case c3__zpts: p_gen = u3t(gen);
case c3__zpts:
case c3__nock: p_gen = u3t(gen);
_mint_used();
{
u3_noun von = u3i_molt(u3k(van), u3qfu_van_vet, c3n, 0);
@ -723,7 +755,9 @@
u3z(von);
return u3nc(c3__noun, u3nc(1, sev));
}
case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpcm:
case c3__twig: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
return u3nc(_mint_nice(van,
@ -731,6 +765,7 @@
u3qfu_play(van, sut, p_gen)),
u3nc(1, u3k(q_gen)));
}
case c3__dbug: u3x_cell(u3t(gen), &p_gen, &q_gen);
{
u3t_push(u3nc(c3__mean, _mint_loc(van, p_gen)));
@ -744,21 +779,9 @@
u3t_drop();
return ret;
}
case c3__zpcn:
_mint_used();
{
u3_noun pet = u3j_hook(u3k(van), "seed");
u3_noun p_pet = u3h(pet);
u3_noun q_pet = u3t(pet);
u3_noun ret;
ret = u3nc(_mint_nice(van, gol, u3k(p_pet)),
u3nc(1, u3k(q_pet)));
u3z(pet);
return ret;
}
case c3__zpsm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpsm:
case c3__spit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun vos = _mint_in(van, sut, c3__noun, q_gen);
@ -780,6 +803,7 @@
return ret;
}
case c3__lost: p_gen = u3t(gen);
_mint_used();
{
@ -794,7 +818,9 @@
return u3nt(c3__void, 0, 0);
}
}
case c3__zpzp:
case c3__fail:
_mint_used();
{
return u3nt(c3__void, 0, 0);

124
jets/f/ut_mull.c
View File

@ -350,7 +350,8 @@
return ret;
}
case c3__wtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__wtts:
case c3__fit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun heb = u3nc(c3__herb, u3k(p_gen));
@ -378,7 +379,8 @@
return _mull_both(van, gol, _mull_bean());
}
case c3__wtcl: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__wtcl:
case c3__if: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mull_used();
{
u3_noun bol = _mull_bean();
@ -427,7 +429,9 @@
return ret;
}
case c3__clhp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__clhp:
case c3__dub: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun hed = _mull_in(van, sut, c3__noun, dox, p_gen);
@ -441,7 +445,9 @@
return ret;
}
case c3__dtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtts:
case c3__same: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun hed = _mull_in(van, sut, c3__noun, dox, p_gen);
@ -452,7 +458,9 @@
return _mull_both(van, gol, _mull_bean());
}
case c3__dtwt: p_gen = u3t(gen);
case c3__dtwt:
case c3__deep: p_gen = u3t(gen);
_mull_used();
{
u3_noun vay = _mull_in(van, sut, c3__noun, dox, p_gen);
@ -460,7 +468,9 @@
u3z(vay);
return _mull_both(van, gol, _mull_bean());
}
case c3__dtkt: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtkt:
case c3__wish: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun nog = u3nc(c3__cnbc, u3k(p_gen));
@ -472,7 +482,9 @@
u3z(nog);
return ret;
}
case c3__dtls: p_gen = u3t(gen);
case c3__dtls:
case c3__bump: p_gen = u3t(gen);
_mull_used();
{
u3_noun wuq = u3nt(c3__atom, u3_blip, u3_nul);
@ -481,6 +493,7 @@
u3z(vay);
return _mull_both(van, gol, wuq);
}
case c3__rock: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
@ -488,7 +501,9 @@
return _mull_both(van, gol, typ);
}
case c3__dttr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dttr:
case c3__kick: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun hed = _mull_in(van, sut, c3__noun, dox, p_gen);
@ -499,18 +514,22 @@
return _mull_both(van, gol, c3__noun);
}
case c3__sand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun typ = u3qfu_play(van, sut, gen);
return _mull_both(van, gol, typ);
}
case c3__hand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
return u3nc(u3k(p_gen), u3k(p_gen));
}
case c3__ktbr: p_gen = u3t(gen);
case c3__ktbr:
case c3__iron: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
@ -524,7 +543,9 @@
u3z(vat);
return pro;
}
case c3__ktpm: p_gen = u3t(gen);
case c3__ktpm:
case c3__zinc: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
@ -538,7 +559,9 @@
u3z(vat);
return pro;
}
case c3__ktwt: p_gen = u3t(gen);
case c3__ktwt:
case c3__lead: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
@ -552,7 +575,9 @@
u3z(vat);
return pro;
}
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts:
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, q_gen);
@ -562,12 +587,16 @@
u3z(vat);
return ret;
}
case c3__ktsg: p_gen = u3t(gen);
case c3__ktsg:
case c3__burn: p_gen = u3t(gen);
_mull_used();
{
return _mull_in(van, sut, gol, dox, p_gen);
}
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls:
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_hif = _mull_nice(van, gol, u3qfu_play(van, sut, p_gen));
@ -578,28 +607,9 @@
u3z(zel);
return ret;
}
case c3__kthx: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_hif = _mull_nice(van, gol, u3qfu_play(van, sut, p_gen));
u3_noun q_hif = u3qfu_play(van, dox, p_gen);
u3_noun zel = _mull_in(van, sut, c3__noun, dox, q_gen);
u3_noun kek = u3qfu_nest(van, p_hif, c3y, u3h(zel));
if ( c3n == kek ) {
u3z(p_hif);
u3z(q_hif);
u3z(zel);
return u3m_bail(c3__exit);
}
else {
u3_noun ret = u3nc(p_hif, q_hif);
u3z(zel);
return ret;
}
}
case c3__tsgr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__tsgr:
case c3__per: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun lem = _mull_in(van, sut, c3__noun, dox, p_gen);
@ -610,7 +620,9 @@
u3z(lem);
return ret;
}
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr:
case c3__aka: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mull_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);
@ -622,12 +634,16 @@
return ret;
}
case c3__cnts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__cnts:
case c3__make: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
return _mull_cnts(van, sut, gol, dox, p_gen, q_gen);
}
case c3__brcn: p_gen = u3t(gen);
case c3__brcn:
case c3__core: p_gen = u3t(gen);
_mull_used();
{
u3_noun ruf = u3nc(u3_nul, 1);
@ -637,7 +653,9 @@
return ret;
}
case c3__sgzp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sgzp:
case c3__type: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun typ = u3qfu_play(van, sut, p_gen);
@ -653,12 +671,16 @@
u3z(typ);
return ret;
}
case c3__sggr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sggr:
case c3__hint: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
return _mull_in(van, sut, gol, dox, q_gen);
}
case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpcm:
case c3__twig: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_ret = u3qfu_play(van, sut, p_gen);
@ -667,6 +689,7 @@
return u3nc(_mull_nice(van, gol, p_ret),
q_ret);
}
case c3__dbug: u3x_cell(u3t(gen), &p_gen, &q_gen);
{
u3_noun ret;
@ -678,21 +701,16 @@
u3t_drop();
return ret;
}
case c3__zpts: p_gen = u3t(gen);
case c3__zpts:
case c3__nock: p_gen = u3t(gen);
_mull_used();
{
return _mull_both(van, gol, c3__noun);
}
case c3__zpcn:
_mull_used();
{
u3_noun pet = u3j_hook(u3k(van), "seed");
u3_noun peq = u3k(u3h(pet));
u3z(pet);
return _mull_both(van, gol, peq);
}
case c3__zpsm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpsm:
case c3__spit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_zur = u3qfu_play(van, sut, p_gen);
@ -708,8 +726,10 @@
return u3nc
(_mull_nice(van, gol, p_ret), q_ret);
}
case c3__lost:
case c3__zpzp:
case c3__lost:
case c3__fail:
_mull_used();
{
return u3nc(c3__void, c3__void);

114
jets/f/ut_play.c
View File

@ -218,12 +218,15 @@
else switch ( u3h(gen) ) {
default: goto open;
case c3__wtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__wtts:
case c3__fit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_bean();
}
case c3__wtcl: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__wtcl:
case c3__if: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_play_used();
{
u3_noun fex = u3qfu_gain(van, sut, p_gen);
@ -238,7 +241,9 @@
u3z(fex); u3z(wux);
return ret;
}
case c3__clhp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__clhp:
case c3__dub: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun dis = _play_x(van, sut, p_gen);
@ -249,7 +254,9 @@
u3z(dat);
return ret;
}
case c3__dtkt: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtkt:
case c3__wish: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun nog = u3nc(c3__cnbc, u3k(p_gen));
@ -258,42 +265,55 @@
u3z(nog);
return ret;
}
case c3__dtwt: p_gen = u3t(gen);
case c3__dtwt:
case c3__deep: p_gen = u3t(gen);
_play_used();
{
return _play_bean();
}
case c3__dtts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dtts:
case c3__same: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_bean();
}
case c3__bump:
case c3__dtls: p_gen = u3t(gen);
_play_used();
{
return u3nt(c3__atom, u3_blip, u3_nul);
}
case c3__rock: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_rock(p_gen, q_gen);
}
case c3__dttr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__dttr:
case c3__kick: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return c3__noun;
}
case c3__sand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_sand(p_gen, q_gen);
}
case c3__hand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return u3k(p_gen);
}
case c3__ktbr: p_gen = u3t(gen);
case c3__ktbr:
case c3__iron: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
@ -302,7 +322,9 @@
u3z(boc);
return pro;
}
case c3__ktpm: p_gen = u3t(gen);
case c3__ktpm:
case c3__zinc: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
@ -311,7 +333,9 @@
u3z(boc);
return pro;
}
case c3__ktwt: p_gen = u3t(gen);
case c3__ktwt:
case c3__lead: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
@ -320,7 +344,9 @@
u3z(boc);
return pro;
}
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts:
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, q_gen);
@ -329,31 +355,23 @@
u3z(boc);
return ret;
}
case c3__ktzp: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, q_gen);
u3_noun ret = u3qfu_conk(van, boc, p_gen);
u3z(boc);
return ret;
}
case c3__ktsg: p_gen = u3t(gen);
case c3__ktsg:
case c3__burn: p_gen = u3t(gen);
_play_used();
{
return _play_x(van, sut, p_gen);
}
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls:
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_x(van, sut, p_gen);
}
case c3__kthx: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_x(van, sut, p_gen);
}
case c3__tsgr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__tsgr:
case c3__per: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
@ -362,7 +380,9 @@
u3z(boc);
return ret;
}
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr:
case c3__aka: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_play_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);
@ -371,12 +391,16 @@
u3z(boc);
return ret;
}
case c3__cnts: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__cnts:
case c3__make: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_cnts(van, sut, p_gen, q_gen);
}
case c3__brcn: p_gen = u3t(gen);
case c3__brcn:
case c3__core: p_gen = u3t(gen);
_play_used();
{
u3_noun ruf = u3nc(u3_nul, 1);
@ -385,7 +409,9 @@
u3z(ruf);
return ret;
}
case c3__sgzp: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sgzp:
case c3__type: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun typ = u3qfu_play(van, sut, p_gen);
@ -401,21 +427,28 @@
u3z(typ);
return ret;
}
case c3__sggr: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__sggr:
case c3__hint: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_x(van, sut, q_gen);
}
case c3__zpts: p_gen = u3t(gen);
case c3__zpts:
case c3__nock: p_gen = u3t(gen);
_play_used();
{
return c3__noun;
}
case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpcm:
case c3__twig: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_x(van, sut, p_gen);
}
case c3__dbug: u3x_cell(u3t(gen), &p_gen, &q_gen);
{
u3_noun ret;
@ -427,16 +460,9 @@
u3t_drop();
return ret;
}
case c3__zpcn:
_play_used();
{
u3_noun pet = u3j_hook(u3k(van), "seed");
u3_noun ret = u3k(u3h(pet));
u3z(pet);
return ret;
}
case c3__zpsm: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__zpsm:
case c3__spit: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun zur = _play_x(van, sut, p_gen);
@ -448,8 +474,10 @@
return ret;
}
case c3__lost:
case c3__zpzp:
case c3__fail:
_play_used();
{
return c3__void;