HEX
Server: Apache
System: Linux s198.coreserver.jp 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64
User: nagasaki (10062)
PHP: 7.1.33
Disabled: NONE
Upload Files
File: //usr/local/rvm/src/ruby-2.7.4/ext/-test-/recursion/recursion.c
#include <ruby.h>

static VALUE
recursive_i(VALUE obj, VALUE mid, int recur)
{
    if (recur) return Qnil;
    return rb_funcallv(obj, rb_to_id(mid), 0, 0);
}

static VALUE
exec_recursive(VALUE self, VALUE mid)
{
    return rb_exec_recursive(recursive_i, self, mid);
}

static VALUE
exec_recursive_outer(VALUE self, VALUE mid)
{
    return rb_exec_recursive_outer(recursive_i, self, mid);
}

void
Init_recursion(void)
{
    VALUE m = rb_define_module_under(rb_define_module("Bug"), "Recursive");
    rb_define_method(m, "exec_recursive", exec_recursive, 1);
    rb_define_method(m, "exec_recursive_outer", exec_recursive_outer, 1);
}