summaryrefslogtreecommitdiff
path: root/ext/-test-/exception/ensured.c
blob: 7dcc9b78efe32e6b488c16888528d4ee62b88de2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#include <ruby.h>

static VALUE
begin(VALUE object)
{
    return rb_funcall(object, rb_intern("try_method"), 0);
}

static VALUE
ensure(VALUE object)
{
    return rb_funcall(object, rb_intern("ensured_method"), 0);
}

static VALUE
ensured(VALUE module, VALUE object)
{
    return rb_ensure(begin, object, ensure, object);
}

static VALUE
exc_raise(VALUE exc)
{
    rb_exc_raise(exc);
    return Qnil;
}

static VALUE
ensure_raise(VALUE module, VALUE object, VALUE exc)
{
    return rb_ensure(rb_yield, object, exc_raise, exc);
}

void
Init_ensured(VALUE klass)
{
    rb_define_module_function(klass, "ensured", ensured, 1);
    rb_define_module_function(klass, "ensure_raise", ensure_raise, 2);
}