Add Licensing and Contributing

[sheep] / src / main / struc.lisp

diff --git a/src/main/struc.lisp b/src/main/struc.lisp
index a616ee97cbff9fd7f63118cbf8cc9c8d693e0556..b3012c7c4f732eafc53eddb1543589307e3e434b 100644 (file)
--- a/src/main/struc.lisp
+++ b/src/main/struc.lisp
@@ -1,6 +1,7 @@
-(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
@@ -37,3 +38,17 @@
   (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))