mirror of
https://github.com/k4zmu2a/SpaceCadetPinball.git
synced 2024-11-16 14:50:19 +01:00
362 lines
8.3 KiB
C++
362 lines
8.3 KiB
C++
#include "pch.h"
|
|
#include "partman.h"
|
|
#include "gdrv.h"
|
|
#include "memory.h"
|
|
|
|
short partman::_field_size[] = {
|
|
2, -1, 2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0
|
|
};
|
|
|
|
|
|
datFileStruct* partman::load_records(LPCSTR lpFileName)
|
|
{
|
|
_OFSTRUCT ReOpenBuff{};
|
|
datFileHeader Buffer{};
|
|
dat8BitBmpHeader bmpHeader{};
|
|
datFileStruct* datFile;
|
|
int groupIndex, groupDataSize;
|
|
datGroupData** groupDataBuf;
|
|
|
|
const HFILE fileHandle = OpenFile(lpFileName, &ReOpenBuff, 0);
|
|
if (fileHandle == -1)
|
|
return nullptr;
|
|
_lread(fileHandle, &Buffer, 183u);
|
|
if (lstrcmpA("PARTOUT(4.0)RESOURCE", Buffer.FileSignature))
|
|
{
|
|
_lclose(fileHandle);
|
|
return nullptr;
|
|
}
|
|
datFile = (datFileStruct*)memory::allocate(sizeof(datFileStruct));
|
|
if (!datFile)
|
|
{
|
|
_lclose(fileHandle);
|
|
return nullptr;
|
|
}
|
|
if (lstrlenA(Buffer.Description) <= 0)
|
|
{
|
|
datFile->Description = nullptr;
|
|
}
|
|
else
|
|
{
|
|
int lenOfStr = lstrlenA(Buffer.Description);
|
|
auto descriptionBuf = static_cast<char*>(memory::allocate(lenOfStr + 1));
|
|
datFile->Description = descriptionBuf;
|
|
if (!descriptionBuf)
|
|
{
|
|
_lclose(fileHandle);
|
|
memory::free(datFile);
|
|
return nullptr;
|
|
}
|
|
lstrcpyA(descriptionBuf, Buffer.Description);
|
|
}
|
|
|
|
if (Buffer.Unknown)
|
|
{
|
|
auto unknownBuf = static_cast<char*>(memory::allocate(Buffer.Unknown));
|
|
if (!unknownBuf)
|
|
{
|
|
_lclose(fileHandle);
|
|
if (datFile->Description)
|
|
memory::free(datFile->Description);
|
|
memory::free(datFile);
|
|
return nullptr;
|
|
}
|
|
_lread(fileHandle, static_cast<void*>(unknownBuf), Buffer.Unknown);
|
|
memory::free(unknownBuf);
|
|
}
|
|
|
|
groupDataBuf = (datGroupData**)memory::allocate(sizeof(void*) * Buffer.NumberOfGroups);
|
|
datFile->GroupData = groupDataBuf;
|
|
if (!groupDataBuf)
|
|
{
|
|
if (datFile->Description)
|
|
memory::free(datFile->Description);
|
|
memory::free(datFile);
|
|
return nullptr;
|
|
}
|
|
|
|
groupIndex = 0;
|
|
if (Buffer.NumberOfGroups)
|
|
{
|
|
do
|
|
{
|
|
char entryCount = _lread_char(fileHandle);
|
|
if (entryCount <= 0)
|
|
groupDataSize = 0;
|
|
else
|
|
groupDataSize = entryCount - 1;
|
|
datFile->GroupData[groupIndex] = (datGroupData*)memory::allocate(
|
|
sizeof(datEntryData) * groupDataSize + sizeof(datGroupData));
|
|
datGroupData* groupData = datFile->GroupData[groupIndex];
|
|
if (!groupData)
|
|
break;
|
|
int entryIndex = 0;
|
|
groupData->EntryCount = entryCount;
|
|
if (entryCount > 0)
|
|
{
|
|
datEntryData* entryData = groupData->Entries;
|
|
do
|
|
{
|
|
auto entryType = static_cast<datFieldTypes>(_lread_char(fileHandle));
|
|
entryData->EntryType = entryType;
|
|
int fieldSize = _field_size[(int)entryType];
|
|
if (fieldSize < 0)
|
|
{
|
|
fieldSize = _lread_long(fileHandle);
|
|
}
|
|
if (entryType == datFieldTypes::Bitmap8bit)
|
|
{
|
|
_hread(fileHandle, &bmpHeader, 14);
|
|
auto bmp = (gdrv_bitmap8*)memory::allocate(sizeof(gdrv_bitmap8));
|
|
entryData->Buffer = (char*)bmp;
|
|
if (!bmp)
|
|
goto LABEL_41;
|
|
if (bmpHeader.Unknown2 & 2
|
|
? gdrv::create_bitmap(bmp, bmpHeader.Width, bmpHeader.Height)
|
|
: gdrv::create_raw_bitmap(bmp, bmpHeader.Width, bmpHeader.Height,
|
|
bmpHeader.Unknown2 & 1))
|
|
goto LABEL_41;
|
|
_hread(fileHandle, bmp->BmpBufPtr1, bmpHeader.Size);
|
|
bmp->XPosition = bmpHeader.XPosition;
|
|
bmp->YPosition = bmpHeader.YPosition;
|
|
}
|
|
else
|
|
{
|
|
char* entryBuffer = static_cast<char*>(memory::allocate(fieldSize));
|
|
entryData->Buffer = entryBuffer;
|
|
if (!entryBuffer)
|
|
goto LABEL_41;
|
|
_hread(fileHandle, entryBuffer, fieldSize);
|
|
}
|
|
|
|
++entryIndex;
|
|
entryData->FieldSize = fieldSize;
|
|
datFile->NumberOfGroups = groupIndex + 1;
|
|
++entryData;
|
|
}
|
|
while (entryIndex < entryCount);
|
|
}
|
|
++groupIndex;
|
|
}
|
|
while (groupIndex < Buffer.NumberOfGroups);
|
|
}
|
|
|
|
LABEL_41:
|
|
_lclose(fileHandle);
|
|
if (datFile->NumberOfGroups == Buffer.NumberOfGroups)
|
|
return datFile;
|
|
unload_records(datFile);
|
|
return nullptr;
|
|
}
|
|
|
|
|
|
void partman::unload_records(datFileStruct* datFile)
|
|
{
|
|
for (int groupIndex = 0; groupIndex < datFile->NumberOfGroups; ++groupIndex)
|
|
{
|
|
datGroupData* group = datFile->GroupData[groupIndex];
|
|
if (group)
|
|
{
|
|
int entryIndex = 0;
|
|
if (group->EntryCount > 0)
|
|
{
|
|
datEntryData* entry = group->Entries;
|
|
do
|
|
{
|
|
if (entry->Buffer)
|
|
{
|
|
//if (HIWORD(entry->EntryType) == 1)
|
|
//gdrv_destroy_bitmap(entry->Buffer);
|
|
memory::free(entry->Buffer);
|
|
}
|
|
++entryIndex;
|
|
++entry;
|
|
}
|
|
while (entryIndex < group->EntryCount);
|
|
}
|
|
memory::free(group);
|
|
}
|
|
}
|
|
if (datFile->Description)
|
|
memory::free(datFile->Description);
|
|
memory::free(datFile->GroupData);
|
|
memory::free(datFile);
|
|
}
|
|
|
|
char* partman::field(datFileStruct* datFile, int groupIndex, datFieldTypes targetEntryType)
|
|
{
|
|
datGroupData* groupData = datFile->GroupData[groupIndex];
|
|
int entryCount = groupData->EntryCount;
|
|
int entryIndex = 0;
|
|
if (entryCount <= 0)
|
|
return nullptr;
|
|
datEntryData* entry = groupData->Entries;
|
|
while (true)
|
|
{
|
|
auto entryType = entry->EntryType;
|
|
if (entryType == targetEntryType)
|
|
break;
|
|
if (entryType > targetEntryType)
|
|
return nullptr;
|
|
++entryIndex;
|
|
++entry;
|
|
if (entryIndex < entryCount)
|
|
continue;
|
|
return nullptr;
|
|
}
|
|
return entry->Buffer;
|
|
}
|
|
|
|
|
|
char* partman::field_nth(datFileStruct* datFile, int groupIndex, datFieldTypes targetEntryType, int skipFirstN)
|
|
{
|
|
datGroupData* groupData = datFile->GroupData[groupIndex];
|
|
int entryCount = groupData->EntryCount, skipCount = 0, entryIndex = 0;
|
|
if (0 < entryCount)
|
|
{
|
|
datEntryData* entry = groupData->Entries;
|
|
do
|
|
{
|
|
auto entryType = entry->EntryType;
|
|
if (entryType == targetEntryType)
|
|
{
|
|
if (skipCount == skipFirstN)
|
|
{
|
|
return entry->Buffer;
|
|
}
|
|
skipCount++;
|
|
}
|
|
else
|
|
{
|
|
if (targetEntryType < entryType)
|
|
{
|
|
return nullptr;
|
|
}
|
|
}
|
|
entryIndex++;
|
|
entry++;
|
|
}
|
|
while (entryIndex < entryCount);
|
|
}
|
|
return nullptr;
|
|
}
|
|
|
|
int partman::field_size_nth(datFileStruct* datFile, int groupIndex, datFieldTypes targetEntryType, int skipFirstN)
|
|
{
|
|
datGroupData* groupData = datFile->GroupData[groupIndex];
|
|
int entryCount = groupData->EntryCount, skipCount = 0, entryIndex = 0;
|
|
if (0 < entryCount)
|
|
{
|
|
datEntryData* entry = groupData->Entries;
|
|
do
|
|
{
|
|
auto entryType = entry->EntryType;
|
|
if (entryType == targetEntryType)
|
|
{
|
|
if (skipCount == skipFirstN)
|
|
{
|
|
return entry->FieldSize;
|
|
}
|
|
skipCount++;
|
|
}
|
|
else
|
|
{
|
|
if (targetEntryType < entryType)
|
|
{
|
|
return 0;
|
|
}
|
|
}
|
|
entryIndex++;
|
|
entry++;
|
|
}
|
|
while (entryIndex < entryCount);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int partman::field_size(datFileStruct* datFile, int groupIndex, datFieldTypes targetEntryType)
|
|
{
|
|
return field_size_nth(datFile, groupIndex, targetEntryType, 0);
|
|
}
|
|
|
|
int partman::record_labeled(datFileStruct* datFile, LPCSTR targetGroupName)
|
|
{
|
|
int trgGroupNameLen = lstrlenA(targetGroupName);
|
|
int groupIndex = datFile->NumberOfGroups;
|
|
while (true)
|
|
{
|
|
if (--groupIndex < 0)
|
|
return -1;
|
|
char* groupName = field(datFile, groupIndex, datFieldTypes::GroupName);
|
|
if (groupName)
|
|
{
|
|
int index = 0;
|
|
bool found = trgGroupNameLen == 0;
|
|
if (trgGroupNameLen > 0)
|
|
{
|
|
LPCSTR targetNamePtr = targetGroupName;
|
|
do
|
|
{
|
|
if (*targetNamePtr != targetNamePtr[groupName - targetGroupName])
|
|
break;
|
|
++index;
|
|
++targetNamePtr;
|
|
}
|
|
while (index < trgGroupNameLen);
|
|
found = index == trgGroupNameLen;
|
|
}
|
|
if (found && !targetGroupName[index] && !groupName[index])
|
|
break;
|
|
}
|
|
}
|
|
return groupIndex;
|
|
}
|
|
|
|
char* partman::field_labeled(datFileStruct* datFile, LPCSTR lpString, datFieldTypes fieldType)
|
|
{
|
|
char* result;
|
|
int groupIndex = record_labeled(datFile, lpString);
|
|
if (groupIndex < 0)
|
|
result = nullptr;
|
|
else
|
|
result = field(datFile, groupIndex, fieldType);
|
|
return result;
|
|
}
|
|
|
|
|
|
int partman::make_path_name(LPSTR lpFilename, LPCSTR lpString2, int nSize)
|
|
{
|
|
int nameSize = GetModuleFileNameA(nullptr, lpFilename, nSize);
|
|
if (!nameSize || nameSize == nSize)
|
|
return 1;
|
|
for (CHAR* i = &lpFilename[nameSize]; i > lpFilename; --i)
|
|
{
|
|
if (*i == '\\' || *i == ':')
|
|
{
|
|
i[1] = 0;
|
|
break;
|
|
}
|
|
--nameSize;
|
|
}
|
|
if (nameSize + 13 < nSize)
|
|
{
|
|
lstrcatA(lpFilename, lpString2);
|
|
return 0;
|
|
}
|
|
lstrcatA(lpFilename, "?");
|
|
return 1;
|
|
}
|
|
|
|
char partman::_lread_char(HFILE hFile)
|
|
{
|
|
char Buffer = 0;
|
|
_lread(hFile, &Buffer, 1u);
|
|
return Buffer;
|
|
}
|
|
|
|
int partman::_lread_long(HFILE hFile)
|
|
{
|
|
int Buffer = 0;
|
|
_lread(hFile, &Buffer, 4u);
|
|
return Buffer;
|
|
}
|