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

Add ~_ for type diagnosis.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-04 14:30:09 -08:00
parent c475dfb5af
commit 3e739d5e69
6 changed files with 90 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gen191/6/ut.c
View File

@ -30,6 +30,37 @@
}
#endif
// duck: create a duck core for mean.
//
u2_noun // produce
j2_mcy(Pt6, ut, duck)(u2_wire wir_r,
u2_noun van, // retain
u2_noun typ) // retain
{
u2_noun von = u2_bn_molt(wir_r, van, u2_cv_sam, typ, 0);
u2_noun ret = u2_bn_hook(wir_r, von, "dune");
u2_rz(wir_r, von);
return ret;
}
// dung: create a dunk core for mean (noun caption)
//
u2_noun // produce
j2_mcy(Pt6, ut, dung)(u2_wire wir_r,
u2_noun van, // retain
u2_noun paz, // retain
u2_noun typ) // retain
{
u2_noun von = u2_bn_molt(wir_r, van, u2_cv_sam, typ, 0);
u2_noun duq = u2_bn_hook(wir_r, von, "dunk");
u2_noun ret = u2_bn_molt(wir_r, duq, u2_cv_sam, paz, 0);
u2_rz(wir_r, duq);
u2_rz(wir_r, von);
return ret;
}
// dunq: create a dunk core for mean
//
u2_noun // produce

15
gen191/6/ut_mint.c
View File

@ -731,6 +731,21 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mint_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);
u2_noun dug = j2_mcy(Pt6, ut, duck)(wir_r, van, typ);
u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dug));
{
ret = _mint_in(wir_r, van, sut, gol, q_gen);
}
u2_bl_drop(wir_r);
u2_rz(wir_r, typ);
return ret;
}
case c3__sggr: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mint_used(wir_r);
{

16
gen191/6/ut_mull.c
View File

@ -684,6 +684,22 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mull_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);
u2_noun dug = j2_mcy(Pt6, ut, duck)(wir_r, van, typ);
u2_noun ret;
u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dug));
{
ret = _mull_in(wir_r, van, sut, gol, dox, q_gen);
}
u2_bl_drop(wir_r);
u2_rz(wir_r, typ);
return ret;
}
case c3__sggr: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mull_used(wir_r);
{

16
gen191/6/ut_play.c
View File

@ -373,6 +373,22 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_play_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);
u2_noun dug = j2_mcy(Pt6, ut, duck)(wir_r, van, typ);
u2_noun ret;
u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dug));
{
ret = _play_in(wir_r, van, sut, q_gen);
}
u2_bl_drop(wir_r);
u2_rz(wir_r, typ);
return ret;
}
case c3__sggr: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_play_used(wir_r);
{

11
gen191/pit.h
View File

@ -636,6 +636,17 @@
j2_mby(Pt6, type)(u2_wire wir_r,
u2_noun typ); // retain
u2_noun // produce
j2_mcy(Pt6, ut, duck)(u2_wire wir_r,
u2_noun van, // retain
u2_noun typ); // retain
u2_noun // produce
j2_mcy(Pt6, ut, dung)(u2_wire wir_r,
u2_noun van, // retain
u2_noun cap, // retain
u2_noun typ); // retain
u2_noun // produce
j2_mcy(Pt6, ut, dunq)(u2_wire wir_r,
u2_noun van, // retain

1
include/c/motes.h
View File

@ -844,6 +844,7 @@
# define c3__sgbc c3_s4('s','g','b','c')
# define c3__sgbn c3_s4('s','g','b','n')
# define c3__sgbr c3_s4('s','g','b','r')
# define c3__sgcb c3_s4('s','g','c','b')
# define c3__sgcl c3_s4('s','g','c','l')
# define c3__sgcn c3_s4('s','g','c','n')
# define c3__sgdg c3_s4('s','g','d','g')