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

more convenient use of doc:verbose and doc:setup-scribblings

Browse Source 
svn: r11054
This commit is contained in:
Eli Barzilay 2008-08-03 21:51:39 +00:00
parent a0fd33678f
commit 15b586c6ed
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -793,26 +793,25 @@
(unless (file-exists? (build-path (collection-path "setup") "scribble.ss")) (unless (file-exists? (build-path (collection-path "setup") "scribble.ss"))
(make-docs #f))) (make-docs #f)))
(define (doc:verbose) (define (set-doc:verbose)
(parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)]) (parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)])
(dynamic-require 'setup/scribble 'verbose))) ((dynamic-require 'setup/scribble 'verbose) (verbose))))
(define (doc:setup-scribblings) (define (doc:setup-scribblings latex-dest auto-start-doc?)
(parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)]) (parameterize ([current-namespace (namespace-anchor->empty-namespace
(dynamic-require 'setup/scribble 'setup-scribblings))) 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)))
(when (make-docs) (when (make-docs)
(setup-printf #f "--- building documentation ---") (setup-printf #f "--- building documentation ---")
((doc:verbose) (verbose)) (set-doc:verbose)
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
(lambda (exn) (lambda (exn)
(setup-printf #f "docs failure: ~a" (exn->string exn)))]) (setup-printf #f "docs failure: ~a" (exn->string exn)))])
((doc:setup-scribblings) (doc:setup-scribblings #f (not (null? (archives))))))
(if no-specific-collections? #f (map cc-path ccs-to-compile))
#f
(not (null? (archives)))
(make-user)
(lambda (what go alt) (record-error what "Building docs" go alt))
setup-printf)))
(define (render-pdf file) (define (render-pdf file)
(define cmd (define cmd
@ -853,15 +852,8 @@
void void
(lambda () (lambda ()
(make-directory tmp-dir) (make-directory tmp-dir)
((doc:verbose) (verbose)) (set-doc:verbose)
((doc:setup-scribblings) (doc:setup-scribblings tmp-dir #f)
(if no-specific-collections? #f (map cc-path ccs-to-compile))
tmp-dir
#f
(make-user)
(lambda (what go alt)
(record-error what "Building pdf docs" go alt))
setup-printf)
(parameterize ([current-directory tmp-dir]) (parameterize ([current-directory tmp-dir])
(for ([f (directory-list)] (for ([f (directory-list)]
#:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f))) #:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))