From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 17 Nov 2015 17:15:23 +0000 (+0000)
Subject: src/module-parse.lisp: New statement to set module-level properties.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/01e3faf9aaf5674955083ae7b190fcc84d35afbd

src/module-parse.lisp: New statement to set module-level properties.
---

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index d9bde30..a42c31f 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -148,6 +148,29 @@ (define-pluggable-parser module file (scanner pset)
 				 (cerror* "Error loading Lisp file ~S: ~A"
 					  path error)))))))))))
 
+;;; Setting properties.
+
+(define-pluggable-parser module set (scanner pset)
+  ;; `set' property-list `;'
+  (with-parser-context (token-scanner-context :scanner scanner)
+    (parse (and "set"
+		(lisp (let ((module-pset (module-pset *module*)))
+			(when pset
+			  (pset-map (lambda (prop)
+				      (add-property module-pset
+						    (p-name prop)
+						    (p-value prop)
+						    :type (p-type prop)
+						    :location (p-location prop))
+				      (setf (p-seenp prop) t))
+				    pset))
+			(parse (skip-many (:min 0)
+				 (error (:ignore-unconsumed t)
+				   (parse-property scanner module-pset)
+				   (skip-until (:keep-end t) #\, #\;))
+				 #\,))))
+		#\;))))
+
 ;;; Lisp escape.
 
 (define-pluggable-parser module lisp (scanner pset)