#! /bin/sh

restorelink () { if [ ! -L $1 -a ! -e $1 ]; then ln -s $2 $1; fi; }
rmlink () { if [ -L $1 ]; then rm $1; echo "rm $1"; else echo "$1 isn't symlink"; fi; }

# to get the odvipsk_links variable from a ls -l of the directory
# in the upstream sources:
# ls -l texk/odvipsk/ | grep -- "->" | sed -e 's#.*:.. \(.*\) -> \(.*\)$#texk/odvipsk/\1 \2#'
# and similarly for other directories.

misc_links="
texk/kpathsea/texmf.in texmf.in-teTeX
"

web2c_links="
texk/web2c/pdfetexdir/NEWS ../pdftexdir/NEWS
texk/web2c/pdfetexdir/README ../pdftexdir/README
texk/web2c/pdfxtexdir/NEWS ../pdftexdir/NEWS
texk/web2c/pdfxtexdir/README ../pdftexdir/README
"

linklist="$misc_links $web2c_links"

if [ $# -eq 0 ]; then
  set $linklist
  while [ $# -gt 0 ]; do
    if [ $# -eq 1 ]; then
      echo "Variable linklist contains odd number of filenames!"
      echo "Exiting."
      exit 1
    else
      restorelink $1 $2
      shift 2
    fi
  done
else
  set $linklist
  while [ $# -gt 0 ]; do
    if [ $# -eq 1 ]; then
      echo "Variable linklist contains odd number of filenames!"
      echo "Exiting."
      exit 1
    else
      rmlink $1
      shift 2
    fi
  done
fi

#restorelink texk/odvipsk/newprotos.h ../dvipsk/newprotos.h
#restorelink texk/web2c/pdftexdir/pdfcrypt.c pdfcrypt-full.c
#restorelink utils/texinfo/intl/libintl.h .././intl/libgettext.h
#restorelink texk/dvipsk/ptexmac.h ../web2c/pdftexdir/ptexmac.h
#restorelink texk/oxdvik/c-auto.in ../xdvik/c-auto.in
