/* Copyright (c) 2006-2020 Chung, Hyung-Hwan. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #ifndef _HAWK_CMN_H_ #define _HAWK_CMN_H_ /* WARNING: NEVER CHANGE/DELETE THE FOLLOWING HAWK_HAVE_CFG_H DEFINITION. * IT IS USED FOR DEPLOYMENT BY MAKEFILE.AM */ /*#define HAWK_HAVE_CFG_H*/ #if defined(HAWK_HAVE_CFG_H) # include #elif defined(_WIN32) # include #elif defined(__OS2__) # include #elif defined(__DOS__) # include #elif defined(macintosh) # include /* class mac os */ #else # error UNSUPPORTED SYSTEM #endif /* ========================================================================= * ARCHITECTURE/COMPILER TWEAKS * ========================================================================= */ #if defined(EMSCRIPTEN) # if defined(HAWK_SIZEOF___INT128) # undef HAWK_SIZEOF___INT128 # define HAWK_SIZEOF___INT128 0 # endif # if defined(HAWK_SIZEOF_LONG) && defined(HAWK_SIZEOF_INT) && (HAWK_SIZEOF_LONG > HAWK_SIZEOF_INT) /* autoconf doesn't seem to match actual emscripten */ # undef HAWK_SIZEOF_LONG # define HAWK_SIZEOF_LONG HAWK_SIZEOF_INT # endif # include /* EMSCRIPTEN_KEEPALIVE */ #endif #if defined(__GNUC__) && defined(__arm__) && !defined(__ARM_ARCH) # if defined(__ARM_ARCH_8__) # define __ARM_ARCH 8 # elif defined(__ARM_ARCH_7__) # define __ARM_ARCH 7 # elif defined(__ARM_ARCH_6__) # define __ARM_ARCH 6 # elif defined(__ARM_ARCH_5__) # define __ARM_ARCH 5 # elif defined(__ARM_ARCH_4__) # define __ARM_ARCH 4 # endif #endif /* ========================================================================= * MACROS THAT CHANGES THE BEHAVIORS OF THE C COMPILER/LINKER * =========================================================================*/ #if defined(EMSCRIPTEN) # define HAWK_IMPORT # define HAWK_EXPORT EMSCRIPTEN_KEEPALIVE # define HAWK_PRIVATE #elif defined(__BORLANDC__) && (__BORLANDC__ < 0x500) # define HAWK_IMPORT # define HAWK_EXPORT # define HAWK_PRIVATE #elif defined(_WIN32) || (defined(__WATCOMC__) && (__WATCOMC__ >= 1000) && !defined(__WINDOWS_386__)) # define HAWK_IMPORT __declspec(dllimport) # define HAWK_EXPORT __declspec(dllexport) # define HAWK_PRIVATE #elif defined(__GNUC__) && ((__GNUC__>= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 3)) # define HAWK_IMPORT __attribute__((visibility("default"))) # define HAWK_EXPORT __attribute__((visibility("default"))) # define HAWK_PRIVATE __attribute__((visibility("hidden"))) /*# define HAWK_PRIVATE __attribute__((visibility("internal")))*/ #else # define HAWK_IMPORT # define HAWK_EXPORT # define HAWK_PRIVATE #endif #if defined(__cplusplus) || (defined(__STDC_VERSION__) && (__STDC_VERSION__>=199901L)) /* C++/C99 has inline */ # define HAWK_INLINE inline # define HAWK_HAVE_INLINE #elif defined(__GNUC__) && defined(__GNUC_GNU_INLINE__) /* gcc disables inline when -std=c89 or -ansi is used. * so use __inline__ supported by gcc regardless of the options */ # define HAWK_INLINE /*extern*/ __inline__ # define HAWK_HAVE_INLINE #else # define HAWK_INLINE # undef HAWK_HAVE_INLINE #endif #if defined(__GNUC__) && (__GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ > 4)) # define HAWK_UNUSED __attribute__((__unused__)) #else # define HAWK_UNUSED #endif /* ========================================================================= * STATIC ASSERTION * =========================================================================*/ #define HAWK_STATIC_JOIN_INNER(x, y) x ## y #define HAWK_STATIC_JOIN(x, y) HAWK_STATIC_JOIN_INNER(x, y) #if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 201112L) # define HAWK_STATIC_ASSERT(expr) _Static_assert (expr, "invalid assertion") #elif defined(__cplusplus) && (__cplusplus >= 201103L) # define HAWK_STATIC_ASSERT(expr) static_assert (expr, "invalid assertion") #elif defined(__cplusplus) || (defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)) # define HAWK_STATIC_ASSERT(expr) typedef char HAWK_STATIC_JOIN(HAWK_STATIC_ASSERT_T_, __LINE__)[(expr)? 1: -1] HAWK_UNUSED #else # define HAWK_STATIC_ASSERT(expr) typedef char HAWK_STATIC_JOIN(HAWK_STATIC_ASSERT_T_, __LINE__)[(expr)? 1: -1] HAWK_UNUSED #endif #define HAWK_STATIC_ASSERT_EXPR(expr) ((void)HAWK_SIZEOF(char[(expr)? 1: -1])) /* ========================================================================= * PRIMITIVE TYPE DEFINTIONS * ========================================================================= */ /* hawk_int8_t */ #if defined(HAWK_SIZEOF_CHAR) && (HAWK_SIZEOF_CHAR == 1) # define HAWK_HAVE_UINT8_T # define HAWK_HAVE_INT8_T # define HAWK_SIZEOF_UINT8_T (HAWK_SIZEOF_CHAR) # define HAWK_SIZEOF_INT8_T (HAWK_SIZEOF_CHAR) typedef unsigned char hawk_uint8_t; typedef signed char hawk_int8_t; #elif defined(HAWK_SIZEOF___INT8) && (HAWK_SIZEOF___INT8 == 1) # define HAWK_HAVE_UINT8_T # define HAWK_HAVE_INT8_T # define HAWK_SIZEOF_UINT8_T (HAWK_SIZEOF___INT8) # define HAWK_SIZEOF_INT8_T (HAWK_SIZEOF___INT8) typedef unsigned __int8 hawk_uint8_t; typedef signed __int8 hawk_int8_t; #elif defined(HAWK_SIZEOF___INT8_T) && (HAWK_SIZEOF___INT8_T == 1) # define HAWK_HAVE_UINT8_T # define HAWK_HAVE_INT8_T # define HAWK_SIZEOF_UINT8_T (HAWK_SIZEOF___INT8_T) # define HAWK_SIZEOF_INT8_T (HAWK_SIZEOF___INT8_T) typedef unsigned __int8_t hawk_uint8_t; typedef signed __int8_t hawk_int8_t; #else # define HAWK_HAVE_UINT8_T # define HAWK_HAVE_INT8_T # define HAWK_SIZEOF_UINT8_T (1) # define HAWK_SIZEOF_INT8_T (1) typedef unsigned char hawk_uint8_t; typedef signed char hawk_int8_t; #endif /* hawk_int16_t */ #if defined(HAWK_SIZEOF_SHORT) && (HAWK_SIZEOF_SHORT == 2) # define HAWK_HAVE_UINT16_T # define HAWK_HAVE_INT16_T # define HAWK_SIZEOF_UINT16_T (HAWK_SIZEOF_SHORT) # define HAWK_SIZEOF_INT16_T (HAWK_SIZEOF_SHORT) typedef unsigned short int hawk_uint16_t; typedef signed short int hawk_int16_t; #elif defined(HAWK_SIZEOF___INT16) && (HAWK_SIZEOF___INT16 == 2) # define HAWK_HAVE_UINT16_T # define HAWK_HAVE_INT16_T # define HAWK_SIZEOF_UINT16_T (HAWK_SIZEOF___INT16) # define HAWK_SIZEOF_INT16_T (HAWK_SIZEOF___INT16) typedef unsigned __int16 hawk_uint16_t; typedef signed __int16 hawk_int16_t; #elif defined(HAWK_SIZEOF___INT16_T) && (HAWK_SIZEOF___INT16_T == 2) # define HAWK_HAVE_UINT16_T # define HAWK_HAVE_INT16_T # define HAWK_SIZEOF_UINT16_T (HAWK_SIZEOF___INT16_T) # define HAWK_SIZEOF_INT16_T (HAWK_SIZEOF___INT16_T) typedef unsigned __int16_t hawk_uint16_t; typedef signed __int16_t hawk_int16_t; #else # define HAWK_HAVE_UINT16_T # define HAWK_HAVE_INT16_T # define HAWK_SIZEOF_UINT16_T (2) # define HAWK_SIZEOF_INT16_T (2) typedef unsigned short int hawk_uint16_t; typedef signed short int hawk_int16_t; #endif /* hawk_int32_t */ #if defined(HAWK_SIZEOF_LONG) && (HAWK_SIZEOF_LONG == 4) && !defined(HAWK_PREFER_UNSIGNED_INT_FOR_OPERATOR_NEW) /* in case c++ compiler defines the first parameter of the operator new() to unsigned int */ /* in addition, if c++ is disabled, long is preferred by default */ # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (HAWK_SIZEOF_LONG) # define HAWK_SIZEOF_INT32_T (HAWK_SIZEOF_LONG) typedef unsigned long int hawk_uint32_t; typedef signed long int hawk_int32_t; #elif defined(HAWK_SIZEOF_INT) && (HAWK_SIZEOF_INT == 4) # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (HAWK_SIZEOF_INT) # define HAWK_SIZEOF_INT32_T (HAWK_SIZEOF_INT) typedef unsigned int hawk_uint32_t; typedef signed int hawk_int32_t; #elif defined(HAWK_SIZEOF_LONG) && (HAWK_SIZEOF_LONG == 4) # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (HAWK_SIZEOF_LONG) # define HAWK_SIZEOF_INT32_T (HAWK_SIZEOF_LONG) typedef unsigned long int hawk_uint32_t; typedef signed long int hawk_int32_t; #elif defined(HAWK_SIZEOF___INT32) && (HAWK_SIZEOF___INT32 == 4) # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (HAWK_SIZEOF___INT32) # define HAWK_SIZEOF_INT32_T (HAWK_SIZEOF___INT32) typedef unsigned __int32 hawk_uint32_t; typedef signed __int32 hawk_int32_t; #elif defined(HAWK_SIZEOF___INT32_T) && (HAWK_SIZEOF___INT32_T == 4) # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (HAWK_SIZEOF___INT32_T) # define HAWK_SIZEOF_INT32_T (HAWK_SIZEOF___INT32_T) typedef unsigned __int32_t hawk_uint32_t; typedef signed __int32_t hawk_int32_t; #elif defined(__DOS__) # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (4) # define HAWK_SIZEOF_INT32_T (4) typedef unsigned long int hawk_uint32_t; typedef signed long int hawk_int32_t; #else # define HAWK_HAVE_UINT32_T # define HAWK_HAVE_INT32_T # define HAWK_SIZEOF_UINT32_T (4) # define HAWK_SIZEOF_INT32_T (4) typedef unsigned int hawk_uint32_t; typedef signed int hawk_int32_t; #endif /* hawk_int64_t */ #if defined(HAWK_SIZEOF_INT) && (HAWK_SIZEOF_INT == 8) # define HAWK_HAVE_UINT64_T # define HAWK_HAVE_INT64_T # define HAWK_SIZEOF_UINT64_T (HAWK_SIZEOF_INT) # define HAWK_SIZEOF_INT64_T (HAWK_SIZEOF_INT) typedef unsigned int hawk_uint64_t; typedef signed int hawk_int64_t; #elif defined(HAWK_SIZEOF_LONG) && (HAWK_SIZEOF_LONG == 8) # define HAWK_HAVE_UINT64_T # define HAWK_HAVE_INT64_T # define HAWK_SIZEOF_UINT64_T (HAWK_SIZEOF_LONG) # define HAWK_SIZEOF_INT64_T (HAWK_SIZEOF_LONG) typedef unsigned long int hawk_uint64_t; typedef signed long int hawk_int64_t; #elif defined(HAWK_SIZEOF_LONG_LONG) && (HAWK_SIZEOF_LONG_LONG == 8) # define HAWK_HAVE_UINT64_T # define HAWK_HAVE_INT64_T # define HAWK_SIZEOF_UINT64_T (HAWK_SIZEOF_LONG_LONG) # define HAWK_SIZEOF_INT64_T (HAWK_SIZEOF_LONG_LONG) typedef unsigned long long int hawk_uint64_t; typedef signed long long int hawk_int64_t; #elif defined(HAWK_SIZEOF___INT64) && (HAWK_SIZEOF___INT64 == 8) # define HAWK_HAVE_UINT64_T # define HAWK_HAVE_INT64_T # define HAWK_SIZEOF_UINT64_T (HAWK_SIZEOF_LONG___INT64) # define HAWK_SIZEOF_INT64_T (HAWK_SIZEOF_LONG___INT64) typedef unsigned __int64 hawk_uint64_t; typedef signed __int64 hawk_int64_t; #elif defined(HAWK_SIZEOF___INT64_T) && (HAWK_SIZEOF___INT64_T == 8) # define HAWK_HAVE_UINT64_T # define HAWK_HAVE_INT64_T # define HAWK_SIZEOF_UINT64_T (HAWK_SIZEOF_LONG___INT64_T) # define HAWK_SIZEOF_INT64_T (HAWK_SIZEOF_LONG___INT64_T) typedef unsigned __int64_t hawk_uint64_t; typedef signed __int64_t hawk_int64_t; #else /* no 64-bit integer */ #endif /* hawk_int128_t */ #if defined(HAWK_SIZEOF_INT) && (HAWK_SIZEOF_INT == 16) # define HAWK_HAVE_UINT128_T # define HAWK_HAVE_INT128_T # define HAWK_SIZEOF_UINT128_T (HAWK_SIZEOF_INT) # define HAWK_SIZEOF_INT128_T (HAWK_SIZEOF_INT) typedef unsigned int hawk_uint128_t; typedef signed int hawk_int128_t; #elif defined(HAWK_SIZEOF_LONG) && (HAWK_SIZEOF_LONG == 16) # define HAWK_HAVE_UINT128_T # define HAWK_HAVE_INT128_T # define HAWK_SIZEOF_UINT128_T (HAWK_SIZEOF_LONG) # define HAWK_SIZEOF_INT128_T (HAWK_SIZEOF_LONG) typedef unsigned long int hawk_uint128_t; typedef signed long int hawk_int128_t; #elif defined(HAWK_SIZEOF_LONG_LONG) && (HAWK_SIZEOF_LONG_LONG == 16) # define HAWK_HAVE_UINT128_T # define HAWK_HAVE_INT128_T # define HAWK_SIZEOF_UINT128_T (HAWK_SIZEOF_LONG_LONG) # define HAWK_SIZEOF_INT128_T (HAWK_SIZEOF_LONG_LONG) typedef unsigned long long int hawk_uint128_t; typedef signed long long int hawk_int128_t; #elif defined(HAWK_SIZEOF___INT128) && (HAWK_SIZEOF___INT128 == 16) # define HAWK_HAVE_UINT128_T # define HAWK_HAVE_INT128_T # define HAWK_SIZEOF_UINT128_T (HAWK_SIZEOF___INT128) # define HAWK_SIZEOF_INT128_T (HAWK_SIZEOF___INT128) typedef unsigned __int128 hawk_uint128_t; typedef signed __int128 hawk_int128_t; #elif defined(HAWK_SIZEOF___INT128_T) && (HAWK_SIZEOF___INT128_T == 16) # define HAWK_HAVE_UINT128_T # define HAWK_HAVE_INT128_T # define HAWK_SIZEOF_UINT128_T (HAWK_SIZEOF___INT128_T) # define HAWK_SIZEOF_INT128_T (HAWK_SIZEOF___INT128_T) #if defined(HAWK_SIZEOF___UINT128_T) && (HAWK_SIZEOF___UINT128_T == HAWK_SIZEOF___INT128_T) typedef __uint128_t hawk_uint128_t; typedef __int128_t hawk_int128_t; #elif defined(__clang__) typedef __uint128_t hawk_uint128_t; typedef __int128_t hawk_int128_t; #else typedef unsigned __int128_t hawk_uint128_t; typedef signed __int128_t hawk_int128_t; #endif #else /* no 128-bit integer */ #endif #if defined(HAWK_HAVE_UINT8_T) && (HAWK_SIZEOF_VOID_P == 1) # error UNSUPPORTED POINTER SIZE #elif defined(HAWK_HAVE_UINT16_T) && (HAWK_SIZEOF_VOID_P == 2) typedef hawk_uint16_t hawk_uintptr_t; typedef hawk_int16_t hawk_intptr_t; typedef hawk_uint8_t hawk_ushortptr_t; typedef hawk_int8_t hawk_shortptr_t; #elif defined(HAWK_HAVE_UINT32_T) && (HAWK_SIZEOF_VOID_P == 4) typedef hawk_uint32_t hawk_uintptr_t; typedef hawk_int32_t hawk_intptr_t; typedef hawk_uint16_t hawk_ushortptr_t; typedef hawk_int16_t hawk_shortptr_t; #elif defined(HAWK_HAVE_UINT64_T) && (HAWK_SIZEOF_VOID_P == 8) typedef hawk_uint64_t hawk_uintptr_t; typedef hawk_int64_t hawk_intptr_t; typedef hawk_uint32_t hawk_ushortptr_t; typedef hawk_int32_t hawk_shortptr_t; #elif defined(HAWK_HAVE_UINT128_T) && (HAWK_SIZEOF_VOID_P == 16) typedef hawk_uint128_t hawk_uintptr_t; typedef hawk_int128_t hawk_intptr_t; typedef hawk_uint64_t hawk_ushortptr_t; typedef hawk_int64_t hawk_shortptr_t; #else # error UNKNOWN POINTER SIZE #endif #define HAWK_SIZEOF_INTPTR_T HAWK_SIZEOF_VOID_P #define HAWK_SIZEOF_UINTPTR_T HAWK_SIZEOF_VOID_P #define HAWK_SIZEOF_SHORTPTR_T (HAWK_SIZEOF_VOID_P / 2) #define HAWK_SIZEOF_USHORTPTR_T (HAWK_SIZEOF_VOID_P / 2) #if defined(HAWK_HAVE_INT128_T) # define HAWK_SIZEOF_INTMAX_T 16 # define HAWK_SIZEOF_UINTMAX_T 16 typedef hawk_int128_t hawk_intmax_t; typedef hawk_uint128_t hawk_uintmax_t; #elif defined(HAWK_HAVE_INT64_T) # define HAWK_SIZEOF_INTMAX_T 8 # define HAWK_SIZEOF_UINTMAX_T 8 typedef hawk_int64_t hawk_intmax_t; typedef hawk_uint64_t hawk_uintmax_t; #elif defined(HAWK_HAVE_INT32_T) # define HAWK_SIZEOF_INTMAX_T 4 # define HAWK_SIZEOF_UINTMAX_T 4 typedef hawk_int32_t hawk_intmax_t; typedef hawk_uint32_t hawk_uintmax_t; #elif defined(HAWK_HAVE_INT16_T) # define HAWK_SIZEOF_INTMAX_T 2 # define HAWK_SIZEOF_UINTMAX_T 2 typedef hawk_int16_t hawk_intmax_t; typedef hawk_uint16_t hawk_uintmax_t; #elif defined(HAWK_HAVE_INT8_T) # define HAWK_SIZEOF_INTMAX_T 1 # define HAWK_SIZEOF_UINTMAX_T 1 typedef hawk_int8_t hawk_intmax_t; typedef hawk_uint8_t hawk_uintmax_t; #else # error UNKNOWN INTMAX SIZE #endif #if defined(HAWK_USE_INTMAX) typedef hawk_intmax_t hawk_int_t; typedef hawk_uintmax_t hawk_uint_t; #define HAWK_SIZEOF_INT_T HAWK_SIZEOF_INTMAX_T #else typedef hawk_intptr_t hawk_int_t; typedef hawk_uintptr_t hawk_uint_t; #define HAWK_SIZEOF_INT_T HAWK_SIZEOF_INTPTR_T #endif /* ========================================================================= * FLOATING-POINT TYPE * ========================================================================= */ /** \typedef hawk_fltbas_t * The hawk_fltbas_t type defines the largest floating-pointer number type * naturally supported. */ #if defined(__FreeBSD__) || defined(__MINGW32__) /* TODO: check if the support for long double is complete. * if so, use long double for hawk_flt_t */ typedef double hawk_fltbas_t; # define HAWK_SIZEOF_FLTBAS_T HAWK_SIZEOF_DOUBLE #elif HAWK_SIZEOF_LONG_DOUBLE > HAWK_SIZEOF_DOUBLE typedef long double hawk_fltbas_t; # define HAWK_SIZEOF_FLTBAS_T HAWK_SIZEOF_LONG_DOUBLE #else typedef double hawk_fltbas_t; # define HAWK_SIZEOF_FLTBAS_T HAWK_SIZEOF_DOUBLE #endif /** \typedef hawk_fltmax_t * The hawk_fltmax_t type defines the largest floating-pointer number type * ever supported. */ #if HAWK_SIZEOF___FLOAT128 >= HAWK_SIZEOF_FLTBAS_T /* the size of long double may be equal to the size of __float128 * for alignment on some platforms */ typedef __float128 hawk_fltmax_t; # define HAWK_SIZEOF_FLTMAX_T HAWK_SIZEOF___FLOAT128 # define HAWK_FLTMAX_REQUIRE_QUADMATH 1 #else typedef hawk_fltbas_t hawk_fltmax_t; # define HAWK_SIZEOF_FLTMAX_T HAWK_SIZEOF_FLTBAS_T # undef HAWK_FLTMAX_REQUIRE_QUADMATH #endif #if defined(HAWK_USE_FLTMAX) typedef hawk_fltmax_t hawk_flt_t; #define HAWK_SIZEOF_FLT_T HAWK_SIZEOF_FLTMAX_T #else typedef hawk_fltbas_t hawk_flt_t; #define HAWK_SIZEOF_FLT_T HAWK_SIZEOF_FLTBAS_T #endif /* ========================================================================= * BASIC HARD-CODED DEFINES * ========================================================================= */ #define HAWK_BITS_PER_BYTE (8) /* the maximum number of bch charaters to represent a single uch character */ #define HAWK_BCSIZE_MAX 6 /* ========================================================================= * BASIC HAWK TYPES * ========================================================================= */ typedef char hawk_bch_t; typedef int hawk_bci_t; typedef unsigned int hawk_bcu_t; typedef unsigned char hawk_bchu_t; /* unsigned version of hawk_bch_t for inner working */ #define HAWK_SIZEOF_BCH_T HAWK_SIZEOF_CHAR #define HAWK_SIZEOF_BCI_T HAWK_SIZEOF_INT /* You may specify -DHAWK_USE_CXX_CHAR16_T in CXXFLAGS to force char16_t with c++. */ #if (defined(__cplusplus) && (defined(HAWK_USE_CXX_CHAR16_T) || (__cplusplus >= 201103L) || (defined(_MSC_VER) && _MSC_VER >= 1900))) /* user chosen or C++11 or later */ # if defined(HAWK_WIDE_CHAR_SIZE) && (HAWK_WIDE_CHAR_SIZE == 4) typedef char32_t hawk_uch_t; /* char32_t is an unsigned integer type used for 32-bit wide characters */ typedef char32_t hawk_uchu_t; /* same as hawk_uch_t as it is already unsigned */ # define HAWK_SIZEOF_UCH_T 4 # define HAWK_USE_PREFIX_BIG_U # else typedef char16_t hawk_uch_t; /* char16_t is an unsigned integer type used for 16-bit wide characters */ typedef char16_t hawk_uchu_t; /* same as hawk_uch_t as it is already unsigned */ # define HAWK_SIZEOF_UCH_T 2 # define HAWK_USE_PREFIX_SMALL_U # endif #elif defined(__cplusplus) && defined(HAWK_WIDE_CHAR_SIZE) && (HAWK_WIDE_CHAR_SIZE == 4) && (HAWK_WIDE_CHAR_SIZE == HAWK_SIZEOF_WCHAR_T) typedef wchar_t hawk_uch_t; typedef hawk_uint32_t hawk_uchu_t; # define HAWK_SIZEOF_UCH_T 4 // if this assertion becomes false, you must check if the size of the wchar_t type is the same as the size used // for this library. HAWK_STATIC_ASSERT (HAWK_WIDE_CHAR_SIZE == sizeof(hawk_uch_t)); #elif defined(__cplusplus) && defined(HAWK_WIDE_CHAR_SIZE) && (HAWK_WIDE_CHAR_SIZE == 2) && (HAWK_WIDE_CHAR_SIZE == HAWK_SIZEOF_WCHAR_T) typedef wchar_t hawk_uch_t; typedef hawk_uint16_t hawk_uchu_t; # define HAWK_SIZEOF_UCH_T 2 // if the library is compiled with 2-byte wchar_t, and the library user compiles a program with 4-byte wchar_t, // there will be size disparity issue on the hawk_uch_t type. // if this assertion becomes false, you must check if the size of the wchar_t type is the same as the size used // for this library. // gcc/g++/clang/clang++: -fshort-wchar makes wchar_t to 2 bytes. HAWK_STATIC_ASSERT (HAWK_WIDE_CHAR_SIZE == sizeof(hawk_uch_t)); #elif defined(HAWK_WIDE_CHAR_SIZE) && (HAWK_WIDE_CHAR_SIZE == 4) && defined(__CHAR32_TYPE__) && defined(HAWK_HAVE_PREFIX_BIG_U) typedef __CHAR32_TYPE__ hawk_uch_t; typedef hawk_uint32_t hawk_uchu_t; # define HAWK_SIZEOF_UCH_T 4 # if !defined(HAWK_PREFER_PREFIX_L) # define HAWK_USE_PREFIX_BIG_U # endif #elif defined(HAWK_WIDE_CHAR_SIZE) && (HAWK_WIDE_CHAR_SIZE == 4) typedef hawk_uint32_t hawk_uch_t; typedef hawk_uint32_t hawk_uchu_t; # define HAWK_SIZEOF_UCH_T 4 #elif defined(__CHAR16_TYPE__) && defined(HAWK_HAVE_PREFIX_SMALL_U) typedef __CHAR16_TYPE__ hawk_uch_t; typedef hawk_uint16_t hawk_uchu_t; # define HAWK_SIZEOF_UCH_T 2 # if !defined(HAWK_PREFER_PREFIX_L) # define HAWK_USE_PREFIX_SMALL_U # endif #else typedef hawk_uint16_t hawk_uch_t; typedef hawk_uint16_t hawk_uchu_t; /* same as hawk_uch_t as it is already unsigned */ # define HAWK_SIZEOF_UCH_T 2 #endif typedef hawk_int32_t hawk_uci_t; typedef hawk_uint32_t hawk_ucu_t; #define HAWK_SIZEOF_UCI_T 4 typedef hawk_uint8_t hawk_oob_t; /* [NOTE] sizeof(hawk_oop_t) must be equal to sizeof(hawk_oow_t) */ typedef hawk_uintptr_t hawk_oow_t; typedef hawk_intptr_t hawk_ooi_t; #define HAWK_SIZEOF_OOW_T HAWK_SIZEOF_UINTPTR_T #define HAWK_SIZEOF_OOI_T HAWK_SIZEOF_INTPTR_T #define HAWK_OOW_BITS (HAWK_SIZEOF_OOW_T * HAWK_BITS_PER_BYTE) #define HAWK_OOI_BITS (HAWK_SIZEOF_OOI_T * HAWK_BITS_PER_BYTE) typedef hawk_ushortptr_t hawk_oohw_t; /* half word - half word */ typedef hawk_shortptr_t hawk_oohi_t; /* signed half word */ #define HAWK_SIZEOF_OOHW_T HAWK_SIZEOF_USHORTPTR_T #define HAWK_SIZEOF_OOHI_T HAWK_SIZEOF_SHORTPTR_T #define HAWK_OOHW_BITS (HAWK_SIZEOF_OOHW_T * HAWK_BITS_PER_BYTE) #define HAWK_OOHI_BITS (HAWK_SIZEOF_OOHI_T * HAWK_BITS_PER_BYTE) typedef struct hawk_ucs_t hawk_ucs_t; struct hawk_ucs_t { hawk_uch_t* ptr; hawk_oow_t len; }; typedef struct hawk_bcs_t hawk_bcs_t; struct hawk_bcs_t { hawk_bch_t* ptr; hawk_oow_t len; }; #if defined(HAWK_ENABLE_WIDE_CHAR) typedef hawk_uch_t hawk_ooch_t; typedef hawk_uchu_t hawk_oochu_t; typedef hawk_uci_t hawk_ooci_t; typedef hawk_ucu_t hawk_oocu_t; typedef hawk_ucs_t hawk_oocs_t; # define HAWK_OOCH_IS_UCH # define HAWK_SIZEOF_OOCH_T HAWK_SIZEOF_UCH_T #else typedef hawk_bch_t hawk_ooch_t; typedef hawk_bchu_t hawk_oochu_t; typedef hawk_bci_t hawk_ooci_t; typedef hawk_bcu_t hawk_oocu_t; typedef hawk_bcs_t hawk_oocs_t; # define HAWK_OOCH_IS_BCH # define HAWK_SIZEOF_OOCH_T HAWK_SIZEOF_BCH_T #endif typedef unsigned int hawk_bitmask_t; typedef struct hawk_ptl_t hawk_ptl_t; struct hawk_ptl_t { void* ptr; hawk_oow_t len; }; typedef struct hawk_link_t hawk_link_t; struct hawk_link_t { hawk_link_t* link; }; /* ========================================================================= * TIME-RELATED TYPES * =========================================================================*/ #define HAWK_MSECS_PER_SEC (1000) #define HAWK_MSECS_PER_MIN (HAWK_MSECS_PER_SEC * HAWK_SECS_PER_MIN) #define HAWK_MSECS_PER_HOUR (HAWK_MSECS_PER_SEC * HAWK_SECS_PER_HOUR) #define HAWK_MSECS_PER_DAY (HAWK_MSECS_PER_SEC * HAWK_SECS_PER_DAY) #define HAWK_USECS_PER_MSEC (1000) #define HAWK_NSECS_PER_USEC (1000) #define HAWK_NSECS_PER_MSEC (HAWK_NSECS_PER_USEC * HAWK_USECS_PER_MSEC) #define HAWK_USECS_PER_SEC (HAWK_USECS_PER_MSEC * HAWK_MSECS_PER_SEC) #define HAWK_NSECS_PER_SEC (HAWK_NSECS_PER_USEC * HAWK_USECS_PER_MSEC * HAWK_MSECS_PER_SEC) #define HAWK_SECNSEC_TO_MSEC(sec,nsec) \ (((hawk_intptr_t)(sec) * HAWK_MSECS_PER_SEC) + ((hawk_intptr_t)(nsec) / HAWK_NSECS_PER_MSEC)) #define HAWK_SECNSEC_TO_USEC(sec,nsec) \ (((hawk_intptr_t)(sec) * HAWK_USECS_PER_SEC) + ((hawk_intptr_t)(nsec) / HAWK_NSECS_PER_USEC)) #define HAWK_SECNSEC_TO_NSEC(sec,nsec) \ (((hawk_intptr_t)(sec) * HAWK_NSECS_PER_SEC) + (hawk_intptr_t)(nsec)) #define HAWK_SEC_TO_MSEC(sec) ((sec) * HAWK_MSECS_PER_SEC) #define HAWK_MSEC_TO_SEC(sec) ((sec) / HAWK_MSECS_PER_SEC) #define HAWK_USEC_TO_NSEC(usec) ((usec) * HAWK_NSECS_PER_USEC) #define HAWK_NSEC_TO_USEC(nsec) ((nsec) / HAWK_NSECS_PER_USEC) #define HAWK_MSEC_TO_NSEC(msec) ((msec) * HAWK_NSECS_PER_MSEC) #define HAWK_NSEC_TO_MSEC(nsec) ((nsec) / HAWK_NSECS_PER_MSEC) #define HAWK_MSEC_TO_USEC(msec) ((msec) * HAWK_USECS_PER_MSEC) #define HAWK_USEC_TO_MSEC(usec) ((usec) / HAWK_USECS_PER_MSEC) #define HAWK_SEC_TO_NSEC(sec) ((sec) * HAWK_NSECS_PER_SEC) #define HAWK_NSEC_TO_SEC(nsec) ((nsec) / HAWK_NSECS_PER_SEC) #define HAWK_SEC_TO_USEC(sec) ((sec) * HAWK_USECS_PER_SEC) #define HAWK_USEC_TO_SEC(usec) ((usec) / HAWK_USECS_PER_SEC) #if defined(HAWK_SIZEOF_INT64_T) && (HAWK_SIZEOF_INT64_T > 0) typedef hawk_int64_t hawk_ntime_sec_t; #else typedef hawk_int32_t hawk_ntime_sec_t; #endif typedef hawk_int32_t hawk_ntime_nsec_t; typedef struct hawk_ntime_t hawk_ntime_t; struct hawk_ntime_t { hawk_ntime_sec_t sec; hawk_ntime_nsec_t nsec; /* nanoseconds */ }; #define HAWK_INIT_NTIME(c,s,ns) (((c)->sec = (s)), ((c)->nsec = (ns))) #define HAWK_CLEAR_NTIME(c) HAWK_INIT_NTIME(c, 0, 0) #define HAWK_ADD_NTIME(c,a,b) \ do { \ (c)->sec = (a)->sec + (b)->sec; \ (c)->nsec = (a)->nsec + (b)->nsec; \ while ((c)->nsec >= HAWK_NSECS_PER_SEC) { (c)->sec++; (c)->nsec -= HAWK_NSECS_PER_SEC; } \ } while(0) #define HAWK_ADD_NTIME_SNS(c,a,s,ns) \ do { \ (c)->sec = (a)->sec + (s); \ (c)->nsec = (a)->nsec + (ns); \ while ((c)->nsec >= HAWK_NSECS_PER_SEC) { (c)->sec++; (c)->nsec -= HAWK_NSECS_PER_SEC; } \ } while(0) #define HAWK_SUB_NTIME(c,a,b) \ do { \ (c)->sec = (a)->sec - (b)->sec; \ (c)->nsec = (a)->nsec - (b)->nsec; \ while ((c)->nsec < 0) { (c)->sec--; (c)->nsec += HAWK_NSECS_PER_SEC; } \ } while(0) #define HAWK_SUB_NTIME_SNS(c,a,s,ns) \ do { \ (c)->sec = (a)->sec - s; \ (c)->nsec = (a)->nsec - ns; \ while ((c)->nsec < 0) { (c)->sec--; (c)->nsec += HAWK_NSECS_PER_SEC; } \ } while(0) #define HAWK_CMP_NTIME(a,b) (((a)->sec == (b)->sec)? ((a)->nsec - (b)->nsec): ((a)->sec - (b)->sec)) /* if time has been normalized properly, nsec must be equal to or * greater than 0. */ #define HAWK_IS_NEG_NTIME(x) ((x)->sec < 0) #define HAWK_IS_POS_NTIME(x) ((x)->sec > 0 || ((x)->sec == 0 && (x)->nsec > 0)) #define HAWK_IS_ZERO_NTIME(x) ((x)->sec == 0 && (x)->nsec == 0) /* ========================================================================= * PRIMITIVE MACROS * ========================================================================= */ #define HAWK_UCI_EOF ((hawk_uci_t)-1) #define HAWK_BCI_EOF ((hawk_bci_t)-1) #define HAWK_OOCI_EOF ((hawk_ooci_t)-1) #define HAWK_SIZEOF(x) (sizeof(x)) #define HAWK_COUNTOF(x) (sizeof(x) / sizeof((x)[0])) #define HAWK_BITSOF(x) (sizeof(x) * HAWK_BITS_PER_BYTE) /** * The HAWK_OFFSETOF() macro returns the offset of a field from the beginning * of a structure. */ #define HAWK_OFFSETOF(type,member) ((hawk_uintptr_t)&((type*)0)->member) /** * The HAWK_ALIGNOF() macro returns the alignment size of a structure. * Note that this macro may not work reliably depending on the type given. */ #define HAWK_ALIGNOF(type) HAWK_OFFSETOF(struct { hawk_uint8_t d1; type d2; }, d2) /*(sizeof(struct { hawk_uint8_t d1; type d2; }) - sizeof(type))*/ #if defined(__cplusplus) # if (__cplusplus >= 201103L) /* C++11 */ # define HAWK_NULL nullptr # else # define HAWK_NULL (0) # endif #else # define HAWK_NULL ((void*)0) #endif /* make a bit mask that can mask off low n bits */ #define HAWK_LBMASK(type,n) (~(~((type)0) << (n))) #define HAWK_LBMASK_SAFE(type,n) (((n) < HAWK_BITSOF(type))? HAWK_LBMASK(type,n): ~(type)0) /* make a bit mask that can mask off hig n bits */ #define HAWK_HBMASK(type,n) (~(~((type)0) >> (n))) #define HAWK_HBMASK_SAFE(type,n) (((n) < HAWK_BITSOF(type))? HAWK_HBMASK(type,n): ~(type)0) /* get 'length' bits starting from the bit at the 'offset' */ #define HAWK_GETBITS(type,value,offset,length) \ ((((type)(value)) >> (offset)) & HAWK_LBMASK(type,length)) #define HAWK_CLEARBITS(type,value,offset,length) \ (((type)(value)) & ~(HAWK_LBMASK(type,length) << (offset))) #define HAWK_SETBITS(type,value,offset,length,bits) \ (value = (HAWK_CLEARBITS(type,value,offset,length) | (((bits) & HAWK_LBMASK(type,length)) << (offset)))) #define HAWK_FLIPBITS(type,value,offset,length) \ (((type)(value)) ^ (HAWK_LBMASK(type,length) << (offset))) #define HAWK_ORBITS(type,value,offset,length,bits) \ (value = (((type)(value)) | (((bits) & HAWK_LBMASK(type,length)) << (offset)))) /** * The HAWK_BITS_MAX() macros calculates the maximum value that the 'nbits' * bits of an unsigned integer of the given 'type' can hold. * \code * printf ("%u", HAWK_BITS_MAX(unsigned int, 5)); * \endcode */ /*#define HAWK_BITS_MAX(type,nbits) ((((type)1) << (nbits)) - 1)*/ #define HAWK_BITS_MAX(type,nbits) ((~(type)0) >> (HAWK_BITSOF(type) - (nbits))) /* ========================================================================= * MMGR * ========================================================================= */ typedef struct hawk_mmgr_t hawk_mmgr_t; /** * allocate a memory chunk of the size \a n. * \return pointer to a memory chunk on success, #HAWK_NULL on failure. */ typedef void* (*hawk_mmgr_alloc_t) (hawk_mmgr_t* mmgr, hawk_oow_t n); /** * resize a memory chunk pointed to by \a ptr to the size \a n. * \return pointer to a memory chunk on success, #HAWK_NULL on failure. */ typedef void* (*hawk_mmgr_realloc_t) (hawk_mmgr_t* mmgr, void* ptr, hawk_oow_t n); /** * free a memory chunk pointed to by \a ptr. */ typedef void (*hawk_mmgr_free_t) (hawk_mmgr_t* mmgr, void* ptr); /** * The hawk_mmgr_t type defines the memory management interface. * As the type is merely a structure, it is just used as a single container * for memory management functions with a pointer to user-defined data. * The user-defined data pointer \a ctx is passed to each memory management * function whenever it is called. You can allocate, reallocate, and free * a memory chunk. * * For example, a hawk_xxx_open() function accepts a pointer of the hawk_mmgr_t * type and the xxx object uses it to manage dynamic data within the object. */ struct hawk_mmgr_t { hawk_mmgr_alloc_t alloc; /**< allocation function */ hawk_mmgr_realloc_t realloc; /**< resizing function */ hawk_mmgr_free_t free; /**< disposal function */ void* ctx; /**< user-defined data pointer */ }; /** * The HAWK_MMGR_ALLOC() macro allocates a memory block of the \a size bytes * using the \a mmgr memory manager. */ #define HAWK_MMGR_ALLOC(mmgr,size) ((mmgr)->alloc(mmgr,size)) /** * The HAWK_MMGR_REALLOC() macro resizes a memory block pointed to by \a ptr * to the \a size bytes using the \a mmgr memory manager. */ #define HAWK_MMGR_REALLOC(mmgr,ptr,size) ((mmgr)->realloc(mmgr,ptr,size)) /** * The HAWK_MMGR_FREE() macro deallocates the memory block pointed to by \a ptr. */ #define HAWK_MMGR_FREE(mmgr,ptr) ((mmgr)->free(mmgr,ptr)) /* ========================================================================= * CMGR * =========================================================================*/ typedef struct hawk_cmgr_t hawk_cmgr_t; typedef hawk_oow_t (*hawk_cmgr_bctouc_t) ( const hawk_bch_t* mb, hawk_oow_t size, hawk_uch_t* wc ); typedef hawk_oow_t (*hawk_cmgr_uctobc_t) ( hawk_uch_t wc, hawk_bch_t* mb, hawk_oow_t size ); /** * The hawk_cmgr_t type defines the character-level interface to * multibyte/wide-character conversion. This interface doesn't * provide any facility to store conversion state in a context * independent manner. This leads to the limitation that it can * handle a stateless multibyte encoding only. */ struct hawk_cmgr_t { hawk_cmgr_bctouc_t bctouc; hawk_cmgr_uctobc_t uctobc; }; /* ========================================================================= * FORWARD DECLARATION FOR MAIN HAWK STRUCTURE * =========================================================================*/ typedef struct hawk_t hawk_t; typedef struct hawk_val_t hawk_val_t; typedef struct hawk_gem_t hawk_gem_t; typedef struct hawk_tre_t hawk_tre_t; #define HAWK_ERRMSG_CAPA 2048 /** * The hawk_errnum_t type defines error codes. */ enum hawk_errnum_t { HAWK_ENOERR, /**< no error */ HAWK_EOTHER, /**< other error */ HAWK_ENOIMPL, /**< not implemented */ HAWK_ESYSERR, /**< subsystem error */ HAWK_EINTERN, /**< internal error */ /* common errors */ HAWK_ENOMEM, /**< insufficient memory */ HAWK_EINVAL, /**< invalid parameter or data */ HAWK_EACCES, /**< access denied */ HAWK_EBUSY, /**< system busy */ HAWK_EPERM, /**< operation not permitted */ HAWK_ENOSUP, /**< not supported */ HAWK_ENOENT, /**< not found */ HAWK_EEXIST, /**< already exists */ HAWK_EIOERR, /**< I/O error */ HAWK_EBUFFULL,/**< buffer full */ HAWK_EECERR, /**< encoding conversion error */ HAWK_EISDIR, /**< is directory */ HAWK_ENOTDIR, /**< not directory */ HAWK_EAGAIN, /**< resource temporarily unavailable */ HAWK_EINTR, /**< interrupted */ HAWK_EPIPE, /**< broken pipe */ HAWK_EINPROG, /**< in progress */ HAWK_ENOHND, /**< no handle */ HAWK_ECHILD, /**< no child process */ HAWK_ETMOUT, /**< timed out */ HAWK_ESTATE, /**< in bad state */ /* mostly hawk parse errors */ HAWK_EOPEN, /**< cannot open */ HAWK_EREAD, /**< cannot read */ HAWK_EWRITE, /**< cannot write */ HAWK_ECLOSE, /**< cannot close */ HAWK_EBLKNST, /**< block nested too deeply */ HAWK_EEXPRNST,/**< expression nested too deeply */ HAWK_ELXCHR, /**< invalid character */ HAWK_ELXDIG, /**< invalid digit */ HAWK_EEOF, /**< unexpected end of source */ HAWK_ECMTNC, /**< comment not closed properly */ HAWK_ESTRNC, /**< string or regular expression not closed */ HAWK_EMBSCHR, /**< invalid mbs character */ HAWK_ELBRACE, /**< left brace expected */ HAWK_ELPAREN, /**< left parenthesis expected */ HAWK_ERPAREN, /**< right parenthesis expected */ HAWK_ERBRACK, /**< right bracket expected */ HAWK_ECOMMA, /**< comma expected */ HAWK_ESCOLON, /**< semicolon expected */ HAWK_ECOLON, /**< colon expected */ HAWK_EINTLIT, /**< integer literal expected */ HAWK_ESTMEND, /**< statement not ending with a semicolon */ HAWK_EKWIN, /**< keyword 'in' expected */ HAWK_ENOTVAR, /**< right-hand side of 'in' not a variable */ HAWK_EEXPRNR, /**< expression not recognized */ HAWK_EKWFNC, /**< keyword 'function' expected */ HAWK_EKWWHL, /**< keyword 'while' expected */ HAWK_EASSIGN, /**< assignment statement expected */ HAWK_EIDENT, /**< identifier expected */ HAWK_EFUNNAM, /**< not a valid function name */ HAWK_EBLKBEG, /**< BEGIN not followed by left bracket on the same line */ HAWK_EBLKEND, /**< END not followed by left bracket on the same line */ HAWK_EKWRED, /**< keyword redefined */ HAWK_EFNCRED, /**< intrinsic function redefined */ HAWK_EFUNRED, /**< function redefined */ HAWK_EGBLRED, /**< global variable redefined */ HAWK_EPARRED, /**< parameter redefined */ HAWK_EVARRED, /**< variable redefined */ HAWK_EDUPPAR, /**< duplicate parameter name */ HAWK_EDUPGBL, /**< duplicate global variable name */ HAWK_EDUPLCL, /**< duplicate local variable name */ HAWK_EBADPAR, /**< not a valid parameter name */ HAWK_EBADVAR, /**< not a valid variable name */ HAWK_EVARMS, /**< variable name missing */ HAWK_EUNDEF, /**< undefined identifier */ HAWK_ELVALUE, /**< l-value required */ HAWK_EGBLTM, /**< too many global variables */ HAWK_ELCLTM, /**< too many local variables */ HAWK_EPARTM, /**< too many parameters */ HAWK_ESEGTM, /**< too many segments */ HAWK_ESEGTL, /**< segment too long */ HAWK_EBADARG, /**< bad argument */ HAWK_ENOARG, /**< no argument */ HAWK_EBREAK, /**< 'break' outside a loop */ HAWK_ECONTINUE, /**< 'continue' outside a loop */ HAWK_ENEXTBEG, /**< 'next' illegal in BEGIN block */ HAWK_ENEXTEND, /**< 'next' illegal in END block */ HAWK_ENEXTFBEG, /**< 'nextfile' illegal in BEGIN block */ HAWK_ENEXTFEND, /**< 'nextfile' illegal in END block */ HAWK_EPREPST, /**< both prefix and postfix incr/decr operator present */ HAWK_EINCDECOPR,/**< illegal operand for incr/decr operator */ HAWK_EINCLSTR, /**< 'include' not followed by a string */ HAWK_EINCLTD, /**< include level too deep */ HAWK_EXKWNR, /**< word after @ not recognized */ HAWK_EXKWEM, /**< @ not followed by a valid word */ /* hawk run time error */ HAWK_ESTACK, /**< stack error */ HAWK_EDIVBY0, /**< divide by zero */ HAWK_EOPERAND, /**< invalid operand */ HAWK_EPOSIDX, /**< wrong position index */ HAWK_EARGTF, /**< too few arguments */ HAWK_EARGTM, /**< too many arguments */ HAWK_EFUNNF, /**< function not found */ HAWK_ENOTFUN, /**< non-function value */ HAWK_ENOTDEL, /**< not deletable */ HAWK_ENOTMAP, /**< value not a map */ HAWK_ENOTARR, /**< value not an array */ HAWK_ENOTIDXACC, /**< value not accessible with index */ HAWK_ENOTREF, /**< value not referenceable */ HAWK_EINROP, /**< wrong operand in right-hand side of 'in'*/ HAWK_ENONSCARET, /**< nonscalar value cannot be returned */ HAWK_ENONSCATOPOS, /**< nonscalar value cannot be assigned to a positional */ HAWK_ENONSCATOIDX, /**< nonscalar value cannot be assigned to an indexed variable */ HAWK_ENONSCATOVAR, /**< nonscalar cannot be assigned to a variable */ HAWK_ENONSCATOSCALAR, /**< cannot change a nonscalar value to a scalar value */ HAWK_ENONSCATONONSCA, /**< cannot change a nonscalar value to another nonscalar value */ HAWK_ESCALARTONONSCA, /**< cannot change a scalar value to to a nonscalar value */ HAWK_EVALTOSTR, /**< invalid value to convert to a string */ HAWK_EVALTONUM, /**< invalid value to convert to a number */ HAWK_EVALTOCHR, /**< invalid value to convert to a character */ HAWK_EHASHVAL, /**< invalid value to hash */ HAWK_EARRIDXRANGE, /**< disallowed array index range */ HAWK_EARRIDXMULTI, /**< single-bracketed multidimensional array indices not allowed */ HAWK_ERNEXTBEG, /**< 'next' called from BEGIN block */ HAWK_ERNEXTEND, /**< 'next' called from END block */ HAWK_ERNEXTFBEG, /**< 'nextfile' called from BEGIN block */ HAWK_ERNEXTFEND, /**< 'nextfile' called from END block */ HAWK_EIOUSER, /**< wrong user io handler implementation */ HAWK_EIOIMPL, /**< I/O callback returned an error */ HAWK_EIONMNF, /**< no such I/O name found */ HAWK_EIONMEM, /**< I/O name empty */ HAWK_EIONMNL, /**< I/O name containing '\\0' */ HAWK_EFMTARG, /**< not sufficient arguments to formatting sequence */ HAWK_ECONVFMTCHR, /**< invalid character in CONVFMT */ HAWK_EOFMTCHR, /**< invalid character in OFMT */ /* regular expression error */ HAWK_EREXNOMAT, /**< failed to match regular expression */ HAWK_EREXBADPAT, /**< invalid regular expression */ HAWK_EREXCOLLATE, /**< unknown collating element */ HAWK_EREXCTYPE, /**< unknown character clas name */ HAWK_EREXESCAPE, /**< trailing backslash */ HAWK_EREXSUBREG, /**< invalid backreference */ HAWK_EREXBRACK, /**< imbalanced bracket */ HAWK_EREXPAREN, /**< imbalanced parenthesis */ HAWK_EREXBRACE, /**< imbalanced brace */ HAWK_EREXBADBR, /**< invalid content inside braces */ HAWK_EREXRANGE, /**< invalid use of range operator */ HAWK_EREXBADRPT, /**< invalid use of repetition operator */ /* sed error */ HAWK_SED_ECMDNR, /**< command '${0}' not recognized */ HAWK_SED_ECMDMS, /**< command code missing */ HAWK_SED_ECMDIC, /**< command '${0}' incomplete */ HAWK_SED_EREXIC, /**< regular expression '${0}' incomplete */ HAWK_SED_EREXBL, /**< failed to compile regular expression '${0}' */ HAWK_SED_EREXMA, /**< failed to match regular expression */ HAWK_SED_EA1PHB, /**< address 1 prohibited for '${0}' */ HAWK_SED_EA1MOI, /**< address 1 missing or invalid */ HAWK_SED_EA2PHB, /**< address 2 prohibited */ HAWK_SED_EA2MOI, /**< address 2 missing or invalid */ HAWK_SED_ENEWLN, /**< newline expected */ HAWK_SED_EBSEXP, /**< backslash expected */ HAWK_SED_EBSDEL, /**< backslash used as delimiter */ HAWK_SED_EGBABS, /**< garbage after backslash */ HAWK_SED_ESCEXP, /**< semicolon expected */ HAWK_SED_ELABEM, /**< empty label name */ HAWK_SED_ELABDU, /**< duplicate label name '${0}' */ HAWK_SED_ELABNF, /**< label '${0}' not found */ HAWK_SED_EFILEM, /**< empty file name */ HAWK_SED_EFILIL, /**< illegal file name */ HAWK_SED_ETSNSL, /**< strings in translation set not the same length*/ HAWK_SED_EGRNBA, /**< group brackets not balanced */ HAWK_SED_EGRNTD, /**< group nesting too deep */ HAWK_SED_EOCSDU, /**< multiple occurrence specifiers */ HAWK_SED_EOCSZE, /**< occurrence specifier zero */ HAWK_SED_EOCSTL, /**< occurrence specifier too large */ HAWK_SED_ENPREX, /**< no previous regular expression */ HAWK_SED_ECSLNV, /**< cut selector not valid */ HAWK_SED_EIOFIL, /**< io error with file '${0}' */ /* the number of error numbers, internal use only */ HAWK_NUMERRNUMS }; typedef enum hawk_errnum_t hawk_errnum_t; /** * The hawk_bloc_t type defines a structure to hold location. */ struct hawk_bloc_t { hawk_oow_t line; /**< line */ hawk_oow_t colm; /**< column */ const hawk_bch_t* file; /**< file specified in @include */ }; typedef struct hawk_bloc_t hawk_bloc_t; /** * The hawk_uloc_t type defines a structure to hold location. */ struct hawk_uloc_t { hawk_oow_t line; /**< line */ hawk_oow_t colm; /**< column */ const hawk_uch_t* file; /**< file specified in @include */ }; typedef struct hawk_uloc_t hawk_uloc_t; #if defined(HAWK_OOCH_IS_BCH) typedef hawk_bloc_t hawk_loc_t; #else typedef hawk_uloc_t hawk_loc_t; #endif /** * The hawk_errinf_t type defines a placeholder for error information. */ struct hawk_errbinf_t { hawk_errnum_t num; /**< error number */ hawk_bch_t msg[HAWK_ERRMSG_CAPA]; /**< error message */ hawk_bloc_t loc; /**< error location */ }; typedef struct hawk_errbinf_t hawk_errbinf_t; struct hawk_erruinf_t { hawk_errnum_t num; /**< error number */ hawk_uch_t msg[HAWK_ERRMSG_CAPA]; /**< error message */ hawk_uloc_t loc; /**< error location */ }; typedef struct hawk_erruinf_t hawk_erruinf_t; #if defined(HAWK_OOCH_IS_BCH) typedef hawk_errbinf_t hawk_errinf_t; #else typedef hawk_erruinf_t hawk_errinf_t; #endif /** * The hawk_errstr_t type defines an error string getter. It should return * an error formatting string for an error number requested. A new string * should contain the same number of positional parameters (${X}) as in the * default error formatting string. You can set a new getter into an hawk * object with the hawk_seterrstr() function to customize an error string. */ typedef const hawk_ooch_t* (*hawk_errstr_t) ( hawk_errnum_t num /**< error number */ ); struct hawk_gem_t { hawk_mmgr_t* mmgr; hawk_cmgr_t* cmgr; hawk_errnum_t errnum; hawk_ooch_t errmsg[HAWK_ERRMSG_CAPA]; hawk_loc_t errloc; hawk_errstr_t errstr; hawk_oow_t errmsg_len; /* it's not the actual length of errmsg. it's kept here for error formatting */ #if defined(HAWK_OOCH_IS_BCH) hawk_uch_t xerrmsg[HAWK_ERRMSG_CAPA]; hawk_uch_t xerrlocfile[256]; #else hawk_bch_t xerrmsg[HAWK_ERRMSG_CAPA * 2]; hawk_bch_t xerrlocfile[256 * 2]; #endif hawk_ooch_t errmsg_backup[HAWK_ERRMSG_CAPA]; }; enum hawk_log_mask_t { HAWK_LOG_DEBUG = (1u << 0), HAWK_LOG_INFO = (1u << 1), HAWK_LOG_WARN = (1u << 2), HAWK_LOG_ERROR = (1u << 3), HAWK_LOG_FATAL = (1u << 4), HAWK_LOG_UNTYPED = (1u << 6), /* only to be used by HAWK_DEBUGx() and HAWK_INFOx() */ HAWK_LOG_PARSER = (1u << 7), HAWK_LOG_RTX = (1u << 8), HAWK_LOG_APP = (1u << 9), HAWK_LOG_ALL_LEVELS = (HAWK_LOG_DEBUG | HAWK_LOG_INFO | HAWK_LOG_WARN | HAWK_LOG_ERROR | HAWK_LOG_FATAL), HAWK_LOG_ALL_TYPES = (HAWK_LOG_UNTYPED | HAWK_LOG_PARSER | HAWK_LOG_RTX | HAWK_LOG_APP), HAWK_LOG_STDOUT = (1u << 14), /* write log messages to stdout without timestamp. HAWK_LOG_STDOUT wins over HAWK_LOG_STDERR. */ HAWK_LOG_STDERR = (1u << 15) /* write log messages to stderr without timestamp. */ }; typedef enum hawk_log_mask_t hawk_log_mask_t; /* ========================================================================= * MACROS THAT DETERMINES NUMERIC SIGN * =========================================================================*/ /** * The HAWK_TYPE_IS_SIGNED() macro determines if a type is signed. * \code * printf ("%d\n", (int)HAWK_TYPE_IS_SIGNED(int)); * printf ("%d\n", (int)HAWK_TYPE_IS_SIGNED(unsigned int)); * \endcode */ #define HAWK_TYPE_IS_SIGNED(type) (((type)0) > ((type)-1)) /** * The HAWK_TYPE_IS_SIGNED() macro determines if a type is unsigned. * \code * printf ("%d\n", HAWK_TYPE_IS_UNSIGNED(int)); * printf ("%d\n", HAWK_TYPE_IS_UNSIGNED(unsigned int)); * \endcode */ #define HAWK_TYPE_IS_UNSIGNED(type) (((type)0) < ((type)-1)) #define HAWK_TYPE_SIGNED_MAX(type) \ ((type)~((type)1 << ((type)HAWK_BITSOF(type) - 1))) #define HAWK_TYPE_UNSIGNED_MAX(type) ((type)(~(type)0)) #define HAWK_TYPE_SIGNED_MIN(type) \ ((type)((type)1 << ((type)HAWK_BITSOF(type) - 1))) #define HAWK_TYPE_UNSIGNED_MIN(type) ((type)0) #define HAWK_TYPE_MAX(type) \ ((HAWK_TYPE_IS_SIGNED(type)? HAWK_TYPE_SIGNED_MAX(type): HAWK_TYPE_UNSIGNED_MAX(type))) #define HAWK_TYPE_MIN(type) \ ((HAWK_TYPE_IS_SIGNED(type)? HAWK_TYPE_SIGNED_MIN(type): HAWK_TYPE_UNSIGNED_MIN(type))) /* round up a positive integer x to the nearst multiple of y */ #define HAWK_ALIGN(x,y) ((((x) + (y) - 1) / (y)) * (y)) /* round up a positive integer x to the nearst multiple of y where * y must be a multiple of a power of 2*/ #define HAWK_ALIGN_POW2(x,y) ((((x) + (y) - 1)) & ~((y) - 1)) #define HAWK_IS_UNALIGNED_POW2(x,y) ((x) & ((y) - 1)) #define HAWK_IS_ALIGNED_POW2(x,y) (!HAWK_IS_UNALIGNED_POW2(x,y)) /* ========================================================================= * COMPILER FEATURE TEST MACROS * =========================================================================*/ #if !defined(__has_builtin) && defined(_INTELC32_) /* intel c code builder 1.0 ended up with an error without this override */ #define __has_builtin(x) 0 #endif /* #if !defined(__is_identifier) #define __is_identifier(x) 0 #endif #if !defined(__has_attribute) #define __has_attribute(x) 0 #endif */ #if defined(__has_builtin) #if __has_builtin(__builtin_ctz) #define HAWK_HAVE_BUILTIN_CTZ #endif #if __has_builtin(__builtin_ctzl) #define HAWK_HAVE_BUILTIN_CTZL #endif #if __has_builtin(__builtin_ctzll) #define HAWK_HAVE_BUILTIN_CTZLL #endif #if __has_builtin(__builtin_clz) #define HAWK_HAVE_BUILTIN_CLZ #endif #if __has_builtin(__builtin_clzl) #define HAWK_HAVE_BUILTIN_CLZL #endif #if __has_builtin(__builtin_clzll) #define HAWK_HAVE_BUILTIN_CLZLL #endif #if __has_builtin(__builtin_uadd_overflow) #define HAWK_HAVE_BUILTIN_UADD_OVERFLOW #endif #if __has_builtin(__builtin_uaddl_overflow) #define HAWK_HAVE_BUILTIN_UADDL_OVERFLOW #endif #if __has_builtin(__builtin_uaddll_overflow) #define HAWK_HAVE_BUILTIN_UADDLL_OVERFLOW #endif #if __has_builtin(__builtin_umul_overflow) #define HAWK_HAVE_BUILTIN_UMUL_OVERFLOW #endif #if __has_builtin(__builtin_umull_overflow) #define HAWK_HAVE_BUILTIN_UMULL_OVERFLOW #endif #if __has_builtin(__builtin_umulll_overflow) #define HAWK_HAVE_BUILTIN_UMULLL_OVERFLOW #endif #if __has_builtin(__builtin_sadd_overflow) #define HAWK_HAVE_BUILTIN_SADD_OVERFLOW #endif #if __has_builtin(__builtin_saddl_overflow) #define HAWK_HAVE_BUILTIN_SADDL_OVERFLOW #endif #if __has_builtin(__builtin_saddll_overflow) #define HAWK_HAVE_BUILTIN_SADDLL_OVERFLOW #endif #if __has_builtin(__builtin_smul_overflow) #define HAWK_HAVE_BUILTIN_SMUL_OVERFLOW #endif #if __has_builtin(__builtin_smull_overflow) #define HAWK_HAVE_BUILTIN_SMULL_OVERFLOW #endif #if __has_builtin(__builtin_smulll_overflow) #define HAWK_HAVE_BUILTIN_SMULLL_OVERFLOW #endif #if __has_builtin(__builtin_expect) #define HAWK_HAVE_BUILTIN_EXPECT #endif #if __has_builtin(__sync_lock_test_and_set) #define HAWK_HAVE_SYNC_LOCK_TEST_AND_SET #endif #if __has_builtin(__sync_lock_release) #define HAWK_HAVE_SYNC_LOCK_RELEASE #endif #if __has_builtin(__sync_synchronize) #define HAWK_HAVE_SYNC_SYNCHRONIZE #endif #if __has_builtin(__sync_bool_compare_and_swap) #define HAWK_HAVE_SYNC_BOOL_COMPARE_AND_SWAP #endif #if __has_builtin(__sync_val_compare_and_swap) #define HAWK_HAVE_SYNC_VAL_COMPARE_AND_SWAP #endif #if __has_builtin(__builtin_bswap16) #define HAWK_HAVE_BUILTIN_BSWAP16 #endif #if __has_builtin(__builtin_bswap32) #define HAWK_HAVE_BUILTIN_BSWAP32 #endif #if __has_builtin(__builtin_bswap64) #define HAWK_HAVE_BUILTIN_BSWAP64 #endif #if __has_builtin(__builtin_bswap128) #define HAWK_HAVE_BUILTIN_BSWAP128 #endif #elif defined(__GNUC__) && defined(__GNUC_MINOR__) #if (__GNUC__ >= 4) #define HAWK_HAVE_SYNC_LOCK_TEST_AND_SET #define HAWK_HAVE_SYNC_LOCK_RELEASE #define HAWK_HAVE_SYNC_SYNCHRONIZE #define HAWK_HAVE_SYNC_BOOL_COMPARE_AND_SWAP #define HAWK_HAVE_SYNC_VAL_COMPARE_AND_SWAP #endif #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) #define HAWK_HAVE_BUILTIN_CTZ #define HAWK_HAVE_BUILTIN_CTZL #define HAWK_HAVE_BUILTIN_CTZLL #define HAWK_HAVE_BUILTIN_CLZ #define HAWK_HAVE_BUILTIN_CLZL #define HAWK_HAVE_BUILTIN_CLZLL #define HAWK_HAVE_BUILTIN_EXPECT #endif #if (__GNUC__ >= 5) #define HAWK_HAVE_BUILTIN_UADD_OVERFLOW #define HAWK_HAVE_BUILTIN_UADDL_OVERFLOW #define HAWK_HAVE_BUILTIN_UADDLL_OVERFLOW #define HAWK_HAVE_BUILTIN_UMUL_OVERFLOW #define HAWK_HAVE_BUILTIN_UMULL_OVERFLOW #define HAWK_HAVE_BUILTIN_UMULLL_OVERFLOW #define HAWK_HAVE_BUILTIN_SADD_OVERFLOW #define HAWK_HAVE_BUILTIN_SADDL_OVERFLOW #define HAWK_HAVE_BUILTIN_SADDLL_OVERFLOW #define HAWK_HAVE_BUILTIN_SMUL_OVERFLOW #define HAWK_HAVE_BUILTIN_SMULL_OVERFLOW #define HAWK_HAVE_BUILTIN_SMULLL_OVERFLOW #endif #if (__GNUC__ >= 5) || (__GNUC__ == 4 && __GNUC_MINOR__ >= 8) /* 4.8.0 or later */ #define HAWK_HAVE_BUILTIN_BSWAP16 #endif #if (__GNUC__ >= 5) || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3) /* 4.3.0 or later */ #define HAWK_HAVE_BUILTIN_BSWAP32 #define HAWK_HAVE_BUILTIN_BSWAP64 /*#define HAWK_HAVE_BUILTIN_BSWAP128*/ #endif #endif #if defined(HAWK_HAVE_BUILTIN_EXPECT) # define HAWK_LIKELY(x) (__builtin_expect(!!(x),1)) # define HAWK_UNLIKELY(x) (__builtin_expect(!!(x),0)) #else # define HAWK_LIKELY(x) (x) # define HAWK_UNLIKELY(x) (x) #endif #if defined(__GNUC__) # define HAWK_PACKED __attribute__((__packed__)) #else # define HAWK_PACKED #endif /* ========================================================================= * ASSERTION * =========================================================================*/ #if defined(HAWK_BUILD_RELEASE) # define HAWK_ASSERT(expr) ((void)0) #else # define HAWK_ASSERT(expr) ((void)((expr) || (hawk_assert_fail(#expr, __FILE__, __LINE__), 0))) #endif /* ========================================================================= * CHARACTER/STRING LITERALS * =========================================================================*/ #define HAWK_BQ_I(val) #val #define HAWK_BQ(val) HAWK_BQ_I(val) /** * The #HAWK_BT macro maps a multi-byte literal string literal as it is. */ #define HAWK_BT(txt) (txt) #if (HAWK_SIZEOF_UCH_T == HAWK_SIZEOF_BCH_T) # define HAWK_UQ_I(val) (#val) # define HAWK_UQ(val) HAWK_UQ_I(val) #elif defined(HAWK_USE_PREFIX_BIG_U) # define HAWK_UQ_I(val) (U ## #val) # define HAWK_UQ(val) HAWK_UQ_I(val) #elif defined(HAWK_USE_PREFIX_SMALL_U) # define HAWK_UQ_I(val) (u ## #val) # define HAWK_UQ(val) HAWK_UQ_I(val) #else # define HAWK_UQ_I(val) (L ## #val) # define HAWK_UQ(val) HAWK_UQ_I(val) #endif /** * The #HAWK_UT macro maps a literal string to a wide character * string by prefixing it with a supported prefix. */ #if (HAWK_SIZEOF_UCH_T == HAWK_SIZEOF_BCH_T) # define HAWK_UT(txt) (txt) #elif defined(HAWK_USE_PREFIX_BIG_U) # define HAWK_UT(txt) (U ## txt) #elif defined(HAWK_USE_PREFIX_SMALL_U) # define HAWK_UT(txt) (u ## txt) #else # define HAWK_UT(txt) (L ## txt) /* if this assertion fails, you should check the compiler flags determining the size of wchar_t */ HAWK_STATIC_ASSERT (sizeof(L'X') == HAWK_SIZEOF_UCH_T); #endif /** \def HAWK_T * The #HAWK_T macro maps to #HAWK_BT if #HAWK_OOCH_IS_BCH is defined, and to * #HAWK_UT if #HAWK_OOCH_IS_UCH is defined. */ #if defined(HAWK_OOCH_IS_BCH) # define HAWK_Q(val) HAWK_BQ(val) # define HAWK_T(txt) HAWK_BT(txt) #else # define HAWK_Q(val) HAWK_UQ(val) # define HAWK_T(txt) HAWK_UT(txt) #endif /** * The #hawk_foff_t type defines an integer that can represent a file offset. * Depending on your system, it's defined to one of #hawk_int64_t, #hawk_int32_t, * and #hawk_int16_t. */ #if defined(HAWK_HAVE_INT64_T) && (HAWK_SIZEOF_OFF64_T==8) typedef hawk_int64_t hawk_foff_t; # define HAWK_SIZEOF_FOFF_T HAWK_SIZEOF_INT64_T #elif defined(HAWK_HAVE_INT64_T) && (HAWK_SIZEOF_OFF_T==8) typedef hawk_int64_t hawk_foff_t; # define HAWK_SIZEOF_FOFF_T HAWK_SIZEOF_INT64_T #elif defined(HAWK_HAVE_INT32_T) && (HAWK_SIZEOF_OFF_T==4) typedef hawk_int32_t hawk_foff_t; # define HAWK_SIZEOF_FOFF_T HAWK_SIZEOF_INT32_T #elif defined(HAWK_HAVE_INT16_T) && (HAWK_SIZEOF_OFF_T==2) typedef hawk_int16_t hawk_foff_t; # define HAWK_SIZEOF_FOFF_T HAWK_SIZEOF_INT16_T #elif defined(HAWK_HAVE_INT8_T) && (HAWK_SIZEOF_OFF_T==1) typedef hawk_int8_t hawk_foff_t; # define HAWK_SIZEOF_FOFF_T HAWK_SIZEOF_INT16_T #else typedef hawk_int32_t hawk_foff_t; /* this line is for doxygen */ # error Unsupported platform #endif #if 0 /* ========================================================================= * SOCKET ADDRESS * ========================================================================= */ #define HAWK_SIZEOF_SKAD_T 1 #if (HAWK_SIZEOF_STRUCT_SOCKADDR_IN > HAWK_SIZEOF_SKAD_T) # undef HAWK_SIZEOF_SKAD_T # define HAWK_SIZEOF_SKAD_T HAWK_SIZEOF_STRUCT_SOCKADDR_IN #endif #if (HAWK_SIZEOF_STRUCT_SOCKADDR_IN6 > HAWK_SIZEOF_SKAD_T) # undef HAWK_SIZEOF_SKAD_T # define HAWK_SIZEOF_SKAD_T HAWK_SIZEOF_STRUCT_SOCKADDR_IN6 #endif #if (HAWK_SIZEOF_STRUCT_SOCKADDR_LL > HAWK_SIZEOF_SKAD_T) # undef HAWK_SIZEOF_SKAD_T # define HAWK_SIZEOF_SKAD_T HAWK_SIZEOF_STRUCT_SOCKADDR_LL #endif #if (HAWK_SIZEOF_STRUCT_SOCKADDR_UN > HAWK_SIZEOF_SKAD_T) # undef HAWK_SIZEOF_SKAD_T # define HAWK_SIZEOF_SKAD_T HAWK_SIZEOF_STRUCT_SOCKADDR_UN #endif struct hawk_skad_t { hawk_uint8_t data[HAWK_SIZEOF_SKAD_T]; }; typedef struct hawk_skad_t hawk_skad_t; #endif #endif