mirror of
https://github.com/ZDoom/raze-gles.git
synced 2024-12-27 04:00:42 +00:00
957 lines
25 KiB
C++
957 lines
25 KiB
C++
//-------------------------------------------------------------------------
|
|
/*
|
|
Copyright (C) 2010-2019 EDuke32 developers and contributors
|
|
Copyright (C) 2019 sirlemonhead, Nuke.YKT
|
|
|
|
This file is part of NBlood.
|
|
|
|
NBlood is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License version 2
|
|
as published by the Free Software Foundation.
|
|
|
|
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.
|
|
*/
|
|
//-------------------------------------------------------------------------
|
|
|
|
#include "ns.h" // Must come before everything else!
|
|
|
|
#include "compat.h"
|
|
#ifdef WITHKPLIB
|
|
#include "kplib.h"
|
|
#endif
|
|
#include "common_game.h"
|
|
#include "resource.h"
|
|
#include "misc.h"
|
|
#include "globals.h"
|
|
#include "sound.h"
|
|
|
|
BEGIN_BLD_NS
|
|
|
|
static Resource gBarfRes;
|
|
|
|
#define kMaxCmdLineDefines 5
|
|
#define kMaxDefines 1000
|
|
#define kMaxParseLevels 5
|
|
static int nCmdDefines = 0;
|
|
static int nDefines = 0;
|
|
|
|
static int gParseLevel = 0;
|
|
int dword_44CE0[kMaxParseLevels] = { 0, 0, 0, 0, 0 };
|
|
|
|
// FIXME
|
|
unsigned int nBytes = 0;
|
|
char buffer[1024];
|
|
int scriptValue = 0;
|
|
|
|
char scriptBuffer[256];
|
|
|
|
struct define_t
|
|
{
|
|
char *_text;
|
|
int _value;
|
|
};
|
|
|
|
define_t gCmdDefines[kMaxCmdLineDefines];
|
|
|
|
void sub_11DF0(char *fileName, char flags, int ID);
|
|
void sub_11C10(char *pzScriptDir, char *fileName, char flags, int ID);
|
|
|
|
struct tag_t {
|
|
const char *_value;
|
|
uint8_t _index;
|
|
};
|
|
|
|
enum eTags
|
|
{
|
|
kTag0,
|
|
kTagEnd,
|
|
kTagString,
|
|
kTagConstant,
|
|
kTag4, // string constant?
|
|
kTagComma,
|
|
kTagSemiColon,
|
|
kTagColon,
|
|
kTagEquals,
|
|
kTagHash,
|
|
kTagComment,
|
|
kTagInclude,
|
|
kTagResource,
|
|
kTagAs,
|
|
kTagPreload,
|
|
kTagPrelock,
|
|
kTagData,
|
|
kTagLoad,
|
|
kTagEmit,
|
|
kTagIfDef,
|
|
kTagEndif,
|
|
kTagElse
|
|
};
|
|
|
|
tag_t tags[] =
|
|
{
|
|
{ ",", kTagComma },
|
|
{ ";", kTagSemiColon },
|
|
{ ":", kTagColon },
|
|
{ "=", kTagEquals },
|
|
{ "#", kTagHash },
|
|
{ "//", kTagComment },
|
|
{ "INCLUDE", kTagInclude },
|
|
{ "RESOURCE", kTagResource },
|
|
{ "AS", kTagAs },
|
|
{ "PRELOAD", kTagPreload },
|
|
{ "PRELOCK", kTagPrelock },
|
|
{ "DATA", kTagData },
|
|
{ "LOAD", kTagLoad },
|
|
{ "EMIT", kTagEmit },
|
|
{ "%ifdef", kTagIfDef },
|
|
{ "%endif", kTagEndif },
|
|
{ "%else", kTagElse }
|
|
};
|
|
|
|
const int kTagCount = sizeof(tags) / sizeof(tag_t);
|
|
|
|
int qsort_compar(const void *a, const void *b)
|
|
{
|
|
return Bstrcasecmp((const char*)a, (const char*)b);
|
|
}
|
|
|
|
void SortTags()
|
|
{
|
|
qsort(tags, kTagCount, sizeof(tag_t), qsort_compar);
|
|
}
|
|
|
|
void AddCmdDefine(char *text, int value)
|
|
{
|
|
dassert(nCmdDefines < kMaxCmdLineDefines);
|
|
|
|
gCmdDefines[nCmdDefines]._text = (char*)Resource::Alloc(strlen(text) + 1);
|
|
|
|
strcpy(gCmdDefines[nCmdDefines]._text, text);
|
|
gCmdDefines[nCmdDefines]._value = value;
|
|
|
|
nCmdDefines++;
|
|
}
|
|
|
|
// 174 bytes
|
|
struct RFS
|
|
{
|
|
private:
|
|
char *_ptr; // [0]
|
|
char _curChar; // [4]
|
|
char *_pUnknown2; // [5] - some sort of pointer into _ptr?
|
|
char *_pStartLine; // [9]
|
|
char *_pEnd; // [13]
|
|
char *_pMark; // [17]
|
|
char _unknown6; // [21]
|
|
int _unknown7; // [22]
|
|
int _curLine; // [26]
|
|
char _fileName[BMAX_PATH]; // [30]
|
|
|
|
public:
|
|
int Open(const char *fileName);
|
|
void Close();
|
|
void Increment();
|
|
void SkipBeyondValue(char value);
|
|
uint8_t GetNextTag();
|
|
void ScriptError(const char *message);
|
|
void SetMark();
|
|
void UnsetMark();
|
|
};
|
|
|
|
int RFS::Open(const char *fileName)
|
|
{
|
|
strcpy(_fileName, fileName);
|
|
|
|
auto hFile = kopenFileReader(fileName, 0);
|
|
if (!hFile.isOpen()) {
|
|
initprintf("BARF: Error opening file %s", _fileName);
|
|
return 1;
|
|
}
|
|
|
|
int fileSize = hFile.GetLength();
|
|
_ptr = (char*)Resource::Alloc(fileSize);
|
|
if (_ptr == NULL) {
|
|
initprintf("BARF: Not enough memory to read %s", _fileName);
|
|
return 1;
|
|
}
|
|
|
|
hFile.Read(_ptr, fileSize);
|
|
|
|
_curLine = 0;
|
|
_pUnknown2 = _ptr;
|
|
_curChar = '\n';
|
|
_pEnd = &_ptr[fileSize - 1];
|
|
|
|
return 0;
|
|
}
|
|
|
|
void RFS::Close()
|
|
{
|
|
if (_ptr) {
|
|
/* BUG - the original code called nfree but this should be a Resource::Free()
|
|
_nfree(_ptr);
|
|
*/
|
|
Resource::Free(_ptr);
|
|
}
|
|
}
|
|
|
|
void RFS::Increment()
|
|
{
|
|
if (_curChar == '\n') {
|
|
_curLine++;
|
|
_pStartLine = _pUnknown2;
|
|
}
|
|
|
|
if (_pUnknown2 >= _pEnd) {
|
|
_curChar = 0;
|
|
}
|
|
else {
|
|
_curChar = *_pUnknown2; // grabs the next char
|
|
_pUnknown2++; // increment pointer into char data
|
|
}
|
|
}
|
|
|
|
void RFS::SkipBeyondValue(char nVal)
|
|
{
|
|
while (_curChar && _curChar != nVal) {
|
|
Increment();
|
|
}
|
|
}
|
|
|
|
void RFS::SetMark()
|
|
{
|
|
_pMark = _pUnknown2;
|
|
_unknown6 = _curChar;
|
|
_unknown7 = _curLine;
|
|
}
|
|
|
|
// inverse of the above function
|
|
void RFS::UnsetMark()
|
|
{
|
|
_pUnknown2 = _pMark;
|
|
_curChar = _unknown6;
|
|
_curLine = _unknown7;
|
|
}
|
|
|
|
void RFS::ScriptError(const char *message)
|
|
{
|
|
// TODO
|
|
|
|
char *p = _pStartLine;
|
|
while (*p != '\n')
|
|
{
|
|
if (isprint(*p))
|
|
putchar(*p);
|
|
else
|
|
putchar(' ');
|
|
p++;
|
|
}
|
|
|
|
putchar('\n');
|
|
|
|
p = _pStartLine;
|
|
|
|
while (p < _pMark)
|
|
{
|
|
putchar(' ');
|
|
p++;
|
|
}
|
|
|
|
puts("^");
|
|
|
|
initprintf("Error in %s line %d: %s\n\n", _fileName, _curLine, message);
|
|
}
|
|
|
|
uint8_t RFS::GetNextTag()
|
|
{
|
|
// skip any space characters
|
|
do {
|
|
Increment();
|
|
} while (isspace(_curChar));
|
|
|
|
if (_curChar == '\0') {
|
|
return kTagEnd;
|
|
}
|
|
|
|
SetMark();
|
|
|
|
// Path A
|
|
if (_curChar == '"')
|
|
{
|
|
Increment();
|
|
|
|
int i = 0;
|
|
|
|
// section 1
|
|
while (1) {
|
|
|
|
if (_curChar == '\0' || _curChar == '"') {
|
|
scriptBuffer[i] = '\0';
|
|
return kTagString;
|
|
}
|
|
|
|
if (i == 256) {
|
|
ScriptError("String exceeds maximum string length");
|
|
break;
|
|
}
|
|
|
|
scriptBuffer[i] = _curChar;
|
|
i++;
|
|
Increment();
|
|
}
|
|
|
|
// section 2
|
|
while (1)
|
|
{
|
|
if (_curChar == '\0' || _curChar == '"') {
|
|
return kTag0;
|
|
}
|
|
|
|
Increment();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
scriptValue = 0;
|
|
bool isNegative = false; // or 'isSigned' ?
|
|
|
|
// is it a negative number?
|
|
if (_curChar == '-')
|
|
{
|
|
Increment();
|
|
|
|
isNegative = true;
|
|
|
|
if (!isdigit(_curChar)) {
|
|
UnsetMark();
|
|
}
|
|
}
|
|
|
|
if (isdigit(_curChar))
|
|
{
|
|
// left path
|
|
if (_curChar == '0')
|
|
{
|
|
Increment();
|
|
|
|
// handle a hex value
|
|
if (toupper(_curChar) == 'X')
|
|
{
|
|
// orange loop
|
|
while (1)
|
|
{
|
|
Increment();
|
|
if (!isxdigit(_curChar)) { // isxdigit() checks for a hex value
|
|
break;
|
|
}
|
|
|
|
// hex version of atoi?
|
|
scriptValue *= 16;
|
|
if (!isdigit(_curChar)) {
|
|
scriptValue += toupper(_curChar) - 55;
|
|
}
|
|
else {
|
|
scriptValue += _curChar - '0';
|
|
}
|
|
|
|
SetMark();
|
|
}
|
|
|
|
UnsetMark();
|
|
if (isNegative) {
|
|
scriptValue = -scriptValue;
|
|
}
|
|
|
|
return kTagConstant;
|
|
}
|
|
|
|
UnsetMark();
|
|
}
|
|
|
|
// the loop
|
|
while (isdigit(_curChar))
|
|
{
|
|
// atoi implementation
|
|
scriptValue = scriptValue * 10 + _curChar - '0';
|
|
SetMark();
|
|
Increment();
|
|
}
|
|
|
|
UnsetMark();
|
|
if (isNegative) {
|
|
scriptValue = -scriptValue;
|
|
}
|
|
|
|
return kTagConstant;
|
|
}
|
|
else
|
|
{
|
|
// BLUEISH PATH
|
|
int ebp = 0; // v11
|
|
int i = 0;
|
|
|
|
// blue loop #1
|
|
while (1)
|
|
{
|
|
scriptBuffer[ebp] = _curChar;
|
|
ebp++;
|
|
int eax = -1;
|
|
|
|
// blue loop #2
|
|
for (i = 0; i < kTagCount; i++)
|
|
{
|
|
//if (eax >= 0) {
|
|
if (eax == 0) {
|
|
break;
|
|
}
|
|
|
|
// eax = strnicmp(tags[i]._value, scriptBuffer, ebp);
|
|
eax = Bstrncasecmp(scriptBuffer, tags[i]._value, ebp);
|
|
|
|
//if (eax >= 0) {
|
|
if (eax == 0) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (eax > 0 || i == kTagCount) {
|
|
break;
|
|
}
|
|
|
|
if (eax == 0 && strlen(tags[i]._value) == ebp)
|
|
{
|
|
scriptBuffer[ebp] = 0;
|
|
return tags[i]._index;
|
|
}
|
|
|
|
Increment();
|
|
}
|
|
|
|
UnsetMark();
|
|
|
|
i = 0;
|
|
|
|
while (isalnum(_curChar))
|
|
{
|
|
scriptBuffer[i] = _curChar;
|
|
SetMark();
|
|
i++;
|
|
Increment();
|
|
}
|
|
|
|
UnsetMark();
|
|
scriptBuffer[i] = 0;
|
|
return kTag4;
|
|
}
|
|
}
|
|
|
|
// qAssert(1==0); // TODO - what to return here
|
|
}
|
|
|
|
void ParseScript(const char *scriptFileName)
|
|
{
|
|
char text[256];
|
|
char char256_1[256];
|
|
char char256_2[256];
|
|
char fileName[BMAX_PATH];
|
|
char inp[BMAX_PATH];
|
|
char zScriptDirectory[BMAX_PATH], zTemp1[BMAX_PATH], zTemp2[BMAX_PATH];
|
|
|
|
int const bakpathsearchmode = pathsearchmode;
|
|
pathsearchmode = 1;
|
|
|
|
SplitPath(scriptFileName, zScriptDirectory, zTemp1, zTemp2);
|
|
|
|
RFS rfs;
|
|
|
|
// AddExtension(name, ".RFS");
|
|
if (rfs.Open(scriptFileName))
|
|
{
|
|
pathsearchmode = bakpathsearchmode;
|
|
return;
|
|
}
|
|
|
|
gParseLevel = 0;
|
|
dword_44CE0[0] = 0;
|
|
|
|
bool parsing = true;
|
|
|
|
while (parsing)
|
|
{
|
|
// START LOOP. to be fixed later
|
|
START:
|
|
|
|
uint8_t tag = rfs.GetNextTag();
|
|
|
|
switch (tag)
|
|
{
|
|
default:
|
|
{
|
|
break;
|
|
}
|
|
case kTagEnd:
|
|
{
|
|
parsing = false;
|
|
break;
|
|
}
|
|
case kTagComment:
|
|
{
|
|
// skip to next line
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
case kTagEmit: // minty/light green colour
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTag4)
|
|
{
|
|
rfs.ScriptError("Symbol name expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
strcpy(char256_2, scriptBuffer);
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTagEquals)
|
|
{
|
|
rfs.ScriptError("Missing '='");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTagConstant)
|
|
{
|
|
rfs.ScriptError("Constant expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
//AddDefine(char256_2, scriptValue);
|
|
rfs.SkipBeyondValue('\n');
|
|
}
|
|
}
|
|
}
|
|
case kTagResource: // really light blue..
|
|
{
|
|
if (kTagString != rfs.GetNextTag()) {
|
|
rfs.ScriptError("String constant exected");
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
|
|
strcpy(inp, scriptBuffer);
|
|
char nFlags = 0;
|
|
int ID = 0;
|
|
bool isDefine = false;
|
|
|
|
tag = rfs.GetNextTag();
|
|
if (tag == kTagAs)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag == kTag4)
|
|
{
|
|
strcpy(text, scriptBuffer);
|
|
|
|
if (rfs.GetNextTag() != kTagEquals)
|
|
{
|
|
rfs.ScriptError("Missing '='");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
isDefine = true;
|
|
tag = rfs.GetNextTag();
|
|
}
|
|
|
|
if (tag != kTagConstant)
|
|
{
|
|
rfs.ScriptError("Constant expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
if (isDefine) {
|
|
//AddDefine(text, scriptValue);
|
|
}
|
|
|
|
ID = scriptValue;
|
|
nFlags |= DICT_ID;
|
|
tag = rfs.GetNextTag();
|
|
}
|
|
|
|
//if (!bNoEncrypt) {
|
|
// nFlags |= kResFlagIsEncrypted;
|
|
//}
|
|
|
|
while (tag == kTagComma)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
|
|
if (tag == kTagPreload) {
|
|
nFlags |= DICT_LOAD;
|
|
}
|
|
else if (tag == kTagPrelock) {
|
|
nFlags |= DICT_LOCK;
|
|
}
|
|
else {
|
|
rfs.ScriptError("Unrecognized flag");
|
|
rfs.SkipBeyondValue(';');
|
|
goto START; // FIXME
|
|
}
|
|
|
|
tag = rfs.GetNextTag();
|
|
}
|
|
|
|
if (tag != kTagSemiColon)
|
|
{
|
|
rfs.ScriptError("';' expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
if (dword_44CE0[gParseLevel] == 0) {
|
|
sub_11C10(zScriptDirectory, inp, nFlags, ID);
|
|
}
|
|
|
|
break;
|
|
}
|
|
case kTagIfDef: // purplish colour
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTag4)
|
|
{
|
|
rfs.ScriptError("Parameter error in ifdef");
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
rfs.SetMark();
|
|
strcpy(char256_1, scriptBuffer);
|
|
|
|
bool bGotDefine = false;
|
|
|
|
// check if this was defined via command prompt arguments
|
|
for (int i = 0; i < nCmdDefines; i++)
|
|
{
|
|
if (Bstrcasecmp(gCmdDefines[i]._text, char256_1) == 0) { // string is equivalent
|
|
bGotDefine = true;
|
|
break;
|
|
}
|
|
}
|
|
|
|
// loc_11FC3:
|
|
gParseLevel++;
|
|
dassert(gParseLevel < kMaxParseLevels);
|
|
|
|
if (bGotDefine) {
|
|
dword_44CE0[gParseLevel] = dword_44CE0[gParseLevel - 1];
|
|
}
|
|
else {
|
|
dword_44CE0[gParseLevel] = 1;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case kTagElse: // pinky colour
|
|
{
|
|
if (gParseLevel)
|
|
{
|
|
// loc_12066:
|
|
if (dword_44CE0[gParseLevel - 1] == 0) {
|
|
if (dword_44CE0[gParseLevel] == 0) {
|
|
dword_44CE0[gParseLevel] = 1;
|
|
}
|
|
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
}
|
|
else {
|
|
rfs.ScriptError("Unexpected else");
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
case kTagEndif: // poo coloured
|
|
{
|
|
if (gParseLevel) {
|
|
gParseLevel--;
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
rfs.ScriptError("Unexpected Endif");
|
|
rfs.SkipBeyondValue('\n');
|
|
break;
|
|
}
|
|
}
|
|
case kTagHash: // gold colour
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag == kTagInclude)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTagString)
|
|
{
|
|
rfs.ScriptError("String constant exected");
|
|
// why no SkipBeyondValue?
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
ParseScript(scriptBuffer);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case kTagData: // eg: data "AMB1.SFX" as 1: 80, 0x10000, 0x0, 1, -1, "amb1";
|
|
{
|
|
// green coloured section
|
|
if (rfs.GetNextTag() != kTagString) {
|
|
rfs.ScriptError("String constant expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
// eg strcpy(fileName, "AMB1.SFX");
|
|
strcpy(fileName, scriptBuffer);
|
|
|
|
char nFlags = 0;
|
|
int ID = 0;
|
|
|
|
bool isDefine = false;
|
|
|
|
tag = rfs.GetNextTag();
|
|
|
|
// process an ID section
|
|
if (tag == kTagAs)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag == kTag4)
|
|
{
|
|
strcpy(fileName, scriptBuffer);
|
|
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTagEquals) {
|
|
rfs.ScriptError("Missing '='");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
|
|
isDefine = true;
|
|
tag = rfs.GetNextTag();
|
|
}
|
|
|
|
if (tag != kTagConstant)
|
|
{
|
|
rfs.ScriptError("Constant Expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
else {
|
|
//if (isDefine) {
|
|
// AddDefine(fileName, scriptValue);
|
|
//}
|
|
|
|
nFlags |= DICT_ID;
|
|
ID = scriptValue;
|
|
tag = rfs.GetNextTag();
|
|
}
|
|
}
|
|
|
|
if (tag == kTagComma)
|
|
{
|
|
// process all sections on this line that are comma separated
|
|
while (1)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
if (tag == kTagPreload)
|
|
{
|
|
nFlags |= DICT_LOAD;
|
|
tag = rfs.GetNextTag();
|
|
|
|
if (tag == kTagComma) {
|
|
continue;
|
|
}
|
|
}
|
|
else if (tag == kTagPrelock)
|
|
{
|
|
nFlags |= DICT_LOCK;
|
|
tag = rfs.GetNextTag();
|
|
|
|
if (tag == kTagComma) {
|
|
continue;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
rfs.ScriptError("Unrecognized flag");
|
|
rfs.SkipBeyondValue(';');
|
|
goto START; // FIXME
|
|
}
|
|
}
|
|
}
|
|
|
|
// loc_12471:
|
|
if (tag != kTagColon) // marked orange in IDA
|
|
{
|
|
while (1)
|
|
{
|
|
if (tag == kTagPreload)
|
|
{
|
|
nFlags |= DICT_LOAD;
|
|
tag = rfs.GetNextTag();
|
|
|
|
if (tag == kTagColon) {
|
|
break;
|
|
}
|
|
}
|
|
else if (tag == kTagPrelock)
|
|
{
|
|
nFlags |= DICT_LOCK;
|
|
tag = rfs.GetNextTag();
|
|
|
|
if (tag == kTagColon) {
|
|
break;
|
|
}
|
|
}
|
|
else {
|
|
rfs.ScriptError("':' expected");
|
|
rfs.SkipBeyondValue(';');
|
|
goto START; // FIXME
|
|
}
|
|
}
|
|
}
|
|
|
|
nBytes = 0;
|
|
|
|
// yellow loop
|
|
while (1)
|
|
{
|
|
tag = rfs.GetNextTag();
|
|
|
|
switch (tag)
|
|
{
|
|
case kTagString:
|
|
{
|
|
memcpy(&buffer[nBytes], scriptBuffer, strlen(scriptBuffer) + 1);
|
|
nBytes += strlen(scriptBuffer) + 1;
|
|
break;
|
|
}
|
|
case kTagConstant:
|
|
{
|
|
memcpy(&buffer[nBytes], &scriptValue, sizeof(scriptValue));
|
|
nBytes += sizeof(scriptValue);
|
|
break;
|
|
}
|
|
default:
|
|
{
|
|
rfs.ScriptError("Constant expected");
|
|
rfs.SkipBeyondValue(';');
|
|
goto START; // FIXME
|
|
}
|
|
}
|
|
|
|
tag = rfs.GetNextTag();
|
|
if (tag != kTagComma) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (tag != kTagSemiColon) {
|
|
rfs.ScriptError("Semicolon expected");
|
|
rfs.SkipBeyondValue(';');
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
if (dword_44CE0[gParseLevel] == 0) {
|
|
sub_11DF0(fileName, nFlags, ID);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
//CreateHeader();
|
|
rfs.Close();
|
|
pathsearchmode = bakpathsearchmode;
|
|
}
|
|
|
|
void sub_11C10(char *pzScriptDir, char *fileName, char flags, int ID)
|
|
{
|
|
#if 0 // This needs a more sophisticated approach inside the file system backend if it ever gets activated
|
|
char zDirectory[BMAX_PATH];
|
|
char zFilename[BMAX_PATH];
|
|
char zType[BMAX_PATH];
|
|
BDIR* dirr;
|
|
struct Bdirent* dirent;
|
|
dirr = Bopendir("./");
|
|
if (dirr)
|
|
{
|
|
while ((dirent = Breaddir(dirr)))
|
|
{
|
|
if (!Bwildmatch(dirent->name, fileName))
|
|
continue;
|
|
|
|
SplitPath(dirent->name, zDirectory, zFilename, zType);
|
|
|
|
if (!Bstrcasecmp(zType, "RAW") || !Bstrcasecmp(zType, "SFX") || !Bstrcasecmp(zType, "MID") || !Bstrcasecmp(zType, "TMB"))
|
|
gSoundRes.AddExternalResource(zFilename, zType, ID, flags, dirent->name);
|
|
else
|
|
gSysRes.AddExternalResource(zFilename, zType, ID, flags, dirent->name);
|
|
}
|
|
Bclosedir(dirr);
|
|
}
|
|
dirr = Bopendir(pzScriptDir);
|
|
if (dirr)
|
|
{
|
|
while ((dirent = Breaddir(dirr)))
|
|
{
|
|
if (!Bwildmatch(dirent->name, fileName))
|
|
continue;
|
|
|
|
SplitPath(dirent->name, zDirectory, zFilename, zType);
|
|
|
|
if (!Bstrcasecmp(zType, "RAW") || !Bstrcasecmp(zType, "SFX") || !Bstrcasecmp(zType, "MID") || !Bstrcasecmp(zType, "TMB"))
|
|
gSoundRes.AddExternalResource(zFilename, zType, ID, flags, dirent->name);
|
|
else
|
|
gSysRes.AddExternalResource(zFilename, zType, ID, flags, dirent->name);
|
|
}
|
|
Bclosedir(dirr);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
void sub_11DF0(char *filePath, char flags, int ID)
|
|
{
|
|
#if 0 // This needs a more sophisticated approach inside the file system backend if it ever gets activated
|
|
char zDirectory[BMAX_PATH];
|
|
char zFilename[BMAX_PATH];
|
|
char zType[BMAX_PATH];
|
|
|
|
SplitPath(filePath, zDirectory, zFilename, zType);
|
|
|
|
if (!Bstrcasecmp(zType, "RAW") || !Bstrcasecmp(zType, "SFX") || !Bstrcasecmp(zType, "MID") || !Bstrcasecmp(zType, "TMB"))
|
|
gSoundRes.AddFromBuffer(zFilename, zType, buffer, nBytes, ID, flags);
|
|
else
|
|
gSysRes.AddFromBuffer(zFilename, zType, buffer, nBytes, ID, flags);
|
|
#endif
|
|
}
|
|
|
|
END_BLD_NS
|