diff options
Diffstat (limited to 'cl-forth.lisp')
| -rw-r--r-- | cl-forth.lisp | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/cl-forth.lisp b/cl-forth.lisp index 4c5eaaf..ab2da73 100644 --- a/cl-forth.lisp +++ b/cl-forth.lisp @@ -4,10 +4,17 @@ (defparameter *identifiers* '(+ - dump = ise yoksa yap eş push değiş üst rot düş döngü iken < > syscall-1 syscall-2 syscall-3 syscall-4 syscall-5 syscall-6 - bel oku yaz)) + bel oku yaz >> << & "|")) (defun is-identifier (sym) (find sym *identifiers* :test #'string=))) +(defun assembly-undefined-ops () + (iter (for (k) in-hashtable *operations*) + (collect k into defops) + (finally (return (remove-if (lambda (sym) (search "SYSCALL" (string sym))) + (set-difference *identifiers* defops + :test #'string=)))))) + (defun make-token (sym? line col) (if (or (numberp sym?) (is-identifier sym?)) (values (list sym? :line line :col col) nil) @@ -27,6 +34,9 @@ (cond ;; ((char= #\. next-char) ;; (collect (make-token '|.| line-num col) into tokens) ;; (read-char line-stream)) + ((char= #\| next-char) + (read-char line-stream) + (collect (make-token "|" line-num col) into tokens)) ((char= #\Space next-char) (read-char line-stream)) ((char= #\; next-char) ;; and not in string (finish)) @@ -246,8 +256,4 @@ (defun compile-program (path) (generate-program (make-program path) :compile t)) -(defun assembly-undefined-ops () - (iter (for (k) in-hashtable *operations*) - (collect k into defops) - (finally (return (set-difference *identifiers* defops))))) |