/usr/bin/dictl is in dict 1.12.0+dfsg-4build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | #!/bin/sh
# by Aleksey Cheusov <vle@gmx.net>
sysconfdir=/etc/dictd
#####################################
if test -z "$DICTL_SERVER_CHARSET"; then
DICTL_SERVER_CHARSET=utf-8
fi
if test -z "$DICTL_CHARSET"; then
if which locale >/dev/null 2>&1; then
DICTL_CHARSET=`locale -k LC_CTYPE | sed -n 's/charmap="\(.*\)"/\1/p'`;
fi
if test -z "$DICTL_CHARSET"; then
DICTL_CHARSET=C
fi
fi
internal_iconv (){
iconv -c -f $1 -t $2//TRANSLIT
}
internal_recode (){
recode -f $1..$2
}
internal_konwert (){
sedexpr='
/(CP)?(437|8(5[0257]|6[0-69]|74))/ { s//cp\2/; q }
/8859_([1-9])/ { s//iso\1/; q }
/ANSI_X3.4(-19(68|86))?/ { s//ascii/; q }
/(US-)?ASCII/ { s//ascii/; q }
/(CP|WINDOWS-)(125[0-8])/ { s//cp\1/; q }
/ISO([-_]?8859-|8859)([1-9]|1[01345])/ { s//iso\2/; q }
/KOI8-?R/ { s//koi8r/; q }
/KOI8-?U/ { s//koi8u/; q }
/UTF-?8/ { s//utf8/; q }
/VISCII/ { s//viscii/; q }
/.*/ { s///; q }'
from=`echo "$1" | tr a-z A-Z | sed -r -e "$sedexpr"`
to=`echo "$2" | tr a-z A-Z | sed -r -e "$sedexpr"`
konwert "$from-$to"
}
# for backward compatibility
if test "$DICTL_USE_ICONV"; then
DICTL_USE=internal_iconv
elif test "$DICTL_USE_KONWERT"; then
DICTL_USE=internal_konwert
elif test -z "$DICTL_USE"; then
DICTL_USE=internal_recode
fi
#
charset2charset (){
$DICTL_USE $1 $2
}
#####################################
echo apple |
charset2charset $DICTL_SERVER_CHARSET $DICTL_CHARSET > /dev/null || \
{
exit 1
}
echo apple |
charset2charset $DICTL_CHARSET $DICTL_SERVER_CHARSET > /dev/null || \
{
exit 1
}
#####################################
cmd='dict'
while test $# -ne 0; do
cmd="$cmd '$1'"
shift
done
cmd=$(echo $cmd | charset2charset $DICTL_CHARSET $DICTL_SERVER_CHARSET)
eval $cmd -P - | charset2charset $DICTL_SERVER_CHARSET $DICTL_CHARSET
|