#!/bin/sh
# for lib4th/test4th, 6/2000 by h-peter recktenwald <phpr@snafu.de>
# emergency kill all lib4th jobs

[ -n "${1}" ]&&{ t="${1}";shift; }||t=0
[ -n "${1}" ]&&{ j="${1}";shift; }||j=''
LO=/usr/sbin/lsof

[ -n "${j}" ]&&
{
    echo "k8 T:$t J:$j"
    sleep ${t}
    killall -9 "${pwd}/${j}"
}||
{
    D=$(pwd)
    killall -9 ${D}/f8
    killall -9 ${D}/calc4th
    killall -9 ${D}/4
    for i in $(${LO}|grep lib4th.so.0|cut -d\  -f1);do [ -z "${i}" ]||killall -9 ${i};done
    for i in ald eforth e4a e4d f8 calc4th 4;do killall -9 ${i}||true;done
}
# k <eof>
