/*
   Copyright (C) 2001-2006, William Joseph.
   All Rights Reserved.

   This file is part of GtkRadiant.

   GtkRadiant 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.

   GtkRadiant 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 GtkRadiant; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include "archive.h"

#include "idatastream.h"
#include "cmdlib.h"
#include "bytestreamutils.h"
#include <algorithm>
#include "stream/filestream.h"

#include "iarchive.h"

#include "archivelib.h"

#include <map>
#include "string/string.h"

#include "wad.h"

class WadArchive : public Archive
{
class wad_record_t
{
public:
wad_record_t( unsigned int position, unsigned int stream_size, unsigned int file_size )
	: m_position( position ), m_stream_size( stream_size ), m_file_size( file_size )
{}
unsigned int m_position;
unsigned int m_stream_size;
unsigned int m_file_size;
};

enum EWadVersion
{
	eNotValid,
	eWAD2,
	eWAD3,
};

typedef std::map<CopiedString, wad_record_t, StringLessNoCase> files_t;
files_t m_files;
CopiedString m_name;
FileInputStream m_wadfile;

EWadVersion wad_version( const char* identification ){
	if ( strncmp( identification, "WAD2", 4 ) == 0 ) {
		return eWAD2;
	}
	if ( strncmp( identification, "WAD3", 4 ) == 0 ) {
		return eWAD3;
	}
	return eNotValid;
}

const char* type_for_version( EWadVersion version ){
	switch ( version )
	{
	case eWAD2:
		return ".mip";
	case eWAD3:
		return ".hlw";
	default:
		break;
	}
	return "";
}

int miptex_type_for_version( EWadVersion version ){
	switch ( version )
	{
	case eWAD2:
		return TYP_MIPTEX;
	case eWAD3:
		return 67;
	default:
		break;
	}
	return -1;
}

public:
WadArchive( const char* name )
	: m_name( name ), m_wadfile( name ){
	if ( !m_wadfile.failed() ) {
		wadinfo_t wadinfo;
		istream_read_wadinfo( m_wadfile, wadinfo );

		EWadVersion version = wad_version( wadinfo.identification );
		int miptexType = miptex_type_for_version( version );

		if ( version != eNotValid ) {
			m_wadfile.seek( wadinfo.infotableofs );

			for ( int i = 0; i < wadinfo.numlumps; ++i )
			{
				char buffer[32];
				lumpinfo_t lumpinfo;
				istream_read_lumpinfo( m_wadfile, lumpinfo );
				if ( lumpinfo.type == miptexType ) {
					strcpy( buffer, "textures/" );
					strcat( buffer, lumpinfo.name );
					strcat( buffer, type_for_version( version ) );
					m_files.insert( files_t::value_type( buffer, wad_record_t( lumpinfo.filepos, lumpinfo.disksize, lumpinfo.size ) ) );
				}
			}
		}
	}
}

void release(){
	delete this;
}
ArchiveFile* openFile( const char* name ){
	files_t::iterator i = m_files.find( name );
	if ( i != m_files.end() ) {
		return StoredArchiveFile::create( name, m_name.c_str(), i->second.m_position, i->second.m_stream_size, i->second.m_file_size );
	}
	return 0;
}
virtual ArchiveTextFile* openTextFile( const char* name ){
	files_t::iterator i = m_files.find( name );
	if ( i != m_files.end() ) {
		return StoredArchiveTextFile::create( name, m_name.c_str(), i->second.m_position, i->second.m_stream_size );
	}
	return 0;
}
bool containsFile( const char* name ){
	return m_files.find( name ) != m_files.end();
}
void forEachFile( VisitorFunc visitor, const char* root ){
	if ( root[0] == '\0' ) {
		if ( visitor.directory( "textures/", 1 ) ) {
			return;
		}
	}
	else if ( strcmp( root, "textures/" ) != 0 ) {
		return;
	}

	for ( files_t::iterator i = m_files.begin(); i != m_files.end(); ++i )
		visitor.file( i->first.c_str() );
}
};


Archive* OpenArchive( const char* name ){
	return new WadArchive( name );
}

#if 0

class TestArchive
{
class TestVisitor : public Archive::IVisitor
{
public:
void visit( const char* name ){
	int bleh = 0;
}
};
public:
TestArchive(){
	{
		Archive* archive = OpenArchive( "" );
		archive->release();
	}
	{
		Archive* archive = OpenArchive( "NONEXISTANTFILE" );
		archive->release();
	}
	{
		Archive* archive = OpenArchive( "c:/quake/id1/quake101.wad" );
		ArchiveFile* file = archive->openFile( "textures/sky1.mip" );
		if ( file != 0 ) {
			unsigned char* buffer = new unsigned char[file->size()];
			file->getInputStream().read( (InputStream::byte_type*)buffer, file->size() );
			delete[] buffer;
			file->release();
		}
		TestVisitor visitor;
		archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 1 ), "" );
		archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 0 ), "" );
		archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 0 ), "textures/" );
		archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 1 ), "textures/" );
		archive->release();
	}
}
};

TestArchive g_test;

#endif