static int api_hexchat_send_modes(lua_State *L)
{
size_t i, n;
int modes;
char const *mode;
char const **targets;
luaL_checktype(L, 1, LUA_TTABLE);
n = lua_rawlen(L, 1);
mode = luaL_checkstring(L, 2);
if(strlen(mode) != 2)
return luaL_argerror(L, 2, "expected sign followed by a mode letter");
modes = luaL_optinteger(L, 3, 0);
targets = g_new(char const *, n);
for(i = 0; i < n; i++)
{
lua_rawgeti(L, 1, i + 1);
if(lua_type(L, -1) != LUA_TSTRING)
{
g_free(targets);
return luaL_argerror(L, 1, "expected an array of strings");
}
targets[i] = lua_tostring(L, -1);
lua_pop(L, 1);
}
hexchat_send_modes(ph, targets, n, modes, mode[0], mode[1]);
g_free(targets);
return 0;
}
static
XS (XS_Xchat_send_modes)
{
AV *p_targets = NULL;
int modes_per_line = 0;
char sign;
char mode;
int i = 0;
const char **targets;
int target_count = 0;
SV **elem;
dXSARGS;
if (items < 3 || items > 4) {
hexchat_print (ph,
"Usage: Xchat::send_modes( targets, sign, mode, modes_per_line)"
);
} else {
if (SvROK (ST (0))) {
p_targets = (AV*) SvRV (ST (0));
target_count = av_len (p_targets) + 1;
targets = malloc (target_count * sizeof (char *));
for (i = 0; i < target_count; i++ ) {
elem = av_fetch (p_targets, i, 0);
if (elem != NULL) {
targets[i] = SvPV_nolen (*elem);
} else {
targets[i] = "";
}
}
} else{
targets = malloc (sizeof (char *));
targets[0] = SvPV_nolen (ST (0));
target_count = 1;
}
if (target_count == 0) {
XSRETURN_EMPTY;
}
sign = (SvPV_nolen (ST (1)))[0];
mode = (SvPV_nolen (ST (2)))[0];
if (items == 4 ) {
modes_per_line = (int) SvIV (ST (3));
}
hexchat_send_modes (ph, targets, target_count, modes_per_line, sign, mode);
free (targets);
}
}
