# HG changeset patch # User Elliott Sales de Andrade # Date 1314986724 0 # Node ID c200251415d3865b103a8065ad908135fe6aecbe # Parent 09449ccf8adaa624df910585c8dd90d81952f490# Parent 94cb1d9e752b2ce979f0641ac44bbd862b81b8e2 merge of '20112abca39ed1b5d1b36c259a68f54bcc9af09b' and 'd5ed69a6f4347d4c5debd460aea9b4fb6a9161e8' diff -r 94cb1d9e752b -r c200251415d3 libpurple/plugins/perl/common/Status.xs --- a/libpurple/plugins/perl/common/Status.xs Fri Sep 02 06:32:19 2011 +0000 +++ b/libpurple/plugins/perl/common/Status.xs Fri Sep 02 18:05:24 2011 +0000 @@ -74,28 +74,6 @@ newCONSTSUB(primitive_stash, (char *)civ->name, newSViv(civ->iv)); } -void -purple_presence_add_list(presence, source_list) - Purple::Presence presence - SV *source_list -PREINIT: - GList *t_GL; - int i, t_len; -PPCODE: - t_GL = NULL; - t_len = av_len((AV *)SvRV(source_list)); - - for (i = 0; i <= t_len; i++) { - t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(source_list), i, 0))); - } - purple_presence_add_list(presence, t_GL); - g_list_free(t_GL); - -void -purple_presence_add_status(presence, status) - Purple::Presence presence - Purple::Status status - gint purple_presence_compare(presence1, presence2) Purple::Presence presence1 @@ -329,29 +307,10 @@ Purple::Status status gboolean active -void -purple_status_set_attr_boolean(status, id, value) - Purple::Status status - const char *id - gboolean value - -void -purple_status_set_attr_string(status, id, value) - Purple::Status status - const char *id - const char *value - MODULE = Purple::Status PACKAGE = Purple::StatusType PREFIX = purple_status_type_ PROTOTYPES: ENABLE void -purple_status_type_add_attr(status_type, id, name, value) - Purple::StatusType status_type - const char *id - const char *name - Purple::Value value - -void purple_status_type_destroy(status_type) Purple::StatusType status_type