* scm/framework-eps.scm (output-classic-framework): only dump if

dump-signatures is set.

* scm/lily.scm (define-scheme-options): add dump-signatures option.

diff --git a/ChangeLog b/ChangeLog
index 2aaa733ddf5b11cd2d4c1173bf33511815e6b37f..e79f324ba0513c5a109cc18638f1f64a6638f8c2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2006-05-27  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * scm/framework-eps.scm (output-classic-framework): only dump if
+       dump-signatures is set.
+
+       * scm/lily.scm (define-scheme-options): add dump-signatures option.
+
        * scm/stencil.scm (write-system-signature): new routine: write
        python parseable signature of a separate paper system.
 

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 18464278dd8ea6b7f673a4c9cf363b8ef580d483..13874d2af770bc6d4606c46a8de8fb535e556594 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -110,7 +110,8 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment."
 (define-public (output-classic-framework basename book scopes fields)
   (output-scopes scopes fields basename)
 
-  (write-system-signatures basename (ly:paper-book-systems book) 0)
+  (if (ly:get-option 'dump-signatures)
+      (write-system-signatures basename (ly:paper-book-systems book) 0))
   
   (dump-stencils-as-EPSes
    (map paper-system-stencil (ly:paper-book-systems book))

diff --git a/scm/lily.scm b/scm/lily.scm
index 292a5a90563cdefd9919fbb49c2fbe877a7cff02..d3cc27af551711f44edb4b8d4024c16ea78cc9c4 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -13,6 +13,7 @@
            `((point-and-click #t "use point & click")
              (paper-size "a4" "the default paper size")
              (midi-debug #f "generate human readable MIDI")
+             (dump-signatures #f "dump output signatures of each system (EPS backend)")
              (internal-type-checking #f "check every property assignment for types")
              (parse-protect #t    "continue when finding errors in inline
 scheme are caught in the parser. If off, halt 
@@ -41,8 +42,7 @@ similar to chord syntax")
                        "dump GC protection info")
              (show-available-fonts #f
                                    "List  font names available.")
-             )
-           ))
+             )))
 
 
 ;; need to do this in the beginning. Other parts of the