Commit 43357eba authored by Nick Matvyeyev's avatar Nick Matvyeyev
Browse files

13 авг 2021 г. 4:04:09

parent c6758f14
......@@ -3,14 +3,14 @@
:systems (:MNAS-STRING :MNAS-STRING/DOCS)
:documents ((:title "Mnas-String"
:authors ("Nick Matvyeyev")
:output-format (:type :multi-html :template :minima)
:sources ("mnas-string.scr" "mnas-string-db.scr"
"mnas-string-docs.scr" "mnas-string-parse.scr"
"mnas-string-print.scr" "mnas-string-translit.scr"
"tmp.scr" "mnas-string-graph.scr"
"mnas-string-db-graph.scr"
"mnas-string-docs-graph.scr"
:output-format (:TYPE :MULTI-HTML :TEMPLATE :MINIMA)
:sources ("tmp.scr" "mnas-string.scr"
"mnas-string-translit.scr" "mnas-string-print.scr"
"mnas-string-parse.scr" "mnas-string-docs.scr"
"mnas-string-db.scr" "mnas-string-graph.scr"
"mnas-string-parse-graph.scr"
"mnas-string-print-graph.scr"
"mnas-string-translit-graph.scr")
"mnas-string-translit-graph.scr"
"mnas-string-db-graph.scr"
"mnas-string-docs-graph.scr")
)))
\ No newline at end of file
......@@ -11,17 +11,21 @@
Пакет @b(mnas-string/translit) экспортирует следующие хеш-таблицы
преобразования:
@begin(list)
@item(*cir-gr->en* - преобразование кириллических и греческих символов
в латинские;)
@item(*cir-gr->en* - преобразование кириллических и греческих
символов в латинские;)
@item(*space-cir-gr->en* - преобразование кириллических и греческих
символов в латинские, такое что результат
мог использоваться в качестве символа
Common Lisp.)
символов в латинские, такое что результат мог использоваться в
качестве символа Common Lisp.)
@item(*cfx->en* - преобразование кириллических и греческих и
символов, запрещенных в пакете ANSYS CFX, в английские символы
разрешенніе в пакете CFX.)
@end(list)
@begin(section)
@title(Переменные)
@cl:with-package[name="MNAS-STRING/TRANSLIT"](
@cl:doc(variable *cfx->en*)
@cl:doc(variable *cir-gr->en*)
@cl:doc(variable *space-cir-gr->en*))
@end(section)
......
......@@ -31,7 +31,12 @@
)
:do (mnas-package:make-codex-graphs i i)))
(defun make-all ()
(defun make-all (&aux
(of (if (find (uiop:hostname)
mnas-package:*intranet-hosts*
:test #'string=)
'(:type :multi-html :template :gamma)
'(:type :multi-html :template :minima))))
"@b(Описание:) функция @b(make-all) служит для создания документации.
Пакет документации формируется в каталоге
......@@ -43,8 +48,11 @@
'(:mnas-string :mnas-string/docs)
"Mnas-String"
'("Nick Matvyeyev")
(mnas-package:find-sources "mnas-string"))
(mnas-package:find-sources "mnas-string")
:output-format of)
(codex:document :mnas-string)
(make-graphs))
(make-graphs)
(mnas-package:copy-doc->public-html "mnas-string")
(mnas-package:rsync-doc "mnas-string"))
;;;; (make-all)
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