398
+ − 1 /* esd.c - play a sound over ESD
+ − 2
+ − 3 This file is part of XEmacs.
+ − 4
+ − 5 XEmacs is free software; you can redistribute it and/or modify it
+ − 6 under the terms of the GNU General Public License as published by the
+ − 7 Free Software Foundation; either version 2, or (at your option) any
+ − 8 later version.
+ − 9
+ − 10 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 13 for more details.
+ − 14
+ − 15 You should have received a copy of the GNU General Public License
+ − 16 along with XEmacs; see the file COPYING. If not, write to
+ − 17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 18 Boston, MA 02111-1307, USA. */
+ − 19
+ − 20 /* Synched up with: Not in FSF. */
+ − 21
563
+ − 22 /* This file Mule-ized by Ben Wing, 5-15-01. */
+ − 23
398
+ − 24 #include <config.h>
563
+ − 25 #include "lisp.h"
398
+ − 26
+ − 27 #include "miscplay.h"
563
+ − 28 #include "sound.h"
+ − 29
+ − 30 #include "sysfile.h"
398
+ − 31
+ − 32 #include <esd.h>
+ − 33
+ − 34
+ − 35 /* the name given to ESD - I think this should identify ourselves */
+ − 36 #define ESD_NAME "xemacs"
+ − 37
563
+ − 38 int esd_play_sound_file (Extbyte *file, int vol);
609
+ − 39 int
+ − 40 esd_play_sound_file (Extbyte *file, int vol)
398
+ − 41 { /* #### FIXME: vol is ignored */
+ − 42 return esd_play_file(ESD_NAME, file, 0);
+ − 43 }
+ − 44
563
+ − 45 int esd_play_sound_data (UChar_Binary *data, size_t length, int vol);
609
+ − 46 int
+ − 47 esd_play_sound_data (UChar_Binary *data, size_t length, int vol)
398
+ − 48 { /* #### FIXME: vol is ignored */
+ − 49 size_t (*parsesndfile)(void **dayta,size_t *sz,void **outbuf);
+ − 50 size_t (*sndcnv)(void **dayta,size_t *sz,void **);
+ − 51 fmtType ffmt;
+ − 52 int fmt,speed,tracks;
+ − 53 unsigned char *pptr,*optr,*cptr,*sptr;
+ − 54 ssize_t wrtn;
+ − 55 size_t crtn;
+ − 56 size_t prtn;
+ − 57 int flags, sock;
+ − 58
+ − 59 /* analyze_format needs at least this many bytes to work with */
+ − 60 if (length < HEADERSZ)
+ − 61 return 0;
+ − 62
+ − 63 ffmt = analyze_format(data,&fmt,&speed,&tracks,&parsesndfile);
+ − 64
+ − 65 if (ffmt != fmtRaw && ffmt != fmtSunAudio && ffmt != fmtWave) {
564
+ − 66 sound_warn("Unsupported file format (neither RAW, nor Sun/DECAudio, nor WAVE)");
398
+ − 67 return 0;
+ − 68 }
+ − 69
+ − 70 /* convert header information into ESD flags */
+ − 71 flags = ESD_STREAM|ESD_PLAY;
+ − 72 sndcnv = sndcnvnop;
+ − 73 switch (fmt)
+ − 74 {
+ − 75 case AFMT_MU_LAW:
+ − 76 sndcnv = sndcnvULaw_2linear;
+ − 77 flags |= ESD_BITS8;
+ − 78 break;
+ − 79 case AFMT_S8:
+ − 80 sndcnv = sndcnv2unsigned; /* ESD needs unsigned bytes */
+ − 81 case AFMT_U8:
+ − 82 flags |= ESD_BITS8;
+ − 83 break;
+ − 84 case AFMT_S16_BE:
+ − 85 sndcnv = sndcnv16swap; /* ESD wants little endian */
+ − 86 case AFMT_S16_LE:
+ − 87 flags |= ESD_BITS16;
+ − 88 break;
+ − 89 default:
564
+ − 90 {
+ − 91 Extbyte warn_buf[255];
+ − 92 sprintf (warn_buf, "byte format %d unimplemented", fmt);
+ − 93 sound_warn (warn_buf);
+ − 94 return 0;
+ − 95 }
398
+ − 96 }
+ − 97 switch (tracks)
+ − 98 {
+ − 99 case 1: flags |= ESD_MONO; break;
+ − 100 case 2: flags |= ESD_STEREO; break;
+ − 101 default:
564
+ − 102 {
+ − 103 Extbyte warn_buf[255];
+ − 104 sprintf (warn_buf, "%d channels - only 1 or 2 supported", tracks);
+ − 105 sound_warn (warn_buf);
+ − 106 return 0;
+ − 107 }
398
+ − 108 }
+ − 109
+ − 110 sock = esd_play_stream(flags, speed, NULL, "xemacs");
+ − 111 if (sock < 0)
+ − 112 return 0;
+ − 113
+ − 114 reset_parsestate();
+ − 115
+ − 116 for (pptr = data; (prtn = parsesndfile((void **)&pptr,&length,
+ − 117 (void **)&optr)) > 0; )
+ − 118 for (cptr = optr; (crtn = sndcnv((void **)&cptr,&prtn,
+ − 119 (void **)&sptr)) > 0; ) {
+ − 120 if ((wrtn = write(sock,sptr,crtn)) < 0) {
564
+ − 121 sound_perror ("write error");
398
+ − 122 goto END_OF_PLAY;
+ − 123 }
+ − 124 if (wrtn != crtn) {
564
+ − 125 Extbyte warn_buf[255];
+ − 126 sprintf (warn_buf , "only wrote %d of %d bytes", wrtn, crtn);
+ − 127 sound_warn (warn_buf);
398
+ − 128 goto END_OF_PLAY;
+ − 129 }
+ − 130 }
+ − 131
+ − 132 if (ffmt == fmtWave)
+ − 133 parse_wave_complete();
+ − 134
+ − 135 END_OF_PLAY:
+ − 136 /* Now cleanup all used resources */
+ − 137
+ − 138 close(sock);
+ − 139 return 1;
+ − 140 }
