52 lines
2.2 KiB
Common Lisp
52 lines
2.2 KiB
Common Lisp
(defpackage #:syrup
|
|
(:use #:cl)
|
|
(:export
|
|
#:simple-reader-error
|
|
;; exports.lisp
|
|
#:export* #:defpackage*
|
|
;; control-flow.lisp
|
|
#:if* #:while
|
|
))
|
|
(in-package #:syrup)
|
|
|
|
(define-condition simple-reader-error (simple-condition reader-error) ())
|
|
|
|
;; Use [] and {} like normal parentheses
|
|
;; NOTE: You'll have to add superfluous-parentheses.el to Emacs to get it to recognize this syntax
|
|
(defun read-bracketed-list (stream begin-char)
|
|
(let* ((end-char (cond ((char= begin-char #\[) #\])
|
|
((char= begin-char #\{) #\})
|
|
(t (error 'simple-reader-error
|
|
:stream stream
|
|
:format-control "Invalid bracket ~S"
|
|
:format-arguments (list begin-char)))))
|
|
(list-body (loop for next-char = (peek-char t stream t nil t)
|
|
until (or (char= next-char end-char) (char= next-char #\.))
|
|
collect (read stream t nil t)))
|
|
(last-char (read-char stream t nil t))) ;; discard the last peeked character
|
|
(cond ((char= last-char end-char) list-body)
|
|
((char= last-char #\.)
|
|
(unless list-body
|
|
(error 'simple-reader-error
|
|
:stream stream
|
|
:format-control "Nothing before . in list."
|
|
:format-arguments nil))
|
|
;; set the CDR of the list
|
|
(rplacd (last list-body) (read stream t nil t))
|
|
;; skip past whitespace
|
|
(peek-char t stream t nil t)
|
|
(unless (char= (read-char stream t nil t) end-char)
|
|
(error 'simple-reader-error
|
|
:stream stream
|
|
:format-control "Multiple objects after . in list."
|
|
:format-arguments nil))
|
|
list-body)
|
|
(t (error 'simple-reader-error
|
|
:stream stream
|
|
:format-control "Expected ~S or ., but got ~S."
|
|
:format-arguments (list end-char last-char))))))
|
|
(set-macro-character #\[ #'read-bracketed-list)
|
|
(set-macro-character #\] (get-macro-character #\)))
|
|
(set-macro-character #\{ #'read-bracketed-list)
|
|
(set-macro-character #\} (get-macro-character #\)))
|