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()