#!/bin/sh
rm -f log*
strace -o log -ff -t -s 120 emacspeak all.in
file=`grep -l 'execve.*tcl.*tcl' log.*`
grep 'write(' $file |tail -25 >log.tcl
echo the Tcl process log $file is summarized in log.tcl
