pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-28 13:56:37 +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/tcl/weechat-tcl-api.c
+35
View File
@@ -6349,6 +6349,39 @@ weechat_tcl_api_infolist_prev (ClientData clientData, Tcl_Interp *interp,
TCL_RETURN_INT(result);
}
/*
* weechat_tcl_api_infolist_reset_item_cursor: reset pointer to current item in
* infolist
*/
static int
weechat_tcl_api_infolist_reset_item_cursor (ClientData clientData,
Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[])
{
Tcl_Obj *objp;
int i;
/* make C compiler happy */
(void) clientData;
if (!tcl_current_script)
{
WEECHAT_SCRIPT_MSG_NOT_INIT(TCL_CURRENT_SCRIPT_NAME, "infolist_reset_item_cursor");
TCL_RETURN_ERROR;
}
if (objc < 2)
{
WEECHAT_SCRIPT_MSG_WRONG_ARGS(TCL_CURRENT_SCRIPT_NAME, "infolist_reset_item_cursor");
TCL_RETURN_ERROR;
}
weechat_infolist_reset_item_cursor (script_str2ptr (Tcl_GetStringFromObj (objv[1], &i))); /* infolist */
TCL_RETURN_OK;
}
/*
* weechat_tcl_api_infolist_fields: get list of fields for current item of
* infolist
@@ -7141,6 +7174,8 @@ void weechat_tcl_api_init (Tcl_Interp *interp)
weechat_tcl_api_infolist_next, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
Tcl_CreateObjCommand (interp, "weechat::infolist_prev",
weechat_tcl_api_infolist_prev, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
Tcl_CreateObjCommand (interp, "weechat::infolist_reset_item_cursor",
weechat_tcl_api_infolist_reset_item_cursor, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
Tcl_CreateObjCommand (interp, "weechat::infolist_fields",
weechat_tcl_api_infolist_fields, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
Tcl_CreateObjCommand (interp, "weechat::infolist_integer",