Initial commit

engines/watchmaker/init/nl_parse.cpp

@@ -0,0 +1,226 @@
+/* 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 "watchmaker/init/nl_parse.h"
+#include "common/stream.h"
+#include "common/textconsole.h"
+#include "watchmaker/ll/ll_system.h"
+
+namespace Watchmaker {
+
+#define JParse_EOF()    (_stream->eos())
+
+int NLParser::MatchWord(const char *token) {
+	const char *str = token;
+	while (!JParse_EOF() && (*str) != 0) {
+		if (JParse_ReadByte() != *str)
+			str = token;
+		else
+			str++;
+	}
+	return (*str);
+}
+
+// PELS: supporto per il parsing dei .nl **********************************
+
+int NLParser::ParseError(const char *ln, ...) {
+	char err[J_MAXSTRLEN];
+	va_list ap;
+	if (ErrorFunc)
+		ErrorFunc();
+
+	va_start(ap, ln);
+	vsnprintf(err, J_MAXSTRLEN, ln, ap);
+	va_end(ap);
+	warning("%s", err);
+	return 0;
+}
+
+void NLParser::IfParseErrorDo(void (*func)()) {
+	ErrorFunc = func;
+}
+
+Common::SharedPtr<NLParser> NLParser::open(const Common::String &name) {
+	auto stream = openFile(name);
+	if (!stream) {
+		return nullptr;
+	}
+	return Common::SharedPtr<NLParser>(new NLParser(stream));
+}
+
+NLParser::NLParser(Common::SharedPtr<Common::SeekableReadStream> stream) : _stream(stream), nlLineCounter(0), jUsingComments(1) {
+
+}
+
+static int lastreadeol = 0;
+int NLParser::ReadArgument_(char *str, int teol) {
+	int a, notstring = 1, t;
+	unsigned long c = 0;
+	if (teol & lastreadeol)
+		return -1;
+	while (!JParse_EOF()) {
+skipped_comms:
+		a = JParse_ReadByte();
+		if (notstring) {
+			if (jUsingComments)
+				if (a == '/') {
+					t = JParse_ReadByte() & 0xff;
+					switch (t) {
+					case '/':
+						if (MatchWord("\n"))
+							return -1;
+						if (teol) {
+							lastreadeol = 1;
+							return -1;
+						}
+						goto skipped_comms;
+					case '*':
+						if (MatchWord("*/"))
+							return -1;
+						goto skipped_comms;
+					default:
+						if (JParse_PrevByte())
+							return -1;
+					}
+				}
+			switch (a) {
+			case '\"':
+				notstring = 0;
+				break;
+			case '\r':
+			case '\f':
+			case '\n':
+				if (teol && c == 0) {
+					lastreadeol = 1;
+					return -1;
+				}
+				// FIXME: fallthrough intended?
+				// fallthrough
+
+			case '\t':
+			case ' ':
+			case '(':
+				if (c) {
+					lastreadeol = 0;
+					if (a == '\n')lastreadeol = 1;
+					*str = 0;
+					return (c + 1);
+				}
+				break;
+			case ')':
+			case ',':
+			case ';':
+			case '|':
+
+				lastreadeol = 0;
+				*str = 0;
+				return (c + 1);
+			default:
+				if (c++ >= jStringLimit)
+					return -1;
+				*str = a;
+				str++;
+				break;
+			}                                    //end switch
+		} else
+			switch (a) {
+			case '\"':
+				/*while(!JParse_EOF())
+				switch(JParse_ReadByte()) {
+				case '(':
+				case ')':
+				case ',':
+				case ';': */
+
+				*str = 0;
+				return (c + 1);
+			// }
+			// break;
+			// fallthrough
+			case '\\':
+				t = JParse_ReadByte();
+				switch (t) {
+				case '\\':
+					a = '\\';
+					break;
+				case 't':
+					a = '\t';
+					break;
+				case 'n':
+					a = '\n';
+					break;
+				case '\"':
+					a = '\"';
+					break;
+				default:
+					a = ' ';
+				}                                    // senza break....ok
+				// fallthrough
+			default:
+				if (c++ >= jStringLimit)
+					return -1;
+				*str = a;
+				str++;
+				break;
+			}
+	}
+
+	return EOF_PARSED;
+
+}
+
+
+
+int NLParser::ReadNumber(void) {
+	char stri[J_MAXSTRLEN];
+	int res;
+	if (ReadArgument(stri) < 0)
+		return 0;
+	if (stri[1] == 'x' || stri[1] == 'X') {
+		unsigned int ures;
+		sscanf(stri, "%x", &ures);
+		res = ures;
+	} else {
+		sscanf(stri, "%d", &res);
+	}
+	return res;
+}
+
+int NLParser::SearchArgument(char *t, ...) {
+	va_list args;
+	char *curarg;
+	int c = 0, res;
+	va_start(args, t);
+	if (ReadArgument(t) < 0)
+		return -1;
+	res = -2;
+	curarg = va_arg(args, char *);
+	while (curarg != NULL) {
+		if (!scumm_stricmp(curarg, t))
+			res = c;
+		c++;
+		curarg = va_arg(args, char *);
+	}
+	va_end(args);
+	return res;
+}
+
+} // End of namespace Watchmaker