Mercurial > pidgin3 / file revision

• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

plugins/perl/common/Conversation_IM.xs@12f08de92674

plugins/perl/common/Conversation_IM.xs

Sat, 27 Sep 2003 19:17:21 +0000

author

Mark Doliner <markdoliner@pidgin.im>

date

Sat, 27 Sep 2003 19:17:21 +0000

changeset 6982

12f08de92674

parent 6591

cc1ab32edcdc

child 7120

83dba78f8518

permissions

-rw-r--r--

[gaim-migrate @ 7538]
This is Mr. Holland's Opus. And by Mr. Holland I mean Robot101. He
rewrote the coreish IM image support so that the binary data gets
ripped out in the prpl and put in an imgstore instead of just being
passed in the same huge as char string as the actual message. This
is good because it's prpl agnostic, or something. It also means
we don't have a silly length of "-1" with pretty much every send or
receive IM function.

It should be crash free, bug free, and memleak free, but additional
testing is always a good thing.

If you like good stuff then you'll love this patch. But don't take
my word for it--ba dun dunt!

#include "module.h"

MODULE = Gaim::Conversation::IM  PACKAGE = Gaim::Conversation::IM  PREFIX = gaim_im_
PROTOTYPES: ENABLE

Gaim::Conversation::IM
new(account, name)
	Gaim::Account account
	const char *name
CODE:
	RETVAL = GAIM_IM(gaim_conversation_new(GAIM_CONV_IM, account, name));
OUTPUT:
	RETVAL

void
DESTROY(im)
	Gaim::Conversation::IM im
CODE:
	gaim_conversation_destroy(gaim_im_get_conversation(im));


Gaim::Conversation
gaim_im_get_conversation(im)
	Gaim::Conversation::IM im

void
gaim_im_write(im, who, message, flags)
	Gaim::Conversation::IM im
	const char *who
	const char *message
	int flags
CODE:
	gaim_im_write(im, who, message, flags, time(NULL));

void
gaim_im_send(im, message)
	Gaim::Conversation::IM im
	const char *message


MODULE = Gaim::Conversation::IM  PACKAGE = Gaim  PREFIX = gaim_
PROTOTYPES: ENABLE

void
ims()
PREINIT:
	GList *l;
PPCODE:
	for (l = gaim_get_ims(); l != NULL; l = l->next)
	{
		XPUSHs(sv_2mortal(gaim_perl_bless_object(GAIM_IM(l->data),
			"Gaim::Conversation")));
	}