1 files changed, 294 insertions, 0 deletions
diff --git a/contrib/extractor/libmpq/parser.cpp b/contrib/extractor/libmpq/parser.cpp
new file mode 100644
index 00000000000..b7a70400f5a
--- /dev/null
+++ b/contrib/extractor/libmpq/parser.cpp
@@ -0,0 +1,294 @@
+/*
+ *  parser.c -- functions used to parse list or config file.
+ *
+ *  Copyright (C) 2003 Maik Broemme <mbroemme@plusserver.de>
+ *
+ *  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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ *  $Id: parser.c,v 1.5 2004/02/12 00:47:53 mbroemme Exp $
+ */
+#define _CRT_SECURE_NO_DEPRECATE
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include "mpq.h"
+#include "common.h"
+#include <ctype.h>
+
+/*
+ *  This function deletes the specified characters, but leaves
+ *  escape sequences unaffected. This means that " would be
+ *  deleted but \" would not.
+ */
+char *libmpq_conf_delete_char(char *buf, char *chars) {
+	static char *temp;
+	char ch;
+
+	temp = buf;
+
+	/* strip out special chars like " */
+	while (temp = strpbrk(temp, chars)) {
+		ch = temp[0];
+		memmove(&temp[0], &temp[1], strlen(temp));
+		if (ch == '\\') {
+			temp++;
+		}
+	}
+
+	return buf;
+}
+
+/*
+ *  This function parses a line for the value to the given option. It
+ *  return 1 on success and the byte array or 0 and null.
+ */
+int libmpq_conf_parse_line(char *line, char *search_value, char *return_value, int size) {
+	int level = 0;
+	int found = 0;
+	int i = 0;
+	int pos = 0;
+
+	/* search value */
+	while (*(++line)) {
+
+		/* check for spaces */
+		if (!isspace(*line) && level == 1) {
+
+			/* we found our value so break */
+			found = 1;
+			break;
+		}
+
+		/* check for '=' so the value follows as next parameter */
+		if (*line == '=' && level == 0) {
+			level = 1;
+		}
+	}
+
+	/* now search for comment in this line */
+	for (i = 0; i < strlen(line); i++) {
+		if (line[i] == '#') {
+			pos = i - 1;
+			break;
+		}
+	}
+
+	/* now set end of byte array behind value, but only if comment was found */
+	if (pos != 0) {
+		for (i = pos; i >= 0; i--) {
+			if (line[i] != ' ' && line[i] != '\t') {
+				line[i + 1] = '\0';
+				break;
+			}
+		}
+	}
+
+	/* now check if line has trailing spaces */
+	for (i = strlen(line); i >= 0; i--) {
+		if (line[i] != ' ' && line[i] != '\t') {
+			line[i + 1] = '\0';
+			break;
+		}
+	}
+
+	/* now check if value is quoted with "" and if there is a char behind. */
+	for (i = strlen(line); i >= 0; i--) {
+		if (line[i] == '"') {
+			line[i + 1] = '\0';
+			break;
+		}
+	}
+
+	/* return the values */
+	strncpy(return_value, line, size);
+	return found;
+}
+
+/*
+ *  This function returns the value for a given option in the
+ *  listdb or config file. On success it returns 1, otherwise 0.
+ */
+int libmpq_conf_get_value(FILE *fp, char *search_value, void *return_value, int type, int size) {
+	char buf[LIBMPQ_CONF_BUFSIZE];
+	int found = 0;
+	int result = LIBMPQ_TOOLS_SUCCESS;
+
+	while (fgets(buf, LIBMPQ_CONF_BUFSIZE, fp) != NULL) {
+		char *line;
+
+		buf[strlen(buf) - 1] = '\0';
+
+		/* skip whitespace */
+		for (line = buf; isspace(*line); line++) {
+			continue;
+		}
+
+		/* skip empty line */
+		if (line[0] == '\0') {
+			continue;
+		}
+
+		/* skip comments */
+		if (line[0] == '#') {
+			continue;
+		}
+
+		/* process the line */
+		//if (!strncasecmp(line, search_value, strlen(search_value))) {
+        if (!strcmp(line, search_value)) {
+			found = libmpq_conf_parse_line(line, search_value, line, LIBMPQ_CONF_BUFSIZE);
+			if (found == 1) {
+				libmpq_conf_delete_char(line, "\"\\");
+
+				switch (type) {
+					case LIBMPQ_CONF_TYPE_INT:
+
+						/* if it is no valid number it is safe to return 0 */
+						*(int *)return_value = atoi(line);
+						break;
+					default:
+						strncpy((char *)return_value, line, size);
+						break;
+				}
+
+				/* value found, so rewind stream */
+				break;
+			}
+		}
+	}
+
+	/* if value was not found */
+	if (found == 0) {
+		switch (type) {
+			case LIBMPQ_CONF_TYPE_INT:
+				*(int *)return_value = 0;
+				result = LIBMPQ_CONF_EVALUE_NOT_FOUND;
+				break;
+			default:
+				strncpy((char *)return_value, "", size);
+				result = LIBMPQ_CONF_EVALUE_NOT_FOUND;
+				break;
+		}
+	}
+	fseek(fp, 0L, SEEK_SET);
+
+	return result;
+}
+
+/*
+ *  This function returns a pointer to a byte array, with all values
+ *  found in the config file. As second value it returns th number of
+ *  entries in the byte array. On success it returns 1, otherwise 0.
+ */
+int libmpq_conf_get_array(FILE *fp, char *search_value, char ***filelist, int *entries) {
+	char buf[LIBMPQ_CONF_BUFSIZE];
+	char temp[LIBMPQ_CONF_BUFSIZE];
+	int level = 0;
+	int array_start = 0;
+	int array_end = 0;
+	int fl_count;
+	int fl_size;
+	int found = 0;
+	int i = 0;
+
+	*entries = 0;
+
+	/* allocate memory for the file list */
+	(*filelist) = (char **)malloc(LIBMPQ_CONF_FL_INCREMENT * sizeof(char *));
+	fl_count = 0;
+	fl_size = LIBMPQ_CONF_FL_INCREMENT;
+
+	while (fgets(buf, LIBMPQ_CONF_BUFSIZE, fp) != NULL) {
+		char *line;
+
+		buf[strlen(buf) - 1] = '\0';
+
+		/* skip whitespace */
+		for (line = buf; isspace(*line); line++) {
+			continue;
+		}
+
+		/* skip empty line */
+		if (line[0] == '\0') {
+			continue;
+		}
+
+		/* skip comments */
+		if (line[0] == '#') {
+			continue;
+		}
+
+		/* check for array end ) */
+		if (*line == ')') {
+			array_end = 1;
+			break;
+		}
+
+		/* process entries between () */
+		if (array_start == 1 && array_end == 0) {
+
+			/* add dummy option to use with libmpq_conf_parse_line() */
+			strncpy(temp, "MPQ_BUFFER = ", LIBMPQ_CONF_BUFSIZE);
+			strncat(temp, line, LIBMPQ_CONF_BUFSIZE);
+			found = libmpq_conf_parse_line(temp, "MPQ_BUFFER", temp, LIBMPQ_CONF_BUFSIZE);
+
+			if (found == 1) {
+				libmpq_conf_delete_char(temp, "\"\\");
+
+				/* set the next filelist entry to a copy of the file */
+				(*filelist)[fl_count++] = _strdup(temp);
+
+				/* increase the array size */
+				if (fl_count == fl_size) {
+					(*filelist) = (char **)realloc((*filelist), (fl_size + LIBMPQ_CONF_FL_INCREMENT) * sizeof(char *));
+					fl_size += LIBMPQ_CONF_FL_INCREMENT;
+				}
+
+				/* increase number of entries */
+				(*entries)++;
+			}
+		}
+
+		/* process the line and search array start */
+		//if (!strncasecmp(line, search_value, strlen(search_value))) {
+        if (!strcmp(line, search_value)) {
+
+			/* search value */
+			while (*(++line)) {
+
+				/* check for array start ( */
+				if (*line == '(' && level == 1) {
+
+					/* we found our value so break */
+					array_start = 1;
+					break;
+				}
+
+				/* check for '=' so the value follows as next parameter */
+				if (*line == '=' && level == 0) {
+					level = 1;
+				}
+			}
+		}
+	}
+
+	/* we got all files, so rewind stream */
+	fseek(fp, 0L, SEEK_SET);
+
+	(*filelist)[fl_count] = NULL;
+
+	return found;
+}