1
/* -*- mode: c++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
2
* vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
4
* Copyright (C) 2008 Sun Microsystems
6
* This program is free software; you can redistribute it and/or modify
7
* it under the terms of the GNU General Public License as published by
8
* the Free Software Foundation; version 2 of the License.
10
* This program is distributed in the hope that it will be useful,
11
* but WITHOUT ANY WARRANTY; without even the implied warranty of
12
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
* GNU General Public License for more details.
15
* You should have received a copy of the GNU General Public License
16
* along with this program; if not, write to the Free Software
17
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
20
#ifndef DRIZZLED_KORR_H
21
#define DRIZZLED_KORR_H
25
* Define-functions for reading and storing in machine independent format
28
* No one seems to know what "korr" means in this context. A global search
29
* and replace would be fine if someone can come up with a better description
32
/* Optimized store functions for Intel x86 */
34
#define sint2korr(A) (*((int16_t *) (A)))
35
#define sint3korr(A) ((int32_t) ((((unsigned char) (A)[2]) & 128) ? \
36
(((uint32_t) 255L << 24) | \
37
(((uint32_t) (unsigned char) (A)[2]) << 16) | \
38
(((uint32_t) (unsigned char) (A)[1]) << 8) | \
39
((uint32_t) (unsigned char) (A)[0])) : \
40
(((uint32_t) (unsigned char) (A)[2]) << 16) | \
41
(((uint32_t) (unsigned char) (A)[1]) << 8) | \
42
((uint32_t) (unsigned char) (A)[0])))
43
#define sint4korr(A) (*((long *) (A)))
44
#define uint2korr(A) (*((uint16_t *) (A)))
45
#if defined(HAVE_purify)
46
#define uint3korr(A) (uint32_t) (((uint32_t) ((unsigned char) (A)[0])) +\
47
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
48
(((uint32_t) ((unsigned char) (A)[2])) << 16))
53
Please, note, uint3korr reads 4 bytes (not 3) !
54
It means, that you have to provide enough allocated space !
56
#define uint3korr(A) (long) (*((unsigned int *) (A)) & 0xFFFFFF)
57
#endif /* HAVE_purify */
58
#define uint4korr(A) (*((uint32_t *) (A)))
59
#define uint5korr(A) ((uint64_t)(((uint32_t) ((unsigned char) (A)[0])) +\
60
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
61
(((uint32_t) ((unsigned char) (A)[2])) << 16) +\
62
(((uint32_t) ((unsigned char) (A)[3])) << 24)) +\
63
(((uint64_t) ((unsigned char) (A)[4])) << 32))
64
#define uint6korr(A) ((uint64_t)(((uint32_t) ((unsigned char) (A)[0])) + \
65
(((uint32_t) ((unsigned char) (A)[1])) << 8) + \
66
(((uint32_t) ((unsigned char) (A)[2])) << 16) + \
67
(((uint32_t) ((unsigned char) (A)[3])) << 24)) + \
68
(((uint64_t) ((unsigned char) (A)[4])) << 32) + \
69
(((uint64_t) ((unsigned char) (A)[5])) << 40))
70
#define uint8korr(A) (*((uint64_t *) (A)))
71
#define sint8korr(A) (*((int64_t *) (A)))
72
#define int2store(T,A) *((uint16_t*) (T))= (uint16_t) (A)
73
#define int3store(T,A) do { *(T)= (unsigned char) ((A));\
74
*(T+1)=(unsigned char) (((uint32_t) (A) >> 8));\
75
*(T+2)=(unsigned char) (((A) >> 16)); } while (0)
76
#define int4store(T,A) *((long *) (T))= (long) (A)
77
#define int5store(T,A) do { *(T)= (unsigned char)((A));\
78
*((T)+1)=(unsigned char) (((A) >> 8));\
79
*((T)+2)=(unsigned char) (((A) >> 16));\
80
*((T)+3)=(unsigned char) (((A) >> 24)); \
81
*((T)+4)=(unsigned char) (((A) >> 32)); } while(0)
82
#define int6store(T,A) do { *(T)= (unsigned char)((A)); \
83
*((T)+1)=(unsigned char) (((A) >> 8)); \
84
*((T)+2)=(unsigned char) (((A) >> 16)); \
85
*((T)+3)=(unsigned char) (((A) >> 24)); \
86
*((T)+4)=(unsigned char) (((A) >> 32)); \
87
*((T)+5)=(unsigned char) (((A) >> 40)); } while(0)
88
#define int8store(T,A) *((uint64_t *) (T))= (uint64_t) (A)
94
#define doubleget(V,M) \
95
do { doubleget_union _tmp; \
96
_tmp.m[0] = *((long*)(M)); \
97
_tmp.m[1] = *(((long*) (M))+1); \
98
(V) = _tmp.v; } while(0)
99
#define doublestore(T,V) do { *((long *) T) = ((doubleget_union *)&V)->m[0]; \
100
*(((long *) T)+1) = ((doubleget_union *)&V)->m[1]; \
102
#define float4get(V,M) do { *((float *) &(V)) = *((float*) (M)); } while(0)
103
#define float8get(V,M) doubleget((V),(M))
104
#define float4store(V,M) memcpy(V, (&M), sizeof(float))
105
#define floatstore(T,V) memcpy((T), (&V), sizeof(float))
106
#define floatget(V,M) memcpy(&V, (M), sizeof(float))
107
#define float8store(V,M) doublestore((V),(M))
111
We're here if it's not a IA-32 architecture (Win32 and UNIX IA-32 defines
114
#define sint2korr(A) (int16_t) (((int16_t) ((unsigned char) (A)[0])) +\
115
((int16_t) ((int16_t) (A)[1]) << 8))
116
#define sint3korr(A) ((int32_t) ((((unsigned char) (A)[2]) & 128) ? \
117
(((uint32_t) 255L << 24) | \
118
(((uint32_t) (unsigned char) (A)[2]) << 16) |\
119
(((uint32_t) (unsigned char) (A)[1]) << 8) | \
120
((uint32_t) (unsigned char) (A)[0])) : \
121
(((uint32_t) (unsigned char) (A)[2]) << 16) |\
122
(((uint32_t) (unsigned char) (A)[1]) << 8) | \
123
((uint32_t) (unsigned char) (A)[0])))
124
#define sint4korr(A) (int32_t) (((int32_t) ((unsigned char) (A)[0])) +\
125
(((int32_t) ((unsigned char) (A)[1]) << 8)) +\
126
(((int32_t) ((unsigned char) (A)[2]) << 16)) +\
127
(((int32_t) ((int16_t) (A)[3]) << 24)))
128
#define sint8korr(A) (int64_t) uint8korr(A)
129
#define uint2korr(A) (uint16_t) (((uint16_t) ((unsigned char) (A)[0])) +\
130
((uint16_t) ((unsigned char) (A)[1]) << 8))
131
#define uint3korr(A) (uint32_t) (((uint32_t) ((unsigned char) (A)[0])) +\
132
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
133
(((uint32_t) ((unsigned char) (A)[2])) << 16))
134
#define uint4korr(A) (uint32_t) (((uint32_t) ((unsigned char) (A)[0])) +\
135
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
136
(((uint32_t) ((unsigned char) (A)[2])) << 16) +\
137
(((uint32_t) ((unsigned char) (A)[3])) << 24))
138
#define uint5korr(A) ((uint64_t)(((uint32_t) ((unsigned char) (A)[0])) +\
139
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
140
(((uint32_t) ((unsigned char) (A)[2])) << 16) +\
141
(((uint32_t) ((unsigned char) (A)[3])) << 24)) +\
142
(((uint64_t) ((unsigned char) (A)[4])) << 32))
143
#define uint6korr(A) ((uint64_t)(((uint32_t) ((unsigned char) (A)[0])) + \
144
(((uint32_t) ((unsigned char) (A)[1])) << 8) + \
145
(((uint32_t) ((unsigned char) (A)[2])) << 16) + \
146
(((uint32_t) ((unsigned char) (A)[3])) << 24)) + \
147
(((uint64_t) ((unsigned char) (A)[4])) << 32) + \
148
(((uint64_t) ((unsigned char) (A)[5])) << 40))
149
#define uint8korr(A) ((uint64_t)(((uint32_t) ((unsigned char) (A)[0])) +\
150
(((uint32_t) ((unsigned char) (A)[1])) << 8) +\
151
(((uint32_t) ((unsigned char) (A)[2])) << 16) +\
152
(((uint32_t) ((unsigned char) (A)[3])) << 24)) +\
153
(((uint64_t) (((uint32_t) ((unsigned char) (A)[4])) +\
154
(((uint32_t) ((unsigned char) (A)[5])) << 8) +\
155
(((uint32_t) ((unsigned char) (A)[6])) << 16) +\
156
(((uint32_t) ((unsigned char) (A)[7])) << 24))) <<\
158
#define int2store(T,A) do { uint32_t def_temp= (uint32_t) (A) ;\
159
*((unsigned char*) (T))= (unsigned char)(def_temp); \
160
*((unsigned char*) (T)+1)=(unsigned char)((def_temp >> 8)); \
162
#define int3store(T,A) do { /*lint -save -e734 */\
163
*((unsigned char*)(T))=(unsigned char) ((A));\
164
*((unsigned char*) (T)+1)=(unsigned char) (((A) >> 8));\
165
*((unsigned char*)(T)+2)=(unsigned char) (((A) >> 16)); \
166
/*lint -restore */} while(0)
167
#define int4store(T,A) do { *((char *)(T))=(char) ((A));\
168
*(((char *)(T))+1)=(char) (((A) >> 8));\
169
*(((char *)(T))+2)=(char) (((A) >> 16));\
170
*(((char *)(T))+3)=(char) (((A) >> 24)); } while(0)
171
#define int5store(T,A) do { *((char *)(T))= (char)((A)); \
172
*(((char *)(T))+1)= (char)(((A) >> 8)); \
173
*(((char *)(T))+2)= (char)(((A) >> 16)); \
174
*(((char *)(T))+3)= (char)(((A) >> 24)); \
175
*(((char *)(T))+4)= (char)(((A) >> 32)); \
177
#define int6store(T,A) do { *((char *)(T))= (char)((A)); \
178
*(((char *)(T))+1)= (char)(((A) >> 8)); \
179
*(((char *)(T))+2)= (char)(((A) >> 16)); \
180
*(((char *)(T))+3)= (char)(((A) >> 24)); \
181
*(((char *)(T))+4)= (char)(((A) >> 32)); \
182
*(((char *)(T))+5)= (char)(((A) >> 40)); \
184
#define int8store(T,A) do { uint32_t def_temp= (uint32_t) (A), def_temp2= (uint32_t) ((A) >> 32); \
185
int4store((T),def_temp); \
186
int4store((T+4),def_temp2); } while(0)
187
#ifdef WORDS_BIGENDIAN
188
#define float4store(T,A) do { *(T)= ((unsigned char *) &A)[3];\
189
*((T)+1)=(char) ((unsigned char *) &A)[2];\
190
*((T)+2)=(char) ((unsigned char *) &A)[1];\
191
*((T)+3)=(char) ((unsigned char *) &A)[0]; } while(0)
193
#define float4get(V,M) do { float def_temp;\
194
((unsigned char*) &def_temp)[0]=(M)[3];\
195
((unsigned char*) &def_temp)[1]=(M)[2];\
196
((unsigned char*) &def_temp)[2]=(M)[1];\
197
((unsigned char*) &def_temp)[3]=(M)[0];\
198
(V)=def_temp; } while(0)
199
#define float8store(T,V) do { *(T)= ((unsigned char *) &V)[7];\
200
*((T)+1)=(char) ((unsigned char *) &V)[6];\
201
*((T)+2)=(char) ((unsigned char *) &V)[5];\
202
*((T)+3)=(char) ((unsigned char *) &V)[4];\
203
*((T)+4)=(char) ((unsigned char *) &V)[3];\
204
*((T)+5)=(char) ((unsigned char *) &V)[2];\
205
*((T)+6)=(char) ((unsigned char *) &V)[1];\
206
*((T)+7)=(char) ((unsigned char *) &V)[0]; } while(0)
208
#define float8get(V,M) do { double def_temp;\
209
((unsigned char*) &def_temp)[0]=(M)[7];\
210
((unsigned char*) &def_temp)[1]=(M)[6];\
211
((unsigned char*) &def_temp)[2]=(M)[5];\
212
((unsigned char*) &def_temp)[3]=(M)[4];\
213
((unsigned char*) &def_temp)[4]=(M)[3];\
214
((unsigned char*) &def_temp)[5]=(M)[2];\
215
((unsigned char*) &def_temp)[6]=(M)[1];\
216
((unsigned char*) &def_temp)[7]=(M)[0];\
217
(V) = def_temp; } while(0)
219
#define float4get(V,M) memcpy(&V, (M), sizeof(float))
220
#define float4store(V,M) memcpy(V, (&M), sizeof(float))
222
#if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN)
223
#define doublestore(T,V) do { *(((char*)T)+0)=(char) ((unsigned char *) &V)[4];\
224
*(((char*)T)+1)=(char) ((unsigned char *) &V)[5];\
225
*(((char*)T)+2)=(char) ((unsigned char *) &V)[6];\
226
*(((char*)T)+3)=(char) ((unsigned char *) &V)[7];\
227
*(((char*)T)+4)=(char) ((unsigned char *) &V)[0];\
228
*(((char*)T)+5)=(char) ((unsigned char *) &V)[1];\
229
*(((char*)T)+6)=(char) ((unsigned char *) &V)[2];\
230
*(((char*)T)+7)=(char) ((unsigned char *) &V)[3]; }\
232
#define doubleget(V,M) do { double def_temp;\
233
((unsigned char*) &def_temp)[0]=(M)[4];\
234
((unsigned char*) &def_temp)[1]=(M)[5];\
235
((unsigned char*) &def_temp)[2]=(M)[6];\
236
((unsigned char*) &def_temp)[3]=(M)[7];\
237
((unsigned char*) &def_temp)[4]=(M)[0];\
238
((unsigned char*) &def_temp)[5]=(M)[1];\
239
((unsigned char*) &def_temp)[6]=(M)[2];\
240
((unsigned char*) &def_temp)[7]=(M)[3];\
241
(V) = def_temp; } while(0)
242
#endif /* __FLOAT_WORD_ORDER */
244
#define float8get(V,M) doubleget((V),(M))
245
#define float8store(V,M) doublestore((V),(M))
246
#endif /* WORDS_BIGENDIAN */
248
#endif /* __i386__ */
251
Macro for reading 32-bit integer from network byte order (big-endian)
252
from unaligned memory location.
254
#define int4net(A) (int32_t) (((uint32_t) ((unsigned char) (A)[3])) |\
255
(((uint32_t) ((unsigned char) (A)[2])) << 8) |\
256
(((uint32_t) ((unsigned char) (A)[1])) << 16) |\
257
(((uint32_t) ((unsigned char) (A)[0])) << 24))
259
Define-funktions for reading and storing in machine format from/to
260
short/long to/from some place in memory V should be a (not
261
register) variable, M is a pointer to byte
264
#ifdef WORDS_BIGENDIAN
266
#define ushortget(V,M) do { V = (uint16_t) (((uint16_t) ((unsigned char) (M)[1]))+\
267
((uint16_t) ((uint16_t) (M)[0]) << 8)); } while(0)
268
#define shortget(V,M) do { V = (short) (((short) ((unsigned char) (M)[1]))+\
269
((short) ((short) (M)[0]) << 8)); } while(0)
270
#define longget(V,M) do { int32_t def_temp;\
271
((unsigned char*) &def_temp)[0]=(M)[0];\
272
((unsigned char*) &def_temp)[1]=(M)[1];\
273
((unsigned char*) &def_temp)[2]=(M)[2];\
274
((unsigned char*) &def_temp)[3]=(M)[3];\
275
(V)=def_temp; } while(0)
276
#define ulongget(V,M) do { uint32_t def_temp;\
277
((unsigned char*) &def_temp)[0]=(M)[0];\
278
((unsigned char*) &def_temp)[1]=(M)[1];\
279
((unsigned char*) &def_temp)[2]=(M)[2];\
280
((unsigned char*) &def_temp)[3]=(M)[3];\
281
(V)=def_temp; } while(0)
282
#define shortstore(T,A) do { uint32_t def_temp=(uint32_t) (A) ;\
283
*(((char*)T)+1)=(char)(def_temp); \
284
*(((char*)T)+0)=(char)(def_temp >> 8); } while(0)
285
#define longstore(T,A) do { *(((char*)T)+3)=((A));\
286
*(((char*)T)+2)=(((A) >> 8));\
287
*(((char*)T)+1)=(((A) >> 16));\
288
*(((char*)T)+0)=(((A) >> 24)); } while(0)
290
#define floatget(V,M) memcpy(&V, (M), sizeof(float))
291
#define floatstore(T, V) memcpy((T), (&V), sizeof(float))
292
#define doubleget(V, M) memcpy(&V, (M), sizeof(double))
293
#define doublestore(T, V) memcpy((T), &V, sizeof(double))
294
#define int64_tget(V, M) memcpy(&V, (M), sizeof(uint64_t))
295
#define int64_tstore(T, V) memcpy((T), &V, sizeof(uint64_t))
299
#define ushortget(V,M) do { V = uint2korr(M); } while(0)
300
#define shortget(V,M) do { V = sint2korr(M); } while(0)
301
#define longget(V,M) do { V = sint4korr(M); } while(0)
302
#define ulongget(V,M) do { V = uint4korr(M); } while(0)
303
#define shortstore(T,V) int2store(T,V)
304
#define longstore(T,V) int4store(T,V)
306
#define floatstore(T,V) memcpy((T), (&V), sizeof(float))
307
#define floatget(V,M) memcpy(&V, (M), sizeof(float))
310
#define doubleget(V, M) memcpy(&V, (M), sizeof(double))
311
#define doublestore(T,V) memcpy((T), &V, sizeof(double))
312
#endif /* doubleget */
313
#define int64_tget(V,M) memcpy(&V, (M), sizeof(uint64_t))
314
#define int64_tstore(T,V) memcpy((T), &V, sizeof(uint64_t))
316
#endif /* WORDS_BIGENDIAN */
318
#endif /* DRIZZLED_KORR_H */
added
removed
drizzled/korr.h
