pip/src_main/core/pibase.h

/*! \file pibase.h
 * \brief Base types and functions
 *
 * This file implements first layer above the system and
 * declares some basic useful functions
*/
/*
	PIP - Platform Independent Primitives
	Base types and functions
	Copyright (C) 2019  Ivan Pelipenko peri4ko@yandex.ru

	This program is free software: you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation, either version 3 of the License, or
	(at your option) any later version.

	This program 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 General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#ifndef PIBASE_H
#define PIBASE_H

#include "piversion.h"
#include "piplatform.h"
#include "pip_export.h"
#include "pip_defs.h"
#include "string.h"

//! Version of PIP in hex - 0x##(Major)##(Minor)##(Revision)
#define PIP_VERSION ((PIP_VERSION_MAJOR << 16) | (PIP_VERSION_MINOR < 8) | PIP_VERSION_REVISION)

//! Meta-information section for any entity.
//! Parsing by \a pip_cmg and can be accessed by \a PICodeInfo.
//! Contains sequence of key=value pairs, e.g.
//! PIMETA(id=12345,tag="my string")
#define PIMETA(...)

#ifdef DOXYGEN

//! Major value of PIP version
#  define PIP_VERSION_MAJOR

//! Minor value of PIP version
#  define PIP_VERSION_MINOR

//! Revision value of PIP version
#  define PIP_VERSION_REVISION

//! Suffix of PIP version
#  define PIP_VERSION_SUFFIX

//! Macro is defined when compile-time debug is enabled
#  define PIP_DEBUG

//! Macro is defined when host is any Windows
#  define WINDOWS

//! Macro is defined when host is QNX or Blackberry
#  define QNX

//! Macro is defined when host is Blackberry
#  define BLACKBERRY

//! Macro is defined when host is FreeBSD
#  define FREE_BSD

//! Macro is defined when host is Mac OS
#  define MAC_OS

//! Macro is defined when host is Android
#  define ANDROID

//! Macro is defined when host is any Linux
#  define LINUX

//! Macro is defined when compiler is GCC or MinGW
#  define CC_GCC

//! Macro is defined when PIP is decided that host is support language
#  define HAS_LOCALE

//! Macro is defined when compiler is Visual Studio
#  define CC_VC

//! Macro is defined when compiler is unknown
#  define CC_OTHER

//! Macro is defined when PIP can use "rt" library for "PITimer::ThreadRT" timers implementation
#  define PIP_TIMER_RT

//! Define this macro to use STL implementation of containers, else PIP implementation will be used
#  define PIP_CONTAINERS_STL

#endif

#ifdef PIP_CXX11_SUPPORT
#  include <functional>
#endif

#include <cstddef>
#ifdef WINDOWS
#  ifdef CC_VC
#    define SHUT_RDWR 2
#    pragma comment(lib, "Ws2_32.lib")
#    pragma comment(lib, "Iphlpapi.lib")
#    pragma comment(lib, "Psapi.lib")
#    ifdef ARCH_BITS_32
#      define _X86_
#    else
#      define _IA64_
#    endif
#  else
#    define SHUT_RDWR SD_BOTH
#  endif
	typedef int socklen_t;
	extern long long __pi_perf_freq;
#endif

#ifdef ANDROID
///#  define tcdrain(fd) ioctl(fd, TCSBRK, 1)
   //inline int wctomb(char * c, wchar_t w) {*c = ((char * )&w)[0]; return 1;}
   //inline int mbtowc(wchar_t * w, const char * c, size_t) {*w = ((wchar_t * )&c)[0]; return 1;}
#endif

#ifdef MAC_OS
#  define environ (*_NSGetEnviron())
   typedef long time_t;
#endif

#ifdef LINUX
#  define environ __environ
#endif

#ifdef FREE_BSD
   extern char ** environ;
#endif


#ifdef CC_GCC
#  undef DEPRECATED
#  define DEPRECATED __attribute__((deprecated))
#  if CC_GCC_VERSION > 0x025F // > 2.95
#    ifdef LINUX
#      define HAS_LOCALE
#    endif
#    ifdef MAC_OS
#      pragma GCC diagnostic ignored "-Wdeprecated-declarations"
#      pragma GCC diagnostic ignored "-Wundefined-bool-conversion"
#      pragma GCC diagnostic ignored "-Wc++11-extensions"
#    endif
#  endif
#  ifdef ANDROID
#    pragma GCC diagnostic ignored "-Wunused-parameter"
#    pragma GCC diagnostic ignored "-Wextra"
#    pragma GCC diagnostic ignored "-Wc++11-extensions"
#    pragma GCC diagnostic ignored "-Wundefined-bool-conversion"
//#    pragma GCC diagnostic ignored "-Wliteral-suffix"
#  endif
#endif

#ifdef CC_VC
#  undef DEPRECATED
#  define DEPRECATED
#  pragma warning(disable: 4018)
#  pragma warning(disable: 4061)
#  pragma warning(disable: 4100)
#  pragma warning(disable: 4239)
#  pragma warning(disable: 4242)
#  pragma warning(disable: 4244)
#  pragma warning(disable: 4251)
#  pragma warning(disable: 4365)
#  pragma warning(disable: 4512)
#  pragma warning(disable: 4668)
#  pragma warning(disable: 4710)
#  pragma warning(disable: 4800)
#  pragma warning(disable: 4820)
#  pragma warning(disable: 4986)
#  pragma warning(disable: 4996)
#  ifdef ARCH_BITS_32
	 typedef long ssize_t;
#  else
	 typedef long long ssize_t;
#  endif
#endif

#ifdef CC_OTHER
#  undef DEPRECATED
#  define DEPRECATED
#endif


// Private data macros

#define PRIVATE_DECLARATION \
	struct __Private__; \
	friend struct __Private__; \
	struct __PrivateInitializer__ { \
		__PrivateInitializer__(); \
		__PrivateInitializer__(const __PrivateInitializer__ & o); \
		~__PrivateInitializer__(); \
		__PrivateInitializer__ & operator =(const __PrivateInitializer__ & o); \
		__Private__ * p; \
	}; \
	__PrivateInitializer__ __privateinitializer__;

#define PRIVATE_DEFINITION_START(c) \
	struct c::__Private__ {

#define PRIVATE_DEFINITION_END(c) \
	}; \
	c::__PrivateInitializer__::__PrivateInitializer__() {p = new c::__Private__();} \
	c::__PrivateInitializer__::__PrivateInitializer__(const c::__PrivateInitializer__ & o) {/*if (p) delete p;*/ p = new c::__Private__();} \
	c::__PrivateInitializer__::~__PrivateInitializer__() {delete p; p = 0;} \
	c::__PrivateInitializer__ & c::__PrivateInitializer__::operator =(const c::__PrivateInitializer__ & o) {if (p) delete p; p = new c::__Private__(); return *this;}

#define PRIVATE (__privateinitializer__.p)
#define PRIVATEWB __privateinitializer__.p

#define NO_COPY_CLASS(name) \
	explicit name(const name & ); \
	void operator =(const name & );

#ifdef FREERTOS
#  define PIP_MIN_MSLEEP 10.
#else
#  define PIP_MIN_MSLEEP 1.
#endif


//! Macro used for infinite loop
#define FOREVER for (;;)

//! Macro used for infinite wait
#define FOREVER_WAIT FOREVER msleep(PIP_MIN_MSLEEP);

//! Macro used for infinite wait
#define WAIT_FOREVER FOREVER msleep(PIP_MIN_MSLEEP);


//! global variable enabling output to piCout, default is true
extern PIP_EXPORT bool piDebug;

//! global variable that set minimum real update interval
//! for function PIInit::mountInfo(), default is 10000 ms
extern PIP_EXPORT double piMountInfoRefreshIntervalMs;

typedef unsigned char uchar;
typedef unsigned short ushort;
typedef unsigned int uint;
typedef unsigned long ulong;
typedef unsigned long long ullong;
typedef long long llong;
typedef long double ldouble;

/*! \brief Templated function for swap two values
 * \details Example:\n \snippet piincludes.cpp swap */
template<typename T> inline void piSwap(T & f, T & s) {T t = f; f = s; s = t;}

/*! \brief Templated function for swap two values without "="
 * \details Example:\n \snippet piincludes.cpp swapBinary */
template<typename T> inline void piSwapBinary(T & f, T & s) {
	if ((size_t*)&f == (size_t*)&s) return;
	size_t j = (sizeof(T) / sizeof(size_t)), bs = j * sizeof(size_t), bf = sizeof(T);
	size_t i = 0;
	for (i = 0; i < j; ++i) {
		((size_t*)(&f))[i] ^= ((size_t*)(&s))[i];
		((size_t*)(&s))[i] ^= ((size_t*)(&f))[i];
		((size_t*)(&f))[i] ^= ((size_t*)(&s))[i];
	}
	for (i = bs; i < bf; ++i) {
		((uchar*)(&f))[i] ^= ((uchar*)(&s))[i];
		((uchar*)(&s))[i] ^= ((uchar*)(&f))[i];
		((uchar*)(&f))[i] ^= ((uchar*)(&s))[i];
	}
}

template<> inline void piSwapBinary(const void *& f, const void *& s) {
	if ((size_t*)f == (size_t*)s) return;
	size_t j = (sizeof(void *) / sizeof(size_t)), bs = j * sizeof(size_t), bf = sizeof(void *);
	size_t i = 0;
	void * pf = const_cast<void*>(f), * ps = const_cast<void*>(s);
	for (i = 0; i < j; ++i) {
		((size_t*)(&pf))[i] ^= ((size_t*)(&ps))[i];
		((size_t*)(&ps))[i] ^= ((size_t*)(&pf))[i];
		((size_t*)(&pf))[i] ^= ((size_t*)(&ps))[i];
	}
	for (i = bs; i < bf; ++i) {
		((uchar*)(&pf))[i] ^= ((uchar*)(&ps))[i];
		((uchar*)(&ps))[i] ^= ((uchar*)(&pf))[i];
		((uchar*)(&pf))[i] ^= ((uchar*)(&ps))[i];
	}
}

/*! \brief Function for compare two values without "=" by raw content
 * \details Example:\n \snippet piincludes.cpp compareBinary */
inline bool piCompareBinary(const void * f, const void * s, size_t size) {
	for (size_t i = 0; i < size; ++i)
		if (((const uchar*)f)[i] != ((const uchar*)s)[i])
			return false;
	return true;
}

/*! \brief Templated function return round of float falue
 * \details Round is the nearest integer value \n
 * There are some macros:
 * - \c piRoundf for "float"
 * - \c piRoundd for "double"
 *
 * Example:
 * \snippet piincludes.cpp round */
template<typename T> inline int piRound(const T & v) {return int(v >= T(0.) ? v + T(0.5) : v - T(0.5));}

/*! \brief Templated function return floor of float falue
 * \details Floor is the largest integer that is not greater than value \n
 * There are some macros:
 * - \c piFloorf for "float"
 * - \c piFloord for "double"
 *
 * Example:
 * \snippet piincludes.cpp floor */
template<typename T> inline int piFloor(const T & v) {return v < T(0) ? int(v) - 1 : int(v);}

/*! \brief Templated function return ceil of float falue
 * \details Ceil is the smallest integer that is not less than value \n
 * There are some macros:
 * - \c piCeilf for "float"
 * - \c piCeild for "double"
 *
 * Example:
 * \snippet piincludes.cpp ceil */
template<typename T> inline int piCeil(const T & v) {return v < T(0) ? int(v) : int(v) + 1;}

/*! \brief Templated function return absolute of numeric falue
 * \details Absolute is the positive or equal 0 value \n
 * There are some macros:
 * - \c piAbss for "short"
 * - \c piAbsi for "int"
 * - \c piAbsl for "long"
 * - \c piAbsll for "llong"
 * - \c piAbsf for "float"
 * - \c piAbsd for "double"
 *
 * Example:
 * \snippet piincludes.cpp abs */
template<typename T> inline T piAbs(const T & v) {return (v >= T(0) ? v : -v);}

/*! \brief Templated function return minimum of two values
 * \details There are some macros:
 * - \c piMins for "short"
 * - \c piMini for "int"
 * - \c piMinl for "long"
 * - \c piMinll for "llong"
 * - \c piMinf for "float"
 * - \c piMind for "double"
 *
 * Example:
 * \snippet piincludes.cpp min2 */
template<typename T> inline T piMin(const T & f, const T & s) {return ((f > s) ? s : f);}

/*! \brief Templated function return minimum of tree values
 * \details There are some macros:
 * - \c piMins for "short"
 * - \c piMini for "int"
 * - \c piMinl for "long"
 * - \c piMinll for "llong"
 * - \c piMinf for "float"
 * - \c piMind for "double"
 *
 * Example:
 * \snippet piincludes.cpp min3 */
template<typename T> inline T piMin(const T & f, const T & s, const T & t) {return ((f < s && f < t) ? f : ((s < t) ? s : t));}

/*! \brief Templated function return maximum of two values
 * \details There are some macros:
 * - \c piMaxs for "short"
 * - \c piMaxi for "int"
 * - \c piMaxl for "long"
 * - \c piMaxll for "llong"
 * - \c piMaxf for "float"
 * - \c piMaxd for "double"
 *
 * Example:
 * \snippet piincludes.cpp max2 */
template<typename T> inline T piMax(const T & f, const T & s) {return ((f < s) ? s : f);}

/*! \brief Templated function return maximum of tree values
 * \details There are some macros:
 * - \c piMaxs for "short"
 * - \c piMaxi for "int"
 * - \c piMaxl for "long"
 * - \c piMaxll for "llong"
 * - \c piMaxf for "float"
 * - \c piMaxd for "double"
 *
 * Example:
 * \snippet piincludes.cpp max3 */
template<typename T> inline T piMax(const T & f, const T & s, const T & t) {return ((f > s && f > t) ? f : ((s > t) ? s : t));}

/*! \brief Templated function return clamped value
 * \details Clamped is the not greater than "max" and not lesser than "min" value \n
 * There are some macros:
 * - \c piClamps for "short"
 * - \c piClampi for "int"
 * - \c piClampl for "long"
 * - \c piClampll for "llong"
 * - \c piClampf for "float"
 * - \c piClampd for "double"
 *
 * Example:
 * \snippet piincludes.cpp clamp */
template<typename T> inline T piClamp(const T & v, const T & min, const T & max) {return (v > max ? max : (v < min ? min : v));}

/// Function inverse byte order in memory block
inline void piLetobe(void * data, int size) {
	for (int i = 0; i < size / 2; i++)
		piSwap<uchar>(((uchar*)data)[size - i - 1], ((uchar*)data)[i]);
}

/// \brief Templated function that inverse byte order of value "v"
template<typename T> inline void piLetobe(T * v) {piLetobe(v, sizeof(T));}

/*! \brief Templated function that returns "v" with inversed byte order
 * \details This function used to convert values between little and big endian \n
 * There are some macros:
 * - \c piLetobes for "ushort"
 * - \c piLetobei for "uint"
 * - \c piLetobel for "ulong"
 * - \c piLetobell for "ullong"
 *
 * Example:
 * \snippet piincludes.cpp letobe */
template<typename T> inline T piLetobe(const T & v) {T tv(v); piLetobe(&tv, sizeof(T)); return tv;}

// specialization
template<> inline ushort piLetobe(const ushort & v) {return (v << 8) | (v >> 8);}
template<> inline uint piLetobe(const uint & v) {return (v >> 24) | ((v >> 8) & 0xFF00) | ((v << 8) & 0xFF0000) | ((v << 24) & 0xFF000000);}
template<> inline float piLetobe(const float & v) {
	union _pletobe_f {
		_pletobe_f(const float &f_) {f = f_;}
		float f;
		uint v;
	};
	_pletobe_f a(v);
	a.v = (a.v >> 24) | ((a.v >> 8) & 0xFF00) | ((a.v << 8) & 0xFF0000) | ((a.v << 24) & 0xFF000000);
	return a.f;
}

DEPRECATED inline ushort letobe_s(const ushort & v) {return (v << 8) | (v >> 8);}
DEPRECATED inline uint letobe_i(const uint & v) {return (v >> 24) | ((v >> 8) & 0xFF00) | ((v << 8) & 0xFF0000) | ((v << 24) & 0xFF000000);}

#ifdef DOXYGEN

/// \deprecated \brief Use \a piLetobe() instead of this function
ushort letobe_s(ushort v) {return (v << 8) | (v >> 8);}

/// \deprecated \brief Use \a piLetobe() instead of this function
uint letobe_i(uint v) {return (v >> 24) | ((v >> 8) & 0xFF00) | ((v << 8) & 0xFF0000) | ((v << 24) & 0xFF000000);}

#endif

/// \brief Generic hash function, impements murmur3/32 algorithm
inline uint piHashData(const uchar * data, uint len, uint seed = 0) {
	if (!data || len <= 0) return 0u;
	uint h = seed;
	if (len > 3) {
		uint i = len >> 2;
		do {
			uint k;
			memcpy(&k, data, sizeof(uint));
			data += sizeof(uint);
			k *= 0xcc9e2d51;
			k = (k << 15) | (k >> 17);
			k *= 0x1b873593;
			h ^= k;
			h = (h << 13) | (h >> 19);
			h = h * 5 + 0xe6546b64;
		} while (--i);
	}
	if (len & 3) {
		uint i = len & 3;
		uint k = 0;
		do {
			k <<= 8;
			k |= data[i - 1];
		} while (--i);
		k *= 0xcc9e2d51;
		k = (k << 15) | (k >> 17);
		k *= 0x1b873593;
		h ^= k;
	}
	h ^= len;
	h ^= h >> 16;
	h *= 0x85ebca6b;
	h ^= h >> 13;
	h *= 0xc2b2ae35;
	h ^= h >> 16;
	return h;
}


template<typename T> inline uint piHash(const T & v) {
	return 0;
}

template<> inline uint piHash(const  char   & v) {return (uint)v;}
template<> inline uint piHash(const uchar   & v) {return (uint)v;}
template<> inline uint piHash(const  short  & v) {return (uint)v;}
template<> inline uint piHash(const ushort  & v) {return (uint)v;}
template<> inline uint piHash(const  int    & v) {return (uint)v;}
template<> inline uint piHash(const uint    & v) {return (uint)v;}
template<> inline uint piHash(const  llong  & v) {return piHashData((const uchar *)&v, sizeof(v));}
template<> inline uint piHash(const ullong  & v) {return piHashData((const uchar *)&v, sizeof(v));}
template<> inline uint piHash(const float   & v) {return (uint)v;}
template<> inline uint piHash(const double  & v) {return piHashData((const uchar *)&v, sizeof(v));}
template<> inline uint piHash(const ldouble & v) {return piHashData((const uchar *)&v, sizeof(v));}

#define piRoundf piRound<float>
#define piRoundd piRound<double>
#define piFloorf piFloor<float>
#define piFloord piFloor<double>
#define piCeilf piCeil<float>
#define piCeild piCeil<double>
#define piAbss piAbs<short>
#define piAbsi piAbs<int>
#define piAbsl piAbs<long>
#define piAbsll piAbs<llong>
#define piAbsf piAbs<float>
#define piAbsd piAbs<double>
#define piMins piMin<short>
#define piMini piMin<int>
#define piMinl piMin<long>
#define piMinll piMin<llong>
#define piMinf piMin<float>
#define piMind piMin<double>
#define piMaxs piMax<short>
#define piMaxi piMax<int>
#define piMaxl piMax<long>
#define piMaxll piMax<llong>
#define piMaxf piMax<float>
#define piMaxd piMax<double>
#define piClamps piClamp<short>
#define piClampi piClamp<int>
#define piClampl piClamp<long>
#define piClampll piClamp<llong>
#define piClampf piClamp<float>
#define piClampd piClamp<double>
#define piLetobes piLetobe<ushort>
#define piLetobei piLetobe<uint>
#define piLetobel piLetobe<ulong>
#define piLetobell piLetobe<ullong>
#define piLetobef piLetobe<float>


#endif // PIBASE_H