129 lines
4.1 KiB
C++
129 lines
4.1 KiB
C++
/* ScummVM - Graphic Adventure Engine
|
|
*
|
|
* ScummVM is the legal property of its developers, whose names
|
|
* are too numerous to list here. Please refer to the COPYRIGHT
|
|
* file distributed with this source distribution.
|
|
*
|
|
* 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 3 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, see <http://www.gnu.org/licenses/>.
|
|
*
|
|
*/
|
|
|
|
#include "glk/alan3/act.h"
|
|
#include "glk/alan3/alt_info.h"
|
|
#include "glk/alan3/exe.h"
|
|
#include "glk/alan3/lists.h"
|
|
#include "glk/alan3/msg.h"
|
|
#include "glk/alan3/output.h"
|
|
#include "glk/alan3/syserr.h"
|
|
|
|
namespace Glk {
|
|
namespace Alan3 {
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
static void executeCommand(CONTEXT, int verb, Parameter parameters[]) {
|
|
static AltInfo *altInfos = nullptr; /* Need to survive lots of different exits...*/
|
|
int altIndex;
|
|
bool flag;
|
|
|
|
/* Did we leave anything behind last time... */
|
|
if (altInfos != nullptr)
|
|
free(altInfos);
|
|
|
|
altInfos = findAllAlternatives(verb, parameters);
|
|
|
|
FUNC2(anyCheckFailed, flag, altInfos, EXECUTE_CHECK_BODY_ON_FAIL)
|
|
if (flag)
|
|
return;
|
|
|
|
/* Check for anything to execute... */
|
|
if (!anythingToExecute(altInfos))
|
|
CALL1(error, M_CANT0)
|
|
|
|
/* Now perform actions! First try any BEFORE or ONLY from inside out */
|
|
for (altIndex = lastAltInfoIndex(altInfos); altIndex >= 0; altIndex--) {
|
|
if (altInfos[altIndex].alt != nullptr) // TODO Can this ever be NULL? Why?
|
|
if (altInfos[altIndex].alt->qual == (Aword)Q_BEFORE
|
|
|| altInfos[altIndex].alt->qual == (Aword)Q_ONLY) {
|
|
FUNC1(executedOk, flag, &altInfos[altIndex])
|
|
if (!flag)
|
|
CALL0(abortPlayerCommand)
|
|
if (altInfos[altIndex].alt->qual == (Aword)Q_ONLY)
|
|
return;
|
|
}
|
|
}
|
|
|
|
/* Then execute any not declared as AFTER, i.e. the default */
|
|
for (altIndex = 0; !altInfos[altIndex].end; altIndex++) {
|
|
if (altInfos[altIndex].alt != nullptr) {
|
|
if (altInfos[altIndex].alt->qual != (Aword)Q_AFTER) {
|
|
FUNC1(executedOk, flag, &altInfos[altIndex])
|
|
if (!flag)
|
|
CALL0(abortPlayerCommand)
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Finally, the ones declared as AFTER */
|
|
for (altIndex = lastAltInfoIndex(altInfos); altIndex >= 0; altIndex--) {
|
|
if (altInfos[altIndex].alt != nullptr) {
|
|
FUNC1(executedOk, flag, &altInfos[altIndex])
|
|
if (!flag)
|
|
CALL0(abortPlayerCommand)
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*======================================================================
|
|
|
|
action()
|
|
|
|
Execute the command. Handles acting on multiple items
|
|
such as ALL, THEM or lists of objects.
|
|
|
|
*/
|
|
void action(CONTEXT, int verb, Parameter parameters[], Parameter multipleMatches[]) {
|
|
int multiplePosition;
|
|
char marker[10];
|
|
|
|
multiplePosition = findMultiplePosition(parameters);
|
|
if (multiplePosition != -1) {
|
|
Common::sprintf_s(marker, "($%d)", multiplePosition + 1); /* Prepare a printout with $1/2/3 */
|
|
for (int i = 0; !isEndOfArray(&multipleMatches[i]); i++) {
|
|
copyParameter(¶meters[multiplePosition], &multipleMatches[i]);
|
|
setGlobalParameters(parameters); /* Need to do this here since the marker use them */
|
|
output(marker);
|
|
|
|
// WARNING: The original did a temporary grabbing of the returnLabel setjmp point here.
|
|
// Which is why I manually check the context return instead of using the CALL macro
|
|
executeCommand(context, verb, parameters);
|
|
if (context._break && context._label.hasPrefix("return"))
|
|
context._break = false;
|
|
if (context._break)
|
|
return;
|
|
|
|
if (multipleMatches[i + 1].instance != EOD)
|
|
para();
|
|
}
|
|
|
|
parameters[multiplePosition].instance = 0;
|
|
} else {
|
|
setGlobalParameters(parameters);
|
|
CALL2(executeCommand, verb, parameters)
|
|
}
|
|
}
|
|
|
|
} // End of namespace Alan3
|
|
} // End of namespace Glk
|