hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2006-10-25 13:42:31 +00:00
parent acbca7f730
commit 08fe087e11
16 changed files with 589 additions and 542 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
ase/lsp/print.c
View File

@@ -1,5 +1,5 @@
/*
* $Id: print.c,v 1.14 2006-10-24 04:22:39 bacon Exp $
* $Id: print.c,v 1.15 2006-10-25 13:42:31 bacon Exp $
*/
#include <ase/lsp/lsp.h>
@@ -21,10 +21,10 @@ void ase_lsp_print_debug (ase_lsp_obj_t* obj)
case ASE_LSP_OBJ_REAL:
ase_printf (ASE_TEXT("%f"), ASE_LSP_RVALUE(obj));
break;
case ASE_LSP_OBJ_SYMBOL:
case ASE_LSP_OBJ_SYM:
ase_printf (ASE_TEXT("%s"), ASE_LSP_SYMVALUE(obj));
break;
case ASE_LSP_OBJ_STRING:
case ASE_LSP_OBJ_STR:
ase_printf (ASE_TEXT("%s"), ASE_LSP_STRVALUE(obj));
break;
case ASE_LSP_OBJ_CONS:
@@ -92,34 +92,34 @@ static int __print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj, ase_bool_t prt_con
OUTPUT_STR (lsp, ASE_TEXT("t"));
break;
case ASE_LSP_OBJ_INT:
if (ase_sizeof(ase_lsp_int_t) == ase_sizeof(int)) {
if (ase_sizeof(ase_long_t) == ase_sizeof(int)) {
ase_sprintf (buf, ase_countof(buf), ASE_TEXT("%d"), ASE_LSP_IVALUE(obj));
}
else if (ase_sizeof(ase_lsp_int_t) == ase_sizeof(long)) {
else if (ase_sizeof(ase_long_t) == ase_sizeof(long)) {
ase_sprintf (buf, ase_countof(buf), ASE_TEXT("%ld"), ASE_LSP_IVALUE(obj));
}
else if (ase_sizeof(ase_lsp_int_t) == ase_sizeof(long long)) {
else if (ase_sizeof(ase_long_t) == ase_sizeof(long long)) {
ase_sprintf (buf, ase_countof(buf), ASE_TEXT("%lld"), ASE_LSP_IVALUE(obj));
}
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_REAL:
if (ase_sizeof(ase_lsp_real_t) == ase_sizeof(double)) {
if (ase_sizeof(ase_real_t) == ase_sizeof(double)) {
ase_sprintf (buf, ase_countof(buf), ASE_TEXT("%f"),
(double)ASE_LSP_RVALUE(obj));
}
else if (ase_sizeof(ase_lsp_real_t) == ase_sizeof(long double)) {
else if (ase_sizeof(ase_real_t) == ase_sizeof(long double)) {
ase_sprintf (buf, ase_countof(buf), ASE_TEXT("%Lf"),
(long double)ASE_LSP_RVALUE(obj));
}
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_SYMBOL:
case ASE_LSP_OBJ_SYM:
OUTPUT_STR (lsp, ASE_LSP_SYMVALUE(obj));
break;
case ASE_LSP_OBJ_STRING:
case ASE_LSP_OBJ_STR:
OUTPUT_STR (lsp, ASE_LSP_STRVALUE(obj));
break;
case ASE_LSP_OBJ_CONS: