libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-23 02:11:38 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
568a4bd839
scummvm/sword2/resman.cpp
Torbjörn Andersson 568a4bd839 Changed the resource manager object to use more ScummVM-like naming. 
svn-id: r10499
2003-09-30 09:27:27 +00:00

1442 lines
37 KiB
C++
Raw Blame History

/* Copyright (C) 1994-2003 Revolution Software Ltd
*
* 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 <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include "stdafx.h"
#include "base/engine.h"
#include "common/file.h"
#include "driver/driver96.h"
#include "build_display.h"
#include "console.h"
#include "debug.h"
#include "defs.h"
#include "function.h"
#include "header.h"
#include "interpreter.h"
#include "maketext.h"
#include "memory.h"
#include "mouse.h" // for system Set_mouse & Set_luggage routines
#include "protocol.h"
#include "resman.h"
#include "sound.h" // for Clear_fx_queue() called from cacheNewCluster()
#include "sword2.h" // for CloseGame()
#include "router.h"
// ---------------------------------------------------------------------------
// welcome to the easy resource manager - written in simple code for easy
// maintenance
//
// the resource compiler will create two files
//
// resource.inf which is a list of ascii cluster file names
// resource.tab which is a table which tells us which cluster a resource
// is located in and the number within the cluster
// ---------------------------------------------------------------------------
#define NONE 0
#define FETCHING 1
#define BUFFERSIZE 4096
ResourceManager res_man; //declare the object global
// ---------------------------------------------------------------------------
//
//
// resman.
//
//
// ---------------------------------------------------------------------------
#define BOTH 0x0 // Cluster is on both CDs
#define CD1 0x1 // Cluster is on CD1 only
#define CD2 0x2 // Cluster is on CD2 only
#define LOCAL_CACHE 0x4 // Cluster is cached on HDD
#define LOCAL_PERM 0x8 // Cluster is on HDD.
#if !defined(__GNUC__)
#pragma START_PACK_STRUCTS
#endif
typedef struct {
uint8 clusterName[20]; // Null terminated cluster name.
uint8 cd; // Cd cluster is on and whether it is on the local drive or not.
} GCC_PACK _cd_inf;
#if !defined(__GNUC__)
#pragma END_PACK_STRUCTS
#endif
// FIXME: Should init() / exit() be moved to constructor / destructor instead?
void ResourceManager::init(void) {
// We read in the resource info which tells us the names of the
// resource cluster files ultimately, although there might be groups
// within the clusters at this point it makes no difference. We only
// wish to know what resource files there are and what is in each
File file;
uint32 end;
mem *temp;
uint32 pos = 0;
uint32 j = 0;
_totalClusters = 0;
if (!file.open("resource.inf")) {
error("init cannot *OPEN* resource.inf");
}
end = file.size();
//get some space for the incoming resource file - soon to be trashed
temp = Twalloc(end, MEM_locked, UID_temp);
if (file.read(temp->ad, end) != end) {
file.close();
error("init cannot *READ* resource.inf");
}
file.close();
// ok, we've loaded in the resource.inf file which contains a list of
// all the files now extract the filenames
do {
// item must have an #0d0a
while(temp->ad[j] != 13) {
_resourceFiles[_totalClusters][pos] = temp->ad[j];
j++;
pos++;
}
// NULL terminate our extracted string
_resourceFiles[_totalClusters][pos]=0;
// Reset position in current slot between entries, skip the
// 0x0a in the source and increase the number of clusters.
pos = 0;
j += 2;
_totalClusters++;
// TODO: put overload check here
} while (j != end); // using this method the Gode generated resource.inf must have #0d0a on the last entry
// now load in the binary id to res conversion table
if (!file.open("resource.tab")) {
error("init cannot *OPEN* resource.tab");
}
// find how many resources
end = file.size();
_totalResFiles = end / 4;
// table seems ok so malloc some space
_resConvTable = (uint16 *) malloc(end);
for (j = 0; j < end / 2; j++)
_resConvTable[j] = file.readUint16LE();
if (file.ioFailed()) {
file.close();
error("init cannot *READ* resource.tab");
}
file.close();
if (!file.open("cd.inf")) {
error("init cannot *OPEN* cd.inf");
}
_cd_inf *cdInf = new _cd_inf[_totalClusters];
for (j = 0; j < _totalClusters; j++) {
file.read(cdInf[j].clusterName, sizeof(cdInf[j].clusterName));
cdInf[j].cd = file.readByte();
if (file.ioFailed()) {
error("init failed to read cd.inf. Insufficient entries?");
}
}
file.close();
for (j = 0; j < _totalClusters; j++) {
uint32 i = 0;
while (scumm_stricmp((char *) cdInf[i].clusterName, _resourceFiles[j]) != 0 && i < _totalClusters)
i++;
if (i == _totalClusters) {
error("init, %s is not in cd.inf", _resourceFiles[j]);
} else
_cdTab[j] = cdInf[i].cd;
}
debug(5, "%d resources in %d cluster files", _totalResFiles, _totalClusters);
for (j = 0; j < _totalClusters; j++)
debug(5, "filename of cluster %d: -%s", j, _resourceFiles[j]);
// create space for a list of pointers to mem's
_resList = (mem **) malloc(_totalResFiles * sizeof(mem *));
_age = (uint32 *) malloc(_totalResFiles * sizeof(uint32));
_count = (uint16 *) malloc(_totalResFiles * sizeof(uint16));
for (j = 0; j < _totalResFiles; j++) {
// age must be 0 if the file is not in memory at all
_age[j] = 0;
_count[j] = 0;
}
_resTime = 1; //cannot start at 0
Free_mem(temp); //get that memory back
// FIXME: Is this really needed?
if (!file.open("revcd1.id")) {
int index = 0;
/*
// Scan for CD drives.
for (char c = 'C'; c <= 'Z'; c++) {
sprintf(_cdPath, "%c:\\", c);
if (GetDriveType(_cdPath) == DRIVE_CDROM)
_cdDrives[index++] = c;
}
*/
_cdDrives[index++] = 'C';
if (index == 0) {
error("init, cannot find CD drive");
}
while (index < 24)
_cdDrives[index++] = 0;
}
else
file.close();
}
void ResourceManager::exit(void) {
// free up our mallocs
free(_resList);
free(_age);
free(_count);
}
// Quick macro to make swapping in-place easier to write
#define SWAP16(x) x = SWAP_BYTES_16(x)
#define SWAP32(x) x = SWAP_BYTES_32(x)
void convertEndian(uint8 *file, uint32 len) {
int i;
_standardHeader *hdr = (_standardHeader *)file;
file += sizeof(_standardHeader);
SWAP32(hdr->compSize);
SWAP32(hdr->decompSize);
switch (hdr->fileType) {
case ANIMATION_FILE: {
_animHeader *animHead = (_animHeader *)file;
SWAP16(animHead->noAnimFrames);
SWAP16(animHead->feetStartX);
SWAP16(animHead->feetStartY);
SWAP16(animHead->feetEndX);
SWAP16(animHead->feetEndY);
SWAP16(animHead->blend);
_cdtEntry *cdtEntry = (_cdtEntry *) (file + sizeof(_animHeader));
for (i = 0; i < animHead->noAnimFrames; i++, cdtEntry++) {
SWAP16(cdtEntry->x);
SWAP16(cdtEntry->y);
SWAP32(cdtEntry->frameOffset);
_frameHeader *frameHeader = (_frameHeader *) (file + cdtEntry->frameOffset);
// Quick trick to prevent us from incorrectly applying the endian
// fixes multiple times. This assumes that frames are less than 1 MB
// and have height/width less than 4096.
if ((frameHeader->compSize & 0xFFF00000) ||
(frameHeader->width & 0xF000) ||
(frameHeader->height & 0xF000)) {
SWAP32(frameHeader->compSize);
SWAP16(frameHeader->width);
SWAP16(frameHeader->height);
}
}
break;
}
case SCREEN_FILE: {
_multiScreenHeader *mscreenHeader = (_multiScreenHeader *) file;
SWAP32(mscreenHeader->palette);
SWAP32(mscreenHeader->bg_parallax[0]);
SWAP32(mscreenHeader->bg_parallax[1]);
SWAP32(mscreenHeader->screen);
SWAP32(mscreenHeader->fg_parallax[0]);
SWAP32(mscreenHeader->fg_parallax[1]);
SWAP32(mscreenHeader->layers);
SWAP32(mscreenHeader->paletteTable);
SWAP32(mscreenHeader->maskOffset);
// screenHeader
_screenHeader *screenHeader = (_screenHeader*) (file + mscreenHeader->screen);
SWAP16(screenHeader->width);
SWAP16(screenHeader->height);
SWAP16(screenHeader->noLayers);
// layerHeader
_layerHeader *layerHeader = (_layerHeader *) (file + mscreenHeader->layers);
for (i = 0; i < screenHeader->noLayers; i++, layerHeader++) {
SWAP16(layerHeader->x);
SWAP16(layerHeader->y);
SWAP16(layerHeader->width);
SWAP16(layerHeader->height);
SWAP32(layerHeader->maskSize);
SWAP32(layerHeader->offset);
}
// backgroundParallaxLayer
_parallax *parallax;
int offset;
offset = mscreenHeader->bg_parallax[0];
if (offset > 0) {
parallax = (_parallax *) (file + offset);
SWAP16(parallax->w);
SWAP16(parallax->h);
}
offset = mscreenHeader->bg_parallax[1];
if (offset > 0) {
parallax = (_parallax *) (file + offset);
SWAP16(parallax->w);
SWAP16(parallax->h);
}
// backgroundLayer
offset = mscreenHeader->screen + sizeof(_screenHeader);
if (offset > 0) {
parallax = (_parallax *) (file + offset);
SWAP16(parallax->w);
SWAP16(parallax->h);
}
// foregroundParallaxLayer
offset = mscreenHeader->fg_parallax[0];
if (offset > 0) {
parallax = (_parallax *) (file + offset);
SWAP16(parallax->w);
SWAP16(parallax->h);
}
offset = mscreenHeader->fg_parallax[1];
if (offset > 0) {
parallax = (_parallax *) (file + offset);
SWAP16(parallax->w);
SWAP16(parallax->h);
}
break;
}
case GAME_OBJECT: {
_object_hub *objectHub = (_object_hub *)file;
objectHub->type = (int)SWAP_BYTES_32(objectHub->type);
SWAP32(objectHub->logic_level);
for (i = 0; i < TREE_SIZE; i++) {
SWAP32(objectHub->logic[i]);
SWAP32(objectHub->script_id[i]);
SWAP32(objectHub->script_pc[i]);
}
break;
}
case WALK_GRID_FILE: {
_walkGridHeader *walkGridHeader = (_walkGridHeader *)file;
SWAP32(walkGridHeader->numBars);
SWAP32(walkGridHeader->numNodes);
_barData *barData = (_barData *) (file + sizeof(_walkGridHeader));
for (i = 0; i < walkGridHeader->numBars; i++) {
SWAP16(barData->x1);
SWAP16(barData->y1);
SWAP16(barData->x2);
SWAP16(barData->y2);
SWAP16(barData->xmin);
SWAP16(barData->ymin);
SWAP16(barData->xmax);
SWAP16(barData->ymax);
SWAP16(barData->dx);
SWAP16(barData->dy);
SWAP32(barData->co);
barData++;
}
uint16 *node = (uint16 *) (file + sizeof(_walkGridHeader) + walkGridHeader->numBars * sizeof(_barData));
for (i = 0; i < walkGridHeader->numNodes*2; i++) {
SWAP16(*node);
node++;
}
break;
}
case GLOBAL_VAR_FILE:
break;
case PARALLAX_FILE_null:
break;
case RUN_LIST: {
uint32 *list = (uint32 *)file;
while (*list) {
SWAP32(*list);
list++;
}
break;
}
case TEXT_FILE: {
_textHeader *textHeader = (_textHeader *)file;
SWAP32(textHeader->noOfLines);
break;
}
case SCREEN_MANAGER:
break;
case MOUSE_FILE:
break;
case ICON_FILE:
break;
}
}
uint8 *ResourceManager::open(uint32 res) {
// returns ad of resource. Loads if not in memory
// retains a count
// resource can be aged out of memory if count = 0
// the resource is locked while count != 0 i.e. until a res_close is
// called
File file;
uint16 parent_res_file;
uint16 actual_res;
uint32 pos, len;
uint32 table_offset;
//#ifdef _SWORD2_DEBUG
if (res >= _totalResFiles)
Con_fatal_error("open illegal resource %d (there are %d resources 0-%d)", res, _totalResFiles, _totalResFiles - 1);
//#endif
// is the resource in memory already?
// if the file is not in memory then age should and MUST be 0
if (!_age[res]) {
// fetch the correct file and read in the correct portion
// if the file cannot fit then we must trash the oldest large
// enough floating file
// points to the number of the ascii filename
parent_res_file = _resConvTable[res * 2];
//#ifdef _SWORD2_DEBUG
if (parent_res_file == 0xffff)
Con_fatal_error("open tried to open null & void resource number %d", res);
//#endif
// relative resource within the file
actual_res = _resConvTable[(res * 2) + 1];
// first we have to find the file via the _resConvTable
debug(5, "resOpen %s res %d", _resourceFiles[parent_res_file], res);
// ** at this point here we start to think about where the
// ** file is and prompt the user for the right CD to be
// ** inserted
// **
// ** we need to know the position that we're at within the
// ** game - LINC should write this someplace.
/* these probably aren't necessary - khalek
if (!(_cdTab[parent_res_file] & LOCAL_CACHE) && !(_cdTab[parent_res_file] & LOCAL_PERM)) {
// This cluster is on a CD, we need to cache a new one.
cacheNewCluster(parent_res_file);
} else if (!(_cdTab[parent_res_file] & LOCAL_PERM)) {
// Makes sure that the correct CD is in the drive.
getCd(_cdTab[parent_res_file] & 3);
}
*/
// This part of the cluster caching is pretty useful though:
//
// If we're loading a cluster that's only available from one
// of the CDs, remember which one so that we can play the
// correct music.
//
// The code to ask for the correct CD will probably be needed
// later, too.
//
// And there's some music / FX stuff in cacheNewCluster() that
// might be needed as well.
//
// But this will do for now.
if (!(_cdTab[parent_res_file] & LOCAL_PERM)) {
_curCd = _cdTab[parent_res_file] & 3;
}
// open the cluster file
if (!file.open(_resourceFiles[parent_res_file]))
Con_fatal_error("open cannot *OPEN* %s", _resourceFiles[parent_res_file]);
// 1st DWORD of a cluster is an offset to the look-up table
table_offset = file.readUint32LE();
debug(5, "table offset = %d", table_offset);
// 2 dwords per resource
file.seek(table_offset + actual_res * 8, SEEK_SET);
// get position of our resource within the cluster file
pos = file.readUint32LE();
// read the length
len = file.readUint32LE();
// ** get to position in file of our particular resource
file.seek(pos, SEEK_SET);
debug(5, "res len %d", len);
// ok, we know the length so try and allocate the memory
// if it can't then old files will be ditched until it works
_resList[res] = Twalloc(len, MEM_locked, res);
/* This probably isn't needed
// Do a quick ServiceWindows to stop the music screwing up.
ServiceWindows();
*/
// now load the file
// hurray, load it in.
file.read(_resList[res]->ad, len);
//close the cluster
file.close();
#ifdef SCUMM_BIG_ENDIAN
convertEndian((uint8 *) _resList[res]->ad, len);
#endif
} else {
debug(5, "RO %d, already open count=%d", res, _count[res]);
}
// number of times opened - the file won't move in memory while count
// is non zero
_count[res]++;
// update the accessed time stamp - touch the file in other words
_age[res] = _resTime;
// pass the address of the mem & lock the memory too
// might be locked already (if count > 1)
Lock_mem(_resList[res]);
return (uint8 *) _resList[res]->ad;
}
uint8 ResourceManager::checkValid(uint32 res) {
// returns '1' if resource is valid, otherwise returns '0'
// used in startup.cpp to ignore invalid screen-manager resources
uint16 parent_res_file;
// resource number out of range
if (res >= _totalResFiles)
return 0;
// points to the number of the ascii filename
parent_res_file = _resConvTable[res * 2];
// null & void resource
if (parent_res_file == 0xffff)
return 0;
// ok
return 1;
}
void ResourceManager::nextCycle(void) {
// increment the cycle and calculate actual per-cycle memory useage
#ifdef _SWORD2_DEBUG
uint32 j;
#endif
#ifdef _SWORD2_DEBUG
_currentMemoryUsage = 0;
for (j = 1; j < _totalResFiles; j++) {
// was accessed last cycle
if (_age[j] == _resTime)
_currentMemoryUsage += _resList[j]->size;
}
#endif
_resTime++;
// if you left the game running for a hundred years when this went to 0
// there'd be a resource left stuck in memory - after another hundred
// years there'd be another...
//
// Mind you, by then the our get_msecs() function will have wrapped
// around too, probably causing a mess of other problems.
if (!_resTime)
_resTime++;
}
uint32 ResourceManager::fetchUsage(void) {
// returns memory usage previous cycle
return _currentMemoryUsage;
}
void ResourceManager::close(uint32 res) {
// decrements the count
// resource floats when count = 0
//#ifdef _SWORD2_DEBUG
if (res >= _totalResFiles)
Con_fatal_error("closing illegal resource %d (there are %d resources 0-%d)", res, _totalResFiles, _totalResFiles - 1);
//closing but isnt open?
if (!(_count[res]))
Con_fatal_error("close: closing %d but it isn't open", res);
//#endif
//one less has it open
_count[res]--;
//if noone has the file open then unlock and allow to float
if (!_count[res]) {
Float_mem(_resList[res]); // pass the address of the mem
}
}
uint32 ResourceManager::fetchLen(uint32 res) {
// returns the total file length of a resource - i.e. all headers are
// included too
File fh;
uint16 parent_res_file;
uint16 actual_res;
uint32 len;
uint32 table_offset;
// points to the number of the ascii filename
parent_res_file = _resConvTable[res * 2];
// relative resource within the file
actual_res = _resConvTable[(res * 2) + 1];
// first we have to find the file via the _resConvTable
// open the cluster file
if (!fh.open(_resourceFiles[parent_res_file]))
Con_fatal_error("fetchLen cannot *OPEN* %s", _resourceFiles[parent_res_file]);
// 1st DWORD of a cluster is an offset to the look-up table
table_offset = fh.readUint32LE();
// 2 dwords per resource + skip the position dword
fh.seek(table_offset + (actual_res * 8) + 4, SEEK_SET);
// read the length
len = fh.readUint32LE();
return len;
}
char *ResourceManager::fetchCluster(uint32 res) {
// returns a pointer to the ascii name of the cluster file which
// contains resource res
return _resourceFiles[_resConvTable[res * 2]];
}
uint32 ResourceManager::fetchAge(uint32 res) {
// return the age of res
return _age[res];
}
uint32 ResourceManager::fetchCount(uint32 res) {
// return the open count of res
return _count[res];
}
uint32 ResourceManager::helpTheAgedOut(void) {
// remove from memory the oldest closed resource
uint32 oldest_res; // holds id of oldest found so far when we have to chuck stuff out of memory
uint32 oldest_age; // age of above during search
uint32 j;
uint32 largestResource = 0;
oldest_age = _resTime;
oldest_res = 0;
for (j = 2; j < _totalResFiles; j++) {
// not held open and older than this one
if (!_count[j] && _age[j] && _age[j] <= oldest_age) {
if (_age[j] == oldest_age && _resList[j]->size > largestResource) {
// Kick old resource of oldest age and largest
// size (Helps the poor defragger).
oldest_res = j;
largestResource = _resList[j]->size;
} else if (_age[j] < oldest_age) {
oldest_res = j;
oldest_age = _age[j];
largestResource = _resList[j]->size;
}
}
}
// there was not a file we could release
// no bytes released - oh dear, lets hope this never happens
if (!oldest_res)
return 0;
debug(5, "removing %d, age %d, size %d", oldest_res, _age[oldest_res], _resList[oldest_res]->size);
// trash this old resource
_age[oldest_res] = 0; // effectively gone from _resList
Free_mem(_resList[oldest_res]); // release the memory too
return _resList[oldest_res]->size; // return bytes freed
}
void ResourceManager::printConsoleClusters(void) {
uint32 j;
if (_totalClusters) {
for (j = 0; j < _totalClusters; j++)
Print_to_console(" %s", _resourceFiles[j]);
Print_to_console(" %d resources", _totalResFiles);
} else
Print_to_console(" argh! No resources");
Scroll_console();
}
void ResourceManager::examine(uint8 *input) {
uint32 j = 0;
uint32 res;
_standardHeader *file_header;
do {
if (input[j] >= '0' && input[j] <= '9')
j++;
else
break;
} while(input[j]);
// didn't quit out of loop on a non numeric chr$
if (!input[j]) {
res = atoi((char*) input);
if (!res)
Print_to_console("illegal resource");
else if (res >= _totalResFiles)
Print_to_console("illegal resource %d (there are %d resources 0-%d)", res, _totalResFiles, _totalResFiles - 1);
else if (_resConvTable[res * 2] == 0xffff)
Print_to_console("%d is a null & void resource number", res);
else {
//open up the resource and take a look inside!
file_header = (_standardHeader*) res_man.open(res);
// Print_to_console("%d", file_header->fileType);
// Print_to_console("%s", file_header->name);
//----------------------------------------------------
// resource types: (taken from header.h)
// 1: ANIMATION_FILE
// all normal animations & sprites including
// mega-sets & font files which are the same
// format
// 2: SCREEN_FILE
// each contains background, palette, layer
// sprites, parallax layers & shading mask
// 3: GAME_OBJECT
// each contains object hub + structures + script
// data
// 4: WALK_GRID_FILE
// walk-grid data
// 5: GLOBAL_VAR_FILE
// all the global script variables in one file;
// "there can be only one"
// 6: PARALLAX_FILE_null
// NOT USED
// 7: RUN_LIST
// each contains a list of object resource id's
// 8: TEXT_FILE
// each contains all the lines of text for a
// location or a character's conversation script
// 9: SCREEN_MANAGER
// one for each location; this contains special
// startup scripts
// 10: MOUSE_FILE
// mouse pointers and luggage icons (sprites in
// General \ Mouse pointers & Luggage icons)
// 11: WAV_FILE
// NOT USED HERE
// 12: ICON_FILE
// menu icon (sprites in General \ Menu icons)
// 13: PALETTE_FILE
// NOT USED HERE
//----------------------------------------------------
switch (file_header->fileType) {
case ANIMATION_FILE:
Print_to_console(" <anim> %s", file_header->name);
break;
case SCREEN_FILE:
Print_to_console(" <layer> %s", file_header->name);
break;
case GAME_OBJECT:
Print_to_console(" <game object> %s", file_header->name);
break;
case WALK_GRID_FILE:
Print_to_console(" <walk grid> %s", file_header->name);
break;
case GLOBAL_VAR_FILE:
Print_to_console(" <global variables> %s", file_header->name);
break;
case PARALLAX_FILE_null:
Print_to_console(" <parallax file NOT USED!> %s", file_header->name);
break;
case RUN_LIST:
Print_to_console(" <run list> %s", file_header->name);
break;
case TEXT_FILE:
Print_to_console(" <text file> %s", file_header->name);
break;
case SCREEN_MANAGER:
Print_to_console(" <screen manager> %s", file_header->name);
break;
case MOUSE_FILE:
Print_to_console(" <mouse pointer> %s", file_header->name);
break;
case ICON_FILE:
Print_to_console(" <menu icon> %s", file_header->name);
break;
default:
Print_to_console(" unrecognised fileType %d", file_header->fileType);
break;
}
res_man.close(res);
}
} else {
Print_to_console("try typing a number");
}
}
void ResourceManager::kill(uint8 *input) {
int j = 0;
uint32 res;
do {
if (input[j] >= '0' && input[j] <= '9')
j++;
else
break;
} while (input[j]);
// didn't quit out of loop on a non numeric chr$
if (!input[j]) {
res = atoi((char*) input);
// #ifdef _SWORD2_DEBUG
if (!res)
Print_to_console("illegal resource");
if (res >= _totalResFiles)
Con_fatal_error(" llegal resource %d (there are %d resources 0-%d)", res, _totalResFiles, _totalResFiles - 1);
// #endif
// if noone has the file open then unlock and allow to float
if (!_count[res]) {
if (_age[res]) {
_age[res] = 0; // effectively gone from _resList
Free_mem(_resList[res]); // release the memory too
Print_to_console(" trashed %d", res);
} else
Print_to_console("%d not in memory", res);
} else
Print_to_console(" file is open - cannot remove");
} else {
Print_to_console("try typing a number");
}
}
void ResourceManager::remove(uint32 res) {
if (_age[res]) {
_age[res] = 0; // effectively gone from _resList
Free_mem(_resList[res]); // release the memory too
debug(5, " - Trashing %d", res);
} else
debug(5, "remove(%d) not even in memory!", res);
}
void ResourceManager::removeAll(void) {
// remove all res files from memory - ready for a total restart
// including player object & global variables resource
int j;
uint32 res;
j = base_mem_block;
do {
if (mem_list[j].uid < 65536) { // a resource
res = mem_list[j].uid;
_age[res] = 0; // effectively gone from _resList
Free_mem(_resList[res]); // release the memory too
}
j = mem_list[j].child;
} while (j != -1);
}
void ResourceManager::killAll(uint8 wantInfo) {
// remove all res files from memory
// its quicker to search the mem blocs for res files than search
// resource lists for those in memory
int j;
uint32 res;
uint32 nuked = 0;
_standardHeader *header;
int scrolls = 0;
_keyboardEvent ke;
j = base_mem_block;
do {
if (mem_list[j].uid < 65536) { // a resource
res = mem_list[j].uid;
// not the global vars which are assumed to be open in
// memory & not the player object!
if (res != 1 && res != CUR_PLAYER_ID) {
header = (_standardHeader *) res_man.open(res);
res_man.close(res);
_age[res] = 0; // effectively gone from _resList
Free_mem(_resList[res]); // release the memory too
nuked++;
// if this was called from the console + we
// want info
if (wantInfo && console_status) {
Print_to_console(" nuked %5d: %s", res, header->name);
debug(5, " nuked %d: %s", res, header->name);
Build_display();
scrolls++;
if (scrolls == 18) {
Temp_print_to_console("- Press ESC to stop or any other key to continue");
Build_display();
do {
ServiceWindows();
} while(!KeyWaiting());
ReadKey(&ke);
if (ke.keycode == 27)
break;
// clear the Press Esc message ready for the new line
Clear_console_line();
scrolls = 0;
}
}
}
}
j = mem_list[j].child;
} while (j != -1);
// if this was called from the console + we want info!
if (wantInfo && console_status) {
Scroll_console();
Print_to_console(" expelled %d resource(s)", nuked);
}
}
//----------------------------------------------------------------------------
// Like killAll but only kills objects (except George & the variable table of
// course) - ie. forcing them to reload & restart their scripts, which
// simulates the effect of a save & restore, thus checking that each object's
// re-entrant logic works correctly, and doesn't cause a statuette to
// disappear forever, or some plaster-filled holes in sand to crash the game &
// get James in trouble again.
void ResourceManager::killAllObjects(uint8 wantInfo) {
// remove all object res files from memory, excluding George
// its quicker to search the mem blocs for res files than search
// resource lists for those in memory
int j;
uint32 res;
uint32 nuked = 0;
_standardHeader *header;
int scrolls = 0;
_keyboardEvent ke;
j = base_mem_block;
do {
if (mem_list[j].uid < 65536) { //a resource
res=mem_list[j].uid;
//not the global vars which are assumed to be open in
// memory & not the player object! (James17jan97)
if (res != 1 && res != CUR_PLAYER_ID) {
header = (_standardHeader*) res_man.open(res);
res_man.close(res);
if (header->fileType == GAME_OBJECT) {
_age[res] = 0; // effectively gone from _resList
Free_mem(_resList[res]); // release the memory too
nuked++;
// if this was called from the console + we want info
if (wantInfo && console_status) {
Print_to_console(" nuked %5d: %s", res, header->name);
debug(5, " nuked %d: %s", res, header->name);
Build_display();
scrolls++;
if (scrolls==18) {
Print_to_console("- Press ESC to stop or any other key to continue");
Build_display();
do {
ServiceWindows();
} while(!KeyWaiting());
ReadKey(&ke); //kill the key we just pressed
if (ke.keycode == 27) // ESC
break;
// clear the Press Esc message ready for the new line
Clear_console_line();
scrolls = 0;
}
}
}
}
}
j = mem_list[j].child;
} while (j != -1);
// if this was called from the console + we want info
if (wantInfo && console_status)
Print_to_console(" expelled %d object resource(s)", nuked);
}
void ResourceManager::cacheNewCluster(uint32 newCluster) {
// Stop any music from streaming off the CD before we start the
// cluster-copy!
//
// eg. the looping restore-panel music will still be playing if we
// restored a game to a different cluster on the same CD - and music
// streaming would interfere with cluster copying, slowing it right
// down - but if we restored to a different CD the music is stopped
// in getCd() when it asks for the CD
FN_stop_music(NULL);
Clear_fx_queue(); // stops all fx & clears the queue (James22july97)
getCd(_cdTab[newCluster] & 3);
// Kick out old cached cluster and load the new one.
uint32 i = 0;
while (!(_cdTab[i] & LOCAL_CACHE) && i < _totalClusters)
i++;
if (i < _totalClusters) {
SVM_SetFileAttributes(_resourceFiles[i], FILE_ATTRIBUTE_NORMAL);
SVM_DeleteFile(_resourceFiles[i]);
_cdTab[i] &= (0xff - LOCAL_CACHE);
FILE *file;
file = fopen("cd.inf", "r+b");
if (file == NULL) {
Con_fatal_error("init cannot *OPEN* cd.inf");
}
_cd_inf cdInf;
do {
fread(&cdInf, 1, sizeof(_cd_inf), file);
} while ((scumm_stricmp((char *) cdInf.clusterName, _resourceFiles[i]) != 0) && !feof(file));
if (feof(file)) {
Con_fatal_error("cacheNewCluster cannot find %s in cd.inf", _resourceFiles[i]);
}
fseek(file, -1, SEEK_CUR);
fwrite(&_cdTab[i], 1, 1, file);
fclose(file);
}
char buf[1024];
sprintf(buf, "%sClusters\\%s", _cdPath, _resourceFiles[newCluster]);
WaitForFade();
if (GetFadeStatus() != RDFADE_BLACK) {
FadeDown((float) 0.75);
WaitForFade();
}
EraseBackBuffer();
Set_mouse(0);
Set_luggage(0); //tw28Aug
uint8 *bgfile;
bgfile = res_man.open(2950); // open the screen resource
InitialiseBackgroundLayer(NULL);
InitialiseBackgroundLayer(NULL);
InitialiseBackgroundLayer(FetchBackgroundLayer(bgfile));
InitialiseBackgroundLayer(NULL);
InitialiseBackgroundLayer(NULL);
BS2_SetPalette(0, 256, FetchPalette(bgfile), RDPAL_FADE);
RenderParallax(FetchBackgroundLayer(bgfile), 2);
res_man.close(2950); // release the screen resource
// Git rid of read-only status, if it is set.
SVM_SetFileAttributes(_resourceFiles[newCluster], FILE_ATTRIBUTE_NORMAL);
File inFile, outFile;
inFile.open(buf);
outFile.open(_resourceFiles[newCluster], NULL, File::kFileWriteMode);
if (!inFile.isOpen() || !outFile.isOpen()) {
Con_fatal_error("Cache new cluster could not copy %s to %s", buf, _resourceFiles[newCluster]);
}
_spriteInfo textSprite;
_spriteInfo barSprite;
mem *text_spr;
_frameHeader *frame;
uint8 *loadingBar;
_cdtEntry *cdt;
text_spr = MakeTextSprite(FetchTextLine(res_man.open(2283), 8) + 2, 640, 187, speech_font_id);
frame = (_frameHeader*) text_spr->ad;
textSprite.x = screenWide /2 - frame->width / 2;
textSprite.y = screenDeep /2 - frame->height / 2 - RDMENU_MENUDEEP;
textSprite.w = frame->width;
textSprite.h = frame->height;
textSprite.scale = 0;
textSprite.scaledWidth = 0;
textSprite.scaledHeight = 0;
textSprite.type = RDSPR_DISPLAYALIGN + RDSPR_NOCOMPRESSION + RDSPR_TRANS;
textSprite.blend = 0;
textSprite.colourTable = 0;
res_man.close(2283);
loadingBar = res_man.open(2951);
frame = FetchFrameHeader(loadingBar, 0);
cdt = FetchCdtEntry(loadingBar, 0);
barSprite.x = cdt->x;
barSprite.y = cdt->y;
barSprite.w = frame->width;
barSprite.h = frame->height;
barSprite.scale = 0;
barSprite.scaledWidth = 0;
barSprite.scaledHeight = 0;
barSprite.type = RDSPR_RLE256FAST + RDSPR_TRANS;
barSprite.blend = 0;
barSprite.colourTable = 0;
res_man.close(2951);
loadingBar = res_man.open(2951);
frame = FetchFrameHeader(loadingBar, 0);
barSprite.data = (uint8 *) (frame + 1);
res_man.close(2951);
int16 barX = barSprite.x;
int16 barY = barSprite.y;
int16 textX = textSprite.x;
int16 textY = textSprite.y;
DrawSprite(&barSprite);
barSprite.x = barX;
barSprite.y = barY;
textSprite.data = text_spr->ad + sizeof(_frameHeader);
DrawSprite(&textSprite);
textSprite.x = textX;
textSprite.y = textY;
FadeUp((float) 0.75);
WaitForFade();
uint32 size = inFile.size();
char buffer[BUFFERSIZE];
int stepSize = (size / BUFFERSIZE) / 100;
uint32 read = 0;
int step = stepSize;
int fr = 0;
uint32 realRead = 0;
do {
realRead = inFile.read(buffer, BUFFERSIZE);
read += realRead;
if (outFile.write(buffer, realRead) != realRead) {
Con_fatal_error("Cache new cluster could not copy %s to %s", buf, _resourceFiles[newCluster]);
}
if (step == stepSize) {
step = 0;
// open the screen resource
bgfile = res_man.open(2950);
RenderParallax(FetchBackgroundLayer(bgfile), 2);
// release the screen resource
res_man.close(2950);
loadingBar = res_man.open(2951);
frame = FetchFrameHeader(loadingBar, fr);
barSprite.data = (uint8 *) (frame + 1);
res_man.close(2951);
DrawSprite(&barSprite);
barSprite.x = barX;
barSprite.y = barY;
textSprite.data = text_spr->ad + sizeof(_frameHeader);
DrawSprite(&textSprite);
textSprite.x = textX;
textSprite.y = textY;
fr++;
} else
step++;
ServiceWindows();
} while ((read % BUFFERSIZE) == 0);
if (read != size) {
Con_fatal_error("Cache new cluster could not copy %s to %s", buf, _resourceFiles[newCluster]);
}
inFile.close();
outFile.close();
Free_mem(text_spr);
EraseBackBuffer();
FadeDown((float) 0.75);
WaitForFade();
FadeUp((float) 0.75);
// Git rid of read-only status.
SVM_SetFileAttributes(_resourceFiles[newCluster], FILE_ATTRIBUTE_NORMAL);
// Update cd.inf and _cdTab
_cdTab[newCluster] |= LOCAL_CACHE;
FILE *file;
file = fopen("cd.inf", "r+b");
if (file == NULL) {
Con_fatal_error("init cannot *OPEN* cd.inf");
}
_cd_inf cdInf;
do {
fread(&cdInf, 1, sizeof(_cd_inf), file);
} while (scumm_stricmp((char *) cdInf.clusterName, _resourceFiles[newCluster]) != 0 && !feof(file));
if (feof(file)) {
Con_fatal_error("cacheNewCluster cannot find %s in cd.inf", _resourceFiles[newCluster]);
}
fseek(file, -1, SEEK_CUR);
fwrite(&_cdTab[newCluster], 1, 1, file);
fclose(file);
}
void ResourceManager::getCd(int cd) {
// TODO support a seperate path for cd data?
bool done = false;
char sCDName[_MAX_PATH];
uint32 dwMaxCompLength, dwFSFlags;
mem *text_spr;
_frameHeader *frame;
_spriteInfo spriteInfo;
int16 oldY;
int16 oldX;
FILE *file;
char name[16];
int offNetwork = 0;
int index = 0;
uint8 *textRes;
// don't ask for CD's in the playable demo downloaded from our
// web-site!
if (g_sword2->_gameId == GID_SWORD2_DEMO)
return;
#ifdef _PCGUIDE
// don't ask for CD in the patch for the demo on "PC Guide" magazine
return;
#endif
sprintf(name, "revcd%d.id", cd);
file = fopen(name, "r");
if (file == NULL) {
// Determine what CD is in the drive, and either use it or ask
// the user to insert the correct CD.
// Scan all CD drives for our CD as well.
while(_cdDrives[index] != 0 && index < 24) {
sprintf(_cdPath, "%c:\\", _cdDrives[index]);
if (!SVM_GetVolumeInformation(_cdPath, sCDName, _MAX_PATH, NULL, &dwMaxCompLength, &dwFSFlags, NULL, 0)) {
// Force the following code to ask for the correct CD.
sCDName[0] = 0;
}
_curCd = cd;
if (!scumm_stricmp(sCDName,CD1_LABEL)) {
if (cd == CD1)
return;
} else if (!scumm_stricmp(sCDName,CD2_LABEL)) {
if (cd == CD2)
return;
}
index++;
}
} else {
// must be running off the network, but still want to see
// CD-requests to show where they would occur when playing
// from CD
debug(5, "RUNNING OFF NETWORK");
fscanf(file, "%s", _cdPath);
fclose(file);
if (_curCd == cd)
return;
else
_curCd = cd;
// don't show CD-requests if testing anims or text/speech
if (SYSTEM_TESTING_ANIMS || SYSTEM_TESTING_TEXT)
return;
offNetwork = 1;
}
// stop any music from playing - so the system no longer needs the
// current CD - otherwise when we take out the CD, Windows will
// complain!
FN_stop_music(NULL);
textRes = res_man.open(2283);
DisplayMsg(FetchTextLine(textRes, 5 + cd) + 2, 0);
text_spr = MakeTextSprite(FetchTextLine(textRes, 5 + cd) + 2, 640, 187, speech_font_id);
frame = (_frameHeader*) text_spr->ad;
spriteInfo.x = screenWide / 2 - frame->width / 2;
spriteInfo.y = screenDeep / 2 - frame->height / 2 - RDMENU_MENUDEEP;
spriteInfo.w = frame->width;
spriteInfo.h = frame->height;
spriteInfo.scale = 0;
spriteInfo.scaledWidth = 0;
spriteInfo.scaledHeight = 0;
spriteInfo.type = RDSPR_DISPLAYALIGN + RDSPR_NOCOMPRESSION + RDSPR_TRANS;
spriteInfo.blend = 0;
spriteInfo.data = text_spr->ad + sizeof(_frameHeader);
spriteInfo.colourTable = 0;
oldY = spriteInfo.y;
oldX = spriteInfo.x;
res_man.close(2283);
do {
if (offNetwork == 1)
done = true;
else {
index = 0;
while (_cdDrives[index] != 0 && !done && index < 24) {
sprintf(_cdPath, "%c:\\", _cdDrives[index]);
if (!SVM_GetVolumeInformation(_cdPath, sCDName, _MAX_PATH, NULL, &dwMaxCompLength, &dwFSFlags, NULL, 0)) {
sCDName[0] = 0;
}
if (!scumm_stricmp(sCDName, CD1_LABEL)) {
if (cd == CD1)
done = true;
} else if (!scumm_stricmp(sCDName, CD2_LABEL)) {
if (cd == CD2)
done = true;
}
index++;
}
}
ServiceWindows();
EraseBackBuffer();
DrawSprite(&spriteInfo); // Keep the message there even when the user task swaps.
spriteInfo.y = oldY; // Drivers change the y co-ordinate, don't know why...
spriteInfo.x = oldX;
} while (!done);
Free_mem(text_spr);
RemoveMsg();
}
Reference in New Issue View Git Blame Copy Permalink