#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "libmpq/mpq.h"

typedef PerlIO *      OutputStream;
typedef mpq_archive * Archive__MoPaQ;


MODULE = Archive::MoPaQ		PACKAGE = Archive::MoPaQ		

Archive::MoPaQ init(package)
		char *package;
	CODE:
		RETVAL = malloc(sizeof(mpq_archive));
		memset(RETVAL, 0, sizeof(mpq_archive));
	OUTPUT:
		RETVAL

int open(mpqa,filename)
		Archive::MoPaQ mpqa;
		char *filename;
	CODE:
		RETVAL = libmpq_archive_open(mpqa, filename);
	OUTPUT:
		RETVAL

int get_size(mpqa)
		Archive::MoPaQ mpqa;
	CODE:
		RETVAL = libmpq_archive_info(mpqa, LIBMPQ_MPQ_ARCHIVE_SIZE);
	OUTPUT:
		RETVAL

int get_numfiles(mpqa)
		Archive::MoPaQ mpqa;
	CODE:
		RETVAL = libmpq_archive_info(mpqa, LIBMPQ_MPQ_NUMFILES);
	OUTPUT:
		RETVAL

int listopen(mpqa,listfile)
		Archive::MoPaQ mpqa;
		char* listfile;
	CODE:
		RETVAL = 0;
		switch (libmpq_listfile_open(mpqa, listfile)) {
			case LIBMPQ_CONF_EFILE_OPEN:
					warn("found filelist, but could not open, so disabling listfile\n");
					break;
			case LIBMPQ_CONF_EFILE_CORRUPT:
					warn("found filelist with errors, so disabling listfile\n");
					break;
			case LIBMPQ_CONF_EFILE_LIST_CORRUPT:
					warn("found filelist, header matches %s, but filelist is corrupt.\n", mpqa->mpq_l->mpq_name);
					break;
			case LIBMPQ_CONF_EFILE_VERSION:
					warn("found filelist, but libmpq %s is required.\n", mpqa->mpq_l->mpq_version);
					break;
			case LIBMPQ_CONF_EFILE_NOT_FOUND:
					warn("Filelist not found");
					break;
			default:
//					printf("game: %s, file: %s, version: %s\n", mpqa->mpq_l->mpq_game, mpqa->mpq_l->mpq_name, mpqa->mpq_l->mpq_game_version);
					RETVAL = 1;
		}
	OUTPUT:
		RETVAL

int extract(mpqa,nr)
		Archive::MoPaQ mpqa;
		int nr;
	CODE:
		if (libmpq_file_check(mpqa, &nr, LIBMPQ_FILE_TYPE_INT)) {
			warn("file %i not found\n", nr);
		} else {
			RETVAL = libmpq_file_extract(mpqa, nr);
		}
	OUTPUT:
		RETVAL

void DESTROY(mpqa)
		Archive::MoPaQ mpqa;
	CODE:
		libmpq_listfile_close(mpqa);
		libmpq_archive_close(mpqa);
		free(mpqa);