/*
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
*/

#if !defined(INCLUDED_STREAM_FILESTREAM_H)
#define INCLUDED_STREAM_FILESTREAM_H

#include "idatastream.h"
#include <algorithm>
#include <cstdio>

namespace FileStreamDetail
{
  inline int whence_for_seekdir(SeekableStream::seekdir direction)
  {
    switch(direction)
    {
    case SeekableStream::cur:
      return SEEK_CUR;
    case SeekableStream::end:
      return SEEK_END;
    default:
      break;
    }
    return SEEK_SET;
  }
}


/// \brief A wrapper around a file input stream opened for reading in binary mode. Similar to std::ifstream.
///
/// - Maintains a valid file handle associated with a name passed to the constructor.
/// - Implements SeekableInputStream.
class FileInputStream : public SeekableInputStream
{
  std::FILE* m_file;
public:
  FileInputStream(const char* name)
  {
    m_file = name[0] == '\0' ? 0 : fopen(name, "rb");
  }
  ~FileInputStream()
  {
    if(!failed())
      fclose(m_file);
  }

  bool failed() const
  {
    return m_file == 0;
  }

  size_type read(byte_type* buffer, size_type length)
  {
    return fread(buffer, 1, length, m_file);
  }

  size_type seek(size_type position)
  {
    return fseek(m_file, static_cast<long>(position), SEEK_SET);
  }
  size_type seek(offset_type offset, seekdir direction)
  {
    return fseek(m_file, offset, FileStreamDetail::whence_for_seekdir(direction));
  }
  size_type tell() const
  {
    return ftell(m_file);
  }

  std::FILE* file()
  {
    return m_file;
  }
};

/// \brief A wrapper around a FileInputStream limiting access.
///
/// - Maintains an input stream.
/// - Provides input starting at an offset in the file for a limited range.
class SubFileInputStream : public InputStream
{
  FileInputStream& m_istream;
  size_type m_remaining;
public:
  typedef FileInputStream::position_type position_type;

  SubFileInputStream(FileInputStream& istream, position_type offset, size_type size)
    : m_istream(istream), m_remaining(size)
  {
    m_istream.seek(offset);
  }

	size_type read(byte_type* buffer, size_type length)
  {
    size_type result = m_istream.read(buffer, std::min(length, m_remaining));
    m_remaining -= result;
    return result;
  }
};


/// \brief A wrapper around a stdc file stream opened for writing in binary mode. Similar to std::ofstream..
///
/// - Maintains a valid file handle associated with a name passed to the constructor.
/// - Implements SeekableInputStream.
class FileOutputStream : public SeekableOutputStream
{
  std::FILE* m_file;
public:
  FileOutputStream(const char* name)
  {
    m_file = name[0] == '\0' ? 0 : fopen(name, "wb");
  }
  ~FileOutputStream()
  {
    if(!failed())
      fclose(m_file);
  }

  bool failed() const
  {
    return m_file == 0;
  }

  size_type write(const byte_type* buffer, size_type length)
  {
    return fwrite(buffer, 1, length, m_file);
  }

  size_type seek(size_type position)
  {
    return fseek(m_file, static_cast<long>(position), SEEK_SET);
  }
  size_type seek(offset_type offset, seekdir direction)
  {
    return fseek(m_file, offset, FileStreamDetail::whence_for_seekdir(direction));
  }
  size_type tell() const
  {
    return ftell(m_file);
  }
};

inline bool file_copy(const char* source, const char* target)
{
  const std::size_t buffer_size = 1024;
  unsigned char buffer[buffer_size];

  FileInputStream sourceFile(source);
  if(sourceFile.failed())
  {
    return false;
  }
  FileOutputStream targetFile(target);
  if(targetFile.failed())
  {
    return false;
  }

  for(;;)
  {
    std::size_t size = sourceFile.read(buffer, buffer_size);
    if(size == 0)
    {
      break;
    }
    if(targetFile.write(buffer, size) != size)
    {
      return false;
    }
  }
  return true;
}


#endif