new-words

annotate en.sh @ 27:0a80b2fa3ed8

initial tagging support
author Igor Chubin <igor@chub.in>
date Fri May 21 19:53:24 2010 +0300 (2010-05-21)
parents 9345cc05fdd1
children c631833fa2be
rev   line source
igor@5 1 #!/bin/sh
igor@5 2
igor@22 3 DICTD_SERVER="dictd.xdsl.by"
igor@22 4 DICTD_SERVER_ARGS="-h $DICTD_SERVER"
igor@22 5 DICT_NAME=mueller24
igor@22 6
igor@22 7
igor@22 8 myname="`echo $0 | sed s@.*/@@`"
igor@22 9 case $myname in
igor@22 10 "de") DICT_NAME=deu-eng ; DICTD_SERVER_ARGS='' ;;
igor@22 11 "pl") DICT_NAME=slovnyk_pl-ru ;;
igor@22 12 "ru") DICT_NAME=ozhshv ;;
igor@22 13 esac
igor@22 14
igor@5 15 (
igor@22 16 dict $DICTD_SERVER_ARGS -d "$DICT_NAME" "$@"
igor@5 17 if [ -e "$ORIGINAL_TEXT" ]
igor@5 18 then
igor@5 19 echo . . . . . . . . . . . . . . . . . . . . . . . . . ; echo
igor@5 20 grep-sentences "$*" "$ORIGINAL_TEXT"
igor@5 21 fi
igor@5 22 ) | less -p "$*"