diff options
Diffstat (limited to 'tools/extract-words-tok.pl')
-rwxr-xr-x | tools/extract-words-tok.pl | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/tools/extract-words-tok.pl b/tools/extract-words-tok.pl deleted file mode 100755 index ea654759aa..0000000000 --- a/tools/extract-words-tok.pl +++ /dev/null @@ -1,76 +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 extracts AGI words.tok file -# -# It produces one word per line. Multiword verbs get splitted -# -# Typical usage: -# -# for i in agigames/*/words.tok -# do -# tools/extract-words-tok.pl "$i" -# done | tools/construct-pred-dict.pl -# - -local $/; -local $file = <>; - -#$off = ord(substr($file, $i * 2, 1)) * 256 + ord(substr($file, $i * 2 + 1, 1)); -#$offn = ord(substr($file, ($i + 1) * 2, 1)) * 256 + ord(substr($file, ($i + 1) * 2 + 1, 1)); - -$off = 52; - -$word = ""; -$mode = 0; - -while ($off < length $file) { - $c = (ord(substr($file, $off, 1))); - if ($mode == 0) { - $word = substr $word, 0, $c; - $mode = 1; - $off++; - next; - } - - $r = ($c & 0x7f) ^ 0x7f; - $word .= chr($r); - - if ($c & 0x80) { - for $w (split ' ', $word) { - print "$w\n"; - } - $off += 3; - $mode = 0; - next; - } - - $off++; -} - -for $w (split ' ', $word) { - print "$w\n"; -} |