From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 27 May 2006 01:13:06 +0000 (+0000)
Subject: * scm/framework-eps.scm (output-classic-framework): only dump if
X-Git-Tag: release/2.9.7~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=db911e179d4a1b2fed38771e851fcedc71b45921;p=lilypond.git

* 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 2aaa733ddf..e79f324ba0 100644
--- 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 18464278dd..13874d2af7 100644
--- 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 292a5a9056..d3cc27af55 100644
--- 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