diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-08 21:41:35 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-08 21:41:35 -0400 |
| commit | 8ceaf87c43d412b758bb7562364f7ae8bee913ae (patch) | |
| tree | b5cfedcc055ae8ee836daf9d03e05dfa6b4086f3 /src/main.lisp | |
| parent | b85c10ba1c53f1b442fea6bde4c2a2f73cfe5d6b (diff) | |
Add parsing functionality for R-type expressions
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index f6e5754..8a36a66 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -47,8 +47,14 @@ _/_/ _/_/ " (t (let ((tokens (lex:file->tokens file))) (if tokens (progn (pprint tokens) - (terpri)) + (terpri) + (format t "---~%")) (error "The file does not exist, or it could not be opened.~%")) + (if parse? + (let ((tokens (parse:tokens->ast tokens))) + (progn (pprint tokens) + (terpri) + (format t "---~%")))) (format t "Nitimur in Vetitum~%")))))) |