Mercurial > pidgin
changeset 12792:33cb3206af90
[gaim-migrate @ 15139]
More whitespace, and return type stuff. I'm beginning to get to the end of the
easy ones now.
committer: Tailor Script <tailor@pidgin.im>
| author | Etan Reisner <pidgin@unreliablesource.net> |
|---|---|
| date | Mon, 09 Jan 2006 08:49:05 +0000 |
| parents | 6312f6e69eea |
| children | 339c7dda758d |
| files | plugins/perl/common/Prpl.xs |
| diffstat | 1 files changed, 11 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/plugins/perl/common/Prpl.xs Mon Jan 09 08:42:13 2006 +0000 +++ b/plugins/perl/common/Prpl.xs Mon Jan 09 08:49:05 2006 +0000 @@ -7,12 +7,10 @@ gaim_find_prpl(id) const char *id - MODULE = Gaim::Prpl PACKAGE = Gaim::Prpl PREFIX = gaim_prpl_ PROTOTYPES: ENABLE - -void +void gaim_prpl_change_account_status(account, old_status, new_status) Gaim::Account account Gaim::Status old_status @@ -23,35 +21,34 @@ Gaim::Account account Gaim::Presence presence PREINIT: - GList *l; + GList *l; PPCODE: - for (l = gaim_prpl_get_statuses(account,presence); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); - } + for (l = gaim_prpl_get_statuses(account,presence); l != NULL; l = l->next) { + /* XXX Someone please test and make sure this is the right + * type for these things. */ + XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Status"))); + } - - -void +void gaim_prpl_got_account_idle(account, idle, idle_time) Gaim::Account account gboolean idle time_t idle_time -void +void gaim_prpl_got_account_login_time(account, login_time) Gaim::Account account time_t login_time -void +void gaim_prpl_got_user_idle(account, name, idle, idle_time) Gaim::Account account const char *name gboolean idle time_t idle_time -void +void gaim_prpl_got_user_login_time(account, name, login_time) Gaim::Account account const char *name time_t login_time -