/*
 *  The contents of this file are subject to the Initial
 *  Developer's Public License Version 1.0 (the "License");
 *  you may not use this file except in compliance with the
 *  License. You may obtain a copy of the License at
 *  http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_idpl.
 *
 *  Software distributed under the License is distributed AS IS,
 *  WITHOUT WARRANTY OF ANY KIND, either express or implied.
 *  See the License for the specific language governing rights
 *  and limitations under the License.
 *
 *  The Original Code was created by Dmitry Yemanov
 *  for the Firebird Open Source RDBMS project.
 *
 *  Copyright (c) 2006 Dmitry Yemanov <dimitr@users.sf.net>
 *  and all contributors signed below.
 *
 *  All Rights Reserved.
 *  Contributor(s): ______________________________________.
 */

#ifndef JRD_TEMP_SPACE_H
#define JRD_TEMP_SPACE_H

#include "firebird.h"
#include "../common/classes/fb_string.h"
#include "../common/classes/array.h"
#include "../common/classes/TempFile.h"
#include "../common/config/dir_list.h"
#include "../common/classes/init.h"
#include "../common/classes/tree.h"

class TempSpace : public Firebird::File
{
public:
	TempSpace(MemoryPool& pool, const Firebird::PathName& prefix, bool dynamic = true);
	virtual ~TempSpace();

	FB_SIZE_T read(offset_t offset, void* buffer, FB_SIZE_T length);
	FB_SIZE_T write(offset_t offset, const void* buffer, FB_SIZE_T length);

	void unlink() {}

	offset_t getSize() const
	{
		return logicalSize;
	}

	void extend(FB_SIZE_T size);

	offset_t allocateSpace(FB_SIZE_T size);
	void releaseSpace(offset_t offset, FB_SIZE_T size);

	UCHAR* inMemory(offset_t offset, size_t size) const;

	struct SegmentInMemory
	{
		UCHAR* memory;
		offset_t position;
		size_t size;
	};

	typedef Firebird::Array<SegmentInMemory> Segments;

	ULONG allocateBatch(ULONG count, FB_SIZE_T minSize, FB_SIZE_T maxSize, Segments& segments);

	bool validate(offset_t& freeSize) const;
private:

	// Generic space block
	class Block
	{
	public:
		Block(Block* tail, size_t length)
			: next(NULL), size(length)
		{
			if (tail)
			{
				tail->next = this;
			}
			prev = tail;
		}

		virtual ~Block() {}

		virtual FB_SIZE_T read(offset_t offset, void* buffer, FB_SIZE_T length) = 0;
		virtual FB_SIZE_T write(offset_t offset, const void* buffer, FB_SIZE_T length) = 0;

		virtual UCHAR* inMemory(offset_t offset, size_t size) const = 0;
		virtual bool sameFile(const Firebird::TempFile* file) const = 0;

		Block *prev;
		Block *next;
		offset_t size;
	};

	class MemoryBlock : public Block
	{
	public:
		MemoryBlock(UCHAR* memory, Block* tail, size_t length)
			: Block(tail, length), ptr(memory)
		{}

		~MemoryBlock()
		{
			delete[] ptr;
		}

		FB_SIZE_T read(offset_t offset, void* buffer, FB_SIZE_T length);
		FB_SIZE_T write(offset_t offset, const void* buffer, FB_SIZE_T length);

		UCHAR* inMemory(offset_t offset, size_t _size) const
		{
			if ((offset < this->size) && (offset + _size <= this->size))
				return ptr + offset;

			return NULL;
		}

		bool sameFile(const Firebird::TempFile*) const
		{
			return false;
		}

	protected:
		UCHAR* ptr;
	};

	class InitialBlock : public MemoryBlock
	{
	public:
		InitialBlock(UCHAR* memory, size_t length)
			: MemoryBlock(memory, NULL, length)
		{}

		~InitialBlock()
		{
			ptr = NULL;
		}
	};

	class FileBlock : public Block
	{
	public:
		FileBlock(Firebird::TempFile* f, Block* tail, size_t length)
			: Block(tail, length), file(f)
		{
			fb_assert(file);

			// FileBlock is created after file was extended by length (look at
			// TempSpace::extend) so this FileBlock is already inside the file
			seek = file->getSize() - length;
		}

		~FileBlock() {}

		FB_SIZE_T read(offset_t offset, void* buffer, FB_SIZE_T length);
		FB_SIZE_T write(offset_t offset, const void* buffer, FB_SIZE_T length);

		UCHAR* inMemory(offset_t /*offset*/, size_t /*a_size*/) const
		{
			return NULL;
		}

		bool sameFile(const Firebird::TempFile* aFile) const
		{
			return (aFile == this->file);
		}

	private:
		Firebird::TempFile* file;
		offset_t seek;
	};

	Block* findBlock(offset_t& offset) const;
	Firebird::TempFile* setupFile(FB_SIZE_T size);

	UCHAR* findMemory(offset_t& begin, offset_t end, size_t size) const;

	//  free/used segments management
	class Segment
	{
	public:
		Segment() : position(0), size(0)
		{}

		Segment(offset_t aPosition, offset_t aSize) :
			position(aPosition), size(aSize)
		{}

		offset_t position;
		offset_t size;

		static const offset_t& generate(const void* /*sender*/, const Segment& segment)
		{
			return segment.position;
		}
	};

	MemoryPool& pool;
	Firebird::PathName filePrefix;
	offset_t logicalSize;
	offset_t physicalSize;
	offset_t localCacheUsage;
	Block* head;
	Block* tail;
	Firebird::Array<Firebird::TempFile*> tempFiles;
	Firebird::Array<UCHAR> initialBuffer;
	bool initiallyDynamic;

	typedef Firebird::BePlusTree<Segment, offset_t, MemoryPool, Segment> FreeSegmentTree;
	FreeSegmentTree freeSegments;

	static Firebird::GlobalPtr<Firebird::Mutex> initMutex;
	static Firebird::TempDirectoryList* tempDirs;
	static FB_SIZE_T minBlockSize;
	static offset_t globalCacheUsage;
};

#endif // JRD_TEMP_SPACE_H