Mercurial > pidgin3 / file revision

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

libpurple/plugins/perl/common/Sound.xs@5dbd0617a27d

libpurple/plugins/perl/common/Sound.xs

Thu, 30 Oct 2008 22:40:49 +0000

author

Richard Laager <rlaager@pidgin.im>

date

Thu, 30 Oct 2008 22:40:49 +0000

changeset 24569

5dbd0617a27d

parent 23987

3d41ccd1f8bf

permissions

-rw-r--r--

Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
to detect when we're still using deprecated functions internally (and by
extension, when we've deprecated something we shouldn't have). In the
course of developing this changeset, I fixed a few such cases.

Given that the plan is to switch from PURPLE_HIDE_STRUCTS to
PURPLE_DISABLE_DEPRECATED as each struct is fully dealt with, this will
also ensure we have no regressions on the struct hiding work.

Deprecated functions are still available to the respective .c file, to
avoid missing prototype errors. Also, Perl and DBus undef the
*_DISABLE_DEPRECATED defines as appropriate so that deprecated functions
will still be exported to Perl plugins and via DBus. (Otherwise, we'd
be breaking backwards compatibility.)

#include "module.h"

MODULE = Purple::Sound  PACKAGE = Purple::Sound  PREFIX = purple_sound_
PROTOTYPES: ENABLE

BOOT:
{
	HV *stash = gv_stashpv("Purple::SoundEventID", 1);

	static const constiv *civ, const_iv[] = {
#define const_iv(name) {#name, (IV)PURPLE_SOUND_##name}
		const_iv(BUDDY_ARRIVE),
		const_iv(BUDDY_LEAVE),
		const_iv(RECEIVE),
		const_iv(FIRST_RECEIVE),
		const_iv(SEND),
		const_iv(CHAT_JOIN),
		const_iv(CHAT_LEAVE),
		const_iv(CHAT_YOU_SAY),
		const_iv(CHAT_SAY),
		const_iv(POUNCE_DEFAULT),
		const_iv(CHAT_NICK),
	};

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

void
purple_sound_play_event(event, account)
	Purple::SoundEventID event
	Purple::Account account

void
purple_sound_play_file(filename, account)
	const char *filename
	Purple::Account account