1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
#include "stdafx.h"
static int lua_FindFirstContact(lua_State *L)
{
MCONTACT hContact = db_find_first(lua_tostring(L, 1));
lua_pushinteger(L, hContact);
return 1;
}
static int lua_FindNextContact(lua_State *L)
{
MCONTACT hContact = db_find_next(luaL_checkinteger(L, 1), lua_tostring(L, 2));
lua_pushinteger(L, hContact);
return 1;
}
static int lua_WriteContactSetting(lua_State *L)
{
MCONTACT hContact = lua_tointeger(L, 1);
LPCSTR szModule = luaL_checkstring(L, 2);
LPCSTR szSetting = luaL_checkstring(L, 3);
DBVARIANT dbv = { 0 };
int type = lua_type(L, 4);
switch (type)
{
case LUA_TBOOLEAN:
dbv.bVal = lua_toboolean(L, 4);
dbv.type = DBVT_BYTE;
break;
case LUA_TNUMBER:
dbv.dVal = lua_tonumber(L, 4);
dbv.type = DBVT_DWORD;
break;
case LUA_TSTRING:
dbv.pszVal = (char*)lua_tostring(L, 4);
dbv.type = DBVT_UTF8;
break;
default:
lua_pushinteger(L, 1);
return 1;
}
INT_PTR res = db_set(hContact, szModule, szSetting, &dbv);
lua_pushinteger(L, res);
return 1;
}
static int lua_GetContactSetting(lua_State *L)
{
MCONTACT hContact = lua_tointeger(L, 1);
LPCSTR szModule = luaL_checkstring(L, 2);
LPCSTR szSetting = luaL_checkstring(L, 3);
DBVARIANT dbv;
if (db_get(hContact, szModule, szSetting, &dbv))
{
lua_pushvalue(L, 4);
return 1;
}
switch (dbv.type)
{
case DBVT_BYTE:
lua_pushboolean(L, dbv.bVal);
break;
case DBVT_WORD:
lua_pushinteger(L, dbv.wVal);
break;
case DBVT_DWORD:
lua_pushnumber(L, dbv.dVal);
break;
case DBVT_ASCIIZ:
lua_pushstring(L, ptrA(mir_utf8encode(dbv.pszVal)));
break;
case DBVT_UTF8:
lua_pushstring(L, dbv.pszVal);
break;
case DBVT_WCHAR:
lua_pushstring(L, ptrA(mir_utf8encodeW(dbv.pwszVal)));
break;
default:
db_free(&dbv);
lua_pushvalue(L, 4);
return 1;
}
db_free(&dbv);
return 1;
}
static int lua_DeleteContactSetting(lua_State *L)
{
MCONTACT hContact = lua_tointeger(L, 1);
LPCSTR szModule = luaL_checkstring(L, 2);
LPCSTR szSetting = luaL_checkstring(L, 3);
INT_PTR res = db_unset(hContact, szModule, szSetting);
lua_pushinteger(L, res);
return 1;
}
static int lua_DeleteModule(lua_State *L)
{
MCONTACT hContact = lua_tointeger(L, 1);
LPCSTR szModule = luaL_checkstring(L, 2);
INT_PTR res = ::CallService(MS_DB_MODULE_DELETE, hContact, (LPARAM)szModule);
lua_pushinteger(L, res);
return 1;
}
static luaL_Reg databaseApi[] =
{
{ "FindFirstContact", lua_FindFirstContact },
{ "FindNextContact", lua_FindNextContact },
{ "WriteContactSetting", lua_WriteContactSetting },
{ "GetContactSetting", lua_GetContactSetting },
{ "DeleteContactSetting", lua_DeleteContactSetting },
{ "DeleteModule", lua_DeleteModule },
{ NULL, NULL }
};
LUAMOD_API int luaopen_m_database(lua_State *L)
{
luaL_newlib(L, databaseApi);
return 1;
}
|
