php-src/ext/mysqlnd/mysqlnd_portability.h

/* Copyright Abandoned 1996 TCX DataKonsult AB & Monty Program KB & Detron HB 
This file is public domain and comes with NO WARRANTY of any kind */

/*
  Parts of the original, which are not applicable to mysqlnd have been removed.
  
  With small modifications, mostly casting but adding few more macros by
  Andrey Hristov <andrey@mysql.com> . The additions are in the public domain and
  were added to improve the header file, to get it more consistent.
*/

/* Comes from global.h as OFFSET, renamed to STRUCT_OFFSET */
#define STRUCT_OFFSET(t, f)   ((size_t)(char *)&((t *)0)->f)

#ifndef __attribute
#if !defined(__GNUC__)
#define __attribute(A)
#endif
#endif

#ifdef __CYGWIN__
/* We use a Unix API, so pretend it's not Windows */
#undef WIN
#undef WIN32
#undef _WIN
#undef _WIN32
#undef _WIN64
#undef __WIN__
#undef __WIN32__
#endif /* __CYGWIN__ */

#if defined(_WIN32) || defined(_WIN64) || defined(__WIN32__) || defined(WIN32)
#  include <ext/mysqlnd/config-win.h>
#else 
#  include "ext/mysqlnd/php_mysqlnd_config.h"
#endif /* _WIN32... */

#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif

#ifdef HAVE_STDINT_H
#include <stdint.h>
#endif

#if SIZEOF_LONG_LONG > 4 && !defined(_LONG_LONG)
#define _LONG_LONG 1        /* For AIX string library */
#endif


/* Go around some bugs in different OS and compilers */
#if defined(_HPUX_SOURCE) && defined(HAVE_SYS_STREAM_H)
#include <sys/stream.h>        /* HPUX 10.20 defines ulong here. UGLY !!! */
#define HAVE_ULONG
#endif


#if SIZEOF_LONG_LONG > 4
#define HAVE_LONG_LONG 1
#endif

/* Typdefs for easyier portability */

#ifndef HAVE_INT8_T
#ifndef HAVE_INT8
typedef signed char int8_t;			/* Signed integer >= 8    bits */
#else
typedef int8 int8_t;				/* Signed integer >= 8    bits */
#endif
#endif


#ifndef HAVE_UINT8_T
#ifndef HAVE_UINT8
typedef unsigned char uint8_t;		/* Unsigned integer >= 8    bits */
#else
typedef uint8 uint8_t;				/* Signed integer >= 8    bits */
#endif
#endif

#ifndef HAVE_INT16_T
#ifndef HAVE_INT16
typedef signed short int16_t;		/* Signed integer >= 16 bits */
#else
typedef int16 int16_t;				/* Signed integer >= 16 bits */
#endif
#endif

#ifndef HAVE_UINT16_T
#ifndef HAVE_UINT16
typedef unsigned short uint16_t;		/* Signed integer >= 16 bits */
#else
typedef uint16 uint16_t;			/* Signed integer >= 16 bits */
#endif
#endif

#ifndef HAVE_UCHAR
typedef unsigned char uchar;		/* Short for unsigned char */
#endif

#ifndef HAVE_INT32_T
#ifdef HAVE_INT32
typedef int32 int32_t;
#elif SIZEOF_INT == 4
typedef signed int int32_t;
#elif SIZEOF_LONG == 4
typedef signed long int32_t;
#else
error "Neither int nor long is of 4 bytes width"
#endif
#endif /* HAVE_INT32_T */


#ifndef HAVE_UINT32_T
#ifdef HAVE_UINT32
typedef uint32 uint32_t;
#elif SIZEOF_INT == 4
typedef unsigned int uint32_t;
#elif SIZEOF_LONG == 4
typedef unsigned long uint32_t;
#else
#error "Neither int nor long is of 4 bytes width"
#endif
#endif /* HAVE_UINT32_T */


#ifndef HAVE_INT64_T
#ifdef HAVE_INT64
typedef int64 int64_t;
#elif SIZEOF_INT == 8
typedef signed int int64_t;
#elif SIZEOF_LONG == 8
typedef signed long int64_t;
#elif SIZEOF_LONG_LONG == 8
#ifdef PHP_WIN32
typedef __int64 int64_t;
#else
typedef signed long long int64_t;
#endif
#else
#error "Neither int nor long nor long long is of 8 bytes width"
#endif
#endif /* HAVE_INT64_T */


#ifndef HAVE_UINT64_T
#ifdef HAVE_UINT64
typedef uint64 uint64_t;
#elif SIZEOF_INT == 8
typedef unsigned int uint64_t;
#elif SIZEOF_LONG == 8
typedef unsigned long uint64_t;
#elif SIZEOF_LONG_LONG == 8
#ifdef PHP_WIN32
typedef unsigned __int64 uint64_t;
#else
typedef unsigned long long uint64_t;
#endif
#else
#error "Neither int nor long nor long long is of 8 bytes width"
#endif
#endif /* HAVE_INT64_T */


#ifdef PHP_WIN32
#define MYSQLND_LLU_SPEC "%I64u"
#define MYSQLND_LL_SPEC "%I64d"
#define MYSQLND_SZ_T_SPEC "%Id"
#ifndef L64
#define L64(x) x##i64
#endif
#else
#define MYSQLND_LLU_SPEC "%llu"
#define MYSQLND_LL_SPEC "%lld"
#define MYSQLND_SZ_T_SPEC "%zd"
#ifndef L64
#define L64(x) x##LL
#endif
#endif


typedef int64_t longlong;
typedef uint64_t ulonglong;


#define int1store(T,A)	do { *((zend_uchar*) (T)) = (A); } while(0)
#define uint1korr(A)	(*(((uint8_t*)(A))))

/* Bit values are sent in reverted order of bytes, compared to normal !!! */
#define bit_uint2korr(A) ((uint16_t) (((uint16_t) (((uchar*) (A))[1])) +\
									((uint16_t) (((uchar*) (A))[0]) << 8)))
#define bit_uint3korr(A) ((uint32_t) (((uint32_t) (((uchar*) (A))[2])) +\
									(((uint32_t) (((uchar*) (A))[1])) << 8) +\
									(((uint32_t) (((uchar*) (A))[0])) << 16)))

#define bit_uint4korr(A) ((uint32_t) (((uint32_t) (((uchar*) (A))[3])) +\
									(((uint32_t) (((uchar*) (A))[2])) << 8) +\
									(((uint32_t) (((uchar*) (A))[1])) << 16) +\
									(((uint32_t) (((uchar*) (A))[0])) << 24)))

#define bit_uint5korr(A)  ((ulonglong)(((uint32_t) ((uchar) (A)[4])) +\
                                  (((uint32_t) ((uchar) (A)[3])) << 8) +\
                                  (((uint32_t) ((uchar) (A)[2])) << 16) +\
                                  (((uint32_t) ((uchar) (A)[1])) << 24)) +\
                               (((ulonglong) ((uchar) (A)[0])) << 32))

#define bit_uint6korr(A)	((ulonglong)(((uint32_t) (((uchar*) (A))[5])) +\
									(((uint32_t) (((uchar*) (A))[4])) << 8) +\
									(((uint32_t) (((uchar*) (A))[3])) << 16) +\
									(((uint32_t) (((uchar*) (A))[2])) << 24)) +\
									(((ulonglong) (((uint32_t) (((uchar*) (A))[1])) +\
									(((uint32_t) (((uchar*) (A))[0]) << 8)))) << 32))

#define bit_uint7korr(A)	((ulonglong)(((uint32_t) (((uchar*) (A))[6])) +\
									(((uint32_t) (((uchar*) (A))[5])) << 8) +\
									(((uint32_t) (((uchar*) (A))[4])) << 16) +\
									(((uint32_t) (((uchar*) (A))[3])) << 24)) +\
									(((ulonglong) (((uint32_t) (((uchar*) (A))[2])) +\
									(((uint32_t) (((uchar*) (A))[1])) << 8) +\
									(((uint32_t) (((uchar*) (A))[0])) << 16))) << 32))


#define bit_uint8korr(A) ((ulonglong)(((uint32_t) (((uchar*) (A))[7])) +\
									(((uint32_t) (((uchar*) (A))[6])) << 8) +\
									(((uint32_t) (((uchar*) (A))[5])) << 16) +\
									(((uint32_t) (((uchar*) (A))[4])) << 24)) +\
									(((ulonglong) (((uint32_t) (((uchar*) (A))[3])) +\
									(((uint32_t) (((uchar*) (A))[2])) << 8) +\
									(((uint32_t) (((uchar*) (A))[1])) << 16) +\
									(((uint32_t) (((uchar*) (A))[0])) << 24))) << 32))


/*
** Define-funktions for reading and storing in machine independent format
**  (low byte first)
*/

/* Optimized store functions for Intel x86, non-valid for WIN64 */
#if defined(__i386__) && !defined(_WIN64)
#define sint2korr(A)    (*((int16_t *) (A)))
#define sint3korr(A)    ((int32_t) ((((uchar) (A)[2]) & 128) ? \
                   (((uint32_t) 255L << 24) | \
                   (((uint32_t) (uchar) (A)[2]) << 16) |\
                   (((uint32_t) (uchar) (A)[1]) << 8) | \
                    ((uint32_t) (uchar) (A)[0])) : \
                   (((uint32_t) (uchar) (A)[2]) << 16) |\
                   (((uint32_t) (uchar) (A)[1]) << 8) | \
                    ((uint32_t) (uchar) (A)[0])))
#define sint4korr(A)  (*((long *) (A)))

#define uint2korr(A)  (*((uint16_t *) (A)))
#define uint3korr(A)  (uint32_t) (((uint32_t) ((uchar) (A)[0])) +\
                               (((uint32_t) ((uchar) (A)[1])) << 8) +\
                               (((uint32_t) ((uchar) (A)[2])) << 16))
#define uint4korr(A)  (*((unsigned long *) (A)))



#define uint8korr(A)    (*((ulonglong *) (A)))
#define sint8korr(A)    (*((longlong *) (A)))
#define int2store(T,A)    *((uint16_t*) (T))= (uint16_t) (A)
#define int3store(T,A)   { \
                  *(T)=  (uchar) ((A));\
                  *(T+1)=(uchar) (((uint32_t) (A) >> 8));\
                  *(T+2)=(uchar) (((A) >> 16)); }
#define int4store(T,A)    *((long *) (T))= (long) (A)
#define int5store(T,A)    { \
              *((uchar *)(T))= (uchar)((A));\
              *(((uchar *)(T))+1)=(uchar) (((A) >> 8));\
              *(((uchar *)(T))+2)=(uchar) (((A) >> 16));\
              *(((uchar *)(T))+3)=(uchar) (((A) >> 24)); \
              *(((uchar *)(T))+4)=(uchar) (((A) >> 32)); }

/* From Andrey Hristov, based on int5store() */
#define int6store(T,A)    { \
              *(((uchar *)(T)))= (uchar)((A));\
              *(((uchar *)(T))+1))=(uchar) (((A) >> 8));\
              *(((uchar *)(T))+2))=(uchar) (((A) >> 16));\
              *(((uchar *)(T))+3))=(uchar) (((A) >> 24)); \
              *(((uchar *)(T))+4))=(uchar) (((A) >> 32)); \
              *(((uchar *)(T))+5))=(uchar) (((A) >> 40)); }

#define int8store(T,A)    *((ulonglong *) (T))= (ulonglong) (A)

typedef union {
  double v;
  long m[2];
} doubleget_union;
#define doubleget(V,M)    { ((doubleget_union *)&(V))->m[0] = *((long*) (M)); \
                            ((doubleget_union *)&(V))->m[1] = *(((long*) (M))+1); }
#define doublestore(T,V) { *((long *) (T))     = ((doubleget_union *)&(V))->m[0]; \
                           *(((long *) (T))+1) = ((doubleget_union *)&(V))->m[1]; }
#define float4get(V,M)	{ *((float *) &(V)) = *((float*) (M)); }
#define float8get(V,M)	doubleget((V),(M))
/* From Andrey Hristov based on doubleget */
#define floatget(V,M)    memcpy((char*) &(V),(char*) (M),sizeof(float))
#define floatstore       float4store
#define float4store(V,M) memcpy((char*) (V),(char*) (&M),sizeof(float))
#define float8store(V,M) doublestore((V),(M))
#endif /* __i386__ */ 

#ifndef sint2korr
#define sint2korr(A)    (int16_t) (((int16_t) ((uchar) (A)[0])) +\
                                 ((int16_t) ((int16_t) (A)[1]) << 8))
#define sint3korr(A)    ((int32_t) ((((uchar) (A)[2]) & 128) ? \
                  (((uint32_t) 255L << 24) | \
                  (((uint32_t) (uchar) (A)[2]) << 16) |\
                  (((uint32_t) (uchar) (A)[1]) << 8) | \
                   ((uint32_t) (uchar) (A)[0])) : \
                  (((uint32_t) (uchar) (A)[2]) << 16) |\
                  (((uint32_t) (uchar) (A)[1]) << 8) | \
                  ((uint32_t) (uchar) (A)[0])))
#define sint4korr(A)  (int32_t) (((int32_t) ((uchar) (A)[0])) +\
                              (((int32_t) ((uchar) (A)[1]) << 8)) +\
                              (((int32_t) ((uchar) (A)[2]) << 16)) +\
                              (((int32_t) ((int16_t) (A)[3]) << 24)))

#define sint8korr(A)  (longlong) uint8korr(A)
#define uint2korr(A)  (uint16_t) (((uint16_t) ((uchar) (A)[0])) +\
                               ((uint16_t) ((uchar) (A)[1]) << 8))
#define uint3korr(A)  (uint32_t) (((uint32_t) ((uchar) (A)[0])) +\
                               (((uint32_t) ((uchar) (A)[1])) << 8) +\
                               (((uint32_t) ((uchar) (A)[2])) << 16))
#define uint4korr(A)  (uint32_t) (((uint32_t) ((uchar) (A)[0])) +\
                               (((uint32_t) ((uchar) (A)[1])) << 8) +\
                               (((uint32_t) ((uchar) (A)[2])) << 16) +\
                               (((uint32_t) ((uchar) (A)[3])) << 24))


#define bit_uint8korr(A) ((ulonglong)(((uint32_t) (((uchar*) (A))[7])) +\
									(((uint32_t) (((uchar*) (A))[6])) << 8) +\
									(((uint32_t) (((uchar*) (A))[5])) << 16) +\
									(((uint32_t) (((uchar*) (A))[4])) << 24)) +\
									(((ulonglong) (((uint32_t) (((uchar*) (A))[3])) +\
									(((uint32_t) (((uchar*) (A))[2])) << 8) +\
									(((uint32_t) (((uchar*) (A))[1])) << 16) +\
									(((uint32_t) (((uchar*) (A))[0])) << 24))) << 32))

#define uint8korr(A)	((ulonglong)(((uint32_t) ((uchar) (A)[0])) +\
									(((uint32_t) ((uchar) (A)[1])) << 8) +\
									(((uint32_t) ((uchar) (A)[2])) << 16) +\
									(((uint32_t) ((uchar) (A)[3])) << 24)) +\
									(((ulonglong) (((uint32_t) ((uchar) (A)[4])) +\
									(((uint32_t) ((uchar) (A)[5])) << 8) +\
									(((uint32_t) ((uchar) (A)[6])) << 16) +\
									(((uint32_t) ((uchar) (A)[7])) << 24))) << 32))


#define int2store(T,A)  do { uint32_t def_temp= (uint32_t) (A) ;\
                  *((uchar*) (T))  =  (uchar)(def_temp); \
                  *((uchar*) (T+1)) = (uchar)((def_temp >> 8)); } while (0)
#define int3store(T,A)  do { /*lint -save -e734 */\
                  *(((char *)(T)))   = (char) ((A));\
                  *(((char *)(T))+1) = (char) (((A) >> 8));\
                  *(((char *)(T))+2) = (char) (((A) >> 16)); \
                  /*lint -restore */} while (0)
#define int4store(T,A)  do { \
                  *(((char *)(T)))   = (char) ((A));\
                  *(((char *)(T))+1) = (char) (((A) >> 8));\
                  *(((char *)(T))+2) = (char) (((A) >> 16));\
                  *(((char *)(T))+3) = (char) (((A) >> 24)); } while (0)
#define int5store(T,A)  do { \
                  *(((char *)(T)))   = (char)((A));\
                  *(((char *)(T))+1) = (char)(((A) >> 8));\
                  *(((char *)(T))+2) = (char)(((A) >> 16));\
                  *(((char *)(T))+3) = (char)(((A) >> 24)); \
                  *(((char *)(T))+4) = (char)(((A) >> 32)); } while (0)
/* Based on int5store() from Andrey Hristov */
#define int6store(T,A)  do { \
                  *(((char *)(T)))   = (char)((A));\
                  *(((char *)(T))+1) = (char)(((A) >> 8));\
                  *(((char *)(T))+2) = (char)(((A) >> 16));\
                  *(((char *)(T))+3) = (char)(((A) >> 24)); \
                  *(((char *)(T))+4) = (char)(((A) >> 32)); \
                  *(((char *)(T))+5) = (char)(((A) >> 40)); } while (0)
#define int8store(T,A)        { uint32_t def_temp= (uint32_t) (A), def_temp2= (uint32_t) ((A) >> 32); \
                  int4store((T),def_temp); \
                  int4store((T+4),def_temp2); \
                }
#ifdef WORDS_BIGENDIAN
#define float4store(T,A) do { \
                          *(((char *)(T)))   = (char) ((char *) &A)[3];\
                          *(((char *)(T))+1) = (char) ((char *) &A)[2];\
                          *(((char *)(T))+2) = (char) ((char *) &A)[1];\
                          *(((char *)(T))+3) = (char) ((char *) &A)[0]; } while (0)

#define float4get(V,M)   do { float def_temp;\
                          ((char*) &def_temp)[0] = (M)[3];\
                          ((char*) &def_temp)[1] = (M)[2];\
                          ((char*) &def_temp)[2] = (M)[1];\
                          ((char*) &def_temp)[3] = (M)[0];\
                          (V)=def_temp; } while (0)
#define float8store(T,V)  do { \
                           *(((char *)(T)))   = (char) ((char *) &(V))[7];\
                           *(((char *)(T))+1) = (char) ((char *) &(V))[6];\
                           *(((char *)(T))+2) = (char) ((char *) &(V))[5];\
                           *(((char *)(T))+3) = (char) ((char *) &(V))[4];\
                           *(((char *)(T))+4) = (char) ((char *) &(V))[3];\
                           *(((char *)(T))+5) = (char) ((char *) &(V))[2];\
                           *(((char *)(T))+6) = (char) ((char *) &(V))[1];\
                           *(((char *)(T))+7) = (char) ((char *) &(V))[0]; } while (0)

#define float8get(V,M)   do { double def_temp;\
                          ((char*) &def_temp)[0] = (M)[7];\
                          ((char*) &def_temp)[1] = (M)[6];\
                          ((char*) &def_temp)[2] = (M)[5];\
                          ((char*) &def_temp)[3] = (M)[4];\
                          ((char*) &def_temp)[4] = (M)[3];\
                          ((char*) &def_temp)[5] = (M)[2];\
                          ((char*) &def_temp)[6] = (M)[1];\
                          ((char*) &def_temp)[7] = (M)[0];\
                          (V) = def_temp; \
                         } while (0)
#else
#define float4get(V,M)   memcpy((char*) &(V),(char*) (M),sizeof(float))
#define float4store(V,M) memcpy((char*) (V),(char*) (&M),sizeof(float))

#if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN)
#define doublestore(T,V)  do { \
                         *(((char *)(T)))= ((char *) &(V))[4];\
                         *(((char *)(T))+1)=(char) ((char *) &(V))[5];\
                         *(((char *)(T))+2)=(char) ((char *) &(V))[6];\
                         *(((char *)(T))+3)=(char) ((char *) &(V))[7];\
                         *(((char *)(T))+4)=(char) ((char *) &(V))[0];\
                         *(((char *)(T))+5)=(char) ((char *) &(V))[1];\
                         *(((char *)(T))+6)=(char) ((char *) &(V))[2];\
                         *(((char *)(T))+7)=(char) ((char *) &(V))[3];} while (0)
#define doubleget(V,M) do { double def_temp;\
                         ((char*) &def_temp)[0]=(M)[4];\
                         ((char*) &def_temp)[1]=(M)[5];\
                         ((char*) &def_temp)[2]=(M)[6];\
                         ((char*) &def_temp)[3]=(M)[7];\
                         ((char*) &def_temp)[4]=(M)[0];\
                         ((char*) &def_temp)[5]=(M)[1];\
                         ((char*) &def_temp)[6]=(M)[2];\
                         ((char*) &def_temp)[7]=(M)[3];\
                         (V) = def_temp; } while (0)
#endif /* __FLOAT_WORD_ORDER */

#define float8get(V,M)   doubleget((V),(M))
#define float8store(V,M) doublestore((V),(M))
#endif /* WORDS_BIGENDIAN */

#endif /* sint2korr */

/* Define-funktions for reading and storing in machine format from/to
   short/long to/from some place in memory V should be a (not
   register) variable, M is a pointer to byte */

#ifdef WORDS_BIGENDIAN

#define ushortget(V,M)  { V = (uint16_t) (((uint16_t) ((uchar) (M)[1]))+\
                                        ((uint16_t) ((uint16_t) (M)[0]) << 8)); }
#define shortget(V,M)   { V = (int16_t) (((int16_t) ((uchar) (M)[1]))+\
                                       ((int16_t) ((int16_t) (M)[0]) << 8)); }
#define longget(V,M)    do { int32_t def_temp;\
              ((char*) &def_temp)[0]=(M)[0];\
              ((char*) &def_temp)[1]=(M)[1];\
              ((char*) &def_temp)[2]=(M)[2];\
              ((char*) &def_temp)[3]=(M)[3];\
              (V)=def_temp; } while (0)
#define ulongget(V,M)    do { uint32_t def_temp;\
              ((char*) &def_temp)[0]=(M)[0];\
              ((char*) &def_temp)[1]=(M)[1];\
              ((char*) &def_temp)[2]=(M)[2];\
              ((char*) &def_temp)[3]=(M)[3];\
              (V)=def_temp; }  while (0)
#define shortstore(T,A) do { \
              uint32_t def_temp=(uint32_t) (A) ;\
              *(((char *)(T))+1)=(char)(def_temp); \
              *(((char *)(T))+0)=(char)(def_temp >> 8); } while (0)
#define longstore(T,A)  do { \
              *(((char *)(T))+3)=(char)((A));\
              *(((char *)(T))+2)=(char)(((A) >> 8));\
              *(((char *)(T))+1)=(char)(((A) >> 16));\
              *(((char *)(T))+0)=(char)(((A) >> 24)); }  while (0)

#define doubleget(V,M)		memcpy((char*) &(V),(char*)  (M), sizeof(double))
#define doublestore(T,V)	memcpy((char*)  (T),(char*) &(V), sizeof(double))
#define longlongget(V,M)	memcpy((char*) &(V),(char*)  (M), sizeof(ulonglong))
#define longlongstore(T,V)	memcpy((char*)  (T),(char*) &(V), sizeof(ulonglong))

#else

#define ushortget(V,M)  { V = uint2korr((M)); }
#define shortget(V,M)   { V = sint2korr((M)); }
#define longget(V,M)    { V = sint4korr((M)); }
#define ulongget(V,M)   { V = uint4korr((M)); }
#define shortstore(T,V)   int2store((T),(V))
#define longstore(T,V)    int4store((T),(V))
#ifndef doubleget
#define doubleget(V,M)    memcpy((char*) &(V),(char*) (M),sizeof(double))
#define doublestore(T,V)  memcpy((char*) (T),(char*) &(V),sizeof(double))
#endif /* doubleget */
#define longlongget(V,M)   memcpy((char*) &(V),(char*) (M),sizeof(ulonglong))
#define longlongstore(T,V) memcpy((char*) (T),(char*) &(V),sizeof(ulonglong))

#endif /* WORDS_BIGENDIAN */



/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 * vim600: noet sw=4 ts=4 fdm=marker
 * vim<600: noet sw=4 ts=4
 */