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