#!/bin/sh

# kpsetool. Script to make teTeX-style kpsetool, kpsexpand and kpsepath
# available. Uses web2c's (new) kpsexpand binary, so the systax for
# kpsexpand is now incompatible with teTeX's (as of version 0.4).
# Thomas Esser <te@informatik.uni-hannover.de>, Mar 1997, public domain.

usage="
Usage: kpsexpand: [options] string
Usage: kpsewhich: [options] pathtype filename
Usage: kpsepath:  [options] pathtype

Valid options are the following:
  -n progname  : pretend to be progname to kpathsea
  -m mode      : set Metafont mode
  -w           : act like kpsewhich
  -p           : act like kpsepath
  -v           : act like kpsexpand

Valid pathtypes are:
  gf            : generic font bitmap
  pk            : packed bitmap font
  base          : Metafont memory dump
  bib           : BibTeX bibliography source
  bst           : BibTeX style files
  cnf           : Kpathsea runtime configuration files
  fmt           : TeX memory dump
  mem           : MetaPost memory dump
  mf            : Metafont source
  mfpool        : Metafont program strings
  mp            : MetaPost source
  mppool        : MetaPost program strings
  mpsupport     : MetaPost support files
  pict          : Other kinds of figures
  tex           : TeX source
  texpool       : TeX program strings
  tfm           : TeX font metrics
  vf            : virtual font
  dvips_config  : dvips config files
  dvips_header  : dvips header files
  troff_font    : troff fonts
"

action=kpsexpand
case $0 in
  */kpsewhich) action=kpsewhich;;
  */kpsepath)  action=kpsepath;;
esac

progname=`echo $0 | sed 's@.*/@@'`
flags=''

while true; do
  case x"$1" in
    x-n)
      if test $# = 1; then
        echo "$progname: missing argument for -n."
        echo "$usage"; exit 1
      else
        flags="$flags -progname=$2"; shift; shift
      fi;;
    x-m)
      if test $# = 1; then
        echo "$progname: missing argument for -m."
        echo "$usage"; exit 1
      else
        flags="$flags -mode=$2"; shift; shift
      fi;;
    x-w) action=kpsewhich; shift;; 
    x-p) action=kpsepath; shift;;
    x-v) action=kpsexpand; shift;;
    *) break;;
  esac
done

case "$action" in
  kpsewhich|kpsepath)
    case "$1" in
      gf)		format='gf';;
      pk)		format='pk';;
      base)		format='.base';;
      bib)		format='.bib';;
      bst)		format='.bst';;
      cnf)		format='.cnf';;
      fmt)		format='.fmt';;
      mem)		format='.mem';;
      mf)		format='.mf';;
      mfpool)		format='.pool';;
      mp)		format='.mp';;
      mppool)		format='.pool';;
      mpsupport)	format='17';;
      pict)		format='.eps';;
      tex)		format='.tex';;
      texpool)		format='.pool';;
      tfm)		format='.tfm';;
      vf)		format='.vf';;
      dvips_config)	format='34';;
      dvips_header)	format='.pro';;
      troff_font)	format='30';;
      *)		echo "$progname: $1: unknown format"; echo "$usage"; exit 1;;
    esac
    shift;;
esac

case "$action" in
  kpsewhich)
    test $# = 1 || { echo "$progname: missing filename"; echo "$usage"; exit 1; }
    kpsewhich $flags -format="$format" "$1";;
  kpsepath)
    kpsewhich $flags -show-path="$format";;
  kpsexpand)
    test $# = 1 || { echo "$progname: missing string"; echo "$usage"; exit 1; }
    kpsewhich $flags -expand-var="$1";;
esac