Add new functions in plugin API to get/set nicks/groups properties in nicklist

8 new functions added:
- nicklist_group_get_integer
- nicklist_group_get_string
- nicklist_group_get_pointer
- nicklist_group_set
- nicklist_nick_get_integer
- nicklist_nick_get_string
- nicklist_nick_get_pointer
- nicklist_nick_set

1 files changed, 296 insertions, 0 deletions

diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c
index aead39eda..8db134118 100644
--- a/src/plugins/scripts/perl/weechat-perl-api.c
+++ b/src/plugins/scripts/perl/weechat-perl-api.c
@@ -5061,6 +5061,294 @@ XS (XS_weechat_api_nicklist_remove_all)
 }
 
 /*
+ * weechat::nicklist_group_get_integer: get a group property as integer
+ */
+
+XS (XS_weechat_api_nicklist_group_get_integer)
+{
+    char *buffer, *group, *property;
+    int value;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_integer");
+        PERL_RETURN_INT(-1);
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_integer");
+        PERL_RETURN_INT(-1);
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    group = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    value = weechat_nicklist_group_get_integer (script_str2ptr (buffer),
+                                                script_str2ptr (group),
+                                                property);
+    
+    PERL_RETURN_INT(value);
+}
+
+/*
+ * weechat::nicklist_group_get_string: get a group property as string
+ */
+
+XS (XS_weechat_api_nicklist_group_get_string)
+{
+    char *buffer, *group, *property;
+    const char *result;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_string");
+        PERL_RETURN_EMPTY;
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_string");
+        PERL_RETURN_EMPTY;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    group = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    result = weechat_nicklist_group_get_string (script_str2ptr (buffer),
+                                                script_str2ptr (group),
+                                                property);
+    
+    PERL_RETURN_STRING(result);
+}
+
+/*
+ * weechat::nicklist_group_get_pointer: get a group property as pointer
+ */
+
+XS (XS_weechat_api_nicklist_group_get_pointer)
+{
+    char *result, *buffer, *group, *property;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_pointer");
+        PERL_RETURN_EMPTY;
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_get_pointer");
+        PERL_RETURN_EMPTY;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    group = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    result = script_ptr2str (weechat_nicklist_group_get_pointer (script_str2ptr (buffer),
+                                                                 script_str2ptr (group),
+                                                                 property));
+    
+    PERL_RETURN_STRING_FREE(result);
+}
+
+/*
+ * weechat::nicklist_group_set: set a group property
+ */
+
+XS (XS_weechat_api_nicklist_group_set)
+{
+    char *buffer, *group, *property, *value;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_set");
+        PERL_RETURN_ERROR;
+    }
+    
+    if (items < 4)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_group_set");
+        PERL_RETURN_ERROR;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    group = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    value = SvPV (ST (3), PL_na);
+    
+    weechat_nicklist_group_set (script_str2ptr (buffer),
+                                script_str2ptr (group),
+                                property,
+                                value);
+    
+    PERL_RETURN_OK;
+}
+
+/*
+ * weechat::nicklist_nick_get_integer: get a nick property as integer
+ */
+
+XS (XS_weechat_api_nicklist_nick_get_integer)
+{
+    char *buffer, *nick, *property;
+    int value;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_integer");
+        PERL_RETURN_INT(-1);
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_integer");
+        PERL_RETURN_INT(-1);
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    nick = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    value = weechat_nicklist_nick_get_integer (script_str2ptr (buffer),
+                                               script_str2ptr (nick),
+                                               property);
+    
+    PERL_RETURN_INT(value);
+}
+
+/*
+ * weechat::nicklist_nick_get_string: get a nick property as string
+ */
+
+XS (XS_weechat_api_nicklist_nick_get_string)
+{
+    char *buffer, *nick, *property;
+    const char *result;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_string");
+        PERL_RETURN_EMPTY;
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_string");
+        PERL_RETURN_EMPTY;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    nick = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    result = weechat_nicklist_nick_get_string (script_str2ptr (buffer),
+                                               script_str2ptr (nick),
+                                               property);
+    
+    PERL_RETURN_STRING(result);
+}
+
+/*
+ * weechat::nicklist_nick_get_pointer: get a nick property as pointer
+ */
+
+XS (XS_weechat_api_nicklist_nick_get_pointer)
+{
+    char *result, *buffer, *nick, *property;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_pointer");
+        PERL_RETURN_EMPTY;
+    }
+    
+    if (items < 3)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_get_pointer");
+        PERL_RETURN_EMPTY;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    nick = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    
+    result = script_ptr2str (weechat_nicklist_nick_get_pointer (script_str2ptr (buffer),
+                                                                script_str2ptr (nick),
+                                                                property));
+    
+    PERL_RETURN_STRING_FREE(result);
+}
+
+/*
+ * weechat::nicklist_nick_set: set a nick property
+ */
+
+XS (XS_weechat_api_nicklist_nick_set)
+{
+    char *buffer, *nick, *property, *value;
+    dXSARGS;
+    
+    /* make C compiler happy */
+    (void) cv;
+    
+    if (!perl_current_script || !perl_current_script->name)
+    {
+        WEECHAT_SCRIPT_MSG_NOT_INIT(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_set");
+        PERL_RETURN_ERROR;
+    }
+    
+    if (items < 4)
+    {
+        WEECHAT_SCRIPT_MSG_WRONG_ARGS(PERL_CURRENT_SCRIPT_NAME, "nicklist_nick_set");
+        PERL_RETURN_ERROR;
+    }
+    
+    buffer = SvPV (ST (0), PL_na);
+    nick = SvPV (ST (1), PL_na);
+    property = SvPV (ST (2), PL_na);
+    value = SvPV (ST (3), PL_na);
+    
+    weechat_nicklist_nick_set (script_str2ptr (buffer),
+                               script_str2ptr (nick),
+                               property,
+                               value);
+    
+    PERL_RETURN_OK;
+}
+
+/*
  * weechat::bar_item_search: search a bar item
  */
 
@@ -6328,6 +6616,14 @@ weechat_perl_api_init (pTHX)
     newXS ("weechat::nicklist_remove_group", XS_weechat_api_nicklist_remove_group, "weechat");
     newXS ("weechat::nicklist_remove_nick", XS_weechat_api_nicklist_remove_nick, "weechat");
     newXS ("weechat::nicklist_remove_all", XS_weechat_api_nicklist_remove_all, "weechat");
+    newXS ("weechat::nicklist_group_get_integer", XS_weechat_api_nicklist_group_get_integer, "weechat");
+    newXS ("weechat::nicklist_group_get_string", XS_weechat_api_nicklist_group_get_string, "weechat");
+    newXS ("weechat::nicklist_group_get_pointer", XS_weechat_api_nicklist_group_get_pointer, "weechat");
+    newXS ("weechat::nicklist_group_set", XS_weechat_api_nicklist_group_set, "weechat");
+    newXS ("weechat::nicklist_nick_get_integer", XS_weechat_api_nicklist_nick_get_integer, "weechat");
+    newXS ("weechat::nicklist_nick_get_string", XS_weechat_api_nicklist_nick_get_string, "weechat");
+    newXS ("weechat::nicklist_nick_get_pointer", XS_weechat_api_nicklist_nick_get_pointer, "weechat");
+    newXS ("weechat::nicklist_nick_set", XS_weechat_api_nicklist_nick_set, "weechat");
     newXS ("weechat::bar_item_search", XS_weechat_api_bar_item_search, "weechat");
     newXS ("weechat::bar_item_new", XS_weechat_api_bar_item_new, "weechat");
     newXS ("weechat::bar_item_update", XS_weechat_api_bar_item_update, "weechat");