diff --git a/ase/lsp/eval.c b/ase/lsp/eval.c index a6285801..52add518 100644 --- a/ase/lsp/eval.c +++ b/ase/lsp/eval.c @@ -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 */ diff --git a/ase/lsp/mem.c b/ase/lsp/mem.c index 7782ffda..30f2185e 100644 --- a/ase/lsp/mem.c +++ b/ase/lsp/mem.c @@ -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; diff --git a/ase/lsp/obj.h b/ase/lsp/obj.h index d010342f..4318b273 100644 --- a/ase/lsp/obj.h +++ b/ase/lsp/obj.h @@ -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; diff --git a/ase/lsp/prim.c b/ase/lsp/prim.c index fa03d7e9..f5556265 100644 --- a/ase/lsp/prim.c +++ b/ase/lsp/prim.c @@ -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; } diff --git a/ase/test/awk/awk.c b/ase/test/awk/awk.c index b896fadf..b6e82b6b 100644 --- a/ase/test/awk/awk.c +++ b/ase/test/awk/awk.c @@ -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 @@ -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 ( diff --git a/ase/test/awk/makefile.in b/ase/test/awk/makefile.in index 089c20f9..d54f7410 100644 --- a/ase/test/awk/makefile.in +++ b/ase/test/awk/makefile.in @@ -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: