changeset 11125:072d80ba330d

[gaim-migrate @ 13181] One missed file. committer: Tailor Script <[e-mail]>

--- a/plugins/perl/common/BuddyList_Group.xs	Tue Jul 19 00:04:44 2005 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,71 +0,0 @@
-#include "module.h"
-
-MODULE = Gaim::BuddyList::Group  PACKAGE = Gaim::BuddyList::Group  PREFIX = gaim_group_
-PROTOTYPES: ENABLE
-
-Gaim::BuddyList::Group
-new(name)
-	const char *name
-CODE:
-	RETVAL = gaim_group_new(name);
-OUTPUT:
-	RETVAL
-
-void
-rename(group, new_name)
-	Gaim::BuddyList::Group group
-	const char *new_name
-CODE:
-	gaim_blist_rename_group(group, new_name);
-
-void
-get_accounts(group)
-	Gaim::BuddyList::Group group
-PREINIT:
-	GSList *l;
-PPCODE:
-	for (l = gaim_group_get_accounts(group); l != NULL; l = l->next)
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account")));
-
-int
-get_size(group, offline)
-	Gaim::BuddyList::Group group
-	gboolean offline
-CODE:
-	RETVAL = gaim_blist_get_group_size(group, offline);
-OUTPUT:
-	RETVAL
-
-const char *
-get_name(group)
-	Gaim::BuddyList::Group group
-CODE:
-	RETVAL = group->name;
-OUTPUT:
-	RETVAL
-
-int
-get_online_count(group)
-	Gaim::BuddyList::Group group
-CODE:
-	RETVAL = gaim_blist_get_group_online_count(group);
-OUTPUT:
-	RETVAL
-
-void
-buddies(group)
-	Gaim::BuddyList::Group group
-PREINIT:
-	GaimBlistNode *node;
-	GaimBlistNode *contact;
-	GaimBlistNode *_group = (GaimBlistNode *)group;
-PPCODE:
-	for (contact = _group->child; contact != NULL; contact = contact->next)
-	{
-		for (node = contact->child; node != NULL; node = node->next)
-		{
-			XPUSHs(sv_2mortal(gaim_perl_bless_object(node,
-				"Gaim::BuddyList::Buddy")));
-		}
-	}
-