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 missing function "infolist_reset_item_cursor" in script API (bug #31057)

Browse Source
This commit is contained in:
Sebastien Helleu
2010-09-21 17:31:27 +02:00
parent 051788f731
commit 86323231fd
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
+30
View File
@@ -5692,6 +5692,35 @@ XS (XS_weechat_api_infolist_prev)
PERL_RETURN_INT(value);
}
/*
* weechat::infolist_reset_item_cursor: reset pointer to current item in
* infolist
*/
XS (XS_weechat_api_infolist_reset_item_cursor)
{
dXSARGS;
/* make C compiler happy */
(void) cv;
if (!perl_current_script)
{
WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "infolist_reset_item_cursor");
PERL_RETURN_ERROR;
}
if (items < 1)
{
WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "infolist_reset_item_cursor");
PERL_RETURN_ERROR;
}
weechat_infolist_reset_item_cursor (script_str2ptr (SvPV (ST (0), PL_na))); /* infolist */
PERL_RETURN_OK;
}
/*
* weechat::infolist_fields: get list of fields for current item of infolist
*/
@@ -6215,6 +6244,7 @@ weechat_perl_api_init (pTHX)
newXS ("weechat::infolist_get", XS_weechat_api_infolist_get, "weechat");
newXS ("weechat::infolist_next", XS_weechat_api_infolist_next, "weechat");
newXS ("weechat::infolist_prev", XS_weechat_api_infolist_prev, "weechat");
newXS ("weechat::infolist_reset_item_cursor", XS_weechat_api_infolist_reset_item_cursor, "weechat");
newXS ("weechat::infolist_fields", XS_weechat_api_infolist_fields, "weechat");
newXS ("weechat::infolist_integer", XS_weechat_api_infolist_integer, "weechat");
newXS ("weechat::infolist_string", XS_weechat_api_infolist_string, "weechat");