[prev in list] [next in list] [prev in thread] [next in thread] 

List:       pidgin-devel
Subject:    Re: Perl protocol plugins?
From:       "tinytown.au () gmail ! com" <tinytown ! au () gmail ! com>
Date:       2008-08-29 3:59:43
Message-ID: da49d481-8ad5-4861-993f-98331b1ee285 () a8g2000prf ! googlegroups ! com
[Download RAW message or body]



> > Hi,
> > I'm wondering if its possible to create a libpurple
> > 'PURPLE_PLUGIN_PROTOCOL' with perl?
>
> It is not currently, but it should be possible to update the perl
> loader to support this.

I was looking at the file /home/tdelov/develop/pidgin-2.4.3/libpurple/
plugins/perl/common/Plugin.xs.
The top  20 lines include this the snippet below  pasted below.
Is there a way to call this up with something like
"Purple::Plugin::Type("PROTOCOL" )  ;"?


<snip>
BOOT:
{
	HV *stash = gv_stashpv("Purple::Plugin::Type", 1);

	static const constiv *civ, const_iv[] = {
#define const_iv(name) {#name, (IV)PURPLE_PLUGIN_##name}
		const_iv(UNKNOWN),
		const_iv(STANDARD),
		const_iv(LOADER),
		const_iv(PROTOCOL),
	};

	for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- >
const_iv; )
		newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv));
}
</snip>

_______________________________________________
Devel mailing list
Devel@pidgin.im
http://pidgin.im/cgi-bin/mailman/listinfo/devel
[prev in list] [next in list] [prev in thread] [next in thread]