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

show a setup-plt line for each run of pdflatex

Browse Source 
svn: r8219
This commit is contained in:
Eli Barzilay 2008-01-05 00:11:55 +00:00
parent 16797b4922
commit 0c6b19a795
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -849,10 +849,12 @@
tmp-dir) tmp-dir)
(parameterize ([current-directory tmp-dir]) (parameterize ([current-directory tmp-dir])
(for-each (lambda (f) (for-each (lambda (f)
(define cmd (format "pdflatex \"~a\"" f))
(when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)) (when (regexp-match? #rx#"[.]tex$" (path-element->bytes f))
(let loop ([n 3]) (let loop ([n 3])
(unless (zero? n) (unless (zero? n)
(unless (system (format "pdflatex ~a" f)) (setup-printf "running ~a" cmd)
(unless (system cmd)
(error 'setup-plt "pdflatex failed")) (error 'setup-plt "pdflatex failed"))
(loop (sub1 n)))) (loop (sub1 n))))
(let* ([f (path-replace-suffix f #".pdf")] (let* ([f (path-replace-suffix f #".pdf")]