Initial commit

devtools/construct-pred-dict.pl

@@ -0,0 +1,62 @@
+#!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 3 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, see <http://www.gnu.org/licenses/>.
+#
+
+# 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";
+}