pidgin: bb163d6f: perl: Wrap purple_chat_get_components

[darkrain42 at pidgin.im]

----------------------------------------------------------------------
Revision: bb163d6f4337c871d963d8a3e0ee05008caec839
Parent:   5f79bbf59f5a635ca42876049d3ac856b761d0ad
Author:   darkrain42 at pidgin.im
Date:     09/05/10 23:46:24
Branch:   im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/bb163d6f4337c871d963d8a3e0ee05008caec839

Changelog: 

perl: Wrap purple_chat_get_components

Changes against parent 5f79bbf59f5a635ca42876049d3ac856b761d0ad

  patched  ChangeLog.API
  patched  libpurple/plugins/perl/common/BuddyList.xs

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/BuddyList.xs	9ec386941d8abed85e1e1df51322fe269de7ed14
+++ libpurple/plugins/perl/common/BuddyList.xs	47b35c6d8dfe803f3a99bd048836d36bf1a7e7f7
@@ -2,6 +2,13 @@
 #include "module.h"
 #include "../perl-handlers.h"
 
+static void
+chat_components_foreach(gpointer key, gpointer value, gpointer user_data)
+{
+	HV *hv = user_data;
+	hv_store(hv, key, strlen(key), newSVpv(value, 0), 0);
+}
+
 MODULE = Purple::BuddyList  PACKAGE = Purple  PREFIX = purple_
 PROTOTYPES: ENABLE
 
@@ -331,6 +338,19 @@ purple_chat_get_name(chat)
 purple_chat_get_name(chat)
 	Purple::BuddyList::Chat chat
 
+HV *
+purple_chat_get_components(chat)
+	Purple::BuddyList::Chat chat
+INIT:
+	HV * t_HV;
+	GHashTable * t_GHash;
+CODE:
+	t_GHash = purple_chat_get_components(chat);
+	RETVAL = t_HV = newHV();
+	g_hash_table_foreach(t_GHash, chat_components_foreach, t_HV);
+OUTPUT:
+	RETVAL
+
 Purple::BuddyList::Chat
 purple_chat_new(account, alias, components)
 	Purple::Account account
============================================================
--- ChangeLog.API	88353d40cd6e2ce31ba59fc1ebb2b5c1d4918cad
+++ ChangeLog.API	4935f4703947445673706e08022b90f817c15e67
@@ -2,6 +2,9 @@ version 2.7.4 (MM/DD/YYYY):
 
 version 2.7.4 (MM/DD/YYYY):
 	Perl:
+		Added:
+		* Purple::BuddyList::Chat::get_components
+
 		Changed:
 		* Purple::BuddyList::Chat::new now works properly.  Thanks
 		  to Rafael in devel at conference.pidgin.im for reporting and