From 201a013bf644e780a4b0ab55f66dd2a72510dd94 Mon Sep 17 00:00:00 2001 From: Yukihiro Matsumoto Date: Tue, 15 May 2012 08:01:45 +0900 Subject: remove old MANDEL code; close #134 --- src/init.c | 43 ------------------------------------------- 1 file changed, 43 deletions(-) (limited to 'src/init.c') diff --git a/src/init.c b/src/init.c index d61c5514a..0d4b9721d 100644 --- a/src/init.c +++ b/src/init.c @@ -34,44 +34,6 @@ void mrb_init_print(mrb_state *mrb); void mrb_init_mrblib(mrb_state *mrb); void mrb_init_math(mrb_state *mrb); -#define MANDEL -#ifdef MANDEL -#include -#include -static mrb_value -mpow(mrb_state *mrb, mrb_value obj) -{ - mrb_float x, y; - - mrb_get_args(mrb, "ff", &x, &y); - x = pow(x, y); - - return mrb_float_value(x); -} - -static mrb_value -msqrt(mrb_state *mrb, mrb_value obj) -{ - mrb_float x; - - mrb_get_args(mrb, "f", &x); - x = sqrt(x); - - return mrb_float_value(x); -} - -static mrb_value -mputc(mrb_state *mrb, mrb_value obj) -{ - int x; - - mrb_get_args(mrb, "i", &x); - putc(x, stdout); - - return mrb_nil_value(); -} -#endif - void mrb_init_core(mrb_state *mrb) { @@ -101,11 +63,6 @@ mrb_init_core(mrb_state *mrb) mrb_init_print(mrb); mrb_init_time(mrb); mrb_init_math(mrb); -#ifdef MANDEL - mrb_define_method(mrb, mrb->kernel_module, "pow", mpow, ARGS_REQ(2)); - mrb_define_method(mrb, mrb->kernel_module, "sqrt", msqrt, ARGS_REQ(1)); - mrb_define_method(mrb, mrb->kernel_module, "putc", mputc, ARGS_REQ(1)); -#endif mrb_init_mrblib(mrb); -- cgit v1.2.3