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";
-}