From c7878cd824360c6bf8a8e987acfa6a31140e9d69 Mon Sep 17 00:00:00 2001 From: Felix Perktold Date: Sun, 21 Dec 2025 22:03:34 +0100 Subject: add builtins, add pretty printing for lists, fix erroneous symbol x not found for forms (define, lambda ...) add check for head->type == VT_SYMBOL on forms (so a string cannot be misinterpreted as a form symbol), move is_integer from lisp.y to lisp.h/lisp.c --- lisp.l | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp.l') diff --git a/lisp.l b/lisp.l index 7a9eece..5ad5c57 100644 --- a/lisp.l +++ b/lisp.l @@ -7,14 +7,14 @@ int tcnt = 0; %} %% -[[:space:]]+ { printf("%d: WHITESPACE\n", tcnt); /*ignore whitespace*/} -"(" { printf("%d: LPAREN\n", ++tcnt); return LPAREN; } -")" { printf("%d: RPAREN\n", ++tcnt); return RPAREN; } -"\." { printf("%d: DOT\n", ++tcnt); return DOT; } +[[:space:]]+ { /*ignore whitespace*/} +"(" { return LPAREN; } +")" { return RPAREN; } +"\." { return DOT; } [+-]?([0-9]+|([0-9]*\.[0-9]+))([eE][-+]?[0-9]+)? { yylval.dval = atof(yytext); - printf("%d: NUMBER: %f\n", ++tcnt, yylval.dval); + return NUMBER; } @@ -27,13 +27,13 @@ int tcnt = 0; str[len] = '\0'; yylval.strval = str; - printf("%d: STRING: \"%s\"\n", ++tcnt, yylval.strval); + return STRING; } [^[:space:]\"().]+ { yylval.strval = strdup(yytext); - printf("%d: SYMBOL: %s\n", ++tcnt, yylval.strval); + return SYMBOL; } . ; // do nothing -- cgit v1.2.3