From 994624b79450fababe8f4918645308eb1546aca7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 8 Feb 2011 15:37:28 -0600 Subject: [PATCH] adjust the way drracket's parallel startup compilation mode works --- collects/drracket/drracket.rkt | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/collects/drracket/drracket.rkt b/collects/drracket/drracket.rkt index 22c195b306..1515019ece 100644 --- a/collects/drracket/drracket.rkt +++ b/collects/drracket/drracket.rkt @@ -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))])