544 lines
14 KiB
C
544 lines
14 KiB
C
/*
|
|
* $Id$
|
|
*
|
|
Copyright (c) 2014-2016 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.
|
|
*/
|
|
|
|
#include "stix-prv.h"
|
|
|
|
/*#include <stdio.h>*/ /* for snrintf(). used for floating-point number formatting */
|
|
#include <stdarg.h>
|
|
|
|
#if defined(_MSC_VER) || defined(__BORLANDC__) || (defined(__WATCOMC__) && (__WATCOMC__ < 1200))
|
|
# define snprintf _snprintf
|
|
# if !defined(HAVE_SNPRINTF)
|
|
# define HAVE_SNPRINTF
|
|
# endif
|
|
#endif
|
|
#if defined(HAVE_QUADMATH_H)
|
|
# include <quadmath.h> /* for quadmath_snprintf() */
|
|
#endif
|
|
/* TODO: remove stdio.h and quadmath.h once snprintf gets replaced by own
|
|
floting-point conversion implementation*/
|
|
|
|
/* Max number conversion buffer length:
|
|
* stix_intmax_t in base 2, plus NUL byte. */
|
|
#define MAXNBUF (STIX_SIZEOF(stix_intmax_t) * 8 + 1)
|
|
|
|
enum
|
|
{
|
|
/* integer */
|
|
LF_C = (1 << 0),
|
|
LF_H = (1 << 1),
|
|
LF_J = (1 << 2),
|
|
LF_L = (1 << 3),
|
|
LF_Q = (1 << 4),
|
|
LF_T = (1 << 5),
|
|
LF_Z = (1 << 6),
|
|
|
|
/* long double */
|
|
LF_LD = (1 << 7),
|
|
/* __float128 */
|
|
LF_QD = (1 << 8)
|
|
};
|
|
|
|
static struct
|
|
{
|
|
stix_uint8_t flag; /* for single occurrence */
|
|
stix_uint8_t dflag; /* for double occurrence */
|
|
} lm_tab[26] =
|
|
{
|
|
{ 0, 0 }, /* a */
|
|
{ 0, 0 }, /* b */
|
|
{ 0, 0 }, /* c */
|
|
{ 0, 0 }, /* d */
|
|
{ 0, 0 }, /* e */
|
|
{ 0, 0 }, /* f */
|
|
{ 0, 0 }, /* g */
|
|
{ LF_H, LF_C }, /* h */
|
|
{ 0, 0 }, /* i */
|
|
{ LF_J, 0 }, /* j */
|
|
{ 0, 0 }, /* k */
|
|
{ LF_L, LF_Q }, /* l */
|
|
{ 0, 0 }, /* m */
|
|
{ 0, 0 }, /* n */
|
|
{ 0, 0 }, /* o */
|
|
{ 0, 0 }, /* p */
|
|
{ LF_Q, 0 }, /* q */
|
|
{ 0, 0 }, /* r */
|
|
{ 0, 0 }, /* s */
|
|
{ LF_T, 0 }, /* t */
|
|
{ 0, 0 }, /* u */
|
|
{ 0, 0 }, /* v */
|
|
{ 0, 0 }, /* w */
|
|
{ 0, 0 }, /* z */
|
|
{ 0, 0 }, /* y */
|
|
{ LF_Z, 0 }, /* z */
|
|
};
|
|
|
|
|
|
enum
|
|
{
|
|
FLAGC_DOT = (1 << 0),
|
|
FLAGC_SPACE = (1 << 1),
|
|
FLAGC_SHARP = (1 << 2),
|
|
FLAGC_SIGN = (1 << 3),
|
|
FLAGC_LEFTADJ = (1 << 4),
|
|
FLAGC_ZEROPAD = (1 << 5),
|
|
FLAGC_WIDTH = (1 << 6),
|
|
FLAGC_PRECISION = (1 << 7),
|
|
FLAGC_STAR1 = (1 << 8),
|
|
FLAGC_STAR2 = (1 << 9),
|
|
FLAGC_LENMOD = (1 << 10) /* length modifier */
|
|
};
|
|
|
|
static const stix_bch_t hex2ascii_lower[] =
|
|
{
|
|
'0','1','2','3','4','5','6','7','8','9',
|
|
'a','b','c','d','e','f','g','h','i','j','k','l','m',
|
|
'n','o','p','q','r','s','t','u','v','w','x','y','z'
|
|
};
|
|
|
|
static const stix_bch_t hex2ascii_upper[] =
|
|
{
|
|
'0','1','2','3','4','5','6','7','8','9',
|
|
'A','B','C','D','E','F','G','H','I','J','K','L','M',
|
|
'N','O','P','Q','R','S','T','U','V','W','X','H','Z'
|
|
};
|
|
|
|
static stix_ooch_t ooch_nullstr[] = { '(','n','u','l','l', ')','\0' };
|
|
static stix_bch_t bch_nullstr[] = { '(','n','u','l','l', ')','\0' };
|
|
|
|
typedef int (*stix_fmtout_putch_t) (
|
|
stix_t* stix,
|
|
stix_oow_t mask,
|
|
stix_ooch_t c,
|
|
stix_oow_t len
|
|
);
|
|
|
|
typedef int (*stix_fmtout_putcs_t) (
|
|
stix_t* stix,
|
|
stix_oow_t mask,
|
|
const stix_ooch_t* ptr,
|
|
stix_oow_t len
|
|
);
|
|
|
|
typedef struct stix_fmtout_t stix_fmtout_t;
|
|
struct stix_fmtout_t
|
|
{
|
|
stix_oow_t count; /* out */
|
|
stix_oow_t mask; /* in */
|
|
stix_fmtout_putch_t putch; /* in */
|
|
stix_fmtout_putcs_t putcs; /* in */
|
|
};
|
|
|
|
/* ------------------------------------------------------------------------- */
|
|
/*
|
|
* Put a NUL-terminated ASCII number (base <= 36) in a buffer in reverse
|
|
* order; return an optional length and a pointer to the last character
|
|
* written in the buffer (i.e., the first character of the string).
|
|
* The buffer pointed to by `nbuf' must have length >= MAXNBUF.
|
|
*/
|
|
|
|
static stix_bch_t* sprintn_lower (stix_bch_t* nbuf, stix_uintmax_t num, int base, stix_ooi_t *lenp)
|
|
{
|
|
stix_bch_t* p;
|
|
|
|
p = nbuf;
|
|
*p = '\0';
|
|
do { *++p = hex2ascii_lower[num % base]; } while (num /= base);
|
|
|
|
if (lenp) *lenp = p - nbuf;
|
|
return p; /* returns the end */
|
|
}
|
|
|
|
static stix_bch_t* sprintn_upper (stix_bch_t* nbuf, stix_uintmax_t num, int base, stix_ooi_t *lenp)
|
|
{
|
|
stix_bch_t* p;
|
|
|
|
p = nbuf;
|
|
*p = '\0';
|
|
do { *++p = hex2ascii_upper[num % base]; } while (num /= base);
|
|
|
|
if (lenp) *lenp = p - nbuf;
|
|
return p; /* returns the end */
|
|
}
|
|
|
|
/* ------------------------------------------------------------------------- */
|
|
static int put_ooch (stix_t* stix, stix_oow_t mask, stix_ooch_t ch, stix_oow_t len)
|
|
{
|
|
if (len <= 0) return 1;
|
|
|
|
if (stix->log.len > 0 && stix->log.last_mask != mask)
|
|
{
|
|
/* the mask has changed. commit the buffered text */
|
|
|
|
/* TODO: HANDLE LINE ENDING CONVENTION BETTER... */
|
|
if (stix->log.ptr[stix->log.len - 1] != '\n')
|
|
{
|
|
/* no line ending - append a line terminator */
|
|
stix->log.ptr[stix->log.len++] = '\n';
|
|
}
|
|
stix->vmprim.log_write (stix, stix->log.last_mask, stix->log.ptr, stix->log.len);
|
|
stix->log.len = 0;
|
|
}
|
|
|
|
redo:
|
|
if (len > stix->log.capa - stix->log.len)
|
|
{
|
|
stix_oow_t newcapa;
|
|
stix_ooch_t* tmp;
|
|
|
|
if (len > STIX_TYPE_MAX(stix_oow_t) - stix->log.len)
|
|
{
|
|
/* data too big */
|
|
stix->errnum = STIX_ETOOBIG;
|
|
return -1;
|
|
}
|
|
|
|
newcapa = STIX_ALIGN(stix->log.len + len, 512); /* TODO: adjust this capacity */
|
|
/* +1 to handle line ending injection more easily */
|
|
tmp = stix_reallocmem (stix, stix->log.ptr, (newcapa + 1) * STIX_SIZEOF(*tmp));
|
|
if (!tmp)
|
|
{
|
|
if (stix->log.len > 0)
|
|
{
|
|
/* can't expand the buffer. just flush the existing contents */
|
|
stix->vmprim.log_write (stix, stix->log.last_mask, stix->log.ptr, stix->log.len);
|
|
stix->log.len = 0;
|
|
goto redo;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
stix->log.ptr = tmp;
|
|
stix->log.capa = newcapa;
|
|
}
|
|
|
|
|
|
while (len > 0)
|
|
{
|
|
stix->log.ptr[stix->log.len++] = ch;
|
|
len--;
|
|
}
|
|
|
|
stix->log.last_mask = mask;
|
|
return 1; /* success */
|
|
}
|
|
|
|
static int put_oocs (stix_t* stix, stix_oow_t mask, const stix_ooch_t* ptr, stix_oow_t len)
|
|
{
|
|
if (len <= 0) return 1;
|
|
|
|
if (stix->log.len > 0 && stix->log.last_mask != mask)
|
|
{
|
|
/* the mask has changed. commit the buffered text */
|
|
/* TODO: HANDLE LINE ENDING CONVENTION BETTER... */
|
|
if (stix->log.ptr[stix->log.len - 1] != '\n')
|
|
{
|
|
/* no line ending - append a line terminator */
|
|
stix->log.ptr[stix->log.len++] = '\n';
|
|
}
|
|
|
|
stix->vmprim.log_write (stix, stix->log.last_mask, stix->log.ptr, stix->log.len);
|
|
stix->log.len = 0;
|
|
}
|
|
|
|
if (len > stix->log.capa - stix->log.len)
|
|
{
|
|
stix_oow_t newcapa;
|
|
stix_ooch_t* tmp;
|
|
|
|
if (len > STIX_TYPE_MAX(stix_oow_t) - stix->log.len)
|
|
{
|
|
/* data too big */
|
|
stix->errnum = STIX_ETOOBIG;
|
|
return -1;
|
|
}
|
|
|
|
newcapa = STIX_ALIGN(stix->log.len + len, 512); /* TODO: adjust this capacity */
|
|
/* +1 to handle line ending injection more easily */
|
|
tmp = stix_reallocmem (stix, stix->log.ptr, (newcapa + 1) * STIX_SIZEOF(*tmp));
|
|
if (!tmp) return -1;
|
|
|
|
stix->log.ptr = tmp;
|
|
stix->log.capa = newcapa;
|
|
}
|
|
|
|
STIX_MEMCPY (&stix->log.ptr[stix->log.len], ptr, len * STIX_SIZEOF(*ptr));
|
|
stix->log.len += len;
|
|
|
|
stix->log.last_mask = mask;
|
|
return 1; /* success */
|
|
}
|
|
|
|
/* ------------------------------------------------------------------------- */
|
|
|
|
static void print_object (stix_t* stix, stix_oow_t mask, stix_oop_t oop)
|
|
{
|
|
if (oop == stix->_nil)
|
|
{
|
|
stix_logbfmt (stix, mask, "nil");
|
|
}
|
|
else if (oop == stix->_true)
|
|
{
|
|
stix_logbfmt (stix, mask, "true");
|
|
}
|
|
else if (oop == stix->_false)
|
|
{
|
|
stix_logbfmt (stix, mask, "false");
|
|
}
|
|
else if (STIX_OOP_IS_SMOOI(oop))
|
|
{
|
|
stix_logbfmt (stix, mask, "%zd", STIX_OOP_TO_SMOOI(oop));
|
|
}
|
|
else if (STIX_OOP_IS_CHAR(oop))
|
|
{
|
|
stix_logbfmt (stix, mask, "$%.1C", STIX_OOP_TO_CHAR(oop));
|
|
}
|
|
else if (STIX_OOP_IS_ERROR(oop))
|
|
{
|
|
stix_logbfmt (stix, mask, "E%08zd", STIX_OOP_TO_ERROR(oop));
|
|
}
|
|
else
|
|
{
|
|
stix_oop_class_t c;
|
|
stix_oow_t i;
|
|
|
|
STIX_ASSERT (stix, STIX_OOP_IS_POINTER(oop));
|
|
c = (stix_oop_class_t)STIX_OBJ_GET_CLASS(oop); /*STIX_CLASSOF(stix, oop);*/
|
|
|
|
if ((stix_oop_t)c == stix->_large_negative_integer)
|
|
{
|
|
stix_oow_t i;
|
|
stix_logbfmt (stix, mask, "-16r");
|
|
for (i = STIX_OBJ_GET_SIZE(oop); i > 0;)
|
|
{
|
|
stix_logbfmt (stix, mask, "%0*lX", (int)(STIX_SIZEOF(stix_liw_t) * 2), (unsigned long)((stix_oop_liword_t)oop)->slot[--i]);
|
|
}
|
|
}
|
|
else if ((stix_oop_t)c == stix->_large_positive_integer)
|
|
{
|
|
stix_oow_t i;
|
|
stix_logbfmt (stix, mask, "16r");
|
|
for (i = STIX_OBJ_GET_SIZE(oop); i > 0;)
|
|
{
|
|
stix_logbfmt (stix, mask, "%0*lX", (int)(STIX_SIZEOF(stix_liw_t) * 2), (unsigned long)((stix_oop_liword_t)oop)->slot[--i]);
|
|
}
|
|
}
|
|
else if (STIX_OBJ_GET_FLAGS_TYPE(oop) == STIX_OBJ_TYPE_CHAR)
|
|
{
|
|
if ((stix_oop_t)c == stix->_symbol)
|
|
{
|
|
stix_logbfmt (stix, mask, "#%.*S", STIX_OBJ_GET_SIZE(oop), ((stix_oop_char_t)oop)->slot);
|
|
}
|
|
else /*if ((stix_oop_t)c == stix->_string)*/
|
|
{
|
|
stix_ooch_t ch;
|
|
int escape = 0;
|
|
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
ch = ((stix_oop_char_t)oop)->slot[i];
|
|
if (ch < ' ')
|
|
{
|
|
escape = 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (escape)
|
|
{
|
|
stix_ooch_t escaped;
|
|
|
|
stix_logbfmt (stix, mask, "S'");
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
ch = ((stix_oop_char_t)oop)->slot[i];
|
|
if (ch < ' ')
|
|
{
|
|
switch (ch)
|
|
{
|
|
case '\0':
|
|
escaped = '0';
|
|
break;
|
|
case '\n':
|
|
escaped = 'n';
|
|
break;
|
|
case '\r':
|
|
escaped = 'r';
|
|
break;
|
|
case '\t':
|
|
escaped = 't';
|
|
break;
|
|
case '\f':
|
|
escaped = 'f';
|
|
break;
|
|
case '\b':
|
|
escaped = 'b';
|
|
break;
|
|
case '\v':
|
|
escaped = 'v';
|
|
break;
|
|
case '\a':
|
|
escaped = 'a';
|
|
break;
|
|
default:
|
|
escaped = ch;
|
|
break;
|
|
}
|
|
|
|
if (escaped == ch)
|
|
stix_logbfmt (stix, mask, "\\x%X", ch);
|
|
else
|
|
stix_logbfmt (stix, mask, "\\%C", escaped);
|
|
}
|
|
else
|
|
{
|
|
stix_logbfmt (stix, mask, "%C", ch);
|
|
}
|
|
}
|
|
|
|
stix_logbfmt (stix, mask, "'");
|
|
}
|
|
else
|
|
{
|
|
stix_logbfmt (stix, mask, "'%.*S'", STIX_OBJ_GET_SIZE(oop), ((stix_oop_char_t)oop)->slot);
|
|
}
|
|
}
|
|
}
|
|
else if (STIX_OBJ_GET_FLAGS_TYPE(oop) == STIX_OBJ_TYPE_BYTE)
|
|
{
|
|
stix_logbfmt (stix, mask, "#[");
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
stix_logbfmt (stix, mask, " %d", ((stix_oop_byte_t)oop)->slot[i]);
|
|
}
|
|
stix_logbfmt (stix, mask, "]");
|
|
}
|
|
|
|
else if (STIX_OBJ_GET_FLAGS_TYPE(oop) == STIX_OBJ_TYPE_HALFWORD)
|
|
{
|
|
stix_logbfmt (stix, mask, "#[["); /* TODO: fix this symbol/notation */
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
stix_logbfmt (stix, mask, " %zX", (stix_oow_t)((stix_oop_halfword_t)oop)->slot[i]);
|
|
}
|
|
stix_logbfmt (stix, mask, "]]");
|
|
}
|
|
else if (STIX_OBJ_GET_FLAGS_TYPE(oop) == STIX_OBJ_TYPE_WORD)
|
|
{
|
|
stix_logbfmt (stix, mask, "#[[["); /* TODO: fix this symbol/notation */
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
stix_logbfmt (stix, mask, " %zX", ((stix_oop_word_t)oop)->slot[i]);
|
|
}
|
|
stix_logbfmt (stix, mask, "]]]");
|
|
}
|
|
else if ((stix_oop_t)c == stix->_array)
|
|
{
|
|
stix_logbfmt (stix, mask, "#(");
|
|
for (i = 0; i < STIX_OBJ_GET_SIZE(oop); i++)
|
|
{
|
|
stix_logbfmt (stix, mask, " ");
|
|
print_object (stix, mask, ((stix_oop_oop_t)oop)->slot[i]);
|
|
}
|
|
stix_logbfmt (stix, mask, ")");
|
|
}
|
|
else if ((stix_oop_t)c == stix->_class)
|
|
{
|
|
/* print the class name */
|
|
stix_logbfmt (stix, mask, "%.*S", STIX_OBJ_GET_SIZE(((stix_oop_class_t)oop)->name), ((stix_oop_class_t)oop)->name->slot);
|
|
}
|
|
else if ((stix_oop_t)c == stix->_association)
|
|
{
|
|
stix_logbfmt (stix, mask, "%O -> %O", ((stix_oop_association_t)oop)->key, ((stix_oop_association_t)oop)->value);
|
|
}
|
|
else
|
|
{
|
|
stix_logbfmt (stix, mask, "instance of %.*S(%p)", STIX_OBJ_GET_SIZE(c->name), ((stix_oop_char_t)c->name)->slot, oop);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* ------------------------------------------------------------------------- */
|
|
|
|
#undef fmtchar_t
|
|
#undef logfmtv
|
|
#define fmtchar_t stix_bch_t
|
|
#define FMTCHAR_IS_BCH
|
|
#define logfmtv stix_logbfmtv
|
|
#include "logfmtv.h"
|
|
|
|
#undef fmtchar_t
|
|
#undef logfmtv
|
|
#define fmtchar_t stix_ooch_t
|
|
#define logfmtv stix_logoofmtv
|
|
#define FMTCHAR_IS_OOCH
|
|
#include "logfmtv.h"
|
|
|
|
stix_ooi_t stix_logbfmt (stix_t* stix, stix_oow_t mask, const stix_bch_t* fmt, ...)
|
|
{
|
|
int x;
|
|
va_list ap;
|
|
stix_fmtout_t fo;
|
|
|
|
fo.mask = mask;
|
|
fo.putch = put_ooch;
|
|
fo.putcs = put_oocs;
|
|
|
|
va_start (ap, fmt);
|
|
x = stix_logbfmtv (stix, fmt, &fo, ap);
|
|
va_end (ap);
|
|
|
|
if (stix->log.len > 0 && stix->log.ptr[stix->log.len - 1] == '\n')
|
|
{
|
|
stix->vmprim.log_write (stix, stix->log.last_mask, stix->log.ptr, stix->log.len);
|
|
stix->log.len = 0;
|
|
}
|
|
return (x <= -1)? -1: fo.count;
|
|
}
|
|
|
|
stix_ooi_t stix_logoofmt (stix_t* stix, stix_oow_t mask, const stix_ooch_t* fmt, ...)
|
|
{
|
|
int x;
|
|
va_list ap;
|
|
stix_fmtout_t fo;
|
|
|
|
fo.mask = mask;
|
|
fo.putch = put_ooch;
|
|
fo.putcs = put_oocs;
|
|
|
|
va_start (ap, fmt);
|
|
x = stix_logoofmtv (stix, fmt, &fo, ap);
|
|
va_end (ap);
|
|
|
|
if (stix->log.len > 0 && stix->log.ptr[stix->log.len - 1] == '\n')
|
|
{
|
|
stix->vmprim.log_write (stix, stix->log.last_mask, stix->log.ptr, stix->log.len);
|
|
stix->log.len = 0;
|
|
}
|
|
|
|
return (x <= -1)? -1: fo.count;
|
|
}
|