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
|
#if 0
%---------------------------------------------------------------*
%
\section{Underlying code for converting to/from ``bytes''}
%
%---------------------------------------------------------------*
Stolen from HBC, more or less.
A \tr{I_ foo2bytes__(foo in, ptr arr)} routine takes a \tr{foo}
input \tr{in}, scribbles some appropriate bytes into the array passed
to it, \tr{arr}, and returns the number of bytes so put.
A \tr{I_ bytes2foo__(ptr arr, foo *out)} routine looks at the
array of bytes given to it (\tr{arr}) and gives them back interpreted
as a \tr{foo} (sticks it in the place pointed to by \tr{out}). It
returns the number of bytes taken.
\begin{code}
#endif /* 0 */
#include "Rts.h"
#include "ByteOps.h"
#if __STDC__
/* need the ANSI arg decl, so "short" and "float" args dont get promoted */
#define X2BYTES(type) \
I_ \
type##2bytes__(type in, unsigned char *arr) \
{ \
union { \
type i; \
unsigned char cs[sizeof (type)]; \
} u; \
int k; \
\
u.i = in; \
for (k = sizeof (type) - 1; k >= 0; k--) \
arr[k] = u.cs[k]; \
\
return(sizeof (type)); \
}
#else /* not STDC */
#define X2BYTES(type) \
I_ \
type##2bytes__(type in, unsigned char *arr) \
{ \
union { \
type i; \
unsigned char cs[sizeof (type)]; \
} u; \
int k; \
\
u.i = in; \
for (k = sizeof (type) - 1; k >= 0; k--) \
arr[k] = u.cs[k]; \
\
return(sizeof (type)); \
}
#endif /* not STDC */
X2BYTES(long)
X2BYTES(int)
X2BYTES(short)
X2BYTES(float)
X2BYTES(double)
#define BYTES2X(ctype,htype) \
I_ \
bytes2##ctype##__(P_ in, htype *out) \
{ \
union { \
ctype i; \
unsigned char cs[sizeof (ctype)]; \
} u; \
unsigned int k; \
unsigned char *arr = (unsigned char *) in; \
\
for (k = 0; k < sizeof(ctype); k++) \
u.cs[k] = arr[k]; \
\
*out = (htype) u.i; \
\
return(sizeof (ctype)); \
}
#define BYTES2FX(ctype,htype,assign_fx) \
I_ \
bytes2##ctype##__(P_ in, htype *out) \
{ \
union { \
ctype i; \
unsigned char cs[sizeof (ctype)]; \
} u; \
unsigned int k; \
unsigned char *arr = (unsigned char *) in; \
\
for (k = 0; k < sizeof(ctype); k++) \
u.cs[k] = arr[k]; \
\
assign_fx((P_)out, (htype) u.i); \
\
return(sizeof (ctype)); \
}
BYTES2X(long,I_)
BYTES2X(int,I_)
BYTES2X(short,I_)
BYTES2FX(float,StgFloat,ASSIGN_FLT)
BYTES2FX(double,StgDouble,ASSIGN_DBL)
|
