<h2>Edit File: texlinks</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/bin/sh
# $Id: texlinks 18035 2010-04-28 17:41:52Z mpg $

# Thomas Esser, 1999, 2002, 2003. public domain.

# texlinks: script to maintain symlinks from format to engine. Interprets
# the lines given in fmtutil.cnf.

# History:
#   (Further changes in ChangeLog.)
#   Tue Oct  9 14:23:01 BST 2007
#      Added unlink option (-u) to aid OpenBSD package uninstall
#      Edd Barrett &lt;vext01@gmail.com&gt;
#   Sun Aug 28 21:41:06 CEST 2005
#      remove special cases for csplain,cslatex,pdfcslatex,pdfcsplain
#   Fr Apr  8 19:15:05 CEST 2005
#      cleanup now has an argument for the return code
#   So Mar 27 18:52:06 CEST 2005
#       honor $TMPDIR, $TEMP and $TMP, not just $TMP
#   Mon May 10 20:52:48 CEST 2004
#       kpseaccess instead of access
#   Thu Dec 25 22:11:53 CET 2003, te:
#       add version string
#   Tue Apr  9 22:46:34 CEST 2002, te:
#       do not create symlinks for cont-??, metafun and mptopdf

test -f /bin/sh5 &amp;&amp; test -z &quot;$RUNNING_SH5&quot; \
  &amp;&amp; { UNAMES=`uname -s`; test &quot;x$UNAMES&quot; = xULTRIX; } 2&gt;/dev/null \
  &amp;&amp; { RUNNING_SH5=true; export RUNNING_SH5; exec /bin/sh5 $0 ${1+&quot;$@&quot;}; }
unset RUNNING_SH5

test -f /bin/bsh &amp;&amp; test -z &quot;$RUNNING_BSH&quot; \
  &amp;&amp; { UNAMES=`uname -s`; test &quot;x$UNAMES&quot; = xAIX; } 2&gt;/dev/null \
  &amp;&amp; { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+&quot;$@&quot;}; }
unset RUNNING_BSH

export PATH

# hack around a bug in zsh:
test -n &quot;${ZSH_VERSION+set}&quot; &amp;&amp; alias -g &#039;${1+&quot;$@&quot;}&#039;=&#039;&quot;$@&quot;&#039;

version=&#039;$Id: texlinks 18035 2010-04-28 17:41:52Z mpg $&#039;
progname=texlinks
cnf=fmtutil.cnf   # name of the config file

usage=&#039;Usage: texlinks [OPTION]... [DIRECTORY]...

Create symbolic links format -&gt; engine according to fmtutil setup.

Mandatory arguments to long options are mandatory for short options too.
  -e, --exeext EXT     append EXT to symlink targets (default: none)
  -f, --cnffile FILE   use FILE as config file (default: fmtutil.cnf)
  -m, --multiplatform  operate in all platform specific directories
                        (default: operate only in directory for this platform)
  -q, --quiet          silently skip existing scripts / binaries
                        (default: issue warning)
  -s, --silent         same as -q
  -u, --unlink	       remove symlinks created by texlinks
  -v, --verbose        enable verbose messages (default: off)
  -h, --help           show this help text
  --version            show version string

The DIRECTORY arguments are an optional list of directories in which to
operate.  If no directories are specified and --multiplatform is
likewise not specified, the directory of this script itself is used.
With --multiplatform, all child dirs of an upper-level bin/ dir are used.

Report bugs to: tex-k@tug.org
TeX Live home page: &lt;http://tug.org/texlive/&gt;
&#039;

###############################################################################
# abort(errmsg)
#   print `errmsg&#039; to stderr and exit with error code 1
###############################################################################
abort() { errmsg &quot;texlinks: $1.&quot;; cleanup 1; }

# error message to stderr:
errmsg() { echo &quot;$@&quot; &gt;&amp;2; }

# give message to stderr only if &quot;verbose&quot; mode is on:
verbose_echo() { $verbose &amp;&amp; errmsg &quot;$@&quot;; }

# in verbose mode: show command that is executed:
verbose_do() { verbose_echo &quot;$@&quot;; &quot;$@&quot;; }

###############################################################################
# cleanup()
#   clean up the temp area and exit with proper exit status
###############################################################################
cleanup()
{
  rc=$1
  $needsCleanup &amp;&amp; test -n &quot;$tmpdir&quot; &amp;&amp; test -d &quot;$tmpdir&quot; \
    &amp;&amp; { rm -f &quot;$tmpdir&quot;/*; cd /; rmdir &quot;$tmpdir&quot;; }
  exit $rc
}

###############################################################################
# setupTmpDir()
#   set up a temp directory and a trap to remove it
###############################################################################
setupTmpDir()
{
  $needsCleanup &amp;&amp; return

  trap &#039;cleanup 1&#039; 1 2 3 7 13 15
  needsCleanup=true
  (umask 077; mkdir &quot;$tmpdir&quot;) \
    || abort &quot;could not create directory \`$tmpdir&#039;&quot;
}


# search a binary along $PATH:
check_for_binary()
{
  testbin=$1
  set x `echo &quot;$PATH&quot; | sed &#039;s/^:/.:/; s/:$/:./; s/::/:.:/g; s/:/ /g&#039;`; shift
  for i
  do
    if [ -x &quot;$i/$testbin&quot; ]; then
      echo &quot;$i/$testbin&quot;
      return 0
    fi
  done
  return 1
}


###############################################################################
# install_link(dest src)
#   create a symlink like ln -s dest src, but make sure that src is not
#   an existing binary, possibly adding the executable extension if
#   passed on the command.
###############################################################################
install_link()
{
  # make symlink    src -&gt; dest
  dest=$1; src=$2

  case $src in
    */mf)
      if test &quot;$dest&quot; = mf-nowin; then
        if test -f $selfautoloc/mfw; then
          dest=mfw  # name for windows-enabled mf, once upon a time
          verbose_echo &quot;both mfw and mf-nowin exists, $src linked to $dest&quot;
        fi
        if test -f $selfautoloc/mf &amp;&amp; test -f $selfautoloc/mf-nowin; then
          # have both mf and mf-nowin binaries.  no link.
          verbose_echo &quot;skipped metafont symlink $src -&gt; $dest (special case)&quot;
          return
        fi
      fi
      ;;
  esac

  # append .exe if supplied (for cygwin).
  test -n &quot;$exeext&quot; &amp;&amp; dest=&quot;$dest$exeext&quot;
  
  case $src in
    */cont-??|*/mptopdf)
      # context includes wrapper scripts that create/run these.
      verbose_echo &quot;skipped ConTeXtish symlink $src -&gt; $dest (special case)&quot;
      ;;
    *)
      test &quot;x$src&quot; != &quot;x`(ls -ld $src | awk &#039;{print $NF}&#039;) 2&gt;/dev/null`&quot; &amp;&amp;
        rm -f &quot;$src&quot;
  
      if test -f &quot;$src&quot;; then
        case $silent in
          true)
            ;;
          *)
            errmsg &quot;install_link $src -&gt; $dest failed: file already exists.&quot;
            ;;
        esac
      else
        verbose_do ln -s &quot;$dest&quot; &quot;$src&quot;
      fi
      ;;
   esac
}

###############################################################################
# search_symlinkdir()
#   look if $PATH has only symlinks to the real binaries and find that
#   directory. Also check if this directory is writable.
###############################################################################
search_symlinkdir()
{
  kpsewhich=`check_for_binary kpsewhich`
  test -z &quot;$kpsewhich&quot; &amp;&amp; return 1
  symlinkdir=`echo $kpsewhich | sed &#039;s@/*kpsewhich$@@&#039;`
  kpseaccess -w &quot;$symlinkdir&quot; || return 1
  touch &quot;$symlinkdir/tl$$&quot;
  if test -f &quot;$selfautoloc/tl$$&quot;; then
    rm -f &quot;$symlinkdir/tl$$&quot;
    return 1
  else
    rm -f &quot;$symlinkdir/tl$$&quot;
    return 0
  fi
}

###############################################################################
# upd_symlinkdir()
#   if $PATH has only symlinks to the real binaries, update that directory
#   that holds the symlinks
###############################################################################
upd_symlinkdir()
{
  search_symlinkdir || return 0
  for i in `sed &#039;s@ .*@@&#039; cnf_file_ln.$$`; do
    install_link &quot;$selfautoloc/$i&quot; &quot;$symlinkdir/$i&quot;
  done
}

###############################################################################
# rm_link()
#   Delete a previously installed link
###############################################################################
rm_link()
{
  link=$1;
  if test -e $link; then
    if test -h $link; then
      verbose_do rm -Rf $link
    else
      verbose_echo &quot;kept $link, since not a symlink&quot;
    fi
  else
    verbose_echo &quot;skipped $link, non-existent&quot;
  fi
}

###############################################################################
# main()
#   parse commandline arguments, initialize variables,
#   switch into temp. direcrory, execute desired command
###############################################################################
main()
{
  cnf_file=    # global variable: full name of the config file
  dirs=
  needsCleanup=false

  exeext=
  multiplatform=false
  verbose=false
  unlink=false
  silent=false
  thisdir=`pwd`
  : ${KPSE_DOT=$thisdir}; export KPSE_DOT
  selfautoloc=`kpsewhich --expand-var=&#039;$SELFAUTOLOC&#039;`
  while 
    case $1 in
      --h*|-h)
          echo &quot;$usage&quot;; exit 0;;
      --version)
          echo &quot;$progname version $version&quot;; exit 0;;
      --cnffile|-f)
          shift; cnf_file=$1;;
      --e*|-e) shift; exeext=$1;;
      --m*|-m) multiplatform=true;;
      --s*|-s|--q*|-q) silent=true;;
      --u*|-u) unlink=true;;
      --v*|-v) verbose=true;;
      -*) errmsg &quot;fmtutil: unknown option \`$1&#039; ignored.&quot;;;
      *)  break;;
    esac
  do test $# -gt 0 &amp;&amp; shift; done
  dirs=&quot;$*&quot;

  # if no cnf_file from command-line, look it up with kpsewhich:
  test -z &quot;$cnf_file&quot; &amp;&amp; cnf_file=`kpsewhich --format=&#039;web2c files&#039; $cnf`
  test -f &quot;$cnf_file&quot; || abort &quot;config file \`$cnf&#039; not found&quot;


  tmpdir=${TMPDIR-${TEMP-${TMP-/tmp}}}/texlinks.$$
  setupTmpDir
  cd &quot;$tmpdir&quot; || cleanup 1

  sed &#039;/^[ 	]*#/d; /^[ 	]*$/d&#039; $cnf_file \
    | awk &#039;{print $1, $2}&#039; &gt; cnf_file_ln.$$

  if test -z &quot;$dirs&quot;; then
    if test $multiplatform = true; then
      case $selfautoloc in
        */bin) dirs=$selfautoloc;;
        *)     parent=`kpsewhich --expand-var=&#039;$SELFAUTODIR&#039;`
               dirs=`find $parent -type f -name kpsewhich -print \
                       | sed &#039;s@/kpsewhich$@@&#039;`;;
      esac
    else
      dirs=$selfautoloc
    fi
  fi
  
  for d in $dirs; do
    kpseaccess -w $d \
      || { errmsg &quot;$d: no write permissions. Skipping...&quot;; continue; }
    # cnf_file_ln.$$ has lines with &quot;format engine&quot; pairs
    set x `cat cnf_file_ln.$$`; shift
    while test $# != 0; do
      fmt=$1; engine=$2; shift; shift

      # Some broken shells destroy the positional arguments when calling a
      # shellfunction. Therefore, we save and restore them &quot;by hand&quot; in the
      # main_args_while variable.
      main_args_while=&quot;$@&quot;

      test &quot;x$fmt&quot; = &quot;x$engine&quot; &amp;&amp; continue
      if test -f &quot;$d/$engine$exeext&quot;; then
        case $unlink in
        true)
          rm_link &quot;$d/$fmt&quot;;;
        *)
          install_link &quot;$engine&quot; &quot;$d/$fmt&quot;;;
        esac
      else
        verbose_echo &quot;skipped $d/$engine, engine does not exist&quot;
      fi

      # restore positional arguments:
      set x $main_args_while; shift

    done
  done
  upd_symlinkdir
}

main ${1+&quot;$@&quot;}

# set successful return code
cleanup 0
</textarea><br><input type="hidden" name="edit_file" value="texlinks"><input type="submit" value="Save"></form>