scm/kpathsea.scm

   1 ;;
   2 ;; kpathsea.scm -- implement kpath support using command-line
   3 ;;
   4 ;;
   5 ;; source file of the GNU LilyPond music typesetter
   6 ;;
   7 ;; (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   8 ;;
   9
  10 (define-module (scm kpathsea))
  11
  12 (use-modules (ice-9 popen)
  13              (lily)
  14              (ice-9 rdelim))
  15
  16
  17
  18 (define-public (ly:kpathsea-find-file name)
  19   (let*
  20       ((cmd  (format #f "kpsewhich ~a"
  21                      (sanitize-command-option name)))
  22        (unused (if (ly:get-option 'verbose)
  23                    (ly:message "Running ~a" cmd)))
  24        (pipe (open-input-pipe cmd))
  25        (answer (read-line pipe)))
  26
  27     (if (string? answer)
  28         answer
  29         #f)))
  30
  31 (define-public (ly:kpathsea-expand-variable var)
  32   (let*
  33       ((cmd (format #f "kpsexpand '$'~a"
  34                     (sanitize-command-option var)))
  35        (unused (if (ly:get-option 'verbose)
  36                    (ly:message "Running ~a" cmd)))
  37        (pipe (open-input-pipe cmd))
  38        (answer (read-line pipe)))
  39
  40     (if (string? answer)
  41         answer #f)))
  42
  43 ;; Test:
  44
  45 ;;(display (ly:kpathsea-find-file "cmr10.tfm"))
  46 ;;
  47 ;;(display (ly:kpathsea-expand-variable "TEXMF"))
  48