Last change
on this file since 439 was 439, checked in by coas-nagasima, 4 years ago |
mrubyを2.1.1に更新
|
-
Property svn:eol-style
set to
native
-
Property svn:mime-type
set to
text/x-csrc;charset=UTF-8
|
File size:
1.2 KB
|
Rev | Line | |
---|
[279] | 1 | /*
|
---|
| 2 | ** cmdrun.c - mruby debugger run command functions
|
---|
| 3 | **
|
---|
| 4 | */
|
---|
| 5 |
|
---|
[439] | 6 | #include <mruby/opcode.h>
|
---|
[279] | 7 | #include "mrdb.h"
|
---|
| 8 |
|
---|
| 9 | dbgcmd_state
|
---|
| 10 | dbgcmd_run(mrb_state *mrb, mrdb_state *mrdb)
|
---|
| 11 | {
|
---|
[439] | 12 | mrb_debug_context *dbg = mrdb->dbg;
|
---|
[279] | 13 |
|
---|
[439] | 14 | if (dbg->xm == DBG_INIT){
|
---|
| 15 | dbg->xm = DBG_RUN;
|
---|
| 16 | }
|
---|
| 17 | else {
|
---|
| 18 | dbg->xm = DBG_QUIT;
|
---|
| 19 | if (dbg->xphase == DBG_PHASE_RUNNING){
|
---|
| 20 | struct RClass *exc;
|
---|
| 21 | puts("Start it from the beginning.");
|
---|
| 22 | exc = mrb_define_class(mrb, "DebuggerRestart", mrb->eException_class);
|
---|
| 23 | mrb_raise(mrb, exc, "Restart mrdb.");
|
---|
| 24 | }
|
---|
| 25 | }
|
---|
[279] | 26 |
|
---|
[439] | 27 | return DBGST_RESTART;
|
---|
[279] | 28 | }
|
---|
| 29 |
|
---|
| 30 | dbgcmd_state
|
---|
| 31 | dbgcmd_continue(mrb_state *mrb, mrdb_state *mrdb)
|
---|
| 32 | {
|
---|
[439] | 33 | mrb_debug_context *dbg = mrdb->dbg;
|
---|
| 34 | int ccnt = 1;
|
---|
[279] | 35 |
|
---|
[439] | 36 | if (mrdb->wcnt > 1){
|
---|
| 37 | sscanf(mrdb->words[1], "%d", &ccnt);
|
---|
| 38 | }
|
---|
| 39 | dbg->ccnt = (uint16_t)(ccnt > 0 ? ccnt : 1); /* count of continue */
|
---|
[279] | 40 |
|
---|
[439] | 41 | if (dbg->xphase == DBG_PHASE_AFTER_RUN){
|
---|
| 42 | puts("The program is not running.");
|
---|
| 43 | dbg->xm = DBG_QUIT;
|
---|
| 44 | }
|
---|
| 45 | else {
|
---|
| 46 | dbg->xm = DBG_RUN;
|
---|
| 47 | }
|
---|
| 48 | return DBGST_CONTINUE;
|
---|
[279] | 49 | }
|
---|
| 50 |
|
---|
| 51 | dbgcmd_state
|
---|
| 52 | dbgcmd_step(mrb_state *mrb, mrdb_state *mrdb)
|
---|
| 53 | {
|
---|
[439] | 54 | mrdb->dbg->xm = DBG_STEP;
|
---|
| 55 | return DBGST_CONTINUE;
|
---|
[279] | 56 | }
|
---|
| 57 |
|
---|
| 58 | dbgcmd_state
|
---|
| 59 | dbgcmd_next(mrb_state *mrb, mrdb_state *mrdb)
|
---|
| 60 | {
|
---|
[439] | 61 | mrdb->dbg->xm = DBG_NEXT;
|
---|
| 62 | mrdb->dbg->prvci = mrb->c->ci;
|
---|
| 63 | return DBGST_CONTINUE;
|
---|
[279] | 64 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.