pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-28 05:46:38 +02:00
Code Activity

Add function "infolist_new_item" in script API

Browse Source
This commit is contained in:
Sebastien Helleu
2009-12-18 18:09:12 +01:00
parent 846fb5d283
commit 58df8c2d83
6 changed files with 173 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl-api.c
+32
View File
@@ -5092,6 +5092,37 @@ XS (XS_weechat_api_infolist_new)
PERL_RETURN_STRING_FREE(result);
}
/*
* weechat::infolist_new_item: create new item in infolist
*/
XS (XS_weechat_api_infolist_new_item)
{
char *infolist, *result;
dXSARGS;
/* make C compiler happy */
(void) cv;
if (!perl_current_script)
{
WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "infolist_new_item");
PERL_RETURN_EMPTY;
}
if (items < 1)
{
WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "infolist_new_item");
PERL_RETURN_EMPTY;
}
infolist = SvPV (ST (0), PL_na);
result = script_ptr2str (weechat_infolist_new_item (script_str2ptr (infolist)));
PERL_RETURN_STRING_FREE(result);
}
/*
* weechat::infolist_new_var_integer: create new integer variable in infolist
*/
@@ -5830,6 +5861,7 @@ weechat_perl_api_init (pTHX)
newXS ("weechat::command", XS_weechat_api_command, "weechat");
newXS ("weechat::info_get", XS_weechat_api_info_get, "weechat");
newXS ("weechat::infolist_new", XS_weechat_api_infolist_new, "weechat");
newXS ("weechat::infolist_new_item", XS_weechat_api_infolist_new_item, "weechat");
newXS ("weechat::infolist_new_var_integer", XS_weechat_api_infolist_new_var_integer, "weechat");
newXS ("weechat::infolist_new_var_string", XS_weechat_api_infolist_new_var_string, "weechat");
newXS ("weechat::infolist_new_var_pointer", XS_weechat_api_infolist_new_var_pointer, "weechat");