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

Check in some testing stuff.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-02-08 13:22:33 -08:00
parent 656e7569f1
commit a3bb81f397
3 changed files with 63 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
i/c/motes.h
View File

@ -886,6 +886,7 @@
# define c3__scry c3_s4('s','c','r','y')
# define c3__scsg c3_s4('s','c','s','g')
# define c3__seal c3_s4('s','e','a','l')
# define c3__seat c3_s4('s','e','a','t')
# define c3__see c3_s3('s','e','e')
# define c3__seed c3_s4('s','e','e','d')
# define c3__seek c3_s4('s','e','e','k')

49
n/m.c
View File

@ -188,6 +188,47 @@ _cm_signal_reset(void)
u3R->kid_u = 0;
}
/* _cm_stack_recover(): recover stack trace, with lacunae.
*/
static u3_noun
_cm_stack_recover(u3a_road* rod_u)
{
c3_w len_w;
len_w = 0;
{
u3_noun tax = rod_u->bug.tax;
while ( tax ) {
len_w++;
tax = u3t(tax);
}
if ( len_w < 4096 ) {
return u3a_take(rod_u->bug.tax);
}
else {
u3_noun beg, fin;
c3_w i_w;
tax = rod_u->bug.tax;
beg = u3_nul;
for ( i_w = 0; i_w < 2048; i_w++ ) {
beg = u3nc(u3a_take(u3h(tax)), beg);
tax = u3t(tax);
}
beg = u3kb_flop(beg);
for ( i_w = 0; i_w < (len_w - 4096); i_w++ ) {
tax = u3t(tax);
}
fin = u3nc(u3nc(c3__lose, c3__over), u3a_take(tax));
return u3kb_weld(beg, fin);
}
}
}
/* _cm_signal_recover(): recover from a deep signal, after longjmp. Free arg.
*/
static u3_noun
@ -235,9 +276,13 @@ _cm_signal_recover(c3_l sig_l, u3_noun arg)
u3R = &(u3H->rod_u);
rod_u = u3R;
while ( rod_u->kid_u ) {
tax = u3kb_weld(u3a_take(rod_u->kid_u->bug.tax), tax);
#if 0
fprintf(stderr, "collecting %d frames\r\n",
u3kb_lent(rod_u->kid_u->bug.tax));
#endif
tax = u3kb_weld(_cm_stack_recover(rod_u->kid_u), tax);
rod_u = rod_u->kid_u;
}
}

15
v/term.c
View File

@ -306,6 +306,7 @@ _term_listen_cb(uv_stream_t *wax_u, int sas_i)
u3_noun pax = u3nq(u3_blip, c3__term, tid, u3_nul);
u3v_plan(u3k(pax), u3nc(c3__blew, u3nc(80, 25)));
u3v_plan(u3k(pax), u3nc(c3__hail, u3_nul));
u3v_plan(u3k(pax), u3nq(c3__flow, c3__seat, c3__talk, u3_nul));
u3z(pax);
}
@ -668,6 +669,17 @@ _term_it_save(u3_noun pax, u3_noun pad)
free(pax_c);
}
/* _term_io_flow(): send flow.
*/
static void
_term_io_flow(u3_utty* uty_u)
{
u3_noun tid = u3dc("scot", c3__ud, uty_u->tid_l);
u3_noun pax = u3nq(u3_blip, c3__term, tid, u3_nul);
u3v_plan(pax, u3nq(c3__flow, c3__seat, c3__talk, u3_nul));
}
/* _term_io_belt(): send belt.
*/
static void
@ -818,6 +830,9 @@ _term_io_suck_char(u3_utty* uty_u, c3_y cay_y)
else if ( 13 == cay_y ) {
_term_io_belt(uty_u, u3nc(c3__ret, u3_nul));
}
else if ( 6 == cay_y ) {
_term_io_flow(uty_u); // XX hack
}
else if ( cay_y <= 26 ) {
_term_io_belt(uty_u, u3nc(c3__ctl, ('a' + (cay_y - 1))));
}