1 (define-module (scm framework-socket)
2 #:export (output-framework)
5 (use-modules (ice-9 regex)
14 (define-public (output-framework channel book scopes fields )
16 ((ctor-arg (if (string? channel)
17 (open-output-file (format "~a.socket" channel))
19 (outputter (ly:make-paper-outputter
22 (systems (ly:paper-book-systems book)))
25 (ly:outputter-dump-stencil outputter
26 (paper-system-stencil (car systems))))
29 (define-public output-classic-framework output-framework)
32 (define-public (convert-to-ps . args) #t)
33 (define-public (convert-to-pdf . args) #t)
34 (define-public (convert-to-png . args) #t)
35 (define-public (convert-to-dvi . args) #t)
36 (define-public (convert-to-tex . args) #t)