mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
f4aff7feb1
* ext/-test-/num2int/num2int.c (print_num2ll, print_num2ull): define only if long long is available, and use long long printf modifier checked by configure. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@35086 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
120 lines
2.5 KiB
C
120 lines
2.5 KiB
C
#include <ruby.h>
|
|
|
|
static VALUE
|
|
print_num2short(VALUE obj, VALUE num)
|
|
{
|
|
char buf[128];
|
|
VALUE str;
|
|
|
|
sprintf(buf, "%d", NUM2SHORT(num));
|
|
str = rb_str_new_cstr(buf);
|
|
rb_io_write(rb_stdout, str);
|
|
return Qnil;
|
|
}
|
|
|
|
static VALUE
|
|
print_num2ushort(VALUE obj, VALUE num)
|
|
{
|
|
char buf[128];
|
|
VALUE str;
|
|
|
|
sprintf(buf, "%u", NUM2USHORT(num));
|
|
str = rb_str_new_cstr(buf);
|
|
rb_io_write(rb_stdout, str);
|
|
return Qnil;
|
|
}
|
|
|
|
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);
|
|
return Qnil;
|
|
}
|
|
|
|
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);
|
|
return Qnil;
|
|
}
|
|
|
|
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);
|
|
return Qnil;
|
|
}
|
|
|
|
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);
|
|
return Qnil;
|
|
}
|
|
|
|
#ifdef HAVE_LONG_LONG
|
|
static VALUE
|
|
print_num2ll(VALUE obj, VALUE num)
|
|
{
|
|
char buf[128];
|
|
VALUE str;
|
|
|
|
sprintf(buf, "%"PRI_LL_PREFIX"d", NUM2LL(num));
|
|
str = rb_str_new_cstr(buf);
|
|
rb_io_write(rb_stdout, str);
|
|
return Qnil;
|
|
}
|
|
|
|
static VALUE
|
|
print_num2ull(VALUE obj, VALUE num)
|
|
{
|
|
char buf[128];
|
|
VALUE str;
|
|
|
|
sprintf(buf, "%"PRI_LL_PREFIX"u", NUM2ULL(num));
|
|
str = rb_str_new_cstr(buf);
|
|
rb_io_write(rb_stdout, str);
|
|
return Qnil;
|
|
}
|
|
#endif
|
|
|
|
void
|
|
Init_num2int(void)
|
|
{
|
|
VALUE cNum2int = rb_path2class("TestNum2int::Num2int");
|
|
|
|
rb_define_singleton_method(cNum2int, "print_num2short", print_num2short, 1);
|
|
rb_define_singleton_method(cNum2int, "print_num2ushort", print_num2ushort, 1);
|
|
|
|
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);
|
|
|
|
#ifdef HAVE_LONG_LONG
|
|
rb_define_singleton_method(cNum2int, "print_num2ll", print_num2ll, 1);
|
|
rb_define_singleton_method(cNum2int, "print_num2ull", print_num2ull, 1);
|
|
#endif
|
|
}
|
|
|