src/sound.c

   1 /* sound.c -- sound support.
   2    Copyright (C) 1998, 1999 Free Software Foundation.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* Written by Gerd Moellmann <gerd@gnu.org>.  Tested with Luigi's
  22    driver on FreeBSD 2.2.7 with a SoundBlaster 16.  */
  23
  24 #include <config.h>
  25
  26 #if defined HAVE_SOUND
  27
  28 #include <lisp.h>
  29 #include <fcntl.h>
  30 #include <unistd.h>
  31 #include <sys/types.h>
  32 #include <dispextern.h>
  33 #include <errno.h>
  34
  35 /* FreeBSD has machine/soundcard.h.  Voxware sound driver docs mention
  36    sys/soundcard.h.  So, let's try whatever's there.  */
  37
  38 #ifdef HAVE_MACHINE_SOUNDCARD_H
  39 #include <machine/soundcard.h>
  40 #endif
  41 #ifdef HAVE_SYS_SOUNDCARD_H
  42 #include <sys/soundcard.h>
  43 #endif
  44 #ifdef HAVE_SOUNDCARD_H
  45 #include <sys/ioctl.h>
  46 #include <soundcard.h>
  47 #endif
  48
  49 #ifndef DEFAULT_SOUND_DEVICE
  50 #define DEFAULT_SOUND_DEVICE "/dev/dsp"
  51 #endif
  52
  53 #define max(X, Y) ((X) > (Y) ? (X) : (Y))
  54 #define min(X, Y) ((X) < (Y) ? (X) : (Y))
  55 #define abs(X)    ((X) < 0 ? -(X) : (X))
  56
  57 /* Structure forward declarations.  */
  58
  59 struct sound;
  60 struct sound_device;
  61
  62 /* The file header of RIFF-WAVE files (*.wav).  Files are always in
  63    little-endian byte-order.  */
  64
  65 struct wav_header
  66 {
  67   u_int32_t magic;
  68   u_int32_t length;
  69   u_int32_t chunk_type;
  70   u_int32_t chunk_format;
  71   u_int32_t chunk_length;
  72   u_int16_t format;
  73   u_int16_t channels;
  74   u_int32_t sample_rate;
  75   u_int32_t bytes_per_second;
  76   u_int16_t sample_size;
  77   u_int16_t precision;
  78   u_int32_t chunk_data;
  79   u_int32_t data_length;
  80 };
  81
  82 /* The file header of Sun adio files (*.au).  Files are always in
  83    big-endian byte-order.  */
  84
  85 struct au_header
  86 {
  87   /* ASCII ".snd" */
  88   u_int32_t magic_number;
  89
  90   /* Offset of data part from start of file. Minimum value is 24.  */
  91   u_int32_t data_offset;
  92
  93   /* Size of data part, 0xffffffff if unknown.  */
  94   u_int32_t data_size;
  95
  96   /* Data encoding format.
  97      1  8-bit ISDN u-law
  98      2  8-bit linear PCM (REF-PCM)
  99      3  16-bit linear PCM
 100      4  24-bit linear PCM
 101      5  32-bit linear PCM
 102      6  32-bit IEEE floating-point
 103      7  64-bit IEEE floating-point
 104      23 8-bit u-law compressed using CCITT 0.721 ADPCM voice data
 105      encoding scheme.  */
 106   u_int32_t encoding;
 107
 108   /* Number of samples per second.  */
 109   u_int32_t sample_rate;
 110
 111   /* Number of interleaved channels.  */
 112   u_int32_t channels;
 113 };
 114
 115 /* Maximum of all sound file headers sizes.  */
 116
 117 #define MAX_SOUND_HEADER_BYTES \
 118      max (sizeof (struct wav_header), sizeof (struct au_header))
 119
 120 /* Interface structure for sound devices.  */
 121
 122 struct sound_device
 123 {
 124   /* The name of the device or null meaning use a default device name.  */
 125   char *file;
 126
 127   /* File descriptor of the device.  */
 128   int fd;
 129
 130   /* Device-dependent format.  */
 131   int format;
 132
 133   /* Volume (0..100).  Zero means unspecified.  */
 134   int volume;
 135
 136   /* Sample size.  */
 137   int sample_size;
 138
 139   /* Sample rate.  */
 140   int sample_rate;
 141
 142   /* Bytes per second.  */
 143   int bps;
 144
 145   /* 1 = mono, 2 = stereo, 0 = don't set.  */
 146   int channels;
 147
 148   /* Open device SD.  */
 149   void (* open) P_ ((struct sound_device *sd));
 150
 151   /* Close device SD.  */
 152   void (* close) P_ ((struct sound_device *sd));
 153
 154   /* Configure SD accoring to device-dependent parameters.  */
 155   void (* configure) P_ ((struct sound_device *device));
 156
 157   /* Choose a device-dependent format for outputting sound S.  */
 158   void (* choose_format) P_ ((struct sound_device *sd,
 159                               struct sound *s));
 160
 161   /* Write NYBTES bytes from BUFFER to device SD.  */
 162   void (* write) P_ ((struct sound_device *sd, char *buffer, int nbytes));
 163
 164   /* A place for devices to store additional data.  */
 165   void *data;
 166 };
 167
 168 /* An enumerator for each supported sound file type.  */
 169
 170 enum sound_type
 171 {
 172   RIFF,
 173   SUN_AUDIO
 174 };
 175
 176 /* Interface structure for sound files.  */
 177
 178 struct sound
 179 {
 180   /* The type of the file.  */
 181   enum sound_type type;
 182
 183   /* File descriptor of a sound file.  */
 184   int fd;
 185
 186   /* Pointer to sound file header.  This contains header_size bytes
 187      read from the start of a sound file.  */
 188   char *header;
 189
 190   /* Number of bytes raed from sound file.  This is always <=
 191      MAX_SOUND_HEADER_BYTES.  */
 192   int header_size;
 193
 194   /* Sound data, if a string.  */
 195   Lisp_Object data;
 196
 197   /* Play sound file S on device SD.  */
 198   void (* play) P_ ((struct sound *s, struct sound_device *sd));
 199 };
 200
 201 /* Indices of attributes in a sound attributes vector.  */
 202
 203 enum sound_attr
 204 {
 205   SOUND_FILE,
 206   SOUND_DATA,
 207   SOUND_DEVICE,
 208   SOUND_VOLUME,
 209   SOUND_ATTR_SENTINEL
 210 };
 211
 212 /* Symbols.  */
 213
 214 extern Lisp_Object QCfile, QCdata;
 215 Lisp_Object QCvolume, QCdevice;
 216 Lisp_Object Qsound;
 217 Lisp_Object Qplay_sound_functions;
 218
 219 /* These are set during `play-sound' so that sound_cleanup has
 220    access to them.  */
 221
 222 struct sound_device *current_sound_device;
 223 struct sound *current_sound;
 224
 225 /* Function prototypes.  */
 226
 227 static void vox_open P_ ((struct sound_device *));
 228 static void vox_configure P_ ((struct sound_device *));
 229 static void vox_close P_ ((struct sound_device *sd));
 230 static void vox_choose_format P_ ((struct sound_device *, struct sound *));
 231 static void vox_init P_ ((struct sound_device *));
 232 static void vox_write P_ ((struct sound_device *, char *, int));
 233 static void sound_perror P_ ((char *));
 234 static int parse_sound P_ ((Lisp_Object, Lisp_Object *));
 235 static void find_sound_type P_ ((struct sound *));
 236 static u_int32_t le2hl P_ ((u_int32_t));
 237 static u_int16_t le2hs P_ ((u_int16_t));
 238 static u_int32_t be2hl P_ ((u_int32_t));
 239 static int wav_init P_ ((struct sound *));
 240 static void wav_play P_ ((struct sound *, struct sound_device *));
 241 static int au_init P_ ((struct sound *));
 242 static void au_play P_ ((struct sound *, struct sound_device *));
 243
 244 #if 0 /* Currently not used.  */
 245 static u_int16_t be2hs P_ ((u_int16_t));
 246 #endif
 247
 248
 249 \f
 250 /***********************************************************************
 251                                General
 252  ***********************************************************************/
 253
 254 /* Like perror, but signals an error.  */
 255
 256 static void
 257 sound_perror (msg)
 258      char *msg;
 259 {
 260   error ("%s: %s", msg, strerror (errno));
 261 }
 262
 263
 264 /* Parse sound specification SOUND, and fill ATTRS with what is
 265    found.  Value is non-zero if SOUND Is a valid sound specification.
 266    A valid sound specification is a list starting with the symbol
 267    `sound'.  The rest of the list is a property list which may
 268    contain the following key/value pairs:
 269
 270    - `:file FILE'
 271
 272    FILE is the sound file to play.  If it isn't an absolute name,
 273    it's searched under `data-directory'.
 274
 275    - `:data DATA'
 276
 277    DATA is a string containing sound data.  Either :file or :data
 278    may be present, but not both.
 279
 280    - `:device DEVICE'
 281
 282    DEVICE is the name of the device to play on, e.g. "/dev/dsp2".
 283    If not specified, a default device is used.
 284
 285    - `:volume VOL'
 286
 287    VOL must be an integer in the range [0, 100], or a float in the
 288    range [0, 1].  */
 289
 290 static int
 291 parse_sound (sound, attrs)
 292      Lisp_Object sound;
 293      Lisp_Object *attrs;
 294 {
 295   /* SOUND must be a list starting with the symbol `sound'.  */
 296   if (!CONSP (sound) || !EQ (XCAR (sound), Qsound))
 297     return 0;
 298
 299   sound = XCDR (sound);
 300   attrs[SOUND_FILE] = Fplist_get (sound, QCfile);
 301   attrs[SOUND_DATA] = Fplist_get (sound, QCdata);
 302   attrs[SOUND_DEVICE] = Fplist_get (sound, QCdevice);
 303   attrs[SOUND_VOLUME] = Fplist_get (sound, QCvolume);
 304
 305   /* File name or data must be specified.  */
 306   if (!STRINGP (attrs[SOUND_FILE])
 307       && !STRINGP (attrs[SOUND_DATA]))
 308     return 0;
 309
 310   /* Volume must be in the range 0..100 or unspecified.  */
 311   if (!NILP (attrs[SOUND_VOLUME]))
 312     {
 313       if (INTEGERP (attrs[SOUND_VOLUME]))
 314         {
 315           if (XINT (attrs[SOUND_VOLUME]) < 0
 316               || XINT (attrs[SOUND_VOLUME]) > 100)
 317             return 0;
 318         }
 319       else if (FLOATP (attrs[SOUND_VOLUME]))
 320         {
 321           if (XFLOAT_DATA (attrs[SOUND_VOLUME]) < 0
 322               || XFLOAT_DATA (attrs[SOUND_VOLUME]) > 1)
 323             return 0;
 324         }
 325       else
 326         return 0;
 327     }
 328
 329   /* Device must be a string or unspecified.  */
 330   if (!NILP (attrs[SOUND_DEVICE])
 331       && !STRINGP (attrs[SOUND_DEVICE]))
 332     return 0;
 333
 334   return 1;
 335 }
 336
 337
 338 /* Find out the type of the sound file whose file descriptor is FD.
 339    S is the sound file structure to fill in.  */
 340
 341 static void
 342 find_sound_type (s)
 343      struct sound *s;
 344 {
 345   if (!wav_init (s) && !au_init (s))
 346     error ("Unknown sound format");
 347 }
 348
 349
 350 /* Function installed by play-sound with record_unwind_protect.  */
 351
 352 static Lisp_Object
 353 sound_cleanup (arg)
 354      Lisp_Object arg;
 355 {
 356   if (current_sound_device)
 357     {
 358       if (current_sound_device->close)
 359         current_sound_device->close (current_sound_device);
 360       if (current_sound->fd > 0)
 361         emacs_close (current_sound->fd);
 362     }
 363
 364   return Qnil;
 365 }
 366
 367
 368 DEFUN ("play-sound", Fplay_sound, Splay_sound, 1, 1, 0,
 369   "Play sound SOUND.\n\
 370 SOUND is a list of the form `(sound KEYWORD VALUE...)'.\n\
 371 The following keywords are recognized:\n\
 372 \n\
 373   :file FILE.- read sound data from FILE.  If FILE isn't an\n\
 374 absolute file name, it is searched in `data-directory'.\n\
 375 \n\
 376   :data DATA - read sound data from string DATA.\n\
 377 \n\
 378 Exactly one of :file or :data must be present.\n\
 379 \n\
 380   :volume VOL - set volume to VOL.  VOL must an integer in the\n\
 381 range 0..100 or a float in the range 0..1.0.  If not specified,\n\
 382 don't change the volume setting of the sound device.\n\
 383 \n\
 384   :device DEVICE - play sound on DEVICE.  If not specified,\n\
 385 a system-dependent default device name is used.")
 386   (sound)
 387      Lisp_Object sound;
 388 {
 389   Lisp_Object attrs[SOUND_ATTR_SENTINEL];
 390   Lisp_Object file;
 391   struct gcpro gcpro1, gcpro2;
 392   struct sound_device sd;
 393   struct sound s;
 394   Lisp_Object args[2];
 395   int count = specpdl_ptr - specpdl;
 396
 397   file = Qnil;
 398   GCPRO2 (sound, file);
 399   bzero (&sd, sizeof sd);
 400   bzero (&s, sizeof s);
 401   current_sound_device = &sd;
 402   current_sound = &s;
 403   record_unwind_protect (sound_cleanup, Qnil);
 404   s.header = (char *) alloca (MAX_SOUND_HEADER_BYTES);
 405
 406   /* Parse the sound specification.  Give up if it is invalid.  */
 407   if (!parse_sound (sound, attrs))
 408     error ("Invalid sound specification");
 409
 410   if (STRINGP (attrs[SOUND_FILE]))
 411     {
 412       /* Open the sound file.  */
 413       s.fd = openp (Fcons (Vdata_directory, Qnil),
 414                      attrs[SOUND_FILE], "", &file, 0);
 415       if (s.fd < 0)
 416         sound_perror ("Open sound file");
 417
 418       /* Read the first bytes from the file.  */
 419       s.header_size = emacs_read (s.fd, s.header, MAX_SOUND_HEADER_BYTES);
 420       if (s.header_size < 0)
 421         sound_perror ("Reading sound file header");
 422     }
 423   else
 424     {
 425       s.data = attrs[SOUND_DATA];
 426       bcopy (XSTRING (s.data)->data, s.header,
 427              min (MAX_SOUND_HEADER_BYTES, STRING_BYTES (XSTRING (s.data))));
 428     }
 429
 430   /* Find out the type of sound.  Give up if we can't tell.  */
 431   find_sound_type (&s);
 432
 433   /* Set up a device.  */
 434   if (STRINGP (attrs[SOUND_DEVICE]))
 435     {
 436       int len = XSTRING (attrs[SOUND_DEVICE])->size;
 437       sd.file = (char *) alloca (len + 1);
 438       strcpy (sd.file, XSTRING (attrs[SOUND_DEVICE])->data);
 439     }
 440
 441   if (INTEGERP (attrs[SOUND_VOLUME]))
 442     sd.volume = XFASTINT (attrs[SOUND_VOLUME]);
 443   else if (FLOATP (attrs[SOUND_VOLUME]))
 444     sd.volume = XFLOAT_DATA (attrs[SOUND_VOLUME]) * 100;
 445
 446   args[0] = Qplay_sound_functions;
 447   args[1] = sound;
 448   Frun_hook_with_args (2, args);
 449
 450   /* There is only one type of device we currently support, the VOX
 451      sound driver.  Set up the device interface functions for that
 452      device.  */
 453   vox_init (&sd);
 454
 455   /* Open the device.  */
 456   sd.open (&sd);
 457
 458   /* Play the sound.  */
 459   s.play (&s, &sd);
 460
 461   /* Close the input file, if any.  */
 462   if (!STRINGP (s.data))
 463     {
 464       emacs_close (s.fd);
 465       s.fd = -1;
 466     }
 467
 468   /* Close the device.  */
 469   sd.close (&sd);
 470
 471   /* Clean up.  */
 472   current_sound_device = NULL;
 473   current_sound = NULL;
 474   UNGCPRO;
 475   unbind_to (count, Qnil);
 476   return Qnil;
 477 }
 478
 479 \f
 480 /***********************************************************************
 481                         Byte-order Conversion
 482  ***********************************************************************/
 483
 484 /* Convert 32-bit value VALUE which is in little-endian byte-order
 485    to host byte-order.  */
 486
 487 static u_int32_t
 488 le2hl (value)
 489      u_int32_t value;
 490 {
 491 #ifdef WORDS_BIG_ENDIAN
 492   unsigned char *p = (unsigned char *) &value;
 493   value = p[0] + (p[1] << 8) + (p[2] << 16) + (p[3] << 24);
 494 #endif
 495   return value;
 496 }
 497
 498
 499 /* Convert 16-bit value VALUE which is in little-endian byte-order
 500    to host byte-order.  */
 501
 502 static u_int16_t
 503 le2hs (value)
 504      u_int16_t value;
 505 {
 506 #ifdef WORDS_BIG_ENDIAN
 507   unsigned char *p = (unsigned char *) &value;
 508   value = p[0] + (p[1] << 8);
 509 #endif
 510   return value;
 511 }
 512
 513
 514 /* Convert 32-bit value VALUE which is in big-endian byte-order
 515    to host byte-order.  */
 516
 517 static u_int32_t
 518 be2hl (value)
 519      u_int32_t value;
 520 {
 521 #ifndef WORDS_BIG_ENDIAN
 522   unsigned char *p = (unsigned char *) &value;
 523   value = p[3] + (p[2] << 8) + (p[1] << 16) + (p[0] << 24);
 524 #endif
 525   return value;
 526 }
 527
 528
 529 #if 0 /* Currently not used.  */
 530
 531 /* Convert 16-bit value VALUE which is in big-endian byte-order
 532    to host byte-order.  */
 533
 534 static u_int16_t
 535 be2hs (value)
 536      u_int16_t value;
 537 {
 538 #ifndef WORDS_BIG_ENDIAN
 539   unsigned char *p = (unsigned char *) &value;
 540   value = p[1] + (p[0] << 8);
 541 #endif
 542   return value;
 543 }
 544
 545 #endif /* 0 */
 546
 547 \f
 548 /***********************************************************************
 549                           RIFF-WAVE (*.wav)
 550  ***********************************************************************/
 551
 552 /* Try to initialize sound file S from S->header.  S->header
 553    contains the first MAX_SOUND_HEADER_BYTES number of bytes from the
 554    sound file.  If the file is a WAV-format file, set up interface
 555    functions in S and convert header fields to host byte-order.
 556    Value is non-zero if the file is a WAV file.  */
 557
 558 static int
 559 wav_init (s)
 560      struct sound *s;
 561 {
 562   struct wav_header *header = (struct wav_header *) s->header;
 563
 564   if (s->header_size < sizeof *header
 565       || bcmp (s->header, "RIFF", 4) != 0)
 566     return 0;
 567
 568   /* WAV files are in little-endian order.  Convert the header
 569      if on a big-endian machine.  */
 570   header->magic = le2hl (header->magic);
 571   header->length = le2hl (header->length);
 572   header->chunk_type = le2hl (header->chunk_type);
 573   header->chunk_format = le2hl (header->chunk_format);
 574   header->chunk_length = le2hl (header->chunk_length);
 575   header->format = le2hs (header->format);
 576   header->channels = le2hs (header->channels);
 577   header->sample_rate = le2hl (header->sample_rate);
 578   header->bytes_per_second = le2hl (header->bytes_per_second);
 579   header->sample_size = le2hs (header->sample_size);
 580   header->precision = le2hs (header->precision);
 581   header->chunk_data = le2hl (header->chunk_data);
 582   header->data_length = le2hl (header->data_length);
 583
 584   /* Set up the interface functions for WAV.  */
 585   s->type = RIFF;
 586   s->play = wav_play;
 587
 588   return 1;
 589 }
 590
 591
 592 /* Play RIFF-WAVE audio file S on sound device SD.  */
 593
 594 static void
 595 wav_play (s, sd)
 596      struct sound *s;
 597      struct sound_device *sd;
 598 {
 599   struct wav_header *header = (struct wav_header *) s->header;
 600
 601   /* Let the device choose a suitable device-dependent format
 602      for the file.  */
 603   sd->choose_format (sd, s);
 604
 605   /* Configure the device.  */
 606   sd->sample_size = header->sample_size;
 607   sd->sample_rate = header->sample_rate;
 608   sd->bps = header->bytes_per_second;
 609   sd->channels = header->channels;
 610   sd->configure (sd);
 611
 612   /* Copy sound data to the device.  The WAV file specification is
 613      actually more complex.  This simple scheme worked with all WAV
 614      files I found so far.  If someone feels inclined to implement the
 615      whole RIFF-WAVE spec, please do.  */
 616   if (STRINGP (s->data))
 617     sd->write (sd, XSTRING (s->data)->data + sizeof *header,
 618                STRING_BYTES (XSTRING (s->data)) - sizeof *header);
 619   else
 620     {
 621       char *buffer;
 622       int nbytes;
 623       int blksize = 2048;
 624
 625       buffer = (char *) alloca (blksize);
 626       lseek (s->fd, sizeof *header, SEEK_SET);
 627
 628       while ((nbytes = emacs_read (s->fd, buffer, blksize)) > 0)
 629         sd->write (sd, buffer, nbytes);
 630
 631       if (nbytes < 0)
 632         sound_perror ("Reading sound file");
 633     }
 634 }
 635
 636
 637 \f
 638 /***********************************************************************
 639                            Sun Audio (*.au)
 640  ***********************************************************************/
 641
 642 /* Sun audio file encodings.  */
 643
 644 enum au_encoding
 645 {
 646   AU_ENCODING_ULAW_8 = 1,
 647   AU_ENCODING_8,
 648   AU_ENCODING_16,
 649   AU_ENCODING_24,
 650   AU_ENCODING_32,
 651   AU_ENCODING_IEEE32,
 652   AU_ENCODING_IEEE64,
 653   AU_COMPRESSED = 23
 654 };
 655
 656
 657 /* Try to initialize sound file S from S->header.  S->header
 658    contains the first MAX_SOUND_HEADER_BYTES number of bytes from the
 659    sound file.  If the file is a AU-format file, set up interface
 660    functions in S and convert header fields to host byte-order.
 661    Value is non-zero if the file is an AU file.  */
 662
 663 static int
 664 au_init (s)
 665      struct sound *s;
 666 {
 667   struct au_header *header = (struct au_header *) s->header;
 668
 669   if (s->header_size < sizeof *header
 670       || bcmp (s->header, ".snd", 4) != 0)
 671     return 0;
 672
 673   header->magic_number = be2hl (header->magic_number);
 674   header->data_offset = be2hl (header->data_offset);
 675   header->data_size = be2hl (header->data_size);
 676   header->encoding = be2hl (header->encoding);
 677   header->sample_rate = be2hl (header->sample_rate);
 678   header->channels = be2hl (header->channels);
 679
 680   /* Set up the interface functions for AU.  */
 681   s->type = SUN_AUDIO;
 682   s->play = au_play;
 683
 684   return 1;
 685 }
 686
 687
 688 /* Play Sun audio file S on sound device SD.  */
 689
 690 static void
 691 au_play (s, sd)
 692      struct sound *s;
 693      struct sound_device *sd;
 694 {
 695   struct au_header *header = (struct au_header *) s->header;
 696
 697   sd->sample_size = 0;
 698   sd->sample_rate = header->sample_rate;
 699   sd->bps = 0;
 700   sd->channels = header->channels;
 701   sd->choose_format (sd, s);
 702   sd->configure (sd);
 703
 704   if (STRINGP (s->data))
 705     sd->write (sd, XSTRING (s->data)->data + header->data_offset,
 706                STRING_BYTES (XSTRING (s->data)) - header->data_offset);
 707   else
 708     {
 709       int blksize = 2048;
 710       char *buffer;
 711       int nbytes;
 712
 713       /* Seek */
 714       lseek (s->fd, header->data_offset, SEEK_SET);
 715
 716       /* Copy sound data to the device.  */
 717       buffer = (char *) alloca (blksize);
 718       while ((nbytes = emacs_read (s->fd, buffer, blksize)) > 0)
 719         sd->write (sd, buffer, nbytes);
 720
 721       if (nbytes < 0)
 722         sound_perror ("Reading sound file");
 723     }
 724 }
 725
 726
 727 \f
 728 /***********************************************************************
 729                        Voxware Driver Interface
 730  ***********************************************************************/
 731
 732 /* This driver is available on GNU/Linux, and the free BSDs.  FreeBSD
 733    has a compatible own driver aka Luigi's driver.  */
 734
 735
 736 /* Open device SD.  If SD->file is non-null, open that device,
 737    otherwise use a default device name.  */
 738
 739 static void
 740 vox_open (sd)
 741      struct sound_device *sd;
 742 {
 743   char *file;
 744
 745   /* Open the sound device.  Default is /dev/dsp.  */
 746   if (sd->file)
 747     file = sd->file;
 748   else
 749     file = DEFAULT_SOUND_DEVICE;
 750
 751   sd->fd = emacs_open (file, O_WRONLY, 0);
 752   if (sd->fd < 0)
 753     sound_perror (file);
 754 }
 755
 756
 757 /* Configure device SD from parameters in it.  */
 758
 759 static void
 760 vox_configure (sd)
 761      struct sound_device *sd;
 762 {
 763   int requested;
 764
 765   xassert (sd->fd >= 0);
 766
 767   /* Device parameters apparently depend on each other in undocumented
 768      ways (not to imply that there is any real documentation).  Be
 769      careful when reordering the calls below.  */
 770   if (sd->sample_size > 0
 771       && ioctl (sd->fd, SNDCTL_DSP_SAMPLESIZE, &sd->sample_size) < 0)
 772     sound_perror ("Setting sample size");
 773
 774   if (sd->bps > 0
 775       && ioctl (sd->fd, SNDCTL_DSP_SPEED, &sd->bps) < 0)
 776     sound_perror ("Setting speed");
 777
 778   if (sd->sample_rate > 0
 779       && ioctl (sd->fd, SOUND_PCM_WRITE_RATE, &sd->sample_rate) < 0)
 780     sound_perror ("Setting sample rate");
 781
 782   requested = sd->format;
 783   if (ioctl (sd->fd, SNDCTL_DSP_SETFMT, &sd->format) < 0)
 784     sound_perror ("Setting format");
 785   else if (requested != sd->format)
 786     error ("Setting format");
 787
 788   if (sd->channels > 1
 789       && ioctl (sd->fd, SNDCTL_DSP_STEREO, &sd->channels) < 0)
 790     sound_perror ("Setting channels");
 791
 792   if (sd->volume > 0)
 793     {
 794       int volume = sd->volume & 0xff;
 795       volume |= volume << 8;
 796       if (ioctl (sd->fd, SOUND_MIXER_WRITE_PCM, &volume) < 0)
 797         sound_perror ("Setting volume");
 798     }
 799 }
 800
 801
 802 /* Close device SD if it is open.  */
 803
 804 static void
 805 vox_close (sd)
 806      struct sound_device *sd;
 807 {
 808   if (sd->fd >= 0)
 809     {
 810       /* Flush sound data, and reset the device.  */
 811       ioctl (sd->fd, SNDCTL_DSP_SYNC, NULL);
 812       ioctl (sd->fd, SNDCTL_DSP_RESET, NULL);
 813
 814       /* Close the device.  */
 815       emacs_close (sd->fd);
 816       sd->fd = -1;
 817     }
 818 }
 819
 820
 821 /* Choose device-dependent format for device SD from sound file S.  */
 822
 823 static void
 824 vox_choose_format (sd, s)
 825      struct sound_device *sd;
 826      struct sound *s;
 827 {
 828   if (s->type == RIFF)
 829     {
 830       struct wav_header *h = (struct wav_header *) s->header;
 831       if (h->precision == 8)
 832         sd->format = AFMT_U8;
 833       else if (h->precision == 16)
 834         sd->format = AFMT_S16_LE;
 835       else
 836         error ("Unsupported WAV file format");
 837     }
 838   else if (s->type == SUN_AUDIO)
 839     {
 840       struct au_header *header = (struct au_header *) s->header;
 841       switch (header->encoding)
 842         {
 843         case AU_ENCODING_ULAW_8:
 844         case AU_ENCODING_IEEE32:
 845         case AU_ENCODING_IEEE64:
 846           sd->format = AFMT_MU_LAW;
 847           break;
 848
 849         case AU_ENCODING_8:
 850         case AU_ENCODING_16:
 851         case AU_ENCODING_24:
 852         case AU_ENCODING_32:
 853           sd->format = AFMT_S16_LE;
 854           break;
 855
 856         default:
 857           error ("Unsupported AU file format");
 858         }
 859     }
 860   else
 861     abort ();
 862 }
 863
 864
 865 /* Initialize device SD.  Set up the interface functions in the device
 866    structure.  */
 867
 868 static void
 869 vox_init (sd)
 870      struct sound_device *sd;
 871 {
 872   sd->fd = -1;
 873   sd->open = vox_open;
 874   sd->close = vox_close;
 875   sd->configure = vox_configure;
 876   sd->choose_format = vox_choose_format;
 877   sd->write = vox_write;
 878 }
 879
 880
 881 /* Write NBYTES bytes from BUFFER to device SD.  */
 882
 883 static void
 884 vox_write (sd, buffer, nbytes)
 885      struct sound_device *sd;
 886      char *buffer;
 887      int nbytes;
 888 {
 889   int nwritten = emacs_write (sd->fd, buffer, nbytes);
 890   if (nwritten < 0)
 891     sound_perror ("Writing to sound device");
 892 }
 893
 894
 895 \f
 896 /***********************************************************************
 897                             Initialization
 898  ***********************************************************************/
 899
 900 void
 901 syms_of_sound ()
 902 {
 903   QCdevice = intern (":device");
 904   staticpro (&QCdevice);
 905   QCvolume = intern (":volume");
 906   staticpro (&QCvolume);
 907   Qsound = intern ("sound");
 908   staticpro (&Qsound);
 909   Qplay_sound_functions = intern ("play-sound-functions");
 910   staticpro (&Qplay_sound_functions);
 911
 912   defsubr (&Splay_sound);
 913 }
 914
 915
 916 void
 917 init_sound ()
 918 {
 919 }
 920
 921 #endif /* HAVE_SOUND */