From: <dat...@us...> - 2006-12-14 05:02:20
|
Revision: 17994 http://svn.sourceforge.net/gaim/?rev=17994&view=rev Author: datallah Date: 2006-12-13 21:02:08 -0800 (Wed, 13 Dec 2006) Log Message: ----------- fix the perl bindings for the notify_userinfo changes. Modified Paths: -------------- trunk/libgaim/plugins/perl/common/Notify.xs trunk/libgaim/plugins/perl/common/Util.xs trunk/libgaim/plugins/perl/common/module.h trunk/libgaim/plugins/perl/common/typemap Modified: trunk/libgaim/plugins/perl/common/Notify.xs =================================================================== --- trunk/libgaim/plugins/perl/common/Notify.xs 2006-12-14 04:56:54 UTC (rev 17993) +++ trunk/libgaim/plugins/perl/common/Notify.xs 2006-12-14 05:02:08 UTC (rev 17994) @@ -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 Modified: trunk/libgaim/plugins/perl/common/Util.xs =================================================================== --- trunk/libgaim/plugins/perl/common/Util.xs 2006-12-14 04:56:54 UTC (rev 17993) +++ trunk/libgaim/plugins/perl/common/Util.xs 2006-12-14 05:02:08 UTC (rev 17994) @@ -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 Modified: trunk/libgaim/plugins/perl/common/module.h =================================================================== --- trunk/libgaim/plugins/perl/common/module.h 2006-12-14 04:56:54 UTC (rev 17993) +++ trunk/libgaim/plugins/perl/common/module.h 2006-12-14 05:02:08 UTC (rev 17994) @@ -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; Modified: trunk/libgaim/plugins/perl/common/typemap =================================================================== --- trunk/libgaim/plugins/perl/common/typemap 2006-12-14 04:56:54 UTC (rev 17993) +++ trunk/libgaim/plugins/perl/common/typemap 2006-12-14 05:02:08 UTC (rev 17994) @@ -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 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |