Commit f4f63979 authored by privet-kitty's avatar privet-kitty Committed by Francois-Rene Rideau

Some aesthetical changes in UIOP's manual generation

parent d882f973
...@@ -22,17 +22,22 @@ clean-crap: ...@@ -22,17 +22,22 @@ clean-crap:
rm -f *.aux *.cp *.fn *.fns *.ky *.log *.pg *.toc *.tp *.tps *.vr rm -f *.aux *.cp *.fn *.fns *.ky *.log *.pg *.toc *.tp *.tps *.vr
clean: clean-include clean: clean-include
rm -rf *.pdf *.html *.info ${uiop}.texinfo ${uiop} rm -rf *.pdf *.html *.info ${uiop}.texinfo ${uiop} *.fasl
include: fasl: docstrings.lisp
sbcl --no-userinit --eval '(require :asdf)' \ sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings.lisp \ --eval '(compile-file "docstrings.lisp")' \
--eval '(quit)'
include: fasl
sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings \
--eval '(sb-texinfo:generate-includes "include/" (list :UIOP/PACKAGE :UIOP/COMMON-LISP :UIOP/UTILITY :UIOP/VERSION :UIOP/OS :UIOP/PATHNAME :UIOP/FILESYSTEM :UIOP/STREAM :UIOP/IMAGE :UIOP/LISP-BUILD :UIOP/LAUNCH-PROGRAM :UIOP/RUN-PROGRAM :UIOP/CONFIGURATION :UIOP/BACKWARD-DRIVER))' \ --eval '(sb-texinfo:generate-includes "include/" (list :UIOP/PACKAGE :UIOP/COMMON-LISP :UIOP/UTILITY :UIOP/VERSION :UIOP/OS :UIOP/PATHNAME :UIOP/FILESYSTEM :UIOP/STREAM :UIOP/IMAGE :UIOP/LISP-BUILD :UIOP/LAUNCH-PROGRAM :UIOP/RUN-PROGRAM :UIOP/CONFIGURATION :UIOP/BACKWARD-DRIVER))' \
--eval '(quit)' --eval '(quit)'
texinfo : include texinfo : include
sbcl --no-userinit --eval '(require :asdf)' \ sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings.lisp \ --load docstrings \
--eval "(sb-texinfo:complete-texinfo-template \"template.texinfo\" \"${uiop}.texinfo\" \"include/\")" \ --eval "(sb-texinfo:complete-texinfo-template \"template.texinfo\" \"${uiop}.texinfo\" \"include/\")" \
--eval '(quit)' --eval '(quit)'
......
...@@ -88,7 +88,7 @@ you deserve to lose.") ...@@ -88,7 +88,7 @@ you deserve to lose.")
(defparameter *symbol-characters* "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*:-+&#" (defparameter *symbol-characters* "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*:-+&#"
"List of characters that make up symbols in a docstring.") "List of characters that make up symbols in a docstring.")
(defparameter *symbol-delimiters* " ,.!?;()'") (defparameter *symbol-delimiters* " ,.!?;()'\"")
(defparameter *ordered-documentation-kinds* (defparameter *ordered-documentation-kinds*
'(package type structure condition class macro)) '(package type structure condition class macro))
...@@ -440,7 +440,7 @@ with #\@. Optionally downcase the result." ...@@ -440,7 +440,7 @@ with #\@. Optionally downcase the result."
;;; line markups ;;; line markups
(defvar *not-symbols* '("ANSI" "CLHS" "OS" "CL" "CR" "LF" "CRLF" "CR+LF" "GCL" "MCL" "ABCL" "CCL" "CMUCL" "CLASP" "CLISP" "ECL" "MKCL" "SBCL" "SCL" "XCL")) (defvar *not-symbols* '("ANSI" "CLHS" "ASDF" "DSL" "OS" "CL" "CR" "LF" "CRLF" "CR+LF" "CPU" "FASL" "POSIX" "GCL" "MCL" "ABCL" "CCL" "CMUCL" "CLASP" "CLISP" "ECL" "MKCL" "SBCL" "SCL" "XCL"))
(defun locate-symbols (line) (defun locate-symbols (line)
"Return a list of index pairs of symbol-like parts of LINE." "Return a list of index pairs of symbol-like parts of LINE."
......
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