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

Translate ^ runes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-19 16:23:56 -07:00
parent 8ea8580c61
commit d787f87a02
5 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
jets/z/ut_mint.c
View File

@ -602,33 +602,33 @@
return u3k(u3t(gen));
}
case c3__iron: p_gen = u3t(gen);
case c3__ktbr: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__iron);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__ktbr);
u3_noun pro = u3nc(tyf, u3k(u3t(ryd)));
u3z(ryd);
return pro;
}
case c3__zinc: p_gen = u3t(gen);
case c3__ktpm: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__zinc);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__ktpm);
u3_noun pro = u3nc(tyf, u3k(u3t(ryd)));
u3z(ryd);
return pro;
}
case c3__lead: p_gen = u3t(gen);
case c3__ktwt: p_gen = u3t(gen);
_mint_used();
{
u3_noun ryd = _mint_in(van, sut, gol, p_gen);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__lead);
u3_noun tyf = u3qzu_wrap(van, u3h(ryd), c3__ktwt);
u3_noun pro = u3nc(tyf, u3k(u3t(ryd)));
u3z(ryd);
@ -646,7 +646,7 @@
return ret;
}
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun vat = _mint_in(van, sut, gol, q_gen);
@ -664,7 +664,7 @@
return u3nc(u3qz_face(p_gen, sut), u3nc(0, 1));
}
case c3__burn: p_gen = u3t(gen);
case c3__ktsg: p_gen = u3t(gen);
_mint_used();
{
u3_noun nef = _mint_in(van, sut, gol, p_gen);
@ -689,7 +689,7 @@
return ret;
}
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun huz = u3qzu_play(van, sut, p_gen);
@ -801,7 +801,7 @@
return u3nc(c3__noun, u3nc(1, sev));
}
case c3__cool: p_gen = u3t(gen);
case c3__ktcn: p_gen = u3t(gen);
_mint_used();
{
u3_noun von = u3i_molt(u3k(van), u3qzu_van_fab, c3n, 0);

26
jets/z/ut_mull.c
View File

@ -555,46 +555,46 @@
return u3nc(u3k(p_gen), u3k(p_gen));
}
case c3__iron: p_gen = u3t(gen);
case c3__ktbr: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc(u3qzu_wrap(van,
u3h(vat),
c3__iron),
c3__ktbr),
u3qzu_wrap(van,
u3t(vat),
c3__iron));
c3__ktbr));
u3z(vat);
return pro;
}
case c3__zinc: p_gen = u3t(gen);
case c3__ktpm: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc(u3qzu_wrap(van,
u3h(vat),
c3__zinc),
c3__ktpm),
u3qzu_wrap(van,
u3t(vat),
c3__zinc));
c3__ktpm));
u3z(vat);
return pro;
}
case c3__lead: p_gen = u3t(gen);
case c3__ktwt: p_gen = u3t(gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc(u3qzu_wrap(van,
u3h(vat),
c3__lead),
c3__ktwt),
u3qzu_wrap(van,
u3t(vat),
c3__lead));
c3__ktwt));
u3z(vat);
return pro;
@ -611,7 +611,7 @@
return ret;
}
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, q_gen);
@ -629,13 +629,13 @@
u3qz_face(p_gen, dox));
}
case c3__burn: p_gen = u3t(gen);
case c3__ktsg: p_gen = u3t(gen);
_mull_used();
{
return _mull_in(van, sut, gol, dox, p_gen);
}
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_hif = _mull_nice(van, gol, u3qzu_play(van, sut, p_gen));
@ -753,7 +753,7 @@
return _mull_both(van, gol, c3__noun);
}
case c3__cool: p_gen = u3t(gen);
case c3__ktcn: p_gen = u3t(gen);
_mull_used();
{
u3_noun von = u3i_molt(u3k(van), u3qzu_van_fab, c3n, 0);

8
jets/z/ut_nest.c
View File

@ -146,7 +146,7 @@
}
else {
if ( (pq_sut != pq_ref) &&
(c3__lead != pq_sut) &&
(c3__ktwt != pq_sut) &&
(c3__gold != pq_ref) )
{
return c3n;
@ -189,7 +189,7 @@
c3a(_nest_dext(van, qq_sut, tel, qq_ref, u3_nul, u3_nul, gil),
_nest_dext(van, qq_ref, tel, qq_sut, u3_nul, u3_nul, gil));
}
case c3__iron: {
case c3__ktbr: {
u3_noun s_sam = u3qzu_peek(van, qq_sut, c3__rite, 2);
u3_noun r_sam = u3qzu_peek(van, qq_ref, c3__rite, 2);
u3_noun ret = _nest_dext
@ -199,10 +199,10 @@
u3z(s_sam);
return ret;
}
case c3__lead: {
case c3__ktwt: {
return c3y;
}
case c3__zinc: {
case c3__ktpm: {
u3_noun s_pal = u3qzu_peek(van, qq_sut, c3__read, 2);
u3_noun r_pal = u3qzu_peek(van, qq_ref, c3__read, 2);
u3_noun ret = _nest_dext

4
jets/z/ut_peel.c
View File

@ -20,8 +20,8 @@
case c3__both: return u3nc(c3n, c3n);
case c3__free: return u3nc(c3y, c3y);
case c3__read: return u3nc(((met == c3__zinc) ? c3y : c3n), c3n);
case c3__rite: return u3nc(((met == c3__iron) ? c3y : c3n), c3n);
case c3__read: return u3nc(((met == c3__ktpm) ? c3y : c3n), c3n);
case c3__rite: return u3nc(((met == c3__ktbr) ? c3y : c3n), c3n);
}
}

20
jets/z/ut_play.c
View File

@ -313,31 +313,31 @@
return u3k(p_gen);
}
case c3__iron: p_gen = u3t(gen);
case c3__ktbr: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
u3_noun pro = u3qzu_wrap(van, boc, c3__iron);
u3_noun pro = u3qzu_wrap(van, boc, c3__ktbr);
u3z(boc);
return pro;
}
case c3__zinc: p_gen = u3t(gen);
case c3__ktpm: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
u3_noun pro = u3qzu_wrap(van, boc, c3__zinc);
u3_noun pro = u3qzu_wrap(van, boc, c3__ktpm);
u3z(boc);
return pro;
}
case c3__lead: p_gen = u3t(gen);
case c3__ktwt: p_gen = u3t(gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, p_gen);
u3_noun pro = u3qzu_wrap(van, boc, c3__lead);
u3_noun pro = u3qzu_wrap(van, boc, c3__ktwt);
u3z(boc);
return pro;
@ -353,7 +353,7 @@
return ret;
}
case c3__name: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktts: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun boc = _play_x(van, sut, q_gen);
@ -369,13 +369,13 @@
return u3qz_face(p_gen, sut);
}
case c3__burn: p_gen = u3t(gen);
case c3__ktsg: p_gen = u3t(gen);
_play_used();
{
return _play_x(van, sut, p_gen);
}
case c3__like: u3x_cell(u3t(gen), &p_gen, &q_gen);
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return _play_x(van, sut, p_gen);
@ -456,7 +456,7 @@
return c3__noun;
}
case c3__cool: p_gen = u3t(gen);
case c3__ktcn: p_gen = u3t(gen);
{
u3_noun von = u3i_molt(u3k(van), u3qzu_van_fab, c3n, 0);
u3_noun ret = _play_x(von, sut, p_gen);