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)
(write-deps code mode path external-deps)))))
(define depth (make-parameter 0))
(define (compile-zo mode path read-src-syntax)
((manager-compile-notify-handler) path)
(trace-printf "compiling: ~a" path)
@ -210,14 +212,20 @@
(if (and zo-exists? (trust-existing-zos))
(touch zo-name)
(begin (when zo-exists? (delete-file zo-name))
(with-handlers
([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))))))
(log-info (format "cm: ~acompiling ~a"
(build-string
(depth)
(λ (x) (if (= 2 (modulo x 3)) #\| #\space)))
path))
(parameterize ([depth (+ (depth) 1)])
(with-handlers
([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))
(define (get-compiled-time mode path)