plugins/perl/common/Conversation_Chat.xs@cc1ab32edcdc (annotated)
plugins/perl/common/Conversation_Chat.xs
Sun, 24 Aug 2003 02:43:27 +0000
- author
- Christian Hammond <chipx86@chipx86.com>
- date
- Sun, 24 Aug 2003 02:43:27 +0000
- changeset 6591
- cc1ab32edcdc
- child 6614
- 12817c60464d
- permissions
- -rw-r--r--
[gaim-migrate @ 7115]
Added the perl API for the conversation framework. Untested.. Should work.
We'll see.
| 6591 | 1 | #include "module.h" |
| 2 | ||
| 3 | MODULE = Gaim::Conversation::Chat PACKAGE = Gaim::Conversation::Chat PREFIX = gaim_chat_ | |
| 4 | PROTOTYPES: ENABLE | |
| 5 | ||
| 6 | Gaim::Conversation::Chat | |
| 7 | new(account, name) | |
| 8 | Gaim::Account account | |
| 9 | const char *name | |
| 10 | CODE: | |
| 11 | RETVAL = GAIM_CHAT(gaim_conversation_new(GAIM_CONV_CHAT, account, name)); | |
| 12 | OUTPUT: | |
| 13 | RETVAL | |
| 14 | ||
| 15 | void | |
| 16 | DESTROY(chat) | |
| 17 | Gaim::Conversation::Chat chat | |
| 18 | CODE: | |
| 19 | gaim_conversation_destroy(gaim_chat_get_conversation(chat)); | |
| 20 | ||
| 21 | ||
| 22 | Gaim::Conversation | |
| 23 | gaim_chat_get_conversation(chat) | |
| 24 | Gaim::Conversation::Chat chat | |
| 25 | ||
| 26 | void | |
| 27 | users(chat) | |
| 28 | Gaim::Conversation::Chat chat | |
| 29 | PREINIT: | |
| 30 | GList *l; | |
| 31 | PPCODE: | |
| 32 | for (l = gaim_chat_get_users(chat); l != NULL; l = l->next) | |
| 33 | { | |
| 34 | XPUSHs(sv_2mortal(newSVpv(l->data, 0))); | |
| 35 | } | |
| 36 | ||
| 37 | void | |
| 38 | gaim_chat_ignore(chat, name) | |
| 39 | Gaim::Conversation::Chat chat | |
| 40 | const char *name | |
| 41 | ||
| 42 | void | |
| 43 | gaim_chat_unignore(chat, name) | |
| 44 | Gaim::Conversation::Chat chat | |
| 45 | const char *name | |
| 46 | ||
| 47 | void | |
| 48 | ignored_users(chat) | |
| 49 | Gaim::Conversation::Chat chat | |
| 50 | PREINIT: | |
| 51 | GList *l; | |
| 52 | PPCODE: | |
| 53 | for (l = gaim_chat_get_ignored(chat); l != NULL; l = l->next) | |
| 54 | { | |
| 55 | XPUSHs(sv_2mortal(newSVpv(l->data, 0))); | |
| 56 | } | |
| 57 | ||
| 58 | gboolean | |
| 59 | gaim_chat_is_user_ignored(chat, user) | |
| 60 | Gaim::Conversation::Chat chat | |
| 61 | const char *user | |
| 62 | ||
| 63 | void | |
| 64 | gaim_chat_set_topic(chat, who, topic) | |
| 65 | Gaim::Conversation::Chat chat | |
| 66 | const char *who | |
| 67 | const char *topic | |
| 68 | ||
| 69 | const char * | |
| 70 | gaim_chat_get_topic(chat) | |
| 71 | Gaim::Conversation::Chat chat | |
| 72 | ||
| 73 | int | |
| 74 | gaim_chat_get_id(chat) | |
| 75 | Gaim::Conversation::Chat chat | |
| 76 | ||
| 77 | void | |
| 78 | write(chat, who, message, flags) | |
| 79 | Gaim::Conversation::Chat chat | |
| 80 | const char *who | |
| 81 | const char *message | |
| 82 | int flags | |
| 83 | ||
| 84 | void | |
| 85 | gaim_chat_send(chat, message) | |
| 86 | Gaim::Conversation::Chat chat | |
| 87 | const char *message | |
| 88 | ||
| 89 | ||
| 90 | MODULE = Gaim::Conversation PACKAGE = Gaim PREFIX = gaim_ | |
| 91 | PROTOTYPES: ENABLE | |
| 92 | ||
| 93 | void | |
| 94 | chats() | |
| 95 | PREINIT: | |
| 96 | GList *l; | |
| 97 | PPCODE: | |
| 98 | for (l = gaim_get_chats(); l != NULL; l = l->next) | |
| 99 | { | |
| 100 | XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, | |
| 101 | "Gaim::Conversation"))); | |
| 102 | } |
