kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-10 12:47:45 +03:00
Code Issues Projects Releases Wiki Activity

Expand quote, quasiquote, unquote and splice-unquote

Browse Source
This commit is contained in:
Iqbal Ansari 2016-08-15 23:10:58 +05:30
parent 3ccd8eaa68
commit fa78d99b18
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
common_lisp/reader.lisp
View File

@ -10,9 +10,9 @@
\\)\\|[^\"\\]\\)*\"$" \\)\\|[^\"\\]\\)*\"$"
"RE string") "RE string")
(defvar *tokenizer-re* "[[:space:],]*\\(~@\\|[][{}()`'^@]\\|\"\\(\\\\\\(.\\| (defvar *tokenizer-re* "[[:space:],]*\\(~@\\|[][{}()~`'^@]\\|\"\\(\\\\\\(.\\|
\\)\\|[^\"\\]\\)*\"\\?\\|;[^ \\)\\|[^\"\\]\\)*\"\\?\\|;[^
]*\\|[^][[:space:]{}()`'\";]*\\)" ]*\\|[^][[:space:]~{}()`'\";]*\\)"
"RE") "RE")
(define-condition eof (error) (define-condition eof (error)
@ -89,8 +89,21 @@
"]" "]"
'vector))) 'vector)))
((string= token "{") (make-mal-hash-map (read-hash-map reader))) ((string= token "{") (make-mal-hash-map (read-hash-map reader)))
((string= token "'") (expand-quote reader))
((string= token "`") (expand-quote reader))
((string= token "~") (expand-quote reader))
((string= token "~@") (expand-quote reader))
(t (read-atom reader))))) (t (read-atom reader)))))
(defun expand-quote (reader)
(let ((quote (next reader)))
(make-mal-list (list (make-mal-symbol (cond
((string= quote "'") "quote")
((string= quote "`") "quasiquote")
((string= quote "~") "unquote")
((string= quote "~@") "splice-unquote")))
(read-form reader)))))
(defun read-mal-sequence (reader &optional (delimiter ")") (constructor 'list)) (defun read-mal-sequence (reader &optional (delimiter ")") (constructor 'list))
;; Consume the opening brace ;; Consume the opening brace
(consume reader) (consume reader)