mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-23 18:24:59 +00:00
2dc7cb2cd4
- Cutting down the code-dup - Plucking leaks - Removing dead/unused code - Properly naming "word_2342F"-style variables and functions (removing the warnings alongside) - Fleshing out the "stubby" functions - Moving functions and variables to more appropriate/logical places - Re-ordering functions and variables - Re-structuring functions - Moving the IMD stuff into a new "Imd" class in the new imd.cpp/.h (still to be completely implemented and cleaned up) - Formatting - Getting rid off the classes "Anim", "Pack" and "Timer", along with their files svn-id: r26252
901 lines
20 KiB
C++
901 lines
20 KiB
C++
/* ScummVM - Scumm Interpreter
|
|
* Copyright (C) 2004 Ivan Dubrov
|
|
* Copyright (C) 2004-2006 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
* $URL$
|
|
* $Id$
|
|
*
|
|
*/
|
|
|
|
#include "common/stdafx.h"
|
|
#include "common/endian.h"
|
|
|
|
#include "gob/gob.h"
|
|
#include "gob/parse.h"
|
|
#include "gob/global.h"
|
|
#include "gob/inter.h"
|
|
|
|
namespace Gob {
|
|
|
|
Parse_v1::Parse_v1(GobEngine *vm) : Parse(vm) {
|
|
}
|
|
|
|
int16 Parse_v1::parseVarIndex() {
|
|
int16 temp2;
|
|
char *arrDesc;
|
|
int16 dim;
|
|
int16 dimCount;
|
|
int16 operation;
|
|
int16 temp;
|
|
int16 offset;
|
|
int16 val;
|
|
|
|
operation = *_vm->_global->_inter_execPtr++;
|
|
debugC(5, kDebugParser, "var parse = %d", operation);
|
|
switch (operation) {
|
|
case 23:
|
|
case 25:
|
|
temp = _vm->_inter->load16() * 4;
|
|
debugC(5, kDebugParser, "oper = %d",
|
|
(int16) *_vm->_global->_inter_execPtr);
|
|
|
|
if ((operation == 25) && (*_vm->_global->_inter_execPtr == 13)) {
|
|
_vm->_global->_inter_execPtr++;
|
|
val = parseValExpr(12);
|
|
temp += val;
|
|
debugC(5, kDebugParser, "parse subscript = %d", val);
|
|
}
|
|
return temp;
|
|
|
|
case 26:
|
|
case 28:
|
|
temp = _vm->_inter->load16() * 4;
|
|
dimCount = *_vm->_global->_inter_execPtr++;
|
|
arrDesc = _vm->_global->_inter_execPtr;
|
|
_vm->_global->_inter_execPtr += dimCount;
|
|
offset = 0;
|
|
for (dim = 0; dim < dimCount; dim++) {
|
|
temp2 = parseValExpr(12);
|
|
offset = arrDesc[dim] * offset + temp2;
|
|
}
|
|
offset *= 4;
|
|
if (operation != 28)
|
|
return temp + offset;
|
|
|
|
if (*_vm->_global->_inter_execPtr == 13) {
|
|
_vm->_global->_inter_execPtr++;
|
|
temp += parseValExpr(12);
|
|
}
|
|
return offset * _vm->_global->_inter_animDataSize + temp;
|
|
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
int16 Parse_v1::parseValExpr(unsigned stopToken) {
|
|
int16 values[20];
|
|
byte operStack[20];
|
|
int16 *valPtr;
|
|
byte *operPtr;
|
|
byte *arrDesc;
|
|
unsigned operation;
|
|
int16 temp2;
|
|
int16 dim;
|
|
int16 dimCount;
|
|
int16 temp;
|
|
int16 offset;
|
|
int16 stkPos;
|
|
int16 brackPos;
|
|
static int16 flag = 0;
|
|
int16 oldflag;
|
|
|
|
oldflag = flag;
|
|
if (flag == 0) {
|
|
flag = 1;
|
|
printExpr(stopToken);
|
|
}
|
|
|
|
stkPos = -1;
|
|
operPtr = operStack - 1;
|
|
valPtr = values - 1;
|
|
|
|
while (1) {
|
|
stkPos++;
|
|
operPtr++;
|
|
valPtr++;
|
|
|
|
operation = *_vm->_global->_inter_execPtr++;
|
|
if ((operation >= 19) && (operation <= 29)) {
|
|
*operPtr = 20;
|
|
switch (operation) {
|
|
case 19:
|
|
*valPtr = READ_LE_UINT32(_vm->_global->_inter_execPtr);
|
|
_vm->_global->_inter_execPtr += 4;
|
|
break;
|
|
|
|
case 20:
|
|
*valPtr = _vm->_inter->load16();
|
|
break;
|
|
|
|
case 23:
|
|
*valPtr = (uint16) VAR(_vm->_inter->load16());
|
|
break;
|
|
|
|
case 25:
|
|
temp = _vm->_inter->load16() * 4;
|
|
_vm->_global->_inter_execPtr++;
|
|
temp += parseValExpr(12);
|
|
*valPtr = READ_VARO_UINT8(temp);
|
|
break;
|
|
|
|
case 26:
|
|
case 28:
|
|
temp = _vm->_inter->load16();
|
|
dimCount = *_vm->_global->_inter_execPtr++;
|
|
arrDesc = (byte*) _vm->_global->_inter_execPtr;
|
|
_vm->_global->_inter_execPtr += dimCount;
|
|
offset = 0;
|
|
for (dim = 0; dim < dimCount; dim++) {
|
|
temp2 = parseValExpr(12);
|
|
offset = arrDesc[dim] * offset + temp2;
|
|
}
|
|
if (operation == 26) {
|
|
*valPtr = (uint16) VAR(temp + offset);
|
|
} else {
|
|
_vm->_global->_inter_execPtr++;
|
|
temp2 = parseValExpr(12);
|
|
*valPtr = READ_VARO_UINT8(temp * 4 + offset * 4 *
|
|
_vm->_global->_inter_animDataSize + temp2);
|
|
}
|
|
break;
|
|
|
|
case 29:
|
|
operation = *_vm->_global->_inter_execPtr++;
|
|
parseExpr(10, 0);
|
|
|
|
if (operation == 5) {
|
|
_vm->_global->_inter_resVal =
|
|
_vm->_global->_inter_resVal * _vm->_global->_inter_resVal;
|
|
} else if (operation == 7) {
|
|
if (_vm->_global->_inter_resVal < 0)
|
|
_vm->_global->_inter_resVal = -_vm->_global->_inter_resVal;
|
|
} else if (operation == 10) {
|
|
_vm->_global->_inter_resVal =
|
|
_vm->_util->getRandom(_vm->_global->_inter_resVal);
|
|
}
|
|
*valPtr = _vm->_global->_inter_resVal;
|
|
break;
|
|
|
|
} // switch
|
|
if ((stkPos > 0) && (operPtr[-1] == 1)) {
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
operPtr[0] = 20;
|
|
valPtr[0] = -valPtr[1];
|
|
}
|
|
|
|
if ((stkPos > 0) && (operPtr[-1] > 4) && (operPtr[-1] < 9)) {
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
|
|
switch (operPtr[1]) {
|
|
case 5:
|
|
valPtr[0] *= valPtr[2];
|
|
break;
|
|
|
|
case 6:
|
|
valPtr[0] /= valPtr[2];
|
|
break;
|
|
|
|
case 7:
|
|
valPtr[0] %= valPtr[2];
|
|
break;
|
|
|
|
case 8:
|
|
valPtr[0] &= valPtr[2];
|
|
break;
|
|
}
|
|
} // if ((stkPos > 0) && (cmdPtr[-1] > 4) && (cmdPtr[-1] < 9))
|
|
continue;
|
|
}
|
|
|
|
if ((operation >= 1) && (operation <= 9)) {
|
|
*operPtr = operation;
|
|
continue;
|
|
}
|
|
|
|
while (stkPos >= 2) {
|
|
if (operPtr[-2] == 9) {
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
|
|
operPtr[-1] = operPtr[0];
|
|
valPtr[-1] = valPtr[0];
|
|
if ((stkPos > 1) && (operPtr[-2] == 1)) {
|
|
valPtr[-2] = 20;
|
|
valPtr[-2] = -valPtr[-1];
|
|
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
}
|
|
|
|
if ((stkPos > 2) && (operPtr[-2] > 4) && (operPtr[-2] < 9)) {
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
switch (operPtr[0]) {
|
|
case 5:
|
|
operPtr[-1] *= operPtr[1];
|
|
break;
|
|
|
|
case 6:
|
|
operPtr[-1] /= operPtr[1];
|
|
break;
|
|
|
|
case 7:
|
|
operPtr[-1] %= operPtr[1];
|
|
break;
|
|
|
|
case 8:
|
|
operPtr[-1] &= operPtr[1];
|
|
break;
|
|
}
|
|
}
|
|
if (operation == 10)
|
|
break;
|
|
} // operPtr[-2] == 9
|
|
|
|
for (brackPos = (stkPos - 2); (brackPos > 0) &&
|
|
(operStack[brackPos] < 30) && (operStack[brackPos] != 9);
|
|
brackPos--);
|
|
|
|
if ((operStack[brackPos] >= 30) || (operStack[brackPos] == 9))
|
|
brackPos++;
|
|
|
|
if ((operPtr[-2] < 2) || (operPtr[-2] > 8))
|
|
break;
|
|
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
switch (operPtr[0]) {
|
|
case 2:
|
|
values[brackPos] += valPtr[1];
|
|
continue;
|
|
case 3:
|
|
values[brackPos] -= valPtr[1];
|
|
continue;
|
|
case 4:
|
|
values[brackPos] |= valPtr[1];
|
|
continue;
|
|
case 5:
|
|
valPtr[-1] *= valPtr[1];
|
|
continue;
|
|
case 6:
|
|
valPtr[-1] /= valPtr[1];
|
|
continue;
|
|
case 7:
|
|
valPtr[-1] %= valPtr[1];
|
|
continue;
|
|
case 8:
|
|
valPtr[-1] &= valPtr[1];
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (operation != 10) {
|
|
if (operation != stopToken)
|
|
debugC(5, kDebugParser, "stoptoken error: %d != %d",
|
|
operation, stopToken);
|
|
|
|
flag = oldflag;
|
|
return values[0];
|
|
}
|
|
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
}
|
|
}
|
|
|
|
int16 Parse_v1::parseExpr(char stopToken, byte *arg_2) {
|
|
int32 values[20];
|
|
byte operStack[20];
|
|
int32 prevPrevVal;
|
|
int32 prevVal;
|
|
int32 curVal;
|
|
int32 *valPtr;
|
|
char *operPtr;
|
|
byte *arrDescPtr;
|
|
char var_C;
|
|
byte operation;
|
|
int16 dimCount;
|
|
int16 temp;
|
|
int16 temp2;
|
|
uint16 offset;
|
|
int16 dim;
|
|
char var_1A;
|
|
int16 stkPos;
|
|
int16 brackStart;
|
|
|
|
stkPos = -1;
|
|
operPtr = (char *) (operStack - 1);
|
|
valPtr = values - 1;
|
|
|
|
while (1) {
|
|
stkPos++;
|
|
operPtr++;
|
|
valPtr++;
|
|
operation = *_vm->_global->_inter_execPtr++;
|
|
if ((operation >= 19) && (operation <= 29)) {
|
|
switch (operation) {
|
|
case 19:
|
|
*operPtr = 20;
|
|
*valPtr = READ_LE_UINT32(_vm->_global->_inter_execPtr);
|
|
_vm->_global->_inter_execPtr += 4;
|
|
break;
|
|
|
|
case 20:
|
|
*operPtr = 20;
|
|
*valPtr = _vm->_inter->load16();
|
|
break;
|
|
|
|
case 22:
|
|
*operPtr = 22;
|
|
*valPtr = encodePtr(_vm->_global->_inter_execPtr, kExecPtr);
|
|
_vm->_global->_inter_execPtr +=
|
|
strlen(_vm->_global->_inter_execPtr) + 1;
|
|
break;
|
|
|
|
case 23:
|
|
*operPtr = 20;
|
|
*valPtr = VAR(_vm->_inter->load16());
|
|
break;
|
|
|
|
case 25:
|
|
*operPtr = 22;
|
|
temp = _vm->_inter->load16() * 4;
|
|
*valPtr = encodePtr(_vm->_global->_inter_variables + temp,
|
|
kInterVar);
|
|
if (*_vm->_global->_inter_execPtr == 13) {
|
|
_vm->_global->_inter_execPtr++;
|
|
temp += parseValExpr(12);
|
|
*operPtr = 20;
|
|
*valPtr = READ_VARO_UINT8(temp);
|
|
}
|
|
break;
|
|
|
|
case 26:
|
|
case 28:
|
|
*operPtr = operation - 6;
|
|
temp = _vm->_inter->load16();
|
|
dimCount = *_vm->_global->_inter_execPtr++;
|
|
arrDescPtr = (byte *) _vm->_global->_inter_execPtr;
|
|
_vm->_global->_inter_execPtr += dimCount;
|
|
offset = 0;
|
|
dim = 0;
|
|
for (dim = 0; dim < dimCount; dim++) {
|
|
temp2 = parseValExpr(12);
|
|
offset = offset * arrDescPtr[dim] + temp2;
|
|
}
|
|
|
|
if (operation == 26) {
|
|
*valPtr = VAR(temp + offset);
|
|
break;
|
|
}
|
|
*valPtr = encodePtr(_vm->_global->_inter_variables +
|
|
temp * 4 + offset * _vm->_global->_inter_animDataSize * 4,
|
|
kInterVar);
|
|
if (*_vm->_global->_inter_execPtr == 13) {
|
|
_vm->_global->_inter_execPtr++;
|
|
temp2 = parseValExpr(12);
|
|
*operPtr = 20;
|
|
*valPtr = READ_VARO_UINT8(temp * 4 +
|
|
offset * 4 * _vm->_global->_inter_animDataSize + temp2);
|
|
}
|
|
break;
|
|
|
|
case 29:
|
|
operation = *_vm->_global->_inter_execPtr++;
|
|
parseExpr(10, 0);
|
|
|
|
switch (operation) {
|
|
case 5:
|
|
_vm->_global->_inter_resVal =
|
|
_vm->_global->_inter_resVal * _vm->_global->_inter_resVal;
|
|
break;
|
|
|
|
case 0:
|
|
case 1:
|
|
case 6:
|
|
curVal = 1;
|
|
prevVal = 1;
|
|
|
|
do {
|
|
prevPrevVal = prevVal;
|
|
prevVal = curVal;
|
|
curVal = (curVal + _vm->_global->_inter_resVal / curVal) / 2;
|
|
} while ((curVal != prevVal) && (curVal != prevPrevVal));
|
|
_vm->_global->_inter_resVal = curVal;
|
|
break;
|
|
|
|
case 10:
|
|
_vm->_global->_inter_resVal =
|
|
_vm->_util->getRandom(_vm->_global->_inter_resVal);
|
|
break;
|
|
|
|
case 7:
|
|
if (_vm->_global->_inter_resVal < 0)
|
|
_vm->_global->_inter_resVal = -_vm->_global->_inter_resVal;
|
|
break;
|
|
}
|
|
*operPtr = 20;
|
|
*valPtr = _vm->_global->_inter_resVal;
|
|
}
|
|
|
|
if ((stkPos > 0) && ((operPtr[-1] == 1) || (operPtr[-1] == 11))) {
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
|
|
if (*operPtr == 1) {
|
|
*operPtr = 20;
|
|
valPtr[0] = -valPtr[1];
|
|
} else if (*operPtr == 11) {
|
|
if (operPtr[1] == 23)
|
|
*operPtr = 24;
|
|
else
|
|
*operPtr = 23;
|
|
}
|
|
}
|
|
|
|
if (stkPos <= 0)
|
|
continue;
|
|
|
|
switch (operPtr[-1]) {
|
|
case 2:
|
|
if (operPtr[-2] == 22) {
|
|
if (decodePtr(valPtr[-2]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-2]));
|
|
valPtr[-2] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
strcat(_vm->_global->_inter_resStr, decodePtr(valPtr[0]));
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
}
|
|
break;
|
|
|
|
case 5:
|
|
valPtr[-2] *= valPtr[0];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 6:
|
|
valPtr[-2] /= valPtr[0];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 7:
|
|
valPtr[-2] %= valPtr[0];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 8:
|
|
valPtr[-2] &= valPtr[0];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
}
|
|
continue;
|
|
} // (op >= 19) && (op <= 29)
|
|
|
|
if ((operation == stopToken) || (operation == 30) ||
|
|
(operation == 31) || (operation == 10)) {
|
|
while (stkPos >= 2) {
|
|
var_1A = 0;
|
|
if ((operPtr[-2] == 9) &&
|
|
((operation == 10) || (operation == stopToken))) {
|
|
operPtr[-2] = operPtr[-1];
|
|
if ((operPtr[-2] == 20) || (operPtr[-2] == 22))
|
|
valPtr[-2] = valPtr[-1];
|
|
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
|
|
if (stkPos > 1) {
|
|
if (operPtr[-2] == 1) {
|
|
operPtr[-2] = 20;
|
|
valPtr[-2] = -valPtr[-1];
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
} else if (operPtr[-2] == 11) {
|
|
if (operPtr[-1] == 23)
|
|
operPtr[-2] = 24;
|
|
else
|
|
operPtr[-2] = 23;
|
|
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
}
|
|
} // stkPos > 1
|
|
|
|
if (stkPos > 2) {
|
|
switch (operPtr[-2]) {
|
|
case 5:
|
|
valPtr[-3] *= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
case 6:
|
|
valPtr[-3] /= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 7:
|
|
valPtr[-3] %= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 8:
|
|
valPtr[-3] &= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
} // switch
|
|
} // stkPos > 2
|
|
|
|
if (operation != stopToken)
|
|
break;
|
|
} // if ((operPtr[-2] == 9) && ...)
|
|
|
|
for (brackStart = (stkPos - 2); (brackStart > 0) &&
|
|
(operStack[brackStart] < 30) && (operStack[brackStart] != 9);
|
|
brackStart--);
|
|
|
|
if ((operStack[brackStart] >= 30) || (operStack[brackStart] == 9))
|
|
brackStart++;
|
|
|
|
switch (operPtr[-2]) {
|
|
case 2:
|
|
if (operStack[brackStart] == 20) {
|
|
values[brackStart] += valPtr[-1];
|
|
} else if (operStack[brackStart] == 22) {
|
|
if (decodePtr(values[brackStart]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(values[brackStart]));
|
|
values[brackStart] =
|
|
encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
strcat(_vm->_global->_inter_resStr, decodePtr(valPtr[-1]));
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
continue;
|
|
|
|
case 3:
|
|
values[brackStart] -= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
continue;
|
|
|
|
case 4:
|
|
values[brackStart] |= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
continue;
|
|
|
|
case 5:
|
|
valPtr[-3] *= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 6:
|
|
valPtr[-3] /= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 7:
|
|
valPtr[-3] %= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 8:
|
|
valPtr[-3] &= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 30:
|
|
if (operPtr[-3] == 23)
|
|
operPtr[-3] = operPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 31:
|
|
if (operPtr[-3] == 24)
|
|
operPtr[-3] = operPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 32:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] < valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) < 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 33:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] <= valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) <= 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 34:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] > valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) > 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 35:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] >= valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) >= 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 36:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] == valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) == 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
case 37:
|
|
var_C = operPtr[-3];
|
|
operPtr[-3] = 23;
|
|
if (var_C == 20) {
|
|
if (valPtr[-3] != valPtr[-1])
|
|
operPtr[-3] = 24;
|
|
} else if (var_C == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
if (strcmp(_vm->_global->_inter_resStr, decodePtr(valPtr[-1])) != 0)
|
|
operPtr[-3] = 24;
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
break;
|
|
|
|
default:
|
|
var_1A = 1;
|
|
break;
|
|
} // switch
|
|
|
|
if (var_1A != 0)
|
|
break;
|
|
} // while (stkPos >= 2)
|
|
|
|
if ((operation == 30) || (operation == 31)) {
|
|
if (operPtr[-1] == 20) {
|
|
if (valPtr[-1] != 0)
|
|
operPtr[-1] = 24;
|
|
else
|
|
operPtr[-1] = 23;
|
|
}
|
|
|
|
if (((operation == 30) && (operPtr[-1] == 24)) ||
|
|
((operation == 31) && (operPtr[-1] == 23))) {
|
|
if ((stkPos > 1) && (operPtr[-2] == 9)) {
|
|
skipExpr(10);
|
|
operPtr[-2] = operPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
} else
|
|
skipExpr(stopToken);
|
|
|
|
operation = _vm->_global->_inter_execPtr[-1];
|
|
if ((stkPos > 0) && (operPtr[-1] == 11)) {
|
|
if (operPtr[0] == 23)
|
|
operPtr[-1] = 24;
|
|
else
|
|
operPtr[-1] = 23;
|
|
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
}
|
|
} else
|
|
operPtr[0] = operation;
|
|
} else {
|
|
stkPos--;
|
|
operPtr--;
|
|
valPtr--;
|
|
}
|
|
|
|
if (operation != stopToken)
|
|
continue;
|
|
|
|
if (arg_2 != 0)
|
|
*arg_2 = operStack[0];
|
|
|
|
switch (operStack[0]) {
|
|
case 20:
|
|
_vm->_global->_inter_resVal = values[0];
|
|
break;
|
|
|
|
case 22:
|
|
if (decodePtr(values[0]) != _vm->_global->_inter_resStr)
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(values[0]));
|
|
break;
|
|
|
|
case 11:
|
|
if (arg_2 != 0)
|
|
*arg_2 ^= 1;
|
|
break;
|
|
|
|
case 23:
|
|
case 24:
|
|
break;
|
|
|
|
default:
|
|
_vm->_global->_inter_resVal = 0;
|
|
if (arg_2 != 0)
|
|
*arg_2 = 20;
|
|
break;
|
|
}
|
|
return 0;
|
|
} // (operation == stopToken) || (operation == 30) || (operation == 31) || (operation == 10)
|
|
|
|
if (operation < 1 || operation > 11) {
|
|
if (operation < 32 || operation > 37)
|
|
continue;
|
|
|
|
if (stkPos > 2) {
|
|
if (operPtr[-2] == 2) {
|
|
if (operPtr[-3] == 20) {
|
|
valPtr[-3] += valPtr[-1];
|
|
} else if (operPtr[-3] == 22) {
|
|
if (decodePtr(valPtr[-3]) != _vm->_global->_inter_resStr) {
|
|
strcpy(_vm->_global->_inter_resStr, decodePtr(valPtr[-3]));
|
|
valPtr[-3] = encodePtr(_vm->_global->_inter_resStr, kResStr);
|
|
}
|
|
strcat(_vm->_global->_inter_resStr, decodePtr(valPtr[-1]));
|
|
}
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
|
|
} else if (operPtr[-2] == 3) {
|
|
valPtr[-3] -= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
} else if (operPtr[-2] == 4) {
|
|
valPtr[-3] |= valPtr[-1];
|
|
stkPos -= 2;
|
|
operPtr -= 2;
|
|
valPtr -= 2;
|
|
}
|
|
}
|
|
}
|
|
*operPtr = operation;
|
|
}
|
|
}
|
|
|
|
} // End of namespace Gob
|