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
|
/*
* 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_SYSDEP_H__
#define MSGPACK_RUBY_SYSDEP_H__
#include "renamer.h"
#include "sysdep_types.h"
#include "sysdep_endian.h"
#define UNUSED(var) ((void)var)
#ifdef __LITTLE_ENDIAN__
/* _msgpack_be16 */
#ifdef _WIN32
# if defined(ntohs)
# define _msgpack_be16(x) ntohs(x)
# elif defined(_byteswap_ushort) || (defined(_MSC_VER) && _MSC_VER >= 1400)
# define _msgpack_be16(x) ((uint16_t)_byteswap_ushort((unsigned short)x))
# else
# define _msgpack_be16(x) ( \
((((uint16_t)x) << 8) & 0x0000ff00U ) | \
((((uint16_t)x) >> 8) & 0x000000ffU ) )
# endif
#else
# define _msgpack_be16(x) ntohs(x)
#endif
/* _msgpack_be32 */
#ifdef _WIN32
# if defined(ntohl)
# define _msgpack_be32(x) ntohl(x)
# elif defined(_byteswap_ulong) || (defined(_MSC_VER) && _MSC_VER >= 1400)
# define _msgpack_be32(x) ((uint32_t)_byteswap_ulong((unsigned long)x))
# else
# define _msgpack_be32(x) \
( ((((uint32_t)x) << 24) ) | \
((((uint32_t)x) << 8) & 0x00ff0000U ) | \
((((uint32_t)x) >> 8) & 0x0000ff00U ) | \
((((uint32_t)x) >> 24) ) )
# endif
#else
# define _msgpack_be32(x) ntohl(x)
#endif
/* _msgpack_be64 */
#if defined(_byteswap_uint64) || (defined(_MSC_VER) && _MSC_VER >= 1400)
# define _msgpack_be64(x) (_byteswap_uint64(x))
#elif defined(bswap_64)
# define _msgpack_be64(x) bswap_64(x)
#elif defined(__DARWIN_OSSwapInt64)
# define _msgpack_be64(x) __DARWIN_OSSwapInt64(x)
#else
#define _msgpack_be64(x) \
( ((((uint64_t)x) << 56) ) | \
((((uint64_t)x) << 40) & 0x00ff000000000000ULL ) | \
((((uint64_t)x) << 24) & 0x0000ff0000000000ULL ) | \
((((uint64_t)x) << 8) & 0x000000ff00000000ULL ) | \
((((uint64_t)x) >> 8) & 0x00000000ff000000ULL ) | \
((((uint64_t)x) >> 24) & 0x0000000000ff0000ULL ) | \
((((uint64_t)x) >> 40) & 0x000000000000ff00ULL ) | \
((((uint64_t)x) >> 56) ) )
#endif
#else /* big endian */
#define _msgpack_be16(x) (x)
#define _msgpack_be32(x) (x)
#define _msgpack_be64(x) (x)
#endif
/* _msgpack_be_float */
#define _msgpack_be_float(x) _msgpack_be32(x)
/* _msgpack_be_double */
#if defined(__arm__) && !(__ARM_EABI__)
/* ARM OABI */
#define _msgpack_be_double(x) \
( (((x) & 0xFFFFFFFFUL) << 32UL) | ((x) >> 32UL) )
#else
/* the other ABI */
#define _msgpack_be_double(x) _msgpack_be64(x)
#endif
/* _msgpack_bsp32 */
#if defined(_MSC_VER)
#define _msgpack_bsp32(name, val) \
long name; \
_BitScanForward(&name, val)
#else
#define _msgpack_bsp32(name, val) \
int name = __builtin_ctz(val)
/* TODO default impl for _msgpack_bsp32 */
#endif
#ifndef HAVE_RB_INTEGER_UNPACK
#if SIZEOF_BDIGITS == 2
#define NTOHBDIGIT _msgpack_be16
#elif SIZEOF_BDIGITS == 4
#define NTOHBDIGIT _msgpack_be32
#elif SIZEOF_BDIGITS == 8
#define NTOHBDIGIT _msgpack_be64
#else
#error this size of bignum digits SIZEOF_BDIGITS not implemented
#endif
#endif
#endif
|
