Mercurial > pidgin
annotate plugins/perl/common/BuddyList.xs @ 10632:cbd13a12d9be
[gaim-migrate @ 12112]
This doesn't compile. That was silly of me.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Wed, 23 Feb 2005 04:50:03 +0000 |
parents | 18223e71ced7 |
children | 134d0001983d |
rev | line source |
---|---|
6531 | 1 #include "module.h" |
2 | |
3 MODULE = Gaim::BuddyList PACKAGE = Gaim::BuddyList PREFIX = gaim_blist_ | |
4 PROTOTYPES: ENABLE | |
5 | |
6 void | |
7 gaim_blist_set_visible(show) | |
8 gboolean show | |
9 | |
10 void | |
10631 | 11 add_buddy(account, buddy, group) |
12 Gaim::Account account | |
6531 | 13 Gaim::BuddyList::Buddy buddy |
14 Gaim::BuddyList::Group group | |
15 CODE: | |
6699
12169973c663
[gaim-migrate @ 7225]
Christian Hammond <chipx86@chipx86.com>
parents:
6545
diff
changeset
|
16 gaim_blist_add_buddy(buddy, NULL, group, NULL); |
10631 | 17 serv_add_buddy(gaim_account_get_connection(account), buddy); |
6531 | 18 |
19 void | |
20 add_group(group) | |
21 Gaim::BuddyList::Group group | |
22 CODE: | |
23 gaim_blist_add_group(group, NULL); | |
24 | |
25 void | |
26 add_chat(chat, group) | |
27 Gaim::BuddyList::Chat chat | |
28 Gaim::BuddyList::Group group | |
29 CODE: | |
30 gaim_blist_add_chat(chat, group, NULL); | |
31 | |
32 void | |
33 gaim_blist_remove_buddy(buddy) | |
34 Gaim::BuddyList::Buddy buddy | |
35 | |
36 void | |
37 gaim_blist_remove_group(group) | |
38 Gaim::BuddyList::Group group | |
39 | |
40 void | |
41 gaim_blist_remove_chat(chat) | |
42 Gaim::BuddyList::Chat chat | |
43 | |
44 Gaim::BuddyList::Buddy | |
45 find_buddy(account, name) | |
46 Gaim::Account account | |
47 const char *name | |
48 CODE: | |
49 RETVAL = gaim_find_buddy(account, name); | |
50 OUTPUT: | |
51 RETVAL | |
52 | |
53 void | |
54 find_buddies(account, name) | |
55 Gaim::Account account | |
56 const char *name | |
57 PREINIT: | |
58 GSList *l; | |
59 PPCODE: | |
60 for (l = gaim_find_buddies(account, name); l != NULL; l = l->next) | |
61 { | |
62 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, | |
63 "Gaim::BuddyList::Buddy"))); | |
64 } | |
65 | |
66 g_slist_free(l); | |
67 | |
68 Gaim::BuddyList::Group | |
69 find_group(name) | |
70 const char *name | |
71 CODE: | |
72 RETVAL = gaim_find_group(name); | |
73 OUTPUT: | |
74 RETVAL | |
75 | |
76 Gaim::BuddyList::Chat | |
77 gaim_blist_find_chat(account, name) | |
78 Gaim::Account account | |
79 const char *name | |
80 | |
6540
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
81 void |
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
82 groups() |
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
83 PREINIT: |
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
84 GaimBlistNode *node; |
6544
a87b9c7d199e
[gaim-migrate @ 7066]
Christian Hammond <chipx86@chipx86.com>
parents:
6543
diff
changeset
|
85 PPCODE: |
6543
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
86 if (gaim_get_blist() != NULL) |
6540
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
87 { |
6543
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
88 for (node = gaim_get_blist()->root; node != NULL; node = node->next) |
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
89 { |
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
90 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, |
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
91 "Gaim::BuddyList::Group"))); |
4d45f1eb0a7b
[gaim-migrate @ 7065]
Christian Hammond <chipx86@chipx86.com>
parents:
6542
diff
changeset
|
92 } |
6540
eae61831e596
[gaim-migrate @ 7062]
Christian Hammond <chipx86@chipx86.com>
parents:
6531
diff
changeset
|
93 } |
6545
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
94 |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
95 void * |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
96 handle() |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
97 CODE: |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
98 RETVAL = gaim_blist_get_handle(); |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
99 OUTPUT: |
5a3fbef32910
[gaim-migrate @ 7067]
Christian Hammond <chipx86@chipx86.com>
parents:
6544
diff
changeset
|
100 RETVAL |