From: hanwen <hanwen>
Date: Sun, 18 May 2003 13:56:05 +0000 (+0000)
Subject: (scm): remove output-pysk.scm, music-types.scm
X-Git-Tag: release/1.7.25~249
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cafa9808f4ea4cb144e2b8d34cd183d5a5f2a1bc;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index 422757d1bc..a2fb54d439 100644
--- 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 cba0d4786d..2764151bab 100644
--- 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
index 0edc678cf5..0000000000
--- 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"
-   ))
-
-