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

added logging for when CM compiles a file

Browse Source 
svn: r15640
This commit is contained in:
Robby Findler 2009-07-30 15:51:16 +00:00
parent b5b32d1d8e
commit 1fc47a2a1f
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/compiler/cm.ss
View File

@ -201,6 +201,8 @@
(verify-times path zo-name) (verify-times path zo-name)
(write-deps code mode path external-deps))))) (write-deps code mode path external-deps)))))
(define depth (make-parameter 0))
(define (compile-zo mode path read-src-syntax) (define (compile-zo mode path read-src-syntax)
((manager-compile-notify-handler) path) ((manager-compile-notify-handler) path)
(trace-printf "compiling: ~a" path) (trace-printf "compiling: ~a" path)
@ -210,14 +212,20 @@
(if (and zo-exists? (trust-existing-zos)) (if (and zo-exists? (trust-existing-zos))
(touch zo-name) (touch zo-name)
(begin (when zo-exists? (delete-file zo-name)) (begin (when zo-exists? (delete-file zo-name))
(with-handlers (log-info (format "cm: ~acompiling ~a"
([exn:get-module-code? (build-string
(lambda (ex) (depth)
(compilation-failure mode path zo-name (λ (x) (if (= 2 (modulo x 3)) #\| #\space)))
(exn:get-module-code-path ex) path))
(exn-message ex)) (parameterize ([depth (+ (depth) 1)])
(raise ex))]) (with-handlers
(compile-zo* mode path read-src-syntax zo-name)))))) ([exn:get-module-code?
(lambda (ex)
(compilation-failure mode path zo-name
(exn:get-module-code-path ex)
(exn-message ex))
(raise ex))])
(compile-zo* mode path read-src-syntax zo-name)))))))
(trace-printf "end compile: ~a" path)) (trace-printf "end compile: ~a" path))
(define (get-compiled-time mode path) (define (get-compiled-time mode path)