Add symbol table
This commit is contained in:
parent
0867e99cc1
commit
e6e2e94404
2 changed files with 14 additions and 0 deletions
13
wip-duuqnd/user-side-compiler/symbol-table.lisp
Normal file
13
wip-duuqnd/user-side-compiler/symbol-table.lisp
Normal 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*))
|
|
@ -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")
|
||||||
|
|
Loading…
Add table
Reference in a new issue