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

Use worker-count for doc build

Browse Source
This commit is contained in:
Kevin Tew 2011-01-11 11:57:08 -07:00
parent 1b0fdfd0a9
commit 264e7f2c15
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/setup/parallel-do.rkt
View File

@ -227,7 +227,7 @@
(define-syntax (parallel-do stx) (define-syntax (parallel-do stx)
(syntax-case stx () (syntax-case stx ()
[(_ initalmsg list-of-work create-job-thunk job-success-thunk job-failure-thunk workerthunk) [(_ worker-count initalmsg list-of-work create-job-thunk job-success-thunk job-failure-thunk workerthunk)
(begin (begin
(define (gen-parallel-do-event-loop-syntax cmdline initial-stdin-data) (define (gen-parallel-do-event-loop-syntax cmdline initial-stdin-data)
(with-syntax ([cmdline cmdline] (with-syntax ([cmdline cmdline]
@ -236,7 +236,7 @@
;(printf "CMDLINE ~v\n" cmdline) ;(printf "CMDLINE ~v\n" cmdline)
;(printf "INITIALTHUNK ~v\n" initial-stdin-data) ;(printf "INITIALTHUNK ~v\n" initial-stdin-data)
(let ([jobqueue (make-list-queue list-of-work null create-job-thunk job-success-thunk job-failure-thunk)]) (let ([jobqueue (make-list-queue list-of-work null create-job-thunk job-success-thunk job-failure-thunk)])
(parallel-do-event-loop initial-stdin-data initalmsg cmdline jobqueue (processor-count) 999999999) (parallel-do-event-loop initial-stdin-data initalmsg cmdline jobqueue worker-count 999999999)
(reverse (list-queue-results jobqueue)))))) (reverse (list-queue-results jobqueue))))))
(define (gen-dynamic-require-current-module funcname) (define (gen-dynamic-require-current-module funcname)
(with-syntax ([funcname funcname]) (with-syntax ([funcname funcname])

2
collects/setup/scribble.rkt
View File

@ -134,6 +134,7 @@
(if (not (worker-count . > . 1)) (if (not (worker-count . > . 1))
(map (get-doc-info only-dirs latex-dest auto-main? auto-user? with-record-error setup-printf) docs) (map (get-doc-info only-dirs latex-dest auto-main? auto-user? with-record-error setup-printf) docs)
(parallel-do (parallel-do
worker-count
(lambda (workerid) (list workerid program-name (verbose) only-dirs latex-dest auto-main? auto-user?)) (lambda (workerid) (list workerid program-name (verbose) only-dirs latex-dest auto-main? auto-user?))
docs docs
(lambda (x) (s-exp->fasl (serialize x))) (lambda (x) (s-exp->fasl (serialize x)))
@ -315,6 +316,7 @@
(say-rendering i) (say-rendering i)
(update-info i (build-again! latex-dest i with-record-error))) need-rerun) (update-info i (build-again! latex-dest i with-record-error))) need-rerun)
(parallel-do (parallel-do
worker-count
(lambda (workerid) (list workerid (verbose) latex-dest)) (lambda (workerid) (list workerid (verbose) latex-dest))
need-rerun need-rerun
(lambda (i) (lambda (i)