mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
Yukihiro "Matz" Matsumoto
4440566b95
changes: * rename DISABLE_STDIO -> MRB_DISABLE_STDIO * rename ENABLE_DEBUG -> MRB_ENABLE_DEBUG_HOOK * no more opposite macro definitions (e.g. ENABLE_STDIO, DISABLE_DEBUG). * rewrite above macro references throughout the code. * update documents
48 lines
975 B
C
48 lines
975 B
C
/*
|
|
** print.c - Kernel.#p
|
|
**
|
|
** See Copyright Notice in mruby.h
|
|
*/
|
|
|
|
#include "mruby.h"
|
|
#include "mruby/string.h"
|
|
#include "mruby/variable.h"
|
|
|
|
#ifndef MRB_DISABLE_STDIO
|
|
static void
|
|
printstr(mrb_value obj, FILE *stream)
|
|
{
|
|
if (mrb_string_p(obj)) {
|
|
fwrite(RSTRING_PTR(obj), RSTRING_LEN(obj), 1, stream);
|
|
putc('\n', stream);
|
|
}
|
|
}
|
|
#else
|
|
# define printstr(obj, stream) (void)0
|
|
#endif
|
|
|
|
MRB_API void
|
|
mrb_p(mrb_state *mrb, mrb_value obj)
|
|
{
|
|
printstr(mrb_inspect(mrb, obj), stdout);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_print_error(mrb_state *mrb)
|
|
{
|
|
mrb_print_backtrace(mrb);
|
|
printstr(mrb_funcall(mrb, mrb_obj_value(mrb->exc), "inspect", 0), stderr);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_show_version(mrb_state *mrb)
|
|
{
|
|
printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern_lit(mrb, "MRUBY_DESCRIPTION")), stdout);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_show_copyright(mrb_state *mrb)
|
|
{
|
|
printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern_lit(mrb, "MRUBY_COPYRIGHT")), stdout);
|
|
}
|