Mercurial > pidgin
comparison plugins/perl/common/BuddyList_Group.xs @ 6542:fe0294504602
[gaim-migrate @ 7064]
Learn as you go, I guess... Split off the Chat, Group, and Buddy classes
into their own files and bootstrapped them so they'll actually work (I hope
at least).
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Thu, 21 Aug 2003 03:23:18 +0000 |
parents | |
children | 1d994e9b81f9 |
comparison
equal
deleted
inserted
replaced
6541:f31eb1fab20e | 6542:fe0294504602 |
---|---|
1 #include "module.h" | |
2 | |
3 MODULE = Gaim::BuddyList::Group PACKAGE = Gaim::BuddyList::Group PREFIX = gaim_group_ | |
4 PROTOTYPES: ENABLE | |
5 | |
6 Gaim::BuddyList::Group | |
7 new(name) | |
8 const char *name | |
9 CODE: | |
10 RETVAL = gaim_group_new(name); | |
11 OUTPUT: | |
12 RETVAL | |
13 | |
14 void | |
15 rename(group, new_name) | |
16 Gaim::BuddyList::Group group | |
17 const char *new_name | |
18 CODE: | |
19 gaim_blist_rename_group(group, new_name); | |
20 | |
21 void | |
22 get_accounts(group) | |
23 Gaim::BuddyList::Group group | |
24 PREINIT: | |
25 GSList *l; | |
26 PPCODE: | |
27 for (l = gaim_group_get_accounts(group); l != NULL; l = l->next) | |
28 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account"))); | |
29 | |
30 int | |
31 get_size(group, offline) | |
32 Gaim::BuddyList::Group group | |
33 gboolean offline | |
34 CODE: | |
35 RETVAL = gaim_blist_get_group_size(group, offline); | |
36 OUTPUT: | |
37 RETVAL | |
38 | |
39 const char * | |
40 get_name(group) | |
41 Gaim::BuddyList::Group group | |
42 CODE: | |
43 RETVAL = group->name; | |
44 OUTPUT: | |
45 RETVAL | |
46 | |
47 int | |
48 get_online_count(group) | |
49 Gaim::BuddyList::Group group | |
50 CODE: | |
51 RETVAL = gaim_blist_get_group_online_count(group); | |
52 OUTPUT: | |
53 RETVAL | |
54 | |
55 void | |
56 gaim_group_set_setting(group, key, value) | |
57 Gaim::BuddyList::Group group | |
58 const char *key | |
59 const char *value | |
60 | |
61 const char * | |
62 gaim_group_get_setting(group, key) | |
63 Gaim::BuddyList::Group group | |
64 const char *key | |
65 | |
66 void | |
67 buddies(group) | |
68 Gaim::BuddyList::Group group | |
69 PREINIT: | |
70 GaimBlistNode *node; | |
71 GaimBlistNode *_group = (GaimBlistNode *)group; | |
72 PPCODE: | |
73 for (node = _group->child; node != NULL; node = node->next) | |
74 { | |
75 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, | |
76 "Gaim::BuddyList::Buddy"))); | |
77 } |