Mercurial > pidgin.yaz
comparison src/perl.c @ 4561:9df99116840a
[gaim-migrate @ 4842]
This is the new sound subsystem
Lots of stuff got renamed, and everything sound-wise is documented.
Gaim now uses libaudiofile and libao to play sounds. Lots of ugly hacks
were removed, and now we support playing audio through anything that
libao will support.
If you need to (you shouldn't) you can force libao to use a specific
output driver, by putting a line into ~/.libao like:
default_driver=esd
You shouldn't need to do this, libao is pretty good at figuring out what
driver to use.
committer: Tailor Script <tailor@pidgin.im>
author | Nathan Walp <nwalp@pidgin.im> |
---|---|
date | Sun, 09 Feb 2003 01:55:35 +0000 |
parents | 3196d9044a45 |
children | 858979ab3867 |
comparison
equal
deleted
inserted
replaced
4560:eb32b3acef97 | 4561:9df99116840a |
---|---|
79 #ifdef _WIN32 | 79 #ifdef _WIN32 |
80 #undef pipe | 80 #undef pipe |
81 #endif | 81 #endif |
82 #include "gaim.h" | 82 #include "gaim.h" |
83 #include "prpl.h" | 83 #include "prpl.h" |
84 #include "sound.h" | |
84 | 85 |
85 struct perlscript { | 86 struct perlscript { |
86 char *name; | 87 char *name; |
87 char *version; | 88 char *version; |
88 char *shutdowncallback; /* bleh */ | 89 char *shutdowncallback; /* bleh */ |
1181 | 1182 |
1182 items = 0; | 1183 items = 0; |
1183 | 1184 |
1184 id = SvIV(ST(0)); | 1185 id = SvIV(ST(0)); |
1185 | 1186 |
1186 play_sound(id); | 1187 gaim_sound_play_event(id); |
1187 | 1188 |
1188 XSRETURN_EMPTY; | 1189 XSRETURN_EMPTY; |
1189 } | 1190 } |
1190 | 1191 |
1191 extern void unload_perl_scripts() | 1192 extern void unload_perl_scripts() |