libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-11-30 12:50:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
82d4f89d53
scummvm/resource.cpp
Ludvig Strigeus 9f191ea9c5 new midi driver API, 
no more USE_ADLIB,
a couple of sdl graphics driver fixes.

svn-id: r3925
2002-04-13 18:34:11 +00:00

1192 lines
26 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001/2002 The ScummVM project
*
* 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Header$
*
*/
#include "stdafx.h"
#include "scumm.h"
/* Open a room */
void Scumm::openRoom(int room)
{
int room_offs, roomlimit;
char buf[256];
debug(9, "openRoom(%d)", room);
/* Don't load the same room again */
if (_lastLoadedRoom == room)
return;
_lastLoadedRoom = room;
/* Room -1 means close file */
if (room == -1) {
_encbyte = 0;
deleteRoomOffsets();
fileClose(_fileHandle);
_fileHandle = NULL;
return;
}
/* Either xxx.lfl or monkey.xxx file name */
while (!_resFilePrefix) {
#if REAL_CODE
room_offs = _roomFileOffsets[room];
#else
if (_features & GF_SMALL_NAMES)
roomlimit = 98;
else
roomlimit = 900;
if (_features & GF_EXTERNAL_CHARSET && room >= roomlimit)
room_offs = 0;
else
room_offs = room ? _roomFileOffsets[room] : 0;
#endif
if (room_offs == (int)0xFFFFFFFF)
break;
if (room_offs != 0 && room != 0) {
_fileOffset = _roomFileOffsets[room];
return;
}
if (!(_features & GF_SMALL_HEADER)) {
if (_features & GF_AFTER_V7)
sprintf(buf, "%s%s.la%d", _gameDataPath, _exe_name,
room == 0 ? 0 : res.roomno[rtRoom][room]);
else
sprintf(buf, "%s%s.%.3d", _gameDataPath, _exe_name,
room == 0 ? 0 : res.roomno[rtRoom][room]);
_encbyte = (_features & GF_USE_KEY) ? 0x69 : 0;
} else if (!(_features & GF_SMALL_NAMES)) {
if (room == 0 || room >= 900) {
sprintf(buf, "%s%.3d.lfl", _gameDataPath, room);
_encbyte = 0;
if (openResourceFile(buf)) {
return;
}
askForDisk(buf);
} else {
sprintf(buf, "%sdisk%.2d.lec", _gameDataPath,
res.roomno[rtRoom][room]);
_encbyte = 0x69;
}
} else {
sprintf(buf, "%s%.2d.lfl", _gameDataPath, room);
if (_features & GF_OLD_BUNDLE)
_encbyte = 0xFF;
else
_encbyte = 0;
}
if (openResourceFile(buf)) {
if (room == 0)
return;
if (_features & GF_EXTERNAL_CHARSET && room >= roomlimit)
return;
readRoomsOffsets();
_fileOffset = _roomFileOffsets[room];
if (_fileOffset != 8)
return;
error("Room %d not in %s", room, buf);
return;
}
askForDisk(buf);
}
do {
sprintf(buf, "%.3d.lfl", room);
_encbyte = 0;
if (openResourceFile(buf))
break;
askForDisk(buf);
} while (1);
deleteRoomOffsets();
_fileOffset = 0; /* start of file */
}
/* Delete the currently loaded room offsets */
void Scumm::deleteRoomOffsets()
{
if (!(_features & GF_SMALL_HEADER) && !_dynamicRoomOffsets)
return;
for (int i = 0; i < _maxRooms; i++) {
if (_roomFileOffsets[i] != 0xFFFFFFFF)
_roomFileOffsets[i] = 0;
}
}
/* Read room offsets */
void Scumm::readRoomsOffsets()
{
int num, room;
debug(9, "readRoomOffsets()");
deleteRoomOffsets();
if (_features & GF_SMALL_NAMES)
return;
if (!(_features & GF_SMALL_HEADER)) {
if (!_dynamicRoomOffsets)
return;
fileSeek(_fileHandle, 16, SEEK_SET);
} else {
fileSeek(_fileHandle, 12, SEEK_SET); // Directlry searching for the room offset block would be more generic...
}
num = fileReadByte();
while (num) {
num--;
room = fileReadByte();
if (_roomFileOffsets[room] != 0xFFFFFFFF) {
_roomFileOffsets[room] = fileReadDwordLE();
} else {
fileReadDwordLE();
}
}
}
bool Scumm::openResourceFile(const char *filename)
{
char buf[256];
debug(9, "openResourceFile(%s)", filename);
if (_resFilePath) {
#if defined(__APPLE__CW)
sprintf(buf, ":%s.%d:%s", _resFilePath, _resFilePathId, filename);
#else
sprintf(buf, "%s.%d\\%s", _resFilePath, _resFilePathId, filename);
#endif
} else if (_resFilePrefix) {
sprintf(buf, "%s%s", _resFilePrefix, filename);
} else {
strcpy(buf, filename);
}
if (_fileHandle != NULL) {
fileClose(_fileHandle);
_fileHandle = NULL;
}
_fileHandle = fileOpen(buf, 1);
return _fileHandle != NULL;
}
void Scumm::askForDisk(const char *filename)
{
error("Cannot find '%s'", filename);
}
void Scumm::readIndexFile()
{
uint32 blocktype, itemsize;
int numblock = 0;
int num, i;
debug(9, "readIndexFile()");
openRoom(-1);
openRoom(0);
if (!(_features & GF_AFTER_V6)) {
/* Figure out the sizes of various resources */
while (!fileEof(_fileHandle)) {
blocktype = fileReadDword();
itemsize = fileReadDwordBE();
if (fileReadFailed(_fileHandle))
break;
switch (blocktype) {
case MKID('DOBJ'):
_numGlobalObjects = fileReadWordLE();
itemsize -= 2;
break;
case MKID('DROO'):
_numRooms = fileReadWordLE();
itemsize -= 2;
break;
case MKID('DSCR'):
_numScripts = fileReadWordLE();
itemsize -= 2;
break;
case MKID('DCOS'):
_numCostumes = fileReadWordLE();
itemsize -= 2;
break;
case MKID('DSOU'):
_numSounds = fileReadWordLE();
itemsize -= 2;
break;
}
fileSeek(_fileHandle, itemsize - 8, SEEK_CUR);
}
clearFileReadFailed(_fileHandle);
fileSeek(_fileHandle, 0, SEEK_SET);
}
while (1) {
blocktype = fileReadDword();
if (fileReadFailed(_fileHandle))
break;
itemsize = fileReadDwordBE();
numblock++;
switch (blocktype) {
case MKID('DCHR'):
readResTypeList(rtCharset, MKID('CHAR'), "charset");
break;
case MKID('DOBJ'):
num = fileReadWordLE();
assert(num == _numGlobalObjects);
if (_features & GF_AFTER_V7) {
fileRead(_fileHandle, _objectStateTable, num);
fileRead(_fileHandle, _objectRoomTable, num);
memset(_objectOwnerTable, 0xFF, num);
} else {
fileRead(_fileHandle, _objectOwnerTable, num);
for (i = 0; i < num; i++) {
_objectStateTable[i] = _objectOwnerTable[i] >> OF_STATE_SHL;
_objectOwnerTable[i] &= OF_OWNER_MASK;
}
}
fileRead(_fileHandle, _classData, num * sizeof(uint32));
/* This code should be here. Otherwise the flags will be swapped for big endian computers.
* If it doesn't work with this code, something else is wrong */
#if defined(SCUMM_BIG_ENDIAN)
for (i = 0; i != num; i++) {
_classData[i] = FROM_LE_32(_classData[i]);
}
#endif
break;
case MKID('RNAM'):
case MKID('ANAM'):
fileSeek(_fileHandle, itemsize - 8, SEEK_CUR);
break;
case MKID('DROO'):
readResTypeList(rtRoom, MKID('ROOM'), "room");
break;
case MKID('DSCR'):
readResTypeList(rtScript, MKID('SCRP'), "script");
break;
case MKID('DCOS'):
readResTypeList(rtCostume, MKID('COST'), "costume");
break;
case MKID('MAXS'):
readMAXS();
break;
case MKID('DSOU'):
readResTypeList(rtSound, MKID('SOUN'), "sound");
break;
case MKID('AARY'):
readArrayFromIndexFile();
break;
default:
error("Bad ID %c%c%c%c found in directory!", blocktype & 0xFF,
blocktype >> 8, blocktype >> 16, blocktype >> 24);
return;
}
}
// if (numblock!=9)
// error("Not enough blocks read from directory");
openRoom(-1);
}
void Scumm::readArrayFromIndexFile()
{
int num;
int a, b, c;
while ((num = fileReadWordLE()) != 0) {
a = fileReadWordLE();
b = fileReadWordLE();
c = fileReadWordLE();
if (c == 1)
defineArray(num, 1, a, b);
else
defineArray(num, 5, a, b);
}
}
void Scumm::readResTypeList(int id, uint32 tag, const char *name)
{
int num;
int i;
debug(9, "readResTypeList(%d,%x,%s)", id, FROM_LE_32(tag), name);
num = fileReadWordLE();
if (1 || _features & GF_AFTER_V6) {
if (num != res.num[id]) {
error("Invalid number of %ss (%d) in directory", name, num);
}
} else {
if (num >= 0xFF) {
error("Too many %ss (%d) in directory", name, num);
}
allocResTypeData(id, tag, num, name, 1);
}
if (_features & GF_SMALL_HEADER) {
for (i = 0; i < num; i++) {
res.roomno[id][i] = fileReadByte();
res.roomoffs[id][i] = fileReadDword();
}
} else {
fileRead(_fileHandle, res.roomno[id], num * sizeof(uint8));
fileRead(_fileHandle, res.roomoffs[id], num * sizeof(uint32));
}
#if defined(SCUMM_BIG_ENDIAN)
for (i = 0; i < num; i++)
res.roomoffs[id][i] = FROM_LE_32(res.roomoffs[id][i]);
#endif
}
void Scumm::allocResTypeData(int id, uint32 tag, int num, const char *name,
int mode)
{
debug(9, "allocResTypeData(%d,%x,%d,%s,%d)", id, FROM_LE_32(tag), num, name,
mode);
assert(id >= 0 && id < (int)(sizeof(res.mode) / sizeof(res.mode[0])));
if (num >= 2000) {
error("Too many %ss (%d) in directory", name, num);
}
res.mode[id] = mode;
res.num[id] = num;
res.tags[id] = tag;
res.name[id] = name;
res.address[id] = (byte **)alloc(num * sizeof(void *));
res.flags[id] = (byte *)alloc(num * sizeof(byte));
if (mode) {
res.roomno[id] = (byte *)alloc(num * sizeof(byte));
res.roomoffs[id] = (uint32 *)alloc(num * sizeof(uint32));
}
}
void Scumm::loadCharset(int no)
{
int i;
byte *ptr;
debug(9, "loadCharset(%d)", no);
memset(_charsetData, 0, sizeof(_charsetData));
checkRange(_maxCharsets - 1, 1, no, "Loading illegal charset %d");
// ensureResourceLoaded(6, no);
ptr = getResourceAddress(6, no);
for (i = 0; i < 15; i++) {
_charsetData[no][i + 1] = ptr[i + 14];
}
}
void Scumm::nukeCharset(int i)
{
checkRange(_maxCharsets - 1, 1, i, "Nuking illegal charset %d");
nukeResource(rtCharset, i);
}
void Scumm::ensureResourceLoaded(int type, int i)
{
void *addr;
debug(9, "ensureResourceLoaded(%d,%d)", type, i);
if (type == rtRoom && i > 127) {
i = _resourceMapper[i & 127];
}
if (i == 0)
return;
addr = res.address[type][i];
if (addr)
return;
loadResource(type, i);
if (!(_features & GF_AFTER_V7))
if (type == rtRoom && i == _roomResource)
_vars[VAR_ROOM_FLAG] = 1;
}
int Scumm::loadResource(int type, int idx)
{
int roomNr, i;
uint32 fileOffs;
uint32 size, tag;
// debug(1, "loadResource(%d,%d)", type,idx);
if (type == rtCharset && (_features & GF_SMALL_HEADER)) {
loadCharset(idx);
return (1);
}
roomNr = getResourceRoomNr(type, idx);
if (roomNr == 0 || idx >= res.num[type]) {
error("%s %d undefined", res.name[type], idx);
}
if (type == rtRoom) {
fileOffs = 0;
} else {
fileOffs = res.roomoffs[type][idx];
if (fileOffs == 0xFFFFFFFF)
return 0;
}
do {
for (i = 0; i < 5; i++) {
openRoom(roomNr);
fileSeek(_fileHandle, fileOffs + _fileOffset, SEEK_SET);
if (_features & GF_SMALL_HEADER) {
if (!(_features & GF_SMALL_NAMES))
fileSeek(_fileHandle, 8, SEEK_CUR);
size = fileReadDwordLE();
tag = fileReadWordLE();
fileSeek(_fileHandle, -6, SEEK_CUR);
} else {
if (type == rtSound) {
fileReadDwordLE();
fileReadDwordLE();
return readSoundResource(type, idx);
}
tag = fileReadDword();
if (tag != res.tags[type]) {
error("%s %d not in room %d at %d+%d",
res.name[type], type, roomNr, _fileOffset, fileOffs);
}
size = fileReadDwordBE();
fileSeek(_fileHandle, -8, SEEK_CUR);
}
fileRead(_fileHandle, createResource(type, idx, size), size);
/* dump the resource */
#ifdef DUMP_SCRIPTS
if (type == rtScript) {
dumpResource("script-", idx, getResourceAddress(rtScript, idx));
}
#endif
if (!fileReadFailed(_fileHandle)) {
return 1;
}
nukeResource(type, idx);
}
error("Cannot read resource");
} while (1);
}
int Scumm::readSoundResource(int type, int idx)
{
uint32 pos, total_size, size, tag, basetag;
int pri, best_pri;
uint32 best_size = 0, best_offs = 0;
debug(9, "readSoundResource(%d,%d)", type, idx);
pos = 0;
basetag = fileReadDword();
total_size = fileReadDwordBE();
if (_gameId == GID_SAMNMAX || _features & GF_AFTER_V7) {
if (basetag == MKID('MIDI')) {
fileSeek(_fileHandle, -8, SEEK_CUR);
fileRead(_fileHandle, createResource(type, idx, total_size + 8),
total_size + 8);
return 1;
}
} else if (basetag == MKID('SOU ')) {
best_pri = -1;
while (pos < total_size) {
tag = fileReadDword();
size = fileReadDwordBE() + 8;
pos += size;
pri = -1;
switch (tag) {
case MKID('ADL '):
if (_use_adlib)
pri = 10;
break;
case MKID('ROL '):
if (!_use_adlib)
pri = 1;
break;
case MKID('GMD '):
if (!_use_adlib)
pri = 2;
break;
}
if (pri > best_pri) {
best_pri = pri;
best_size = size;
best_offs = filePos(_fileHandle);
}
fileSeek(_fileHandle, size - 8, SEEK_CUR);
}
if (best_pri != -1) {
fileSeek(_fileHandle, best_offs - 8, SEEK_SET);
fileRead(_fileHandle, createResource(type, idx, best_size), best_size);
return 1;
}
} else if (FROM_LE_32(basetag) == 24) {
fileSeek(_fileHandle, -12, SEEK_CUR);
total_size = fileReadDwordBE();
fileSeek(_fileHandle, -8, SEEK_CUR);
fileRead(_fileHandle, createResource(type, idx, total_size), total_size);
return 1;
} else {
error("Unrecognized base tag %c%c%c%c in sound %d",
basetag & 0xff, basetag >> 8, basetag >> 16, basetag >> 24, idx);
}
res.roomoffs[type][idx] = 0xFFFFFFFF;
return 0;
}
int Scumm::getResourceRoomNr(int type, int idx)
{
if (type == rtRoom)
return idx;
return res.roomno[type][idx];
}
byte *Scumm::getResourceAddress(int type, int idx)
{
byte *ptr;
debug(9, "getResourceAddress(%d,%d)", type, idx);
CHECK_HEAP validateResource("getResourceAddress", type, idx);
if (!res.address[type])
return NULL;
if (res.mode[type] && !res.address[type][idx]) {
ensureResourceLoaded(type, idx);
}
if (!(ptr = (byte *)res.address[type][idx]))
return NULL;
setResourceCounter(type, idx, 1);
return ptr + sizeof(MemBlkHeader);
}
byte *Scumm::getStringAddress(int i)
{
byte *b = getResourceAddress(rtString, i);
if (!b)
return b;
if (_features & GF_NEW_OPCODES)
return ((ArrayHeader *)b)->data;
return b;
}
void Scumm::setResourceCounter(int type, int idx, byte flag)
{
res.flags[type][idx] &= ~RF_USAGE;
res.flags[type][idx] |= flag;
}
/* 2 bytes safety area to make "precaching" of bytes in the gdi drawer easier */
#define SAFETY_AREA 2
byte *Scumm::createResource(int type, int idx, uint32 size)
{
byte *ptr;
CHECK_HEAP debug(9, "createResource(%d,%d,%d)", type, idx, size);
if (size > 65536 * 4 + 37856)
warning("Probably invalid size allocating %d", size);
validateResource("allocating", type, idx);
nukeResource(type, idx);
expireResources(size);
CHECK_HEAP ptr = (byte *)alloc(size + sizeof(MemBlkHeader) + SAFETY_AREA);
if (ptr == NULL) {
error("Out of memory while allocating %d", size);
}
_allocatedSize += size;
res.address[type][idx] = ptr;
((MemBlkHeader *)ptr)->size = size;
setResourceCounter(type, idx, 1);
return ptr + sizeof(MemBlkHeader); /* skip header */
}
void Scumm::validateResource(const char *str, int type, int idx)
{
if (type < rtFirst || type > rtLast || (uint) idx >= (uint) res.num[type]) {
warning("%s Illegal Glob type %d num %d", str, type, idx);
}
}
void Scumm::nukeResource(int type, int idx)
{
byte *ptr;
debug(9, "nukeResource(%d,%d)", type, idx);
CHECK_HEAP if (!res.address[type])
return;
assert(idx >= 0 && idx < res.num[type]);
if ((ptr = res.address[type][idx]) != NULL) {
res.address[type][idx] = 0;
res.flags[type][idx] = 0;
_allocatedSize -= ((MemBlkHeader *)ptr)->size;
free(ptr);
}
}
byte *Scumm::findResourceData(uint32 tag, byte *ptr)
{
if (_features & GF_SMALL_HEADER) {
ptr = findResourceSmall(tag, ptr, 0);
if (ptr == NULL)
return NULL;
return ptr + 6;
}
ptr = findResource(tag, ptr, 0);
if (ptr == NULL)
return NULL;
return ptr + 8;
}
int Scumm::getResourceDataSize(byte *ptr)
{
if (ptr == NULL)
return 0;
if (_features & GF_SMALL_HEADER)
return READ_LE_UINT32(ptr) - 6;
else
return READ_BE_UINT32(ptr - 4) - 8;
}
struct FindResourceState {
uint32 size, pos;
byte *ptr;
};
/* just O(N) complexity when iterating with this function */
byte *findResource(uint32 tag, byte *searchin)
{
uint32 size;
static FindResourceState frs;
FindResourceState *f = &frs; /* easier to make it thread safe like this */
if (searchin) {
f->size = READ_BE_UINT32_UNALIGNED(searchin + 4);
f->pos = 8;
f->ptr = searchin + 8;
goto StartScan;
}
do {
size = READ_BE_UINT32_UNALIGNED(f->ptr + 4);
if ((int32) size <= 0)
return NULL;
f->pos += size;
f->ptr += size;
StartScan:
if (f->pos >= f->size)
return NULL;
} while (READ_UINT32_UNALIGNED(f->ptr) != tag);
return f->ptr;
}
byte *findResourceSmall(uint32 tag, byte *searchin)
{
uint32 size;
static FindResourceState frs;
FindResourceState *f = &frs; /* easier to make it thread safe like this */
uint16 smallTag;
smallTag = newTag2Old(tag);
if (searchin) {
f->size = READ_LE_UINT32(searchin);
f->pos = 6;
f->ptr = searchin + 6;
goto StartScan;
}
do {
size = READ_LE_UINT32(f->ptr);
if ((int32) size <= 0)
return NULL;
f->pos += size;
f->ptr += size;
StartScan:
if (f->pos >= f->size)
return NULL;
} while (READ_LE_UINT16(f->ptr + 4) != smallTag);
return f->ptr;
}
byte *findResource(uint32 tag, byte *searchin, int idx)
{
uint32 curpos, totalsize, size;
assert(searchin);
searchin += 4;
totalsize = READ_BE_UINT32_UNALIGNED(searchin);
curpos = 8;
searchin += 4;
while (curpos < totalsize) {
if (READ_UINT32_UNALIGNED(searchin) == tag && !idx--)
return searchin;
size = READ_BE_UINT32_UNALIGNED(searchin + 4);
if ((int32) size <= 0) {
error("(%c%c%c%c) Not found in %d... illegal block len %d",
tag & 0xFF, (tag >> 8) & 0xFF, (tag >> 16) & 0xFF,
(tag >> 24) & 0xFF, 0, size);
return NULL;
}
curpos += size;
searchin += size;
}
return NULL;
}
byte *findResourceSmall(uint32 tag, byte *searchin, int idx)
{
uint32 curpos, totalsize, size;
uint16 smallTag;
smallTag = newTag2Old(tag);
assert(searchin);
totalsize = READ_LE_UINT32(searchin);
searchin += 6;
curpos = 6;
while (curpos < totalsize) {
size = READ_LE_UINT32(searchin);
if (READ_LE_UINT16(searchin + 4) == smallTag && !idx--)
return searchin;
if ((int32) size <= 0) {
error("(%c%c%c%c) Not found in %d... illegal block len %d",
tag & 0xFF, (tag >> 8) & 0xFF, (tag >> 16) & 0xFF,
(tag >> 24) & 0xFF, 0, size);
return NULL;
}
curpos += size;
searchin += size;
}
return NULL;
}
void Scumm::lock(int type, int i)
{
validateResource("Locking", type, i);
res.flags[type][i] |= RF_LOCK;
// debug(1, "locking %d,%d", type, i);
}
void Scumm::unlock(int type, int i)
{
validateResource("Unlocking", type, i);
res.flags[type][i] &= ~RF_LOCK;
// debug(1, "unlocking %d,%d", type, i);
}
bool Scumm::isResourceInUse(int type, int i)
{
validateResource("isResourceInUse", type, i);
switch (type) {
case rtRoom:
return _roomResource == (byte)i;
case rtScript:
return isScriptInUse(i);
case rtCostume:
return isCostumeInUse(i);
case rtSound:
return isSoundRunning(i) != 0;
default:
return false;
}
}
void Scumm::increaseResourceCounter()
{
int i, j;
byte counter;
for (i = rtFirst; i <= rtLast; i++) {
for (j = res.num[i]; --j >= 0;) {
counter = res.flags[i][j] & RF_USAGE;
if (counter && counter < RF_USAGE_MAX) {
setResourceCounter(i, j, counter + 1);
}
}
}
}
void Scumm::expireResources(uint32 size)
{
int i, j;
byte flag;
byte best_counter;
int best_type, best_res = 0;
uint32 oldAllocatedSize;
// return;
if (_expire_counter != 0xFF) {
_expire_counter = 0xFF;
increaseResourceCounter();
}
if (size + _allocatedSize < _maxHeapThreshold)
return;
oldAllocatedSize = _allocatedSize;
do {
best_type = 0;
best_counter = 2;
for (i = rtFirst; i <= rtLast; i++)
if (res.mode[i]) {
for (j = res.num[i]; --j >= 0;) {
flag = res.flags[i][j];
if (!(flag & 0x80) && flag >= best_counter
&& res.address[i][j] && !isResourceInUse(i, j)) {
best_counter = flag;
best_type = i;
best_res = j;
}
}
}
if (!best_type)
break;
nukeResource(best_type, best_res);
} while (size + _allocatedSize > _minHeapThreshold);
increaseResourceCounter();
debug(1, "Expired resources, mem %d -> %d", oldAllocatedSize,
_allocatedSize);
}
void Scumm::freeResources()
{
int i, j;
for (i = rtFirst; i <= rtLast; i++) {
for (j = res.num[i]; --j >= 0;) {
if (isResourceLoaded(i, j))
nukeResource(i, j);
}
free(res.address[i]);
free(res.flags[i]);
free(res.roomno[i]);
free(res.roomoffs[i]);
}
}
void Scumm::loadPtrToResource(int type, int resindex, byte *source)
{
byte *alloced;
int i, len;
nukeResource(type, resindex);
len = getStringLen(source);
if (len <= 0)
return;
alloced = createResource(type, resindex, len);
if (!source) {
alloced[0] = fetchScriptByte();
for (i = 1; i < len; i++)
alloced[i] = *_scriptPointer++;
} else {
for (i = 0; i < len; i++)
alloced[i] = source[i];
}
}
bool Scumm::isResourceLoaded(int type, int idx)
{
validateResource("isLoaded", type, idx);
return res.address[type][idx] != NULL;
}
void Scumm::resourceStats()
{
int i, j;
uint32 lockedSize = 0, lockedNum = 0;
byte flag;
for (i = rtFirst; i <= rtLast; i++)
for (j = res.num[i]; --j >= 0;) {
flag = res.flags[i][j];
if (flag & 0x80 && res.address[i][j]) {
lockedSize += ((MemBlkHeader *)res.address[i][j])->size;
lockedNum++;
}
}
printf("Total allocated size=%ld, locked=%ld(%ld)\n", _allocatedSize,
lockedSize, lockedNum);
}
void Scumm::heapClear(int mode)
{
}
void Scumm::unkHeapProc2(int a, int b)
{
}
void Scumm::readMAXS()
{
if (_features & GF_AFTER_V7) {
fileSeek(_fileHandle, 50 + 50, SEEK_CUR);
_numVariables = fileReadWordLE();
_numBitVariables = fileReadWordLE();
fileReadWordLE();
_numGlobalObjects = fileReadWordLE();
_numLocalObjects = fileReadWordLE();
_numNewNames = fileReadWordLE();
_numVerbs = fileReadWordLE();
_numFlObject = fileReadWordLE();
_numInventory = fileReadWordLE();
_numArray = fileReadWordLE();
_numRooms = fileReadWordLE();
_numScripts = fileReadWordLE();
_numSounds = fileReadWordLE();
_numCharsets = fileReadWordLE();
_numCostumes = fileReadWordLE();
_objectRoomTable = (byte *)alloc(_numGlobalObjects);
_numGlobalScripts = 2000;
_shadowPaletteSize = NUM_SHADOW_PALETTE * 256;
} else if (_features & GF_AFTER_V6) {
_numVariables = fileReadWordLE();
fileReadWordLE();
_numBitVariables = fileReadWordLE();
_numLocalObjects = fileReadWordLE();
_numArray = fileReadWordLE();
fileReadWordLE();
_numVerbs = fileReadWordLE();
_numFlObject = fileReadWordLE();
_numInventory = fileReadWordLE();
_numRooms = fileReadWordLE();
_numScripts = fileReadWordLE();
_numSounds = fileReadWordLE();
_numCharsets = fileReadWordLE();
_numCostumes = fileReadWordLE();
_numGlobalObjects = fileReadWordLE();
_numNewNames = 50;
_objectRoomTable = NULL;
_numGlobalScripts = 200;
_shadowPaletteSize = 256;
} else {
_numVariables = fileReadWordLE(); /* 800 */
fileReadWordLE(); /* 16 */
_numBitVariables = fileReadWordLE(); /* 2048 */
_numLocalObjects = fileReadWordLE(); /* 200 */
_numArray = 50;
_numVerbs = 100;
_numNewNames = 0;
_objectRoomTable = NULL;
fileReadWordLE(); /* 50 */
_numCharsets = fileReadWordLE(); /* 9 */
fileReadWordLE(); /* 100 */
fileReadWordLE(); /* 50 */
_numInventory = fileReadWordLE(); /* 80 */
_numGlobalScripts = 200;
_shadowPaletteSize = 256;
_numFlObject = 50;
}
if (_shadowPaletteSize)
_shadowPalette = (byte *)alloc(_shadowPaletteSize);
allocateArrays();
_dynamicRoomOffsets = 1;
}
void Scumm::allocateArrays()
{
// Note: Buffers are now allocated in scummMain to allow for
// early GUI init.
_objectOwnerTable = (byte *)alloc(_numGlobalObjects);
_objectStateTable = (byte *)alloc(_numGlobalObjects);
_classData = (uint32 *)alloc(_numGlobalObjects * sizeof(uint32));
_arrays = (byte *)alloc(_numArray);
_newNames = (uint16 *)alloc(_numNewNames * sizeof(uint16));
_inventory = (uint16 *)alloc(_numInventory * sizeof(uint16));
_verbs = (VerbSlot *)alloc(_numVerbs * sizeof(VerbSlot));
_objs = (ObjectData *)alloc(_numLocalObjects * sizeof(ObjectData));
_vars = (int16 *) alloc(_numVariables * sizeof(int16));
_bitVars = (byte *)alloc(_numBitVariables >> 3);
allocResTypeData(rtCostume,
(_features & GF_NEW_COSTUMES) ? MKID('AKOS') :
MKID('COST'), _numCostumes, "costume", 1);
allocResTypeData(rtRoom, MKID('ROOM'), _numRooms, "room", 1);
allocResTypeData(rtSound, MKID('SOUN'), _numSounds, "sound", 1);
allocResTypeData(rtScript, MKID('SCRP'), _numScripts, "script", 1);
allocResTypeData(rtCharset, MKID('CHAR'), _numCharsets, "charset", 1);
allocResTypeData(rtObjectName, MKID('NONE'), _numNewNames, "new name", 0);
allocResTypeData(rtInventory, MKID('NONE'), _numInventory, "inventory", 0);
allocResTypeData(rtTemp, MKID('NONE'), 10, "temp", 0);
allocResTypeData(rtScaleTable, MKID('NONE'), 5, "scale table", 0);
allocResTypeData(rtActorName, MKID('NONE'), NUM_ACTORS, "actor name", 0);
allocResTypeData(rtVerb, MKID('NONE'), _numVerbs, "verb", 0);
allocResTypeData(rtString, MKID('NONE'), _numArray, "array", 0);
allocResTypeData(rtFlObject, MKID('NONE'), _numFlObject, "flobject", 0);
allocResTypeData(rtMatrix, MKID('NONE'), 10, "boxes", 0);
}
uint16 newTag2Old(uint32 oldTag)
{
switch (oldTag) {
case (MKID('RMHD')):
return (0x4448);
break;
case (MKID('IM00')):
return (0x4D42);
break;
case (MKID('EXCD')):
return (0x5845);
break;
case (MKID('ENCD')):
return (0x4E45);
break;
case (MKID('SCAL')):
return (0x4153);
break;
case (MKID('LSCR')):
return (0x534C);
break;
case (MKID('OBCD')):
return (0x434F);
break;
case (MKID('OBIM')):
return (0x494F);
break;
case (MKID('SMAP')):
return (0x4D42);
break;
case (MKID('CLUT')):
return (0x4150);
break;
case (MKID('BOXD')):
return (0x5842);
break;
default:
return (0);
}
}
Reference in New Issue View Git Blame Copy Permalink