Mercurial > pidgin
view plugins/perl/common/Conversation_Chat.xs @ 10117:d520ab74fe8f
[gaim-migrate @ 11154]
this handles #debian better, so it should do significantly better for
#gaim than sean's original set of colors did. these are still all from
the gnome default palette.
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Mon, 18 Oct 2004 21:04:29 +0000 |
parents | b14a7bc189b8 |
children |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Conversation::Chat PACKAGE = Gaim::Conversation::Chat PREFIX = gaim_conv_chat_ PROTOTYPES: ENABLE Gaim::Conversation::Chat new(account, name) Gaim::Account account const char *name CODE: RETVAL = GAIM_CONV_CHAT(gaim_conversation_new(GAIM_CONV_CHAT, account, name)); OUTPUT: RETVAL void DESTROY(chat) Gaim::Conversation::Chat chat CODE: gaim_conversation_destroy(gaim_conv_chat_get_conversation(chat)); Gaim::Conversation gaim_conv_chat_get_conversation(chat) Gaim::Conversation::Chat chat void users(chat) Gaim::Conversation::Chat chat PREINIT: GList *l; PPCODE: for (l = gaim_conv_chat_get_users(chat); l != NULL; l = l->next) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } void gaim_conv_chat_ignore(chat, name) Gaim::Conversation::Chat chat const char *name void gaim_conv_chat_unignore(chat, name) Gaim::Conversation::Chat chat const char *name void ignored_users(chat) Gaim::Conversation::Chat chat PREINIT: GList *l; PPCODE: for (l = gaim_conv_chat_get_ignored(chat); l != NULL; l = l->next) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } gboolean gaim_conv_chat_is_user_ignored(chat, user) Gaim::Conversation::Chat chat const char *user void gaim_conv_chat_set_topic(chat, who, topic) Gaim::Conversation::Chat chat const char *who const char *topic const char * gaim_conv_chat_get_topic(chat) Gaim::Conversation::Chat chat int gaim_conv_chat_get_id(chat) Gaim::Conversation::Chat chat void write(chat, who, message, flags) Gaim::Conversation::Chat chat const char *who const char *message int flags CODE: gaim_conv_chat_write(chat, who, message, flags, time(NULL)); void gaim_conv_chat_send(chat, message) Gaim::Conversation::Chat chat const char *message MODULE = Gaim::Conversation::Chat PACKAGE = Gaim PREFIX = gaim_ PROTOTYPES: ENABLE void chats() PREINIT: GList *l; PPCODE: for (l = gaim_get_chats(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Conversation"))); }