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
Show Stats 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}
*/
@ -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;
}
// TODO: more lambda expression syntax checks required???.
/* TODO: more lambda expression syntax checks required???. */
/* check if the lambda express has non-nil value
* 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}
*/
@ -178,8 +178,7 @@ static void __mark_obj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
{
ASE_ASSERT (obj != ASE_NULL);
// TODO:....
// can it be recursive?
/* TODO: can it be recursive? */
if (ASE_LSP_MARK(obj) != 0) return;
ASE_LSP_MARK(obj) = 1;
@ -428,11 +427,11 @@ ase_lsp_obj_t* ase_lsp_makesym (
{
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];
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 (
ASE_LSP_SYMPTR(obj),
ASE_LSP_SYMLEN(obj),
@ -440,12 +439,12 @@ ase_lsp_obj_t* ase_lsp_makesym (
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,
ASE_SIZEOF(ase_lsp_obj_sym_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
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);
return obj;
@ -456,12 +455,12 @@ ase_lsp_obj_t* ase_lsp_makestr (
{
ase_lsp_obj_t* obj;
// allocate memory for the string
/* allocate memory for the string */
obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_STR,
ASE_SIZEOF(ase_lsp_obj_str_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
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);
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}
*/
@ -25,7 +25,7 @@ enum
ASE_LSP_OBJ_MACRO,
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;

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}
*/
@ -19,7 +19,7 @@ int ase_lsp_addprim (
int ase_lsp_removeprim (ase_lsp_t* lsp, const ase_char_t* name)
{
// TODO:
/* TODO: */
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>
@ -673,7 +673,7 @@ static int print_awk_value (ase_awk_pair_t* pair, void* arg)
static void on_run_statement (
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 (

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
LIBS = @LIBS@ -laseawk -lasecmn -laseutl -lm
all: aseawk
all: aseawk mini
aseawk: $(OBJS)
$(CC) -o $@ awk.o $(LDFLAGS) $(LIBS)
mini: $(OBJS)
$(CC) -o $@ mini.o $(LDFLAGS) $(LIBS)
clean:
rm -rf *.o aseawk
rm -rf *.o aseawk mini
.SUFFIXES: .c .o
.c.o: