hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
3a30ffda7b
hcl/lib/hcl-prv.h

1031 lines
30 KiB
C
Raw Normal View History

added initial hcl files
2016-09-28 14:40:37 +00:00
/*
* $Id$
*
changed copyright years
2018-02-07 14:13:13 +00:00
Copyright (c) 2016-2018 Chung, Hyung-Hwan. All rights reserved.
added initial hcl files
2016-09-28 14:40:37 +00:00
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 _HCL_PRV_H_
#define _HCL_PRV_H_
#include "hcl.h"
#include "hcl-utl.h"
/* you can define this to either 1 or 2 */
#define HCL_BCODE_LONG_PARAM_SIZE 2
/* this is useful for debugging. hcl_gc() can be called
* while hcl has not been fully initialized when this is defined*/
#define HCL_SUPPORT_GC_DURING_IGNITION
/* define this to generate XXXX_CTXTEMVAR instructions */
#define HCL_USE_CTXTEMPVAR
/* define this to use the MAKE_BLOCK instruction instead of
* PUSH_CONTEXT, PUSH_INTLIT, PUSH_INTLIT, SEND_BLOCK_COPY */
#define HCL_USE_MAKE_BLOCK
trying to revive this project
2018-02-05 10:43:25 +00:00
/* define this to enable karatsuba multiplication in bigint */
#define HCL_ENABLE_KARATSUBA
#define HCL_KARATSUBA_CUTOFF 32
#define HCL_KARATSUBA_CUTOFF_DEBUG 3
added initial hcl files
2016-09-28 14:40:37 +00:00
/* define this to allow an pointer(OOP) object to have trailing bytes
* this is used to embed bytes codes into the back of a compile method
* object instead of putting in in a separate byte array. */
#define HCL_USE_OBJECT_TRAILER
added the id field to process
2018-02-08 09:21:18 +00:00
deprecated NDEBUG and introduced HCL_BUILD_DEBUG and HCL_BUILD_RELEASE
2018-02-21 09:30:18 +00:00
#if defined(HCL_BUILD_DEBUG)
added a new debugging macro HCL_DEBUG_LEXER removed the debugging macro HCL_DBEUG_BIGINT
2018-02-21 13:02:05 +00:00
#define HCL_DEBUG_LEXER 1
added the id field to process
2018-02-08 09:21:18 +00:00
#define HCL_DEBUG_VM_PROCESSOR 1
#define HCL_DEBUG_VM_EXEC 1
added more vm primitives
2018-02-08 14:40:56 +00:00
#define HCL_PROFILE_VM 1
added the id field to process
2018-02-08 09:21:18 +00:00
#endif
added initial hcl files
2016-09-28 14:40:37 +00:00
added some code to handle primitives and the call instruction
2016-10-06 17:49:47 +00:00
/* allow the caller to drive process switching by calling
* stix_switchprocess(). */
#define HCL_EXTERNAL_PROCESS_SWITCH
added initial hcl files
2016-09-28 14:40:37 +00:00
/* limit the maximum object size such that:
* 1. an index to an object field can be represented in a small integer.
* 2. the maximum number of bits including bit-shifts can be represented
* in the hcl_oow_t type.
*/
#define HCL_LIMIT_OBJ_SIZE
work in progress to add the hcl_purgeatdic() function
2018-03-08 10:00:57 +00:00
#define HCL_BC_BUFFER_INIT 10240
#define HCL_BC_BUFFER_ALIGN 10240
#define HCL_LIT_BUFFER_INIT 1024
#define HCL_LIT_BUFFER_ALIGN 1024
added initial hcl files
2016-09-28 14:40:37 +00:00
#if defined(__has_builtin)
added a new debugging macro HCL_DEBUG_LEXER removed the debugging macro HCL_DBEUG_BIGINT
2018-02-21 13:02:05 +00:00
# if (!__has_builtin(__builtin_memset) || !__has_builtin(__builtin_memcpy) || !__has_builtin(__builtin_memmove) || !__has_builtin(__builtin_memcmp))
# include <string.h>
# endif
added initial hcl files
2016-09-28 14:40:37 +00:00
# if __has_builtin(__builtin_memset)
# define HCL_MEMSET(dst,src,size) __builtin_memset(dst,src,size)
# else
# define HCL_MEMSET(dst,src,size) memset(dst,src,size)
# endif
# if __has_builtin(__builtin_memcpy)
# define HCL_MEMCPY(dst,src,size) __builtin_memcpy(dst,src,size)
# else
# define HCL_MEMCPY(dst,src,size) memcpy(dst,src,size)
# endif
# if __has_builtin(__builtin_memmove)
# define HCL_MEMMOVE(dst,src,size) __builtin_memmove(dst,src,size)
# else
# define HCL_MEMMOVE(dst,src,size) memmove(dst,src,size)
# endif
# if __has_builtin(__builtin_memcmp)
# define HCL_MEMCMP(dst,src,size) __builtin_memcmp(dst,src,size)
# else
# define HCL_MEMCMP(dst,src,size) memcmp(dst,src,size)
# endif
#elif defined(__GNUC__) && (__GNUC__ >= 3 || (defined(__GNUC_MINOR) && __GNUC__ == 2 && __GNUC_MINOR__ >= 91))
/* gcc 2.91 or higher */
# define HCL_MEMSET(dst,src,size) __builtin_memset(dst,src,size)
# define HCL_MEMCPY(dst,src,size) __builtin_memcpy(dst,src,size)
# define HCL_MEMMOVE(dst,src,size) __builtin_memmove(dst,src,size)
# define HCL_MEMCMP(dst,src,size) __builtin_memcmp(dst,src,size)
#else
added a new debugging macro HCL_DEBUG_LEXER removed the debugging macro HCL_DBEUG_BIGINT
2018-02-21 13:02:05 +00:00
# include <string.h>
added initial hcl files
2016-09-28 14:40:37 +00:00
# define HCL_MEMSET(dst,src,size) memset(dst,src,size)
# define HCL_MEMCPY(dst,src,size) memcpy(dst,src,size)
# define HCL_MEMMOVE(dst,src,size) memmove(dst,src,size)
# define HCL_MEMCMP(dst,src,size) memcmp(dst,src,size)
#endif
#if defined(HCL_LIMIT_OBJ_SIZE)
/* limit the maximum object size such that:
* 1. an index to an object field can be represented in a small integer.
* 2. the maximum number of bit shifts can be represented in the hcl_oow_t type.
*/
# define HCL_OBJ_SIZE_MAX ((hcl_oow_t)HCL_SMOOI_MAX)
# define HCL_OBJ_SIZE_BITS_MAX (HCL_OBJ_SIZE_MAX * 8)
#else
# define HCL_OBJ_SIZE_MAX ((hcl_oow_t)HCL_TYPE_MAX(hcl_oow_t))
# define HCL_OBJ_SIZE_BITS_MAX (HCL_OBJ_SIZE_MAX * 8)
#endif
#if defined(HCL_INCLUDE_COMPILER)
/* ========================================================================= */
/* SOURCE CODE I/O FOR COMPILER */
/* ========================================================================= */
enhanced the logfmtv to handle encoding conversion of the format string
2018-02-26 15:24:45 +00:00
enum hcl_iotok_type_t
{
HCL_IOTOK_EOF,
HCL_IOTOK_CHARLIT,
HCL_IOTOK_STRLIT,
HCL_IOTOK_NUMLIT,
HCL_IOTOK_RADNUMLIT,
implemented reading and printing of fixed-point decimal number. primitives yet to be written
2018-03-28 08:57:49 +00:00
HCL_IOTOK_FPDECLIT,
enhanced the logfmtv to handle encoding conversion of the format string
2018-02-26 15:24:45 +00:00
HCL_IOTOK_SMPTRLIT,
HCL_IOTOK_ERRORLIT,
HCL_IOTOK_NIL,
HCL_IOTOK_TRUE,
HCL_IOTOK_FALSE,
HCL_IOTOK_IDENT,
HCL_IOTOK_IDENT_DOTTED,
HCL_IOTOK_DOT,
HCL_IOTOK_LPAREN,
HCL_IOTOK_RPAREN,
HCL_IOTOK_APAREN, /* #( */
HCL_IOTOK_BAPAREN, /* #[ */
HCL_IOTOK_DPAREN, /* #{ */
HCL_IOTOK_LBRACK, /* [ */
HCL_IOTOK_RBRACK,
HCL_IOTOK_LBRACE,
HCL_IOTOK_RBRACE,
HCL_IOTOK_VBAR,
HCL_IOTOK_INCLUDE
};
typedef enum hcl_iotok_type_t hcl_iotok_type_t;
added initial hcl files
2016-09-28 14:40:37 +00:00
typedef struct hcl_iotok_t hcl_iotok_t;
struct hcl_iotok_t
{
enhanced the logfmtv to handle encoding conversion of the format string
2018-02-26 15:24:45 +00:00
hcl_iotok_type_t type;
added initial hcl files
2016-09-28 14:40:37 +00:00
hcl_oocs_t name;
hcl_oow_t name_capa;
hcl_ioloc_t loc;
};
typedef struct hcl_iolink_t hcl_iolink_t;
struct hcl_iolink_t
{
hcl_iolink_t* link;
};
/* NOTE: hcl_cframe_t used by the built-in compiler is not an OOP object */
struct hcl_cframe_t
{
int opcode;
hcl_oop_t operand;
union
{
struct
{
int var_type;
} set;
handled the while loop almost in full
2016-10-11 10:29:37 +00:00
struct
{
hcl_ooi_t cond_pos;
improved break handling further
2016-10-13 07:41:10 +00:00
hcl_ooi_t body_pos;
handled the while loop almost in full
2016-10-11 10:29:37 +00:00
} post_while;
started the if handling
2016-10-15 08:49:27 +00:00
struct
{
hcl_ooi_t body_pos;
} post_if;
enhanced the compiler to handle array enclosed in #(). added partial code to handle dictionary enclosed in #{}
2018-02-07 07:35:30 +00:00
struct
{
hcl_ooi_t index;
} array_list;
added bytearray compilation code
2018-02-07 13:55:22 +00:00
struct
{
hcl_ooi_t index;
} bytearray_list;
added initial hcl files
2016-09-28 14:40:37 +00:00
} u;
};
typedef struct hcl_cframe_t hcl_cframe_t;
struct hcl_compiler_t
{
/* output handler */
hcl_ioimpl_t printer;
hcl_iooutarg_t outarg;
/* input handler */
hcl_ioimpl_t reader;
/* static input data buffer */
hcl_ioinarg_t inarg;
/* pointer to the current input data. initially, it points to &inarg */
hcl_ioinarg_t* curinp;
/* information about the last meaningful character read.
* this is a copy of curinp->lxc if no ungetting is performed.
* if there is something in the unget buffer, this is overwritten
* by a value from the buffer when the request to read a character
* is served */
hcl_iolxc_t lxc;
/* unget buffer */
hcl_iolxc_t ungot[10];
int nungots;
/* the last token read */
hcl_iotok_t tok;
hcl_iolink_t* io_names;
hcl_synerr_t synerr;
/* temporary space to handle an illegal character */
hcl_ooch_t ilchr;
hcl_oocs_t ilchr_ucs;
/* == READER == */
struct
{
hcl_oop_t s; /* stack for reading */
hcl_oop_t e; /* last object read */
added some code to handle local variable declaration
2016-10-01 04:36:48 +00:00
struct
{
hcl_oob_t* ptr;
hcl_oow_t size;
hcl_oow_t capa;
} balit;
struct
{
hcl_oop_t* ptr;
hcl_oow_t size;
hcl_oow_t capa;
} salit;
added initial hcl files
2016-09-28 14:40:37 +00:00
} r; /* reading */
/* == END READER == */
/* == COMPILER STACK == */
struct
{
hcl_cframe_t* ptr;
hcl_ooi_t top;
hcl_oow_t capa;
} cfs;
/* == END COMPILER STACK == */
did something on temporary variable and argument handling
2016-09-29 13:20:09 +00:00
struct
{
hcl_oop_t* ptr;
hcl_oow_t size;
hcl_oow_t capa;
} tv; /* temporary variables including arguments */
struct
{
hcl_ooi_t depth;
hcl_oow_t* tmprcnt;
hcl_oow_t tmprcnt_capa;
} blk; /* lambda block */
added initial hcl files
2016-09-28 14:40:37 +00:00
};
#endif
#if defined(HCL_BCODE_LONG_PARAM_SIZE) && (HCL_BCODE_LONG_PARAM_SIZE == 1)
# define MAX_CODE_INDEX (0xFFu)
# define MAX_CODE_NTMPRS (0xFFu)
# define MAX_CODE_NARGS (0xFFu)
# define MAX_CODE_NBLKARGS (0xFFu)
# define MAX_CODE_NBLKTMPRS (0xFFu)
# define MAX_CODE_JUMP (0xFFu)
# define MAX_CODE_PARAM (0xFFu)
# define MAX_CODE_PARAM2 (0xFFFFu)
#elif defined(HCL_BCODE_LONG_PARAM_SIZE) && (HCL_BCODE_LONG_PARAM_SIZE == 2)
# define MAX_CODE_INDEX (0xFFFFu)
# define MAX_CODE_NTMPRS (0xFFFFu)
# define MAX_CODE_NARGS (0xFFFFu)
# define MAX_CODE_NBLKARGS (0xFFFFu)
# define MAX_CODE_NBLKTMPRS (0xFFFFu)
# define MAX_CODE_JUMP (0xFFFFu)
# define MAX_CODE_PARAM (0xFFFFu)
# define MAX_CODE_PARAM2 (0xFFFFFFFFu)
#else
# error Unsupported HCL_BCODE_LONG_PARAM_SIZE
#endif
/*
----------------------------------------------------------------------------------------------------------------
SHORT INSTRUCTION CODE LONG INSTRUCTION CODE
----------------------------------------------------------------------------------------------------------------
v v
0-3 0000 00XX STORE_INTO_INSTVAR 128 1000 0000 XXXXXXXX STORE_INTO_INSTVAR_X (bit 4 off, bit 3 off)
4-7 0000 01XX STORE_INTO_INSTVAR
8-11 0000 10XX POP_INTO_INSTVAR 136 1000 1000 XXXXXXXX POP_INTO_INSTVAR_X (bit 4 off, bit 3 on)
12-15 0000 11XX POP_INTO_INSTVAR
16-19 0001 00XX PUSH_INSTVAR 144 1001 0000 XXXXXXXX PUSH_INSTVAR_X (bit 4 on)
20-23 0001 01XX PUSH_INSTVAR
v v
24-27 0001 10XX PUSH_TEMPVAR 152 1001 1000 XXXXXXXX PUSH_TEMPVAR_X (bit 4 on)
28-31 0001 11XX PUSH_TEMPVAR
32-35 0010 00XX STORE_INTO_TEMPVAR 160 1010 0000 XXXXXXXX STORE_INTO_TEMPVAR_X (bit 4 off, bit 3 off)
36-39 0010 01XX STORE_INTO_TEMPVAR
40-43 0010 10XX POP_INTO_TEMPVAR 168 1010 1000 XXXXXXXX POP_INTO_TEMPVAR_X (bit 4 off, bit 3 on)
44-47 0010 11XX POP_INTO_TEMPVAR
48-51 0011 00XX PUSH_LITERAL 176 1011 0000 XXXXXXXX PUSH_LITERAL_X
52-55 0011 01XX PUSH_LITERAL 177 1011 0001 XXXXXXXX XXXXXXXX PUSH_LITERAL_X2
vv
56-59 0011 10XX STORE_INTO_OBJECT 184 1011 1000 XXXXXXXX STORE_INTO_OBJECT (bit 3 on, bit 2 off)
60-63 0011 11XX POP_INTO_OBJECT 188 1011 1100 XXXXXXXX POP_INTO_OBJECT (bit 3 on, bit 2 on)
64-67 0100 00XX PUSH_OBJECT 192 1100 0000 XXXXXXXX PUSH_OBJECT (bit 3 off)
68-71 0100 01XX JUMP_FORWARD 196 1100 0100 XXXXXXXX JUMP_FORWARD_X
started the if handling
2016-10-15 08:49:27 +00:00
197 1100 0101 XXXXXXXX JUMP2_FORWARD
added initial hcl files
2016-09-28 14:40:37 +00:00
72-75 0100 10XX JUMP_BACKWARD 200 1100 1000 XXXXXXXX JUMP_BACKWARD_X
started the if handling
2016-10-15 08:49:27 +00:00
201 1100 1001 XXXXXXXX JUMP2_BACKWARD
added the until loop
2016-10-12 07:30:54 +00:00
76-79 0100 11XX UNUSED 204 1100 1100 XXXXXXXX JUMP_FORWARD_IF_TRUE
205 1100 1101 XXXXXXXX JUMP2_FORWARD_IF_TRUE
80-83 0101 00XX UNUSED 208 1101 0000 XXXXXXXX JUMP_FORWARD_IF_FALSE
209 1101 0001 XXXXXXXX JUMP2_FORWARD_IF_FALSE
added initial hcl files
2016-09-28 14:40:37 +00:00
84-87 0101 01XX CALL 212 1101 0100 XXXXXXXX CALL_X
vv
88-91 0101 10XX YYYYYYYY STORE_INTO_CTXTEMPVAR 216 1101 1000 XXXXXXXX YYYYYYYY STORE_INTO_CTXTEMPVAR_X (bit 3 on, bit 2 off)
92-95 0101 11XX YYYYYYYY POP_INTO_CTXTEMPVAR 220 1101 1100 XXXXXXXX YYYYYYYY POP_INTO_CTXTEMPVAR_X (bit 3 on, bit 2 on)
96-99 0110 00XX YYYYYYYY PUSH_CTXTEMPVAR 224 1110 0000 XXXXXXXX YYYYYYYY PUSH_CTXTEMPVAR_X (bit 3 off)
# XXXth outer-frame, YYYYYYYY local variable
100-103 0110 01XX YYYYYYYY PUSH_OBJVAR 228 1110 0100 XXXXXXXX YYYYYYYY PUSH_OBJVAR_X (bit 3 off)
104-107 0110 10XX YYYYYYYY STORE_INTO_OBJVAR 232 1110 1000 XXXXXXXX YYYYYYYY STORE_INTO_OBJVAR_X (bit 3 on, bit 2 off)
108-111 0110 11XX YYYYYYYY POP_INTO_OBJVAR 236 1110 1100 XXXXXXXX YYYYYYYY POP_INTO_OBJVAR_X (bit 3 on, bit 2 on)
# XXXth instance variable of YYYYYYYY object
v
112-115 0111 00XX YYYYYYYY SEND_MESSAGE 240 1111 0000 XXXXXXXX YYYYYYYY SEND_MESSAGE_X (bit 2 off)
116-119 0111 01XX YYYYYYYY SEND_MESSAGE_TO_SUPER 244 1111 0100 XXXXXXXX YYYYYYYY SEND_MESSAGE_TO_SUPER_X (bit 2 on)
# XXX args, YYYYYYYY message
120-123 0111 10XX UNUSED
124-127 0111 11XX UNUSED
##
## "SHORT_CODE_0 | 0x80" becomes "LONG_CODE_X".
## A special single byte instruction is assigned an unused number greater than 128.
##
*/
enum hcl_bcode_t
{
BCODE_STORE_INTO_INSTVAR_0 = 0x00,
BCODE_STORE_INTO_INSTVAR_1 = 0x01,
BCODE_STORE_INTO_INSTVAR_2 = 0x02,
BCODE_STORE_INTO_INSTVAR_3 = 0x03,
BCODE_STORE_INTO_INSTVAR_4 = 0x04,
BCODE_STORE_INTO_INSTVAR_5 = 0x05,
BCODE_STORE_INTO_INSTVAR_6 = 0x06,
BCODE_STORE_INTO_INSTVAR_7 = 0x07,
BCODE_POP_INTO_INSTVAR_0 = 0x08,
BCODE_POP_INTO_INSTVAR_1 = 0x09,
BCODE_POP_INTO_INSTVAR_2 = 0x0A,
BCODE_POP_INTO_INSTVAR_3 = 0x0B,
BCODE_POP_INTO_INSTVAR_4 = 0x0C,
BCODE_POP_INTO_INSTVAR_5 = 0x0D,
BCODE_POP_INTO_INSTVAR_6 = 0x0E,
BCODE_POP_INTO_INSTVAR_7 = 0x0F,
BCODE_PUSH_INSTVAR_0 = 0x10,
BCODE_PUSH_INSTVAR_1 = 0x11,
BCODE_PUSH_INSTVAR_2 = 0x12,
BCODE_PUSH_INSTVAR_3 = 0x13,
BCODE_PUSH_INSTVAR_4 = 0x14,
BCODE_PUSH_INSTVAR_5 = 0x15,
BCODE_PUSH_INSTVAR_6 = 0x16,
BCODE_PUSH_INSTVAR_7 = 0x17,
HCL_CODE_PUSH_TEMPVAR_0 = 0x18,
HCL_CODE_PUSH_TEMPVAR_1 = 0x19,
HCL_CODE_PUSH_TEMPVAR_2 = 0x1A,
HCL_CODE_PUSH_TEMPVAR_3 = 0x1B,
HCL_CODE_PUSH_TEMPVAR_4 = 0x1C,
HCL_CODE_PUSH_TEMPVAR_5 = 0x1D,
HCL_CODE_PUSH_TEMPVAR_6 = 0x1E,
HCL_CODE_PUSH_TEMPVAR_7 = 0x1F,
did something on temporary variable and argument handling
2016-09-29 13:20:09 +00:00
HCL_CODE_STORE_INTO_TEMPVAR_0 = 0x20,
HCL_CODE_STORE_INTO_TEMPVAR_1 = 0x21,
HCL_CODE_STORE_INTO_TEMPVAR_2 = 0x22,
HCL_CODE_STORE_INTO_TEMPVAR_3 = 0x23,
added initial hcl files
2016-09-28 14:40:37 +00:00
did something on temporary variable and argument handling
2016-09-29 13:20:09 +00:00
HCL_CODE_STORE_INTO_TEMPVAR_4 = 0x24,
HCL_CODE_STORE_INTO_TEMPVAR_5 = 0x25,
HCL_CODE_STORE_INTO_TEMPVAR_6 = 0x26,
HCL_CODE_STORE_INTO_TEMPVAR_7 = 0x27,
added initial hcl files
2016-09-28 14:40:37 +00:00
BCODE_POP_INTO_TEMPVAR_0 = 0x28,
BCODE_POP_INTO_TEMPVAR_1 = 0x29,
BCODE_POP_INTO_TEMPVAR_2 = 0x2A,
BCODE_POP_INTO_TEMPVAR_3 = 0x2B,
BCODE_POP_INTO_TEMPVAR_4 = 0x2C,
BCODE_POP_INTO_TEMPVAR_5 = 0x2D,
BCODE_POP_INTO_TEMPVAR_6 = 0x2E,
BCODE_POP_INTO_TEMPVAR_7 = 0x2F,
HCL_CODE_PUSH_LITERAL_0 = 0x30,
HCL_CODE_PUSH_LITERAL_1 = 0x31,
HCL_CODE_PUSH_LITERAL_2 = 0x32,
HCL_CODE_PUSH_LITERAL_3 = 0x33,
HCL_CODE_PUSH_LITERAL_4 = 0x34,
HCL_CODE_PUSH_LITERAL_5 = 0x35,
HCL_CODE_PUSH_LITERAL_6 = 0x36,
HCL_CODE_PUSH_LITERAL_7 = 0x37,
/* -------------------------------------- */
HCL_CODE_STORE_INTO_OBJECT_0 = 0x38,
HCL_CODE_STORE_INTO_OBJECT_1 = 0x39,
HCL_CODE_STORE_INTO_OBJECT_2 = 0x3A,
HCL_CODE_STORE_INTO_OBJECT_3 = 0x3B,
added some code to handle while
2016-10-10 11:36:24 +00:00
BCODE_POP_INTO_OBJECT_0 = 0x3C,
BCODE_POP_INTO_OBJECT_1 = 0x3D,
BCODE_POP_INTO_OBJECT_2 = 0x3E,
BCODE_POP_INTO_OBJECT_3 = 0x3F,
HCL_CODE_PUSH_OBJECT_0 = 0x40,
HCL_CODE_PUSH_OBJECT_1 = 0x41,
HCL_CODE_PUSH_OBJECT_2 = 0x42,
HCL_CODE_PUSH_OBJECT_3 = 0x43,
HCL_CODE_JUMP_FORWARD_0 = 0x44, /* 68 */
HCL_CODE_JUMP_FORWARD_1 = 0x45, /* 69 */
HCL_CODE_JUMP_FORWARD_2 = 0x46, /* 70 */
HCL_CODE_JUMP_FORWARD_3 = 0x47, /* 71 */
added the until loop
2016-10-12 07:30:54 +00:00
HCL_CODE_JUMP_BACKWARD_0 = 0x48, /* 72 */
HCL_CODE_JUMP_BACKWARD_1 = 0x49, /* 73 */
HCL_CODE_JUMP_BACKWARD_2 = 0x4A, /* 74 */
HCL_CODE_JUMP_BACKWARD_3 = 0x4B, /* 75 */
added some code to handle while
2016-10-10 11:36:24 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
#if 0
BCODE_JUMP_BACKWARD_IF_FALSE_0 = 0x4C, /* 76 */
BCODE_JUMP_BACKWARD_IF_FALSE_1 = 0x4D, /* 77 */
BCODE_JUMP_BACKWARD_IF_FALSE_2 = 0x4E, /* 78 */
BCODE_JUMP_BACKWARD_IF_FALSE_3 = 0x4F, /* 79 */
BCODE_JUMP_BACKWARD_IF_TRUE_0 = 0x50, /* 80 */
BCODE_JUMP_BACKWARD_IF_TRUE_1 = 0x51, /* 81 */
BCODE_JUMP_BACKWARD_IF_TRUE_2 = 0x52, /* 82 */
BCODE_JUMP_BACKWARD_IF_TRUE_3 = 0x53, /* 83 */
#endif
added some code to handle while
2016-10-10 11:36:24 +00:00
HCL_CODE_CALL_0 = 0x54, /* 84 */
HCL_CODE_CALL_1 = 0x55, /* 85 */
HCL_CODE_CALL_2 = 0x56, /* 86 */
HCL_CODE_CALL_3 = 0x57, /* 87 */
added initial hcl files
2016-09-28 14:40:37 +00:00
did something on temporary variable and argument handling
2016-09-29 13:20:09 +00:00
HCL_CODE_STORE_INTO_CTXTEMPVAR_0 = 0x58, /* 88 */
HCL_CODE_STORE_INTO_CTXTEMPVAR_1 = 0x59, /* 89 */
HCL_CODE_STORE_INTO_CTXTEMPVAR_2 = 0x5A, /* 90 */
HCL_CODE_STORE_INTO_CTXTEMPVAR_3 = 0x5B, /* 91 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added some code to handle while
2016-10-10 11:36:24 +00:00
BCODE_POP_INTO_CTXTEMPVAR_0 = 0x5C, /* 92 */
BCODE_POP_INTO_CTXTEMPVAR_1 = 0x5D, /* 93 */
BCODE_POP_INTO_CTXTEMPVAR_2 = 0x5E, /* 94 */
BCODE_POP_INTO_CTXTEMPVAR_3 = 0x5F, /* 95 */
HCL_CODE_PUSH_CTXTEMPVAR_0 = 0x60, /* 96 */
HCL_CODE_PUSH_CTXTEMPVAR_1 = 0x61, /* 97 */
HCL_CODE_PUSH_CTXTEMPVAR_2 = 0x62, /* 98 */
HCL_CODE_PUSH_CTXTEMPVAR_3 = 0x63, /* 99 */
BCODE_PUSH_OBJVAR_0 = 0x64,
BCODE_PUSH_OBJVAR_1 = 0x65,
BCODE_PUSH_OBJVAR_2 = 0x66,
BCODE_PUSH_OBJVAR_3 = 0x67,
BCODE_STORE_INTO_OBJVAR_0 = 0x68,
BCODE_STORE_INTO_OBJVAR_1 = 0x69,
BCODE_STORE_INTO_OBJVAR_2 = 0x6A,
BCODE_STORE_INTO_OBJVAR_3 = 0x6B,
BCODE_POP_INTO_OBJVAR_0 = 0x6C,
BCODE_POP_INTO_OBJVAR_1 = 0x6D,
BCODE_POP_INTO_OBJVAR_2 = 0x6E,
BCODE_POP_INTO_OBJVAR_3 = 0x6F,
BCODE_SEND_MESSAGE_0 = 0x70,
BCODE_SEND_MESSAGE_1 = 0x71,
BCODE_SEND_MESSAGE_2 = 0x72,
BCODE_SEND_MESSAGE_3 = 0x73,
BCODE_SEND_MESSAGE_TO_SUPER_0 = 0x74,
BCODE_SEND_MESSAGE_TO_SUPER_1 = 0x75,
BCODE_SEND_MESSAGE_TO_SUPER_2 = 0x76,
BCODE_SEND_MESSAGE_TO_SUPER_3 = 0x77,
added initial hcl files
2016-09-28 14:40:37 +00:00
/* UNUSED 0x78 - 0x7F */
added some code to handle while
2016-10-10 11:36:24 +00:00
BCODE_STORE_INTO_INSTVAR_X = 0x80, /* 128 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
BCODE_PUSH_RECEIVER = 0x81, /* 129 */
HCL_CODE_PUSH_NIL = 0x82, /* 130 */
HCL_CODE_PUSH_TRUE = 0x83, /* 131 */
HCL_CODE_PUSH_FALSE = 0x84, /* 132 */
BCODE_PUSH_CONTEXT = 0x85, /* 133 */
BCODE_PUSH_PROCESS = 0x86, /* 134 */
/* UNUSED135 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
BCODE_POP_INTO_INSTVAR_X = 0x88, /* 136 ## */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_PUSH_NEGONE = 0x89, /* 137 */
HCL_CODE_PUSH_ZERO = 0x8A, /* 138 */
HCL_CODE_PUSH_ONE = 0x8B, /* 139 */
HCL_CODE_PUSH_TWO = 0x8C, /* 140 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
BCODE_PUSH_INSTVAR_X = 0x90, /* 144 ## */
HCL_CODE_PUSH_TEMPVAR_X = 0x98, /* 152 ## */
HCL_CODE_STORE_INTO_TEMPVAR_X = 0xA0, /* 160 ## */
BCODE_POP_INTO_TEMPVAR_X = 0xA8, /* 168 ## */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_PUSH_LITERAL_X = 0xB0, /* 176 ## */
HCL_CODE_PUSH_LITERAL_X2 = 0xB1, /* 177 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_PUSH_INTLIT = 0xB2, /* 178 */
HCL_CODE_PUSH_NEGINTLIT = 0xB3, /* 179 */
HCL_CODE_PUSH_CHARLIT = 0xB4, /* 180 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_STORE_INTO_OBJECT_X = 0xB8, /* 184 ## */
BCODE_POP_INTO_OBJECT_X = 0xBC, /* 188 ## */
HCL_CODE_PUSH_OBJECT_X = 0xC0, /* 192 ## */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_JUMP_FORWARD_X = 0xC4, /* 196 ## */
added some code to handle while
2016-10-10 11:36:24 +00:00
HCL_CODE_JUMP2_FORWARD = 0xC5, /* 197 */
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_JUMP_BACKWARD_X = 0xC8, /* 200 ## */
added some code to handle while
2016-10-10 11:36:24 +00:00
HCL_CODE_JUMP2_BACKWARD = 0xC9, /* 201 */
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_JUMP_FORWARD_IF_TRUE = 0xCC, /* 204 ## */
added the until loop
2016-10-12 07:30:54 +00:00
HCL_CODE_JUMP2_FORWARD_IF_TRUE = 0xCD, /* 205 */
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_JUMP_FORWARD_IF_FALSE = 0xD0, /* 208 ## */
added the until loop
2016-10-12 07:30:54 +00:00
HCL_CODE_JUMP2_FORWARD_IF_FALSE = 0xD1, /* 209 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_CALL_X = 0xD4, /* 212 */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_STORE_INTO_CTXTEMPVAR_X = 0xD8, /* 216 ## */
BCODE_POP_INTO_CTXTEMPVAR_X = 0xDC, /* 220 ## */
HCL_CODE_PUSH_CTXTEMPVAR_X = 0xE0, /* 224 ## */
BCODE_PUSH_OBJVAR_X = 0xE4, /* 228 ## */
BCODE_STORE_INTO_OBJVAR_X = 0xE8, /* 232 ## */
BCODE_POP_INTO_OBJVAR_X = 0xEC, /* 236 ## */
added initial hcl files
2016-09-28 14:40:37 +00:00
added bytearray compilation code
2018-02-07 13:55:22 +00:00
/* UNUSED 237 */
HCL_CODE_MAKE_BYTEARRAY = 0xEE, /* 238 */
HCL_CODE_POP_INTO_BYTEARRAY = 0xEF, /* 239 */
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
BCODE_SEND_MESSAGE_X = 0xF0, /* 240 ## */
added bytearray compilation code
2018-02-07 13:55:22 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
/* UNUSED 241 */
added bytearray compilation code
2018-02-07 13:55:22 +00:00
implemented dictionary printing
2018-02-07 10:55:20 +00:00
HCL_CODE_MAKE_DIC = 0xF2, /* 242 */
HCL_CODE_POP_INTO_DIC = 0xF3, /* 243 */
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
BCODE_SEND_MESSAGE_TO_SUPER_X = 0xF4, /* 244 ## */
/* -------------------------------------- */
added initial hcl files
2016-09-28 14:40:37 +00:00
added partial code for HCL_CODE_MAKE_DICTIONARY, HCL_CODE_MAKE_ARRAY, etc
2018-02-06 13:52:58 +00:00
HCL_CODE_MAKE_ARRAY = 0xF5, /* 245 */
HCL_CODE_POP_INTO_ARRAY = 0xF6, /* 246 */
BCODE_DUP_STACKTOP = 0xF7,
HCL_CODE_POP_STACKTOP = 0xF8,
BCODE_RETURN_STACKTOP = 0xF9, /* ^something */
BCODE_RETURN_RECEIVER = 0xFA, /* ^self */
HCL_CODE_RETURN_FROM_BLOCK = 0xFB, /* return the stack top from a block */
/* UNUSED 252 */
HCL_CODE_MAKE_BLOCK = 0xFD, /* 253 */
BCODE_SEND_BLOCK_COPY = 0xFE, /* 254 */
HCL_CODE_NOOP = 0xFF /* 255 */
added initial hcl files
2016-09-28 14:40:37 +00:00
};
integrated bigint cleaned up code
2018-02-13 16:10:41 +00:00
typedef hcl_ooi_t (*hcl_outbfmt_t) (
hcl_t* hcl,
enhanced the logfmtv to handle encoding conversion of the format string
2018-02-26 15:24:45 +00:00
int mask,
integrated bigint cleaned up code
2018-02-13 16:10:41 +00:00
const hcl_bch_t* fmt,
...
);
made hcl immune to an error number/message set in the log_write callback
2018-02-22 04:35:55 +00:00
/* i don't want an error raised inside the callback to override
* the existing error number and message. */
#define vmprim_log_write(hcl,mask,ptr,len) do { \
int shuterr = (hcl)->shuterr; \
(hcl)->shuterr = 1; \
(hcl)->vmprim.log_write (hcl, mask, ptr, len); \
(hcl)->shuterr = shuterr; \
} while(0)
added initial hcl files
2016-09-28 14:40:37 +00:00
#if defined(__cplusplus)
extern "C" {
#endif
/* ========================================================================= */
/* heap.c */
/* ========================================================================= */
/**
* The hcl_makeheap() function creates a new heap of the \a size bytes.
*
* \return heap pointer on success and #HCL_NULL on failure.
*/
hcl_heap_t* hcl_makeheap (
hcl_t* hcl,
hcl_oow_t size
);
/**
* The hcl_killheap() function destroys the heap pointed to by \a heap.
*/
void hcl_killheap (
hcl_t* hcl,
hcl_heap_t* heap
);
/**
* The hcl_allocheapmem() function allocates \a size bytes in the heap pointed
* to by \a heap.
*
* \return memory pointer on success and #HCL_NULL on failure.
*/
void* hcl_allocheapmem (
hcl_t* hcl,
hcl_heap_t* heap,
hcl_oow_t size
);
/* ========================================================================= */
/* obj.c */
/* ========================================================================= */
void* hcl_allocbytes (
hcl_t* hcl,
hcl_oow_t size
);
/**
* The hcl_allocoopobj() function allocates a raw object composed of \a size
* pointer fields excluding the header.
*/
hcl_oop_t hcl_allocoopobj (
hcl_t* hcl,
added some code for executing byte codes
2016-10-04 17:56:28 +00:00
int brand,
added initial hcl files
2016-09-28 14:40:37 +00:00
hcl_oow_t size
);
#if defined(HCL_USE_OBJECT_TRAILER)
hcl_oop_t hcl_allocoopobjwithtrailer (
hcl_t* hcl,
hcl_oow_t size,
const hcl_oob_t* tptr,
hcl_oow_t tlen
);
#endif
hcl_oop_t hcl_alloccharobj (
hcl_t* hcl,
added some code for executing byte codes
2016-10-04 17:56:28 +00:00
int brand,
added initial hcl files
2016-09-28 14:40:37 +00:00
const hcl_ooch_t* ptr,
hcl_oow_t len
);
hcl_oop_t hcl_allocbyteobj (
added some code for executing byte codes
2016-10-04 17:56:28 +00:00
hcl_t* hcl,
int brand,
const hcl_oob_t* ptr,
hcl_oow_t len
added initial hcl files
2016-09-28 14:40:37 +00:00
);
hcl_oop_t hcl_allochalfwordobj (
hcl_t* hcl,
added some code for executing byte codes
2016-10-04 17:56:28 +00:00
int brand,
added initial hcl files
2016-09-28 14:40:37 +00:00
const hcl_oohw_t* ptr,
hcl_oow_t len
);
hcl_oop_t hcl_allocwordobj (
hcl_t* hcl,
added some code for executing byte codes
2016-10-04 17:56:28 +00:00
int brand,
added initial hcl files
2016-09-28 14:40:37 +00:00
const hcl_oow_t* ptr,
hcl_oow_t len
);
/* ========================================================================= */
/* sym.c */
/* ========================================================================= */
hcl_oop_t hcl_makesymbol (
hcl_t* hcl,
const hcl_ooch_t* ptr,
hcl_oow_t len
);
hcl_oop_t hcl_findsymbol (
hcl_t* hcl,
const hcl_ooch_t* ptr,
hcl_oow_t len
);
/* ========================================================================= */
/* proc.c */
/* ========================================================================= */
hcl_oop_process_t hcl_makeproc (
hcl_t* hcl
);
/* ========================================================================= */
/* utf8.c */
/* ========================================================================= */
hcl_oow_t hcl_uctoutf8 (
hcl_uch_t uc,
hcl_bch_t* utf8,
hcl_oow_t size
);
hcl_oow_t hcl_utf8touc (
const hcl_bch_t* utf8,
hcl_oow_t size,
hcl_uch_t* uc
);
int hcl_ucstoutf8 (
const hcl_uch_t* ucs,
hcl_oow_t* ucslen,
hcl_bch_t* bcs,
hcl_oow_t* bcslen
);
/**
* The hcl_utf8toucs() function converts a UTF8 string to a uncide string.
*
* It never returns -2 if \a ucs is #HCL_NULL.
*
* \code
* const hcl_bch_t* bcs = "test string";
* hcl_uch_t ucs[100];
* hcl_oow_t ucslen = HCL_COUNTOF(buf), n;
* hcl_oow_t bcslen = 11;
* int n;
* n = hcl_utf8toucs (bcs, &bcslen, ucs, &ucslen);
* if (n <= -1) { invalid/incomplenete sequence or buffer to small }
* \endcode
*
* For a null-terminated string, you can specify ~(hcl_oow_t)0 in
* \a bcslen. The destination buffer \a ucs also must be large enough to
* store a terminating null. Otherwise, -2 is returned.
*
* The resulting \a ucslen can still be greater than 0 even if the return
* value is negative. The value indiates the number of characters converted
* before the error has occurred.
*
* \return 0 on success.
* -1 if \a bcs contains an illegal character.
* -2 if the wide-character string buffer is too small.
* -3 if \a bcs is not a complete sequence.
*/
int hcl_utf8toucs (
const hcl_bch_t* bcs,
hcl_oow_t* bcslen,
hcl_uch_t* ucs,
hcl_oow_t* ucslen
);
/* ========================================================================= */
/* bigint.c TODO: remove bigint */
/* ========================================================================= */
int hcl_isint (
hcl_t* hcl,
hcl_oop_t x
);
hcl_oop_t hcl_addints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_subints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_mulints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_divints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y,
int modulo,
hcl_oop_t* rem
);
hcl_oop_t hcl_negateint (
hcl_t* hcl,
hcl_oop_t x
);
hcl_oop_t hcl_bitatint (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_bitandints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_bitorints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_bitxorints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_bitinvint (
hcl_t* hcl,
hcl_oop_t x
);
hcl_oop_t hcl_bitshiftint (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_eqints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_neints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_gtints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_geints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_ltints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_leints (
hcl_t* hcl,
hcl_oop_t x,
hcl_oop_t y
);
hcl_oop_t hcl_strtoint (
hcl_t* hcl,
const hcl_ooch_t* str,
hcl_oow_t len,
integrated bigint cleaned up code
2018-02-13 16:10:41 +00:00
int radix
added initial hcl files
2016-09-28 14:40:37 +00:00
);
enhanced hcl_inttostr() to keep results in the temporary buffer when ngc is negative. changed the integer printing function to utilize this change in print.c
2018-02-15 08:05:48 +00:00
/**
* The hcl_inttostr() function converts an integer object to a string object
* printed in the given radix. If ngc is 0, it creates a normal string object
* managed by object memory manager. If ngc greater than 0, it creates a non-GC
* string object that should be destroyed with hcl_freengcobj() later. If ngc
* is less than 0, it returns hcl->_nil but keeps the result in the buffer
* pointed to by hcl->inttostr.xbuf.ptr with the length stored in
* hcl->inttostr.xbuf.len. If the function fails, it returns #HCL_NULL.
*/
added initial hcl files
2016-09-28 14:40:37 +00:00
hcl_oop_t hcl_inttostr (
hcl_t* hcl,
hcl_oop_t num,
integrated bigint cleaned up code
2018-02-13 16:10:41 +00:00
int radix,
int ngc
added initial hcl files
2016-09-28 14:40:37 +00:00
);
/* ========================================================================= */
/* comp.c */
/* ========================================================================= */
HCL_EXPORT int hcl_compile (
hcl_t* hcl,
hcl_oop_t expr
);
renamed prim to pf. added module manipulation functions
2018-02-09 04:24:50 +00:00
/* ========================================================================= */
/* hcl.c */
/* ========================================================================= */
hcl_mod_data_t* hcl_openmod (
hcl_t* hcl,
const hcl_ooch_t* name,
added hcl_walkdic fixed a bug of not printing the list closer properly in hcl_print(). enhanced error handling
2018-02-12 16:51:38 +00:00
hcl_oow_t namelen
renamed prim to pf. added module manipulation functions
2018-02-09 04:24:50 +00:00
);
void hcl_closemod (
hcl_t* hcl,
hcl_mod_data_t* mdp
);
/*
* The hcl_querymod() function finds a primitive function in modules
* with a full primitive identifier.
*/
hcl_pfbase_t* hcl_querymod (
hcl_t* hcl,
const hcl_ooch_t* pfid,
changed the prototype of hcl_pfimpl_t to accept a hcl_mod_t* pointer
2018-02-28 04:52:01 +00:00
hcl_oow_t pfidlen,
hcl_mod_t** mod
renamed prim to pf. added module manipulation functions
2018-02-09 04:24:50 +00:00
);
added printing routines
2018-02-05 15:59:32 +00:00
/* ========================================================================= */
/* logfmt.c */
/* ========================================================================= */
int hcl_outfmtobj (
hcl_t* hcl,
enhanced the logfmtv to handle encoding conversion of the format string
2018-02-26 15:24:45 +00:00
int mask,
added printing routines
2018-02-05 15:59:32 +00:00
hcl_oop_t obj,
hcl_outbfmt_t outbfmt
);
added the logf builtin function
2018-03-01 09:46:02 +00:00
int hcl_printfmtst (
hcl_t* hcl,
hcl_ooi_t nargs
);
int hcl_logfmtst (
enhanced hcl_inttostr() to accept a negative radix to produce lower-case alphabetic digits
2018-02-28 15:57:19 +00:00
hcl_t* hcl,
hcl_ooi_t nargs
);
added printing routines
2018-02-05 15:59:32 +00:00
implemented the builtin primitive function sprintf
2018-03-05 03:35:44 +00:00
int hcl_sprintfmtst (
hcl_t* hcl,
hcl_ooi_t nargs
);
added initial hcl files
2016-09-28 14:40:37 +00:00
#if defined(__cplusplus)
}
#endif
#endif
Reference in New Issue Copy Permalink