/*

Miranda NG: the free IM client for Microsoft* Windows*

Copyright (c) 2012-14 Miranda NG project (http://miranda-ng.org),
Copyright (c) 2000-12 Miranda IM project,
all portions of this codebase are copyrighted to the people
listed in contributors.txt.

This program 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.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

#include "commonheaders.h"

MIDatabase *currDb = NULL;

/////////////////////////////////////////////////////////////////////////////////////////
// getting data

MIR_CORE_DLL(int) db_get_b(MCONTACT hContact, const char *szModule, const char *szSetting, int errorValue)
{
	if (currDb != NULL) {
		DBVARIANT dbv;
		if (!currDb->GetContactSetting(hContact, szModule, szSetting, &dbv))
		{
			switch(dbv.type) {
				case DBVT_BYTE:	return dbv.bVal;
				case DBVT_WORD:   return BYTE(dbv.wVal);
				case DBVT_DWORD:	return BYTE(dbv.dVal);
			}
			currDb->FreeVariant(&dbv);
		}
	}
	return errorValue;
}

MIR_CORE_DLL(int) db_get_w(MCONTACT hContact, const char *szModule, const char *szSetting, int errorValue)
{
	if (currDb != NULL) {
		DBVARIANT dbv;
		if (!currDb->GetContactSetting(hContact, szModule, szSetting, &dbv)) {
			switch(dbv.type) {
				case DBVT_BYTE:	return dbv.bVal;
				case DBVT_WORD:   return dbv.wVal;
				case DBVT_DWORD:	return WORD(dbv.dVal);
			}
			currDb->FreeVariant(&dbv);
		}
	}
	return errorValue;
}

MIR_CORE_DLL(DWORD) db_get_dw(MCONTACT hContact, const char *szModule, const char *szSetting, DWORD errorValue)
{
	if (currDb != NULL) {
		DBVARIANT dbv;
		if (!currDb->GetContactSetting(hContact, szModule, szSetting, &dbv)) {
			switch(dbv.type) {
				case DBVT_BYTE:	return dbv.bVal;
				case DBVT_WORD:   return dbv.wVal;
				case DBVT_DWORD:	return dbv.dVal;
				default: currDb->FreeVariant(&dbv);
			}
			currDb->FreeVariant(&dbv);
		}
	}

	return errorValue;
}

MIR_CORE_DLL(INT_PTR) db_get(MCONTACT hContact, const char *szModule, const char *szSetting, DBVARIANT *dbv)
{
	if (currDb == NULL)
		return 1;

	return currDb->GetContactSetting(hContact, szModule, szSetting, dbv);
}

MIR_CORE_DLL(INT_PTR) db_get_s(MCONTACT hContact, const char *szModule, const char *szSetting, DBVARIANT *dbv, const int nType)
{
	if (currDb == NULL)
		return 1;

	dbv->type = (BYTE)nType;
	return currDb->GetContactSettingStr(hContact, szModule, szSetting, dbv);
}

MIR_CORE_DLL(char*) db_get_sa(MCONTACT hContact, const char *szModule, const char *szSetting)
{
	char *str = NULL;
	DBVARIANT dbv = {0};
	db_get_s(hContact, szModule, szSetting, &dbv, DBVT_ASCIIZ);
	if (dbv.type == DBVT_ASCIIZ)
		str = mir_strdup(dbv.pszVal);
		db_free(&dbv);
	return str;
}

MIR_CORE_DLL(wchar_t*) db_get_wsa(MCONTACT hContact, const char *szModule, const char *szSetting)
{
	wchar_t *str = NULL;
	DBVARIANT dbv={0};
	db_get_s(hContact, szModule, szSetting, &dbv, DBVT_WCHAR);
	if (dbv.type == DBVT_WCHAR)
		str = mir_wstrdup(dbv.pwszVal);
	db_free(&dbv);
	return str;
}

/////////////////////////////////////////////////////////////////////////////////////////
// getting static data

MIR_CORE_DLL(int) db_get_static(MCONTACT hContact, const char *szModule, const char *szSetting, char *pDest, int cbDest)
{
	if (currDb == NULL)
		return 1;

	DBVARIANT dbv;
	dbv.type = DBVT_ASCIIZ;
	dbv.pszVal = pDest;
	dbv.cchVal = cbDest;
	return currDb->GetContactSettingStatic(hContact, szModule, szSetting, &dbv);
}

MIR_CORE_DLL(int) db_get_static_utf(MCONTACT hContact, const char *szModule, const char *szSetting, char *pDest, int cbDest)
{
	if (currDb == NULL)
		return 1;

	DBVARIANT dbv;
	dbv.type = DBVT_UTF8;
	dbv.pszVal = pDest;
	dbv.cchVal = cbDest;
	return currDb->GetContactSettingStatic(hContact, szModule, szSetting, &dbv);
}

MIR_CORE_DLL(int) db_get_wstatic(MCONTACT hContact, const char *szModule, const char *szSetting, WCHAR *pDest, int cbDest)
{
	if (currDb == NULL)
		return 1;

	DBVARIANT dbv;
	dbv.type = DBVT_WCHAR;
	dbv.pwszVal = pDest;
	dbv.cchVal = cbDest;
	return currDb->GetContactSettingStatic(hContact, szModule, szSetting, &dbv);
}

/////////////////////////////////////////////////////////////////////////////////////////
// setting data

MIR_CORE_DLL(INT_PTR) db_set(MCONTACT hContact, const char *szModule, const char *szSetting, DBVARIANT *dbv)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value = *dbv;
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_b(MCONTACT hContact, const char *szModule, const char *szSetting, BYTE val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_BYTE;
	cws.value.bVal = val;
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_w(MCONTACT hContact, const char *szModule, const char *szSetting, WORD val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_WORD;
	cws.value.wVal = val;
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_dw(MCONTACT hContact, const char *szModule, const char *szSetting, DWORD val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_DWORD;
	cws.value.dVal = val;
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_s(MCONTACT hContact, const char *szModule, const char *szSetting, const char *val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_ASCIIZ;
	cws.value.pszVal = (char*)(val == NULL ? "" : val);
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_ws(MCONTACT hContact, const char *szModule, const char *szSetting, const WCHAR *val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_WCHAR;
	cws.value.pwszVal = (WCHAR*)(val == NULL ? L"" : val);
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_utf(MCONTACT hContact, const char *szModule, const char *szSetting, const char *val)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_UTF8;
	cws.value.pszVal = (char*)(val == NULL ? "" : val);
	return currDb->WriteContactSetting(hContact, &cws);
}

MIR_CORE_DLL(INT_PTR) db_set_blob(MCONTACT hContact, const char *szModule, const char *szSetting, void *val, unsigned len)
{
	if (currDb == NULL) return 1;

	DBCONTACTWRITESETTING cws;
	cws.szModule = szModule;
	cws.szSetting = szSetting;
	cws.value.type = DBVT_BLOB;
	cws.value.cpbVal = (WORD)len;
	cws.value.pbVal = (unsigned char*)val;
	return currDb->WriteContactSetting(hContact, &cws);
}

/////////////////////////////////////////////////////////////////////////////////////////
// events

MIR_CORE_DLL(HANDLE) db_event_add(MCONTACT hContact, DBEVENTINFO *dbei)
{
	return (currDb == NULL) ? 0 : currDb->AddEvent(hContact, dbei);
}

MIR_CORE_DLL(int) db_event_count(MCONTACT hContact)
{
	return (currDb == NULL) ? 0 : currDb->GetEventCount(hContact);
}

MIR_CORE_DLL(int) db_event_delete(MCONTACT hContact, HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->DeleteEvent(hContact, hDbEvent);
}

MIR_CORE_DLL(HANDLE) db_event_first(MCONTACT hContact)
{
	return (currDb == NULL) ? 0 : currDb->FindFirstEvent(hContact);
}

MIR_CORE_DLL(HANDLE) db_event_firstUnread(MCONTACT hContact)
{
	return (currDb == NULL) ? 0 : currDb->FindFirstUnreadEvent(hContact);
}

MIR_CORE_DLL(int) db_event_get(HANDLE hDbEvent, DBEVENTINFO *dbei)
{
	return (currDb == NULL) ? 1 : currDb->GetEvent(hDbEvent, dbei);
}

MIR_CORE_DLL(int) db_event_getBlobSize(HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->GetBlobSize(hDbEvent);
}

MIR_CORE_DLL(MCONTACT) db_event_getContact(HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->GetEventContact(hDbEvent);
}

MIR_CORE_DLL(HANDLE) db_event_last(MCONTACT hContact)
{
	return (currDb == NULL) ? 0 : currDb->FindLastEvent(hContact);
}

MIR_CORE_DLL(int) db_event_markRead(MCONTACT hContact, HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->MarkEventRead(hContact, hDbEvent);
}

MIR_CORE_DLL(HANDLE) db_event_next(MCONTACT hContact, HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->FindNextEvent(hContact, hDbEvent);
}

MIR_CORE_DLL(HANDLE) db_event_prev(MCONTACT hContact, HANDLE hDbEvent)
{
	return (currDb == NULL) ? 0 : currDb->FindPrevEvent(hContact, hDbEvent);
}

/////////////////////////////////////////////////////////////////////////////////////////
// misc functions

MIR_CORE_DLL(INT_PTR) db_free(DBVARIANT *dbv)
{
	return (currDb == NULL) ? 1 : currDb->FreeVariant(dbv);
}

MIR_CORE_DLL(INT_PTR) db_unset(MCONTACT hContact, const char *szModule, const char *szSetting)
{
	if (currDb == NULL)
		return 1;

	return currDb->DeleteContactSetting(hContact, szModule, szSetting);
}

MIR_CORE_DLL(DBCachedContact*) db_get_contact(MCONTACT hContact)
{
	return (currDb == NULL) ? NULL : currDb->m_cache->GetCachedContact(hContact);
}

MIR_CORE_DLL(MCONTACT) db_find_first(const char *szProto)
{
	return (currDb == NULL) ? NULL : currDb->FindFirstContact(szProto);
}

MIR_CORE_DLL(MCONTACT) db_find_next(MCONTACT hContact, const char *szProto)
{
	return (currDb == NULL) ? NULL : currDb->FindNextContact(hContact, szProto);
}

extern "C" MIR_CORE_DLL(void) db_setCurrent(MIDatabase *_db)
{
	currDb = _db;

	// try to get the langpack's name from a profile
	ptrT langpack(db_get_tsa(NULL, "Langpack", "Current"));
	if (langpack && langpack[0] != '\0')
		LoadLangPack(langpack);
}

MIR_CORE_DLL(BOOL) db_set_resident(const char *szModule, const char *szService, BOOL bEnable)
{
	if (currDb == NULL || szModule == NULL || szService == NULL)
		return FALSE;

	char str[MAXMODULELABELLENGTH * 2];
	mir_snprintf(str, SIZEOF(str), "%s/%s", szModule, szService);
	return currDb->SetSettingResident(bEnable, str);
}