- Remove obsolete code from lily.scm that was
used before the output backends took their current
form.
- Remove exported bindings from output-ps.scm; the
output backends no longer use a `public interface',
since all work is done with ly:outputter-dump-stencil,
which uses the modules directly.
- Remove the "catch-all" routines from the svg and socket
output backends; these are covered by the new procedure
in backend-library.scm
(recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
(recursion-helper signature arguments 1))
(recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
(recursion-helper signature arguments 1))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; output
-
-;; (define-public (output-framework) (write "hello\n"))
-
-(define output-ps-module
- (make-module 1021 (list (resolve-interface '(scm output-ps)))))
-
-(define-public (ps-output-expression expr port)
- (display (eval expr output-ps-module) port))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Safe definitions utility
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Safe definitions utility
;;;; * document output-interface
(define-module (scm output-ps)
;;;; * document output-interface
(define-module (scm output-ps)
- #:re-export (quote)
-
- ;; JUNK this -- see lily.scm: ly:all-output-backend-commands
- #:export (unknown
- bezier-sandwich
- char
- circle
- comment
- dashed-line
- dashed-slur
- dot
- draw-line
- ellipse
- embedded-ps
- named-glyph
- no-origin
- oval
- placebox
- polygon
- repeat-slash
- resetcolor
- resetrotation
- round-filled-box
- setcolor
- setrotation
- text
- ))
-
(use-modules (guile)
(ice-9 regex)
(use-modules (guile)
(ice-9 regex)
-(define (dummy . rest)
- "")
-
-(display (ly:all-stencil-expressions))
-(for-each
- (lambda (x)
- (module-define! (current-module)
- x
- dummy))
-
- (ly:all-stencil-expressions))
-
(define-public (draw-line thick x1 y1 x2 y2)
(format "drawline ~a ~a ~a ~a ~a"
(define-public (draw-line thick x1 y1 x2 y2)
(format "drawline ~a ~a ~a ~a ~a"
;;; stencil outputters
;;;
;;; stencil outputters
;;;
-;;; catch-all for missing stuff
-;;; comment this out to see find out what functions you miss :-)
-
-(if #f
- (begin
- (define (dummy . foo) "")
- (map (lambda (x) (module-define! this-module x dummy))
- (append
- (ly:all-stencil-expressions)
- (ly:all-output-backend-commands)))
- ))
(define (url-link url x y)
(string-append
(define (url-link url x y)
(string-append