view libgaim/plugins/perl/common/Pounce.xs @ 14364:338ac096e322

[gaim-migrate @ 17070] Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow). Fix gaim_util_fetch_url and plug some leaks. I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet. The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function. committer: Tailor Script <tailor@pidgin.im>
author Daniel Atallah <daniel.atallah@gmail.com>
date Mon, 28 Aug 2006 20:27:03 +0000
parents 60b1bc8dbf37
children b1fcd2fc903a
line wrap: on
line source

#include "module.h"

MODULE = Gaim::Pounce  PACKAGE = Gaim::Pounce  PREFIX = gaim_pounce_
PROTOTYPES: ENABLE

void
gaim_pounce_action_register(pounce, name)
	Gaim::Pounce pounce
	const char *name

void
gaim_pounce_destroy(pounce)
	Gaim::Pounce pounce

void
gaim_pounce_destroy_all_by_account(account)
	Gaim::Account account

void *
gaim_pounce_get_data(pounce)
	Gaim::Pounce pounce

Gaim::PounceEvent
gaim_pounce_get_events(pounce)
	Gaim::Pounce pounce

const char *
gaim_pounce_get_pouncee(pounce)
	Gaim::Pounce pounce

Gaim::Account
gaim_pounce_get_pouncer(pounce)
	Gaim::Pounce pounce

gboolean
gaim_pounce_get_save(pounce)
	Gaim::Pounce pounce

void
gaim_pounce_set_data(pounce, data)
	Gaim::Pounce pounce
	void * data

void
gaim_pounce_set_events(pounce, events)
	Gaim::Pounce pounce
	Gaim::PounceEvent events

void
gaim_pounce_set_pouncee(pounce, pouncee)
	Gaim::Pounce pounce
	const char *pouncee

void
gaim_pounce_set_pouncer(pounce, pouncer)
	Gaim::Pounce pounce
	Gaim::Account pouncer

void
gaim_pounce_set_save(pounce, save)
	Gaim::Pounce pounce
	gboolean save

MODULE = Gaim::Pounce  PACKAGE = Gaim::Pounces  PREFIX = gaim_pounces_
PROTOTYPES: ENABLE

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

void *
gaim_pounces_get_handle()

void
gaim_pounces_init()

gboolean
gaim_pounces_load()

void
gaim_pounces_uninit()

void
gaim_pounces_unregister_handler(ui)
	const char *ui