--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/esd.c	Mon Aug 13 11:13:30 2007 +0200
@@ -0,0 +1,130 @@
+/* esd.c - play a sound over ESD
+
+This file is part of XEmacs.
+
+XEmacs 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, or (at your option) any
+later version.
+
+XEmacs 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 XEmacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* Synched up with: Not in FSF. */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "lisp.h"
+#include "miscplay.h"
+
+#include <esd.h>
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <errno.h>
+#include <string.h>
+
+/* the name given to ESD - I think this should identify ourselves */
+#define ESD_NAME "xemacs"
+
+int esd_play_sound_file(char *file, int vol);
+int esd_play_sound_file(char *file, int vol)
+{                              /* #### FIXME: vol is ignored */
+  return esd_play_file(ESD_NAME, file, 0);
+}
+
+int esd_play_sound_data(unsigned char *data, size_t length, int vol);
+int esd_play_sound_data(unsigned char *data, size_t length, int vol)
+{                              /* #### FIXME: vol is ignored */
+  size_t         (*parsesndfile)(void **dayta,size_t *sz,void **outbuf);
+  size_t         (*sndcnv)(void **dayta,size_t *sz,void **);
+  fmtType        ffmt;
+  int            fmt,speed,tracks;
+  unsigned char *pptr,*optr,*cptr,*sptr;
+  ssize_t        wrtn;
+  size_t         crtn;
+  size_t         prtn;
+  int flags, sock;
+
+  /* analyze_format needs at least this many bytes to work with */
+  if (length < HEADERSZ)
+    return 0;
+
+  ffmt = analyze_format(data,&fmt,&speed,&tracks,&parsesndfile);
+
+  if (ffmt != fmtRaw && ffmt != fmtSunAudio && ffmt != fmtWave) {
+    message(GETTEXT("audio: Unsupported file format (neither RAW, nor Sun/DECAudio, nor WAVE)"));
+      return 0;
+  }
+
+  /* convert header information into ESD flags */
+  flags = ESD_STREAM|ESD_PLAY;
+  sndcnv = sndcnvnop;
+  switch (fmt)
+    {
+    case AFMT_MU_LAW:
+      sndcnv = sndcnvULaw_2linear;
+      flags |= ESD_BITS8;
+      break;
+    case AFMT_S8:
+      sndcnv = sndcnv2unsigned;        /* ESD needs unsigned bytes */
+    case AFMT_U8:
+      flags |= ESD_BITS8;
+      break;
+    case AFMT_S16_BE:
+      sndcnv = sndcnv16swap;   /* ESD wants little endian */
+    case AFMT_S16_LE:
+      flags |= ESD_BITS16;
+      break;
+    default:
+      message(GETTEXT("audio: byte format %d unimplemented"), fmt);
+      return 0;
+    }
+  switch (tracks)
+    {
+    case 1: flags |= ESD_MONO; break;
+    case 2: flags |= ESD_STEREO; break;
+    default:
+      message(GETTEXT("audio: %d channels - only 1 or 2 supported"), tracks);
+      return 0;
+    }
+
+  sock = esd_play_stream(flags, speed, NULL, "xemacs");
+  if (sock < 0)
+    return 0;
+
+  reset_parsestate();
+
+  for (pptr = data; (prtn = parsesndfile((void **)&pptr,&length,
+                                        (void **)&optr)) > 0; )
+    for (cptr = optr; (crtn = sndcnv((void **)&cptr,&prtn,
+                                    (void **)&sptr)) > 0; ) {
+      if ((wrtn = write(sock,sptr,crtn)) < 0) {
+       message(GETTEXT("audio: write error (%s)"), strerror(errno));
+       goto END_OF_PLAY;
+      }
+      if (wrtn != crtn) {
+       message(GETTEXT("audio: only wrote %d of %d bytes"), wrtn, crtn);
+       goto END_OF_PLAY;
+      }
+    }
+
+  if (ffmt == fmtWave)
+    parse_wave_complete();
+
+END_OF_PLAY:
+  /* Now cleanup all used resources */
+
+  close(sock);
+  return 1;
+}