SLUDGE: Add sludge files and make it compile

1 files changed, 324 insertions, 0 deletions

diff --git a/engines/sludge/moreio.cpp b/engines/sludge/moreio.cpp
new file mode 100644
index 0000000000..6df41fa7fa
--- /dev/null
+++ b/engines/sludge/moreio.cpp
@@ -0,0 +1,324 @@
+/* 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 <string.h>
+#include <stdint.h>
+
+#include "allfiles.h"
+#include "moreio.h"
+#include "newfatal.h"
+#include "stringy.h"
+
+#include "debug.h"
+
+#if defined __unix__ && !(defined __APPLE__)
+#include <endian.h>
+#if __BYTE_ORDER == __BIG_ENDIAN
+#define __BIG_ENDIAN__
+#endif
+#endif
+
+bool allowAnyFilename = true;
+
+#if ALLOW_FILE
+int get2bytes(FILE *fp) {
+	int f1, f2;
+
+	f1 = fgetc(fp);
+	f2 = fgetc(fp);
+
+	return (f1 * 256 + f2);
+}
+
+void put2bytes(int numtoput, FILE *fp) {
+	fputc((char)(numtoput / 256), fp);
+	fputc((char)(numtoput % 256), fp);
+}
+
+void writeString(char *s, FILE *fp) {
+	int a, len = strlen(s);
+	put2bytes(len, fp);
+	for (a = 0; a < len; a ++) {
+		fputc(s[a] + 1, fp);
+	}
+}
+
+
+char *readString(FILE *fp) {
+
+	int a, len = get2bytes(fp);
+	//debugOut ("MOREIO: readString - len %i\n", len);
+	char *s = new char[len + 1];
+	if (! checkNew(s)) {
+		return NULL;
+	}
+	for (a = 0; a < len; a ++) {
+		s[a] = (char)(fgetc(fp) - 1);
+	}
+	s[len] = 0;
+	//debugOut ("MOREIO: readString: %s\n", s);
+	return s;
+}
+
+float floatSwap(float f) {
+	union {
+		float f;
+		unsigned char b[4];
+	} dat1, dat2;
+
+	dat1.f = f;
+	dat2.b[0] = dat1.b[3];
+	dat2.b[1] = dat1.b[2];
+	dat2.b[2] = dat1.b[1];
+	dat2.b[3] = dat1.b[0];
+	return dat2.f;
+}
+
+
+float getFloat(FILE *fp) {
+	float f;
+	size_t bytes_read = fread(& f, sizeof(float), 1, fp);
+	if (bytes_read != sizeof(float) && ferror(fp)) {
+		debugOut("Reading error in getFloat.\n");
+	}
+
+#ifdef  __BIG_ENDIAN__
+	return floatSwap(f);
+#else
+	return f;
+#endif
+}
+
+void putFloat(float f, FILE *fp) {
+#ifdef  __BIG_ENDIAN__
+	f = floatSwap(f);
+#endif
+	fwrite(& f, sizeof(float), 1, fp);
+}
+
+short shortSwap(short s) {
+	unsigned char b1, b2;
+
+	b1 = s & 255;
+	b2 = (s >> 8) & 255;
+
+	return (b1 << 8) + b2;
+}
+
+
+short getSigned(FILE *fp) {
+	short f;
+	size_t bytes_read = fread(& f, sizeof(short), 1, fp);
+	if (bytes_read != sizeof(short) && ferror(fp)) {
+		debugOut("Reading error in getSigned.\n");
+	}
+#ifdef  __BIG_ENDIAN__
+	f = shortSwap(f);
+#endif
+	return f;
+}
+
+void putSigned(short f, FILE *fp) {
+#ifdef  __BIG_ENDIAN__
+	f = shortSwap(f);
+#endif
+	fwrite(& f, sizeof(short), 1, fp);
+}
+
+
+// The following two functions treat signed integers as unsigned.
+// That's done on purpose.
+
+int32_t get4bytes(FILE *fp) {
+	int f1, f2, f3, f4;
+
+	f1 = fgetc(fp);
+	f2 = fgetc(fp);
+	f3 = fgetc(fp);
+	f4 = fgetc(fp);
+
+	unsigned int x = f1 + f2 * 256 + f3 * 256 * 256 + f4 * 256 * 256 * 256;
+
+	return x;
+
+	/*
+
+	    int32_t f;
+	    fread (& f, sizeof (int32_t), 1, fp);
+	    return f;*/
+}
+
+
+void put4bytes(unsigned int i, FILE *fp) {
+	//  fwrite (&i, sizeof (long int), 1, fp);
+	unsigned char f1, f2, f3, f4;
+
+	f4 = i / (256 * 256 * 256);
+	i = i % (256 * 256 * 256);
+	f3 = i / (256 * 256);
+	i = i % (256 * 256);
+	f2 = i / 256;
+	f1 = i % 256;
+
+	fputc(f1, fp);
+	fputc(f2, fp);
+	fputc(f3, fp);
+	fputc(f4, fp);
+}
+#endif
+char *encodeFilename(char *nameIn) {
+	if (! nameIn) return NULL;
+	if (allowAnyFilename) {
+		char *newName = new char[strlen(nameIn) * 2 + 1];
+		if (! checkNew(newName)) return NULL;
+
+		int i = 0;
+		while (*nameIn) {
+			switch (*nameIn) {
+			case '<':
+				newName[i++] = '_';
+				newName[i++] = 'L';
+				break;
+			case '>':
+				newName[i++] = '_';
+				newName[i++] = 'G';
+				break;
+			case '|':
+				newName[i++] = '_';
+				newName[i++] = 'P';
+				break;
+			case '_':
+				newName[i++] = '_';
+				newName[i++] = 'U';
+				break;
+			case '\"':
+				newName[i++] = '_';
+				newName[i++] = 'S';
+				break;
+			case '\\':
+				newName[i++] = '_';
+				newName[i++] = 'B';
+				break;
+			case '/':
+				newName[i++] = '_';
+				newName[i++] = 'F';
+				break;
+			case ':':
+				newName[i++] = '_';
+				newName[i++] = 'C';
+				break;
+			case '*':
+				newName[i++] = '_';
+				newName[i++] = 'A';
+				break;
+			case '?':
+				newName[i++] = '_';
+				newName[i++] = 'Q';
+				break;
+
+			default:
+				newName[i++] = *nameIn;
+				break;
+			}
+			newName[i] = 0;
+			nameIn ++;
+		}
+		return newName;
+	} else {
+		int a;
+		for (a = 0; nameIn[a]; a ++) {
+#ifdef _WIN32
+			if (nameIn[a] == '/') nameIn[a] = '\\';
+#else
+			if (nameIn[a] == '\\') nameIn[a] = '/';
+#endif
+		}
+
+		return copyString(nameIn);
+	}
+}
+
+char *decodeFilename(char *nameIn) {
+	if (allowAnyFilename) {
+		char *newName = new char[strlen(nameIn) + 1];
+		if (! checkNew(newName)) return NULL;
+
+		int i = 0;
+		while (* nameIn) {
+			if (* nameIn == '_') {
+				nameIn ++;
+				switch (* nameIn) {
+				case 'L':
+					newName[i] = '<';
+					nameIn ++;
+					break;
+				case 'G':
+					newName[i] = '>';
+					nameIn ++;
+					break;
+				case 'P':
+					newName[i] = '|';
+					nameIn ++;
+					break;
+				case 'U':
+					newName[i] = '_';
+					nameIn ++;
+					break;
+				case 'S':
+					newName[i] = '\"';
+					nameIn ++;
+					break;
+				case 'B':
+					newName[i] = '\\';
+					nameIn ++;
+					break;
+				case 'F':
+					newName[i] = '/';
+					nameIn ++;
+					break;
+				case 'C':
+					newName[i] = ':';
+					nameIn ++;
+					break;
+				case 'A':
+					newName[i] = '*';
+					nameIn ++;
+					break;
+				case 'Q':
+					newName[i] = '?';
+					nameIn ++;
+					break;
+				default:
+					newName[i] = '_';
+				}
+			} else {
+				newName[i] = *nameIn;
+				nameIn ++;
+			}
+			i ++;
+
+		}
+		newName[i] = 0;
+		return newName;
+	} else {
+		return copyString(nameIn);
+	}
+}