-(in-package #:docgen-struc)
+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
+(in-package #:sheep-struc)
-(defun fire-error (msg) (error (make-instance 'docgen:validation-failure :msg msg)))
+(defun fire-error (msg) (error (make-instance 'sheep:validation-failure :msg msg)))
(defun doc->ast (struc)
(labels
(first ast)
(second ast)
(cddr ast)))
+
+(defun ast->category-name (ast)
+ (case (first ast)
+ (:condition "condition")
+ (t "structure")))
+
+(defun ast->short-name (ast)
+ (format nil "~(~A~)" (second ast)))
+
+(defun ast->link (ast)
+ (format nil "~(~A-~A~)" (first ast) (second ast)))
+
+(defun ast->short-desc (ast)
+ (third ast))