summaryrefslogtreecommitdiff
path: root/ext/-test-/num2int
diff options
context:
space:
mode:
authorkosaki <kosaki@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-11-14 03:45:47 +0000
committerkosaki <kosaki@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-11-14 03:45:47 +0000
commit74a13c76349b3b463514f60beb9f02c2ba301ad6 (patch)
treea7c43c1a3ce727beeb510a4447bbd92df3aa37bc /ext/-test-/num2int
parent416778c5d80230183ef06a49bb58145a7480ed48 (diff)
* numeric.c (check_uint): fix off-by-one bug of NUM2UINT.
* bignum.c (rb_big2ulong): fix off-by-one bug of NUM2ULONG. * test/-ext-/num2int/test_num2int.rb: add a testcase for NUM2INT() NUM2UINT(), NUM2LONG(), NUM2ULONG(), NUM2LL and NUM2ULL(). * ext/-test-/num2int/depend: ditto. * ext/-test-/num2int/extconf.rb: ditto. * ext/-test-/num2int/num2int.c: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33739 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/-test-/num2int')
-rw-r--r--ext/-test-/num2int/depend1
-rw-r--r--ext/-test-/num2int/extconf.rb1
-rw-r--r--ext/-test-/num2int/num2int.c86
3 files changed, 88 insertions, 0 deletions
diff --git a/ext/-test-/num2int/depend b/ext/-test-/num2int/depend
new file mode 100644
index 0000000..7a85cdb
--- /dev/null
+++ b/ext/-test-/num2int/depend
@@ -0,0 +1 @@
+num2int.o: $(top_srcdir)/numeric.c $(hdrdir)/ruby/ruby.h
diff --git a/ext/-test-/num2int/extconf.rb b/ext/-test-/num2int/extconf.rb
new file mode 100644
index 0000000..2bc820e
--- /dev/null
+++ b/ext/-test-/num2int/extconf.rb
@@ -0,0 +1 @@
+create_makefile("-test-/num2int/num2int")
diff --git a/ext/-test-/num2int/num2int.c b/ext/-test-/num2int/num2int.c
new file mode 100644
index 0000000..a7242a9
--- /dev/null
+++ b/ext/-test-/num2int/num2int.c
@@ -0,0 +1,86 @@
+#include <ruby.h>
+
+extern VALUE rb_stdout;
+
+static VALUE
+print_num2int(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%d", NUM2INT(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+static VALUE
+print_num2uint(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%u", NUM2UINT(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+static VALUE
+print_num2long(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%ld", NUM2LONG(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+static VALUE
+print_num2ulong(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%lu", NUM2ULONG(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+static VALUE
+print_num2ll(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%lld", NUM2LL(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+static VALUE
+print_num2ull(VALUE obj, VALUE num)
+{
+ char buf[128];
+ VALUE str;
+
+ sprintf(buf, "%llu", NUM2ULL(num));
+ str = rb_str_new_cstr(buf);
+ rb_io_write(rb_stdout, str);
+}
+
+
+void
+Init_num2int(void)
+{
+ VALUE cNum2int = rb_path2class("TestNum2int::Num2int");
+
+ rb_define_singleton_method(cNum2int, "print_num2int", print_num2int, 1);
+ rb_define_singleton_method(cNum2int, "print_num2uint", print_num2uint, 1);
+
+ rb_define_singleton_method(cNum2int, "print_num2long", print_num2long, 1);
+ rb_define_singleton_method(cNum2int, "print_num2ulong", print_num2ulong, 1);
+
+ rb_define_singleton_method(cNum2int, "print_num2ll", print_num2ll, 1);
+ rb_define_singleton_method(cNum2int, "print_num2ull", print_num2ull, 1);
+}
+