Parse defpattern

quickdocs-parser.asd

@@ -6,6 +6,7 @@
   :homepage ""
   :bug-tracker ""
   :source-control (:git "")
+  :depends-on (:optima :trivia)
   :components ((:module "src"
                 :serial t
                 :components

src/nodes.lisp

@@ -114,6 +114,14 @@
   ()
   (:documentation "A type."))
 
+(defclass optima-pattern-node (operator-node)
+  ()
+  (:documentation "An optima defpattern node."))
+
+(defclass trivia-pattern-node (operator-node)
+  ()
+  (:documentation "A trivia defpattern node."))
+
 ;;; CFFI classes
 
 (defclass cffi-node ()

src/package.lisp

@@ -16,7 +16,9 @@
            :struct-node
            :class-node
            :condition-node
-           :type-node)
+           :type-node
+           :optima-pattern-node
+           :trivia-pattern-node)
   ;; CFFI classes
   (:export :cffi-node
            :cffi-function

src/parsers.lisp

@@ -84,6 +84,24 @@
                    :docstring docstring
                    :lambda-list lambda-list)))
 
+(define-parser optima:defpattern (name lambda-list &rest body)
+  (let ((docstring (if (stringp (first body))
+                       (first body)
+                       nil)))
+    (make-instance 'optima-pattern-node
+                   :name name
+                   :docstring docstring
+                   :lambda-list lambda-list)))
+
+(define-parser trivia:defpattern (name lambda-list &rest body)
+  (let ((docstring (if (stringp (first body))
+                       (first body)
+                       nil)))
+    (make-instance 'trivia-pattern-node
+                   :name name
+                   :docstring docstring
+                   :lambda-list lambda-list)))
+
 (defun parse-slot (slot)
   (if (listp slot)
       (let ((slot (copy-list slot)))

src/print.lisp

@@ -41,6 +41,16 @@
   (print-unreadable-object (type stream)
     (format stream "type ~A" (render-humanize (node-name type)))))
 
+(defmethod print-object ((optima-pattern optima-pattern-node) stream)
+  "Print a optima-pattern definition node."
+  (print-unreadable-object (optima-pattern stream)
+    (format stream "optima-pattern ~A" (render-humanize (node-name optima-pattern)))))
+
+(defmethod print-object ((trivia-pattern trivia-pattern-node) stream)
+  "Print a trivia-pattern definition node."
+  (print-unreadable-object (trivia-pattern stream)
+    (format stream "trivia-pattern ~A" (render-humanize (node-name trivia-pattern)))))
+
 ;;; CFFI classes
 
 (defmethod print-object ((function cffi-function) stream)