From 5110cf76227bd2845b1fa098003eafd87b2965c4 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Sat, 1 Aug 2009 09:46:21 -0700 Subject: [PATCH] Remove obsolete file kpathsea.scm --- scm/kpathsea.scm | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 scm/kpathsea.scm diff --git a/scm/kpathsea.scm b/scm/kpathsea.scm deleted file mode 100644 index 5b655f6cb6..0000000000 --- a/scm/kpathsea.scm +++ /dev/null @@ -1,48 +0,0 @@ -;; -;; kpathsea.scm -- implement kpath support using command-line -;; -;; -;; source file of the GNU LilyPond music typesetter -;; -;; (c) 2005--2009 Han-Wen Nienhuys -;; - -(define-module (scm kpathsea)) - -(use-modules (ice-9 popen) - (lily) - (ice-9 rdelim)) - - - -(define-public (ly:kpathsea-find-file name) - (let* - ((cmd (format #f "kpsewhich ~a" - (sanitize-command-option name))) - (unused (if (ly:get-option 'verbose) - (ly:message "Running ~a" cmd))) - (pipe (open-input-pipe cmd)) - (answer (read-line pipe))) - - (if (string? answer) - answer - #f))) - -(define-public (ly:kpathsea-expand-variable var) - (let* - ((cmd (format #f "kpsexpand '$'~a" - (sanitize-command-option var))) - (unused (if (ly:get-option 'verbose) - (ly:message "Running ~a" cmd))) - (pipe (open-input-pipe cmd)) - (answer (read-line pipe))) - - (if (string? answer) - answer #f))) - -;; Test: - -;;(display (ly:kpathsea-find-file "cmr10.tfm")) -;; -;;(display (ly:kpathsea-expand-variable "TEXMF")) - -- 2.39.2