Mercurial > pidgin.yaz
changeset 581:c72e5ee07d0a
[gaim-migrate @ 591]
more stuff, but i haven't tested any of it yet :-]
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Wed, 02 Aug 2000 05:15:57 +0000 |
| parents | 9a8b067eb368 |
| children | 7409d7ae6621 |
| files | src/perl.c |
| diffstat | 1 files changed, 39 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/perl.c Wed Aug 02 05:01:27 2000 +0000 +++ b/src/perl.c Wed Aug 02 05:15:57 2000 +0000 @@ -130,7 +130,7 @@ return SvNV (return_val); } -void perl_init(int autoload) +void perl_init() { char *perl_args[] = {"", "-e", "0"}; char load_file[] = @@ -170,11 +170,6 @@ newXS ("AIM::add_message_handler", XS_AIM_add_message_handler, "AIM"); newXS ("AIM::add_command_handler", XS_AIM_add_command_handler, "AIM"); newXS ("AIM::add_timeout_handler", XS_AIM_add_timeout_handler, "AIM"); - - /* FIXME */ - if (autoload) { - /* for each *.pl in ~/.gaim/scripts (whatever), autoload file */ - } } void perl_end() @@ -259,12 +254,48 @@ XS (XS_AIM_buddy_list) { - /* FIXME */ + struct buddy *buddy; + struct group *g; + GList *list = groups; + GList *mem; + int i = 0; + dXSARGS; + items = 0; + + while (list) { + g = (struct group *)list->data; + mem = g->members; + while (mem) { + buddy = (struct buddy *)mem->data; + XST_mPV(i++, buddy->name); + mem = mem->next; + } + list = list->next; + } + XSRETURN(i); } XS (XS_AIM_online_list) { - /* FIXME */ + struct buddy *b; + struct group *g; + GList *list = groups; + GList *mem; + int i = 0; + dXSARGS; + items = 0; + + while (list) { + g = (struct group *)list->data; + mem = g->members; + while (mem) { + b = (struct buddy *)mem->data; + if (b->present) XST_mPV(i++, b->name); + mem = mem->next; + } + list = list->next; + } + XSRETURN(i); } XS (XS_AIM_deny_list)