From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 17 Dec 2004 14:19:23 +0000 (+0000)
Subject: (output-framework): new file.
X-Git-Tag: release/2.5.14~401
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a899e55a62af2421792b7c72db042646acf520a3;p=lilypond.git

(output-framework): new file.
---

diff --git a/ChangeLog b/ChangeLog
index 93bd07cbd1..ab8300b3f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
 2004-12-17  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/framework-scm.scm (output-framework): new file.
+
 	* mf/GNUmakefile: remove SAUTER_FONTS.
+	remove SVG/sodipodi hacks.
 
 	* scm/lily-library.scm (stderr): move stderr.
 
diff --git a/scm/framework-scm.scm b/scm/framework-scm.scm
new file mode 100644
index 0000000000..23fc0c19e9
--- /dev/null
+++ b/scm/framework-scm.scm
@@ -0,0 +1,34 @@
+
+(define-module (scm framework-scm)
+ #:export (output-framework)
+  )
+
+(use-modules (ice-9 regex)
+	     (ice-9 string-fun)
+	     (ice-9 format)
+	     (guile)
+	     (srfi srfi-1)
+	     (ice-9 pretty-print)
+	     (srfi srfi-13)
+	     (lily))
+
+(define-public (output-framework outputter book scopes fields basename)
+  (ly:outputter-dump-string outputter ";; raw SCM output\n")
+
+  (for-each
+   (lambda (page)
+     (ly:outputter-dump-string
+      outputter ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n") 
+     (ly:outputter-dump-string
+      outputter
+      (call-with-output-string
+       (lambda (port)
+	 (pretty-print (ly:stencil-expr page) port)))))
+   (ly:paper-book-pages book)))
+
+
+(define-public (convert-to-ps . args) #t)
+(define-public (convert-to-pdf . args) #t)
+(define-public (convert-to-png . args) #t)
+(define-public (convert-to-dvi . args) #t)
+(define-public (convert-to-tex . args) #t)