Commit af23d587 authored by Antoine Martin's avatar Antoine Martin
Browse files

Log failed builds of texis

parent 6184aebe
......@@ -113,15 +113,25 @@
(print-columns dir-list length file))
(format file "</body>~%")))
(defun log-texi-error (err texi)
(with-open-file (file (format nil "texi-logfiles/~A.logfile" (pathname-name texi))
:direction :input
:if-exists :supersede
:if-does-not-exist :create)
(format file err)))
(defun build-texis (path-to-texis texinfo-path)
(clean-directory "quickref")
(let ((texis (get-texi-pathnames path-to-texis)))
(dolist (texi texis)
(sb-ext:run-program texinfo-path
(list "--html" (namestring texi)
"-o" (format nil "quickref/~A"
(pathname-name texi))
"--css-ref" "/document.css"
"-c" "TOP_NODE_UP_URL=/"
"--force")
:output *standard-output*))))
(let ((out (with-output-to-string (out)
(sb-ext:run-program texinfo-path
(list "--html" (namestring texi)
"-o" (format nil "quickref/~A"
(pathname-name texi))
"--css-ref" "/document.css"
"-c" "TOP_NODE_UP_URL=/"
"--force")
:output out))))
(when (not (string= out ""))
(log-texi-error out texi))))))
Supports Markdown
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