suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

setup uses the pdflatex iterator from scribble/private/run-pdflatex

Browse Source 
svn: r13918
This commit is contained in:
Eli Barzilay 2009-03-03 17:38:46 +00:00
parent c802c34b9b
commit 098cad9135
2 changed files with 18 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/setup/scribble.ss
View File

@ -15,11 +15,13 @@
scribble/struct
scribble/basic
scribble/manual ; really shouldn't be here... see dynamic-require-doc
scribble/private/run-pdflatex
(prefix-in html: scribble/html-render)
(prefix-in latex: scribble/latex-render))
(provide setup-scribblings
verbose)
verbose
run-pdflatex)
(define verbose (make-parameter #t))
@ -691,4 +693,3 @@
(if (path? r)
(path->bytes r)
r)))

53
collects/setup/setup-unit.ss
View File

@ -776,17 +776,20 @@
(unless (file-exists? (build-path (collection-path "setup") "scribble.ss"))
(make-docs #f)))
(define (scr:call name . xs)
(parameterize ([current-namespace
(namespace-anchor->empty-namespace anchor)])
(apply (dynamic-require 'setup/scribble name) xs)))
(define (set-doc:verbose)
(parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)])
((dynamic-require 'setup/scribble 'verbose) (verbose))))
(scr:call 'verbose (verbose)))
(define (doc:setup-scribblings latex-dest auto-start-doc?)
(parameterize ([current-namespace (namespace-anchor->empty-namespace
anchor)])
((dynamic-require 'setup/scribble 'setup-scribblings)
(if no-specific-collections? #f (map cc-path ccs-to-compile))
latex-dest auto-start-doc? (make-user)
(lambda (what go alt) (record-error what "Building docs" go alt))
setup-printf)))
(scr:call 'setup-scribblings
(if no-specific-collections? #f (map cc-path ccs-to-compile))
latex-dest auto-start-doc? (make-user)
(lambda (what go alt) (record-error what "Building docs" go alt))
setup-printf))
(when (make-docs)
(setup-printf #f "--- building documentation ---")
@ -796,34 +799,6 @@
(setup-printf #f "docs failure: ~a" (exn->string exn)))])
(doc:setup-scribblings #f (not (null? (archives))))))
(define (render-pdf file)
(define cmd
(format "pdflatex -interaction=batchmode \"~a\" > /dev/null" file))
(define logfile (path-replace-suffix file #".log"))
(let loop ([n 0])
(when (= n 5)
(error 'render-pdf "didn't get a stable result after ~a runs" n))
(if (zero? n)
(setup-printf "running" "pdflatex on ~a" file)
(setup-printf #f " re-running ~a~a time"
(add1 n) (case (add1 n) [(2) 'nd] [(3) 'rd] [else 'th])))
(unless (system cmd)
(call-with-input-file logfile
(lambda (log) (copy-port log (current-error-port))))
(error 'setup-plt "pdflatex failed"))
;; see if we get a "Rerun" note, these seem to come in two flavors
;; * Label(s) may have changed. Rerun to get cross-references right.
;; * Package longtable Warning: Table widths have changed. Rerun LaTeX.
(cond
[(call-with-input-file logfile
(lambda (log) (regexp-match? #px#"changed\\.\\s+Rerun" log)))
(loop (add1 n))]
[(zero? n)
(setup-printf "WARNING"
"no \"Rerun\" found in first run of pdflatex for ~a"
file)]))
(path-replace-suffix file #".pdf"))
(when (doc-pdf-dest)
(setup-printf #f "building PDF documentation (via pdflatex)")
(let ([dest-dir (path->complete-path (doc-pdf-dest))])
@ -840,7 +815,9 @@
(parameterize ([current-directory tmp-dir])
(for ([f (directory-list)]
#:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))
(let* ([pdf (render-pdf f)]
(let* ([pdf (scr:call 'run-pdflatex f
(lambda (fmt . xs)
(apply setup-printf "pdflatex" fmt xs)))]
[target (build-path dest-dir pdf)])
(when (file-exists? target) (delete-file target))
(copy-file pdf target)))))