X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Fmain%2Fstruc.lisp;h=6a792ed470608e2c9a1c80a258b3ab1d5c1e0e7b;hp=a616ee97cbff9fd7f63118cbf8cc9c8d693e0556;hb=0.1;hpb=e9d1b7da236295700286b7564960d84f9c5f0dbe

diff --git a/src/main/struc.lisp b/src/main/struc.lisp
index a616ee9..6a792ed 100644
--- a/src/main/struc.lisp
+++ b/src/main/struc.lisp
@@ -37,3 +37,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))