DIRECTOR: LINGO: Initial code for b_installMenu(). Parsing

1 files changed, 79 insertions, 0 deletions

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index a4da64b562..3355ddc0e0 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -27,6 +27,9 @@
 #include "director/frame.h"
 #include "director/sprite.h"
 
+#include "graphics/macgui/macwindowmanager.h"
+#include "graphics/macgui/macmenu.h"
+
 namespace Director {
 
 static struct BuiltinProto {
@@ -1155,7 +1158,83 @@ void Lingo::b_importFileInto(int nargs) {
 }
 
 void Lingo::b_installMenu(int nargs) {
+	// installMenu castNum
 	Datum d = g_lingo->pop();
+
+	d.toInt();
+
+	if (g_director->getVersion() < 4)
+		d.u.i += 1024;
+
+	const Stxt *stxt = g_director->getCurrentScore()->_loadedStxts->getVal(d.u.i, nullptr);
+
+	if (!stxt) {
+		warning("installMenu: Unknown cast number #%d", d.u.i);
+		return;
+	}
+
+	Common::String menuStxt = g_lingo->codePreprocessor(stxt->_ptext.c_str(), true);
+	Common::String line;
+	int linenum = -1; // We increment it before processing
+
+	//Graphics::MacMenu *menu = g_director->_wm->addMenu();
+	//Graphics::MacMenuSubMenu *submenu = nullptr;
+
+	for (const byte *s = (const byte *)menuStxt.c_str(); *s; s++) {
+		// Get next line
+		line.clear();
+		while (*s && *s != '\n') { // If we see a whitespace
+			if (*s == (byte)'\xc2') {
+				s++;
+				if (*s == '\n') {
+					line += ' ';
+
+					s++;
+				}
+			} else {
+				line += *s++;
+			}
+		}
+
+		linenum++;
+
+		if (line.empty())
+			continue;
+
+		if (line.hasPrefixIgnoreCase("menu:")) {
+			const char *p = &line.c_str()[5];
+
+			while (*p && (*p == ' ' || *p == '\t'))
+				p++;
+
+			warning("menu: '%s'", Common::toPrintable(p).c_str());
+			//menu->addMenuItem(nullptr, Common::String(p));
+
+			//submenu = menu->addSubMenu(nullptr);
+
+			continue;
+		}
+
+		// We have either '=' or \xc5 as a separator
+		const char *p = strchr(line.c_str(), '=');
+
+		if (!p)
+			p = strchr(line.c_str(), '\xc5');
+
+		if (!p) {
+			warning("installMenu: syntax error at line %d", linenum);
+			continue;
+		}
+
+		Common::String text(line.c_str(), p);
+		Common::String command(p + 1);
+
+		text.trim();
+		command.trim();
+
+		warning("text: '%s'  command: '%s'", Common::toPrintable(text).c_str(), Common::toPrintable(command).c_str());
+	}
+
 	warning("STUB: b_installMenu(%d)", d.u.i);
 }