only add some plugins and protocols, not adapted

See please maybe not all need us

git-svn-id: http://svn.miranda-ng.org/main/trunk@678 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 358 insertions, 0 deletions

diff --git a/plugins/SmartAutoReplier/SarLuaScript.cpp b/plugins/SmartAutoReplier/SarLuaScript.cpp
new file mode 100644
index 0000000000..d83f82c51d
--- /dev/null
+++ b/plugins/SmartAutoReplier/SarLuaScript.cpp
@@ -0,0 +1,358 @@
+/*

+ *  Smart Auto Replier (SAR) - auto replier plugin for Miranda IM

+ *

+ *  Copyright (C) 2004 - 2012 by Volodymyr M. Shcherbyna <volodymyr@shcherbyna.com>

+ *

+ *  This code is inspired by article of RichardS at http://www.codeproject.com/Articles/11508/Integrating-Lua-into-C

+ *

+ *      This file is part of SAR.

+ *

+ *  SAR 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 3 of the License, or

+ *  (at your option) any later version.

+ *

+ *  SAR 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 SAR.  If not, see <http://www.gnu.org/licenses/>.

+*/

+

+#include "stdafx.h"

+#include "SarLuaScript.h"

+

+#include "../miranda32/m_protomod.h"

+#include "../miranda32/m_protosvc.h"

+

+extern INT g_nCurrentMode;

+extern CMessagesHandler *g_pMessHandler;

+

+wchar_t* Utf8toUtf16(CHAR * szStrIn, UINT & nSize);

+char* Utf16toUtf8(LPCWSTR lpwszStrIn, UINT & nSize);

+

+CSarLuaScript::CSarLuaScript(CLuaBridge & luaBridge) : CLuaScript(luaBridge)

+{

+	m_nFuncBaseIndex = RegisterFunction("SendMessage");

+

+	RegisterFunction("GetMyStatus");

+	RegisterFunction("SetMyStatus");

+	RegisterFunction("Wait");

+	RegisterFunction("FindUser");

+	RegisterFunction("SetVariable");

+	RegisterFunction("GetVariable");

+}

+

+CSarLuaScript::~CSarLuaScript(void)

+{

+}

+

+int CSarLuaScript::ScriptCalling(CLuaBridge & luaBridge, int nFncNumber)

+{

+	switch (nFncNumber - m_nFuncBaseIndex)

+	{

+	case 0:

+		return SendMessage(luaBridge);

+

+	case 1:

+		return GetMyStatus(luaBridge);

+

+	case 2:

+		return SetMyStatus(luaBridge);

+

+	case 3:

+		return Wait(luaBridge);

+

+	case 4:

+		return FindUser(luaBridge);

+

+	case 5:

+		return SetVariable(luaBridge);

+

+	case 6:

+		return GetVariable(luaBridge);

+	}

+

+	return FALSE;

+}

+

+int CSarLuaScript::SendMessage(CLuaBridge & luaBridge)

+{

+    lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	UINT nMessageLen		= lua_strlen(pFunctionContext, -1);

+	const char * szMessage	= lua_tostring(pFunctionContext, -1);

+	int hUserToken			= (int)lua_tonumber(pFunctionContext, -2);

+

+	if (szMessage == NULL)

+	{

+		return FALSE;

+	}

+

+	int nRetVal = 0;

+

+#ifdef _UNICODE

+	/*/// as I am in unicode, I have to convert all strings from utf8 to utf16 :)

+	wchar_t * szwMessage = Utf8toUtf16((char*)szMessage, nMessageLen);*/

+

+	nRetVal = CallContactService((HANDLE)hUserToken, PSS_MESSAGE, PREF_UTF, reinterpret_cast<LPARAM>(szMessage));

+

+	/*free(szwMessage);*/

+#else

+	nRetVal = CallContactService((HANDLE)hUserToken, PSS_MESSAGE, 0, reinterpret_cast<LPARAM>(szMessage));

+#endif	

+				

+    return FALSE;

+}

+

+int CSarLuaScript::GetMyStatus(CLuaBridge & luaBridge)

+{

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+	int nStatusMode = CallService(MS_CLIST_GETSTATUSMODE, (WPARAM)0, (LPARAM)0);

+

+	nStatusMode = g_nCurrentMode;

+

+	switch (nStatusMode)

+	{

+	case ID_STATUS_ONLINE:

+		AddParam("Online");

+		break;

+

+	case ID_STATUS_OFFLINE:

+		AddParam("Offline");

+		break;

+

+	case ID_STATUS_AWAY:

+		AddParam("Away");

+		break;

+

+	case ID_STATUS_DND:

+		AddParam("DND");

+		break;

+

+	case ID_STATUS_NA:

+		AddParam("NA");

+		break;

+

+	case ID_STATUS_OCCUPIED:

+		AddParam("Occupied");

+		break;

+

+	case ID_STATUS_FREECHAT:

+		AddParam("FreeChat");

+		break;

+

+	case ID_STATUS_INVISIBLE:

+		AddParam("Invisible");

+		break;

+

+	case ID_STATUS_ONTHEPHONE:

+		AddParam("OnThePhone");

+		break;

+

+	case ID_STATUS_OUTTOLUNCH:

+		AddParam("OutToLunch");

+		break;

+

+	default:

+		AddParam("Unknown");

+		break;

+	}

+

+	return TRUE;

+}

+

+int CSarLuaScript::SetMyStatus(CLuaBridge & luaBridge)

+{

+	int nNewStatus = 0;

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	const char * szStatus = lua_tostring(pFunctionContext, -1);

+

+	if (szStatus == NULL)

+	{

+		return FALSE;

+	}

+

+	if (strcmp(szStatus, "Online") == 0)

+	{

+		nNewStatus = ID_STATUS_ONLINE;

+	}

+	else if (strcmp(szStatus, "Offline") == 0)

+	{

+		nNewStatus = ID_STATUS_OFFLINE;

+	}

+	else if (strcmp(szStatus, "Away") == 0)

+	{

+		nNewStatus = ID_STATUS_AWAY;

+	}

+	else if (strcmp(szStatus, "DND") == 0)

+	{

+		nNewStatus = ID_STATUS_DND;

+	}

+	else if (strcmp(szStatus, "NA") == 0)

+	{

+		nNewStatus = ID_STATUS_NA;

+	}

+	else if (strcmp(szStatus, "Occupied") == 0)

+	{

+		nNewStatus = ID_STATUS_OCCUPIED;

+	}

+	else if (strcmp(szStatus, "FreeChat") == 0)

+	{

+		nNewStatus = ID_STATUS_FREECHAT;

+	}

+	else if (strcmp(szStatus, "Invisible") == 0)

+	{

+		nNewStatus = ID_STATUS_INVISIBLE;

+	}

+	else if (strcmp(szStatus, "OnThePhone") == 0)

+	{

+		nNewStatus = ID_STATUS_ONTHEPHONE;

+	}

+	else if (strcmp(szStatus, "OutToLunch") == 0)

+	{

+		nNewStatus = ID_STATUS_OUTTOLUNCH;

+	}

+

+	CallService(MS_CLIST_SETSTATUSMODE, (WPARAM)nNewStatus, (LPARAM)0);

+

+	return FALSE;

+}

+

+typedef map<wstring, wstring> MapOfStrings;

+

+MapOfStrings g_MapOfVariables;

+

+int CSarLuaScript::SetVariable(CLuaBridge & luaBridge)

+{

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	UINT nNameLength		= lua_strlen(pFunctionContext, -2);

+	const char * szName		= lua_tostring(pFunctionContext, -2);

+

+	UINT nVariableLength	= lua_strlen(pFunctionContext, -1);

+	const char * szVariable	= lua_tostring(pFunctionContext, -1);

+

+	if (szName == NULL || szVariable == NULL)

+	{

+		return FALSE;

+	}

+	

+	wchar_t * szwName		= Utf8toUtf16((char*)szName, nNameLength);

+	wchar_t * szwVariable	= Utf8toUtf16((char*)szVariable, nVariableLength);

+

+	if (szwName && szwVariable)

+	{

+		g_MapOfVariables[szwName] = szwVariable;

+	}

+

+	if (szwName)

+	{

+		free(szwName);

+	}

+

+	if (szwVariable)

+	{

+		free(szwVariable);

+	}

+

+	return FALSE;

+}

+

+int CSarLuaScript::GetVariable(CLuaBridge & luaBridge)

+{

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	UINT nNameLength		= lua_strlen(pFunctionContext, -1);

+	const char * szName		= lua_tostring(pFunctionContext, -1);

+

+	if (szName == NULL)

+	{

+		return FALSE;

+	}

+	

+	wchar_t * szwName		= Utf8toUtf16((char*)szName, nNameLength);

+

+	if (szwName)

+	{

+		MapOfStrings::iterator it = g_MapOfVariables.find(szwName);

+

+		if (it != g_MapOfVariables.end())

+		{

+			UINT nSize	 = 0;

+			char * szUtf = Utf16toUtf8(it->second.c_str(), nSize);

+

+			if (szUtf != NULL)

+			{

+				AddParam(szUtf);

+				free(szUtf);

+				free(szwName);

+

+				return TRUE;

+			}

+		}

+	}

+

+	if (szwName)

+	{

+		free(szwName);

+	}	

+

+	return FALSE;

+}

+

+int CSarLuaScript::Wait(CLuaBridge & luaBridge)

+{

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	int nSleepInterval = (int)lua_tonumber(pFunctionContext, -1);

+

+	Sleep(1000 * nSleepInterval);

+

+	return FALSE;

+}

+

+int CSarLuaScript::FindUser(CLuaBridge & luaBridge)

+{

+	lua_State *pFunctionContext = (lua_State*)luaBridge;

+

+	const CHAR * szUser		= (CHAR*)lua_tostring(pFunctionContext, -2);

+	const CHAR * szProtocol = (CHAR*)lua_tostring(pFunctionContext, -1);	

+

+	if (szProtocol == NULL || szUser == NULL)

+	{

+		return FALSE;

+	}

+

+	HANDLE	hContact		= reinterpret_cast<HANDLE>(CallService(MS_DB_CONTACT_FINDFIRST, 0, 0));

+	CHAR*	szContactName	= NULL;

+	CHAR*	szProto			= NULL;

+	DWORD	wId				= 0;

+

+	while (hContact != NULL)

+	{

+		szContactName = reinterpret_cast<CHAR*>(CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, GCDNF_NOMYHANDLE));

+		szProto		  = (CHAR*)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);

+

+		if (szProto && szContactName)

+		{

+			if ( (strcmp(szUser, szContactName)) == 0 && (strcmp(szProto, szProtocol) == 0))

+			{

+				AddParam((int)hContact);

+				return TRUE;

+			}

+		}

+

+		hContact = reinterpret_cast<HANDLE> (CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM) hContact, 0));

+	}

+

+	return FALSE;

+}

+

+void CSarLuaScript::HandleReturns(CLuaBridge & luaBridge, const char *szFunc)

+{

+

+}
\ No newline at end of file