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

adjust the way drracket's parallel startup compilation mode works

Browse Source
This commit is contained in:
Robby Findler 2011-02-08 15:37:28 -06:00
parent 8d2d995ebc
commit 994624b794
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/drracket/drracket.rkt
View File

@ -70,7 +70,10 @@
(flprintf "PLTDRPAR: loading compilation manager\n")
(define (files-in-coll coll)
(define dir (collection-path coll))
(map (λ (x) (build-path dir x)) (directory-list dir)))
(map (λ (x) (build-path dir x))
(filter
(λ (x) (regexp-match #rx"rkt$" (path->string x)))
(directory-list dir))))
(define-values (make-compilation-manager-load/use-compiled-handler manager-trace-handler)
(parameterize ([current-namespace (make-base-empty-namespace)])
(values
@ -84,7 +87,16 @@
(parameterize ([current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)])
(dynamic-require 'setup/parallel-build 'parallel-compile-files)))
(flprintf "PLTDRPAR: parallel compile of framework & drracket\n")
(parallel-compile-files (append (files-in-coll "drracket") (files-in-coll "framework")))
(parallel-compile-files (append (files-in-coll "drracket") (files-in-coll "framework"))
#:handler
(λ (handler-type path msg out err)
(case handler-type
[(done) (void)]
[else
(printf "msg: ~s\n" msg)
(printf "stdout from compiling ~a:\n~a\n" path out)
(flush-output)
(fprintf (current-error-port) "stderr from compiling ~a:\n~a\n" path err)])))
(flprintf "PLTDRPAR: installing compilation manager\n")
(current-load/use-compiled (make-compilation-manager-load/use-compiled-handler))])