* 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

diff --git a/ChangeLog b/ChangeLog
index f91581a81479267815947683ed53b500f0995fbe..40b8ce5269f57f80f84425ebb3b87bf40f2b4727 100644 (file)
--- 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 2506689861d6189c308d184375b714c862ecdce7..8e828f3b95fd0ac42c7deb20dd3349691b61de01 100644 (file)
--- 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 6b13e72d049bb388d6b624ce4ba1749b9993f75e..c08e5ecc855f41bb26216e32731a4e8a18860dcc 100644 (file)
--- 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)))))
+