From c2f07cdcb1aa36338ebe0b88f52bc042e95e31d4 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 19 Dec 2004 16:55:35 +0000
Subject: [PATCH] * scm/output-texstr.scm (placebox): add routine

* scm/framework-texstr.scm (output-framework): new file.

* scm/output-texstr.scm: new file. Collect (TEXT . ) calls for TeX
processing.
---
 ChangeLog                |  4 ++++
 scm/framework-texstr.scm | 34 ----------------------------------
 scm/output-texstr.scm    | 20 ++++++++++++--------
 3 files changed, 16 insertions(+), 42 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ec008cbe1a..87c48b2dc1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-12-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/output-texstr.scm (placebox): add routine
+
+	* VERSION (PACKAGE_NAME): release 2.5.4
+
 	* scm/framework-texstr.scm (output-framework): new file.  
 
 	* scm/output-texstr.scm: new file. Collect (TEXT . ) calls for TeX
diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 2c6a25f8b7..e021f471ef 100644
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -16,50 +16,16 @@
 	     (srfi srfi-13)
 	     (lily))
 
-(define (dump-page putter page last? with-extents?)
-  (ly:outputter-dump-string
-   putter
-   (format "\\lybox{~a}{~a}{%\n"
-	   (if with-extents?
-	       (interval-start (ly:stencil-extent page X))
-	       0.0)
-	   (if with-extents?
-	       (- (interval-start (ly:stencil-extent page Y)))
-	       0.0)))
-  (ly:outputter-dump-string
-   putter
-   (if last?
-       "}%\n\\vfill\n"
-       "}%\n\\vfill\n\\lilypondpagebreak\n")))
 
 (define-public (output-framework outputter book scopes fields basename )
   (let* ((paper (ly:paper-book-paper book))
 	 (pages (ly:paper-book-pages book))
 	 )
-    (for-each
-     (lambda (x)
-       (ly:outputter-dump-string outputter x))
-     (list))
     (for-each
      (lambda (page)
        (ly:outputter-dump-stencil outputter page))
      pages)))
 
-(define (dump-line putter line last?)
-  (ly:outputter-dump-string
-   putter
-   (format "\\lybox{~a}{~a}{%\n"
-	   (ly:number->string
-	    (max 0 (interval-end (ly:paper-system-extent line X))))
-	   (ly:number->string
-	    (interval-length (ly:paper-system-extent line Y)))))
-
-  (ly:outputter-dump-stencil putter (ly:paper-system-stencil line))
-  (ly:outputter-dump-string
-   putter
-   (if last?
-       "}%\n"
-       "}\\interscoreline\n")))
 
 
 (define-public (convert-to-ps . args) #t)
diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm
index ffcf1797f1..54fd4f067e 100644
--- a/scm/output-texstr.scm
+++ b/scm/output-texstr.scm
@@ -10,19 +10,23 @@
 
 
 (define (dummy . foo) #f)
-(map (lambda (x) (module-define! this-module x dummy))
-     (append
-      (ly:all-stencil-expressions)
-      (ly:all-output-backend-commands)))
 
+(map (lambda (x) (module-define! this-module x dummy))
+     (ly:all-stencil-expressions))
 
+(define-public (grob-cause . x) "")
+(define-public (no-origin . x) "")
+(define-public (placebox
+		x y what)
+  (if (string? what)
+      what
+      ""))
+  
 (define-public (text font s)
   (call-with-output-string
    (lambda (port)
      (write (list
-	     "HOI"
 	     (ly:font-file-name font)
 	     (ly:font-magnification font)
-	     s
-	     ) port))))
-
+	     s) port)
+     (newline port))))
-- 
2.39.5