Gets vertical skylines from grob stencils

scm/lily.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 271 matching lines @@
     (coverage:enable))
 
 (define-public parser #f)
 
 (define music-string-to-path-backends
   '(svg))
 
 (if (memq (ly:get-option 'backend) music-string-to-path-backends)
     (ly:set-option 'music-strings-to-paths #t))
 
-
 (define-public (ly:load x)
   (let* ((file-name (%search-load-path x)))
     (ly:debug "[~A" file-name)
     (if (not file-name)
         (ly:error (_ "cannot find: ~A") x))
     (primitive-load-path file-name)  ;; to support Guile V2 autocompile
     ;; TODO: Any chance to use ly:debug here? Need to extend it to prevent
     ;;       a newline in this case
     (if (ly:get-option 'verbose)
         (ly:progress "]\n"))))
@@ skipping 73 matching lines @@
 ;;  - Main body of files to be loaded
 (define init-scheme-files-body
   '("file-cache.scm"
     "define-event-classes.scm"
     "define-music-callbacks.scm"
     "define-music-types.scm"
     "define-note-names.scm"
     "c++.scm"
     "chord-entry.scm"
     "stencil.scm"
-    "stencil-integral.scm"
     "define-markup-commands.scm"
     "markup.scm"
     "modal-transforms.scm"
     "chord-generic-names.scm"
     "chord-ignatzek-names.scm"
     "music-functions.scm"
     "part-combiner.scm"
     "autochange.scm"
     "define-music-properties.scm"
     "time-signature-settings.scm"
     "auto-beam.scm"
     "chord-name.scm"
     "bezier-tools.scm"
     "ly-syntax-constructors.scm"
 
     "define-context-properties.scm"
     "translation-functions.scm"
     "script.scm"
     "midi.scm"
     "layout-beam.scm"
     "parser-clef.scm"
     "layout-slur.scm"
     "font.scm"
     "encoding.scm"
 
+    "bar-line.scm"
     "flag-styles.scm"
     "fret-diagrams.scm"
     "tablature.scm"
     "harp-pedals.scm"
     "define-woodwind-diagrams.scm"
     "display-woodwind-diagrams.scm"
     "predefined-fretboards.scm"
     "define-grob-properties.scm"
     "define-grobs.scm"
     "define-grob-interfaces.scm"
@@ skipping 82 matching lines @@
     (,number-or-string? . "number or string")
     (,number-pair? . "pair of numbers")
     (,rhythmic-location? . "rhythmic location")
     (,scheme? . "any type")
     (,string-or-pair? . "string or pair")
     (,string-or-symbol? . "string or symbol")
     (,void? . "void")
     ))
 
 (define-public lilypond-exported-predicates
-  `((,ly:box? . "box")
+  `((,ly:book? . "book")
+    (,ly:box? . "box")
     (,ly:context? . "context")
+    (,ly:context-def? . "context definition")
     (,ly:context-mod? . "context modification")
     (,ly:dimension? . "dimension, in staff space")
     (,ly:dir? . "direction")
     (,ly:dispatcher? . "dispatcher")
     (,ly:duration? . "duration")
     (,ly:event? . "post event")
     (,ly:font-metric? . "font metric")
     (,ly:grob? . "graphical (layout) object")
     (,ly:grob-array? . "array of grobs")
     (,ly:input-location? . "input location")
@@ skipping 62 matching lines @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; debug memory leaks
 
 (define gc-dumping
   #f)
 
 (define gc-protect-stat-count
   0)
 
+;; Undead objects that should be ignored after the first time round
+(define gc-zombies
+  (make-weak-key-hash-table 0))
+
 (define-public (dump-live-object-stats outfile)
   (for-each (lambda (x)
               (format outfile "~a: ~a\n" (car x) (cdr x)))
             (sort (gc-live-object-stats)
                   (lambda (x y)
                     (string<? (car x) (car y))))))
 
 (define-public (dump-gc-protects)
   (set! gc-protect-stat-count (1+ gc-protect-stat-count))
   (let* ((protects (sort (hash-table->alist (ly:protects))
@@ skipping 26 matching lines @@
     (if (defined? 'gc-live-object-stats)
         (let* ((stats #f))
           (ly:progress "Live object statistics: GC'ing\n")
           (ly:reset-all-fonts)
           (gc)
           (gc)
           (ly:progress "Asserting dead objects\n")
           (ly:set-option 'debug-gc-assert-parsed-dead #t)
           (gc)
           (ly:set-option 'debug-gc-assert-parsed-dead #f)
+          (for-each
+           (lambda (x)
+             (if (not (hashq-ref gc-zombies x))
+                 (begin
+                   (ly:programming-error "Parsed object should be dead: ~a" x)
+                   (hashq-set! gc-zombies x #t))))
+           (ly:parsed-undead-list!))
           (set! stats (gc-live-object-stats))
           (ly:progress "Dumping live object statistics.\n")
           (dump-live-object-stats outfile)))
     (newline outfile)
     (let* ((stats (gc-stats)))
       (for-each (lambda (sym)
                   (format outfile "~a ~a ~a\n"
                           gc-protect-stat-count
                           sym
                           (assoc-get sym stats "?")))
@@ skipping 170 matching lines @@
              (dump-profile x start-measurements (profile-measurements)))
          (if (ly:get-option 'trace-memory-frequency)
              (begin (mtrace:stop-trace)
                     (mtrace:dump-results base)))
          (for-each (lambda (s)
                      (ly:set-option (car s) (cdr s)))
                    all-settings)
          (ly:set-option 'debug-gc-assert-parsed-dead #t)
          (gc)
          (ly:set-option 'debug-gc-assert-parsed-dead #f)
+         (for-each
+          (lambda (x)
+            (ly:programming-error "Parsed object should be dead: ~a" x))
+          (ly:parsed-undead-list!))
          (if (ly:get-option 'debug-gc)
              (dump-gc-protects)
              (ly:reset-all-fonts))
          (flush-all-ports)))
      files)
 
     ;; Ensure a notice re failed files is written to aggregate logfile.
     (if ping-log
         (format ping-log "Failed files: ~a\n" failed))
     (if (ly:get-option 'dump-profile)
         (dump-profile "lily-run-total" '(0 0) (profile-measurements)))
     failed))
+
+(define-public lilypond-declarations '())
 
 (define (lilypond-file handler file-name)
   (catch 'ly-file-failed
          (lambda () (ly:parse-file file-name))
          (lambda (x . args) (handler x file-name))))
 
 (use-modules (scm editor))
 
 (define-public (gui-main files)
   (if (null? files)
@@ skipping 17 matching lines @@
             (ly:exit 0 #f)))))
 
 (define (gui-no-files-handler)
   (let* ((ly (string-append (ly:effective-prefix) "/ly/"))
          ;; FIXME: soft-code, localize
          (welcome-ly (string-append ly "Welcome_to_LilyPond.ly"))
          (cmd (get-editor-command welcome-ly 0 0 0)))
     (ly:message (_ "Invoking `~a'...\n") cmd)
     (system cmd)
     (ly:exit 1 #f)))