qse/ase/lsp/print.c

151 lines
3.7 KiB
C
Raw Normal View History

2005-02-04 15:39:11 +00:00
/*
2007-02-24 14:32:44 +00:00
* $Id: print.c,v 1.26 2007-02-24 14:32:11 bacon Exp $
2007-02-03 10:52:36 +00:00
*
* {License}
2005-02-04 15:39:11 +00:00
*/
2006-10-26 08:17:38 +00:00
#include <ase/lsp/lsp_i.h>
2005-02-04 15:39:11 +00:00
2005-09-18 10:23:19 +00:00
#define OUTPUT_STR(lsp,str) \
do { \
2007-02-23 10:57:09 +00:00
if (lsp->output_func(ASE_LSP_IO_WRITE, lsp->output_arg, (ase_char_t*)str, ase_strlen(str)) == -1) { \
2007-02-11 07:36:55 +00:00
ase_lsp_seterror (lsp, ASE_LSP_EOUTPUT, ASE_NULL, 0); \
2005-09-18 13:23:32 +00:00
return -1; \
} \
} while (0)
#define OUTPUT_STRX(lsp,str,len) \
do { \
2006-10-26 08:17:38 +00:00
if (lsp->output_func(ASE_LSP_IO_WRITE, lsp->output_arg, (ase_char_t*)str, len) == -1) { \
2007-02-11 07:36:55 +00:00
ase_lsp_seterror (lsp, ASE_LSP_EOUTPUT, ASE_NULL, 0); \
2005-09-18 10:23:19 +00:00
return -1; \
} \
} while (0)
2006-10-24 04:22:40 +00:00
static int __print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj, ase_bool_t prt_cons_par)
2005-02-04 15:39:11 +00:00
{
2006-10-24 04:22:40 +00:00
ase_char_t buf[256];
2005-09-18 10:23:19 +00:00
2006-10-29 13:00:39 +00:00
if (lsp->output_func == ASE_NULL)
{
2007-02-11 07:36:55 +00:00
ase_lsp_seterror (lsp, ASE_LSP_ENOOUTP, ASE_NULL, 0);
2005-09-18 10:23:19 +00:00
return -1;
}
2006-10-29 13:00:39 +00:00
switch (ASE_LSP_TYPE(obj))
{
case ASE_LSP_OBJ_NIL:
OUTPUT_STR (lsp, ASE_T("nil"));
break;
case ASE_LSP_OBJ_TRUE:
OUTPUT_STR (lsp, ASE_T("t"));
break;
case ASE_LSP_OBJ_INT:
2007-02-17 15:27:19 +00:00
#if ASE_SIZEOF_LONG_LONG > 0
2007-02-23 10:57:09 +00:00
lsp->prmfns.misc.sprintf (
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.custom_data,
2007-02-17 15:27:19 +00:00
buf, ASE_COUNTOF(buf),
ASE_T("%lld"), (long long)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF___INT64 > 0
2007-02-23 10:57:09 +00:00
lsp->prmfns.misc.sprintf (
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.custom_data,
2006-11-29 02:54:17 +00:00
buf, ASE_COUNTOF(buf),
2006-10-30 03:49:06 +00:00
ASE_T("%I64d"), (__int64)ASE_LSP_IVAL(obj));
2007-02-17 15:27:19 +00:00
#elif ASE_SIZEOF_LONG > 0
2007-02-23 10:57:09 +00:00
lsp->prmfns.misc.sprintf (
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.custom_data,
2006-11-29 02:54:17 +00:00
buf, ASE_COUNTOF(buf),
2006-10-30 03:49:06 +00:00
ASE_T("%ld"), (long)ASE_LSP_IVAL(obj));
2007-02-17 15:27:19 +00:00
#elif ASE_SIZEOF_INT > 0
2007-02-23 10:57:09 +00:00
lsp->prmfns.misc.sprintf (
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.custom_data,
2006-11-29 02:54:17 +00:00
buf, ASE_COUNTOF(buf),
2007-02-17 15:27:19 +00:00
ASE_T("%d"), (int)ASE_LSP_IVAL(obj));
#else
#error unsupported size
2006-10-29 13:00:39 +00:00
#endif
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_REAL:
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.custom_data,
buf, ASE_COUNTOF(buf),
2006-10-30 03:49:06 +00:00
ASE_T("%Lf"), (long double)ASE_LSP_RVAL(obj));
2005-09-20 11:19:15 +00:00
2006-10-29 13:00:39 +00:00
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_SYM:
OUTPUT_STRX (lsp, ASE_LSP_SYMPTR(obj), ASE_LSP_SYMLEN(obj));
break;
case ASE_LSP_OBJ_STR:
2007-02-13 06:00:20 +00:00
OUTPUT_STR (lsp, ASE_T("\""));
/* TODO: deescaping */
2006-10-29 13:00:39 +00:00
OUTPUT_STRX (lsp, ASE_LSP_STRPTR(obj), ASE_LSP_STRLEN(obj));
2007-02-13 06:00:20 +00:00
OUTPUT_STR (lsp, ASE_T("\""));
2006-10-29 13:00:39 +00:00
break;
case ASE_LSP_OBJ_CONS:
2005-02-04 15:39:11 +00:00
{
2006-10-24 04:22:40 +00:00
const ase_lsp_obj_t* p = obj;
2006-10-26 08:17:38 +00:00
if (prt_cons_par) OUTPUT_STR (lsp, ASE_T("("));
do
{
2006-10-24 04:22:40 +00:00
ase_lsp_print (lsp, ASE_LSP_CAR(p));
p = ASE_LSP_CDR(p);
2006-10-26 08:17:38 +00:00
if (p != lsp->mem->nil)
{
OUTPUT_STR (lsp, ASE_T(" "));
if (ASE_LSP_TYPE(p) != ASE_LSP_OBJ_CONS)
{
OUTPUT_STR (lsp, ASE_T(". "));
2006-10-24 04:22:40 +00:00
ase_lsp_print (lsp, p);
2005-02-04 15:39:11 +00:00
}
}
2006-10-26 08:17:38 +00:00
}
while (p != lsp->mem->nil && ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
if (prt_cons_par) OUTPUT_STR (lsp, ASE_T(")"));
2006-10-29 13:00:39 +00:00
break;
2005-02-04 15:39:11 +00:00
}
2006-10-29 13:00:39 +00:00
case ASE_LSP_OBJ_FUNC:
/*OUTPUT_STR (lsp, ASE_T("func"));*/
OUTPUT_STR (lsp, ASE_T("(lambda "));
if (__print (lsp, ASE_LSP_FFORMAL(obj), ase_true) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(" "));
if (__print (lsp, ASE_LSP_FBODY(obj), ase_false) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(")"));
break;
case ASE_LSP_OBJ_MACRO:
OUTPUT_STR (lsp, ASE_T("(macro "));
if (__print (lsp, ASE_LSP_FFORMAL(obj), ase_true) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(" "));
if (__print (lsp, ASE_LSP_FBODY(obj), ase_false) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(")"));
break;
case ASE_LSP_OBJ_PRIM:
OUTPUT_STR (lsp, ASE_T("prim"));
break;
default:
2007-02-24 14:32:44 +00:00
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.custom_data,
buf, ASE_COUNTOF(buf),
2006-10-29 13:00:39 +00:00
ASE_T("unknown object type: %d"), ASE_LSP_TYPE(obj));
OUTPUT_STR (lsp, buf);
2005-02-04 15:39:11 +00:00
}
2005-09-18 10:23:19 +00:00
return 0;
2005-02-04 15:39:11 +00:00
}
2006-10-24 04:22:40 +00:00
int ase_lsp_print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj)
2005-09-19 16:13:18 +00:00
{
2006-10-24 04:22:40 +00:00
return __print (lsp, obj, ase_true);
2005-09-19 16:13:18 +00:00
}