summaryrefslogtreecommitdiff
path: root/numeric.c
diff options
context:
space:
mode:
Diffstat (limited to 'numeric.c')
-rw-r--r--numeric.c30
1 files changed, 15 insertions, 15 deletions
diff --git a/numeric.c b/numeric.c
index 8381762..f50cef5 100644
--- a/numeric.c
+++ b/numeric.c
@@ -6,7 +6,7 @@
$Date: 1995/01/10 10:42:42 $
created at: Fri Aug 13 18:33:09 JST 1993
- Copyright (C) 1995 Yukihiro Matsumoto
+ Copyright (C) 1993-1995 Yukihiro Matsumoto
************************************************/
@@ -166,6 +166,19 @@ Fnum_is_int(num)
}
static VALUE
+Fnum_chr(num)
+ VALUE num;
+{
+ char c;
+ int i = NUM2INT(num);
+
+ if (i < 0 || 0xff < i)
+ Fail("%d out of char range", i);
+ c = i;
+ return str_new(&c, 1);
+}
+
+static VALUE
Fflo_to_s(flt)
struct RFloat *flt;
{
@@ -494,19 +507,6 @@ Fint_is_int(num)
}
static VALUE
-Fint_chr(num)
- VALUE num;
-{
- char c;
- int i = NUM2INT(num);
-
- if (i < 0 || 0xff < i)
- Fail("%d out of char range", i);
- c = i;
- return str_new(&c, 1);
-}
-
-static VALUE
Ffix_uminus(num)
VALUE num;
{
@@ -938,11 +938,11 @@ Init_Numeric()
rb_define_method(C_Numeric, "step", Fnum_step, 2);
rb_define_method(C_Numeric, "times", Fnum_dotimes, 0);
rb_define_method(C_Numeric, "is_integer", Fnum_is_int, 0);
+ rb_define_method(C_Numeric, "chr", Fnum_chr, 0);
rb_define_method(C_Numeric, "_inspect", Fkrn_inspect, 0);
C_Integer = rb_define_class("Integer", C_Numeric);
rb_define_method(C_Integer, "is_integer", Fint_is_int, 0);
- rb_define_method(C_Integer, "chr", Fint_chr, 0);
C_Fixnum = rb_define_class("Fixnum", C_Integer);