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

inline void buffer_findreplace(char* buffer, char find, char replace)
{
  while(*buffer != '\0')
  {
    if(*buffer == find)
      *buffer = replace;
    ++buffer;
  }
}

#include "pak.h"

class PakArchive : public Archive
{
  class PakRecord
  {
  public:
    PakRecord(unsigned int position, unsigned int stream_size)
      : m_position(position), m_stream_size(stream_size)
    {
    }
    unsigned int m_position;
    unsigned int m_stream_size;
  };
  typedef GenericFileSystem<PakRecord> PakFileSystem;
  PakFileSystem m_filesystem;
  FileInputStream m_pakfile;
  CopiedString m_name;

public:
  
  PakArchive(const char* name)
    : m_pakfile(name), m_name(name)
  {
    if(!m_pakfile.failed())
    {
      pakheader_t header;

      m_pakfile.read(reinterpret_cast<FileInputStream::byte_type*>(header.magic), 4);
      header.diroffset = istream_read_uint32_le(m_pakfile);
      header.dirsize = istream_read_uint32_le(m_pakfile);

      if(strncmp (header.magic, "PACK", 4) == 0)
      {
        m_pakfile.seek(header.diroffset);

        for(unsigned int i = 0; i < header.dirsize; i += sizeof(pakentry_t))
        {
          pakentry_t entry;

          m_pakfile.read(reinterpret_cast<FileInputStream::byte_type*>(entry.filename), 0x38);
          entry.offset = istream_read_uint32_le(m_pakfile);
          entry.size = istream_read_uint32_le(m_pakfile);

          buffer_findreplace(entry.filename, '\\', '/');

          PakFileSystem::entry_type& file = m_filesystem[entry.filename];
          if(!file.is_directory())
          {
            globalOutputStream() << "Warning: pak archive " << makeQuoted(m_name.c_str()) << " contains duplicated file: " << makeQuoted(entry.filename) << "\n";
          }
          else
          {
            file = new PakRecord(entry.offset, entry.size);
          }
        }
      }
    }
  }

  ~PakArchive()
  {
    for(PakFileSystem::iterator i = m_filesystem.begin(); i != m_filesystem.end(); ++i)
      delete i->second.file();
  }
  
  void release()
  {
    delete this;
  }
  ArchiveFile* openFile(const char* name)
  {
    PakFileSystem::iterator i = m_filesystem.find(name);
    if(i != m_filesystem.end() && !i->second.is_directory())
    {
      PakRecord* file = i->second.file();
      return StoredArchiveFile::create(name, m_name.c_str(), file->m_position, file->m_stream_size, file->m_stream_size);
    }
    return 0;
  }
  virtual ArchiveTextFile* openTextFile(const char* name)
  {
    PakFileSystem::iterator i = m_filesystem.find(name);
    if(i != m_filesystem.end() && !i->second.is_directory())
    {
      PakRecord* file = i->second.file();
      return StoredArchiveTextFile::create(name, m_name.c_str(), file->m_position, file->m_stream_size);
    }
    return 0;
  }
  bool containsFile(const char* name)
  {
    PakFileSystem::iterator i = m_filesystem.find(name);
    return i != m_filesystem.end() && !i->second.is_directory();
  }
  void forEachFile(VisitorFunc visitor, const char* root)
  {
    m_filesystem.traverse(visitor, root);
  }
};


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

#if 0

class TestArchive
{
public:
  TestArchive()
  {
    Archive* archive = OpenArchive("c:/quake3/baseq3/pak0.pak");
    ArchiveFile* file = archive->openFile("gfx/palette.lmp");
    if(file != 0)
    {
      char buffer[1024];
      file->getInputStream().read((InputStream::byte_type*)buffer, 1024);
      file->release();
    }
    archive->release();
  }
};

TestArchive g_test;

#endif

#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/pak0.pak");
    ArchiveFile* file = archive->openFile("gfx/palette.lmp");
    if(file != 0)
    {
      char buffer[1024];
      file->getInputStream().read((InputStream::byte_type*)buffer, 1024);
      file->release();
    }
    TestVisitor visitor;
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFilesAndDirectories, 0), "");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFiles, 0), "progs/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFiles, 0), "maps/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFiles, 1), "sound/ambience/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFilesAndDirectories, 1), "sound/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eDirectories, 1), "sound/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFilesAndDirectories, 2), "sound/");
    archive->forEachFile(Archive::VisitorFunc(&visitor, Archive::eFilesAndDirectories, 2), "");
    archive->release();
    }
  }
};

TestArchive g_test;

#endif