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