mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
Masaki Muranaka
6ae3a1b83e
C API mrb_p() is always callable. - But it will do nothing when ENABLE_STDIO is not defined. Kernel#__printstr__ is always callable. - But it will do nothing when ENABLE_STDIO is not defined.
79 lines
1.4 KiB
C
79 lines
1.4 KiB
C
/*
|
|
** print.c - Kernel.#p
|
|
**
|
|
** See Copyright Notice in mruby.h
|
|
*/
|
|
|
|
#include "mruby.h"
|
|
#include "mruby/string.h"
|
|
|
|
static void
|
|
printstr(mrb_state *mrb, mrb_value obj)
|
|
{
|
|
#ifdef ENABLE_STDIO
|
|
struct RString *str;
|
|
char *s;
|
|
int len;
|
|
|
|
if (mrb_string_p(obj)) {
|
|
str = mrb_str_ptr(obj);
|
|
s = str->ptr;
|
|
len = str->len;
|
|
fwrite(s, len, 1, stdout);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
void
|
|
mrb_p(mrb_state *mrb, mrb_value obj)
|
|
{
|
|
#ifdef ENABLE_STDIO
|
|
obj = mrb_funcall(mrb, obj, "inspect", 0);
|
|
printstr(mrb, obj);
|
|
putc('\n', stdout);
|
|
#endif
|
|
}
|
|
|
|
/* 15.3.1.2.9 */
|
|
/* 15.3.1.3.34 */
|
|
mrb_value
|
|
mrb_printstr(mrb_state *mrb, mrb_value self)
|
|
{
|
|
mrb_value argv;
|
|
|
|
mrb_get_args(mrb, "o", &argv);
|
|
printstr(mrb, argv);
|
|
|
|
return argv;
|
|
}
|
|
|
|
void
|
|
mrb_init_print(mrb_state *mrb)
|
|
{
|
|
struct RClass *krn;
|
|
|
|
krn = mrb->kernel_module;
|
|
|
|
mrb_define_method(mrb, krn, "__printstr__", mrb_printstr, ARGS_REQ(1));
|
|
}
|
|
|
|
void
|
|
mrb_show_version(mrb_state *mrb)
|
|
{
|
|
static const char version_msg[] = "mruby - Embeddable Ruby Copyright (c) 2010-2013 mruby developers\n";
|
|
mrb_value msg;
|
|
|
|
msg = mrb_str_new(mrb, version_msg, sizeof(version_msg) - 1);
|
|
printstr(mrb, msg);
|
|
}
|
|
|
|
void
|
|
mrb_show_copyright(mrb_state *mrb)
|
|
{
|
|
static const char copyright_msg[] = "mruby - Copyright (c) 2010-2013 mruby developers\n";
|
|
mrb_value msg;
|
|
|
|
msg = mrb_str_new(mrb, copyright_msg, sizeof(copyright_msg) - 1);
|
|
printstr(mrb, msg);
|
|
}
|