Add documentation and generator.

[sheep] / src / main / struc.lisp

diff --git a/src/main/struc.lisp b/src/main/struc.lisp
index a616ee97cbff9fd7f63118cbf8cc9c8d693e0556..6a792ed470608e2c9a1c80a258b3ab1d5c1e0e7b 100644 (file)
--- a/src/main/struc.lisp
+++ b/src/main/struc.lisp
@@ -37,3 +37,17 @@
   (first ast)
   (second ast)
   (cddr ast)))
   (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))