Mercurial > emacs
annotate src/sound.c @ 98660:90b078ed2dc4
(grep-mode-tool-bar-map): Check if tool-bar-map has been initialized
before setting it up.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 12 Oct 2008 13:46:13 +0000 |
parents | 8971ddf55736 |
children | e038c1a8307c |
rev | line source |
---|---|
25003 | 1 /* sound.c -- sound support. |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, |
79759 | 3 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
25003 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92704
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
25003 | 8 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92704
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92704
diff
changeset
|
10 (at your option) any later version. |
25003 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92704
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
25003 | 19 |
20 /* Written by Gerd Moellmann <gerd@gnu.org>. Tested with Luigi's | |
21 driver on FreeBSD 2.2.7 with a SoundBlaster 16. */ | |
22 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
23 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
24 Modified by Ben Key <Bkey1@tampabay.rr.com> to add a partial |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
25 implementation of the play-sound specification for Windows. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
26 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
27 Notes: |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
28 In the Windows implementation of play-sound-internal only the |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
29 :file and :volume keywords are supported. The :device keyword, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
30 if present, is ignored. The :data keyword, if present, will |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
31 cause an error to be generated. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
32 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
33 The Windows implementation of play-sound is implemented via the |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
34 Win32 API functions mciSendString, waveOutGetVolume, and |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
35 waveOutSetVolume which are exported by Winmm.dll. |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
36 */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
37 |
25003 | 38 #include <config.h> |
39 | |
40 #if defined HAVE_SOUND | |
41 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
42 /* BEGIN: Common Includes */ |
25003 | 43 #include <fcntl.h> |
44 #include <unistd.h> | |
45 #include <sys/types.h> | |
46 #include <errno.h> | |
38297
17465a81d1dd
Include Emacs' header files with #include "...".
Gerd Moellmann <gerd@gnu.org>
parents:
38215
diff
changeset
|
47 #include "lisp.h" |
17465a81d1dd
Include Emacs' header files with #include "...".
Gerd Moellmann <gerd@gnu.org>
parents:
38215
diff
changeset
|
48 #include "dispextern.h" |
17465a81d1dd
Include Emacs' header files with #include "...".
Gerd Moellmann <gerd@gnu.org>
parents:
38215
diff
changeset
|
49 #include "atimer.h" |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
50 #include <signal.h> |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
51 #include "syssignal.h" |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
52 /* END: Common Includes */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
53 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
54 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
55 /* BEGIN: Non Windows Includes */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
56 #ifndef WINDOWSNT |
25003 | 57 |
39969
21d7408e0d86
Include <sys/ioctl.h> also on systems without <soundcard.h>.
Pavel Janík <Pavel@Janik.cz>
parents:
39812
diff
changeset
|
58 #ifndef MSDOS |
21d7408e0d86
Include <sys/ioctl.h> also on systems without <soundcard.h>.
Pavel Janík <Pavel@Janik.cz>
parents:
39812
diff
changeset
|
59 #include <sys/ioctl.h> |
21d7408e0d86
Include <sys/ioctl.h> also on systems without <soundcard.h>.
Pavel Janík <Pavel@Janik.cz>
parents:
39812
diff
changeset
|
60 #endif |
21d7408e0d86
Include <sys/ioctl.h> also on systems without <soundcard.h>.
Pavel Janík <Pavel@Janik.cz>
parents:
39812
diff
changeset
|
61 |
25003 | 62 /* FreeBSD has machine/soundcard.h. Voxware sound driver docs mention |
63 sys/soundcard.h. So, let's try whatever's there. */ | |
64 | |
65 #ifdef HAVE_MACHINE_SOUNDCARD_H | |
66 #include <machine/soundcard.h> | |
67 #endif | |
68 #ifdef HAVE_SYS_SOUNDCARD_H | |
69 #include <sys/soundcard.h> | |
70 #endif | |
30079
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
71 #ifdef HAVE_SOUNDCARD_H |
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
72 #include <soundcard.h> |
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
73 #endif |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
74 #ifdef HAVE_ALSA |
74775
62968fe3ddad
Include <alsa/asoundlib.h> if ALSA_SUBDIR_INCLUDE is
Jan Djärv <jan.h.d@swipnet.se>
parents:
74315
diff
changeset
|
75 #ifdef ALSA_SUBDIR_INCLUDE |
62968fe3ddad
Include <alsa/asoundlib.h> if ALSA_SUBDIR_INCLUDE is
Jan Djärv <jan.h.d@swipnet.se>
parents:
74315
diff
changeset
|
76 #include <alsa/asoundlib.h> |
62968fe3ddad
Include <alsa/asoundlib.h> if ALSA_SUBDIR_INCLUDE is
Jan Djärv <jan.h.d@swipnet.se>
parents:
74315
diff
changeset
|
77 #else |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
78 #include <asoundlib.h> |
74775
62968fe3ddad
Include <alsa/asoundlib.h> if ALSA_SUBDIR_INCLUDE is
Jan Djärv <jan.h.d@swipnet.se>
parents:
74315
diff
changeset
|
79 #endif /* ALSA_SUBDIR_INCLUDE */ |
62968fe3ddad
Include <alsa/asoundlib.h> if ALSA_SUBDIR_INCLUDE is
Jan Djärv <jan.h.d@swipnet.se>
parents:
74315
diff
changeset
|
80 #endif /* HAVE_ALSA */ |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
81 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
82 /* END: Non Windows Includes */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
83 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
84 #else /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
85 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
86 /* BEGIN: Windows Specific Includes */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
87 #include <stdio.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
88 #include <stdlib.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
89 #include <string.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
90 #include <limits.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
91 #include <windows.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
92 #include <mmsystem.h> |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
93 /* END: Windows Specific Includes */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
94 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
95 #endif /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
96 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
97 /* BEGIN: Common Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
98 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
99 /* Symbols. */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
100 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
101 extern Lisp_Object QCfile, QCdata; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
102 Lisp_Object QCvolume, QCdevice; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
103 Lisp_Object Qsound; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
104 Lisp_Object Qplay_sound_functions; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
105 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
106 /* Indices of attributes in a sound attributes vector. */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
107 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
108 enum sound_attr |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
109 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
110 SOUND_FILE, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
111 SOUND_DATA, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
112 SOUND_DEVICE, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
113 SOUND_VOLUME, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
114 SOUND_ATTR_SENTINEL |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
115 }; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
116 |
71063
7510757f449b
* search.c (matcher_overflow): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
71062
diff
changeset
|
117 static void alsa_sound_perror P_ ((char *, int)) NO_RETURN; |
7510757f449b
* search.c (matcher_overflow): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
71062
diff
changeset
|
118 static void sound_perror P_ ((char *)) NO_RETURN; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
119 static void sound_warning P_ ((char *)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
120 static int parse_sound P_ ((Lisp_Object, Lisp_Object *)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
121 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
122 /* END: Common Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
123 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
124 /* BEGIN: Non Windows Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
125 #ifndef WINDOWSNT |
30079
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
126 |
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
127 #ifndef DEFAULT_SOUND_DEVICE |
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
128 #define DEFAULT_SOUND_DEVICE "/dev/dsp" |
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
129 #endif |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
130 #ifndef DEFAULT_ALSA_SOUND_DEVICE |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
131 #define DEFAULT_ALSA_SOUND_DEVICE "default" |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
132 #endif |
25003 | 133 |
134 | |
135 /* Structure forward declarations. */ | |
136 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
137 struct sound; |
25003 | 138 struct sound_device; |
139 | |
140 /* The file header of RIFF-WAVE files (*.wav). Files are always in | |
141 little-endian byte-order. */ | |
142 | |
143 struct wav_header | |
144 { | |
145 u_int32_t magic; | |
146 u_int32_t length; | |
147 u_int32_t chunk_type; | |
148 u_int32_t chunk_format; | |
149 u_int32_t chunk_length; | |
150 u_int16_t format; | |
151 u_int16_t channels; | |
152 u_int32_t sample_rate; | |
153 u_int32_t bytes_per_second; | |
154 u_int16_t sample_size; | |
155 u_int16_t precision; | |
156 u_int32_t chunk_data; | |
157 u_int32_t data_length; | |
158 }; | |
159 | |
160 /* The file header of Sun adio files (*.au). Files are always in | |
161 big-endian byte-order. */ | |
162 | |
163 struct au_header | |
164 { | |
165 /* ASCII ".snd" */ | |
166 u_int32_t magic_number; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
167 |
25003 | 168 /* Offset of data part from start of file. Minimum value is 24. */ |
169 u_int32_t data_offset; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
170 |
25003 | 171 /* Size of data part, 0xffffffff if unknown. */ |
172 u_int32_t data_size; | |
173 | |
174 /* Data encoding format. | |
175 1 8-bit ISDN u-law | |
176 2 8-bit linear PCM (REF-PCM) | |
177 3 16-bit linear PCM | |
178 4 24-bit linear PCM | |
179 5 32-bit linear PCM | |
180 6 32-bit IEEE floating-point | |
181 7 64-bit IEEE floating-point | |
182 23 8-bit u-law compressed using CCITT 0.721 ADPCM voice data | |
183 encoding scheme. */ | |
184 u_int32_t encoding; | |
185 | |
186 /* Number of samples per second. */ | |
187 u_int32_t sample_rate; | |
188 | |
189 /* Number of interleaved channels. */ | |
190 u_int32_t channels; | |
191 }; | |
192 | |
193 /* Maximum of all sound file headers sizes. */ | |
194 | |
195 #define MAX_SOUND_HEADER_BYTES \ | |
196 max (sizeof (struct wav_header), sizeof (struct au_header)) | |
197 | |
198 /* Interface structure for sound devices. */ | |
199 | |
200 struct sound_device | |
201 { | |
202 /* The name of the device or null meaning use a default device name. */ | |
203 char *file; | |
204 | |
205 /* File descriptor of the device. */ | |
206 int fd; | |
207 | |
208 /* Device-dependent format. */ | |
209 int format; | |
210 | |
211 /* Volume (0..100). Zero means unspecified. */ | |
212 int volume; | |
213 | |
214 /* Sample size. */ | |
215 int sample_size; | |
216 | |
217 /* Sample rate. */ | |
218 int sample_rate; | |
219 | |
220 /* Bytes per second. */ | |
221 int bps; | |
222 | |
223 /* 1 = mono, 2 = stereo, 0 = don't set. */ | |
224 int channels; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
225 |
25003 | 226 /* Open device SD. */ |
227 void (* open) P_ ((struct sound_device *sd)); | |
228 | |
229 /* Close device SD. */ | |
230 void (* close) P_ ((struct sound_device *sd)); | |
231 | |
232 /* Configure SD accoring to device-dependent parameters. */ | |
233 void (* configure) P_ ((struct sound_device *device)); | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
234 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
235 /* Choose a device-dependent format for outputting sound S. */ |
25003 | 236 void (* choose_format) P_ ((struct sound_device *sd, |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
237 struct sound *s)); |
25003 | 238 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
239 /* Return a preferred data size in bytes to be sent to write (below) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
240 each time. 2048 is used if this is NULL. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
241 int (* period_size) P_ ((struct sound_device *sd)); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
242 |
25003 | 243 /* Write NYBTES bytes from BUFFER to device SD. */ |
46554
fb13fafbd279
(struct sound_device): Function pointer field "write"
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
244 void (* write) P_ ((struct sound_device *sd, const char *buffer, |
fb13fafbd279
(struct sound_device): Function pointer field "write"
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
245 int nbytes)); |
25003 | 246 |
247 /* A place for devices to store additional data. */ | |
248 void *data; | |
249 }; | |
250 | |
251 /* An enumerator for each supported sound file type. */ | |
252 | |
253 enum sound_type | |
254 { | |
255 RIFF, | |
256 SUN_AUDIO | |
257 }; | |
258 | |
259 /* Interface structure for sound files. */ | |
260 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
261 struct sound |
25003 | 262 { |
263 /* The type of the file. */ | |
264 enum sound_type type; | |
265 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
266 /* File descriptor of a sound file. */ |
25003 | 267 int fd; |
268 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
269 /* Pointer to sound file header. This contains header_size bytes |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
270 read from the start of a sound file. */ |
25003 | 271 char *header; |
272 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
273 /* Number of bytes raed from sound file. This is always <= |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
274 MAX_SOUND_HEADER_BYTES. */ |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
275 int header_size; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
276 |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
277 /* Sound data, if a string. */ |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
278 Lisp_Object data; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
279 |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
280 /* Play sound file S on device SD. */ |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
281 void (* play) P_ ((struct sound *s, struct sound_device *sd)); |
25003 | 282 }; |
283 | |
44399
a399428859ff
(Fplay_sound_internal): Renamed from Fplay_sound.
Pavel Janík <Pavel@Janik.cz>
parents:
42754
diff
changeset
|
284 /* These are set during `play-sound-internal' so that sound_cleanup has |
25003 | 285 access to them. */ |
286 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
287 struct sound_device *current_sound_device; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
288 struct sound *current_sound; |
25003 | 289 |
290 /* Function prototypes. */ | |
291 | |
292 static void vox_open P_ ((struct sound_device *)); | |
293 static void vox_configure P_ ((struct sound_device *)); | |
294 static void vox_close P_ ((struct sound_device *sd)); | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
295 static void vox_choose_format P_ ((struct sound_device *, struct sound *)); |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
296 static int vox_init P_ ((struct sound_device *)); |
46554
fb13fafbd279
(struct sound_device): Function pointer field "write"
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
297 static void vox_write P_ ((struct sound_device *, const char *, int)); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
298 static void find_sound_type P_ ((struct sound *)); |
25003 | 299 static u_int32_t le2hl P_ ((u_int32_t)); |
300 static u_int16_t le2hs P_ ((u_int16_t)); | |
301 static u_int32_t be2hl P_ ((u_int32_t)); | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
302 static int wav_init P_ ((struct sound *)); |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
303 static void wav_play P_ ((struct sound *, struct sound_device *)); |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
304 static int au_init P_ ((struct sound *)); |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
305 static void au_play P_ ((struct sound *, struct sound_device *)); |
25003 | 306 |
25722
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
307 #if 0 /* Currently not used. */ |
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
308 static u_int16_t be2hs P_ ((u_int16_t)); |
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
309 #endif |
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
310 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
311 /* END: Non Windows Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
312 #else /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
313 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
314 /* BEGIN: Windows Specific Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
315 static int do_play_sound P_ ((const char *, unsigned long)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
316 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
317 END: Windows Specific Definitions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
318 #endif /* WINDOWSNT */ |
25003 | 319 |
320 | |
321 /*********************************************************************** | |
322 General | |
323 ***********************************************************************/ | |
324 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
325 /* BEGIN: Common functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
326 |
25003 | 327 /* Like perror, but signals an error. */ |
328 | |
329 static void | |
330 sound_perror (msg) | |
331 char *msg; | |
332 { | |
40745
1622bfdfe454
(sound_perror): Save errno from being clobbered.
Andreas Schwab <schwab@suse.de>
parents:
40364
diff
changeset
|
333 int saved_errno = errno; |
1622bfdfe454
(sound_perror): Save errno from being clobbered.
Andreas Schwab <schwab@suse.de>
parents:
40364
diff
changeset
|
334 |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
335 turn_on_atimers (1); |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
336 #ifdef SIGIO |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
337 sigunblock (sigmask (SIGIO)); |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
338 #endif |
40745
1622bfdfe454
(sound_perror): Save errno from being clobbered.
Andreas Schwab <schwab@suse.de>
parents:
40364
diff
changeset
|
339 if (saved_errno != 0) |
1622bfdfe454
(sound_perror): Save errno from being clobbered.
Andreas Schwab <schwab@suse.de>
parents:
40364
diff
changeset
|
340 error ("%s: %s", msg, strerror (saved_errno)); |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
341 else |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
342 error ("%s", msg); |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
343 } |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
344 |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
345 |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
346 /* Display a warning message. */ |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
347 |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
348 static void |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
349 sound_warning (msg) |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
350 char *msg; |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
351 { |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
352 message (msg); |
25003 | 353 } |
354 | |
355 | |
356 /* Parse sound specification SOUND, and fill ATTRS with what is | |
357 found. Value is non-zero if SOUND Is a valid sound specification. | |
358 A valid sound specification is a list starting with the symbol | |
359 `sound'. The rest of the list is a property list which may | |
360 contain the following key/value pairs: | |
361 | |
362 - `:file FILE' | |
363 | |
364 FILE is the sound file to play. If it isn't an absolute name, | |
365 it's searched under `data-directory'. | |
366 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
367 - `:data DATA' |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
368 |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
369 DATA is a string containing sound data. Either :file or :data |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
370 may be present, but not both. |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
371 |
25003 | 372 - `:device DEVICE' |
373 | |
374 DEVICE is the name of the device to play on, e.g. "/dev/dsp2". | |
375 If not specified, a default device is used. | |
376 | |
377 - `:volume VOL' | |
378 | |
25548
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
379 VOL must be an integer in the range [0, 100], or a float in the |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
380 range [0, 1]. */ |
25003 | 381 |
382 static int | |
383 parse_sound (sound, attrs) | |
384 Lisp_Object sound; | |
385 Lisp_Object *attrs; | |
386 { | |
387 /* SOUND must be a list starting with the symbol `sound'. */ | |
388 if (!CONSP (sound) || !EQ (XCAR (sound), Qsound)) | |
389 return 0; | |
390 | |
391 sound = XCDR (sound); | |
392 attrs[SOUND_FILE] = Fplist_get (sound, QCfile); | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
393 attrs[SOUND_DATA] = Fplist_get (sound, QCdata); |
25003 | 394 attrs[SOUND_DEVICE] = Fplist_get (sound, QCdevice); |
395 attrs[SOUND_VOLUME] = Fplist_get (sound, QCvolume); | |
396 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
397 #ifndef WINDOWSNT |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
398 /* File name or data must be specified. */ |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
399 if (!STRINGP (attrs[SOUND_FILE]) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
400 && !STRINGP (attrs[SOUND_DATA])) |
25003 | 401 return 0; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
402 #else /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
403 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
404 Data is not supported in Windows. Therefore a |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
405 File name MUST be supplied. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
406 */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
407 if (!STRINGP (attrs[SOUND_FILE])) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
408 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
409 return 0; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
410 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
411 #endif /* WINDOWSNT */ |
25003 | 412 |
413 /* Volume must be in the range 0..100 or unspecified. */ | |
414 if (!NILP (attrs[SOUND_VOLUME])) | |
415 { | |
25548
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
416 if (INTEGERP (attrs[SOUND_VOLUME])) |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
417 { |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
418 if (XINT (attrs[SOUND_VOLUME]) < 0 |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
419 || XINT (attrs[SOUND_VOLUME]) > 100) |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
420 return 0; |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
421 } |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
422 else if (FLOATP (attrs[SOUND_VOLUME])) |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
423 { |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
424 if (XFLOAT_DATA (attrs[SOUND_VOLUME]) < 0 |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
425 || XFLOAT_DATA (attrs[SOUND_VOLUME]) > 1) |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
426 return 0; |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
427 } |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
428 else |
25003 | 429 return 0; |
430 } | |
431 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
432 #ifndef WINDOWSNT |
25003 | 433 /* Device must be a string or unspecified. */ |
434 if (!NILP (attrs[SOUND_DEVICE]) | |
435 && !STRINGP (attrs[SOUND_DEVICE])) | |
436 return 0; | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
437 #endif /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
438 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
439 Since device is ignored in Windows, it does not matter |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
440 what it is. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
441 */ |
25003 | 442 return 1; |
443 } | |
444 | |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
445 /* END: Common functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
446 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
447 /* BEGIN: Non Windows functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
448 #ifndef WINDOWSNT |
25003 | 449 |
450 /* Find out the type of the sound file whose file descriptor is FD. | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
451 S is the sound file structure to fill in. */ |
25003 | 452 |
453 static void | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
454 find_sound_type (s) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
455 struct sound *s; |
25003 | 456 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
457 if (!wav_init (s) && !au_init (s)) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
458 error ("Unknown sound format"); |
25003 | 459 } |
460 | |
461 | |
44399
a399428859ff
(Fplay_sound_internal): Renamed from Fplay_sound.
Pavel Janík <Pavel@Janik.cz>
parents:
42754
diff
changeset
|
462 /* Function installed by play-sound-internal with record_unwind_protect. */ |
25003 | 463 |
464 static Lisp_Object | |
465 sound_cleanup (arg) | |
466 Lisp_Object arg; | |
467 { | |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
468 if (current_sound_device->close) |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
469 current_sound_device->close (current_sound_device); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
470 if (current_sound->fd > 0) |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
471 emacs_close (current_sound->fd); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
472 free (current_sound_device); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
473 free (current_sound); |
34255
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
474 |
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
475 return Qnil; |
25003 | 476 } |
477 | |
478 /*********************************************************************** | |
479 Byte-order Conversion | |
480 ***********************************************************************/ | |
481 | |
482 /* Convert 32-bit value VALUE which is in little-endian byte-order | |
483 to host byte-order. */ | |
484 | |
485 static u_int32_t | |
486 le2hl (value) | |
487 u_int32_t value; | |
488 { | |
489 #ifdef WORDS_BIG_ENDIAN | |
490 unsigned char *p = (unsigned char *) &value; | |
491 value = p[0] + (p[1] << 8) + (p[2] << 16) + (p[3] << 24); | |
492 #endif | |
493 return value; | |
494 } | |
495 | |
496 | |
497 /* Convert 16-bit value VALUE which is in little-endian byte-order | |
498 to host byte-order. */ | |
499 | |
500 static u_int16_t | |
501 le2hs (value) | |
502 u_int16_t value; | |
503 { | |
504 #ifdef WORDS_BIG_ENDIAN | |
505 unsigned char *p = (unsigned char *) &value; | |
506 value = p[0] + (p[1] << 8); | |
507 #endif | |
508 return value; | |
509 } | |
510 | |
511 | |
512 /* Convert 32-bit value VALUE which is in big-endian byte-order | |
513 to host byte-order. */ | |
514 | |
515 static u_int32_t | |
516 be2hl (value) | |
517 u_int32_t value; | |
518 { | |
519 #ifndef WORDS_BIG_ENDIAN | |
520 unsigned char *p = (unsigned char *) &value; | |
521 value = p[3] + (p[2] << 8) + (p[1] << 16) + (p[0] << 24); | |
522 #endif | |
523 return value; | |
524 } | |
525 | |
526 | |
25722
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
527 #if 0 /* Currently not used. */ |
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
528 |
25003 | 529 /* Convert 16-bit value VALUE which is in big-endian byte-order |
530 to host byte-order. */ | |
531 | |
532 static u_int16_t | |
533 be2hs (value) | |
534 u_int16_t value; | |
535 { | |
536 #ifndef WORDS_BIG_ENDIAN | |
537 unsigned char *p = (unsigned char *) &value; | |
538 value = p[1] + (p[0] << 8); | |
539 #endif | |
540 return value; | |
541 } | |
542 | |
25722
2be6ced279d3
(Fplay_sound): Remove usused variables.
Gerd Moellmann <gerd@gnu.org>
parents:
25548
diff
changeset
|
543 #endif /* 0 */ |
25003 | 544 |
545 /*********************************************************************** | |
546 RIFF-WAVE (*.wav) | |
547 ***********************************************************************/ | |
548 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
549 /* Try to initialize sound file S from S->header. S->header |
25003 | 550 contains the first MAX_SOUND_HEADER_BYTES number of bytes from the |
551 sound file. If the file is a WAV-format file, set up interface | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
552 functions in S and convert header fields to host byte-order. |
25003 | 553 Value is non-zero if the file is a WAV file. */ |
554 | |
555 static int | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
556 wav_init (s) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
557 struct sound *s; |
25003 | 558 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
559 struct wav_header *header = (struct wav_header *) s->header; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
560 |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
561 if (s->header_size < sizeof *header |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
562 || bcmp (s->header, "RIFF", 4) != 0) |
25003 | 563 return 0; |
564 | |
565 /* WAV files are in little-endian order. Convert the header | |
566 if on a big-endian machine. */ | |
567 header->magic = le2hl (header->magic); | |
568 header->length = le2hl (header->length); | |
569 header->chunk_type = le2hl (header->chunk_type); | |
570 header->chunk_format = le2hl (header->chunk_format); | |
571 header->chunk_length = le2hl (header->chunk_length); | |
572 header->format = le2hs (header->format); | |
573 header->channels = le2hs (header->channels); | |
574 header->sample_rate = le2hl (header->sample_rate); | |
575 header->bytes_per_second = le2hl (header->bytes_per_second); | |
576 header->sample_size = le2hs (header->sample_size); | |
577 header->precision = le2hs (header->precision); | |
578 header->chunk_data = le2hl (header->chunk_data); | |
579 header->data_length = le2hl (header->data_length); | |
580 | |
581 /* Set up the interface functions for WAV. */ | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
582 s->type = RIFF; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
583 s->play = wav_play; |
25003 | 584 |
585 return 1; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
586 } |
25003 | 587 |
588 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
589 /* Play RIFF-WAVE audio file S on sound device SD. */ |
25003 | 590 |
591 static void | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
592 wav_play (s, sd) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
593 struct sound *s; |
25003 | 594 struct sound_device *sd; |
595 { | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
596 struct wav_header *header = (struct wav_header *) s->header; |
25003 | 597 |
598 /* Let the device choose a suitable device-dependent format | |
599 for the file. */ | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
600 sd->choose_format (sd, s); |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
601 |
25003 | 602 /* Configure the device. */ |
603 sd->sample_size = header->sample_size; | |
604 sd->sample_rate = header->sample_rate; | |
605 sd->bps = header->bytes_per_second; | |
606 sd->channels = header->channels; | |
607 sd->configure (sd); | |
608 | |
609 /* Copy sound data to the device. The WAV file specification is | |
610 actually more complex. This simple scheme worked with all WAV | |
611 files I found so far. If someone feels inclined to implement the | |
612 whole RIFF-WAVE spec, please do. */ | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
613 if (STRINGP (s->data)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
614 sd->write (sd, SDATA (s->data) + sizeof *header, |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
615 SBYTES (s->data) - sizeof *header); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
616 else |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
617 { |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
618 char *buffer; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
619 int nbytes; |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
620 int blksize = sd->period_size ? sd->period_size (sd) : 2048; |
76364
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
621 int data_left = header->data_length; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
622 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
623 buffer = (char *) alloca (blksize); |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
624 lseek (s->fd, sizeof *header, SEEK_SET); |
76364
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
625 while (data_left > 0 |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
626 && (nbytes = emacs_read (s->fd, buffer, blksize)) > 0) |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
627 { |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
628 /* Don't play possible garbage at the end of file */ |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
629 if (data_left < nbytes) nbytes = data_left; |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
630 data_left -= nbytes; |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
631 sd->write (sd, buffer, nbytes); |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
632 } |
25003 | 633 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
634 if (nbytes < 0) |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
635 sound_perror ("Error reading sound file"); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
636 } |
25003 | 637 } |
638 | |
639 | |
640 /*********************************************************************** | |
641 Sun Audio (*.au) | |
642 ***********************************************************************/ | |
643 | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
644 /* Sun audio file encodings. */ |
25003 | 645 |
646 enum au_encoding | |
647 { | |
648 AU_ENCODING_ULAW_8 = 1, | |
649 AU_ENCODING_8, | |
650 AU_ENCODING_16, | |
651 AU_ENCODING_24, | |
652 AU_ENCODING_32, | |
653 AU_ENCODING_IEEE32, | |
654 AU_ENCODING_IEEE64, | |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
655 AU_COMPRESSED = 23, |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
656 AU_ENCODING_ALAW_8 = 27 |
25003 | 657 }; |
658 | |
659 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
660 /* Try to initialize sound file S from S->header. S->header |
25003 | 661 contains the first MAX_SOUND_HEADER_BYTES number of bytes from the |
662 sound file. If the file is a AU-format file, set up interface | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
663 functions in S and convert header fields to host byte-order. |
25003 | 664 Value is non-zero if the file is an AU file. */ |
665 | |
666 static int | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
667 au_init (s) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
668 struct sound *s; |
25003 | 669 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
670 struct au_header *header = (struct au_header *) s->header; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
671 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
672 if (s->header_size < sizeof *header |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
673 || bcmp (s->header, ".snd", 4) != 0) |
25003 | 674 return 0; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
675 |
25003 | 676 header->magic_number = be2hl (header->magic_number); |
677 header->data_offset = be2hl (header->data_offset); | |
678 header->data_size = be2hl (header->data_size); | |
679 header->encoding = be2hl (header->encoding); | |
680 header->sample_rate = be2hl (header->sample_rate); | |
681 header->channels = be2hl (header->channels); | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
682 |
25003 | 683 /* Set up the interface functions for AU. */ |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
684 s->type = SUN_AUDIO; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
685 s->play = au_play; |
25003 | 686 |
687 return 1; | |
688 } | |
689 | |
690 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
691 /* Play Sun audio file S on sound device SD. */ |
25003 | 692 |
693 static void | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
694 au_play (s, sd) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
695 struct sound *s; |
25003 | 696 struct sound_device *sd; |
697 { | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
698 struct au_header *header = (struct au_header *) s->header; |
25003 | 699 |
700 sd->sample_size = 0; | |
701 sd->sample_rate = header->sample_rate; | |
702 sd->bps = 0; | |
703 sd->channels = header->channels; | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
704 sd->choose_format (sd, s); |
25003 | 705 sd->configure (sd); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
706 |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
707 if (STRINGP (s->data)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
708 sd->write (sd, SDATA (s->data) + header->data_offset, |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
709 SBYTES (s->data) - header->data_offset); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
710 else |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
711 { |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
712 int blksize = sd->period_size ? sd->period_size (sd) : 2048; |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
713 char *buffer; |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
714 int nbytes; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
715 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
716 /* Seek */ |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
717 lseek (s->fd, header->data_offset, SEEK_SET); |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
718 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
719 /* Copy sound data to the device. */ |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
720 buffer = (char *) alloca (blksize); |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
721 while ((nbytes = emacs_read (s->fd, buffer, blksize)) > 0) |
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
722 sd->write (sd, buffer, nbytes); |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
723 |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
724 if (nbytes < 0) |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
725 sound_perror ("Error reading sound file"); |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
726 } |
25003 | 727 } |
728 | |
729 | |
730 /*********************************************************************** | |
731 Voxware Driver Interface | |
732 ***********************************************************************/ | |
733 | |
734 /* This driver is available on GNU/Linux, and the free BSDs. FreeBSD | |
735 has a compatible own driver aka Luigi's driver. */ | |
736 | |
737 | |
738 /* Open device SD. If SD->file is non-null, open that device, | |
739 otherwise use a default device name. */ | |
740 | |
741 static void | |
742 vox_open (sd) | |
743 struct sound_device *sd; | |
744 { | |
745 char *file; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
746 |
25003 | 747 /* Open the sound device. Default is /dev/dsp. */ |
748 if (sd->file) | |
749 file = sd->file; | |
750 else | |
30079
1572612184fc
Sound support for NetBSD through "Linux emulation" support:
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
751 file = DEFAULT_SOUND_DEVICE; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
752 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25722
diff
changeset
|
753 sd->fd = emacs_open (file, O_WRONLY, 0); |
25003 | 754 if (sd->fd < 0) |
755 sound_perror (file); | |
756 } | |
757 | |
758 | |
759 /* Configure device SD from parameters in it. */ | |
760 | |
761 static void | |
762 vox_configure (sd) | |
763 struct sound_device *sd; | |
764 { | |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
765 int val; |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
766 |
25003 | 767 xassert (sd->fd >= 0); |
768 | |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
769 /* On GNU/Linux, it seems that the device driver doesn't like to be |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
770 interrupted by a signal. Block the ones we know to cause |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
771 troubles. */ |
38215
b9fdde642b13
(vox_configure, vox_close): Turn off atimers
Gerd Moellmann <gerd@gnu.org>
parents:
34354
diff
changeset
|
772 turn_on_atimers (0); |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
773 #ifdef SIGIO |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
774 sigblock (sigmask (SIGIO)); |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
775 #endif |
38215
b9fdde642b13
(vox_configure, vox_close): Turn off atimers
Gerd Moellmann <gerd@gnu.org>
parents:
34354
diff
changeset
|
776 |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
777 val = sd->format; |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
778 if (ioctl (sd->fd, SNDCTL_DSP_SETFMT, &sd->format) < 0 |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
779 || val != sd->format) |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
780 sound_perror ("Could not set sound format"); |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
781 |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
782 val = sd->channels != 1; |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
783 if (ioctl (sd->fd, SNDCTL_DSP_STEREO, &val) < 0 |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
784 || val != (sd->channels != 1)) |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
785 sound_perror ("Could not set stereo/mono"); |
25003 | 786 |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
787 /* I think bps and sampling_rate are the same, but who knows. |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
788 Check this. and use SND_DSP_SPEED for both. */ |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
789 if (sd->sample_rate > 0) |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
790 { |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
791 val = sd->sample_rate; |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
792 if (ioctl (sd->fd, SNDCTL_DSP_SPEED, &sd->sample_rate) < 0) |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
793 sound_perror ("Could not set sound speed"); |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
794 else if (val != sd->sample_rate) |
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
795 sound_warning ("Could not set sample rate"); |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
796 } |
25003 | 797 |
34255
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
798 if (sd->volume > 0) |
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
799 { |
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
800 int volume = sd->volume & 0xff; |
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
801 volume |= volume << 8; |
34354
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
802 /* This may fail if there is no mixer. Ignore the failure. */ |
db2901e01b72
(vox_configure): Change order of ioctls. Don't
Gerd Moellmann <gerd@gnu.org>
parents:
34255
diff
changeset
|
803 ioctl (sd->fd, SOUND_MIXER_WRITE_PCM, &volume); |
34255
cb2b0d1799db
(vox_configure): Set volume for left and right channel.
Gerd Moellmann <gerd@gnu.org>
parents:
31587
diff
changeset
|
804 } |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
805 |
38215
b9fdde642b13
(vox_configure, vox_close): Turn off atimers
Gerd Moellmann <gerd@gnu.org>
parents:
34354
diff
changeset
|
806 turn_on_atimers (1); |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
807 #ifdef SIGIO |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
808 sigunblock (sigmask (SIGIO)); |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
809 #endif |
25003 | 810 } |
811 | |
812 | |
813 /* Close device SD if it is open. */ | |
814 | |
815 static void | |
816 vox_close (sd) | |
817 struct sound_device *sd; | |
818 { | |
819 if (sd->fd >= 0) | |
820 { | |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
821 /* On GNU/Linux, it seems that the device driver doesn't like to |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
822 be interrupted by a signal. Block the ones we know to cause |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
823 troubles. */ |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
824 #ifdef SIGIO |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
825 sigblock (sigmask (SIGIO)); |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
826 #endif |
38215
b9fdde642b13
(vox_configure, vox_close): Turn off atimers
Gerd Moellmann <gerd@gnu.org>
parents:
34354
diff
changeset
|
827 turn_on_atimers (0); |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
828 |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
829 /* Flush sound data, and reset the device. */ |
25003 | 830 ioctl (sd->fd, SNDCTL_DSP_SYNC, NULL); |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
831 |
38215
b9fdde642b13
(vox_configure, vox_close): Turn off atimers
Gerd Moellmann <gerd@gnu.org>
parents:
34354
diff
changeset
|
832 turn_on_atimers (1); |
38338
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
833 #ifdef SIGIO |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
834 sigunblock (sigmask (SIGIO)); |
c6ff61f9af43
(toplevel): Include <signal.h> and "syssignal.h".
Gerd Moellmann <gerd@gnu.org>
parents:
38297
diff
changeset
|
835 #endif |
25003 | 836 |
837 /* Close the device. */ | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25722
diff
changeset
|
838 emacs_close (sd->fd); |
25003 | 839 sd->fd = -1; |
840 } | |
841 } | |
842 | |
843 | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
844 /* Choose device-dependent format for device SD from sound file S. */ |
25003 | 845 |
846 static void | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
847 vox_choose_format (sd, s) |
25003 | 848 struct sound_device *sd; |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
849 struct sound *s; |
25003 | 850 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
851 if (s->type == RIFF) |
25003 | 852 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
853 struct wav_header *h = (struct wav_header *) s->header; |
25003 | 854 if (h->precision == 8) |
855 sd->format = AFMT_U8; | |
856 else if (h->precision == 16) | |
857 sd->format = AFMT_S16_LE; | |
858 else | |
859 error ("Unsupported WAV file format"); | |
860 } | |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
861 else if (s->type == SUN_AUDIO) |
25003 | 862 { |
27146
68290f44807a
(struct sound): Renamed from struct sound_file.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
863 struct au_header *header = (struct au_header *) s->header; |
25003 | 864 switch (header->encoding) |
865 { | |
866 case AU_ENCODING_ULAW_8: | |
867 case AU_ENCODING_IEEE32: | |
868 case AU_ENCODING_IEEE64: | |
869 sd->format = AFMT_MU_LAW; | |
870 break; | |
42754
158482d8af9d
(Fplay_sound): Initialize header_size also for :data case.
Pavel Janík <Pavel@Janik.cz>
parents:
42534
diff
changeset
|
871 |
25003 | 872 case AU_ENCODING_8: |
873 case AU_ENCODING_16: | |
874 case AU_ENCODING_24: | |
875 case AU_ENCODING_32: | |
876 sd->format = AFMT_S16_LE; | |
877 break; | |
878 | |
879 default: | |
880 error ("Unsupported AU file format"); | |
881 } | |
882 } | |
883 else | |
884 abort (); | |
885 } | |
886 | |
887 | |
888 /* Initialize device SD. Set up the interface functions in the device | |
889 structure. */ | |
890 | |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
891 static int |
25003 | 892 vox_init (sd) |
893 struct sound_device *sd; | |
894 { | |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
895 char *file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
896 int fd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
897 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
898 /* Open the sound device. Default is /dev/dsp. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
899 if (sd->file) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
900 file = sd->file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
901 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
902 file = DEFAULT_SOUND_DEVICE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
903 fd = emacs_open (file, O_WRONLY, 0); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
904 if (fd >= 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
905 emacs_close (fd); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
906 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
907 return 0; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
908 |
25003 | 909 sd->fd = -1; |
910 sd->open = vox_open; | |
911 sd->close = vox_close; | |
912 sd->configure = vox_configure; | |
913 sd->choose_format = vox_choose_format; | |
914 sd->write = vox_write; | |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
915 sd->period_size = NULL; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
916 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
917 return 1; |
25003 | 918 } |
919 | |
920 /* Write NBYTES bytes from BUFFER to device SD. */ | |
921 | |
922 static void | |
923 vox_write (sd, buffer, nbytes) | |
924 struct sound_device *sd; | |
46554
fb13fafbd279
(struct sound_device): Function pointer field "write"
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
925 const char *buffer; |
25003 | 926 int nbytes; |
927 { | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25722
diff
changeset
|
928 int nwritten = emacs_write (sd->fd, buffer, nbytes); |
25003 | 929 if (nwritten < 0) |
40364
f7b039994118
(sound_perror): Unblock SIGIO, turn on atimers.
Gerd Moellmann <gerd@gnu.org>
parents:
40123
diff
changeset
|
930 sound_perror ("Error writing to sound device"); |
25003 | 931 } |
932 | |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
933 #ifdef HAVE_ALSA |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
934 /*********************************************************************** |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
935 ALSA Driver Interface |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
936 ***********************************************************************/ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
937 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
938 /* This driver is available on GNU/Linux. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
939 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
940 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
941 alsa_sound_perror (msg, err) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
942 char *msg; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
943 int err; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
944 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
945 error ("%s: %s", msg, snd_strerror (err)); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
946 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
947 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
948 struct alsa_params |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
949 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
950 snd_pcm_t *handle; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
951 snd_pcm_hw_params_t *hwparams; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
952 snd_pcm_sw_params_t *swparams; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
953 snd_pcm_uframes_t period_size; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
954 }; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
955 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
956 /* Open device SD. If SD->file is non-null, open that device, |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
957 otherwise use a default device name. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
958 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
959 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
960 alsa_open (sd) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
961 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
962 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
963 char *file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
964 struct alsa_params *p; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
965 int err; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
966 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
967 /* Open the sound device. Default is "default". */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
968 if (sd->file) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
969 file = sd->file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
970 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
971 file = DEFAULT_ALSA_SOUND_DEVICE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
972 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
973 p = xmalloc (sizeof (*p)); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
974 p->handle = NULL; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
975 p->hwparams = NULL; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
976 p->swparams = NULL; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
977 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
978 sd->fd = -1; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
979 sd->data = p; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
980 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
981 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
982 err = snd_pcm_open (&p->handle, file, SND_PCM_STREAM_PLAYBACK, 0); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
983 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
984 alsa_sound_perror (file, err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
985 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
986 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
987 static int |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
988 alsa_period_size (sd) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
989 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
990 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
991 struct alsa_params *p = (struct alsa_params *) sd->data; |
76364
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
992 int fact = snd_pcm_format_size (sd->format, 1) * sd->channels; |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
993 return p->period_size * (fact > 0 ? fact : 1); |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
994 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
995 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
996 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
997 alsa_configure (sd) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
998 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
999 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1000 int val, err, dir; |
71892
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1001 unsigned uval; |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1002 struct alsa_params *p = (struct alsa_params *) sd->data; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1003 snd_pcm_uframes_t buffer_size; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1004 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1005 xassert (p->handle != 0); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1006 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1007 err = snd_pcm_hw_params_malloc (&p->hwparams); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1008 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1009 alsa_sound_perror ("Could not allocate hardware parameter structure", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1010 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1011 err = snd_pcm_sw_params_malloc (&p->swparams); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1012 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1013 alsa_sound_perror ("Could not allocate software parameter structure", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1014 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1015 err = snd_pcm_hw_params_any (p->handle, p->hwparams); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1016 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1017 alsa_sound_perror ("Could not initialize hardware parameter structure", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1018 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1019 err = snd_pcm_hw_params_set_access (p->handle, p->hwparams, |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1020 SND_PCM_ACCESS_RW_INTERLEAVED); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1021 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1022 alsa_sound_perror ("Could not set access type", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1023 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1024 val = sd->format; |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1025 err = snd_pcm_hw_params_set_format (p->handle, p->hwparams, val); |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1026 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1027 alsa_sound_perror ("Could not set sound format", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1028 |
71892
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1029 uval = sd->sample_rate; |
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1030 err = snd_pcm_hw_params_set_rate_near (p->handle, p->hwparams, &uval, 0); |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1031 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1032 alsa_sound_perror ("Could not set sample rate", err); |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1033 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1034 val = sd->channels; |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1035 err = snd_pcm_hw_params_set_channels (p->handle, p->hwparams, val); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1036 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1037 alsa_sound_perror ("Could not set channel count", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1038 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1039 err = snd_pcm_hw_params (p->handle, p->hwparams); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1040 if (err < 0) |
70955
d42f132da9a8
* sound.c (alsa_configure): Move get period/buffer_size after
Jan Djärv <jan.h.d@swipnet.se>
parents:
70718
diff
changeset
|
1041 alsa_sound_perror ("Could not set parameters", err); |
d42f132da9a8
* sound.c (alsa_configure): Move get period/buffer_size after
Jan Djärv <jan.h.d@swipnet.se>
parents:
70718
diff
changeset
|
1042 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1043 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1044 err = snd_pcm_hw_params_get_period_size (p->hwparams, &p->period_size, &dir); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1045 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1046 alsa_sound_perror ("Unable to get period size for playback", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1047 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1048 err = snd_pcm_hw_params_get_buffer_size (p->hwparams, &buffer_size); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1049 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1050 alsa_sound_perror("Unable to get buffer size for playback", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1051 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1052 err = snd_pcm_sw_params_current (p->handle, p->swparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1053 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1054 alsa_sound_perror ("Unable to determine current swparams for playback", |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1055 err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1056 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1057 /* Start the transfer when the buffer is almost full */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1058 err = snd_pcm_sw_params_set_start_threshold (p->handle, p->swparams, |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1059 (buffer_size / p->period_size) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1060 * p->period_size); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1061 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1062 alsa_sound_perror ("Unable to set start threshold mode for playback", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1063 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1064 /* Allow the transfer when at least period_size samples can be processed */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1065 err = snd_pcm_sw_params_set_avail_min (p->handle, p->swparams, p->period_size); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1066 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1067 alsa_sound_perror ("Unable to set avail min for playback", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1068 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1069 /* Align all transfers to 1 period */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1070 err = snd_pcm_sw_params_set_xfer_align (p->handle, p->swparams, |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1071 p->period_size); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1072 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1073 alsa_sound_perror ("Unable to set transfer align for playback", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1074 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1075 err = snd_pcm_sw_params (p->handle, p->swparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1076 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1077 alsa_sound_perror ("Unable to set sw params for playback\n", err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1078 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1079 snd_pcm_hw_params_free (p->hwparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1080 p->hwparams = NULL; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1081 snd_pcm_sw_params_free (p->swparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1082 p->swparams = NULL; |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1083 |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1084 err = snd_pcm_prepare (p->handle); |
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1085 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1086 alsa_sound_perror ("Could not prepare audio interface for use", err); |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1087 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1088 if (sd->volume > 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1089 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1090 int chn; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1091 snd_mixer_t *handle; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1092 snd_mixer_elem_t *e; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1093 char *file = sd->file ? sd->file : DEFAULT_ALSA_SOUND_DEVICE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1094 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1095 if (snd_mixer_open (&handle, 0) >= 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1096 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1097 if (snd_mixer_attach (handle, file) >= 0 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1098 && snd_mixer_load (handle) >= 0 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1099 && snd_mixer_selem_register (handle, NULL, NULL) >= 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1100 for (e = snd_mixer_first_elem (handle); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1101 e; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1102 e = snd_mixer_elem_next (e)) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1103 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1104 if (snd_mixer_selem_has_playback_volume (e)) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1105 { |
92704
22bce4d93530
(alsa_configure): Declare vol at beginning of block.
Jan Djärv <jan.h.d@swipnet.se>
parents:
87649
diff
changeset
|
1106 long pmin, pmax, vol; |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1107 snd_mixer_selem_get_playback_volume_range (e, &pmin, &pmax); |
92704
22bce4d93530
(alsa_configure): Declare vol at beginning of block.
Jan Djärv <jan.h.d@swipnet.se>
parents:
87649
diff
changeset
|
1108 vol = pmin + (sd->volume * (pmax - pmin)) / 100; |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1109 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1110 for (chn = 0; chn <= SND_MIXER_SCHN_LAST; chn++) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1111 snd_mixer_selem_set_playback_volume (e, chn, vol); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1112 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1113 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1114 snd_mixer_close(handle); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1115 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1116 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1117 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1118 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1119 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1120 /* Close device SD if it is open. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1121 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1122 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1123 alsa_close (sd) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1124 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1125 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1126 struct alsa_params *p = (struct alsa_params *) sd->data; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1127 if (p) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1128 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1129 if (p->hwparams) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1130 snd_pcm_hw_params_free (p->hwparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1131 if (p->swparams) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1132 snd_pcm_sw_params_free (p->swparams); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1133 if (p->handle) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1134 { |
71892
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1135 snd_pcm_drain (p->handle); |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1136 snd_pcm_close (p->handle); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1137 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1138 free (p); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1139 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1140 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1141 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1142 /* Choose device-dependent format for device SD from sound file S. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1143 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1144 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1145 alsa_choose_format (sd, s) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1146 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1147 struct sound *s; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1148 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1149 struct alsa_params *p = (struct alsa_params *) sd->data; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1150 if (s->type == RIFF) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1151 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1152 struct wav_header *h = (struct wav_header *) s->header; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1153 if (h->precision == 8) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1154 sd->format = SND_PCM_FORMAT_U8; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1155 else if (h->precision == 16) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1156 sd->format = SND_PCM_FORMAT_S16_LE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1157 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1158 error ("Unsupported WAV file format"); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1159 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1160 else if (s->type == SUN_AUDIO) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1161 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1162 struct au_header *header = (struct au_header *) s->header; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1163 switch (header->encoding) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1164 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1165 case AU_ENCODING_ULAW_8: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1166 sd->format = SND_PCM_FORMAT_MU_LAW; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1167 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1168 case AU_ENCODING_ALAW_8: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1169 sd->format = SND_PCM_FORMAT_A_LAW; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1170 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1171 case AU_ENCODING_IEEE32: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1172 sd->format = SND_PCM_FORMAT_FLOAT_BE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1173 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1174 case AU_ENCODING_IEEE64: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1175 sd->format = SND_PCM_FORMAT_FLOAT64_BE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1176 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1177 case AU_ENCODING_8: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1178 sd->format = SND_PCM_FORMAT_S8; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1179 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1180 case AU_ENCODING_16: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1181 sd->format = SND_PCM_FORMAT_S16_BE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1182 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1183 case AU_ENCODING_24: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1184 sd->format = SND_PCM_FORMAT_S24_BE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1185 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1186 case AU_ENCODING_32: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1187 sd->format = SND_PCM_FORMAT_S32_BE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1188 break; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1189 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1190 default: |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1191 error ("Unsupported AU file format"); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1192 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1193 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1194 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1195 abort (); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1196 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1197 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1198 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1199 /* Write NBYTES bytes from BUFFER to device SD. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1200 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1201 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1202 alsa_write (sd, buffer, nbytes) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1203 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1204 const char *buffer; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1205 int nbytes; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1206 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1207 struct alsa_params *p = (struct alsa_params *) sd->data; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1208 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1209 /* The the third parameter to snd_pcm_writei is frames, not bytes. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1210 int fact = snd_pcm_format_size (sd->format, 1) * sd->channels; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1211 int nwritten = 0; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1212 int err; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1213 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1214 while (nwritten < nbytes) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1215 { |
76364
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
1216 snd_pcm_uframes_t frames = (nbytes - nwritten)/fact; |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
1217 if (frames == 0) break; |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
1218 |
ebfc3239385f
* sound.c (wav_play): Check header->data_length to see how much we
Jan Djärv <jan.h.d@swipnet.se>
parents:
75348
diff
changeset
|
1219 err = snd_pcm_writei (p->handle, buffer + nwritten, frames); |
71062
47e6374861d1
* sound.c (alsa_open, alsa_configure, alsa_write): Move
Jan Djärv <jan.h.d@swipnet.se>
parents:
70955
diff
changeset
|
1220 if (err < 0) |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1221 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1222 if (err == -EPIPE) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1223 { /* under-run */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1224 err = snd_pcm_prepare (p->handle); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1225 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1226 alsa_sound_perror ("Can't recover from underrun, prepare failed", |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1227 err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1228 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1229 else if (err == -ESTRPIPE) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1230 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1231 while ((err = snd_pcm_resume (p->handle)) == -EAGAIN) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1232 sleep(1); /* wait until the suspend flag is released */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1233 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1234 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1235 err = snd_pcm_prepare (p->handle); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1236 if (err < 0) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1237 alsa_sound_perror ("Can't recover from suspend, " |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1238 "prepare failed", |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1239 err); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1240 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1241 } |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1242 else |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1243 alsa_sound_perror ("Error writing to sound device", err); |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1244 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1245 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1246 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1247 nwritten += err * fact; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1248 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1249 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1250 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1251 static void |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1252 snd_error_quiet (file, line, function, err, fmt) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1253 const char *file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1254 int line; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1255 const char *function; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1256 int err; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1257 const char *fmt; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1258 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1259 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1260 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1261 /* Initialize device SD. Set up the interface functions in the device |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1262 structure. */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1263 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1264 static int |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1265 alsa_init (sd) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1266 struct sound_device *sd; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1267 { |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1268 char *file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1269 snd_pcm_t *handle; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1270 int err; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1271 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1272 /* Open the sound device. Default is "default". */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1273 if (sd->file) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1274 file = sd->file; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1275 else |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1276 file = DEFAULT_ALSA_SOUND_DEVICE; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1277 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1278 snd_lib_error_set_handler ((snd_lib_error_handler_t) snd_error_quiet); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1279 err = snd_pcm_open (&handle, file, SND_PCM_STREAM_PLAYBACK, 0); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1280 snd_lib_error_set_handler (NULL); |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1281 if (err < 0) |
71892
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1282 return 0; |
248ccc534803
* sound.c (alsa_init): Call snd_pcm_close after successful snd_pcm_open.
Jan Djärv <jan.h.d@swipnet.se>
parents:
71063
diff
changeset
|
1283 snd_pcm_close (handle); |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1284 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1285 sd->fd = -1; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1286 sd->open = alsa_open; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1287 sd->close = alsa_close; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1288 sd->configure = alsa_configure; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1289 sd->choose_format = alsa_choose_format; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1290 sd->write = alsa_write; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1291 sd->period_size = alsa_period_size; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1292 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1293 return 1; |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1294 } |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1295 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1296 #endif /* HAVE_ALSA */ |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1297 |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1298 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1299 /* END: Non Windows functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1300 #else /* WINDOWSNT */ |
25003 | 1301 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1302 /* BEGIN: Windows specific functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1303 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1304 static int |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1305 do_play_sound (psz_file, ui_volume) |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1306 const char *psz_file; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1307 unsigned long ui_volume; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1308 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1309 int i_result = 0; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1310 MCIERROR mci_error = 0; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1311 char sz_cmd_buf[520] = {0}; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1312 char sz_ret_buf[520] = {0}; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1313 MMRESULT mm_result = MMSYSERR_NOERROR; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1314 unsigned long ui_volume_org = 0; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1315 BOOL b_reset_volume = FALSE; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1316 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1317 memset (sz_cmd_buf, 0, sizeof(sz_cmd_buf)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1318 memset (sz_ret_buf, 0, sizeof(sz_ret_buf)); |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1319 sprintf (sz_cmd_buf, |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1320 "open \"%s\" alias GNUEmacs_PlaySound_Device wait", |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1321 psz_file); |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1322 mci_error = mciSendString (sz_cmd_buf, sz_ret_buf, 520, NULL); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1323 if (mci_error != 0) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1324 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1325 sound_warning ("The open mciSendString command failed to open\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1326 "the specified sound file"); |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1327 i_result = (int) mci_error; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1328 return i_result; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1329 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1330 if ((ui_volume > 0) && (ui_volume != UINT_MAX)) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1331 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1332 mm_result = waveOutGetVolume ((HWAVEOUT) WAVE_MAPPER, &ui_volume_org); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1333 if (mm_result == MMSYSERR_NOERROR) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1334 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1335 b_reset_volume = TRUE; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1336 mm_result = waveOutSetVolume ((HWAVEOUT) WAVE_MAPPER, ui_volume); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1337 if ( mm_result != MMSYSERR_NOERROR) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1338 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1339 sound_warning ("waveOutSetVolume failed to set the volume level\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1340 "of the WAVE_MAPPER device.\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1341 "As a result, the user selected volume level will\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1342 "not be used."); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1343 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1344 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1345 else |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1346 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1347 sound_warning ("waveOutGetVolume failed to obtain the original\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1348 "volume level of the WAVE_MAPPER device.\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1349 "As a result, the user selected volume level will\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1350 "not be used."); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1351 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1352 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1353 memset (sz_cmd_buf, 0, sizeof(sz_cmd_buf)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1354 memset (sz_ret_buf, 0, sizeof(sz_ret_buf)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1355 strcpy (sz_cmd_buf, "play GNUEmacs_PlaySound_Device wait"); |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1356 mci_error = mciSendString (sz_cmd_buf, sz_ret_buf, 520, NULL); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1357 if (mci_error != 0) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1358 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1359 sound_warning ("The play mciSendString command failed to play the\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1360 "opened sound file."); |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1361 i_result = (int) mci_error; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1362 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1363 memset (sz_cmd_buf, 0, sizeof(sz_cmd_buf)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1364 memset (sz_ret_buf, 0, sizeof(sz_ret_buf)); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1365 strcpy (sz_cmd_buf, "close GNUEmacs_PlaySound_Device wait"); |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1366 mci_error = mciSendString (sz_cmd_buf, sz_ret_buf, 520, NULL); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1367 if (b_reset_volume == TRUE) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1368 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1369 mm_result=waveOutSetVolume ((HWAVEOUT) WAVE_MAPPER, ui_volume_org); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1370 if (mm_result != MMSYSERR_NOERROR) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1371 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1372 sound_warning ("waveOutSetVolume failed to reset the original volume\n" |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1373 "level of the WAVE_MAPPER device."); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1374 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1375 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1376 return i_result; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1377 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1378 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1379 /* END: Windows specific functions */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1380 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1381 #endif /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1382 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1383 DEFUN ("play-sound-internal", Fplay_sound_internal, Splay_sound_internal, 1, 1, 0, |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1384 doc: /* Play sound SOUND. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1385 |
74315
a7c077b29617
(Fplay_sound_internal): Remove spurious newline in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
71892
diff
changeset
|
1386 Internal use only, use `play-sound' instead. */) |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1387 (sound) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1388 Lisp_Object sound; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1389 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1390 Lisp_Object attrs[SOUND_ATTR_SENTINEL]; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1391 int count = SPECPDL_INDEX (); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1392 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1393 #ifndef WINDOWSNT |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1394 Lisp_Object file; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1395 struct gcpro gcpro1, gcpro2; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1396 Lisp_Object args[2]; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1397 #else /* WINDOWSNT */ |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1398 int len = 0; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1399 Lisp_Object lo_file = {0}; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1400 char * psz_file = NULL; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1401 unsigned long ui_volume_tmp = UINT_MAX; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1402 unsigned long ui_volume = UINT_MAX; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1403 int i_result = 0; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1404 #endif /* WINDOWSNT */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1405 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1406 /* Parse the sound specification. Give up if it is invalid. */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1407 if (!parse_sound (sound, attrs)) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1408 error ("Invalid sound specification"); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1409 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1410 #ifndef WINDOWSNT |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1411 file = Qnil; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1412 GCPRO2 (sound, file); |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1413 current_sound_device = (struct sound_device *) xmalloc (sizeof (struct sound_device)); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1414 bzero (current_sound_device, sizeof (struct sound_device)); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1415 current_sound = (struct sound *) xmalloc (sizeof (struct sound)); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1416 bzero (current_sound, sizeof (struct sound)); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1417 record_unwind_protect (sound_cleanup, Qnil); |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1418 current_sound->header = (char *) alloca (MAX_SOUND_HEADER_BYTES); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1419 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1420 if (STRINGP (attrs[SOUND_FILE])) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1421 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1422 /* Open the sound file. */ |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1423 current_sound->fd = openp (Fcons (Vdata_directory, Qnil), |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1424 attrs[SOUND_FILE], Qnil, &file, Qnil); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1425 if (current_sound->fd < 0) |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1426 sound_perror ("Could not open sound file"); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1427 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1428 /* Read the first bytes from the file. */ |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1429 current_sound->header_size |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1430 = emacs_read (current_sound->fd, current_sound->header, |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1431 MAX_SOUND_HEADER_BYTES); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1432 if (current_sound->header_size < 0) |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1433 sound_perror ("Invalid sound file header"); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1434 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1435 else |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1436 { |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1437 current_sound->data = attrs[SOUND_DATA]; |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1438 current_sound->header_size = min (MAX_SOUND_HEADER_BYTES, SBYTES (current_sound->data)); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1439 bcopy (SDATA (current_sound->data), current_sound->header, current_sound->header_size); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1440 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1441 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1442 /* Find out the type of sound. Give up if we can't tell. */ |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1443 find_sound_type (current_sound); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1444 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1445 /* Set up a device. */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1446 if (STRINGP (attrs[SOUND_DEVICE])) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1447 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1448 int len = SCHARS (attrs[SOUND_DEVICE]); |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1449 current_sound_device->file = (char *) alloca (len + 1); |
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1450 strcpy (current_sound_device->file, SDATA (attrs[SOUND_DEVICE])); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1451 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1452 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1453 if (INTEGERP (attrs[SOUND_VOLUME])) |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1454 current_sound_device->volume = XFASTINT (attrs[SOUND_VOLUME]); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1455 else if (FLOATP (attrs[SOUND_VOLUME])) |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1456 current_sound_device->volume = XFLOAT_DATA (attrs[SOUND_VOLUME]) * 100; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1457 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1458 args[0] = Qplay_sound_functions; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1459 args[1] = sound; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1460 Frun_hook_with_args (2, args); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1461 |
70718
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1462 #ifdef HAVE_ALSA |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1463 if (!alsa_init (current_sound_device)) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1464 #endif |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1465 if (!vox_init (current_sound_device)) |
f8a3f870d0c4
* sound.c (alsa_sound_perror, alsa_open, alsa_period_size)
Jan Djärv <jan.h.d@swipnet.se>
parents:
70363
diff
changeset
|
1466 error ("No usable sound device driver found"); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1467 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1468 /* Open the device. */ |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1469 current_sound_device->open (current_sound_device); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1470 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1471 /* Play the sound. */ |
70363
54e4c6ece57f
(Fplay_sound_internal): Dynamically allocate
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
1472 current_sound->play (current_sound, current_sound_device); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1473 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1474 /* Clean up. */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1475 UNGCPRO; |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1476 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1477 #else /* WINDOWSNT */ |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1478 |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1479 lo_file = Fexpand_file_name (attrs[SOUND_FILE], Qnil); |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1480 len = XSTRING (lo_file)->size; |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1481 psz_file = (char *) alloca (len + 1); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1482 strcpy (psz_file, XSTRING (lo_file)->data); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1483 if (INTEGERP (attrs[SOUND_VOLUME])) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1484 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1485 ui_volume_tmp = XFASTINT (attrs[SOUND_VOLUME]); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1486 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1487 else if (FLOATP (attrs[SOUND_VOLUME])) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1488 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1489 ui_volume_tmp = (unsigned long) XFLOAT_DATA (attrs[SOUND_VOLUME]) * 100; |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1490 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1491 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1492 Based on some experiments I have conducted, a value of 100 or less |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1493 for the sound volume is much too low. You cannot even hear it. |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1494 A value of UINT_MAX indicates that you wish for the sound to played |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1495 at the maximum possible volume. A value of UINT_MAX/2 plays the |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1496 sound at 50% maximum volume. Therefore the value passed to do_play_sound |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1497 (and thus to waveOutSetVolume) must be some fraction of UINT_MAX. |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1498 The following code adjusts the user specified volume level appropriately. |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1499 */ |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1500 if ((ui_volume_tmp > 0) && (ui_volume_tmp <= 100)) |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1501 { |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1502 ui_volume = ui_volume_tmp * (UINT_MAX / 100); |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1503 } |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1504 i_result = do_play_sound (psz_file, ui_volume); |
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1505 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1506 #endif /* WINDOWSNT */ |
48456
8f7ad3143e4b
Fix spacing and adapt to GNU coding conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
48375
diff
changeset
|
1507 |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1508 unbind_to (count, Qnil); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1509 return Qnil; |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46554
diff
changeset
|
1510 } |
25003 | 1511 |
1512 /*********************************************************************** | |
1513 Initialization | |
1514 ***********************************************************************/ | |
1515 | |
1516 void | |
1517 syms_of_sound () | |
1518 { | |
1519 QCdevice = intern (":device"); | |
1520 staticpro (&QCdevice); | |
1521 QCvolume = intern (":volume"); | |
1522 staticpro (&QCvolume); | |
1523 Qsound = intern ("sound"); | |
1524 staticpro (&Qsound); | |
25548
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
1525 Qplay_sound_functions = intern ("play-sound-functions"); |
df6548ca33fd
(Qplay_sound_functions): Replaces Qplay_sound_hook.
Gerd Moellmann <gerd@gnu.org>
parents:
25003
diff
changeset
|
1526 staticpro (&Qplay_sound_functions); |
25003 | 1527 |
44399
a399428859ff
(Fplay_sound_internal): Renamed from Fplay_sound.
Pavel Janík <Pavel@Janik.cz>
parents:
42754
diff
changeset
|
1528 defsubr (&Splay_sound_internal); |
25003 | 1529 } |
1530 | |
1531 | |
1532 void | |
1533 init_sound () | |
1534 { | |
1535 } | |
1536 | |
1537 #endif /* HAVE_SOUND */ | |
52401 | 1538 |
1539 /* arch-tag: dd850ad8-0433-4e2c-9cba-b7aeeccc0dbd | |
1540 (do not change this comment) */ |