plugins/perl/common/Conversation_IM.xs@12817c60464d (annotated)
plugins/perl/common/Conversation_IM.xs
Sun, 24 Aug 2003 20:28:34 +0000
- author
- Christian Hammond <chipx86@chipx86.com>
- date
- Sun, 24 Aug 2003 20:28:34 +0000
- changeset 6614
- 12817c60464d
- parent 6591
- cc1ab32edcdc
- child 6982
- 12f08de92674
- permissions
- -rw-r--r--
[gaim-migrate @ 7138]
Not sure why this compiled, but it's fixed now.
| 6591 | 1 | #include "module.h" |
| 2 | ||
| 3 | MODULE = Gaim::Conversation::IM PACKAGE = Gaim::Conversation::IM PREFIX = gaim_im_ | |
| 4 | PROTOTYPES: ENABLE | |
| 5 | ||
| 6 | Gaim::Conversation::IM | |
| 7 | new(account, name) | |
| 8 | Gaim::Account account | |
| 9 | const char *name | |
| 10 | CODE: | |
| 11 | RETVAL = GAIM_IM(gaim_conversation_new(GAIM_CONV_IM, account, name)); | |
| 12 | OUTPUT: | |
| 13 | RETVAL | |
| 14 | ||
| 15 | void | |
| 16 | DESTROY(im) | |
| 17 | Gaim::Conversation::IM im | |
| 18 | CODE: | |
| 19 | gaim_conversation_destroy(gaim_im_get_conversation(im)); | |
| 20 | ||
| 21 | ||
| 22 | Gaim::Conversation | |
| 23 | gaim_im_get_conversation(im) | |
| 24 | Gaim::Conversation::IM im | |
| 25 | ||
| 26 | void | |
| 27 | gaim_im_write(im, who, message, flags) | |
| 28 | Gaim::Conversation::IM im | |
| 29 | const char *who | |
| 30 | const char *message | |
| 31 | int flags | |
| 32 | CODE: | |
| 33 | gaim_im_write(im, who, message, -1, flags, time(NULL)); | |
| 34 | ||
| 35 | void | |
| 36 | gaim_im_send(im, message) | |
| 37 | Gaim::Conversation::IM im | |
| 38 | const char *message | |
| 39 | ||
| 40 | ||
| 41 | MODULE = Gaim::Conversation::IM PACKAGE = Gaim PREFIX = gaim_ | |
| 42 | PROTOTYPES: ENABLE | |
| 43 | ||
| 44 | void | |
| 45 | ims() | |
| 46 | PREINIT: | |
| 47 | GList *l; | |
| 48 | PPCODE: | |
| 49 | for (l = gaim_get_ims(); l != NULL; l = l->next) | |
| 50 | { | |
| 51 | XPUSHs(sv_2mortal(gaim_perl_bless_object(GAIM_IM(l->data), | |
| 52 | "Gaim::Conversation"))); | |
| 53 | } |
