diff options
Diffstat (limited to 'tools/construct-pred-dict.pl')
-rwxr-xr-x | tools/construct-pred-dict.pl | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/tools/construct-pred-dict.pl b/tools/construct-pred-dict.pl deleted file mode 100755 index a092429ff6..0000000000 --- a/tools/construct-pred-dict.pl +++ /dev/null @@ -1,66 +0,0 @@ -#!perl -# -# ScummVM - Graphic Adventure Engine -# -# ScummVM is the legal property of its developers, whose names -# are too numerous to list here. Please refer to the COPYRIGHT -# file distributed with this source distribution. -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation; either version 2 -# of the License, or (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. -# -# $URL$ -# $Id$ -# - -# This script constructs dictionary for use with predictive input -# -# Feed it with list of words. One word per line - -%words = (); - -while(<>) { - chomp; - - s/[\x7f-\xff]//g; # remove unprintable characters - - next if /^.$/; # skip one character words - next if $_ eq ""; # skip empty words - - $words{$_} = 1; -} - -%list = (); - -for $_ (sort keys %words) { - $word = $_; - - s/['-.&_!]/1/g; - s/[abc]/2/g; - s/[def]/3/g; - s/[ghi]/4/g; - s/[jkl]/5/g; - s/[mno]/6/g; - s/[pqrs]/7/g; - s/[tuv]/8/g; - s/[wxyz]/9/g; - - $list{$_} .= "$word "; -} - -for $k (sort keys %list) { - chop $list{$k}; - - print "$k $list{$k}\n"; -} |