]> git.donarmstrong.com Git - lilypond.git/blob - scm/framework-socket.scm
Update from Trevor.
[lilypond.git] / scm / framework-socket.scm
1 (define-module (scm framework-socket)
2   #:export (output-framework)
3   )
4
5 (use-modules (ice-9 regex)
6              (ice-9 string-fun)
7              (scm paper-system)
8              (ice-9 format)
9              (guile)
10              (srfi srfi-1)
11              (ice-9 pretty-print)
12              (srfi srfi-13)
13              (lily))
14
15 (define-public (output-framework channel book scopes fields )
16   (let*
17       ((ctor-arg (if (string? channel)
18                      (open-output-file (format "~a.socket" channel))
19                      channel))
20        (outputter (ly:make-paper-outputter
21                    ctor-arg
22                    'socket))
23        (systems (ly:paper-book-systems book)))
24
25     (if (pair? systems)
26         (ly:outputter-dump-stencil outputter
27                                    (paper-system-stencil (car systems))))
28     ))
29
30 (define-public output-classic-framework output-framework)
31
32
33 (define-public (convert-to-ps . args) #t)
34 (define-public (convert-to-pdf . args) #t)
35 (define-public (convert-to-png . args) #t)
36 (define-public (convert-to-dvi . args) #t)
37 (define-public (convert-to-tex . args) #t)