# HG changeset patch # User Daniel Atallah # Date 1176429436 0 # Node ID 6dedf7542b445364585bbca447d2d74705155fed # Parent 783b05e528b068fbe665e00321283a34e9459b0f This should be called Purple.xs instead of Pidgin.xs diff -r 783b05e528b0 -r 6dedf7542b44 libpurple/plugins/perl/Makefile.am --- a/libpurple/plugins/perl/Makefile.am Thu Apr 12 17:03:40 2007 +0000 +++ b/libpurple/plugins/perl/Makefile.am Fri Apr 13 01:57:16 2007 +0000 @@ -68,6 +68,7 @@ common/Proxy.xs \ common/Prpl.xs \ common/Purple.pm \ + common/Purple.xs \ common/Request.xs \ common/Roomlist.xs \ common/SSLConn.xs \ diff -r 783b05e528b0 -r 6dedf7542b44 libpurple/plugins/perl/common/Makefile.mingw --- a/libpurple/plugins/perl/common/Makefile.mingw Thu Apr 12 17:03:40 2007 +0000 +++ b/libpurple/plugins/perl/common/Makefile.mingw Fri Apr 13 01:57:16 2007 +0000 @@ -44,7 +44,7 @@ Core.xs \ Debug.xs \ FT.xs \ - Pidgin.xs \ + Purple.xs \ ImgStore.xs \ Log.xs \ Network.xs \ diff -r 783b05e528b0 -r 6dedf7542b44 libpurple/plugins/perl/common/Pidgin.xs --- a/libpurple/plugins/perl/common/Pidgin.xs Thu Apr 12 17:03:40 2007 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,99 +0,0 @@ -#include "module.h" -#include "../perl-handlers.h" -#include "const-c.inc" - -/* Prototypes for the BOOT section below. */ -PURPLE_PERL_BOOT_PROTO(Account); -PURPLE_PERL_BOOT_PROTO(Account__Option); -PURPLE_PERL_BOOT_PROTO(Buddy__Icon); -PURPLE_PERL_BOOT_PROTO(BuddyList); -PURPLE_PERL_BOOT_PROTO(Cipher); -PURPLE_PERL_BOOT_PROTO(Cmd); -PURPLE_PERL_BOOT_PROTO(Connection); -PURPLE_PERL_BOOT_PROTO(Conversation); -PURPLE_PERL_BOOT_PROTO(Core); -PURPLE_PERL_BOOT_PROTO(Debug); -PURPLE_PERL_BOOT_PROTO(Xfer); -PURPLE_PERL_BOOT_PROTO(ImgStore); -PURPLE_PERL_BOOT_PROTO(Log); -PURPLE_PERL_BOOT_PROTO(Network); -PURPLE_PERL_BOOT_PROTO(Notify); -PURPLE_PERL_BOOT_PROTO(Plugin); -PURPLE_PERL_BOOT_PROTO(PluginPref); -PURPLE_PERL_BOOT_PROTO(Pounce); -PURPLE_PERL_BOOT_PROTO(Prefs); -PURPLE_PERL_BOOT_PROTO(Privacy); -PURPLE_PERL_BOOT_PROTO(Proxy); -PURPLE_PERL_BOOT_PROTO(Prpl); -PURPLE_PERL_BOOT_PROTO(Request); -PURPLE_PERL_BOOT_PROTO(Roomlist); -PURPLE_PERL_BOOT_PROTO(SSL); -PURPLE_PERL_BOOT_PROTO(SavedStatus); -PURPLE_PERL_BOOT_PROTO(Serv); -PURPLE_PERL_BOOT_PROTO(Signal); -PURPLE_PERL_BOOT_PROTO(Sound); -PURPLE_PERL_BOOT_PROTO(Status); -PURPLE_PERL_BOOT_PROTO(Stringref); -PURPLE_PERL_BOOT_PROTO(Util); -PURPLE_PERL_BOOT_PROTO(XMLNode); - -MODULE = Purple PACKAGE = Purple PREFIX = purple_ -PROTOTYPES: ENABLE - -INCLUDE: const-xs.inc - -BOOT: - PURPLE_PERL_BOOT(Account); - PURPLE_PERL_BOOT(Account__Option); - PURPLE_PERL_BOOT(Buddy__Icon); - PURPLE_PERL_BOOT(BuddyList); - PURPLE_PERL_BOOT(Cipher); - PURPLE_PERL_BOOT(Cmd); - PURPLE_PERL_BOOT(Connection); - PURPLE_PERL_BOOT(Conversation); - PURPLE_PERL_BOOT(Core); - PURPLE_PERL_BOOT(Debug); - PURPLE_PERL_BOOT(Xfer); - PURPLE_PERL_BOOT(ImgStore); - PURPLE_PERL_BOOT(Log); - PURPLE_PERL_BOOT(Network); - PURPLE_PERL_BOOT(Notify); - PURPLE_PERL_BOOT(Plugin); - PURPLE_PERL_BOOT(PluginPref); - PURPLE_PERL_BOOT(Pounce); - PURPLE_PERL_BOOT(Prefs); - PURPLE_PERL_BOOT(Privacy); - PURPLE_PERL_BOOT(Proxy); - PURPLE_PERL_BOOT(Prpl); - PURPLE_PERL_BOOT(Request); - PURPLE_PERL_BOOT(Roomlist); - PURPLE_PERL_BOOT(SSL); - PURPLE_PERL_BOOT(SavedStatus); - PURPLE_PERL_BOOT(Serv); - PURPLE_PERL_BOOT(Signal); - PURPLE_PERL_BOOT(Sound); - PURPLE_PERL_BOOT(Status); - PURPLE_PERL_BOOT(Stringref); - PURPLE_PERL_BOOT(Util); - PURPLE_PERL_BOOT(XMLNode); - -void -timeout_add(plugin, seconds, callback, data = 0) - Purple::Plugin plugin - int seconds - SV *callback - SV *data -CODE: - purple_perl_timeout_add(plugin, seconds, callback, data); - -void -deinit() -CODE: - purple_perl_timeout_clear(); - - -MODULE = Purple PACKAGE = Purple PREFIX = purple_ -PROTOTYPES: ENABLE - -Purple::Core -purple_get_core() diff -r 783b05e528b0 -r 6dedf7542b44 libpurple/plugins/perl/common/Purple.xs --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/libpurple/plugins/perl/common/Purple.xs Fri Apr 13 01:57:16 2007 +0000 @@ -0,0 +1,99 @@ +#include "module.h" +#include "../perl-handlers.h" +#include "const-c.inc" + +/* Prototypes for the BOOT section below. */ +PURPLE_PERL_BOOT_PROTO(Account); +PURPLE_PERL_BOOT_PROTO(Account__Option); +PURPLE_PERL_BOOT_PROTO(Buddy__Icon); +PURPLE_PERL_BOOT_PROTO(BuddyList); +PURPLE_PERL_BOOT_PROTO(Cipher); +PURPLE_PERL_BOOT_PROTO(Cmd); +PURPLE_PERL_BOOT_PROTO(Connection); +PURPLE_PERL_BOOT_PROTO(Conversation); +PURPLE_PERL_BOOT_PROTO(Core); +PURPLE_PERL_BOOT_PROTO(Debug); +PURPLE_PERL_BOOT_PROTO(Xfer); +PURPLE_PERL_BOOT_PROTO(ImgStore); +PURPLE_PERL_BOOT_PROTO(Log); +PURPLE_PERL_BOOT_PROTO(Network); +PURPLE_PERL_BOOT_PROTO(Notify); +PURPLE_PERL_BOOT_PROTO(Plugin); +PURPLE_PERL_BOOT_PROTO(PluginPref); +PURPLE_PERL_BOOT_PROTO(Pounce); +PURPLE_PERL_BOOT_PROTO(Prefs); +PURPLE_PERL_BOOT_PROTO(Privacy); +PURPLE_PERL_BOOT_PROTO(Proxy); +PURPLE_PERL_BOOT_PROTO(Prpl); +PURPLE_PERL_BOOT_PROTO(Request); +PURPLE_PERL_BOOT_PROTO(Roomlist); +PURPLE_PERL_BOOT_PROTO(SSL); +PURPLE_PERL_BOOT_PROTO(SavedStatus); +PURPLE_PERL_BOOT_PROTO(Serv); +PURPLE_PERL_BOOT_PROTO(Signal); +PURPLE_PERL_BOOT_PROTO(Sound); +PURPLE_PERL_BOOT_PROTO(Status); +PURPLE_PERL_BOOT_PROTO(Stringref); +PURPLE_PERL_BOOT_PROTO(Util); +PURPLE_PERL_BOOT_PROTO(XMLNode); + +MODULE = Purple PACKAGE = Purple PREFIX = purple_ +PROTOTYPES: ENABLE + +INCLUDE: const-xs.inc + +BOOT: + PURPLE_PERL_BOOT(Account); + PURPLE_PERL_BOOT(Account__Option); + PURPLE_PERL_BOOT(Buddy__Icon); + PURPLE_PERL_BOOT(BuddyList); + PURPLE_PERL_BOOT(Cipher); + PURPLE_PERL_BOOT(Cmd); + PURPLE_PERL_BOOT(Connection); + PURPLE_PERL_BOOT(Conversation); + PURPLE_PERL_BOOT(Core); + PURPLE_PERL_BOOT(Debug); + PURPLE_PERL_BOOT(Xfer); + PURPLE_PERL_BOOT(ImgStore); + PURPLE_PERL_BOOT(Log); + PURPLE_PERL_BOOT(Network); + PURPLE_PERL_BOOT(Notify); + PURPLE_PERL_BOOT(Plugin); + PURPLE_PERL_BOOT(PluginPref); + PURPLE_PERL_BOOT(Pounce); + PURPLE_PERL_BOOT(Prefs); + PURPLE_PERL_BOOT(Privacy); + PURPLE_PERL_BOOT(Proxy); + PURPLE_PERL_BOOT(Prpl); + PURPLE_PERL_BOOT(Request); + PURPLE_PERL_BOOT(Roomlist); + PURPLE_PERL_BOOT(SSL); + PURPLE_PERL_BOOT(SavedStatus); + PURPLE_PERL_BOOT(Serv); + PURPLE_PERL_BOOT(Signal); + PURPLE_PERL_BOOT(Sound); + PURPLE_PERL_BOOT(Status); + PURPLE_PERL_BOOT(Stringref); + PURPLE_PERL_BOOT(Util); + PURPLE_PERL_BOOT(XMLNode); + +void +timeout_add(plugin, seconds, callback, data = 0) + Purple::Plugin plugin + int seconds + SV *callback + SV *data +CODE: + purple_perl_timeout_add(plugin, seconds, callback, data); + +void +deinit() +CODE: + purple_perl_timeout_clear(); + + +MODULE = Purple PACKAGE = Purple PREFIX = purple_ +PROTOTYPES: ENABLE + +Purple::Core +purple_get_core()