* 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.

diff --git a/ChangeLog b/ChangeLog
index ec008cbe1a690b50f717c8c1636647df00edd8d0..87c48b2dc16c841ea0cbb87dcce0a60c76261525 100644 (file)
--- 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 2c6a25f8b7220b453c37958c4ba3deca94f22728..e021f471ef022ff59223ecb3d1dfce5311c03660 100644 (file)
--- 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 ffcf1797f16528b5ffeab6bf13cbf94a6350ea9e..54fd4f067e9ed102ff3d9bc5a019ab6f83cf6acc 100644 (file)
--- 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))))