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-15 14:19:23 +00:00
parent fa25765abe
commit 322bf22ee7
6 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ase/lsp/eval.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: eval.c,v 1.28 2007-03-07 12:14:28 bacon Exp $ * $Id: eval.c,v 1.29 2007-03-15 14:19:23 bacon Exp $
* *
* {License} * {License}
*/ */
@ -88,7 +88,7 @@ static ase_lsp_obj_t* makefn (ase_lsp_t* lsp, ase_lsp_obj_t* cdr, int is_macro)
return ASE_NULL; return ASE_NULL;
} }
// TODO: more lambda expression syntax checks required???. /* TODO: more lambda expression syntax checks required???. */
/* check if the lambda express has non-nil value /* check if the lambda express has non-nil value
* at the terminating cdr */ * at the terminating cdr */

17
ase/lsp/mem.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: mem.c,v 1.33 2007-03-06 14:58:00 bacon Exp $ * $Id: mem.c,v 1.34 2007-03-15 14:19:23 bacon Exp $
* *
* {License} * {License}
*/ */
@ -178,8 +178,7 @@ static void __mark_obj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
{ {
ASE_ASSERT (obj != ASE_NULL); ASE_ASSERT (obj != ASE_NULL);
// TODO:.... /* TODO: can it be recursive? */
// can it be recursive?
if (ASE_LSP_MARK(obj) != 0) return; if (ASE_LSP_MARK(obj) != 0) return;
ASE_LSP_MARK(obj) = 1; ASE_LSP_MARK(obj) = 1;
@ -428,11 +427,11 @@ ase_lsp_obj_t* ase_lsp_makesym (
{ {
ase_lsp_obj_t* obj; ase_lsp_obj_t* obj;
// look for a sysmbol with the given name /* look for a sysmbol with the given name */
obj = mem->used[ASE_LSP_OBJ_SYM]; obj = mem->used[ASE_LSP_OBJ_SYM];
while (obj != ASE_NULL) while (obj != ASE_NULL)
{ {
// if there is a symbol with the same name, it is just used. /* if there is a symbol with the same name, it is just used. */
if (ase_strxncmp ( if (ase_strxncmp (
ASE_LSP_SYMPTR(obj), ASE_LSP_SYMPTR(obj),
ASE_LSP_SYMLEN(obj), ASE_LSP_SYMLEN(obj),
@ -440,12 +439,12 @@ ase_lsp_obj_t* ase_lsp_makesym (
obj = ASE_LSP_LINK(obj); obj = ASE_LSP_LINK(obj);
} }
// no such symbol found. create a new one /* no such symbol found. create a new one */
obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_SYM, obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_SYM,
ASE_SIZEOF(ase_lsp_obj_sym_t)+(len + 1)*ASE_SIZEOF(ase_char_t)); ASE_SIZEOF(ase_lsp_obj_sym_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
if (obj == ASE_NULL) return ASE_NULL; if (obj == ASE_NULL) return ASE_NULL;
// fill in the symbol buffer /* fill in the symbol buffer */
ase_strncpy (ASE_LSP_SYMPTR(obj), str, len); ase_strncpy (ASE_LSP_SYMPTR(obj), str, len);
return obj; return obj;
@ -456,12 +455,12 @@ ase_lsp_obj_t* ase_lsp_makestr (
{ {
ase_lsp_obj_t* obj; ase_lsp_obj_t* obj;
// allocate memory for the string /* allocate memory for the string */
obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_STR, obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_STR,
ASE_SIZEOF(ase_lsp_obj_str_t)+(len + 1)*ASE_SIZEOF(ase_char_t)); ASE_SIZEOF(ase_lsp_obj_str_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
if (obj == ASE_NULL) return ASE_NULL; if (obj == ASE_NULL) return ASE_NULL;
// fill in the string buffer /* fill in the string buffer */
ase_strncpy (ASE_LSP_STRPTR(obj), str, len); ase_strncpy (ASE_LSP_STRPTR(obj), str, len);
return obj; return obj;

4
ase/lsp/obj.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: obj.h,v 1.17 2007-02-17 15:27:19 bacon Exp $ * $Id: obj.h,v 1.18 2007-03-15 14:19:23 bacon Exp $
* *
* {License} * {License}
*/ */
@ -25,7 +25,7 @@ enum
ASE_LSP_OBJ_MACRO, ASE_LSP_OBJ_MACRO,
ASE_LSP_OBJ_PRIM, ASE_LSP_OBJ_PRIM,
ASE_LSP_TYPE_COUNT // the number of lsp object types ASE_LSP_TYPE_COUNT /* the number of lsp object types */
}; };
typedef struct ase_lsp_objhdr_t ase_lsp_objhdr_t; typedef struct ase_lsp_objhdr_t ase_lsp_objhdr_t;

4
ase/lsp/prim.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: prim.c,v 1.24 2007-03-07 12:14:29 bacon Exp $ * $Id: prim.c,v 1.25 2007-03-15 14:19:23 bacon Exp $
* *
* {License} * {License}
*/ */
@ -19,7 +19,7 @@ int ase_lsp_addprim (
int ase_lsp_removeprim (ase_lsp_t* lsp, const ase_char_t* name) int ase_lsp_removeprim (ase_lsp_t* lsp, const ase_char_t* name)
{ {
// TODO: /* TODO: */
return -1; return -1;
} }

4
ase/test/awk/awk.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.189 2007-03-12 15:24:19 bacon Exp $ * $Id: awk.c,v 1.190 2007-03-15 14:19:23 bacon Exp $
*/ */
#include <ase/awk/awk.h> #include <ase/awk/awk.h>
@ -673,7 +673,7 @@ static int print_awk_value (ase_awk_pair_t* pair, void* arg)
static void on_run_statement ( static void on_run_statement (
ase_awk_run_t* run, ase_size_t line, void* custom) ase_awk_run_t* run, ase_size_t line, void* custom)
{ {
//dprintf (L"running %d\n", (int)line); /*dprintf (L"running %d\n", (int)line);*/
} }
static void on_run_return ( static void on_run_return (

7
ase/test/awk/makefile.in
View File

@ -6,13 +6,16 @@ CFLAGS = @CFLAGS@ -I@abs_top_builddir@/..
LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/cmn -L@abs_top_builddir@/awk -L@abs_top_builddir@/utl LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/cmn -L@abs_top_builddir@/awk -L@abs_top_builddir@/utl
LIBS = @LIBS@ -laseawk -lasecmn -laseutl -lm LIBS = @LIBS@ -laseawk -lasecmn -laseutl -lm
all: aseawk all: aseawk mini
aseawk: $(OBJS) aseawk: $(OBJS)
$(CC) -o $@ awk.o $(LDFLAGS) $(LIBS) $(CC) -o $@ awk.o $(LDFLAGS) $(LIBS)
mini: $(OBJS)
$(CC) -o $@ mini.o $(LDFLAGS) $(LIBS)
clean: clean:
rm -rf *.o aseawk rm -rf *.o aseawk mini
.SUFFIXES: .c .o .SUFFIXES: .c .o
.c.o: .c.o: