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

jetted ++scag

Browse Source
This commit is contained in:
Philip C Monk 2015-05-14 20:39:27 -04:00
parent 7641dfad01
commit 2fc873f37e
3 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
j/b/scag.c
View File

@ -15,7 +15,7 @@
return u3m_bail(c3__fail);
}
else {
u3_noun acc = u3_blip;
u3_noun acc = u3_nul;
c3_w i_w = a;
if ( !i_w )
@ -23,9 +23,9 @@
while ( i_w ) {
if ( c3n == u3du(b) ) {
return u3_nul;
return u3kb_flop(acc);
}
acc = u3i_cell( u3h(b), acc );
acc = u3nc(u3k(u3h(b)), acc);
b = u3t(b);
i_w--;
}

4
j/tree.c
View File

@ -26,7 +26,7 @@ static u3j_harm _mood__hoon_reel_a[] = {{".2", u3wb_reel, c3y}, {}};
static u3j_harm _mood__hoon_roll_a[] = {{".2", u3wb_roll, c3y}, {}};
static u3j_harm _mood__hoon_skim_a[] = {{".2", u3wb_skim, c3y}, {}};
static u3j_harm _mood__hoon_skip_a[] = {{".2", u3wb_skip, c3y}, {}};
// static u3j_harm _mood__hoon_scag_a[] = {{".2", u3wb_scag, c3y}, {}};
static u3j_harm _mood__hoon_scag_a[] = {{".2", u3wb_scag, c3y}, {}};
static u3j_harm _mood__hoon_slag_a[] = {{".2", u3wb_slag, c3y}, {}};
static u3j_harm _mood__hoon_snag_a[] = {{".2", u3wb_snag, c3y}, {}};
// static u3j_harm _mood__hoon_sort_a[] = {{".2", u3wb_sort, c3y}, {}};
@ -395,7 +395,7 @@ static u3j_core _mood__hoon_d[] =
{ "roll", _mood__hoon_roll_a },
{ "skim", _mood__hoon_skim_a },
{ "skip", _mood__hoon_skip_a },
// { "scag", _mood__hoon_scag_a }, // this jet is actually broken
{ "scag", _mood__hoon_scag_a }, // this jet is actually broken
{ "slag", _mood__hoon_slag_a },
{ "snag", _mood__hoon_snag_a },
// { "sort", _mood__hoon_sort_a },

8
n/t.c
View File

@ -207,10 +207,14 @@ u3t_samp(void)
{
u3C.wag_w &= ~u3o_debug_cpu;
static int home = 0;
static int away = 0;
// Profile sampling, because it allocates on the home road,
// only works on when we're not at home.
//
if ( &(u3H->rod_u) != u3R ) {
home++;
c3_l mot_l;
u3a_road* rod_u;
@ -250,6 +254,10 @@ u3t_samp(void)
}
u3R = rod_u;
}
else {
away++;
// fprintf(stderr,"home: %06d away: %06d\r\n", home, away);
}
u3C.wag_w |= u3o_debug_cpu;
}