// **********************************************************************
//
// Copyright (c) 2003-2005 ZeroC, Inc. All rights reserved.
//
// This copy of Ice is licensed to you under the terms described in the
// ICE_LICENSE file included in this distribution.
//
// **********************************************************************

#include <Freeze/SharedDb.h>
#include <IceUtil/StaticMutex.h>
#include <Freeze/Exception.h>
#include <Freeze/Util.h>
#include <Freeze/Catalog.h>

using namespace std;
using namespace IceUtil;
using namespace Ice;
using namespace Freeze;

namespace
{

StaticMutex _mapMutex = ICE_STATIC_MUTEX_INITIALIZER;
StaticMutex _refCountMutex = ICE_STATIC_MUTEX_INITIALIZER;  

const string _catalogName = "__catalog";

inline void
checkTypes(const SharedDb& sharedDb, const string& key, const string& value)
{
    if(key != sharedDb.key())
    {
	DatabaseException ex(__FILE__, __LINE__);
	ex.message = sharedDb.dbName() + "'s key type is " + sharedDb.key() + ", not " + key;
	throw ex;
    }
    if(value != sharedDb.value())
    {
	DatabaseException ex(__FILE__, __LINE__);
	ex.message = sharedDb.dbName() + "'s value type is " + sharedDb.value() + ", not " + value;
	throw ex;
    }
}
}

Freeze::SharedDb::SharedDbMap* Freeze::SharedDb::sharedDbMap = 0;

const string&
Freeze::catalogName()
{
    return _catalogName;
}

SharedDbPtr 
Freeze::SharedDb::get(const ConnectionIPtr& connection, 
		      const string& dbName,
		      const string& key,
		      const string& value,
		      const vector<MapIndexBasePtr>& indices,
		      bool createDb)
{
    if(dbName == _catalogName)
    {
	//
	// We don't want to lock the _mapMutex to retrieve the catalog
	//
	
	SharedDbPtr result = connection->dbEnv()->getCatalog();
	checkTypes(*result, key, value);
	return result;
    }
    
    StaticMutex::Lock lock(_mapMutex);

    if(sharedDbMap == 0)
    {
	sharedDbMap = new SharedDbMap;
    }

    MapKey mapKey;
    mapKey.envName = connection->envName();
    mapKey.communicator = connection->communicator();
    mapKey.dbName = dbName;

    {
	SharedDbMap::iterator p = sharedDbMap->find(mapKey);
	if(p != sharedDbMap->end())
	{
	    checkTypes(*(p->second), key, value);
	    p->second->connectIndices(indices);
	    return p->second;
	}
    }

    //
    // MapKey not found, let's create and open a new Db
    //
    auto_ptr<SharedDb> result(new SharedDb(mapKey, key, value, connection, indices, createDb));
    
    //
    // Insert it into the map
    //
    pair<SharedDbMap::iterator, bool> insertResult;
    insertResult= sharedDbMap->insert(SharedDbMap::value_type(mapKey, result.get()));
    assert(insertResult.second);
    
    return result.release();
}

Freeze::SharedDbPtr 
Freeze::SharedDb::openCatalog(SharedDbEnv& dbEnv)
{
    StaticMutex::Lock lock(_mapMutex);

    if(sharedDbMap == 0)
    {
	sharedDbMap = new SharedDbMap;
    }

    MapKey mapKey;
    mapKey.envName = dbEnv.getEnvName();
    mapKey.communicator = dbEnv.getCommunicator();
    mapKey.dbName = _catalogName;

    auto_ptr<SharedDb> result(new SharedDb(mapKey, dbEnv.getEnv()));

    //
    // Insert it into the map
    //
    pair<SharedDbMap::iterator, bool> insertResult 
	= sharedDbMap->insert(SharedDbMap::value_type(mapKey, result.get()));
    
    if(!insertResult.second)
    {
	//
	// That's very wrong: the catalog is associated with another env
	//
	assert(0);
	DatabaseException ex(__FILE__, __LINE__);
	ex.message = "Catalog already opened";
	throw ex;
    }
    
    return result.release();
}


Freeze::SharedDb::~SharedDb()
{
    if(_trace >= 1)
    {
	Trace out(_mapKey.communicator->getLogger(), "Freeze.Map");
	out << "closing Db \"" << _mapKey.dbName << "\"";
    }

    cleanup(false);
}

void Freeze::SharedDb::__incRef()
{
    if(_trace >= 2)
    {
	Trace out(_mapKey.communicator->getLogger(), "Freeze.Map");
	out << "incremeting reference count for Db \"" << _mapKey.dbName << "\"";
    }

    IceUtil::StaticMutex::Lock lock(_refCountMutex);
    _refCount++;
}

void Freeze::SharedDb::__decRef()
{
    if(_trace >= 2)
    {
	Trace out(_mapKey.communicator->getLogger(), "Freeze.Map");
	out << "removing reference count for Db \"" << _mapKey.dbName << "\"";
    }

    IceUtil::StaticMutex::Lock lock(_refCountMutex);
    if(--_refCount == 0)
    {
        IceUtil::StaticMutex::TryLock mapLock(_mapMutex);
	if(!mapLock.acquired())
	{
	    //
	    // Reacquire mutex in proper order and check again
	    //
	    lock.release();
	    mapLock.acquire();
	    lock.acquire();
	    if(_refCount > 0)
	    {
		return;
	    }
	}

	//
	// Remove from map
	//
	size_t one;
	one = sharedDbMap->erase(_mapKey);
	assert(one == 1);

	if(sharedDbMap->size() == 0)
	{
	    delete sharedDbMap;
	    sharedDbMap = 0;
	}

	//
	// Keep lock to prevent somebody else to re-open this Db
	// before it's closed.
	//
	delete this;
    }
}

  
Freeze::SharedDb::SharedDb(const MapKey& mapKey, 
			   const string& key,
			   const string& value,
			   const ConnectionIPtr& connection, 
			   const vector<MapIndexBasePtr>& indices,
			   bool createDb) :
    Db(connection->dbEnv()->getEnv(), 0),
    _mapKey(mapKey),
    _refCount(0),
    _trace(connection->trace())
{
    if(_trace >= 1)
    {
	Trace out(_mapKey.communicator->getLogger(), "Freeze.Map");
	out << "opening Db \"" << _mapKey.dbName << "\"";
    }

    ConnectionPtr catalogConnection = createConnection(_mapKey.communicator, connection->dbEnv()->getEnvName());
    Catalog catalog(catalogConnection, _catalogName);
    
    Catalog::iterator ci = catalog.find(_mapKey.dbName);
    
    if(ci != catalog.end())
    {
	if(ci->second.evictor)
	{
	    DatabaseException ex(__FILE__, __LINE__);
	    ex.message = _mapKey.dbName + " is an evictor database";
	    throw ex;
	}

	_key = ci->second.key;
	_value = ci->second.value;
	checkTypes(*this, key, value);
    }
    else
    {
	_key = key;
	_value = value;
    }

    try
    {
	TransactionPtr tx = catalogConnection->beginTransaction();
	DbTxn* txn = getTxn(tx);

	u_int32_t flags = DB_THREAD;
	if(createDb)
	{
	    flags |= DB_CREATE;
	}
	open(txn, _mapKey.dbName.c_str(), 0, DB_BTREE, flags, FREEZE_DB_MODE);

	for(vector<MapIndexBasePtr>::const_iterator p = indices.begin();
	    p != indices.end(); ++p)
	{
	    const MapIndexBasePtr& indexBase = *p; 
	    assert(indexBase->_impl == 0);

	    auto_ptr<MapIndexI> indexI(new MapIndexI(connection, *this, txn, createDb, indexBase));
	    
	    bool inserted = _indices.insert(IndexMap::value_type(indexBase->name(), indexI.get())).second;
	    assert(inserted);
	    
	    indexBase->_impl = indexI.release();
	}

	if(ci == catalog.end())
	{
	    CatalogData catalogData;
	    catalogData.evictor = false;
	    catalogData.key = key;
	    catalogData.value = value;
	    catalog.put(Catalog::value_type(_mapKey.dbName, catalogData));
	}
	
	tx->commit();
    }
    catch(const ::DbException& dx)
    {
	TransactionPtr tx = catalogConnection->currentTransaction();
	if(tx != 0)
	{
	    try
	    {
		tx->rollback();
	    }
	    catch(...)
	    {
	    }
	}

	cleanup(true);

	if(dx.get_errno() == ENOENT)
	{
	    NotFoundException ex(__FILE__, __LINE__);
	    ex.message = dx.what();
	    throw ex;
	}
	else
	{
	    DatabaseException ex(__FILE__, __LINE__);
	    ex.message = dx.what();
	    throw ex;
	}
    }
    catch(...)
    {
	TransactionPtr tx = catalogConnection->currentTransaction();
	if(tx != 0)
	{
	    try
	    {
		tx->rollback();
	    }
	    catch(...)
	    {
	    }
	}

	cleanup(true);
	throw;
    }
}


Freeze::SharedDb::SharedDb(const MapKey& mapKey, DbEnv* env) :
    Db(env, 0),
    _mapKey(mapKey),
    _key(CatalogKeyCodec::typeId()),
    _value(CatalogValueCodec::typeId()),
    _refCount(0)
{
    _trace = _mapKey.communicator->getProperties()->getPropertyAsInt("Freeze.Trace.Map");

    if(_trace >= 1)
    {
	Trace out(_mapKey.communicator->getLogger(), "Freeze.Db");
	out << "opening Db \"" << _mapKey.dbName << "\"";
    }

    try
    {
	u_int32_t flags = DB_THREAD | DB_CREATE | DB_AUTO_COMMIT;
	open(0, _mapKey.dbName.c_str(), 0, DB_BTREE, flags, FREEZE_DB_MODE);
    }
    catch(const ::DbException& dx)
    {
	DatabaseException ex(__FILE__, __LINE__);
	ex.message = dx.what();
	throw ex;
    }
}

void
Freeze::SharedDb::connectIndices(const vector<MapIndexBasePtr>& indices) const
{
    for(vector<MapIndexBasePtr>::const_iterator p = indices.begin();
	p != indices.end(); ++p)
    {
	const MapIndexBasePtr& indexBase = *p; 
	assert(indexBase->_impl == 0);

	IndexMap::const_iterator q = _indices.find(indexBase->name());
	assert(q != _indices.end());
	indexBase->_impl = q->second;
    }
}

void
Freeze::SharedDb::cleanup(bool noThrow)
{
    try
    {
	for(IndexMap::iterator p = _indices.begin(); p != _indices.end(); ++p)
	{
	    delete p->second;
	}
	_indices.clear();
	
	close(0);
    }
    catch(const ::DbException& dx)
    {
	if(!noThrow)
	{
	    DatabaseException ex(__FILE__, __LINE__);
	    ex.message = dx.what();
	    throw ex;
	}
    }
}