rendianness.h

Go to the documentation of this file.

/* RLIB - Convenience library for useful things
 * Copyright (C) 2015-2016  Haakon Sporsheim <haakon.sporsheim@gmail.com>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 3.0 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library.
 * See the COPYING file at the root of the source repository.
 */
#ifndef __R_ENDIANNESS_H__
#define __R_ENDIANNESS_H__
 
#if !defined(__RLIB_H_INCLUDE_GUARD__) && !defined(RLIB_COMPILATION)
#error "#include <rlib.h> only please."
#endif
 
/* This header is included by rtypes.h (@ bottom of file) */
 
R_BEGIN_DECLS
 
#define R_LITTLE_ENDIAN         1234
#define R_BIG_ENDIAN            4321
 
#if R_GNUC_PREREQ(4, 2)
/* Apparently 16bit byteswap is missing from some versions of GCC on x86?? */
#if !defined(__clang__) && !R_GNUC_PREREQ(4, 8)
#define RUINT16_BSWAP(val) ((ruint16) (((ruint16)(val) >> 8) | ((ruint16)(val) << 8)))
#else
#define RUINT16_BSWAP(val) ((ruint16) __builtin_bswap16 ((rint16) (val)))
#endif
#define RUINT32_BSWAP(val) ((ruint32) __builtin_bswap32 ((rint32) (val)))
#define RUINT64_BSWAP(val) ((ruint64) __builtin_bswap64 ((rint64) (val)))
#elif defined(_MSC_VER)
#define RUINT16_BSWAP(val) (_byteswap_ushort ((unsigned short)(val)))
#define RUINT32_BSWAP(val) (_byteswap_ulong ((unsigned long)(val)))
#define RUINT64_BSWAP(val) (_byteswap_uint64 ((unsigned __int64)(val)))
#else
#define RUINT16_BSWAP(val) ((ruint16) (((ruint16)(val) >> 8) | ((ruint16)(val) << 8)))
#define RUINT32_BSWAP(val) ((ruint32) (                                   \
    ((((ruint32)(val))             ) >> 24) |                             \
    ((((ruint32)(val)) & 0x00FF0000) >>  8) |                             \
    ((((ruint32)(val)) & 0x0000FF00) <<  8) |                             \
    ((((ruint32)(val))             ) << 24)))
#define RUINT64_BSWAP(val)  ((ruint64) (                                  \
      (((ruint64)(val) & RUINT64_CONSTANT (0x00000000000000FF)) << 56) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x000000000000FF00)) << 40) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x0000000000FF0000)) << 24) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x00000000FF000000)) <<  8) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x000000FF00000000)) >>  8) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x0000FF0000000000)) >> 24) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0x00FF000000000000)) >> 40) | \
      (((ruint64)(val) & RUINT64_CONSTANT (0xFF00000000000000)) >> 56)))
#endif
 
#if defined(_MSC_VER)
#define R_BYTE_ORDER R_LITTLE_ENDIAN
#elif  __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
#define R_BYTE_ORDER R_LITTLE_ENDIAN
#elif __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
#define R_BYTE_ORDER R_BIG_ENDIAN
#else
/* If your compiler doesn't support __BYTE_ORDER__ this doesn't work! */
#warning "__BYTE_ORDER__ not defined"
#endif
 
#if R_BYTE_ORDER == R_BIG_ENDIAN
#define RINT16_TO_BE(val)   ((rint16)  (val))
#define RUINT16_TO_BE(val)  ((ruint16) (val))
#define RINT16_TO_LE(val)   ((rint16) RUINT16_BSWAP (val))
#define RUINT16_TO_LE(val)  (RUINT16_BSWAP (val))
#define RINT32_TO_BE(val)   ((rint32)  (val))
#define RUINT32_TO_BE(val)  ((ruint32) (val))
#define RINT32_TO_LE(val)   ((rint32) RUINT32_BSWAP (val))
#define RUINT32_TO_LE(val)  (RUINT32_BSWAP (val))
#define RINT64_TO_BE(val)   ((rint64)  (val))
#define RUINT64_TO_BE(val)  ((ruint64) (val))
#define RINT64_TO_LE(val)   ((rint64) RUINT64_BSWAP (val))
#define RUINT64_TO_LE(val)  (RUINT64_BSWAP (val))
#elif R_BYTE_ORDER == R_LITTLE_ENDIAN
#define RINT16_TO_LE(val)     ((rint16)  (val))
#define RUINT16_TO_LE(val)    ((ruint16) (val))
#define RINT16_TO_BE(val)     ((rint16) RUINT16_BSWAP (val))
#define RUINT16_TO_BE(val)    (RUINT16_BSWAP (val))
#define RINT32_TO_LE(val)     ((rint32)  (val))
#define RUINT32_TO_LE(val)    ((ruint32) (val))
#define RINT32_TO_BE(val)     ((rint32) RUINT32_BSWAP (val))
#define RUINT32_TO_BE(val)    (RUINT32_BSWAP (val))
#define RINT64_TO_LE(val)     ((rint64)  (val))
#define RUINT64_TO_LE(val)    ((ruint64) (val))
#define RINT64_TO_BE(val)     ((rint64) RUINT64_BSWAP (val))
#define RUINT64_TO_BE(val)    (RUINT64_BSWAP (val))
#else
#error "__BYTE_ORDER__ is not supported"
#endif
 
#if RLIB_SIZEOF_SIZE_T == 8
#define RSIZE_TO_LE(val)      ((rsize)  RUINT64_TO_LE (val))
#define RSSIZE_TO_LE(val)     ((rssize) RINT64_TO_LE  (val))
#define RSIZE_TO_BE(val)      ((rsize)  RUINT64_TO_BE (val))
#define RSSIZE_TO_BE(val)     ((rssize) RINT64_TO_BE  (val))
#elif RLIB_SIZEOF_SIZE_T == 4
#define RSIZE_TO_LE(val)      ((rsize)  RUINT32_TO_LE (val))
#define RSSIZE_TO_LE(val)     ((rssize) RINT32_TO_LE  (val))
#define RSIZE_TO_BE(val)      ((rsize)  RUINT32_TO_BE (val))
#define RSSIZE_TO_BE(val)     ((rssize) RINT32_TO_BE  (val))
#elif RLIB_SIZEOF_SIZE_T == 2
#define RSIZE_TO_LE(val)      ((rsize)  RUINT16_TO_LE (val))
#define RSSIZE_TO_LE(val)     ((rssize) RINT16_TO_LE  (val))
#define RSIZE_TO_BE(val)      ((rsize)  RUINT16_TO_BE (val))
#define RSSIZE_TO_BE(val)     ((rssize) RINT16_TO_BE  (val))
#endif
 
#if RLIB_SIZEOF_LONG == 8
#define RULONG_TO_LE(val)     ((rulong) RUINT64_TO_LE (val))
#define RLONG_TO_LE(val)      ((rlong)  RINT64_TO_LE  (val))
#define RULONG_TO_BE(val)     ((rulong) RUINT64_TO_BE (val))
#define RLONG_TO_BE(val)      ((rlong)  RINT64_TO_BE  (val))
#elif RLIB_SIZEOF_LONG == 4
#define RULONG_TO_LE(val)     ((rulong) RUINT32_TO_LE (val))
#define RLONG_TO_LE(val)      ((rlong)  RINT32_TO_LE  (val))
#define RULONG_TO_BE(val)     ((rulong) RUINT32_TO_BE (val))
#define RLONG_TO_BE(val)      ((rlong)  RINT32_TO_BE  (val))
#elif RLIB_SIZEOF_LONG == 2
#define RULONG_TO_LE(val)     ((rulong) RUINT16_TO_LE (val))
#define RLONG_TO_LE(val)      ((rlong)  RINT16_TO_LE  (val))
#define RULONG_TO_BE(val)     ((rulong) RUINT16_TO_BE (val))
#define RLONG_TO_BE(val)      ((rlong)  RINT16_TO_BE  (val))
#endif
 
#if RLIB_SIZEOF_INTMAX == 8
#define RUINTMAX_TO_LE(val)   ((rulong) RUINT64_TO_LE (val))
#define RINTMAX_TO_LE(val)    ((rlong)  RINT64_TO_LE  (val))
#define RUINTMAX_TO_BE(val)   ((rulong) RUINT64_TO_BE (val))
#define RINTMAX_TO_BE(val)    ((rlong)  RINT64_TO_BE  (val))
#elif RLIB_SIZEOF_INTMAX == 4
#define RUINTMAX_TO_LE(val)   ((rulong) RUINT32_TO_LE (val))
#define RINTMAX_TO_LE(val)    ((rlong)  RINT32_TO_LE  (val))
#define RUINTMAX_TO_BE(val)   ((rulong) RUINT32_TO_BE (val))
#define RINTMAX_TO_BE(val)    ((rlong)  RINT32_TO_BE  (val))
#elif RLIB_SIZEOF_INTMAX == 2
#define RUINTMAX_TO_LE(val)   ((rulong) RUINT16_TO_LE (val))
#define RINTMAX_TO_LE(val)    ((rlong)  RINT16_TO_LE  (val))
#define RUINTMAX_TO_BE(val)   ((rulong) RUINT16_TO_BE (val))
#define RINTMAX_TO_BE(val)    ((rlong)  RINT16_TO_BE  (val))
#endif
 
#if RLIB_SIZEOF_INT == 8
#define RUINT_TO_LE(val)      ((rulong) RUINT64_TO_LE (val))
#define RINT_TO_LE(val)       ((rlong)  RINT64_TO_LE  (val))
#define RUINT_TO_BE(val)      ((rulong) RUINT64_TO_BE (val))
#define RINT_TO_BE(val)       ((rlong)  RINT64_TO_BE  (val))
#elif RLIB_SIZEOF_INT == 4
#define RUINT_TO_LE(val)      ((rulong) RUINT32_TO_LE (val))
#define RINT_TO_LE(val)       ((rlong)  RINT32_TO_LE  (val))
#define RUINT_TO_BE(val)      ((rulong) RUINT32_TO_BE (val))
#define RINT_TO_BE(val)       ((rlong)  RINT32_TO_BE  (val))
#elif RLIB_SIZEOF_INT == 2
#define RUINT_TO_LE(val)      ((rulong) RUINT16_TO_LE (val))
#define RINT_TO_LE(val)       ((rlong)  RINT16_TO_LE  (val))
#define RUINT_TO_BE(val)      ((rulong) RUINT16_TO_BE (val))
#define RINT_TO_BE(val)       ((rlong)  RINT16_TO_BE  (val))
#endif
 
#define RINT16_FROM_LE(val)   (RINT16_TO_LE   (val))
#define RUINT16_FROM_LE(val)  (RUINT16_TO_LE  (val))
#define RINT16_FROM_BE(val)   (RINT16_TO_BE   (val))
#define RUINT16_FROM_BE(val)  (RUINT16_TO_BE  (val))
#define RINT32_FROM_LE(val)   (RINT32_TO_LE   (val))
#define RUINT32_FROM_LE(val)  (RUINT32_TO_LE  (val))
#define RINT32_FROM_BE(val)   (RINT32_TO_BE   (val))
#define RUINT32_FROM_BE(val)  (RUINT32_TO_BE  (val))
#define RINT64_FROM_LE(val)   (RINT64_TO_LE   (val))
#define RUINT64_FROM_LE(val)  (RUINT64_TO_LE  (val))
#define RINT64_FROM_BE(val)   (RINT64_TO_BE   (val))
#define RUINT64_FROM_BE(val)  (RUINT64_TO_BE  (val))
#define RLONG_FROM_LE(val)    (RLONG_TO_LE    (val))
#define RULONG_FROM_LE(val)   (RULONG_TO_LE   (val))
#define RLONG_FROM_BE(val)    (RLONG_TO_BE    (val))
#define RULONG_FROM_BE(val)   (RULONG_TO_BE   (val))
#define RINT_FROM_LE(val)     (RINT_TO_LE     (val))
#define RUINT_FROM_LE(val)    (RUINT_TO_LE    (val))
#define RINT_FROM_BE(val)     (RINT_TO_BE     (val))
#define RUINT_FROM_BE(val)    (RUINT_TO_BE    (val))
#define RSIZE_FROM_LE(val)    (RSIZE_TO_LE    (val))
#define RSSIZE_FROM_LE(val)   (RSSIZE_TO_LE   (val))
#define RSIZE_FROM_BE(val)    (RSIZE_TO_BE    (val))
#define RSSIZE_FROM_BE(val)   (RSSIZE_TO_BE   (val))
 
 
#define r_ntohl(val)          (RUINT32_FROM_BE  (val))
#define r_ntohs(val)          (RUINT16_FROM_BE  (val))
#define r_htonl(val)          (RUINT32_TO_BE    (val))
#define r_htons(val)          (RUINT16_TO_BE    (val))
static inline ruint16 r_load_be16 (const void * p)
{
  ruint16 v;
  memcpy (&v, p, sizeof (v));
  return RUINT16_FROM_BE (v);
}
static inline ruint32 r_load_be32 (const void * p)
{
  ruint32 v;
  memcpy (&v, p, sizeof (v));
  return RUINT32_FROM_BE (v);
}
static inline ruint64 r_load_be64 (const void * p)
{
  ruint64 v;
  memcpy (&v, p, sizeof (v));
  return RUINT64_FROM_BE (v);
}
static inline ruint16 r_load_le16 (const void * p)
{
  ruint16 v;
  memcpy (&v, p, sizeof (v));
  return RUINT16_FROM_LE (v);
}
static inline ruint32 r_load_le32 (const void * p)
{
  ruint32 v;
  memcpy (&v, p, sizeof (v));
  return RUINT32_FROM_LE (v);
}
static inline ruint64 r_load_le64 (const void * p)
{
  ruint64 v;
  memcpy (&v, p, sizeof (v));
  return RUINT64_FROM_LE (v);
}
static inline void r_store_be16 (void * p, ruint16 v)
{
  ruint16 be = RUINT16_TO_BE (v);
  memcpy (p, &be, sizeof (be));
}
static inline void r_store_be32 (void * p, ruint32 v)
{
  ruint32 be = RUINT32_TO_BE (v);
  memcpy (p, &be, sizeof (be));
}
static inline void r_store_be64 (void * p, ruint64 v)
{
  ruint64 be = RUINT64_TO_BE (v);
  memcpy (p, &be, sizeof (be));
}
static inline void r_store_le16 (void * p, ruint16 v)
{
  ruint16 le = RUINT16_TO_LE (v);
  memcpy (p, &le, sizeof (le));
}
static inline void r_store_le32 (void * p, ruint32 v)
{
  ruint32 le = RUINT32_TO_LE (v);
  memcpy (p, &le, sizeof (le));
}
static inline void r_store_le64 (void * p, ruint64 v)
{
  ruint64 le = RUINT64_TO_LE (v);
  memcpy (p, &le, sizeof (le));
}
R_END_DECLS
 
 
#endif /* __R_ENDIANNESS_H__ */