#!/bin/sh
# $Id: pmps,v 1.5 1992/11/02 22:27:08 schwartz Exp schwartz $

usage() {
 echo 'usage: [-x "x0 x1"]'  1>&2
 echo '       [-y n] [-width n]' 1>&2
 echo '       [{-tag|-htag|-vtag|-align} "files"]' 1>&2
 echo '       [{-dot|-a2d} opts]' 1>&2
 exit 1
}

tagfiles=''
htagfiles=''
vtagfiles=''
alignfiles=''
W=''

cur=alignfiles

while 
  case $# in
  0) false;;
  *) true;;
  esac
do
  case $1 in
  -[Ww]*) cur=W;;
  -Y*) cur=Y;;
  -X*) cur=X;;
  -ytrans) cur=Y;;
  -xtrans) cur=X;;
  -tag) cur=tagfiles;; 
  -htag) cur=htagfiles;; 
  -vtag) cur=vtagfiles;; 
  -align) cur=alignfiles;;
  -dot) cur=dotopts;;
  -a2d) cur=a2dopts;;
  *) tmp=$cur; eval $cur=\"$""$tmp $1\";;
  esac
  shift
done

case "$W" in
'') W=2;;
*) set -- $W; W=$1;;
esac

case "$alignfiles" in
'') alignfiles='-';;
esac

case "$X" in
'') ;;
*) set -- $X; X0=$1; X1=$2;;
esac

set -- $Y; Y=$1

{
  for a in $alignfiles
  do 
    echo "% align: '$a'"
    align2pm W=$W X0=$X0 X1=$X1 Y=$Y $a
  done 
  [ x"$tagfiles" = "x" ] || 
	(echo "% tagfiles: '$tagfiles'"; cat $tagfiles)
  [ x"$htagfiles" = "x" ] || 
	(echo "% htags: '$htagfiles'"; echo 'horizontal' ; cat $htagfiles)
  [ x"$vtagfiles" = "x" ] || 
	(echo "% vtags: '$vtagfiles'"; echo 'vertical' ; cat $vtagfiles)
} | dotplot $dotopts