Mercurial > pidgin
view src/sound.c @ 3395:c731327dbc47
[gaim-migrate @ 3414]
Thanks to Timothy Lee and Dan Colascione for gettiing perl 5.8 to work.
committer: Tailor Script <tailor@pidgin.im>
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Fri, 16 Aug 2002 01:18:01 +0000 |
parents | 3b00d97d59aa |
children | 9682c0e022c6 |
line wrap: on
line source
/* * gaim * * Copyright (C) 1998-1999, Mark Spencer <markster@marko.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <stdio.h> #include <stdlib.h> #include <string.h> #include <sys/time.h> #include <unistd.h> #include <fcntl.h> #include <sys/wait.h> #include <unistd.h> #include <sys/types.h> #include <sys/stat.h> #ifdef ESD_SOUND #include <esd.h> #endif #ifdef ARTSC_SOUND #include <artsc.h> #endif #ifdef NAS_SOUND #include <audio/audiolib.h> #endif #include "gaim.h" #include "sounds/BuddyArrive.h" #include "sounds/BuddyLeave.h" #include "sounds/Send.h" #include "sounds/Receive.h" #include "sounds/RedAlert.h" gboolean mute_sounds = 0; /* description, option bit, default sound array, and it's size. * * if you want it to get displayed in the prefs dialog, it needs * * to be added to the sound_order array in prefs.c, if not, and * * it has no option bit, set it to 0. the order here has to match * * the defines in gaim.h. -Robot101 */ struct sound_struct sounds[NUM_SOUNDS] = { {N_("Buddy logs in"), OPT_SOUND_LOGIN, BuddyArrive, sizeof(BuddyArrive)}, {N_("Buddy logs out"), OPT_SOUND_LOGOUT, BuddyLeave, sizeof(BuddyLeave)}, {N_("Message received"), OPT_SOUND_RECV, Receive, sizeof(Receive)}, {N_("Message received begins conversation"), OPT_SOUND_FIRST_RCV, Receive, sizeof(Receive)}, {N_("Message sent"), OPT_SOUND_SEND, Send, sizeof(Send)}, {N_("Person enters chat"), OPT_SOUND_CHAT_JOIN, BuddyArrive, sizeof(BuddyArrive)}, {N_("Person leaves chat"), OPT_SOUND_CHAT_PART, BuddyLeave, sizeof(BuddyLeave)}, {N_("You talk in chat"), OPT_SOUND_CHAT_YOU_SAY, Send, sizeof(Send)}, {N_("Others talk in chat"), OPT_SOUND_CHAT_SAY, Receive, sizeof(Receive)}, /* this isn't a terminator, it's the buddy pounce default sound event ;-) */ {NULL, 0, RedAlert, sizeof(RedAlert)}, {N_("Someone says your name in chat"), OPT_SOUND_CHAT_NICK, Receive, sizeof(Receive)} }; int sound_order[] = { SND_BUDDY_ARRIVE, SND_BUDDY_LEAVE, SND_FIRST_RECEIVE, SND_RECEIVE, SND_SEND, SND_CHAT_JOIN, SND_CHAT_LEAVE, SND_CHAT_YOU_SAY, SND_CHAT_SAY, SND_CHAT_NICK, 0 }; static int check_dev(char *dev) { struct stat stat_buf; uid_t user = getuid(); gid_t group = getgid(), other_groups[32]; int i, numgroups; if ((numgroups = getgroups(32, other_groups)) == -1) return 0; if (stat(dev, &stat_buf)) return 0; if (user == stat_buf.st_uid && stat_buf.st_mode & S_IWUSR) return 1; if (stat_buf.st_mode & S_IWGRP) { if (group == stat_buf.st_gid) return 1; for (i = 0; i < numgroups; i++) if (other_groups[i] == stat_buf.st_gid) return 1; } if (stat_buf.st_mode & S_IWOTH) return 1; return 0; } static void play_audio(unsigned char *data, int size) { int fd; fd = open("/dev/audio", O_WRONLY | O_EXCL | O_NDELAY); if (fd < 0) return; write(fd, data, size); close(fd); } static void play_audio_file(char *file) { /* here we can assume that we can write to /dev/audio */ char *buf; struct stat info; int fd = open(file, O_RDONLY); if (fd <= 0) { return; } fstat(fd, &info); if (info.st_size < 24) return; buf = malloc(info.st_size + 1); read(fd, buf, 24); read(fd, buf, info.st_size - 24); close(fd); fd = open("/dev/audio", O_WRONLY | O_EXCL | O_NDELAY); if (fd < 0) { free(buf); return; } write(fd, buf, info.st_size - 24); free(buf); close(fd); } static int can_play_audio() { return check_dev("/dev/audio"); } #if defined(ESD_SOUND) || defined(ARTSC_SOUND) /* ** This routine converts from ulaw to 16 bit linear. ** ** Craig Reese: IDA/Supercomputing Research Center ** 29 September 1989 ** ** References: ** 1) CCITT Recommendation G.711 (very difficult to follow) ** 2) MIL-STD-188-113,"Interoperability and Performance Standards ** for Analog-to_Digital Conversion Techniques," ** 17 February 1987 ** ** Input: 8 bit ulaw sample ** Output: signed 16 bit linear sample ** Z-note -- this is from libaudiofile. Thanks guys! */ static int _af_ulaw2linear(unsigned char ulawbyte) { static int exp_lut[8] = { 0, 132, 396, 924, 1980, 4092, 8316, 16764 }; int sign, exponent, mantissa, sample; ulawbyte = ~ulawbyte; sign = (ulawbyte & 0x80); exponent = (ulawbyte >> 4) & 0x07; mantissa = ulawbyte & 0x0F; sample = exp_lut[exponent] + (mantissa << (exponent + 3)); if (sign != 0) sample = -sample; return (sample); } #endif #ifdef ESD_SOUND int esd_fd; static int play_esd(unsigned char *data, int size) { int i; guint16 *lineardata; lineardata = g_malloc(size * 2); for (i = 0; i < size; i++) lineardata[i] = _af_ulaw2linear(data[i]); write(esd_fd, lineardata, size * 2); close(esd_fd); g_free(lineardata); return 1; } static int can_play_esd() { esd_format_t format = ESD_BITS16 | ESD_STREAM | ESD_PLAY | ESD_MONO; esd_fd = esd_play_stream(format, 8012, NULL, "gaim"); if (esd_fd < 0) { return 0; } return 1; } #endif #ifdef ARTSC_SOUND static int play_artsc(unsigned char *data, int size) { arts_stream_t stream; guint16 *lineardata; int result = 1; int error; int i; lineardata = g_malloc(size * 2); for (i = 0; i < size; i++) { lineardata[i] = _af_ulaw2linear(data[i]); } stream = arts_play_stream(8012, 16, 1, "gaim"); error = arts_write(stream, lineardata, size); if (error < 0) { result = 0; } arts_close_stream(stream); g_free(lineardata); arts_free(); return result; } static int can_play_artsc() { int error; error = arts_init(); if (error < 0) return 0; return 1; } static int artsc_play_file(char *file) { struct stat stat_buf; unsigned char *buf = NULL; int result = 0; int fd = -1; if (!can_play_artsc()) return 0; fd = open(file, O_RDONLY); if (fd < 0) return 0; if (fstat(fd, &stat_buf)) { close(fd); return 0; } if (!stat_buf.st_size) { close(fd); return 0; } buf = g_malloc(stat_buf.st_size); if (!buf) { close(fd); return 0; } if (read(fd, buf, stat_buf.st_size) < 0) { g_free(buf); close(fd); return 0; } result = play_artsc(buf, stat_buf.st_size); g_free(buf); close(fd); return result; } #endif /* ARTSC_SOUND */ #ifdef NAS_SOUND char nas_server[] = "localhost"; AuServer *nas_serv = NULL; static AuBool NasEventHandler(AuServer * aud, AuEvent * ev, AuEventHandlerRec * handler) { AuElementNotifyEvent *event = (AuElementNotifyEvent *) ev; if (ev->type == AuEventTypeElementNotify) { switch (event->kind) { case AuElementNotifyKindState: switch (event->cur_state) { case AuStateStop: _exit(0); } break; } } return AuTrue; } static int play_nas(unsigned char *data, int size) { AuDeviceID device = AuNone; AuFlowID flow; AuElement elements[3]; int i, n, w; /* look for an output device */ for (i = 0; i < AuServerNumDevices(nas_serv); i++) { if ((AuDeviceKind(AuServerDevice(nas_serv, i)) == AuComponentKindPhysicalOutput) && AuDeviceNumTracks(AuServerDevice(nas_serv, i)) == 1) { device = AuDeviceIdentifier(AuServerDevice(nas_serv, i)); break; } } if (device == AuNone) return 0; if (!(flow = AuCreateFlow(nas_serv, NULL))) return 0; AuMakeElementImportClient(&elements[0], 8012, AuFormatULAW8, 1, AuTrue, size, size / 2, 0, NULL); AuMakeElementExportDevice(&elements[1], 0, device, 8012, AuUnlimitedSamples, 0, NULL); AuSetElements(nas_serv, flow, AuTrue, 2, elements, NULL); AuStartFlow(nas_serv, flow, NULL); AuWriteElement(nas_serv, flow, 0, size, data, AuTrue, NULL); AuRegisterEventHandler(nas_serv, AuEventHandlerIDMask, 0, flow, NasEventHandler, NULL); while (1) { AuHandleEvents(nas_serv); } return 1; } static int can_play_nas() { if ((nas_serv = AuOpenServer(NULL, 0, NULL, 0, NULL, NULL))) return 1; return 0; } static int play_nas_file(char *file) { struct stat stat_buf; char *buf; int ret; int fd = open(file, O_RDONLY); if (fd <= 0) return 0; if (!can_play_nas()) return 0; if (stat(file, &stat_buf)) return 0; if (!stat_buf.st_size) return 0; buf = malloc(stat_buf.st_size); read(fd, buf, stat_buf.st_size); ret = play_nas(buf, stat_buf.st_size); free(buf); return ret; } #endif void play_file(char *filename) { int pid; #ifdef _WIN32 return; #endif if (sound_options & OPT_SOUND_BEEP) { gdk_beep(); return; } else if (sound_options & OPT_SOUND_NORMAL) { debug_printf("attempting to play audio file with internal method -- this is unlikely to work\n"); } pid = fork(); if (pid < 0) return; else if (pid == 0) { alarm(30); if ((sound_options & OPT_SOUND_CMD) && sound_cmd[0]) { char *args[4]; char command[4096]; g_snprintf(command, sizeof(command), sound_cmd, filename); args[0] = "sh"; args[1] = "-c"; args[2] = command; args[3] = NULL; execvp(args[0], args); _exit(0); } #ifdef ESD_SOUND else if (sound_options & OPT_SOUND_ESD) { if (esd_play_file(NULL, filename, 1)) _exit(0); } #endif #ifdef ARTSC_SOUND else if (sound_options & OPT_SOUND_ARTSC) { if (artsc_play_file(filename)) _exit(0); } #endif #ifdef NAS_SOUND else if (sound_options & OPT_SOUND_NAS) { if (play_nas_file(filename)) _exit(0); } #endif else if ((sound_options & OPT_SOUND_NORMAL) && can_play_audio()) { play_audio_file(filename); _exit(0); } _exit(0); } } void play(unsigned char *data, int size) { int pid; #ifdef _WIN32 return; #endif if (sound_options & OPT_SOUND_BEEP) { gdk_beep(); return; } else if ((sound_options & OPT_SOUND_CMD) && sound_cmd[0]) { char command[4096]; FILE *child; g_snprintf(command, sizeof(command), sound_cmd, "-"); child=popen(command, "w"); if(child == NULL) { perror("popen"); return; } fwrite(data, size, 1, child); pclose(child); return; } pid = fork(); if (pid < 0) return; else if (pid == 0) { alarm(30); #ifdef ESD_SOUND /* ESD is our player of choice. Are we OK to * go there? */ if (sound_options & OPT_SOUND_ESD) { if (can_play_esd()) { if (play_esd(data, size)) _exit(0); } } #endif #ifdef ARTSC_SOUND /* ArtsC is the new second choice. */ if (sound_options & OPT_SOUND_ARTSC) { if (can_play_artsc()) { if (play_artsc(data, size)) _exit(0); } } #endif #ifdef NAS_SOUND /* NAS is our second choice setup. */ if (sound_options & OPT_SOUND_NAS) { if (can_play_nas()) { if (play_nas(data, size)) _exit(0); } } #endif /* Lastly, we can try just plain old /dev/audio */ if (sound_options & OPT_SOUND_NORMAL) { if (can_play_audio()) { play_audio(data, size); _exit(0); } } _exit(0); } } extern int logins_not_muted; void play_sound(int sound) { if (mute_sounds) return; if (awaymessage && !(sound_options & OPT_SOUND_WHEN_AWAY)) return; if ((sound == SND_BUDDY_ARRIVE) && !logins_not_muted) return; if (sound >= NUM_SOUNDS) { debug_printf("sorry old fruit... can't say I know that sound: ", sound, "\n"); return; } /* check NULL for sounds that don't have an option, ie buddy pounce */ if ((sound_options & sounds[sound].opt) || (sounds[sound].opt == 0)) { if (sound_file[sound]) { play_file(sound_file[sound]); } else { play(sounds[sound].snd, sounds[sound].snd_size); } } }