mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
KOBAYASHI Shuji
7f6e8e8ddc
#### Before this patch: ``` $ echo 'p true' | bin/mrdb /dev/null (/dev/null:1) mruby application exited. FrozenError: can't modify frozen String (-:0) ``` #### After this patch: ``` $ echo 'p true' | bin/mrdb /dev/null (/dev/null:1) $1 = true (/dev/null:1) ```
82 lines
1.6 KiB
C
82 lines
1.6 KiB
C
/*
|
|
** cmdprint.c - mruby debugger print command functions
|
|
**
|
|
*/
|
|
|
|
#include <string.h>
|
|
#include "mrdb.h"
|
|
#include <mruby/value.h>
|
|
#include <mruby/class.h>
|
|
#include <mruby/compile.h>
|
|
#include <mruby/error.h>
|
|
#include <mruby/numeric.h>
|
|
#include <mruby/string.h>
|
|
#include "apiprint.h"
|
|
|
|
dbgcmd_state
|
|
dbgcmd_print(mrb_state *mrb, mrdb_state *mrdb)
|
|
{
|
|
mrb_value expr;
|
|
mrb_value result;
|
|
uint8_t wcnt;
|
|
int ai;
|
|
|
|
if (mrdb->wcnt <= 1) {
|
|
puts("Parameter not specified.");
|
|
return DBGST_PROMPT;
|
|
}
|
|
|
|
ai = mrb_gc_arena_save(mrb);
|
|
|
|
/* eval expr */
|
|
expr = mrb_str_new_cstr(mrb, NULL);
|
|
for (wcnt=1; wcnt<mrdb->wcnt; wcnt++) {
|
|
expr = mrb_str_cat_lit(mrb, expr, " ");
|
|
expr = mrb_str_cat_cstr(mrb, expr, mrdb->words[wcnt]);
|
|
}
|
|
|
|
result = mrb_debug_eval(mrb, mrdb->dbg, RSTRING_PTR(expr), RSTRING_LEN(expr), NULL, 0);
|
|
|
|
/* $print_no = result */
|
|
printf("$%lu = ", (unsigned long)mrdb->print_no++);
|
|
fwrite(RSTRING_PTR(result), RSTRING_LEN(result), 1, stdout);
|
|
putc('\n', stdout);
|
|
|
|
if (mrdb->print_no == 0) {
|
|
mrdb->print_no = 1;
|
|
}
|
|
|
|
mrb_gc_arena_restore(mrb, ai);
|
|
|
|
return DBGST_PROMPT;
|
|
}
|
|
|
|
dbgcmd_state
|
|
dbgcmd_eval(mrb_state *mrb, mrdb_state *mrdb)
|
|
{
|
|
return dbgcmd_print(mrb, mrdb);
|
|
}
|
|
|
|
dbgcmd_state
|
|
dbgcmd_info_local(mrb_state *mrb, mrdb_state *mrdb)
|
|
{
|
|
mrb_value result;
|
|
mrb_value s;
|
|
int ai;
|
|
|
|
ai = mrb_gc_arena_save(mrb);
|
|
|
|
result = mrb_debug_eval(mrb, mrdb->dbg, "local_variables", 0, NULL, 1);
|
|
|
|
s = mrb_str_cat_lit(mrb, result, "\0");
|
|
printf("$%lu = %s\n", (unsigned long)mrdb->print_no++, RSTRING_PTR(s));
|
|
|
|
if (mrdb->print_no == 0) {
|
|
mrdb->print_no = 1;
|
|
}
|
|
|
|
mrb_gc_arena_restore(mrb, ai);
|
|
|
|
return DBGST_PROMPT;
|
|
}
|