Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Store ASM-FUNCTIONs in a hash table keyed on name

Browse source 
TODO: Populate the table based on the asm source code declaration
comments and signal an error when a named function is missing.
This commit is contained in:
John Lorentzson 2025-07-03 16:51:47 +02:00
parent 094f01d258
commit 3b8c906d75
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
wip-duuqnd/user-side-compiler/asm-function.lisp
View file

@ -1,10 +1,14 @@
(in-package #:user-side-compiler) (in-package #:user-side-compiler)
;;; STUB, TODO (defvar *asm-functions* (make-hash-table :test #'equalp))
(defclass asm-function () (defclass asm-function ()
((%name :accessor name :initarg :name))) ((%name :accessor name :initarg :name)))
(define-transformation (token (token-name asm-function)) (define-transformation (token (token-name asm-function))
;; TODO: Choose from a list, don't just create like this (multiple-value-bind (asm-function existsp)
(make-instance 'asm-function :name (name token))) (gethash (name token) *asm-functions*)
(if existsp
asm-function
(setf (gethash (name token) *asm-functions*)
(make-instance 'asm-function :name (name token))))))