Mercurial > pidgin
view libpurple/plugins/perl/common/Sound.xs @ 22360:c5ab31c2f5c4
Polish translation updated (Emil Nowak)
Closes #4298
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Thu, 28 Feb 2008 15:29:27 +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()