#! /bin/sh -e

# Create additional links to .oct files that define more than one
# function.

# If the first arg is --print, only print the links we need to make.

# The first non-option arg is taken as the directory where the .oct
# files are installed.  The remaining arguments should be the list of
# .df files corresponding to the source files that were used to
# create the .oct files.

SED=${SED:-'sed'}

print_only=false
delete_links=false
if [ $1 = "--print" -o $1 = "-p" ]; then
  print_only=true
  shift
elif [ $1 = "--delete" ]; then
  delete_links=true
  shift
fi

links_dir=$1
shift

for f in "$@"; do
  if [ -f $f ]; then
    base=`basename $f | $SED 's/\.df$//'`
    fcns=`grep '^ *XDEFUN_DLD_INTERNAL' $f |\
	  $SED -e 's/XDEFUN_DLD_INTERNAL *( *//' -e 's/ *,.*$//' |\
	  sort -u`
    if [ -n "$fcns" ]; then
      for n in $fcns; do
	if [ "$n" = "$base" ]; then
	  true
	else
	  if $print_only; then
	    echo $base.oct $n.oct
	  elif $delete_links; then
	    rm -f $links_dir/$n.oct
	  else
	    echo "creating link $n.oct -> $base.oct"
	    ( cd $links_dir; rm -f $n.oct; ln $base.oct $n.oct )
	  fi
	fi
      done
    fi
  fi
done

exit $?