From a899e55a62af2421792b7c72db042646acf520a3 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 17 Dec 2004 14:19:23 +0000 Subject: [PATCH] (output-framework): new file. --- ChangeLog | 3 +++ scm/framework-scm.scm | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100644 scm/framework-scm.scm diff --git a/ChangeLog b/ChangeLog index 93bd07cbd1..ab8300b3f3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,9 @@ 2004-12-17 Han-Wen Nienhuys + * 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) -- 2.39.5