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 2005-02-14 14:37:50 +00:00
parent 100f06ff4b
commit 290885a4d1
8 changed files with 36 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ase/lsp/memory.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: memory.c,v 1.8 2005-02-07 15:10:41 bacon Exp $ * $Id: memory.c,v 1.9 2005-02-14 14:37:50 bacon Exp $
*/ */
#include <xp/lisp/memory.h> #include <xp/lisp/memory.h>
@ -383,7 +383,7 @@ xp_lisp_obj_t* xp_lisp_make_true (xp_lisp_mem_t* mem)
return mem->t; return mem->t;
} }
xp_lisp_obj_t* xp_lisp_make_int (xp_lisp_mem_t* mem, xp_lisp_int value) xp_lisp_obj_t* xp_lisp_make_int (xp_lisp_mem_t* mem, xp_lisp_int_t value)
{ {
xp_lisp_obj_t* obj; xp_lisp_obj_t* obj;
@ -395,7 +395,7 @@ xp_lisp_obj_t* xp_lisp_make_int (xp_lisp_mem_t* mem, xp_lisp_int value)
return obj; return obj;
} }
xp_lisp_obj_t* xp_lisp_make_float (xp_lisp_mem_t* mem, xp_lisp_float value) xp_lisp_obj_t* xp_lisp_make_float (xp_lisp_mem_t* mem, xp_lisp_real_t value)
{ {
xp_lisp_obj_t* obj; xp_lisp_obj_t* obj;

6
ase/lsp/memory.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: memory.h,v 1.3 2005-02-07 15:10:41 bacon Exp $ * $Id: memory.h,v 1.4 2005-02-14 14:37:50 bacon Exp $
*/ */
#ifndef _XP_LISP_MEM_H_ #ifndef _XP_LISP_MEM_H_
@ -68,8 +68,8 @@ void xp_lisp_unlock_all (xp_lisp_obj_t* obj);
// object creation of standard types // object creation of standard types
xp_lisp_obj_t* xp_lisp_make_nil (xp_lisp_mem_t* mem); xp_lisp_obj_t* xp_lisp_make_nil (xp_lisp_mem_t* mem);
xp_lisp_obj_t* xp_lisp_make_true (xp_lisp_mem_t* mem); xp_lisp_obj_t* xp_lisp_make_true (xp_lisp_mem_t* mem);
xp_lisp_obj_t* xp_lisp_make_int (xp_lisp_mem_t* mem, xp_lisp_int value); xp_lisp_obj_t* xp_lisp_make_int (xp_lisp_mem_t* mem, xp_lisp_int_t value);
xp_lisp_obj_t* xp_lisp_make_float (xp_lisp_mem_t* mem, xp_lisp_float value); xp_lisp_obj_t* xp_lisp_make_float (xp_lisp_mem_t* mem, xp_lisp_real_t value);
xp_lisp_obj_t* xp_lisp_make_symbol (xp_lisp_mem_t* mem, const xp_char_t* str, xp_size_t len); xp_lisp_obj_t* xp_lisp_make_symbol (xp_lisp_mem_t* mem, const xp_char_t* str, xp_size_t len);
xp_lisp_obj_t* xp_lisp_make_string (xp_lisp_mem_t* mem, const xp_char_t* str, xp_size_t len); xp_lisp_obj_t* xp_lisp_make_string (xp_lisp_mem_t* mem, const xp_char_t* str, xp_size_t len);
xp_lisp_obj_t* xp_lisp_make_cons (xp_lisp_mem_t* mem, xp_lisp_obj_t* car, xp_lisp_obj_t* cdr); xp_lisp_obj_t* xp_lisp_make_cons (xp_lisp_mem_t* mem, xp_lisp_obj_t* car, xp_lisp_obj_t* cdr);

6
ase/lsp/object.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: object.h,v 1.3 2005-02-07 15:10:41 bacon Exp $ * $Id: object.h,v 1.4 2005-02-14 14:37:50 bacon Exp $
*/ */
#ifndef _XP_LISP_OBJECT_H_ #ifndef _XP_LISP_OBJECT_H_
@ -49,13 +49,13 @@ struct xp_lisp_obj_true_t
struct xp_lisp_obj_int_t struct xp_lisp_obj_int_t
{ {
XP_LISP_OBJ_HEADER; XP_LISP_OBJ_HEADER;
xp_lisp_int value; xp_lisp_int_t value;
}; };
struct xp_lisp_obj_float_t struct xp_lisp_obj_float_t
{ {
XP_LISP_OBJ_HEADER; XP_LISP_OBJ_HEADER;
xp_lisp_float value; xp_lisp_real_t value;
}; };
struct xp_lisp_obj_symbol_t struct xp_lisp_obj_symbol_t

4
ase/lsp/primitive.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: primitive.c,v 1.4 2005-02-05 05:30:25 bacon Exp $ * $Id: primitive.c,v 1.5 2005-02-14 14:37:50 bacon Exp $
*/ */
#include <xp/lisp/lisp.h> #include <xp/lisp/lisp.h>
@ -523,7 +523,7 @@ xp_lisp_obj_t* xp_lisp_prim_letx (xp_lisp_t* lsp, xp_lisp_obj_t* args)
xp_lisp_obj_t* xp_lisp_prim_plus (xp_lisp_t* lsp, xp_lisp_obj_t* args) xp_lisp_obj_t* xp_lisp_prim_plus (xp_lisp_t* lsp, xp_lisp_obj_t* args)
{ {
xp_lisp_obj_t* body, * tmp; xp_lisp_obj_t* body, * tmp;
xp_lisp_int value = 0; xp_lisp_int_t value = 0;
XP_LISP_PRIM_CHECK_ARG_COUNT (lsp, args, 1, XP_LISP_PRIM_MAX_ARG_COUNT); XP_LISP_PRIM_CHECK_ARG_COUNT (lsp, args, 1, XP_LISP_PRIM_MAX_ARG_COUNT);
xp_assert (XP_LISP_TYPE(args) == XP_LISP_OBJ_CONS); xp_assert (XP_LISP_TYPE(args) == XP_LISP_OBJ_CONS);

10
ase/lsp/print.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: print.c,v 1.3 2005-02-04 16:23:34 bacon Exp $ * $Id: print.c,v 1.4 2005-02-14 14:37:50 bacon Exp $
*/ */
#include <xp/lisp/lisp.h> #include <xp/lisp/lisp.h>
@ -67,7 +67,15 @@ void xp_lisp_print (xp_lisp_t* lsp, xp_lisp_obj_t* obj)
xp_fprintf (lsp->outstream,XP_TEXT("t")); xp_fprintf (lsp->outstream,XP_TEXT("t"));
break; break;
case XP_LISP_OBJ_INT: case XP_LISP_OBJ_INT:
if (xp_sizeof(xp_lisp_int_t) == xp_sizeof(int)) {
xp_fprintf (lsp->outstream,XP_TEXT("%d"), XP_LISP_IVALUE(obj)); xp_fprintf (lsp->outstream,XP_TEXT("%d"), XP_LISP_IVALUE(obj));
}
else if (xp_sizeof(xp_lisp_int_t) == xp_sizeof(long)) {
xp_fprintf (lsp->outstream,XP_TEXT("%ld"), XP_LISP_IVALUE(obj));
}
else if (xp_sizeof(xp_lisp_int_t) == xp_sizeof(long long)) {
xp_fprintf (lsp->outstream,XP_TEXT("%lld"), XP_LISP_IVALUE(obj));
}
break; break;
case XP_LISP_OBJ_FLOAT: case XP_LISP_OBJ_FLOAT:
xp_fprintf (lsp->outstream,XP_TEXT("%f"), XP_LISP_FVALUE(obj)); xp_fprintf (lsp->outstream,XP_TEXT("%f"), XP_LISP_FVALUE(obj));

15
ase/lsp/read.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: read.c,v 1.6 2005-02-05 05:43:55 bacon Exp $ * $Id: read.c,v 1.7 2005-02-14 14:37:50 bacon Exp $
*/ */
#include <xp/lisp/lisp.h> #include <xp/lisp/lisp.h>
@ -326,17 +326,20 @@ static int read_token (xp_lisp_t* lsp)
static int read_number (xp_lisp_t* lsp, int negative) static int read_number (xp_lisp_t* lsp, int negative)
{ {
xp_lisp_int_t ivalue = 0;
do { do {
TOKEN_IVALUE(lsp) = ivalue = ivalue * 10 + (lsp->curc - XP_CHAR('0'));
TOKEN_IVALUE(lsp) * 10 + lsp->curc - XP_CHAR('0');
TOKEN_ADD_CHAR (lsp, lsp->curc); TOKEN_ADD_CHAR (lsp, lsp->curc);
NEXT_CHAR (lsp); NEXT_CHAR (lsp);
} while (IS_DIGIT(lsp->curc)); } while (IS_DIGIT(lsp->curc));
if (negative) TOKEN_IVALUE(lsp) *= -1; if (negative) ivalue *= -1;
TOKEN_IVALUE(lsp) = ivalue;
TOKEN_TYPE(lsp) = TOKEN_INT; TOKEN_TYPE(lsp) = TOKEN_INT;
// TODO: read floating point numbers /* TODO: read floating point numbers */
return 0; return 0;
} }
@ -354,7 +357,7 @@ static int read_ident (xp_lisp_t* lsp)
static int read_string (xp_lisp_t* lsp) static int read_string (xp_lisp_t* lsp)
{ {
int escaped = 0; int escaped = 0;
xp_lisp_cint code = 0; xp_cint_t code = 0;
do { do {
if (lsp->curc == XP_EOF) { if (lsp->curc == XP_EOF) {

6
ase/lsp/token.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: token.h,v 1.4 2005-02-07 15:10:41 bacon Exp $ * $Id: token.h,v 1.5 2005-02-14 14:37:50 bacon Exp $
*/ */
#ifndef _XP_LISP_TOKEN_H_ #ifndef _XP_LISP_TOKEN_H_
@ -11,8 +11,8 @@ struct xp_lisp_token_t
{ {
int type; int type;
xp_lisp_int ivalue; xp_lisp_int_t ivalue;
xp_lisp_float fvalue; xp_lisp_real_t fvalue;
xp_size_t capacity; xp_size_t capacity;
xp_size_t size; xp_size_t size;

7
ase/lsp/types.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: types.h,v 1.4 2005-02-07 15:10:41 bacon Exp $ * $Id: types.h,v 1.5 2005-02-14 14:37:50 bacon Exp $
*/ */
#ifndef _XP_LISP_TYPES_H_ #ifndef _XP_LISP_TYPES_H_
@ -8,8 +8,7 @@
#include <xp/types.h> #include <xp/types.h>
#include <xp/macros.h> #include <xp/macros.h>
typedef xp_cint_t xp_lisp_cint; typedef xp_long_t xp_lisp_int_t;
typedef xp_long_t xp_lisp_int; typedef xp_real_t xp_lisp_real_t;
typedef xp_real_t xp_lisp_float;
#endif #endif