+% -*- Scheme -*-
+
\header {
- texidoc = "This file profiles property accesses; the log file shows the top properties examined."
+ texidoc = "This file profiles property accesses; the log file shows the top properties examined.
+Note: lilypond must be compiled with --disable-optimising for this file to work."
}
#(ly:set-option 'profile-property-accesses #t)
-\version "2.10.8"
+\version "2.16.0"
-\include "../../input/typography-demo.ly"
+\include "typography-demo.ly"
%\book { \score { {c4 } } }
-#(define (prop-stats>? x y) (> (cdr x) (cdr y)))
+#(define (prop-stats>? x y)
+ (cond
+ ((> (cdr x) (cdr y)) #t)
+ ((= (cdr x) (cdr y))
+ (symbol<? (car x) (car y)))
+ (else #f)))
-#(define (display-stats what hash)
+#(define (display-stats what)
(let*
((count 50)
- (rnd 10))
- (ly:progress "\n~A properties, top ~a rounded to ~a\n~a"
+ (rnd 10)
+ (round-to (lambda (x) (* rnd (inexact->exact (round (/ x rnd))))))
+ (alist (map (lambda (entry) (cons (car entry) (round-to (cdr entry)))) (hash-table->alist (ly:property-lookup-stats what))))
+ (total (apply + (map cdr alist)))
+ )
+
+ (set! alist (acons 'TOTAL total alist))
+
+ (ly:progress "\n\n~A properties, top ~a rounded to ~a\n\n~a"
what count rnd
(string-join
- (map (lambda (x) (format "~30a: ~6@a" (car x) (* rnd (inexact->exact (round (/ (cdr x) rnd))))))
- (take
- (sort (hash-table->alist hash) prop-stats>?) count))
+ (map (lambda (x) (format #f "~30a: ~6@a" (car x) (cdr x)))
+ (ly:truncate-list!
+ (sort alist prop-stats>?) count))
"\n"))))
-#(display-stats "Context" (ly:context-property-lookup-stats))
-
-#(display-stats "Grob" (ly:grob-property-lookup-stats))
+#(display-stats 'prob)
+#(display-stats 'context)
+#(display-stats 'grob)