Mercurial > pidgin.yaz
changeset 15205:d83f71ca0cd7
[gaim-migrate @ 17994]
fix the perl bindings for the notify_userinfo changes.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Thu, 14 Dec 2006 05:02:08 +0000 |
parents | f814b2df9cce |
children | 348b7f3b2ecd |
files | libgaim/plugins/perl/common/Notify.xs libgaim/plugins/perl/common/Util.xs libgaim/plugins/perl/common/module.h libgaim/plugins/perl/common/typemap |
diffstat | 4 files changed, 65 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/libgaim/plugins/perl/common/Notify.xs Thu Dec 14 04:56:54 2006 +0000 +++ b/libgaim/plugins/perl/common/Notify.xs Thu Dec 14 05:02:08 2006 +0000 @@ -44,6 +44,65 @@ Gaim::NotifyCloseCallback cb gpointer user_data +void * +gaim_notify_userinfo(gc, who, user_info, cb, user_data) + Gaim::Connection gc + const char *who + Gaim::NotifyUserInfo user_info + Gaim::NotifyCloseCallback cb + gpointer user_data + +Gaim::NotifyUserInfo +gaim_notify_user_info_new() + +void +gaim_notify_user_info_destroy(user_info) + Gaim::NotifyUserInfo user_info + +void +gaim_notify_user_info_get_entries(user_info) + Gaim::NotifyUserInfo user_info +PREINIT: + const GList *l; +PPCODE: + l = gaim_notify_user_info_get_entries(user_info); + for (; l != NULL; l = l->next) { + XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::NotifyUserInfoEntry"))); + } + +gchar_own * +gaim_notify_user_info_get_text_with_newline(user_info, newline) + Gaim::NotifyUserInfo user_info + const char *newline + +void gaim_notify_user_info_add_pair(user_info, label, value) + Gaim::NotifyUserInfo user_info + const char *label + const char *value + +void gaim_notify_user_info_prepend_pair(user_info, label, value) + Gaim::NotifyUserInfo user_info + const char *label + const char *value + +void gaim_notify_user_info_add_section_break(user_info) + Gaim::NotifyUserInfo user_info + +void gaim_notify_user_info_add_section_header(user_info, label) + Gaim::NotifyUserInfo user_info + const char *label + +void gaim_notify_user_info_remove_last_item(user_info) + Gaim::NotifyUserInfo user_info + +gchar * +gaim_notify_user_info_entry_get_label(user_info_entry) + Gaim::NotifyUserInfoEntry user_info_entry + +gchar * +gaim_notify_user_info_entry_get_value(user_info_entry) + Gaim::NotifyUserInfoEntry user_info_entry + Gaim::NotifyUiOps gaim_notify_get_ui_ops() @@ -77,10 +136,3 @@ void * handle const char *uri -void * -gaim_notify_userinfo(gc, who, text, cb, user_data) - Gaim::Connection gc - const char *who - const char *text - Gaim::NotifyCloseCallback cb - gpointer user_data
--- a/libgaim/plugins/perl/common/Util.xs Thu Dec 14 04:56:54 2006 +0000 +++ b/libgaim/plugins/perl/common/Util.xs Thu Dec 14 05:02:08 2006 +0000 @@ -82,10 +82,10 @@ gaim_home_dir() gboolean -gaim_markup_extract_info_field(str, len, dest, start_token, skip, end_token, check_value, no_value_token, display_name, is_link, link_prefix, format_cb) +gaim_markup_extract_info_field(str, len, user_info, start_token, skip, end_token, check_value, no_value_token, display_name, is_link, link_prefix, format_cb) const char *str int len - GString *dest + Gaim::NotifyUserInfo user_info const char *start_token int skip const char *end_token
--- a/libgaim/plugins/perl/common/module.h Thu Dec 14 04:56:54 2006 +0000 +++ b/libgaim/plugins/perl/common/module.h Thu Dec 14 05:02:08 2006 +0000 @@ -181,6 +181,8 @@ typedef GaimNotifySearchButton * Gaim__NotifySearchButton; typedef GaimNotifyType Gaim__NotifyType; typedef GaimNotifyUiOps * Gaim__NotifyUiOps; +typedef GaimNotifyUserInfo * Gaim__NotifyUserInfo; +typedef GaimNotifyUserInfoEntry * Gaim__NotifyUserInfoEntry; /* plugin.h */ typedef GaimPlugin * Gaim__Plugin;
--- a/libgaim/plugins/perl/common/typemap Thu Dec 14 04:56:54 2006 +0000 +++ b/libgaim/plugins/perl/common/typemap Thu Dec 14 05:02:08 2006 +0000 @@ -99,6 +99,8 @@ Gaim::NotifySearchButton T_GaimObj Gaim::NotifyType T_IV Gaim::NotifyUiOps T_GaimObj +Gaim::NotifyUserInfo T_GaimObj +Gaim::NotifyUserInfoEntry T_GaimObj Gaim::Plugin T_GaimObj Gaim::PluginType T_IV