value.h

Go to the documentation of this file.

#pragma once
#include <stdio.h>
#include <string.h>
#include "kuroko.h"
 
typedef enum {
    KRK_VAL_BOOLEAN  = 0xFFFC,
    KRK_VAL_INTEGER  = 0xFFFD,
    KRK_VAL_HANDLER  = 0xFFFE,
    KRK_VAL_NONE     = 0xFFFF,
    KRK_VAL_KWARGS   = 0x7FFC,
    KRK_VAL_OBJECT   = 0x7FFD,
    KRK_VAL_NOTIMPL  = 0x7FFE,
} KrkValueType;
 
/*
 * The following poorly-named macros define bit patterns for identifying
 * various boxed types.
 *
 * Boxing is done by first setting all of the bits of MASK_NAN. If all of
 * these bits are set, a value is not a float. If any of them are not set,
 * then a value is a float - and possibly a real NaN.
 *
 * Three other bits - one before and two after the MASK_NAN bits - determine
 * what type the value actually is. KWARGS sets none of the identifying bits,
 * NONE sets all of them.
 */
#define KRK_VAL_MASK_BOOLEAN ((uint64_t)0xFFFC000000000000) /* 1..1100 */
#define KRK_VAL_MASK_INTEGER ((uint64_t)0xFFFD000000000000) /* 1..1101 */
#define KRK_VAL_MASK_HANDLER ((uint64_t)0xFFFE000000000000) /* 1..1110 */
#define KRK_VAL_MASK_NONE    ((uint64_t)0xFFFF000000000000) /* 1..1111 */
#define KRK_VAL_MASK_KWARGS  ((uint64_t)0x7FFC000000000000) /* 0..1100 */
#define KRK_VAL_MASK_OBJECT  ((uint64_t)0x7FFD000000000000) /* 0..1101 */
#define KRK_VAL_MASK_NOTIMPL ((uint64_t)0x7FFE000000000000) /* 0..1110 */
#define KRK_VAL_MASK_NAN     ((uint64_t)0x7FFC000000000000)
#define KRK_VAL_MASK_LOW     ((uint64_t)0x0000FFFFFFFFFFFF)
 
typedef uint64_t KrkValue;
 
typedef struct {
    size_t capacity;   
    size_t count;      
    KrkValue * values; 
} KrkValueArray;
 
extern void krk_initValueArray(KrkValueArray * array);
 
extern void krk_writeValueArray(KrkValueArray * array, KrkValue value);
 
extern void krk_freeValueArray(KrkValueArray * array);
 
extern void krk_printValue(FILE * f, KrkValue value);
 
extern void krk_printValueSafe(FILE * f, KrkValue value);
 
extern int krk_valuesEqual(KrkValue a, KrkValue b);
 
extern int krk_valuesSame(KrkValue a, KrkValue b);
 
extern int krk_valuesSameOrEqual(KrkValue a, KrkValue b);
 
extern KrkValue krk_parse_int(const char * start, size_t width, unsigned int base);
 
typedef union {
    KrkValue val;
    double   dbl;
} KrkValueDbl;
 
#ifdef KRK_SANITIZE_OBJECT_POINTERS
#include <assert.h>
static inline uintptr_t _krk_sanitize(uintptr_t input) {
    assert(input != 0);
    return input;
}
#else
#define _krk_sanitize(ptr) (ptr)
#endif
 
#ifdef KRK_HEAP_TAG_BYTE
#define KRK_HEAP_TAG ((uintptr_t)KRK_HEAP_TAG_BYTE << 56)
#else
#define KRK_HEAP_TAG 0
#endif
 
#define NONE_VAL(value)     ((KrkValue)(KRK_VAL_MASK_LOW | KRK_VAL_MASK_NONE))
#define NOTIMPL_VAL(value)  ((KrkValue)(KRK_VAL_MASK_LOW | KRK_VAL_MASK_NOTIMPL))
#define BOOLEAN_VAL(value)  ((KrkValue)(((uint64_t)(value) & KRK_VAL_MASK_LOW) | KRK_VAL_MASK_BOOLEAN))
#define INTEGER_VAL(value)  ((KrkValue)(((uint64_t)(value) & KRK_VAL_MASK_LOW) | KRK_VAL_MASK_INTEGER))
#define KWARGS_VAL(value)   ((KrkValue)((uint32_t)(value) | KRK_VAL_MASK_KWARGS))
#define OBJECT_VAL(value)   ((KrkValue)((_krk_sanitize((uintptr_t)(value)) & KRK_VAL_MASK_LOW) | KRK_VAL_MASK_OBJECT))
#define HANDLER_VAL(ty,ta)  ((KrkValue)((uint64_t)((((uint64_t)ty) << 32) | ((uint32_t)ta)) | KRK_VAL_MASK_HANDLER))
#define FLOATING_VAL(value) (((KrkValueDbl){.dbl = (value)}).val)
 
#define KRK_VAL_TYPE(value) ((value) >> 48)
 
#define KRK_IX(value)  ((uint64_t)((value) & KRK_VAL_MASK_LOW))
#define KRK_SX(value)  ((uint64_t)((value) & 0x800000000000))
#define AS_INTEGER(value) ((krk_integer_type)(KRK_SX(value) ? (KRK_IX(value) | KRK_VAL_MASK_NONE) : (KRK_IX(value))))
#define AS_BOOLEAN(value) AS_INTEGER(value)
 
#define AS_NOTIMPL(value)   ((krk_integer_type)((value) & KRK_VAL_MASK_LOW))
#define AS_HANDLER(value)   ((uint64_t)((value) & KRK_VAL_MASK_LOW))
#define AS_OBJECT(value)    ((KrkObj*)(uintptr_t)(((value) & KRK_VAL_MASK_LOW) | KRK_HEAP_TAG))
#define AS_FLOATING(value)  (((KrkValueDbl){.val = (value)}).dbl)
 
/* This is a silly optimization: because of the arrangement of the identifying
 * bits, (TYPE & MASK_HANDLER) == MASK_BOOLEAN can be used to tell if something
 * is either an integer or a boolean - and booleans are also integers, so this
 * is how we check if something is an integer in the general case; for everything
 * else, we check against MASK_NONE because it sets all the identifying bits. */
#define IS_INTEGER(value)   ((((value) >> 48L) & (KRK_VAL_MASK_HANDLER >> 48L)) == (KRK_VAL_MASK_BOOLEAN >> 48L))
#define IS_BOOLEAN(value)   (((value) >> 48L) == (KRK_VAL_MASK_BOOLEAN >> 48L))
#define IS_NONE(value)      (((value) >> 48L) == (KRK_VAL_MASK_NONE    >> 48L))
#define IS_HANDLER(value)   (((value) >> 48L) == (KRK_VAL_MASK_HANDLER >> 48L))
#define IS_OBJECT(value)    (((value) >> 48L) == (KRK_VAL_MASK_OBJECT  >> 48L))
#define IS_KWARGS(value)    (((value) >> 48L) == (KRK_VAL_MASK_KWARGS  >> 48L))
#define IS_NOTIMPL(value)   (((value) >> 48L) == (KRK_VAL_MASK_NOTIMPL >> 48L))
/* ... and as we said above, if any of the MASK_NAN bits are unset, it's a float. */
#define IS_FLOATING(value)  (((value) & KRK_VAL_MASK_NAN) != KRK_VAL_MASK_NAN)
 
#define AS_HANDLER_TYPE(value)    (AS_HANDLER(value) >> 32)
#define AS_HANDLER_TARGET(value)  (AS_HANDLER(value) & 0xFFFFFFFF)
#define IS_HANDLER_TYPE(value,type) (IS_HANDLER(value) && AS_HANDLER_TYPE(value) == type)
 
#define KWARGS_SINGLE (INT32_MAX)
#define KWARGS_LIST   (INT32_MAX-1)
#define KWARGS_DICT   (INT32_MAX-2)
#define KWARGS_NIL    (INT32_MAX-3)
#define KWARGS_UNSET  (0)
 
#define PRIkrk_int "%" PRId64
#define PRIkrk_hex "%" PRIx64