From: Patrick McCarty <pnorcks@gmail.com>
Date: Sat, 1 Aug 2009 16:46:21 +0000 (-0700)
Subject: Remove obsolete file kpathsea.scm
X-Git-Tag: release/2.13.4-1~233
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5110cf76227bd2845b1fa098003eafd87b2965c4;p=lilypond.git

Remove obsolete file 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 <hanwen@xs4all.nl>
-;;
-
-(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"))
-