cdocs/html/lbm__defines_8h_source.html

/*

    Copyright 2022, 2024, 2025 Joel Svensson        svenssonjoel@yahoo.se

              2025 Rasmus Söderhielm rasmus.soderhielm@gmail.com


    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 LBM_DEFINES_H_

#define LBM_DEFINES_H_


/* ------------------------------------------------------------

   Types

   ------------------------------------------------------------ */


#ifndef LBM64


#define LBM_ADDRESS_SHIFT               2

#define LBM_VAL_SHIFT                   4

#define LBM_ENC_1                       0x10


#define LBM_PTR_BIT                      0x00000001u

#define LBM_PTR_VAL_MASK                 0x03FFFFFCu

#define LBM_PTR_TYPE_MASK                0xFC000000u

// TODO: Recall why PTR_NULL is given the value (0x03FFFFFCu >> 2)

#define LBM_PTR_NULL                     (0x03FFFFFCu >> 2)


// The address is an index into the const heap.

#define LBM_PTR_TO_CONSTANT_BIT          0x04000000u

#define LBM_PTR_TO_CONSTANT_MASK         ~LBM_PTR_TO_CONSTANT_BIT

#define LBM_PTR_TO_CONSTANT_SHIFT        26


#define LBM_POINTER_TYPE_FIRST           0x10000000u // 00010000000000000000000000000000

#define LBM_TYPE_CONS                    0x10000000u // 00010000000000000000000000000000

#define LBM_TYPE_CONS_CONST              0x14000000u // 00010100000000000000000000000000

#define LBM_NON_CONS_POINTER_TYPE_FIRST  0x20000000u // 00100000000000000000000000000000

#define LBM_TYPE_I32                     0x28000000u // 00101000000000000000000000000000

#define LBM_TYPE_U32                     0x38000000u // 00111000000000000000000000000000

#define LBM_TYPE_I64                     0x48000000u // 01001000000000000000000000000000

#define LBM_TYPE_U64                     0x58000000u // 01011000000000000000000000000000

#define LBM_TYPE_FLOAT                   0x68000000u // 01101000000000000000000000000000

#define LBM_TYPE_DOUBLE                  0x78000000u // 01111000000000000000000000000000

#define LBM_TYPE_ARRAY                   0x80000000u // 10000000000000000000000000000000 ByteArray

#define LBM_TYPE_ARRAY_CONST             0x84000000u // 10000100000000000000000000000000

#define LBM_TYPE_CHANNEL                 0x90000000u // 10010000000000000000000000000000

#define LBM_TYPE_CUSTOM                  0xA0000000u // 10100000000000000000000000000000

#define LBM_TYPE_LISPARRAY               0xB0000000u // 10110000000000000000000000000000 a "real" array

#define LBM_TYPE_LISPARRAY_CONST         0xB4000000u // 10110100000000000000000000000000

#define LBM_TYPE_DEFRAG_MEM              0xC0000000u // 11000000000000000000000000000000

#define LBM_POINTER_TYPE_LAST            0xCC000000u // 11001100000000000000000000000000

// POINTER_TYPE_LAST is less than the value used for CONTINUATION_INTERNAL


#define LBM_EXACT_CONS_MASK              0x10000001u

#define LBM_EXACT_CONS_CONST_MASK        0x14000001u


#define LBM_CONS_TYPE_MASK               0xF0000000u // 11110000000000000000000000000000

#define LBM_CONS_CONST_TYPE_MASK         0xFF000000u // 11111111000000000000000000000000


#define LBM_CONTINUATION_INTERNAL        0xF8000001u // 11111000000000000000000000000001 PTR bit set

#define LBM_CONTINUATION_INTERNAL_TYPE   0xF8000000u // 11111000000000000000000000000000


#define LBM_GC_MASK                      0x00000002u // 00000000000000000000000000000010

#define LBM_GC_MARKED                    0x00000002u // 00000000000000000000000000000010


#define LBM_VAL_MASK                     0xFFFFFFF0u // 11111111111111111111111111110000

#define LBM_VAL_TYPE_MASK                0x0000000Cu // 00000000000000000000000000001100

#define LBM_TYPE_MASK                    0xFC00000Cu // 11111100000000000000000000001100

#define LBM_NUMBER_MASK                  0x08000000u // 00001000000000000000000000000000

#define LBM_FLOAT_MASK                   0x68000000u // 01101000000000000000000000000000

                                                     //    gc ptr

#define LBM_TYPE_SYMBOL                  0x00000000u // 00  0   0

#define LBM_TYPE_CHAR                    0x00000004u // 01  0   0

#define LBM_TYPE_BYTE                    0x00000004u

#define LBM_TYPE_I                       0x00000008u // 10  0   0

#define LBM_TYPE_U                       0x0000000Cu // 11  0   0

#define LBM_LOW_RESERVED_BITS            0x0000000Fu // 11  1   1


#else /* 64 bit Version */


#define LBM_ADDRESS_SHIFT                2

#define LBM_VAL_SHIFT                    8

#define LBM_ENC_1                        0x100


#define LBM_PTR_BIT                      (lbm_uint)0x1

#define LBM_PTR_VAL_MASK                 (lbm_uint)0x03FFFFFFFFFFFFFC

#define LBM_PTR_TYPE_MASK                (lbm_uint)0xFC00000000000000

#define LBM_PTR_NULL                     ((lbm_uint)0x03FFFFFFFFFFFFFC >> 2)


#define LBM_PTR_TO_CONSTANT_BIT          (lbm_uint)0x0400000000000000

#define LBM_PTR_TO_CONSTANT_MASK         ~LBM_PTR_TO_CONSTANT_BIT

#define LBM_PTR_TO_CONSTANT_SHIFT        58


#define LBM_POINTER_TYPE_FIRST           (lbm_uint)0x1000000000000000

#define LBM_TYPE_CONS                    (lbm_uint)0x1000000000000000

#define LBM_TYPE_CONS_CONST              (lbm_uint)0x1400000000000000

#define LBM_NON_CONS_POINTER_TYPE_FIRST  (lbm_uint)0x2000000000000000

#define LBM_TYPE_I64                     (lbm_uint)0x2800000000000000

#define LBM_TYPE_U64                     (lbm_uint)0x3800000000000000

#define LBM_TYPE_DOUBLE                  (lbm_uint)0x4800000000000000

#define LBM_TYPE_ARRAY                   (lbm_uint)0x5000000000000000

#define LBM_TYPE_ARRAY_CONST             (lbm_uint)0x5400000000000000

#define LBM_TYPE_CHANNEL                 (lbm_uint)0x7000000000000000

#define LBM_TYPE_CUSTOM                  (lbm_uint)0x8000000000000000

#define LBM_TYPE_LISPARRAY               (lbm_uint)0x9000000000000000

#define LBM_TYPE_LISPARRAY_CONST         (lbm_uint)0x9400000000000000

#define LBM_TYPE_DEFRAG_MEM              (lbm_uint)0xA000000000000000

#define LBM_POINTER_TYPE_LAST            (lbm_uint)0xAC00000000000000

// POINTER_TYPE_LAST is less than the value used for CONTINUATION_INTERNAL


#define LBM_EXACT_CONS_MASK              (lbm_uint)0x1000000000000001

#define LBM_EXACT_CONS_CONST_MASK        (lbm_uint)0x1400000000000001


#define LBM_CONS_TYPE_MASK               (lbm_uint)0xF000000000000000

#define LBM_CONS_CONST_TYPE_MASK         (lbm_uint)0xFF00000000000000


#define LBM_CONTINUATION_INTERNAL        (lbm_uint)0xF800000000000001

#define LBM_CONTINUATION_INTERNAL_TYPE   (lbm_uint)0xF800000000000000


#define LBM_GC_MASK                      (lbm_uint)0x2

#define LBM_GC_MARKED                    (lbm_uint)0x2


/* 8 - 2 free bits to encode type information into */

#define LBM_VAL_MASK                    (lbm_uint)0xFFFFFFFFFFFFFF00

#define LBM_VAL_TYPE_MASK               (lbm_uint)0xFC

#define LBM_TYPE_MASK                   (lbm_uint)0xFF000000000000FC

#define LBM_NUMBER_MASK                 (lbm_uint)0x0800000000000000

//    gc ptr

#define LBM_TYPE_SYMBOL                 (lbm_uint)0x0  // 00 00 00  0   0

#define LBM_TYPE_CHAR                   (lbm_uint)0x4  // 00 00 01  0   0

#define LBM_TYPE_BYTE                   (lbm_uint)0x4

#define LBM_TYPE_I32                    (lbm_uint)0x8  // 00 00 10  0   0

#define LBM_TYPE_U32                    (lbm_uint)0xC  // 00 00 11  0   0

#define LBM_TYPE_I                      (lbm_uint)0x14 // 00 01 01  0   0

#define LBM_TYPE_U                      (lbm_uint)0x18 // 00 01 10  0   0

#define LBM_TYPE_FLOAT                  (lbm_uint)0x1C // 00 01 11  0   0

#define LBM_LOW_RESERVED_BITS           (lbm_uint)0xFF // 11 11 11  1   1


#endif

/* ------------------------------------------------------------

   Built in symbols

   ------------------------------------------------------------ */


// Default and fixed symbol ids

#define SYM_NIL           0x0

#define SYM_TRUE          0x2

#define SYM_DONTCARE      0x9

#define SYM_TIMEOUT       0xA


// 0x20 - 0x2F are errors/special

#define SYM_RERROR                0x20  /* READ ERROR */

#define SYM_TERROR                0x21  /* TYPE ERROR */

#define SYM_EERROR                0x22  /* EVAL ERROR */

#define SYM_MERROR                0x23

#define SYM_NOT_FOUND             0x24

#define SYM_DIVZERO               0x25

#define SYM_FATAL_ERROR           0x26 /* Runtime system is corrupt */

#define SYM_STACK_ERROR           0x27

#define SYM_RECOVERED             0x28

#define SYM_ERROR_FLASH_HEAP_FULL 0x29

#define SYM_PLACEHOLDER 0x2A


//#define TYPE_CLASSIFIER_STARTS 0x30

#define SYM_ARRAY_TYPE            0x30

#define SYM_RAW_I_TYPE            0x31

#define SYM_RAW_U_TYPE            0x32

#define SYM_RAW_F_TYPE            0x33

#define SYM_IND_I_TYPE            0x34

#define SYM_IND_U_TYPE            0x35

#define SYM_IND_F_TYPE            0x36

#define SYM_CHANNEL_TYPE          0x37

#define SYM_CUSTOM_TYPE           0x38

#define SYM_LISPARRAY_TYPE        0x39

#define SYM_DEFRAG_MEM_TYPE       0x3A

#define SYM_DEFRAG_ARRAY_TYPE     0x3B

#define SYM_DEFRAG_LISPARRAY_TYPE 0x3C

//#define TYPE_CLASSIFIER_ENDS   0x39


#define SYM_NONSENSE              0x3D


#define SYM_NO_MATCH       0x40

#define SYM_MATCH_ANY      0x41


// Type identifying symbols

#define SYM_TYPE_LIST       0x50

#define SYM_TYPE_I          0x51

#define SYM_TYPE_U          0x52

#define SYM_TYPE_FLOAT      0x53

#define SYM_TYPE_I32        0x54

#define SYM_TYPE_U32        0x55

#define SYM_TYPE_DOUBLE     0x56

#define SYM_TYPE_I64        0x57

#define SYM_TYPE_U64        0x58

#define SYM_TYPE_ARRAY      0x59

#define SYM_TYPE_SYMBOL     0x5A

#define SYM_TYPE_CHAR       0x5B

#define SYM_TYPE_BYTE       0x5C

#define SYM_TYPE_CHANNEL    0x5E

#define SYM_TYPE_LISPARRAY  0x5F

#define SYM_TYPE_DEFRAG_MEM 0x60

#define SYM_TYPE_CUSTOM     0x61


//Relevant for the tokenizer and reader

#define TOKENIZER_SYMBOLS_START 0x70

#define SYM_OPENPAR          0x70

#define SYM_CLOSEPAR         0x71

#define SYM_BACKQUOTE        0x72

#define SYM_COMMA            0x73

#define SYM_COMMAAT          0x74

#define SYM_TOKENIZER_DONE   0x75

#define SYM_DOT              0x76

#define SYM_QUOTE_IT         0x77

#define SYM_COLON            0x78

#define SYM_TOKENIZER_WAIT   0x79

#define SYM_OPENBRACK        0x80

#define SYM_CLOSEBRACK       0x81

#define SYM_TOKENIZER_RERROR 0x82

#define SYM_OPENCURL         0x84

#define SYM_CONST            0x85

#define SYM_OPENARRAY        0x86

#define SYM_CLOSEARRAY       0x87

#define TOKENIZER_SYMBOLS_END 0x87


// Built in special forms:

// Special forms get their arguments unevaluated

// and are free to choose to evaluate one or more

// of them as needed.

// Consecutive for lookup-application.

#define SPECIAL_FORMS_START     0x100

#define SYM_QUOTE               0x100

#define SYM_DEFINE              0x101

#define SYM_PROGN               0x102

#define SYM_LAMBDA              0x103

#define SYM_IF                  0x104

#define SYM_LET                 0x105

#define SYM_AND                 0x106

#define SYM_OR                  0x107

#define SYM_MATCH               0x108

#define SYM_RECEIVE             0x109

#define SYM_RECEIVE_TIMEOUT     0x10A

#define SYM_CALLCC              0x10B

#define SYM_ATOMIC              0x10C

#define SYM_MACRO               0x10D

#define SYM_CONT                0x10E

#define SYM_CLOSURE             0x10F

#define SYM_COND                0x110

#define SYM_APP_CONT            0x111

#define SYM_PROGN_VAR           0x112

#define SYM_SETQ                0x113

#define SYM_MOVE_TO_FLASH       0x114

#define SYM_LOOP                0x115

#define SYM_TRAP                0x116

#define SYM_CALL_CC_UNSAFE      0x117

#define SYM_CONT_SP             0x118

#define SPECIAL_FORMS_END       0x118


#ifndef LBM64

#define SPECIAL_FORMS_MASK        0xFFFFFF00

#define SPECIAL_FORMS_BIT         0x00000100

#define ENC_SPECIAL_FORMS_MASK    0xFFFFF000

#define ENC_SPECIAL_FORMS_BIT     0x00001000

#define SPECIAL_FORMS_INDEX_MASK  0x000000FF

#else

#define SPECIAL_FORMS_MASK        0xFFFFFFFFFFFFFF00

#define SPECIAL_FORMS_BIT         0x0000000000000100

#define ENC_SPECIAL_FORMS_MASK    0xFFFFFFFFFFFF0000

#define ENC_SPECIAL_FORMS_BIT     0x0000000000010000

#define SPECIAL_FORMS_INDEX_MASK  0x00000000000000FF

#endif


// Fundamental built in operations that take their

// arguments on stack. Fundamentals do not handle

// their own GC and they are not allowed to create

// continuations.

#define SYM_ADD                 0x20000

#define SYM_SUB                 0x20001

#define SYM_MUL                 0x20002

#define SYM_DIV                 0x20003

#define SYM_MOD                 0x20004

#define SYM_EQ                  0x20005

#define SYM_NOT_EQ              0x20006

#define SYM_NUMEQ               0x20007

#define SYM_NUM_NOT_EQ          0x20008

#define SYM_LT                  0x20009

#define SYM_GT                  0x2000A

#define SYM_LEQ                 0x2000B

#define SYM_GEQ                 0x2000C

#define SYM_NOT                 0x2000D

#define SYM_PERFORM_GC          0x2000E

#define SYM_SELF                0x2000F

#define SYM_SET_MAILBOX_SIZE    0x20010

#define SYM_CONS                0x20011

#define SYM_CAR                 0x20012

#define SYM_CDR                 0x20013

#define SYM_LIST                0x20014

#define SYM_APPEND              0x20015

#define SYM_UNDEFINE            0x20016

#define SYM_BYTEARRAY_CREATE    0x20017

#define SYM_SYMBOL_TO_STRING    0x20018

#define SYM_STRING_TO_SYMBOL    0x20019

#define SYM_SYMBOL_TO_UINT      0x2001A

#define SYM_UINT_TO_SYMBOL      0x2001B

#define SYM_SET_CAR             0x2001C

#define SYM_SET_CDR             0x2001D

#define SYM_SET_IX              0x2001E

#define SYM_ASSOC               0x2001F

#define SYM_ACONS               0x20020

#define SYM_SET_ASSOC           0x20021

#define SYM_COSSA               0x20022

#define SYM_IX                  0x20023

#define SYM_TO_I                0x20024

#define SYM_TO_I32              0x20025

#define SYM_TO_U                0x20026

#define SYM_TO_U32              0x20027

#define SYM_TO_FLOAT            0x20028

#define SYM_TO_I64              0x20029

#define SYM_TO_U64              0x2002A

#define SYM_TO_DOUBLE           0x2002B

#define SYM_TO_BYTE             0x2002C

#define SYM_SHL                 0x2002D

#define SYM_SHR                 0x2002E

#define SYM_BITWISE_AND         0x2002F

#define SYM_BITWISE_OR          0x20030

#define SYM_BITWISE_XOR         0x20031

#define SYM_BITWISE_NOT         0x20032

#define SYM_CUSTOM_DESTRUCT     0x20033

#define SYM_TYPE_OF             0x20034

#define SYM_LIST_LENGTH         0x20035

#define SYM_RANGE               0x20036

#define SYM_REG_EVENT_HANDLER   0x20037

#define SYM_TAKE                0x20038

#define SYM_DROP                0x20039

#define SYM_MKARRAY             0x2003A

#define SYM_DM_CREATE           0x2003B

#define SYM_DM_ALLOC            0x2003C

#define SYM_IS_LIST             0x2003D

#define SYM_IS_NUMBER           0x2003E

#define SYM_INT_DIV             0x2003F

#define SYM_IDENTITY            0x20040

#define SYM_ARRAY               0x20041

#define SYM_IS_STRING           0x20042

#define SYM_IS_CONSTANT         0x20043

#define SYM_MEMBER              0x20044


// Apply funs:

// Get their arguments in evaluated form on the stack.

// Consecutive value symbols for lookup-application

// apply funs handle their own GC needs and can

// create continuations.

#define SYM_SETVAR                0x30000

#define SYM_READ                  0x30001

#define SYM_READ_PROGRAM          0x30002

#define SYM_READ_AND_EVAL_PROGRAM 0x30003

#define SYM_SPAWN                 0x30004

#define SYM_SPAWN_TRAP            0x30005

#define SYM_YIELD                 0x30006

#define SYM_WAIT                  0x30007

#define SYM_EVAL                  0x30008

#define SYM_EVAL_PROGRAM          0x30009

#define SYM_SEND                  0x3000A

#define SYM_EXIT_OK               0x3000B

#define SYM_EXIT_ERROR            0x3000C

#define SYM_MAP                   0x3000D

#define SYM_REVERSE               0x3000E

#define SYM_FLATTEN               0x3000F

#define SYM_UNFLATTEN             0x30010

#define SYM_KILL                  0x30011

#define SYM_SLEEP                 0x30012

#define SYM_MERGE                 0x30013

#define SYM_SORT                  0x30014

#define SYM_REST_ARGS             0x30015

#define SYM_ROTATE                0x30016

#define SYM_APPLY                 0x30017


#define SYMBOL_KIND(X)          ((X) >> 16)

#define SYMBOL_KIND_SPECIAL     0

#define SYMBOL_KIND_EXTENSION   1

#define SYMBOL_KIND_FUNDAMENTAL 2

#define SYMBOL_KIND_APPFUN      3


#define SYMBOL_IX(X)            ((X) & 0xFFFF)


#define SPECIAL_SYMBOLS_START     0

#define SPECIAL_SYMBOLS_END       0xFFFF

#define EXTENSION_SYMBOLS_START   0x10000

#define EXTENSION_SYMBOLS_END     0x1FFFF

#define FUNDAMENTAL_SYMBOLS_START 0x20000

#define FUNDAMENTAL_SYMBOLS_END   0x2FFFF

#define APPFUN_SYMBOLS_START      0x30000

#define APPFUN_SYMBOLS_END        0x3FFFF

#define RUNTIME_SYMBOLS_START     0x40000

#define MAX_SYMBOL_VALUE          0x0FFFFFFF


// This leaves 268173312 runtime symbols available.


/* ------------------------------------------------------------

   Encoded Symbols

   ------------------------------------------------------------ */


#define ENC_SYM(X) (((X) << LBM_VAL_SHIFT) | LBM_TYPE_SYMBOL)


#define ENC_SYM_NIL           ENC_SYM(SYM_NIL)

#define ENC_SYM_TRUE          ENC_SYM(SYM_TRUE)

#define ENC_SYM_DONTCARE      ENC_SYM(SYM_DONTCARE)

#define ENC_SYM_TIMEOUT       ENC_SYM(SYM_TIMEOUT)


#define ENC_SYM_RERROR                ENC_SYM(SYM_RERROR)

#define ENC_SYM_TERROR                ENC_SYM(SYM_TERROR)

#define ENC_SYM_EERROR                ENC_SYM(SYM_EERROR)

#define ENC_SYM_MERROR                ENC_SYM(SYM_MERROR)

#define ENC_SYM_NOT_FOUND             ENC_SYM(SYM_NOT_FOUND)

#define ENC_SYM_DIVZERO               ENC_SYM(SYM_DIVZERO)

#define ENC_SYM_FATAL_ERROR           ENC_SYM(SYM_FATAL_ERROR)

#define ENC_SYM_STACK_ERROR           ENC_SYM(SYM_STACK_ERROR)

#define ENC_SYM_RECOVERED             ENC_SYM(SYM_RECOVERED)

#define ENC_SYM_ERROR_FLASH_HEAP_FULL ENC_SYM(SYM_ERROR_FLASH_HEAP_FULL)

#define ENC_SYM_PLACEHOLDER           ENC_SYM(SYM_PLACEHOLDER)


#define ENC_SYM_ARRAY_TYPE            ENC_SYM(SYM_ARRAY_TYPE)

#define ENC_SYM_RAW_I_TYPE            ENC_SYM(SYM_RAW_I_TYPE)

#define ENC_SYM_RAW_U_TYPE            ENC_SYM(SYM_RAW_U_TYPE)

#define ENC_SYM_RAW_F_TYPE            ENC_SYM(SYM_RAW_F_TYPE)

#define ENC_SYM_IND_I_TYPE            ENC_SYM(SYM_IND_I_TYPE)

#define ENC_SYM_IND_U_TYPE            ENC_SYM(SYM_IND_U_TYPE)

#define ENC_SYM_IND_F_TYPE            ENC_SYM(SYM_IND_F_TYPE)

#define ENC_SYM_CHANNEL_TYPE          ENC_SYM(SYM_CHANNEL_TYPE)

#define ENC_SYM_CUSTOM_TYPE           ENC_SYM(SYM_CUSTOM_TYPE)

#define ENC_SYM_LISPARRAY_TYPE        ENC_SYM(SYM_LISPARRAY_TYPE)

#define ENC_SYM_DEFRAG_MEM_TYPE       ENC_SYM(SYM_DEFRAG_MEM_TYPE)

#define ENC_SYM_DEFRAG_ARRAY_TYPE     ENC_SYM(SYM_DEFRAG_ARRAY_TYPE)

#define ENC_SYM_DEFRAG_LISPARRAY_TYPE ENC_SYM(SYM_DEFRAG_LISPARRAY_TYPE)

#define ENC_SYM_NONSENSE              ENC_SYM(SYM_NONSENSE)


#define ENC_SYM_NO_MATCH        ENC_SYM(SYM_NO_MATCH)

#define ENC_SYM_MATCH_ANY       ENC_SYM(SYM_MATCH_ANY)


#define ENC_SYM_TYPE_LIST       ENC_SYM(SYM_TYPE_LIST)

#define ENC_SYM_TYPE_I          ENC_SYM(SYM_TYPE_I)

#define ENC_SYM_TYPE_U          ENC_SYM(SYM_TYPE_U)

#define ENC_SYM_TYPE_FLOAT      ENC_SYM(SYM_TYPE_FLOAT)

#define ENC_SYM_TYPE_I32        ENC_SYM(SYM_TYPE_I32)

#define ENC_SYM_TYPE_U32        ENC_SYM(SYM_TYPE_U32)

#define ENC_SYM_TYPE_DOUBLE     ENC_SYM(SYM_TYPE_DOUBLE)

#define ENC_SYM_TYPE_I64        ENC_SYM(SYM_TYPE_I64)

#define ENC_SYM_TYPE_U64        ENC_SYM(SYM_TYPE_U64)

#define ENC_SYM_TYPE_ARRAY      ENC_SYM(SYM_TYPE_ARRAY)

#define ENC_SYM_TYPE_SYMBOL     ENC_SYM(SYM_TYPE_SYMBOL)

#define ENC_SYM_TYPE_CHAR       ENC_SYM(SYM_TYPE_CHAR)

#define ENC_SYM_TYPE_BYTE       ENC_SYM(SYM_TYPE_BYTE)

#define ENC_SYM_TYPE_CHANNEL    ENC_SYM(SYM_TYPE_CHANNEL)

#define ENC_SYM_TYPE_LISPARRAY  ENC_SYM(SYM_TYPE_LISPARRAY)

#define ENC_SYM_TYPE_DEFRAG_MEM ENC_SYM(SYM_TYPE_DEFRAG_MEM)

#define ENC_SYM_TYPE_CUSTOM     ENC_SYM(SYM_TYPE_CUSTOM)


#define ENC_SYM_OPENPAR          ENC_SYM(SYM_OPENPAR)

#define ENC_SYM_CLOSEPAR         ENC_SYM(SYM_CLOSEPAR)

#define ENC_SYM_BACKQUOTE        ENC_SYM(SYM_BACKQUOTE)

#define ENC_SYM_COMMA            ENC_SYM(SYM_COMMA)

#define ENC_SYM_COMMAAT          ENC_SYM(SYM_COMMAAT)

#define ENC_SYM_TOKENIZER_DONE   ENC_SYM(SYM_TOKENIZER_DONE)

#define ENC_SYM_DOT              ENC_SYM(SYM_DOT)

#define ENC_SYM_QUOTE_IT         ENC_SYM(SYM_QUOTE_IT)

#define ENC_SYM_COLON            ENC_SYM(SYM_COLON)

#define ENC_SYM_TOKENIZER_WAIT   ENC_SYM(SYM_TOKENIZER_WAIT)

#define ENC_SYM_OPENBRACK        ENC_SYM(SYM_OPENBRACK)

#define ENC_SYM_CLOSEBRACK       ENC_SYM(SYM_CLOSEBRACK)

#define ENC_SYM_TOKENIZER_RERROR ENC_SYM(SYM_TOKENIZER_RERROR)

#define ENC_SYM_OPENCURL         ENC_SYM(SYM_OPENCURL)

#define ENC_SYM_CONST            ENC_SYM(SYM_CONST)

#define ENC_SYM_OPENARRAY        ENC_SYM(SYM_OPENARRAY)

#define ENC_SYM_CLOSEARRAY       ENC_SYM(SYM_CLOSEARRAY)


#define ENC_SYM_QUOTE               ENC_SYM(SYM_QUOTE)

#define ENC_SYM_DEFINE              ENC_SYM(SYM_DEFINE)

#define ENC_SYM_PROGN               ENC_SYM(SYM_PROGN)

#define ENC_SYM_LAMBDA              ENC_SYM(SYM_LAMBDA)

#define ENC_SYM_IF                  ENC_SYM(SYM_IF)

#define ENC_SYM_LET                 ENC_SYM(SYM_LET)

#define ENC_SYM_AND                 ENC_SYM(SYM_AND)

#define ENC_SYM_OR                  ENC_SYM(SYM_OR)

#define ENC_SYM_MATCH               ENC_SYM(SYM_MATCH)

#define ENC_SYM_RECEIVE             ENC_SYM(SYM_RECEIVE)

#define ENC_SYM_RECEIVE_TIMEOUT     ENC_SYM(SYM_RECEIVE_TIMEOUT)

#define ENC_SYM_CALLCC              ENC_SYM(SYM_CALLCC)

#define ENC_SYM_ATOMIC              ENC_SYM(SYM_ATOMIC)

#define ENC_SYM_MACRO               ENC_SYM(SYM_MACRO)

#define ENC_SYM_CONT                ENC_SYM(SYM_CONT)

#define ENC_SYM_CLOSURE             ENC_SYM(SYM_CLOSURE)

#define ENC_SYM_COND                ENC_SYM(SYM_COND)

#define ENC_SYM_APP_CONT            ENC_SYM(SYM_APP_CONT)

#define ENC_SYM_PROGN_VAR           ENC_SYM(SYM_PROGN_VAR)

#define ENC_SYM_SETQ                ENC_SYM(SYM_SETQ)

#define ENC_SYM_MOVE_TO_FLASH       ENC_SYM(SYM_MOVE_TO_FLASH)

#define ENC_SYM_IN_ENV              ENC_SYM(SYM_IN_ENV)


#define ENC_SYM_SETVAR                ENC_SYM(SYM_SETVAR)

#define ENC_SYM_READ                  ENC_SYM(SYM_READ)

#define ENC_SYM_READ_PROGRAM          ENC_SYM(SYM_READ_PROGRAM)

#define ENC_SYM_READ_AND_EVAL_PROGRAM ENC_SYM(SYM_READ_AND_EVAL_PROGRAM)

#define ENC_SYM_SPAWN                 ENC_SYM(SYM_SPAWN)

#define ENC_SYM_SPAWN_TRAP            ENC_SYM(SYM_SPAWN_TRAP)

#define ENC_SYM_YIELD                 ENC_SYM(SYM_YIELD)

#define ENC_SYM_WAIT                  ENC_SYM(SYM_WAIT)

#define ENC_SYM_EVAL                  ENC_SYM(SYM_EVAL)

#define ENC_SYM_EVAL_PROGRAM          ENC_SYM(SYM_EVAL_PROGRAM)

#define ENC_SYM_SEND                  ENC_SYM(SYM_SEND)

#define ENC_SYM_EXIT_OK               ENC_SYM(SYM_EXIT_OK)

#define ENC_SYM_EXIT_ERROR            ENC_SYM(SYM_EXIT_ERROR)

#define ENC_SYM_MAP                   ENC_SYM(SYM_MAP)

#define ENC_SYM_REVERSE               ENC_SYM(SYM_REVERSE)

#define ENC_SYM_FLATTEN               ENC_SYM(SYM_FLATTEN)

#define ENC_SYM_UNFLATTEN             ENC_SYM(SYM_UNFLATTEN)

#define ENC_SYM_KILL                  ENC_SYM(SYM_KILL)

#define ENC_SYM_SLEEP                 ENC_SYM(SYM_SLEEP)

#define ENC_SYM_MERGE                 ENC_SYM(SYM_MERGE)

#define ENC_SYM_SORT                  ENC_SYM(SYM_SORT)

#define ENC_SYM_REST_ARGS             ENC_SYM(SYM_REST_ARGS)

#define ENC_SYM_ROTATE                ENC_SYM(SYM_ROTATE)

#define ENC_SYM_TRAP                  ENC_SYM(SYM_TRAP)

#define ENC_SYM_CALL_CC_UNSAFE        ENC_SYM(SYM_CALL_CC_UNSAFE)

#define ENC_SYM_CONT_SP               ENC_SYM(SYM_CONT_SP)

#define ENC_SYM_APPLY                 ENC_SYM(SYM_APPLY)


#define ENC_SYM_ADD           ENC_SYM(SYM_ADD)

#define ENC_SYM_SUB           ENC_SYM(SYM_SUB)

#define ENC_SYM_MUL           ENC_SYM(SYM_MUL)

#define ENC_SYM_DIV           ENC_SYM(SYM_DIV)

#define ENC_SYM_MOD           ENC_SYM(SYM_MOD)

#define ENC_SYM_EQ            ENC_SYM(SYM_EQ)

#define ENC_SYM_NOT_EQ        ENC_SYM(SYM_NOT_EQ)

#define ENC_SYM_NUMEQ         ENC_SYM(SYM_NUMEQ)

#define ENC_SYM_NUM_NOT_EQ    ENC_SYM(SYM_NUM_NOT_EQ)

#define ENC_SYM_LT            ENC_SYM(SYM_LT)

#define ENC_SYM_GT            ENC_SYM(SYM_GT)

#define ENC_SYM_LEQ           ENC_SYM(SYM_LEQ)

#define ENC_SYM_GEQ           ENC_SYM(SYM_GEQ)

#define ENC_SYM_NOT           ENC_SYM(SYM_NOT)

#define ENC_SYM_PERFORM_GC          ENC_SYM(SYM_PERFORM_GC)

#define ENC_SYM_SELF                ENC_SYM(SYM_SELF)

#define ENC_SYM_SET_MAILBOX_SIZE    ENC_SYM(SYM_SET_MAILBOX_SIZE)

#define ENC_SYM_CONS                ENC_SYM(SYM_CONS)

#define ENC_SYM_CAR                 ENC_SYM(SYM_CAR)

#define ENC_SYM_CDR                 ENC_SYM(SYM_CDR)

#define ENC_SYM_LIST                ENC_SYM(SYM_LIST)

#define ENC_SYM_APPEND              ENC_SYM(SYM_APPEND)

#define ENC_SYM_UNDEFINE            ENC_SYM(SYM_UNDEFINE)

#define ENC_SYM_BYTEARRAY_CREATE    ENC_SYM(SYM_BYTEARRAY_CREATE)

#define ENC_SYM_SYMBOL_TO_STRING    ENC_SYM(SYM_ENC_SYMBOL_TO_STRING)

#define ENC_SYM_STRING_TO_SYMBOL    ENC_SYM(SYM_STRING_TO_SYMBOL)

#define ENC_SYM_SYMBOL_TO_UINT      ENC_SYM(SYM_SYMBOL_TO_UINT)

#define ENC_SYM_UINT_TO_SYMBOL      ENC_SYM(SYM_UINT_TO_SYMBOL)

#define ENC_SYM_SET_CAR             ENC_SYM(SYM_SET_CAR)

#define ENC_SYM_SET_CDR             ENC_SYM(SYM_SET_CDR)

#define ENC_SYM_SET_IX              ENC_SYM(SYM_SET_IX)

#define ENC_SYM_ASSOC               ENC_SYM(SYM_ASSOC)

#define ENC_SYM_ACONS               ENC_SYM(SYM_ACONS)

#define ENC_SYM_SET_ASSOC           ENC_SYM(SYM_SET_ASSOC)

#define ENC_SYM_COSSA               ENC_SYM(SYM_COSSA)

#define ENC_SYM_IX                  ENC_SYM(SYM_IX)

#define ENC_SYM_TO_I                ENC_SYM(SYM_TO_I)

#define ENC_SYM_TO_I32              ENC_SYM(SYM_TO_I32)

#define ENC_SYM_TO_U                ENC_SYM(SYM_TO_U)

#define ENC_SYM_TO_U32              ENC_SYM(SYM_TO_U32)

#define ENC_SYM_TO_FLOAT            ENC_SYM(SYM_TO_FLOAT)

#define ENC_SYM_TO_I64              ENC_SYM(SYM_TO_I64)

#define ENC_SYM_TO_U64              ENC_SYM(SYM_TO_U64)

#define ENC_SYM_TO_DOUBLE           ENC_SYM(SYM_TO_DOUBLE)

#define ENC_SYM_TO_BYTE             ENC_SYM(SYM_TO_BYTE)

#define ENC_SYM_SHL                 ENC_SYM(SYM_SHL)

#define ENC_SYM_SHR                 ENC_SYM(SYM_SHR)

#define ENC_SYM_BITWISE_AND         ENC_SYM(SYM_BITWISE_AND)

#define ENC_SYM_BITWISE_OR          ENC_SYM(SYM_BITWISE_OR)

#define ENC_SYM_BITWISE_XOR         ENC_SYM(SYM_BITWISE_XOR)

#define ENC_SYM_BITWISE_NOT         ENC_SYM(SYM_BITWISE_NOT)

#define ENC_SYM_CUSTOM_DESTRUCT     ENC_SYM(SYM_CUSTOM_DESTRUCT)

#define ENC_SYM_TYPE_OF             ENC_SYM(SYM_TYPE_OF)

#define ENC_SYM_LIST_LENGTH         ENC_SYM(SYM_LIST_LENGTH)

#define ENC_SYM_RANGE               ENC_SYM(SYM_RANGE)

#define ENC_SYM_REG_EVENT_HANDLER   ENC_SYM(SYM_REG_EVENT_HANDLER)

#define ENC_SYM_TAKE                ENC_SYM(SYM_TAKE)

#define ENC_SYM_DROP                ENC_SYM(SYM_DROP)

#define ENC_SYM_MKARRAY             ENC_SYM(SYM_MKARRAY)

#define ENC_SYM_DM_CREATE           ENC_SYM(SYM_DM_CREATE)

#define ENC_SYM_DM_ALLOC            ENC_SYM(SYM_DM_ALLOC)

#define ENC_SYM_IS_LIST             ENC_SYM(SYM_IS_LIST)

#define ENC_SYM_IS_NUMBER           ENC_SYM(SYM_IS_NUMBER)


#endif