#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)