view plugins/perl/common/module.h @ 8095:4396d1088273

[gaim-migrate @ 8794] "It was reported in #gaim yesterday that errors occurred when trying to load a perl plugin containing a '-' char in the filename. It turns out that the code for cleaning up to filename in order for it to become part of the package name had a little bug." --Daniel Atallah committer: Tailor Script <[e-mail]>

typedef struct group *Gaim__Group;

#define group perl_group

#include <glib.h>
#ifdef _WIN32
#undef pipe
#endif
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>

#undef group

#include "../perl-common.h"

#include "account.h"
#include "connection.h"
#include "conversation.h"
#include "debug.h"
#include "server.h"

typedef GaimAccount *     Gaim__Account;
typedef GaimBuddy *       Gaim__BuddyList__Buddy;
typedef GaimChat *   Gaim__BuddyList__Chat;
typedef GaimGroup *       Gaim__BuddyList__Group;
typedef GaimContact *     Gaim__BuddyList__Contact;
typedef GaimConnection *  Gaim__Connection;
typedef GaimConversation *Gaim__Conversation;
typedef GaimConvChat *        Gaim__Conversation__Chat;
typedef GaimConvIm *          Gaim__Conversation__IM;
typedef GaimConvWindow *      Gaim__ConvWindow;
typedef GaimPlugin *      Gaim__Plugin;

typedef GaimDebugLevel Gaim__DebugLevel;