Imported Upstream version 2.14.2

[lilypond.git] / scm / kpathsea.scm

diff --git a/scm/kpathsea.scm b/scm/kpathsea.scm
deleted file mode 100644 (file)
index 5b655f6..0000000
--- 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"))
-