From: Patrick McCarty <pnorcks@gmail.com>
Date: Sun, 5 Jul 2009 20:12:25 +0000 (-0700)
Subject: Remove obsolete backend code
X-Git-Tag: release/2.13.4-1~333
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=931a5e155845fb5b6207424dcf66967756a55540;p=lilypond.git

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 49d822c6cc..c8f99d6737 100644
--- 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 b2c047a651..01677fa9dd 100644
--- 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 083d5a081b..60be721806 100644
--- 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 784003458d..5c6299a279 100644
--- 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