#!/bin/sh
# $Id: laps,v 1.10 1992/06/20 04:18:46 schwartz Exp $
usage='usage: laps {[-align files] [-widths "1 2 3..."] [-tag files] [-htag files] [-vtag files] [-dot opts...] [-a2d opts...]}'
case $# in 
0) echo $usage 2>&1; exit 1;;
esac

cur=alignfiles

while 
  case $# in
  0) false;;
  *) true;;
  esac
do
  case $1 in
  -w*) cur=widths;;
  -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

set -- $widths
{ linewidth=1
  for a in $alignfiles
  do 
    echo "% align: '$a'"
    align2dot $a2dopts $linewidth <$a
    case $widths in
      '') linewidth=`expr $linewidth + 2`;;
      *)  shift; linewidth=$1;;
    esac
  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