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

[Places] places enabled builds now use places to build collects

Browse Source
This commit is contained in:
Kevin Tew 2011-03-14 11:46:50 -06:00
parent 991745108c
commit 867ae7fd8b
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/setup/parallel-build.rkt
View File

@ -8,7 +8,9 @@
setup/parallel-do setup/parallel-do
racket/class racket/class
racket/future racket/future
compiler/find-exe) compiler/find-exe
racket/place
(for-syntax racket/base))
(provide parallel-compile (provide parallel-compile
parallel-compile-files) parallel-compile-files)
@ -202,17 +204,11 @@
(define (parallel-compile worker-count setup-fprintf append-error collects-tree) (define (parallel-compile worker-count setup-fprintf append-error collects-tree)
(setup-fprintf (current-output-port) #f "--- parallel build using ~a processor cores ---" worker-count) (setup-fprintf (current-output-port) #f "--- parallel build using ~a processor cores ---" worker-count)
(parallel-do-event-loop #f (define collects-queue (make-object CollectsQueue% collects-tree setup-fprintf append-error))
values ; identity function (if (place-enabled?)
(build-parallel-build-worker-args) (places-parallel-build collects-queue worker-count 999999999)
(make-object CollectsQueue% collects-tree setup-fprintf append-error) (parallel-do-event-loop #f values (build-parallel-build-worker-args) collects-queue worker-count 999999999)))
worker-count 999999999)
#;
(places-parallel-build (make-object CollectsQueue% collects-tree setup-fprintf append-error) worker-count 999999999))
#|
(require racket/place)
(require (for-syntax racket/base))
(define-syntax-rule (define-syntax-case (N a ...) b ...) (define-syntax-rule (define-syntax-case (N a ...) b ...)
(define-syntax (N stx) (define-syntax (N stx)
(syntax-case stx () (syntax-case stx ()
@ -310,4 +306,3 @@
(for ([p workers]) (wrkr/send p (list 'DIE))) (for ([p workers]) (wrkr/send p (list 'DIE)))
(for ([p ps]) (place-wait p))) (for ([p ps]) (place-wait p)))
|#