Commit 4cd70baf authored by Teodor Gelu Chiciudean's avatar Teodor Gelu Chiciudean
Browse files

new documentation

parent 0e3f8639
This diff is collapsed.
......@@ -1172,6 +1172,5 @@ with our vendors for second-level support on Allegro CL, SMLib, etc.
@b{@i{Genworks Technical Support can be reached at: @email{support@@genworks.com}.}}
@bye
(in-package :yadd)
(defparameter *data-pathname*
(make-pathname :directory (pathname-directory excl:*source-pathname*)
:device (pathname-device excl:*source-pathname*)))
(defparameter *data-pathname*
(make-pathname :directory (pathname-directory excl:*source-pathname*)
:device (pathname-device excl:*source-pathname*)))
(define-object document-yadd (base-object)
......@@ -167,24 +166,44 @@
:description)
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(getf (nth n (the part-documentation-plist))
:description)
"@" "(at)" )
"<tt>" "@i{" )
"</tt>" "}")
"<i>" "@i{" )
"</i>" "} ")
;;italic it has to be replaced too.
"!!! Not applicable for this object !!!"))
(mapcar #'(lambda (documentation)
(if (fourth documentation)
(progn (format out "@noindent @b{~@(~a~)}~%~%"
(first documentation))
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(getf (nth n (the part-documentation-plist))
:description)
"@" "(at)")
" " "")
"<ol>" " @enumerate ")
"</ol>" "
@end enumerate
")
"<li>" " @item " )
"</li>" "" )
"<ul>" " @itemize ")
"</ul>" "
@end itemize
")
"<tt>" "@i{" )
"</tt>" "}")
"<i>" "@i{" )
"</i>" "} ")
;;italic it has to be replaced too.
"!!! Not applicable for this object !!!"))
(mapcar #'(lambda (documentation)
(if (fourth documentation)
(progn (format out "@noindent @b{~@(~a~)}~%~%"
(first documentation))
(let ((index (length (second documentation))))
(dotimes (n index)
......@@ -212,8 +231,22 @@
(excl:replace-re
(excl:replace-re
(excl:replace-re
(nth n (third documentation))
"<p>" "" )
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(excl:replace-re
(nth n (third documentation))
"<p>" "" )
"</p>" "" )
"<ol>" " @enumerate ")
"</ol>" "
@end enumerate
")
"<pre>" "@smallexample ")
"</pre>" "@end smallexample
")
"<i>" "@i{" )
"</i>" "} ")
"<b>" "@b{" )
......@@ -242,7 +275,7 @@
@end itemize
"))))))
(format out "~%~%")))
(nth n (the doc-messages )))
......@@ -262,10 +295,14 @@
(excl:replace-re
(getf (nth n (the part-documentation-plist)) :examples)
"@" "(at)" )
"<pre>" "@smallexample
@cartouche" )
"</pre>" "@end cartouche
@end smallexample")
"<pre>" "@smallexample")
;; @cartouche" )
"</pre>" "@end smallexample")
;;"@end cartouche
;;@end smallexample")
""))
(if (the image?)
(if (getf (nth n (the part-documentation-plist)) :examples)
......
......@@ -2,8 +2,8 @@
@b{Description}
Encapsulates a basic computation, usually to be displayed to the user.
Typically this would be used as a mixin into a more sophisticated rule-object, but the type can be
Encapsulates a basic computation, usually to be displayed to the user.
Typically this would be used as a mixin into a more sophisticated rule-object, but the type can be
used to detect objects which should be processed as "rules."
@noindent @b{Optional-input-slots}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment