From 1559f60c4536522995cdf0d0a0f76f47267f11aa Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 18 May 2003 13:56:05 +0000 Subject: [PATCH] (scm): remove output-pysk.scm, music-types.scm --- ChangeLog | 2 ++ scm/lily.scm | 1 - scm/output-pysk.scm | 80 --------------------------------------------- 3 files changed, 2 insertions(+), 81 deletions(-) delete mode 100644 scm/output-pysk.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 + * scm/lily.scm (scm): remove output-pysk.scm, music-types.scm + * ly/engraver-init.ly: remove GraceContext. Update examples. 2003-05-18 Jan Nieuwenhuizen 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 -;;; Han-Wen Nienhuys - - - -(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" - )) - - -- 2.39.5