1 files changed, 152 insertions, 0 deletions
diff --git a/engines/glk/archetype/keywords.cpp b/engines/glk/archetype/keywords.cpp
new file mode 100644
index 0000000000..c794750699
--- /dev/null
+++ b/engines/glk/archetype/keywords.cpp
@@ -0,0 +1,152 @@
+/* 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 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.
+ *
+ */
+
+#include "glk/archetype/keywords.h"
+#include "glk/archetype/archetype.h"
+#include "glk/archetype/misc.h"
+
+namespace Glk {
+namespace Archetype {
+
+LookupType Reserved_Wds = {
+	nullptr,
+	"ABSENT",
+	"FALSE",
+	"TRUE",
+	"UNDEFINED",
+	"based",
+	"break",
+	"case",
+	"create",
+	"default",
+	"destroy",
+	"do",
+	"each",
+	"else",
+	"end",
+	"for",
+	"if",
+	"include",
+	"key",
+	"keyword",
+	"message",
+	"methods",
+	"named",
+	"null",
+	"of",
+	"on",
+	"read",
+	"self",
+	"sender",
+	"stop",
+	"then",
+	"type",
+	"while",
+	"write",
+	"writes"
+};
+
+LookupType Operators = {
+	 nullptr,
+	"&",
+	"&:=",
+	"*",
+	"*:=",
+	"+",
+	"+:=",
+	"-",
+	"-->",
+	"-:=",
+	"->",
+	".",
+	"/",
+	"/:=",
+	":=",
+	"<",
+	"<=",
+	"=",
+	">",
+	">=",
+	"?",
+	"^",
+	"and",
+	"chs",
+	"leftfrom",
+	"length",
+	"not",
+	"numeric",
+	"or",
+	"rightfrom",
+	"string",
+	"within",
+	"~=",
+	nullptr,
+	nullptr
+};
+
+void load_text_list(Common::ReadStream *fIn, XArrayType &the_list) {
+	int i, n;
+	String s;
+
+	new_xarray(the_list);
+	n = fIn->readUint16LE();
+	for (i = 0; i < n; ++i) {
+		load_string(fIn, s);
+		append_to_xarray(the_list, NewConstStr(s));
+	}
+}
+
+void dump_text_list(Common::WriteStream *fOut, XArrayType &the_list) {
+	void *p;
+
+	fOut->writeUint16LE(the_list.size());
+	for (uint i = 0; i < the_list.size(); ++i) {
+		if (index_xarray(the_list, i, p))
+			dump_string(fOut, *(StringPtr)(p));
+	}
+}
+
+void dispose_text_list(XArrayType &the_list) {
+	void *p;
+
+	for (uint i = 0; i < the_list.size(); ++i) {
+		if (index_xarray(the_list, i, p))
+			free((StringPtr)p);
+	}
+
+	dispose_xarray(the_list);
+}
+
+void load_id_info(Common::ReadStream *bfile) {
+	load_text_list(bfile, g_vm->Type_ID_List);
+	load_text_list(bfile, g_vm->Object_ID_List);
+	load_text_list(bfile, g_vm->Attribute_ID_List);
+}
+
+void dump_id_info(Common::WriteStream *bfile) {
+	dump_text_list(bfile, g_vm->Type_ID_List);
+	dump_text_list(bfile, g_vm->Object_ID_List);
+	dump_text_list(bfile, g_vm->Attribute_ID_List);
+}
+
+} // End of namespace Archetype
+} // End of namespace Glk