blob: f71236a32415030e2588b0e9bd85e1a8ce99e982 (
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
|
#include <limits.h>
#include <mruby.h>
static mrb_value
mrb_int_chr(mrb_state *mrb, mrb_value x)
{
mrb_int chr;
char c;
chr = mrb_fixnum(x);
if (chr >= (1 << CHAR_BIT)) {
mrb_raisef(mrb, E_RANGE_ERROR, "%S out of char range", x);
}
c = (char)chr;
return mrb_str_new(mrb, &c, 1);
}
void
mrb_mruby_numeric_ext_gem_init(mrb_state* mrb)
{
struct RClass *i = mrb_class_get(mrb, "Integer");
mrb_define_method(mrb, i, "chr", mrb_int_chr, MRB_ARGS_NONE());
}
void
mrb_mruby_numeric_ext_gem_final(mrb_state* mrb)
{
}
|