Resource *RCFile::GetRes()
{
int type;
int val = 0;
std::wstring name;
ResourceId id;
bool done = false;
Resource *rv = NULL;
while (!done && !AtEof())
{
done= true;
if (!IsNumber() && GetToken()->IsKeyword())
{
type = GetToken()->GetKeyword();
name = GetToken()->GetString();
if (type >= Lexer::ACCELERATORS)
{
if (type != Lexer::STRINGTABLE && type != Lexer::LANGUAGE)
{
NextToken();
if (GetToken()->IsKeyword() && GetToken()->GetKeyword() >= Lexer::ACCELERATORS)
{
id.SetName(name);
type = GetToken()->GetKeyword();
name = GetToken()->GetString();
}
else if (GetToken()->IsIdentifier())
{
id.SetName(name);
type = -1;
name =CvtString(GetToken()->GetId());
}
else if (IsNumber())
{
type = -2;
val = GetNumber();
}
else
{
throw new std::runtime_error("Expected resource type");
}
if (type != -2)
NextToken();
}
else
{
NextToken();
}
}
else
{
throw new std::runtime_error("Expected resource identifier");
}
}
else
{
id.ReadRC(*this);
if (GetToken()->IsKeyword())
{
type = GetToken()->GetKeyword();
name = GetToken()->GetString();
}
else if (GetToken()->IsIdentifier())
{
type = -1;
name = CvtString(GetToken()->GetId());
}
else if (IsNumber())
{
type = -2;
val = GetNumber();
}
else
{
throw new std::runtime_error("Expected resource type");
}
if (type != -2)
NextToken();
}
ResourceInfo info(language);
info.SetFlags(ResourceInfo::Moveable | ResourceInfo::Discardable);
rv = NULL;
switch (type)
{
case -1:
for (int i=0 ; i < name.size(); i++)
name[i] = toupper(name[i]);
rv = new GenericResource(ResourceId(name), id, info);
break;
case -2:
rv = new GenericResource(ResourceId(val), id, info);
break;
case Lexer::ACCELERATORS:
rv = new Accelerators(id, info);
break;
case Lexer::TBITMAP:
rv = new Bitmap(id, info);
break;
case Lexer::CURSOR:
rv = new GroupCursor(id, info);
break;
case Lexer::DIALOG:
rv = new Dialog(id, info, false);
break;
case Lexer::DIALOGEX:
rv = new Dialog(id, info, true);
break;
case Lexer::DLGINCLUDE:
rv = new DlgInclude(id, info);
break;
case Lexer::FONT:
rv = new Font(id, info);
break;
case Lexer::ICON:
rv = new GroupIcon(id, info);
break;
case Lexer::MENU:
rv = new Menu(id, info, false);
break;
case Lexer::MENUEX:
rv = new Menu(id, info, true);
break;
case Lexer::RCDATA:
rv = new RCData(id, info);
break;
case Lexer::VERSIONINFO:
rv = new VersionInfo(id, info);
break;
case Lexer::MESSAGETABLE:
rv = new MessageTable(id, info);
break;
case Lexer::STRINGTABLE:
rv = new StringTable(info);
rv->ReadRC(*this);
delete rv;
rv = NULL;
done = false;
break;
case Lexer::LANGUAGE:
{
language = GetNumber();
SkipComma();
language |= GetNumber() << 10;
NeedEol();
done = false;
break;
}
case Lexer::RCINCLUDE:
{
std::string name = GetFileName();
pp.IncludeFile(name);
}
break;
default:
throw new std::runtime_error("Invalid resource type");
break;
}
if (rv)
rv->ReadRC(*this);
}
return rv;
}
static int ConfigParseFile(TCHAR* pszFilename)
{
#define INSIDE_NOTHING (0xFFFF & (1 << ((sizeof(TCHAR) * 8) - 1)))
TCHAR szLine[1024];
TCHAR* s;
TCHAR* t;
int nLen;
int nLine = 0;
TCHAR nInside = INSIDE_NOTHING;
CheatInfo* pCurrentCheat = NULL;
FILE* h = _tfopen(pszFilename, _T("rt"));
if (h == NULL) {
return 1;
}
while (1) {
if (_fgetts(szLine, sizeof(szLine), h) == NULL) {
break;
}
nLine++;
nLen = _tcslen(szLine);
// Get rid of the linefeed at the end
while (szLine[nLen - 1] == 0x0A || szLine[nLen - 1] == 0x0D) {
szLine[nLen - 1] = 0;
nLen--;
}
s = szLine; // Start parsing
if (s[0] == _T('/') && s[1] == _T('/')) { // Comment
continue;
}
if ((t = LabelCheck(s, _T("include"))) != 0) { // Include a file
s = t;
TCHAR szFilename[MAX_PATH] = _T("");
// Read name of the cheat file
TCHAR* szQuote = NULL;
QuoteRead(&szQuote, NULL, s);
_stprintf(szFilename, _T("%s%s.dat"), szAppCheatsPath, szQuote);
if (ConfigParseFile(szFilename)) {
_stprintf(szFilename, _T("%s%s.ini"), szAppCheatsPath, szQuote);
if (ConfigParseFile(szFilename)) {
CheatError(pszFilename, nLine, NULL, _T("included file doesn't exist"), szLine);
}
}
continue;
}
if ((t = LabelCheck(s, _T("cheat"))) != 0) { // Add new cheat
s = t;
// Read cheat name
TCHAR* szQuote = NULL;
TCHAR* szEnd = NULL;
QuoteRead(&szQuote, &szEnd, s);
s = szEnd;
if ((t = LabelCheck(s, _T("advanced"))) != 0) { // Advanced cheat
s = t;
}
SKIP_WS(s);
if (nInside == _T('{')) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("missing closing bracket"), NULL);
break;
}
#if 0
if (*s != _T('\0') && *s != _T('{')) {
CheatError(pszFilename, nLine, NULL, _T("malformed cheat declaration"), szLine);
break;
}
#endif
nInside = *s;
// Link new node into the list
CheatInfo* pPreviousCheat = pCurrentCheat;
pCurrentCheat = (CheatInfo*)malloc(sizeof(CheatInfo));
if (pCheatInfo == NULL) {
pCheatInfo = pCurrentCheat;
}
memset(pCurrentCheat, 0, sizeof(CheatInfo));
pCurrentCheat->pPrevious = pPreviousCheat;
if (pPreviousCheat) {
pPreviousCheat->pNext = pCurrentCheat;
}
// Fill in defaults
pCurrentCheat->nType = 0; // Default to cheat type 0 (apply each frame)
pCurrentCheat->nStatus = -1; // Disable cheat
memcpy(pCurrentCheat->szCheatName, szQuote, QUOTE_MAX);
continue;
}
if ((t = LabelCheck(s, _T("type"))) != 0) { // Cheat type
if (nInside == INSIDE_NOTHING || pCurrentCheat == NULL) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("rogue cheat type"), szLine);
break;
}
s = t;
// Set type
pCurrentCheat->nType = _tcstol(s, NULL, 0);
continue;
}
if ((t = LabelCheck(s, _T("default"))) != 0) { // Default option
if (nInside == INSIDE_NOTHING || pCurrentCheat == NULL) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("rogue default"), szLine);
break;
}
s = t;
// Set default option
pCurrentCheat->nDefault = _tcstol(s, NULL, 0);
continue;
}
int n = _tcstol(s, &t, 0);
if (t != s) { // New option
if (nInside == INSIDE_NOTHING || pCurrentCheat == NULL) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("rogue option"), szLine);
break;
}
// Link a new Option structure to the cheat
if (n < CHEAT_MAX_OPTIONS) {
s = t;
// Read option name
TCHAR* szQuote = NULL;
TCHAR* szEnd = NULL;
if (QuoteRead(&szQuote, &szEnd, s)) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("option name omitted"), szLine);
break;
}
s = szEnd;
if (pCurrentCheat->pOption[n] == NULL) {
pCurrentCheat->pOption[n] = (CheatOption*)malloc(sizeof(CheatOption));
}
memset(pCurrentCheat->pOption[n], 0, sizeof(CheatOption));
memcpy(pCurrentCheat->pOption[n]->szOptionName, szQuote, QUOTE_MAX * sizeof(TCHAR));
int nCurrentAddress = 0;
bool bOK = true;
while (nCurrentAddress < CHEAT_MAX_ADDRESS) {
int nCPU = 0, nAddress = 0, nValue = 0;
if (SkipComma(&s)) {
nCPU = _tcstol(s, &t, 0); // CPU number
if (t == s) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("CPU number omitted"), szLine);
bOK = false;
break;
}
s = t;
SkipComma(&s);
nAddress = _tcstol(s, &t, 0); // Address
if (t == s) {
bOK = false;
CheatError(pszFilename, nLine, pCurrentCheat, _T("address omitted"), szLine);
break;
}
s = t;
SkipComma(&s);
nValue = _tcstol(s, &t, 0); // Value
if (t == s) {
bOK = false;
CheatError(pszFilename, nLine, pCurrentCheat, _T("value omitted"), szLine);
break;
}
} else {
if (nCurrentAddress) { // Only the first option is allowed no address
break;
}
if (n) {
bOK = false;
CheatError(pszFilename, nLine, pCurrentCheat, _T("CPU / address / value omitted"), szLine);
break;
}
}
pCurrentCheat->pOption[n]->AddressInfo[nCurrentAddress].nCPU = nCPU;
pCurrentCheat->pOption[n]->AddressInfo[nCurrentAddress].nAddress = nAddress;
pCurrentCheat->pOption[n]->AddressInfo[nCurrentAddress].nValue = nValue;
nCurrentAddress++;
}
if (!bOK) {
break;
}
}
continue;
}
SKIP_WS(s);
if (*s == _T('}')) {
if (nInside != _T('{')) {
CheatError(pszFilename, nLine, pCurrentCheat, _T("missing opening bracket"), NULL);
break;
}
nInside = INSIDE_NOTHING;
}
// Line isn't (part of) a valid cheat
#if 0
if (*s) {
CheatError(pszFilename, nLine, NULL, _T("rogue line"), szLine);
break;
}
#endif
}
if (h) {
fclose(h);
}
return 0;
}