157 lines
3.7 KiB
C
157 lines
3.7 KiB
C
/*
|
|
* $Id: print.c 467 2008-12-09 09:55:51Z baconevi $
|
|
*
|
|
* {License}
|
|
*/
|
|
|
|
#include "lsp.h"
|
|
|
|
#define OUTPUT_STR(lsp,str) \
|
|
do { \
|
|
if (lsp->output_func(QSE_LSP_IO_WRITE, lsp->output_arg, (qse_char_t*)str, qse_strlen(str)) == -1) { \
|
|
qse_lsp_seterror (lsp, QSE_LSP_EOUTPUT, QSE_NULL, 0); \
|
|
return -1; \
|
|
} \
|
|
} while (0)
|
|
|
|
#define OUTPUT_STRX(lsp,str,len) \
|
|
do { \
|
|
if (lsp->output_func(QSE_LSP_IO_WRITE, lsp->output_arg, (qse_char_t*)str, len) == -1) { \
|
|
qse_lsp_seterror (lsp, QSE_LSP_EOUTPUT, QSE_NULL, 0); \
|
|
return -1; \
|
|
} \
|
|
} while (0)
|
|
|
|
static int __print (qse_lsp_t* lsp, const qse_lsp_obj_t* obj, qse_bool_t prt_cons_par)
|
|
{
|
|
qse_char_t buf[256];
|
|
|
|
if (lsp->output_func == QSE_NULL)
|
|
{
|
|
qse_lsp_seterror (lsp, QSE_LSP_ENOOUTP, QSE_NULL, 0);
|
|
return -1;
|
|
}
|
|
|
|
switch (QSE_LSP_TYPE(obj))
|
|
{
|
|
case QSE_LSP_OBJ_NIL:
|
|
OUTPUT_STR (lsp, QSE_T("nil"));
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_TRUE:
|
|
OUTPUT_STR (lsp, QSE_T("t"));
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_INT:
|
|
#if QSE_SIZEOF_LONG_LONG > 0
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("%lld"), (long long)QSE_LSP_IVAL(obj));
|
|
#elif QSE_SIZEOF___INT64 > 0
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("%I64d"), (__int64)QSE_LSP_IVAL(obj));
|
|
#elif QSE_SIZEOF_LONG > 0
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("%ld"), (long)QSE_LSP_IVAL(obj));
|
|
#elif QSE_SIZEOF_INT > 0
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("%d"), (int)QSE_LSP_IVAL(obj));
|
|
#else
|
|
#error unsupported size
|
|
#endif
|
|
OUTPUT_STR (lsp, buf);
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_REAL:
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("%Lf"),
|
|
#ifdef __MINGW32__
|
|
(double)QSE_LSP_RVAL(obj)
|
|
#else
|
|
(long double)QSE_LSP_RVAL(obj)
|
|
#endif
|
|
);
|
|
|
|
OUTPUT_STR (lsp, buf);
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_SYM:
|
|
OUTPUT_STRX (lsp, QSE_LSP_SYMPTR(obj), QSE_LSP_SYMLEN(obj));
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_STR:
|
|
OUTPUT_STR (lsp, QSE_T("\""));
|
|
/* TODO: deescaping */
|
|
OUTPUT_STRX (lsp, QSE_LSP_STRPTR(obj), QSE_LSP_STRLEN(obj));
|
|
OUTPUT_STR (lsp, QSE_T("\""));
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_CONS:
|
|
{
|
|
const qse_lsp_obj_t* p = obj;
|
|
if (prt_cons_par) OUTPUT_STR (lsp, QSE_T("("));
|
|
do
|
|
{
|
|
qse_lsp_print (lsp, QSE_LSP_CAR(p));
|
|
p = QSE_LSP_CDR(p);
|
|
if (p != lsp->mem->nil)
|
|
{
|
|
OUTPUT_STR (lsp, QSE_T(" "));
|
|
if (QSE_LSP_TYPE(p) != QSE_LSP_OBJ_CONS)
|
|
{
|
|
OUTPUT_STR (lsp, QSE_T(". "));
|
|
qse_lsp_print (lsp, p);
|
|
}
|
|
}
|
|
}
|
|
while (p != lsp->mem->nil && QSE_LSP_TYPE(p) == QSE_LSP_OBJ_CONS);
|
|
if (prt_cons_par) OUTPUT_STR (lsp, QSE_T(")"));
|
|
|
|
break;
|
|
}
|
|
|
|
case QSE_LSP_OBJ_FUNC:
|
|
/*OUTPUT_STR (lsp, QSE_T("func"));*/
|
|
OUTPUT_STR (lsp, QSE_T("(lambda "));
|
|
if (__print (lsp, QSE_LSP_FFORMAL(obj), QSE_TRUE) == -1) return -1;
|
|
OUTPUT_STR (lsp, QSE_T(" "));
|
|
if (__print (lsp, QSE_LSP_FBODY(obj), QSE_FALSE) == -1) return -1;
|
|
OUTPUT_STR (lsp, QSE_T(")"));
|
|
break;
|
|
|
|
case QSE_LSP_OBJ_MACRO:
|
|
OUTPUT_STR (lsp, QSE_T("(macro "));
|
|
if (__print (lsp, QSE_LSP_FFORMAL(obj), QSE_TRUE) == -1) return -1;
|
|
OUTPUT_STR (lsp, QSE_T(" "));
|
|
if (__print (lsp, QSE_LSP_FBODY(obj), QSE_FALSE) == -1) return -1;
|
|
OUTPUT_STR (lsp, QSE_T(")"));
|
|
break;
|
|
case QSE_LSP_OBJ_PRIM:
|
|
OUTPUT_STR (lsp, QSE_T("prim"));
|
|
break;
|
|
|
|
default:
|
|
lsp->prmfns.misc.sprintf (
|
|
lsp->prmfns.misc.data,
|
|
buf, QSE_COUNTOF(buf),
|
|
QSE_T("unknown object type: %d"), QSE_LSP_TYPE(obj));
|
|
OUTPUT_STR (lsp, buf);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int qse_lsp_print (qse_lsp_t* lsp, const qse_lsp_obj_t* obj)
|
|
{
|
|
return __print (lsp, obj, QSE_TRUE);
|
|
}
|