Add symbol table

This commit is contained in:
John Lorentzson 2025-05-16 21:00:57 +02:00
parent 0867e99cc1
commit e6e2e94404
2 changed files with 14 additions and 0 deletions

View file

@ -0,0 +1,13 @@
(in-package #:user-side-compiler)
(defparameter *symbol-table* (make-hash-table :test #'equalp))
(defun find-reference-by-symbol (name)
(gethash name *symbol-table*))
(defun add-reference-symbol (name ref)
(declare (type reference ref))
(setf (gethash name *symbol-table*) ref))
(defun clear-symbol-table ()
(clrhash *symbol-table*))

View file

@ -5,6 +5,7 @@
:components :components
((:file "package") ((:file "package")
(:file "reference") (:file "reference")
(:file "symbol-table")
(:file "transform") (:file "transform")
(:file "tokenizer") (:file "tokenizer")
(:file "label") (:file "label")