oreodave/alisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lisp_print: print verbose logs for lisp types on VERBOSE_LOGS=2

Browse Source
This commit is contained in:
Aryadev Chavali
2026-03-04 06:28:46 +00:00
committed by oreodave
parent fc602f1664
commit 4bc615ab29
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Makefile
View File

@@ -6,16 +6,16 @@ TEST=$(DIST)/test.out
LDFLAGS=
GFLAGS=-Wall -Wextra -Wpedantic -Werror -std=c23 -I./include/
DFLAGS=-ggdb -fsanitize=address -fsanitize=undefined -DVERBOSE_LOGS=1
DFLAGS=-ggdb -fsanitize=address -fsanitize=undefined
RFLAGS=-O3
MODE=release
ifeq ($(MODE), release)
CFLAGS=$(GFLAGS) $(RFLAGS)
else ifeq ($(MODE), debug)
CFLAGS=$(GFLAGS) $(DFLAGS)
CFLAGS=$(GFLAGS) $(DFLAGS) -DVERBOSE_LOGS=1
else ifeq ($(MODE), full)
CFLAGS=$(GFLAGS) $(DFLAGS) -DTEST_VERBOSE=1
CFLAGS=$(GFLAGS) $(DFLAGS) -DVERBOSE_LOGS=2 -DTEST_VERBOSE=1
endif
# Units to compile

16
src/lisp.c
View File

@@ -98,26 +98,26 @@ void lisp_print(FILE *fp, lisp_t *lisp)
fprintf(fp, "NIL");
break;
case TAG_INT:
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "INT[");
#endif
fprintf(fp, "%ld", as_int(lisp));
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#endif
break;
case TAG_SYM:
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "SYM[");
#endif
fprintf(fp, "%s", as_sym(lisp));
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#endif
break;
case TAG_CONS:
{
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "LIST[");
#else
fprintf(fp, "(");
@@ -145,7 +145,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
break;
}
}
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#else
fprintf(fp, ")");
@@ -154,7 +154,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
}
case TAG_VEC:
{
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "VEC[");
#else
fprintf(fp, "[");
@@ -171,7 +171,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
}
}
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#else
fprintf(fp, "]");

2
src/sys.c
View File

@@ -22,7 +22,7 @@ lisp_t *sys_alloc(sys_t *sys, tag_t type)
case TAG_CONS:
case TAG_VEC:
return alloc_make(&sys->memory, type);
// Shouldn't be registered
// Shouldn't be allocated
case TAG_NIL:
case TAG_INT:
case TAG_SYM: