#!/bin/sh

inputfile=$1
if [ ! -f ${inputfile} ]; then
  echo "${inputfile} does not exist."
  exit
fi

tmpfile=tmp.$$.tcl
cat <<EOF > ${tmpfile}
path enable AllPath
###############################################################
module input DHInput
  mod talk DHInput
  input file ${inputfile}
exit
###############################################################

talk EventDump
  list set t
exit

ev begin -nev 2
exit
EOF

AC++Dump ${tmpfile}

rm ${tmpfile}

## EOF ##