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 2007-03-07 12:14:29 +00:00
parent 09c4068531
commit b7d81d2544
6 changed files with 27 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ase/lsp/eval.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: eval.c,v 1.27 2007-02-17 15:27:19 bacon Exp $ * $Id: eval.c,v 1.28 2007-03-07 12:14:28 bacon Exp $
* *
* {License} * {License}
*/ */
@ -112,7 +112,7 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
{ {
ase_lsp_obj_t* car, * cdr; ase_lsp_obj_t* car, * cdr;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(cons) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(cons) == ASE_LSP_OBJ_CONS);
car = ASE_LSP_CAR(cons); car = ASE_LSP_CAR(cons);
cdr = ASE_LSP_CDR(cons); cdr = ASE_LSP_CDR(cons);
@ -218,12 +218,10 @@ static ase_lsp_obj_t* apply (
ase_lsp_obj_t* value; ase_lsp_obj_t* value;
ase_lsp_mem_t* mem; ase_lsp_mem_t* mem;
ASE_LSP_ASSERT (lsp, ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC ||
ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC || ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO);
ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO);
ASE_LSP_ASSERT (lsp, ASE_ASSERT (ASE_LSP_TYPE(ASE_LSP_CDR(func)) == ASE_LSP_OBJ_CONS);
ASE_LSP_TYPE(ASE_LSP_CDR(func)) == ASE_LSP_OBJ_CONS);
mem = lsp->mem; mem = lsp->mem;
@ -352,7 +350,7 @@ static ase_lsp_obj_t* apply_to_prim (
ase_lsp_obj_t* obj; ase_lsp_obj_t* obj;
ase_size_t count = 0; ase_size_t count = 0;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM); ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM);
obj = actual; obj = actual;
while (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS) while (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)

6
ase/lsp/lsp.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: lsp.c,v 1.27 2007-03-06 14:58:00 bacon Exp $ * $Id: lsp.c,v 1.28 2007-03-07 12:14:29 bacon Exp $
* *
* {License} * {License}
*/ */
@ -105,7 +105,7 @@ int ase_lsp_attinput (ase_lsp_t* lsp, ase_lsp_io_t input, void* arg)
{ {
if (ase_lsp_detinput(lsp) == -1) return -1; if (ase_lsp_detinput(lsp) == -1) return -1;
ASE_LSP_ASSERT (lsp, lsp->input_func == ASE_NULL); ASE_ASSERT (lsp->input_func == ASE_NULL);
if (input(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1) if (input(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1)
{ {
@ -141,7 +141,7 @@ int ase_lsp_attoutput (ase_lsp_t* lsp, ase_lsp_io_t output, void* arg)
{ {
if (ase_lsp_detoutput(lsp) == -1) return -1; if (ase_lsp_detoutput(lsp) == -1) return -1;
ASE_LSP_ASSERT (lsp, lsp->output_func == ASE_NULL); ASE_ASSERT (lsp->output_func == ASE_NULL);
if (output(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1) if (output(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1)
{ {

4
ase/lsp/misc.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: misc.c,v 1.11 2007-03-06 14:58:00 bacon Exp $ * $Id: misc.c,v 1.12 2007-03-07 12:14:29 bacon Exp $
* *
* {License} * {License}
*/ */
@ -16,7 +16,7 @@ ase_long_t ase_lsp_strxtolong (
ase_size_t rem; ase_size_t rem;
int digit, negative = 0; int digit, negative = 0;
ASE_LSP_ASSERT (lsp, base < 37); ASE_ASSERT (base < 37);
p = str; p = str;
end = str + len; end = str + len;

4
ase/lsp/name.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: name.c,v 1.15 2007-02-23 10:53:39 bacon Exp $ * $Id: name.c,v 1.16 2007-03-07 12:14:29 bacon Exp $
* *
* {License} * {License}
*/ */
@ -47,7 +47,7 @@ void ase_lsp_name_close (ase_lsp_name_t* name)
{ {
if (name->capa >= ASE_COUNTOF(name->static_buf)) if (name->capa >= ASE_COUNTOF(name->static_buf))
{ {
ASE_LSP_ASSERT (name->lsp, name->buf != name->static_buf); ASE_ASSERT (name->buf != name->static_buf);
ASE_LSP_FREE (name->lsp, name->buf); ASE_LSP_FREE (name->lsp, name->buf);
} }
if (name->__dynamic) ASE_LSP_FREE (name->lsp, name); if (name->__dynamic) ASE_LSP_FREE (name->lsp, name);

24
ase/lsp/prim.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: prim.c,v 1.23 2007-02-13 06:00:20 bacon Exp $ * $Id: prim.c,v 1.24 2007-03-07 12:14:29 bacon Exp $
* *
* {License} * {License}
*/ */
@ -69,7 +69,7 @@ ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args)
{ {
ase_lsp_obj_t* tmp1, * tmp2; ase_lsp_obj_t* tmp1, * tmp2;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp1 == ASE_NULL) return ASE_NULL; if (tmp1 == ASE_NULL) return ASE_NULL;
@ -170,7 +170,7 @@ ase_lsp_obj_t* ase_lsp_prim_if (ase_lsp_t* lsp, ase_lsp_obj_t* args)
{ {
ase_lsp_obj_t* tmp; ase_lsp_obj_t* tmp;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL; if (tmp == ASE_NULL) return ASE_NULL;
@ -241,7 +241,7 @@ ase_lsp_obj_t* ase_lsp_prim_while (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* tmp; ase_lsp_obj_t* tmp;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
while (1) while (1)
{ {
@ -285,7 +285,7 @@ ase_lsp_obj_t* ase_lsp_prim_car (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* tmp; ase_lsp_obj_t* tmp;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL; if (tmp == ASE_NULL) return ASE_NULL;
@ -308,7 +308,7 @@ ase_lsp_obj_t* ase_lsp_prim_cdr (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* tmp; ase_lsp_obj_t* tmp;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL; if (tmp == ASE_NULL) return ASE_NULL;
@ -332,7 +332,7 @@ ase_lsp_obj_t* ase_lsp_prim_cons (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* car, * cdr, * cons; ase_lsp_obj_t* car, * cdr, * cons;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
car = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); car = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (car == ASE_NULL) return ASE_NULL; if (car == ASE_NULL) return ASE_NULL;
@ -370,7 +370,7 @@ ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* body, * tmp; ase_lsp_obj_t* body, * tmp;
ase_long_t len = 0; ase_long_t len = 0;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
body = args; body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS) while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
@ -421,7 +421,7 @@ ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
body = ASE_LSP_CDR(body); body = ASE_LSP_CDR(body);
} }
ASE_LSP_ASSERT (lsp, body == lsp->mem->nil); ASE_ASSERT (body == lsp->mem->nil);
return ase_lsp_makeintobj (lsp->mem, len); return ase_lsp_makeintobj (lsp->mem, len);
} }
@ -435,7 +435,7 @@ ase_lsp_obj_t* ase_lsp_prim_set (ase_lsp_t* lsp, ase_lsp_obj_t* args)
ase_lsp_obj_t* p1, * p2; ase_lsp_obj_t* p1, * p2;
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (p1 == ASE_NULL) return ASE_NULL; if (p1 == ASE_NULL) return ASE_NULL;
@ -486,7 +486,7 @@ ase_lsp_obj_t* ase_lsp_prim_setq (ase_lsp_t* lsp, ase_lsp_obj_t* args)
while (p != lsp->mem->nil) while (p != lsp->mem->nil)
{ {
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
p1 = ASE_LSP_CAR(p); p1 = ASE_LSP_CAR(p);
if (ASE_LSP_TYPE(p1) != ASE_LSP_OBJ_SYM) if (ASE_LSP_TYPE(p1) != ASE_LSP_OBJ_SYM)
@ -525,7 +525,7 @@ ase_lsp_obj_t* ase_lsp_prim_quote (ase_lsp_t* lsp, ase_lsp_obj_t* args)
* (quote (10 20 30 50)) * (quote (10 20 30 50))
*/ */
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
return ASE_LSP_CAR(args); return ASE_LSP_CAR(args);
} }

4
ase/lsp/prim_compar.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: prim_compar.c,v 1.14 2007-02-23 10:53:39 bacon Exp $ * $Id: prim_compar.c,v 1.15 2007-03-07 12:14:29 bacon Exp $
* *
* {License} * {License}
*/ */
@ -10,7 +10,7 @@
{ \ { \
ase_lsp_obj_t* p1, * p2; \ ase_lsp_obj_t* p1, * p2; \
int res; \ int res; \
ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); \ ASE_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); \
\ \
p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); \ p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); \
if (p1 == ASE_NULL) return ASE_NULL; \ if (p1 == ASE_NULL) return ASE_NULL; \