From 2cbcbf648d871418f90d823d051a9785a74eb10e Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 28 May 2006 23:26:59 +0000
Subject: [PATCH] * scm/stencil.scm (write-system-signature): better escaping.
 only write signature for music systems, not for markup systems.

* GNUmakefile.in: create web-signature-root/ too
---
 ChangeLog       |  1 +
 GNUmakefile.in  |  1 +
 scm/stencil.scm | 16 ++++++++++------
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f91581a814..40b8ce5269 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-05-29  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
 	* scm/stencil.scm (write-system-signature): better escaping.
+	only write signature for music systems, not for markup systems.
 
 	* scm/framework-ps.scm (output-framework): dump-signatures support
 	for plain output.
diff --git a/GNUmakefile.in b/GNUmakefile.in
index 2506689861..8e828f3b95 100644
--- a/GNUmakefile.in
+++ b/GNUmakefile.in
@@ -95,6 +95,7 @@ local-WWW-post:
 			rm -rf $$a ; \
 		done \
 	done
+	echo $(TOPLEVEL_VERSION) > $(outdir)/web-root/VERSION
 
 tree-prefix = $(outdir)
 tree-bin = $(tree-prefix)/bin
diff --git a/scm/stencil.scm b/scm/stencil.scm
index 6b13e72d04..c08e5ecc85 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -271,13 +271,14 @@ grestore
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; output signatures.
+
 (define-public (write-system-signatures basename paper-systems count)
   (if (pair? paper-systems)
       (begin
 	(let*
 	    ((outname (format "~a-~a.signature" basename count)) )
 	     
-	  (ly:message "writing ~a" outname)
+	  (ly:message "Writing ~a" outname)
 	  (write-system-signature outname (car paper-systems))
 	  (write-system-signatures basename (cdr paper-systems) (1+ count))))))
 
@@ -376,8 +377,11 @@ grestore
 
     (interpret expr))
 
-  (display (format "# Output signature\n# Generated by LilyPond ~a\n" (lilypond-version))
-	   output)
-  (interpret-for-signature found-grob (lambda (x) #f)
-			   (ly:stencil-expr
-			    (paper-system-stencil paper-system))))
+  (if (ly:grob? system-grob)
+      (begin
+	(display (format "# Output signature\n# Generated by LilyPond ~a\n" (lilypond-version))
+		 output)
+	(interpret-for-signature found-grob (lambda (x) #f)
+				 (ly:stencil-expr
+				  (paper-system-stencil paper-system)))))
+  
-- 
2.39.2