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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#include <math.h>
#include "ruby.h"
#include "rubyspec.h"
#ifdef __cplusplus
extern "C" {
#endif
#ifdef HAVE_RB_FLOAT_NEW
static VALUE float_spec_new_zero(VALUE self) {
double flt = 0;
return rb_float_new(flt);
}
static VALUE float_spec_new_point_five(VALUE self) {
double flt = 0.555;
return rb_float_new(flt);
}
#endif
#ifdef HAVE_RB_RFLOAT
static VALUE float_spec_rb_Float(VALUE self, VALUE float_str) {
return rb_Float(float_str);
}
#endif
#ifdef HAVE_RFLOAT
static VALUE float_spec_RFLOAT_value_set(VALUE self, VALUE float_h, VALUE new_value) {
RFLOAT(float_h)->value = (double)NUM2INT(new_value);
return Qnil;
}
static VALUE float_spec_RFLOAT_value(VALUE self, VALUE float_h) {
return rb_float_new(RFLOAT(float_h)->value);
}
#endif
#ifdef HAVE_RFLOAT_VALUE
static VALUE float_spec_RFLOAT_VALUE(VALUE self, VALUE float_h) {
return rb_float_new(RFLOAT_VALUE(float_h));
}
#endif
void Init_float_spec() {
VALUE cls;
cls = rb_define_class("CApiFloatSpecs", rb_cObject);
#ifdef HAVE_RB_FLOAT_NEW
rb_define_method(cls, "new_zero", float_spec_new_zero, 0);
rb_define_method(cls, "new_point_five", float_spec_new_point_five, 0);
#endif
#ifdef HAVE_RB_RFLOAT
rb_define_method(cls, "rb_Float", float_spec_rb_Float, 1);
#endif
#ifdef HAVE_RFLOAT
rb_define_method(cls, "RFLOAT_value", float_spec_RFLOAT_value, 1);
rb_define_method(cls, "RFLOAT_value_set", float_spec_RFLOAT_value_set, 2);
#endif
#ifdef HAVE_RFLOAT_VALUE
rb_define_method(cls, "RFLOAT_VALUE", float_spec_RFLOAT_VALUE, 1);
#endif
}
#ifdef __cplusplus
}
#endif
|
