Remove obsolete backend code

- 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

diff --git a/scm/lily.scm b/scm/lily.scm
index 49d822c6cceb3ab60af44fe5381874bac26911e0..c8f99d6737a31b9271943190c046366749b4040e 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -306,16 +306,6 @@ Print a message at LOCATION if any predicate failed."
             (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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index b2c047a6517656f7d0726c5b651bccf45fbb57f2..01677fa9dd8dad39a2e62900df4accec2c76d3cb 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -14,34 +14,7 @@
 ;;;;   * 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
-           ))
-
+  #:re-export (quote))
 
 (use-modules (guile)
             (ice-9 regex)

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 083d5a081be223493612e8be276aa4f366de2664..60be72180619e429ab69a271d72cf6a7b4cee5a6 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -8,18 +8,6 @@
             (srfi srfi-13)
             (lily))
 
-(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"

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 784003458d5d335305d7fca9dad897e2281fa3e3..5c6299a2794e1fc63e3077b63dd6b118e5c665ad 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -165,17 +165,6 @@
 ;;; 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