/* Variables Plugin for Miranda-IM (www.miranda-im.org) Copyright 2003-2006 P. Boon This program is mir_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 "variables.h" static CRITICAL_SECTION csAliasRegister; static ALIASREGISTER *ar = NULL; static unsigned int arCount = 0; static ALIASREGISTER *searchAliasRegister(TCHAR *szAlias) { ALIASREGISTER *res; unsigned int i; res = NULL; if ((szAlias == NULL) || (_tcslen(szAlias) == 0)) { return NULL; } EnterCriticalSection(&csAliasRegister); for (i=0;i _tcslen(tArg)) { res = (TCHAR*)mir_realloc(res, (_tcslen(res) + (_tcslen(rArg)-_tcslen(tArg)) + 1)*sizeof(TCHAR)); if (res == NULL) return NULL; } MoveMemory(res+ecur+(_tcslen(rArg)-_tcslen(tArg)), res+ecur, (_tcslen(res+ecur)+1)*sizeof(TCHAR)); _tcsncpy(res+cur, rArg, _tcslen(rArg)); } } cur++; } return res; } static TCHAR *parseTranslateAlias(ARGUMENTSINFO *ai) { unsigned int i; TCHAR *res; ALIASREGISTER *areg; areg = searchAliasRegister(ai->targv[0]); if ((areg == NULL) || (areg->argc != ai->argc-1)) { return NULL; } res = mir_tstrdup(areg->szTranslation); for (i=0;iargc;i++) { res = replaceArguments(res, areg->argv[i], ai->targv[i+1]); if (res == NULL) { return NULL; } } return res; } static int addToAliasRegister(TCHAR *szAlias, unsigned int argc, TCHAR** argv, TCHAR *szTranslation) { unsigned int i, j; if (szAlias == NULL || szTranslation == NULL || _tcslen(szAlias) == 0 ) return -1; EnterCriticalSection(&csAliasRegister); for (i=0;iargc != 3) return NULL; TCHAR *cur = ai->targv[1]; while (isValidTokenChar(*cur)) cur++; TCHAR *alias = (TCHAR*)mir_calloc(((cur-ai->targv[1])+1)*sizeof(TCHAR)); if (alias == NULL) return NULL; _tcsncpy(alias, ai->targv[1], (cur-ai->targv[1])); getArguments(cur, &argv, &argc); deRegisterToken(alias); addToAliasRegister(alias, argc, argv, ai->targv[2]); TCHAR *szArgs = NULL; for (i=0; i < argc; i++) { if (i == 0) szArgs = (TCHAR*)mir_calloc(( _tcslen(argv[i])+2)*sizeof(TCHAR)); else szArgs = (TCHAR*)mir_realloc(szArgs, (_tcslen(szArgs) + _tcslen(argv[i]) + 2)*sizeof(TCHAR)); _tcscat(szArgs, argv[i]); if (i != argc-1) _tcscat(szArgs, _T(",")); } if ((szArgs != NULL) && (argc > 0)) { szArgsA = mir_t2a(szArgs); size_t size = 32 + strlen(szArgsA); szHelp = (char *)mir_alloc(size); memset(szHelp, '\0', 32 + strlen(szArgsA)); mir_snprintf(szHelp, size, LPGEN("Alias")"\t(%s)\t"LPGEN("user defined"), szArgsA); res = registerIntToken(alias, parseTranslateAlias, TRF_FUNCTION|TRF_UNPARSEDARGS, szHelp); mir_free(szArgsA); } else { szHelp = ( char* )mir_alloc(32); memset(szHelp, '\0', 32); mir_snprintf(szHelp, 32, LPGEN("Alias")"\t\t"LPGEN("user defined")); res = registerIntToken(alias, parseTranslateAlias, TRF_FIELD|TRF_UNPARSEDARGS, szHelp); } mir_free(szArgs); mir_free(szHelp); return (res == 0) ? mir_tstrdup(_T("")) : NULL; } int registerAliasTokens() { registerIntToken(_T(ADDALIAS), parseAddAlias, TRF_FUNCTION|TRF_UNPARSEDARGS, LPGEN("Variables")"\t(x,y)\t"LPGEN("stores y as alias named x"));//TRF_UNPARSEDARGS); InitializeCriticalSection(&csAliasRegister); return 0; } void unregisterAliasTokens() { DeleteCriticalSection(&csAliasRegister); }