:
# make a sourcefile for shareware
# R.Wobst (Dresden), Apr 30/Oct 27 - Nov 5, 1991
# usage: mkshare filenames

# EDIT THESE DEFINITIONS
NUM=${NUM:-8}				# length of variable names ***
SEED=${SEED:-0}				# init random number generator

ID=$$
trap \
  'echo removing tmp$ID.? fifo.$ID ...
  /bin/rm -f tmp$ID.? fifo.$ID' 0
trap '/bin/rm -f translist; exit 1' 1 2 3 15

error()
  {
   echo "*** error appeared - $1 aborted ***\07\n"
   exit 1
  }

[ $# -lt 1 ] &&
  {
   echo "usage: $0 file ...\07";
   exit 1;
  }

for i
do
  [ -f $i -a -r $i ] ||
     { echo "where is $i? - $0 aborted\07"; exit 1; }
done

/etc/mknod fifo.$ID p
[ -p fifo.$ID ] || error $0

echo "do you want to run mkfunclist? y/[n]: \c"		# UNIX System V.3.2
read word
case $word in
  [yY]*) echo "type: mkfunclist libc.a libm.a ... and then ^D"
	 ${SHELL:-/bin/sh}
	 ;;
esac

echo "creating symbol lists..."
mknamelist $ID $* || error $0

echo "Do you want to edit the symbol list - y/[n]: \c"
read word || error $0
case $word in
  [yY]*) vi tmp$ID.1;;
esac

trans $NUM $SEED $* >translist || error $0

echo "*** mkshare is ready ***\07"
exit 0