Mercurial > pidgin
view libpurple/plugins/perl/common/Sound.xs @ 22863:56a38b60576e
Kill off sound playing child processes if they are still around after 15
seconds, as they will be if we are piling up children due to blocking on
the audio device. This prevents a barrage of sounds when the device becomes
available.
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Wed, 07 May 2008 19:06:28 +0000 |
parents | 39c7bb133a9f |
children | 907f5f41e32a |
line wrap: on
line source
#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)); } Purple::Sound::UiOps purple_sound_get_ui_ops() void purple_sound_init() 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 void purple_sound_set_ui_ops(ops) Purple::Sound::UiOps ops void purple_sound_uninit()