latest update for translations.

[lilypond.git] / scm / framework-texstr.scm

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 1b6f4c14d77025baebe6a25397ad7a2ed2ec08cd..df677004e8b8662babbeaa8a98f48209f0e286d3 100644 (file)
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c)  2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 (define-module (scm framework-texstr)
   #:export (output-framework-tex       
@@ -16,13 +16,12 @@
             (srfi srfi-13)
             (lily))
 
-
 (define (header filename)
   (format  "% header
 \\input{lilypond-tex-metrics}
 \\documentclass{article}
 \\lilyglobalscale{1.0}
-\\lilymetricsfile{~a.lpm}
+\\lilymetricsfile{~a.textmetrics}
 \\begin{document}
 " filename))
 
@@ -31,11 +30,23 @@
 \\end{document}
 ")
 
+(define-public (output-classic-framework basename book scopes fields)
+  (let* ((filename (format "~a.texstr" basename))
+        (outputter (ly:make-paper-outputter filename (ly:output-backend)))
+        (paper (ly:paper-book-paper book))
+        (lines (ly:paper-book-systems book)))
+    (ly:outputter-dump-string outputter (header basename))
+    (for-each
+     (lambda (system)
+       (ly:outputter-dump-stencil outputter (ly:paper-system-stencil system)))
+     lines)
+    (ly:outputter-dump-string outputter (footer))))
 
-(define-public (output-framework outputter book scopes fields basename )
-  (let* ((paper (ly:paper-book-paper book))
-        (pages (ly:paper-book-pages book))
-        )
+(define-public (output-framework basename book scopes fields )
+  (let* ((filename (format "~a.texstr" basename))
+        (outputter (ly:make-paper-outputter filename (ly:output-backend)))
+        (paper (ly:paper-book-paper book))
+        (pages (ly:paper-book-pages book)))
     (ly:outputter-dump-string outputter (header basename))
     (for-each
      (lambda (page)
@@ -43,8 +54,6 @@
      pages)
     (ly:outputter-dump-string outputter (footer))))
 
-
-
 (define-public (convert-to-ps . args) #t)
 (define-public (convert-to-pdf . args) #t)
 (define-public (convert-to-png . args) #t)