mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
KOBAYASHI Shuji
3d056d084a
| Previous Name | New Name | |------------------------------|-------------------------| | MRB_ENABLE_ALL_SYMBOLS | MRB_USE_ALL_SYMBOLS | | MRB_ENABLE_SYMBOLL_ALL | MRB_USE_ALL_SYMBOLS | | MRB_ENABLE_CXX_ABI | MRB_USE_CXX_ABI | | MRB_ENABLE_CXX_EXCEPTION | MRB_USE_CXX_EXCEPTION | | MRB_ENABLE_DEBUG_HOOK | MRB_USE_DEBUG_HOOK | | MRB_DISABLE_DIRECT_THREADING | MRB_NO_DIRECT_THREADING | | MRB_DISABLE_STDIO | MRB_NO_STDIO | | ENABLE_LINENOISE | MRB_USE_LINENOISE | | ENABLE_READLINE | MRB_USE_READLINE | | DISABLE_MIRB_UNDERSCORE | MRB_NO_MIRB_UNDERSCORE | | DISABLE_GEMS | MRB_NO_GEMS | * `MRB_ENABLE_SYMBOLL_ALL` seems to be a typo, so it is fixed. * `MRB_` prefix is added to those without. * The previous names can also be used for compatibility.
71 lines
1.4 KiB
C
71 lines
1.4 KiB
C
/*
|
|
** print.c - Kernel.#p
|
|
**
|
|
** See Copyright Notice in mruby.h
|
|
*/
|
|
|
|
#include <mruby.h>
|
|
#include <mruby/string.h>
|
|
#include <mruby/variable.h>
|
|
#include <mruby/error.h>
|
|
#include <string.h>
|
|
|
|
#ifndef MRB_NO_STDIO
|
|
static void
|
|
printcstr(const char *str, size_t len, FILE *stream)
|
|
{
|
|
if (str) {
|
|
fwrite(str, len, 1, stream);
|
|
putc('\n', stream);
|
|
}
|
|
}
|
|
|
|
static void
|
|
printstr(mrb_value obj, FILE *stream)
|
|
{
|
|
if (mrb_string_p(obj)) {
|
|
printcstr(RSTRING_PTR(obj), RSTRING_LEN(obj), stream);
|
|
}
|
|
}
|
|
#else
|
|
# define printcstr(str, len, stream) (void)0
|
|
# define printstr(obj, stream) (void)0
|
|
#endif
|
|
|
|
void
|
|
mrb_core_init_printabort(void)
|
|
{
|
|
static const char *str = "Failed mruby core initialization";
|
|
printcstr(str, strlen(str), stdout);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_p(mrb_state *mrb, mrb_value obj)
|
|
{
|
|
if (mrb_type(obj) == MRB_TT_EXCEPTION && mrb_obj_ptr(obj) == mrb->nomem_err) {
|
|
static const char *str = "Out of memory";
|
|
printcstr(str, strlen(str), stdout);
|
|
}
|
|
else {
|
|
printstr(mrb_inspect(mrb, obj), stdout);
|
|
}
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_print_error(mrb_state *mrb)
|
|
{
|
|
mrb_print_backtrace(mrb);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_show_version(mrb_state *mrb)
|
|
{
|
|
printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), MRB_SYM(MRUBY_DESCRIPTION)), stdout);
|
|
}
|
|
|
|
MRB_API void
|
|
mrb_show_copyright(mrb_state *mrb)
|
|
{
|
|
printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), MRB_SYM(MRUBY_COPYRIGHT)), stdout);
|
|
}
|