(output-framework): new file.

diff --git a/ChangeLog b/ChangeLog
index 93bd07cbd151b767ea8e9bcb53cf6ea11968aea7..ab8300b3f331e9fd57329633ab974fc66dd97903 100644 (file)
--- 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 (file)
index 0000000..23fc0c1
--- /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)