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              (ice-9 format)
   8              (guile)
   9              (srfi srfi-1)
  10              (ice-9 pretty-print)
  11              (srfi srfi-13)
  12              (lily))
  13
  14 (define-public (output-framework channel book scopes fields )
  15   (let*
  16       ((ctor-arg (if (string? channel)
  17                      (open-output-file (format "~a.socket" channel))
  18                      channel))
  19        (outputter (ly:make-paper-outputter
  20                    ctor-arg
  21                    "socket"))
  22        (systems (ly:paper-book-systems book)))
  23
  24     (if (pair? systems)
  25         (ly:outputter-dump-stencil outputter
  26                                    (ly:paper-system-stencil (car systems))))
  27     ))
  28
  29 (define-public output-classic-framework output-framework)
  30
  31
  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)