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-05 05:43:55 +00:00
parent fc5f362c97
commit 047166e58f
9 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/lsp/array.c
View File

@ -1,9 +1,9 @@
/*
* $Id: array.c,v 1.2 2005-02-04 16:00:37 bacon Exp $
* $Id: array.c,v 1.3 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/array.h>
#include <xp/c/stdlib.h>
#include <xp/c/memory.h>
#include <xp/c/assert.h>
xp_lisp_array_t* xp_lisp_array_new (xp_size_t capacity)

5
ase/lsp/env.c
View File

@ -1,9 +1,10 @@
/*
* $Id: env.c,v 1.3 2005-02-05 05:18:20 bacon Exp $
* $Id: env.c,v 1.4 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/env.h>
#include <xp/c/stdlib.h>
#include <xp/c/memory.h>
#include <xp/c/assert.h>
xp_lisp_assoc_t* xp_lisp_assoc_new (xp_lisp_obj_t* name, xp_lisp_obj_t* value)
{

5
ase/lsp/eval.c
View File

@ -1,10 +1,11 @@
/*
* $Id: eval.c,v 1.4 2005-02-05 05:18:20 bacon Exp $
* $Id: eval.c,v 1.5 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/lisp.h>
#include <xp/lisp/env.h>
#include <xp/lisp/primitive.h>
#include <xp/c/assert.h>
#ifdef __cplusplus
extern "C" {
@ -54,7 +55,7 @@ static xp_lisp_obj_t* make_func (xp_lisp_t* lsp, xp_lisp_obj_t* cdr, int is_macr
// TODO: lambda expression syntax check.
xp_lisp_obj_t* func, * formal, * body;
printf ("about to create a function or a macro ....\n");
printf ("about to create a function or a macro ....\n");
if (cdr == lsp->mem->nil) {
lsp->error = XP_LISP_ERR_TOO_FEW_ARGS;

4
ase/lsp/lisp.c
View File

@ -1,9 +1,9 @@
/*
* $Id: lisp.c,v 1.5 2005-02-05 05:30:25 bacon Exp $
* $Id: lisp.c,v 1.6 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/lisp.h>
#include <xp/c/stdlib.h>
#include <xp/c/memory.h>
#include <xp/c/assert.h>
xp_lisp_t* xp_lisp_new (xp_size_t mem_ubound, xp_size_t mem_ubound_inc)

4
ase/lsp/memory.c
View File

@ -1,10 +1,10 @@
/*
* $Id: memory.c,v 1.5 2005-02-05 05:30:25 bacon Exp $
* $Id: memory.c,v 1.6 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/memory.h>
#include <xp/lisp/primitive.h>
#include <xp/c/stdlib.h>
#include <xp/c/memory.h>
#include <xp/c/assert.h>
xp_lisp_mem_t* xp_lisp_mem_new (xp_size_t ubound, xp_size_t ubound_inc)

3
ase/lsp/read.c
View File

@ -1,10 +1,11 @@
/*
* $Id: read.c,v 1.5 2005-02-05 05:30:25 bacon Exp $
* $Id: read.c,v 1.6 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/lisp.h>
#include <xp/lisp/token.h>
#include <xp/c/assert.h>
#include <xp/c/ctype.h>
#define IS_SPACE(x) xp_isspace(x)
#define IS_DIGIT(x) xp_isdigit(x)

4
ase/lsp/token.c
View File

@ -1,9 +1,9 @@
/*
* $Id: token.c,v 1.5 2005-02-05 05:30:25 bacon Exp $
* $Id: token.c,v 1.6 2005-02-05 05:43:55 bacon Exp $
*/
#include <xp/lisp/token.h>
#include <xp/c/stdlib.h>
#include <xp/c/memory.h>
#include <xp/c/assert.h>
xp_lisp_token_t* xp_lisp_token_new (xp_size_t capacity)

2
ase/makefile.in
View File

@ -1,4 +1,4 @@
SUBDIRS=c
SUBDIRS=c lisp
all:
@for i in $(SUBDIRS); \

1
ase/test/lsp/lisp.c
View File

@ -1,5 +1,6 @@
#include <xp/lisp/lisp.h>
#include <xp/c/stdio.h>
#include <xp/c/ctype.h>
#ifdef LINUX
#include <mcheck.h>