#!/bin/sh

#
# [incr tsdb()] (plus MRS) wrapper to batch-check a set of \`gold' results
#

unset DISPLAY

date=$(date "+%Y-%m-%d")
log=$HOME/$(echo "$1" | tr "/" ".").${date}.filter

(
  echo "(sleep 1)"; \
  echo "(setf (sys:gsgc-switch :print) nil)"; \
  echo "(setf (sys:gsgc-switch :stats) nil)"; \
  echo "(setf (sys:gsgc-switch :verbose) nil)"; \
#  echo "(lkb::read-script-file-aux \"$LOGONROOT/lingo/erg/lkb/script\")"; \
  echo "(setf mrs::*scoping-call-limit* 100000)"; \
  echo "(setf tsdb::*filter-test* nil)"; \
#  echo "(push :sparseness tsdb::*filter-test*)"; \
  echo "(push :syntax tsdb::*filter-test*)"; \
  echo "(push :scope tsdb::*filter-test*)"; \
  echo "(push :fragmentation tsdb::*filter-test*)"; \
  echo "(setf foo (tsdb::analyze \"$1\" :thorough '(:mrs) :filter t) bar t)"; \
) | $LOGONROOT/lingo/lkb/linux/logon | tee ${log}