Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
4cd70baf
Commit
4cd70baf
authored
Dec 14, 2011
by
Teodor Gelu Chiciudean
Browse files
new documentation
parent
0e3f8639
Changes
5
Expand all
Hide whitespace changes
Inline
Side-by-side
documentation/unified-doc/gdl-documentation.log
deleted
100644 → 0
View file @
0e3f8639
This diff is collapsed.
Click to expand it.
documentation/unified-doc/gdl-documentation.pdf
0 → 100644
View file @
4cd70baf
File added
documentation/unified-doc/gdl-documentation.texi
View file @
4cd70baf
...
...
@@ -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
documentation/unified-doc/yadd-auto-doc.lisp
View file @
4cd70baf
(
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
)
...
...
documentation/unified-doc/yadd/gdl/base-rule-object.texi
View file @
4cd70baf
...
...
@@ -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}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment