Mercurial > pidgin
view libgaim/plugins/perl/common/Connection.xs @ 14717:b1fcd2fc903a
[gaim-migrate @ 17471]
Martijn van Beers provided some patches to rework the perl object
casting/blessing for signal instances in order to let the newly added jabber-*
signals work. This is those patches.
This is also a small whitespace change, a removal of the gaim debug message
about "Found plugin info" it was just pissing me off, and a renamespacing of
gaim_blist_node_get_extended_menu into Gaim::Blist::Node where it makes
slightly more sense.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Thu, 12 Oct 2006 20:38:47 +0000 |
parents | 60b1bc8dbf37 |
children |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Connection PACKAGE = Gaim::Connection PREFIX = gaim_connection_ PROTOTYPES: ENABLE Gaim::Account gaim_connection_get_account(gc) Gaim::Connection gc const char * gaim_connection_get_password(gc) Gaim::Connection gc const char * gaim_connection_get_display_name(gc) Gaim::Connection gc void gaim_connection_notice(gc, text) Gaim::Connection gc const char *text void gaim_connection_error(gc, reason) Gaim::Connection gc const char *reason void gaim_connection_destroy(gc) Gaim::Connection gc void gaim_connection_set_state(gc, state) Gaim::Connection gc Gaim::ConnectionState state void gaim_connection_set_account(gc, account) Gaim::Connection gc Gaim::Account account void gaim_connection_set_display_name(gc, name) Gaim::Connection gc const char *name Gaim::ConnectionState gaim_connection_get_state(gc) Gaim::Connection gc MODULE = Gaim::Connection PACKAGE = Gaim::Connections PREFIX = gaim_connections_ PROTOTYPES: ENABLE void gaim_connections_disconnect_all() void gaim_connections_get_all() 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"))); } void gaim_connections_get_connecting() PREINIT: GList *l; PPCODE: for (l = gaim_connections_get_connecting(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Connection"))); } void gaim_connections_set_ui_ops(ops) Gaim::Connection::UiOps ops Gaim::Connection::UiOps gaim_connections_get_ui_ops() void gaim_connections_init() void gaim_connections_uninit() Gaim::Handle gaim_connections_get_handle()