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

Log failed builds of texis

parent 6184aebe
...@@ -113,15 +113,25 @@ ...@@ -113,15 +113,25 @@
(print-columns dir-list length file)) (print-columns dir-list length file))
(format file "</body>~%"))) (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) (defun build-texis (path-to-texis texinfo-path)
(clean-directory "quickref") (clean-directory "quickref")
(let ((texis (get-texi-pathnames path-to-texis))) (let ((texis (get-texi-pathnames path-to-texis)))
(dolist (texi texis) (dolist (texi texis)
(sb-ext:run-program texinfo-path (let ((out (with-output-to-string (out)
(list "--html" (namestring texi) (sb-ext:run-program texinfo-path
"-o" (format nil "quickref/~A" (list "--html" (namestring texi)
(pathname-name texi)) "-o" (format nil "quickref/~A"
"--css-ref" "/document.css" (pathname-name texi))
"-c" "TOP_NODE_UP_URL=/" "--css-ref" "/document.css"
"--force") "-c" "TOP_NODE_UP_URL=/"
:output *standard-output*)))) "--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