mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-21 01:08:25 +00:00
74 lines
1.8 KiB
Perl
Executable File
74 lines
1.8 KiB
Perl
Executable File
#!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.
|
|
#
|
|
|
|
# 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
|
|
# devtools/extract-words-tok.pl "$i"
|
|
# done | devtools/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";
|
|
}
|