Initial commit

engines/glk/alan3/act.cpp

@@ -0,0 +1,128 @@
+/* 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(&parameters[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