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); }