:
# ge - translate english words into german
# Heiner Steven (heiner.steven@odn.de)

: ${DICT:=$HOME/lib/words}
: ${EGREP:=egrep}

if [ $# -gt 1 ]
then
    # Convert "a b c" to "(a|b|c)" for egrep
    P=
    for i
    do	P="${P:+$P|}$i"
    done
    P="($P)"
    set -- "$P"
fi

if [ -r "$DICT" ]
then
    for i
    do
	look "$i" ${DICT:=$HOME/lib/words}
    done
else				# Dictionary may be compressed - use egrep
    if [ $# -gt 1 ]
    then
	# Convert "a b c" to "(a|b|c)" for egrep
	P=
	for i
	do	P="${P:+$P|}$i"
	done
	P="($P)"
	set -- "$P"
    fi
    icat "$DICT" 2>/dev/null | $EGREP -i "^$1"
fi