From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 4 Jan 2007 17:38:32 +0000 (+0100)
Subject: also dump total profiling information.
X-Git-Tag: release/2.11.9-1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ecb906fdc3b6ffb2890d69b397c71f08973e4cec;p=lilypond.git

also dump total profiling information.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index d7233471aa..0d734222b2 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -377,9 +377,9 @@ The syntax is the same as `define*-public'."
      
      )))
 
-(define (dump-profile name last this)
+(define (dump-profile base last this)
   (let*
-      ((outname (format "~a.profile" (basename name ".ly")))
+      ((outname (format "~a.profile" (basename base ".ly")))
        (diff (map (lambda (y) (apply - y)) (zip this last))))
     
     (ly:progress "\nWriting timing to ~a..." outname)
@@ -623,7 +623,9 @@ The syntax is the same as `define*-public'."
 	 (if (string-or-symbol? (ly:get-option 'log-file))
 	     (format "~a.log" (ly:get-option 'log-file))
 	     "/dev/tty") "a"))
-	 
+
+    (if (ly:get-option 'dump-profile)
+	(dump-profile "lily-run-total" '(0 0) (profile-measurements)))
 
     failed))