(scm): remove output-pysk.scm, music-types.scm

diff --git a/ChangeLog b/ChangeLog
index 422757d1bcbbf8f8f428bd6ac55bda2b9bcfc160..a2fb54d439961a60d3aabcf76355fec149a4158c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-05-18  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * scm/lily.scm (scm): remove output-pysk.scm, music-types.scm
+
        * ly/engraver-init.ly: remove GraceContext. Update examples.
 
 2003-05-18  Jan Nieuwenhuizen  <janneke@gnu.org>

diff --git a/scm/lily.scm b/scm/lily.scm
index cba0d4786d027e92244b1e05eb306fc82346fa72..2764151bab971c3427c31a767b44cf4a9c5f077c 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -339,7 +339,6 @@ is the  first to satisfy CRIT
 ;;  output
 (use-modules (scm output-tex)
             (scm output-ps)
-            (scm output-pysk)
             (scm output-ascii-script)
             (scm output-sketch)
             (scm output-sodipodi)

diff --git a/scm/output-pysk.scm b/scm/output-pysk.scm
deleted file mode 100644 (file)
index 0edc678..0000000
--- a/scm/output-pysk.scm
+++ /dev/null
@@ -1,80 +0,0 @@
-;;; pysk.scm -- implement Python  output routines (for Sketch)
-;;;
-;;;  source file of the GNU LilyPond music typesetter
-;;; 
-;;; (c)  1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
-;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
-
-
-(define-module (scm output-pysk)
-  )
-
-(use-modules (scm output-ps)
-            (ice-9 regex)
-            (ice-9 string-fun)
-            (guile)
-            )
-
-(define this-module (current-module))
-(define-public (pysk-output-expression expr port)
-  (display (pythonify expr) port )
-  )
-
-(define (ly:warn s) (display s))
-
-(define (pythonify q)
-  (cond
-   ((string? q) (py-str q))
-   ((symbol? q) (py-str (symbol->string q)))
-   ((and (pair?  q)
-        (not (pair? (cdr q)))
-        (not (eq? '() (cdr q)))
-        ) (py-tuple q))
-   ((pair? q) (py-listify q))
-   ((number? q) (number->string q))
-   ((eq? q '()) '())
-   (else (begin
-          (ly:warn "Unknown object to pythonify:")
-          (write q)
-          (newline)
-          )
-  )))
-
-(define (py-str s)
-  (string-append "'" s "'")
-  )
-
-(define (py-tuple q)
-  (string-append "(" (pythonify (car  q)) "," (pythonify (cdr q)) ")")
-  )
-
-(define (my-map f l)
-  (if (null? l)
-      '()
-      (if (pair? (cdr l))
-         (cons (f (car l)) (my-map f (cdr l)))
-         (cons (f (car l)) (f (cdr l)))
-         )
-  ))
-
-(define (tuplify-list lst)
-  (if (null? lst)
-      '()
-      (if (pair? (cdr lst))
-         (cons (car lst) (tuplify-list (cdr lst)))
-         (if (eq? '() (cdr lst))
-             lst
-             (list (string-append "(" (car lst) ", " (cdr lst) ")" ))
-             ))
-         ))
-
-(define (py-listify q)
-  (string-append
-   "["
-   (string-join
-    (tuplify-list (my-map pythonify q))   ",")
-   "]\n"
-   ))
-
-