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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
/*
* CBOR for Ruby
*
* Copyright (C) 2013 Carsten Bormann
*
* Licensed under the Apache License, Version 2.0 (the "License").
*
* Based on:
***********/
/*
* MessagePack for Ruby
*
* Copyright (C) 2008-2013 Sadayuki Furuhashi
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#ifndef MSGPACK_RUBY_COMPAT_H__
#define MSGPACK_RUBY_COMPAT_H__
#include "ruby.h"
#if defined(HAVE_RUBY_ST_H)
# include "ruby/st.h" /* ruby hash on Ruby 1.9 */
#elif defined(HAVE_ST_H)
# include "st.h" /* ruby hash on Ruby 1.8 */
#endif
/*
* COMPAT_HAVE_ENCODING
*/
#ifdef HAVE_RUBY_ENCODING_H
# include "ruby/encoding.h"
# define COMPAT_HAVE_ENCODING
#endif
#if defined(__MACRUBY__) /* MacRuby */
# undef COMPAT_HAVE_ENCODING
#endif
/*
* define STR_DUP_LIKELY_DOES_COPY
* check rb_str_dup actually copies the string or not
*/
#if defined(RUBY_VM) && defined(FL_ALL) && defined(FL_USER1) && defined(FL_USER3) /* MRI 1.9 */
# define STR_DUP_LIKELY_DOES_COPY(str) FL_ALL(str, FL_USER1|FL_USER3) /* same as STR_ASSOC_P(str) */
#elif defined(FL_TEST) && defined(ELTS_SHARED) /* MRI 1.8 */
# define STR_DUP_LIKELY_DOES_COPY(str) (!FL_TEST(str, ELTS_SHARED))
//#elif defined(RUBINIUS) || defined(JRUBY) /* Rubinius and JRuby */
#else
# define STR_DUP_LIKELY_DOES_COPY(str) (1)
#endif
/*
* SIZET2NUM
*/
#ifndef SIZET2NUM /* MRI 1.8 */
# define SIZET2NUM(v) ULL2NUM(v)
#endif
/*
* rb_errinfo()
*/
#if defined(RUBY_VM) /* MRI 1.9 */
# define COMPAT_RERAISE rb_exc_raise(rb_errinfo())
#elif defined(JRUBY) /* JRuby */
# define COMPAT_RERAISE rb_exc_raise(rb_gv_get("$!"))
#else /* MRI 1.8 and Rubinius */
# define COMPAT_RERAISE rb_exc_raise(ruby_errinfo)
#endif
/*
* RBIGNUM_POSITIVE_P
*/
#ifndef RBIGNUM_POSITIVE_P
# if defined(RUBINIUS) /* Rubinius <= v1.2.3 */
# define RBIGNUM_POSITIVE_P(b) (rb_funcall(b, rb_intern(">="), 1, INT2FIX(0)) == Qtrue)
# elif defined(JRUBY) /* JRuby */
# define RBIGNUM_POSITIVE_P(b) (rb_funcall(b, rb_intern(">="), 1, INT2FIX(0)) == Qtrue)
# define rb_big2ull(b) rb_num2ull(b)
/*#define rb_big2ll(b) rb_num2ll(b)*/
# else /* MRI 1.8 */
# define RBIGNUM_POSITIVE_P(b) (RBIGNUM(b)->sign)
# endif
#endif
#ifndef HAVE_RB_INTEGER_UNPACK
/* More MRI 1.8 */
#ifndef RBIGNUM_LEN
#define RBIGNUM_LEN(b) (RBIGNUM(b)->len)
#endif
#ifndef RBIGNUM_DIGITS
#ifndef RBIGNUM
#define CANT_DO_BIGNUMS_FAST_ON_THIS_PLATFORM
#endif
#define RBIGNUM_DIGITS(b) (RBIGNUM(b)->digits)
#endif
#ifndef HAVE_RB_BIG_NEW
/* not really worth fixing any more... */
#define CANT_DO_BIGNUMS_FAST_ON_THIS_PLATFORM
/* gross 1.8.7 hack thanks to Mathieu Bouchard <matju@artengine.ca> */
#define rb_big_new(len, sign) rb_funcall(INT2FIX(1),rb_intern("<<"),1,INT2FIX(len > 0 ? ((len) * SIZEOF_BDIGITS * 8) - 1 : 0));
#endif
#endif
#ifndef RB_TYPE_P
#define RB_TYPE_P(obj, type) (TYPE(obj) == (type))
#endif
/*
* RSTRING_PTR, RSTRING_LEN
*/
#ifndef RSTRING_PTR /* MRI 1.8.5 */
# define RSTRING_PTR(s) (RSTRING(s)->ptr)
#endif
#ifndef RSTRING_LEN /* MRI 1.8.5 */
# define RSTRING_LEN(s) (RSTRING(s)->len)
#endif
#endif
|
