fixed some build file flaws
This commit is contained in:
190
lib/val-prv.h
Normal file
190
lib/val-prv.h
Normal file
@ -0,0 +1,190 @@
|
||||
/*
|
||||
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_VAL_PRV_H_
|
||||
#define _HAWK_VAL_PRV_H_
|
||||
|
||||
#define HAWK_VAL_CHUNK_SIZE 100
|
||||
|
||||
typedef struct hawk_val_chunk_t hawk_val_chunk_t;
|
||||
typedef struct hawk_val_ichunk_t hawk_val_ichunk_t;
|
||||
typedef struct hawk_val_rchunk_t hawk_val_rchunk_t;
|
||||
|
||||
struct hawk_val_chunk_t
|
||||
{
|
||||
hawk_val_chunk_t* next;
|
||||
};
|
||||
|
||||
struct hawk_val_ichunk_t
|
||||
{
|
||||
hawk_val_chunk_t* next;
|
||||
/* make sure that it has the same fields as
|
||||
hawk_val_chunk_t up to this point */
|
||||
|
||||
hawk_val_int_t slot[HAWK_VAL_CHUNK_SIZE];
|
||||
};
|
||||
|
||||
struct hawk_val_rchunk_t
|
||||
{
|
||||
hawk_val_chunk_t* next;
|
||||
/* make sure that it has the same fields as
|
||||
hawk_val_chunk_t up to this point */
|
||||
|
||||
hawk_val_flt_t slot[HAWK_VAL_CHUNK_SIZE];
|
||||
};
|
||||
|
||||
|
||||
/*
|
||||
* if shared objects link a static library, statically defined objects
|
||||
* in the static library will be instatiated in the multiple shared objects.
|
||||
*
|
||||
* so equality check with a value pointer doesn't work
|
||||
* if the code crosses the library boundaries. instead, i decided to
|
||||
* add a field to indicate if a value is static.
|
||||
*
|
||||
|
||||
#define HAWK_IS_STATICVAL(val) ((val) == HAWK_NULL || (val) == hawk_val_nil || (val) == hawk_val_zls || (val) == hawk_val_zlbs)
|
||||
*/
|
||||
#define HAWK_IS_STATICVAL(val) ((val)->v_static)
|
||||
|
||||
|
||||
/* hawk_val_t pointer encoding assumes the pointer is an even number.
|
||||
* i shift an integer within a certain range and set bit 0 to 1 to
|
||||
* encode it in a pointer. (vtr = value pointer).
|
||||
*
|
||||
* is this a safe assumption? do i have to use memalign or write my own
|
||||
* aligned malloc()? */
|
||||
#define HAWK_VTR_NUM_TYPE_BITS_LO 2 /* last 2 bits */
|
||||
#define HAWK_VTR_MASK_TYPE_BITS_LO 3 /* 11 - all 1's in the last 2 bits */
|
||||
#define HAWK_VTR_NUM_TYPE_BITS_LOHI 4
|
||||
#define HAWK_VTR_MASK_TYPE_BITS_LOHI 15 /* 1111 */
|
||||
|
||||
|
||||
#define HAWK_VTR_TYPE_BITS_POINTER 0 /* 00 */
|
||||
#define HAWK_VTR_TYPE_BITS_QINT 1 /* 01 */
|
||||
#define HAWK_VTR_TYPE_BITS_QCHAR 2 /* 10 */
|
||||
#define HAWK_VTR_TYPE_BITS_QEXT 3 /* 11 extended */
|
||||
#define HAWK_VTR_TYPE_BITS_QBCHR 3 /* 0011 */
|
||||
#define HAWK_VTR_TYPE_BITS_RESERVED0 7 /* 0111 */
|
||||
#define HAWK_VTR_TYPE_BITS_RESERVED1 11 /* 1011 */
|
||||
#define HAWK_VTR_TYPE_BITS_RESERVED2 15 /* 1111 */
|
||||
#define HAWK_VTR_SIGN_BIT ((hawk_uintptr_t)1 << (HAWK_SIZEOF_UINTPTR_T * 8 - 1))
|
||||
|
||||
/* shrink the bit range by 1 more bit to ease sign-bit handling.
|
||||
* i want abs(max) == abs(min).
|
||||
* i don't want abs(max) + 1 == abs(min). e.g min: -32768, max: 32767
|
||||
*/
|
||||
#define HAWK_QINT_MAX ((hawk_int_t)((~(hawk_uintptr_t)0) >> (HAWK_VTR_NUM_TYPE_BITS_LO + 1)))
|
||||
#define HAWK_QINT_MIN (-HAWK_QINT_MAX)
|
||||
#define HAWK_IN_QINT_RANGE(i) ((i) >= HAWK_QINT_MIN && (i) <= HAWK_QINT_MAX)
|
||||
|
||||
#define HAWK_VTR_TYPE_BITS_LO(p) (((hawk_uintptr_t)(p)) & HAWK_VTR_MASK_TYPE_BITS_LO)
|
||||
#define HAWK_VTR_TYPE_BITS_LOHI(p) (((hawk_uintptr_t)(p)) & HAWK_VTR_MASK_TYPE_BITS_LOHI)
|
||||
|
||||
//#define HAWK_VTR_TYPE_BITS(p) (((hawk_uintptr_t)(p)) & HAWK_VTR_MASK_TYPE_BITS)
|
||||
#define HAWK_VTR_TYPE_BITS(p) (HAWK_VTR_TYPE_BITS_LO(p) == HAWK_VTR_TYPE_BITS_QEXT? HAWK_VTR_TYPE_BITS_LOHI(p): HAWK_VTR_TYPE_BITS_LO(p))
|
||||
|
||||
|
||||
#define HAWK_VTR_IS_POINTER(p) (HAWK_VTR_TYPE_BITS(p) == HAWK_VTR_TYPE_BITS_POINTER)
|
||||
#define HAWK_VTR_IS_QINT(p) (HAWK_VTR_TYPE_BITS(p) == HAWK_VTR_TYPE_BITS_QINT)
|
||||
#define HAWK_VTR_IS_QCHAR(p) (HAWK_VTR_TYPE_BITS(p) == HAWK_VTR_TYPE_BITS_QCHAR)
|
||||
#define HAWK_VTR_IS_QBCHR(p) (HAWK_VTR_TYPE_BITS(p) == HAWK_VTR_TYPE_BITS_QBCHR)
|
||||
|
||||
#define HAWK_QINT_TO_VTR_POSITIVE(i) \
|
||||
(((hawk_uintptr_t)(i) << HAWK_VTR_NUM_TYPE_BITS_LO) | HAWK_VTR_TYPE_BITS_QINT)
|
||||
|
||||
#define HAWK_QINT_TO_VTR_NEGATIVE(i) \
|
||||
((((hawk_uintptr_t)-(i)) << HAWK_VTR_NUM_TYPE_BITS_LO) | HAWK_VTR_TYPE_BITS_QINT | HAWK_VTR_SIGN_BIT)
|
||||
|
||||
#define HAWK_QINT_TO_VTR(i) \
|
||||
((hawk_val_t*)(((i) < 0)? HAWK_QINT_TO_VTR_NEGATIVE(i): HAWK_QINT_TO_VTR_POSITIVE(i)))
|
||||
|
||||
#define HAWK_QCHAR_TO_VTR(i) ((hawk_val_t*)(((hawk_uintptr_t)(i) << HAWK_VTR_NUM_TYPE_BITS_LO) | HAWK_VTR_TYPE_BITS_QCHAR))
|
||||
#define HAWK_QBCHR_TO_VTR(i) ((hawk_val_t*)(((hawk_uintptr_t)(i) << HAWK_VTR_NUM_TYPE_BITS_LOHI) | HAWK_VTR_TYPE_BITS_QBCHR))
|
||||
|
||||
#define HAWK_VTR_ZERO ((hawk_val_t*)HAWK_QINT_TO_VTR_POSITIVE(0))
|
||||
#define HAWK_VTR_ONE ((hawk_val_t*)HAWK_QINT_TO_VTR_POSITIVE(1))
|
||||
#define HAWK_VTR_NEGONE ((hawk_val_t*)HAWK_QINT_TO_VTR_NEGATIVE(-1))
|
||||
|
||||
/* sizeof(hawk_intptr_t) may not be the same as sizeof(hawk_int_t).
|
||||
* so step-by-step type conversions are needed.
|
||||
* e.g) pointer to uintptr_t, uintptr_t to intptr_t, intptr_t to hawk_int_t */
|
||||
#define HAWK_VTR_TO_QINT_POSITIVE(p) \
|
||||
((hawk_intptr_t)((hawk_uintptr_t)(p) >> HAWK_VTR_NUM_TYPE_BITS_LO))
|
||||
#define HAWK_VTR_TO_QINT_NEGATIVE(p) \
|
||||
(-(hawk_intptr_t)(((hawk_uintptr_t)(p) & ~HAWK_VTR_SIGN_BIT) >> HAWK_VTR_NUM_TYPE_BITS_LO))
|
||||
#define HAWK_VTR_TO_QINT(p) \
|
||||
(((hawk_uintptr_t)(p) & HAWK_VTR_SIGN_BIT)? HAWK_VTR_TO_QINT_NEGATIVE(p): HAWK_VTR_TO_QINT_POSITIVE(p))
|
||||
|
||||
#define HAWK_VTR_TO_QCHAR(p) ((hawk_ooch_t)((hawk_uintptr_t)(p) >> HAWK_VTR_NUM_TYPE_BITS_LO))
|
||||
#define HAWK_VTR_TO_QBCHR(p) ((hawk_ooch_t)((hawk_uintptr_t)(p) >> HAWK_VTR_NUM_TYPE_BITS_LOHI))
|
||||
|
||||
#define HAWK_GET_VAL_TYPE(p) (HAWK_VTR_IS_QINT(p)? HAWK_VAL_INT: \
|
||||
HAWK_VTR_IS_QCHAR(p)? HAWK_VAL_CHAR: \
|
||||
HAWK_VTR_IS_QBCHR(p)? HAWK_VAL_BCHR: (p)->v_type)
|
||||
|
||||
#define HAWK_RTX_GETVALTYPE(rtx, p) HAWK_GET_VAL_TYPE(p)
|
||||
#define HAWK_RTX_GETINTFROMVAL(rtx, p) ((HAWK_VTR_IS_QINT(p)? (hawk_int_t)HAWK_VTR_TO_QINT(p): ((hawk_val_int_t*)(p))->i_val))
|
||||
#define HAWK_RTX_GETCHARFROMVAL(rtx, p) (HAWK_VTR_TO_QCHAR(p))
|
||||
#define HAWK_RTX_GETBCHRFROMVAL(rtx, p) (HAWK_VTR_TO_QBCHR(p))
|
||||
|
||||
|
||||
#define HAWK_VAL_ZERO HAWK_VTR_ZERO
|
||||
#define HAWK_VAL_ONE HAWK_VTR_ONE
|
||||
#define HAWK_VAL_NEGONE HAWK_VTR_NEGONE
|
||||
|
||||
|
||||
#define HAWK_RTX_FREEVAL_CACHE (1 << 0)
|
||||
#define HAWK_RTX_FREEVAL_GC_PRESERVE (1 << 1)
|
||||
|
||||
#if defined(__cplusplus)
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
/* represents a nil value */
|
||||
extern hawk_val_t* hawk_val_nil;
|
||||
|
||||
/* represents an empty string */
|
||||
extern hawk_val_t* hawk_val_zls;
|
||||
|
||||
/* represents an empty byte string */
|
||||
extern hawk_val_t* hawk_val_zlbs;
|
||||
|
||||
|
||||
void hawk_rtx_freeval (
|
||||
hawk_rtx_t* rtx,
|
||||
hawk_val_t* val,
|
||||
int flags
|
||||
);
|
||||
|
||||
void hawk_rtx_freevalchunk (
|
||||
hawk_rtx_t* rtx,
|
||||
hawk_val_chunk_t* chunk
|
||||
);
|
||||
|
||||
#if defined(__cplusplus)
|
||||
}
|
||||
#endif
|
||||
|
||||
#endif
|
Reference in New Issue
Block a user