Mercurial > pidgin
changeset 6584:6deef41364bd
[gaim-migrate @ 7106]
Added the perl Gaim::Connection stuff.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Sat, 23 Aug 2003 21:57:12 +0000 |
| parents | e07c66073b6d |
| children | f30579b25253 |
| files | plugins/perl/common/Connection.xs plugins/perl/common/Gaim.xs |
| diffstat | 2 files changed, 43 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plugins/perl/common/Connection.xs Sat Aug 23 21:57:12 2003 +0000 @@ -0,0 +1,42 @@ +#include "module.h" + +MODULE = Gaim::Connection PACKAGE = Gaim::Connection PREFIX = gaim_connection_ +PROTOTYPES: ENABLE + +void +gaim_connection_set_display_name(gc, name) + Gaim::Connection gc + const char *name + +Gaim::Account +gaim_connection_get_account(gc) + Gaim::Connection gc + +const char * +gaim_connection_get_display_name(gc) + Gaim::Connection gc + + +MODULE = Gaim::Connections PACKAGE = Gaim::Connections PREFIX = gaim_connections_ +PROTOTYPES: ENABLE + +void +gaim_connections_disconnect_all() + +void * +handle() +CODE: + RETVAL = gaim_connections_get_handle(); +OUTPUT: + RETVAL + + +MODULE = Gaim::Connection PACKAGE = Gaim + +void +connections() +PREINIT: + GList *l; +PPCODE: + for (l = gaim_connections_get_all(); l != NULL; l = l->next) + XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Connection")));