Mercurial > pidgin3 / file revision

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

plugins/perl/common/Gaim.xs@5386692555c9

plugins/perl/common/Gaim.xs

Wed, 20 Aug 2003 10:25:58 +0000

author

Christian Hammond <chipx86@chipx86.com>

date

Wed, 20 Aug 2003 10:25:58 +0000

changeset 6520

5386692555c9

parent 6508

57d1df1ca3a0

child 6528

c85b45edd838

permissions

-rw-r--r--

[gaim-migrate @ 7037]
Added timeout handler support to perl. It may not work. Probably should,
but who knows.

#include "module.h"
#include "../perl-handlers.h"

MODULE = Gaim  PACKAGE = Gaim
PROTOTYPES: ENABLE

void
timeout_add(plugin, seconds, func, arg)
	Gaim::Plugin plugin
	int seconds
	const char *func
	void *arg
CODE:
	gaim_perl_timeout_add(plugin, 1000 * seconds, func, arg);

void
debug(category, string)
	const char *category
	const char *string
CODE:
	gaim_debug(GAIM_DEBUG_INFO, category, string);

void
deinit()
PREINIT:
	GList *l;
CODE:
	gaim_perl_timeout_clear();


BOOT:
	GAIM_PERL_BOOT(Account);