← Back to branch summary

~ubuntu-branches/ubuntu/raring/scummvm/raring

« back to all changes in this revision

Viewing changes to tools/construct-pred-dict.pl

  • Committer: Bazaar Package Importer
  • Author(s): Moritz Muehlenhoff
  • Date: 2011-05-25 19:02:23 UTC
  • mto: (21.1.2 sid)
  • mto: This revision was merged to the branch mainline in revision 24.
  • Revision ID: james.westby@ubuntu.com-20110525190223-fiqm0oaec714xk31
Tags: upstream-1.3.0
Import upstream version 1.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/construct-pred-dict.pl
1
 
#!perl
2
 
#
3
 
# ScummVM - Graphic Adventure Engine
4
 
#
5
 
# ScummVM is the legal property of its developers, whose names
6
 
# are too numerous to list here. Please refer to the COPYRIGHT
7
 
# file distributed with this source distribution.
8
 
#
9
 
# This program is free software; you can redistribute it and/or
10
 
# modify it under the terms of the GNU General Public License
11
 
# as published by the Free Software Foundation; either version 2
12
 
# of the License, or (at your option) any later version.
13
 
#
14
 
# This program is distributed in the hope that it will be useful,
15
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
16
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17
 
# GNU General Public License for more details.
18
 
#
19
 
# You should have received a copy of the GNU General Public License
20
 
# along with this program; if not, write to the Free Software
21
 
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
22
 
#
23
 
# $URL: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/tags/release-1-2-1/tools/construct-pred-dict.pl $
24
 
# $Id: construct-pred-dict.pl 47489 2010-01-23 22:50:24Z strangerke $
25
 
#
26
 
 
27
 
# This script constructs dictionary for use with predictive input
28
 
#
29
 
# Feed it with list of words. One word per line
30
 
 
31
 
%words = ();
32
 
 
33
 
while(<>) {
34
 
  chomp;
35
 
 
36
 
  s/[\x7f-\xff]//g; # remove unprintable characters
37
 
 
38
 
  next if /^.$/;    # skip one character words
39
 
  next if $_ eq ""; # skip empty words
40
 
 
41
 
  $words{$_} = 1;
42
 
}
43
 
 
44
 
%list = ();
45
 
 
46
 
for $_ (sort keys %words) {
47
 
  $word = $_;
48
 
 
49
 
  s/['-.&_!]/1/g;
50
 
  s/[abc]/2/g;
51
 
  s/[def]/3/g;
52
 
  s/[ghi]/4/g;
53
 
  s/[jkl]/5/g;
54
 
  s/[mno]/6/g;
55
 
  s/[pqrs]/7/g;
56
 
  s/[tuv]/8/g;
57
 
  s/[wxyz]/9/g;
58
 
 
59
 
  $list{$_} .= "$word ";
60
 
}
61
 
 
62
 
for $k (sort keys %list) {
63
 
  chop $list{$k};
64
 
 
65
 
  print "$k $list{$k}\n";
66
 
}