Context Navigation

print.c@ 331

Last change on this file since 331 was 331, checked in by coas-nagasima, 6 years ago
prototoolに関連するプロジェクトをnewlibからmuslを使うよう変更・更新 ntshellをnewlibの下位の実装から、muslのsyscallの実装に変更・更新以下のOSSをアップデート・mruby-1.3.0 ・musl-1.1.18 ・onigmo-6.1.3 ・tcc-0.9.27 以下のOSSを追加・openssl-1.1.0e ・curl-7.57.0 ・zlib-1.2.11 以下のmrbgemsを追加・iij/mruby-digest ・iij/mruby-env ・iij/mruby-errno ・iij/mruby-iijson ・iij/mruby-ipaddr ・iij/mruby-mock ・iij/mruby-require ・iij/mruby-tls-openssl
Property svn:eol-style set to `native` Property svn:mime-type set to `text/x-csrc;charset=UTF-8`
File size: 975 bytes

Line
1	/*
2	** print.c - Kernel.#p
3	**
4	** See Copyright Notice in mruby.h
5	*/
6
7	#include <mruby.h>
8	#include <mruby/string.h>
9	#include <mruby/variable.h>
10
11	#ifndef MRB_DISABLE_STDIO
12	static void
13	printstr(mrb_value obj, FILE *stream)
14	{
15	if (mrb_string_p(obj)) {
16	fwrite(RSTRING_PTR(obj), RSTRING_LEN(obj), 1, stream);
17	putc('\n', stream);
18	}
19	}
20	#else
21	# define printstr(obj, stream) (void)0
22	#endif
23
24	MRB_API void
25	mrb_p(mrb_state *mrb, mrb_value obj)
26	{
27	printstr(mrb_inspect(mrb, obj), stdout);
28	}
29
30	MRB_API void
31	mrb_print_error(mrb_state *mrb)
32	{
33	mrb_print_backtrace(mrb);
34	printstr(mrb_funcall(mrb, mrb_obj_value(mrb->exc), "inspect", 0), stderr);
35	}
36
37	MRB_API void
38	mrb_show_version(mrb_state *mrb)
39	{
40	printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern_lit(mrb, "MRUBY_DESCRIPTION")), stdout);
41	}
42
43	MRB_API void
44	mrb_show_copyright(mrb_state *mrb)
45	{
46	printstr(mrb_const_get(mrb, mrb_obj_value(mrb->object_class), mrb_intern_lit(mrb, "MRUBY_COPYRIGHT")), stdout);
47	}

Note: See TracBrowser for help on using the repository browser.