/* 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 "fullpipe/fullpipe.h"

#include "common/file.h"

#include "fullpipe/utils.h"
#include "fullpipe/objects.h"

namespace Fullpipe {

char *MfcArchive::readPascalString() {
	char *tmp;
	int len = readByte();
	tmp = (char *)calloc(len + 1, 1);
	read(tmp, len);

	return tmp;
}

int MfcArchive::readCount() {
	int count = readUint16LE();

	if (count == 0xffff)
		count = readUint32LE();

	return count;
}

enum {
	kCInteraction = 0
};

const struct {
	const char *name;
	int id;
} classMap[] = {
	{ "CInteraction", kCInteraction },
	{ 0, 0 }
};

MfcArchive::MfcArchive() {
	for (int i; classMap[i].name; i++) {
		_classMap[classMap[i].name] = classMap[i].id;
	}

	_lastIndex = 1;
}

CObject *MfcArchive::parseClass() {
	char *name;
	int objectId;

	uint obTag = readUint16LE();

	if (obTag == 0xffff) {
		int schema = readUint16LE();

		name = readPascalString();

		if (!_classMap.contains(name)) {
			error("Unknown class in MfcArchive: %s", name);
		}

		_objectMap[_lastIndex] = objectId = _classMap[name];
		_lastIndex++;
	} else {
		obTag &= ~0x8000;

		if (_objectMap.size() < obTag) {
			error("Object index too big: %d", obTag);
		}

		objectId = _objectMap[obTag];
	}

	switch (objectId) {
	case kCInteraction:
		return new CInteraction();
	default:
		error("Unknown objectId: %d", objectId);
	}

	return 0;
}

} // End of namespace Fullpipe