static VALUE
call_at_end(VALUE ctx, debug_context_t * dc)
{
dc->stop_reason = CTX_STOP_BREAKPOINT;
return call_at(ctx, dc, rb_intern("at_end"), 0, Qnil);
}
static VALUE
call_at_return(VALUE ctx, debug_context_t * dc, VALUE return_value)
{
dc->stop_reason = CTX_STOP_BREAKPOINT;
return call_at(ctx, dc, rb_intern("at_return"), 1, return_value);
}
static VALUE
call_at_catchpoint(VALUE ctx, debug_context_t * dc, VALUE exp)
{
dc->stop_reason = CTX_STOP_CATCHPOINT;
return call_at(ctx, dc, rb_intern("at_catchpoint"), 1, exp);
}
static VALUE
call_at_breakpoint(VALUE ctx, debug_context_t * dc, VALUE breakpoint)
{
dc->stop_reason = CTX_STOP_BREAKPOINT;
return call_at(ctx, dc, rb_intern("at_breakpoint"), 1, breakpoint);
}
static VALUE
call_at_return(VALUE context_obj, debug_context_t *dc, VALUE file, VALUE line)
{
dc->stop_reason = CTX_STOP_BREAKPOINT;
return call_at(context_obj, dc, rb_intern("at_return"), 2, file, line);
}
//***** Event handler - Hard key presses
void HandleKeyPress(void) {
UInt32 keystate = KeyCurrentState();
// Only valid in the main form
if (FrmGetActiveFormID() != MainForm)
return;
if (keystate & keyBitHard1) { // select pattern
call_at(1);
}
else if (keystate & keyBitHard2) { // enter siteswap
call_at(2);
}
else if (keystate & keyBitHard3) { // Toggle juggler
call_at(3);
}
else if (keystate & keyBitHard4) { // Toggle frameskip
call_at(4);
}
else if (keystate & keyBitPageUp) { // increase speed
call_at(5);
}
else if (keystate & keyBitPageDown) { // decrease speed
call_at(6);
}
}
static VALUE
call_at_return(VALUE context_obj, debug_context_t *dc, VALUE file, VALUE line)
{
CTX_FL_UNSET(dc, CTX_FL_STOP_ON_RET);
return call_at(context_obj, dc, rb_intern("at_return"), 2, file, line);
}
static VALUE
call_at_tracing(VALUE context_obj, debug_context_t *dc, VALUE file, VALUE line)
{
return call_at(context_obj, dc, rb_intern("at_tracing"), 2, file, line);
}
static VALUE
call_at_line(VALUE context_obj, debug_context_t *dc, VALUE file, VALUE line)
{
save_current_position(dc, file, line);
return call_at(context_obj, dc, rb_intern("at_line"), 2, file, line);
}
static VALUE
call_at_tracing(VALUE ctx, debug_context_t * dc)
{
return call_at(ctx, dc, rb_intern("at_tracing"), 0, Qnil);
}
