xemacs-beta: src/sound.c comparison

comparison src/sound.c @ 398:74fd4e045ea6 r21-2-29

Import from CVS: tag r21-2-29

author	cvs
date	Mon, 13 Aug 2007 11:13:30 +0200
parents	6719134a07c2
children	2f8bb876ab1d

comparison

equal deleted inserted replaced

-:f4aeb21a5bad
+:74fd4e045ea6
 /* Originally written by Jamie Zawinski.
 Hacked on quite a bit by various others. */
 #include <config.h>
+#include <time.h>
 #include "lisp.h"
 #include "buffer.h"
 #ifdef HAVE_X_WINDOWS
 #include "console-x.h"
 #ifdef HAVE_NATIVE_SOUND
 # include <netdb.h>
 #endif
+#ifdef HAVE_ESD_SOUND
+extern int esd_play_sound_file (char *file, int vol);
+extern int esd_play_sound_data (unsigned char *data, size_t length, int vol);
+# define DEVICE_CONNECTED_TO_ESD_P(x) 1 /* FIXME: better check */
+#endif
 int bell_volume;
+int bell_inhibit_time;
 Lisp_Object Vsound_alist;
 Lisp_Object Vsynchronous_sounds;
 Lisp_Object Vnative_sound_only_on_console;
 Lisp_Object Q_volume, Q_pitch, Q_duration, Q_sound;
 */
 (file, volume, device))
 {
 /* This function can call lisp */
 int vol;
-#if defined (HAVE_NATIVE_SOUND) || defined (HAVE_NAS_SOUND)
+#if defined (HAVE_NATIVE_SOUND) || defined (HAVE_NAS_SOUND) \
+|| defined (HAVE_ESD_SOUND)
 struct device *d = decode_device (device);
 #endif
 struct gcpro gcpro1;
 CHECK_STRING (file);
 #ifdef HAVE_NAS_SOUND
 if (DEVICE_CONNECTED_TO_NAS_P (d))
 {
 char *fileext;
-GET_C_STRING_FILENAME_DATA_ALLOCA (file, fileext);
+TO_EXTERNAL_FORMAT (LISP_STRING, file,
+			  C_STRING_ALLOCA, fileext,
+			  Qfile_name);
 /* #### NAS code should allow specification of a device. */
 if (nas_play_sound_file (fileext, vol))
 	return Qnil;
 }
 #endif /* HAVE_NAS_SOUND */
+#ifdef HAVE_ESD_SOUND
+if (DEVICE_CONNECTED_TO_ESD_P (d))
+{
+char *fileext;
+TO_EXTERNAL_FORMAT (LISP_STRING, file,
+			  C_STRING_ALLOCA, fileext,
+			  Qfile_name);
+if (esd_play_sound_file (fileext, vol))
+return Qnil;
+}
+#endif /* HAVE_ESD_SOUND */
 #ifdef HAVE_NATIVE_SOUND
 if (NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d))
 {
-CONST char *fileext;
+const char *fileext;
-GET_C_STRING_FILENAME_DATA_ALLOCA (file, fileext);
+TO_EXTERNAL_FORMAT (LISP_STRING, file,
+			  C_STRING_ALLOCA, fileext,
+			  Qfile_name);
 /* The sound code doesn't like getting SIGIO interrupts.
 	 Unix sucks! */
 stop_interrupts ();
 play_sound_file ((char *) fileext, vol);
 start_interrupts ();
 Else just beep.
 */
 #ifdef HAVE_NAS_SOUND
 if (DEVICE_CONNECTED_TO_NAS_P (d) && STRINGP (sound))
 {
-CONST Extbyte *soundext;
+const Extbyte *soundext;
 Extcount soundextlen;
-GET_STRING_BINARY_DATA_ALLOCA (sound, soundext, soundextlen);
+TO_EXTERNAL_FORMAT (LISP_STRING, sound,
+			  ALLOCA, (soundext, soundextlen),
+			  Qbinary);
 if (nas_play_sound_data ((unsigned char*)soundext, soundextlen, vol))
 	return Qnil;
 }
 #endif /* HAVE_NAS_SOUND */
+#ifdef HAVE_ESD_SOUND
+if (DEVICE_CONNECTED_TO_ESD_P (d) && STRINGP (sound))
+{
+Extbyte *soundext;
+Extcount soundextlen;
+TO_EXTERNAL_FORMAT (LISP_STRING, sound, ALLOCA, (soundext, soundextlen),
+			  Qbinary);
+if (esd_play_sound_data (soundext, soundextlen, vol))
+return Qnil;
+}
+#endif /* HAVE_ESD_SOUND */
 #ifdef HAVE_NATIVE_SOUND
 if ((NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d))
 && STRINGP (sound))
 {
-CONST Extbyte *soundext;
+const Extbyte *soundext;
 Extcount soundextlen;
-GET_STRING_BINARY_DATA_ALLOCA (sound, soundext, soundextlen);
+TO_EXTERNAL_FORMAT (LISP_STRING, sound,
+			  ALLOCA, (soundext, soundextlen),
+			  Qbinary);
 /* The sound code doesn't like getting SIGIO interrupts. Unix sucks! */
 stop_interrupts ();
 play_sound_data ((unsigned char*)soundext, soundextlen, vol);
 start_interrupts ();
 QUIT;
 the third argument is the device to make it in (defaults to the selected
 device).
 */
 (arg, sound, device))
 {
-struct device *d = decode_device (device);
+static time_t last_bell_time;
+static struct device *last_bell_device;
+time_t now;
+struct device *d = decode_device (device);
 XSETDEVICE (device, d);
+now = time (0);
-/* #### This is utterly disgusting, and is probably a remnant from
-legacy code that used `ding'+`message' to signal error instead
-calling `error'.  As a result, there is no way to beep from Lisp
-directly, without also invoking this aspect.  Maybe we should
-define a `ring-bell' function that simply beeps on the console,
-which `ding' should invoke?  --hniksic */
 if (NILP (arg) && !NILP (Vexecuting_macro))
 /* Stop executing a keyboard macro. */
 error ("Keyboard macro terminated by a command ringing the bell");
+if (d == last_bell_device && now-last_bell_time < bell_inhibit_time)
+return Qnil;
 else if (visible_bell && DEVMETH (d, flash, (d)))
 ;
 else
 Fplay_sound (sound, Qnil, device);
-return Qnil;
+last_bell_time = now;
+last_bell_device = d;
+return Qnil;
 }
 DEFUN ("wait-for-sounds", Fwait_for_sounds, 0, 1, 0, /*
 Wait for all sounds to finish playing on DEVICE.
 */
 Fprovide (intern ("native-sound"));
 #endif
 #ifdef HAVE_NAS_SOUND
 Fprovide (intern ("nas-sound"));
 #endif
+#ifdef HAVE_ESD_SOUND
+Fprovide (intern ("esd-sound"));
+#endif
 DEFVAR_INT ("bell-volume", &bell_volume /*
 *How loud to be, from 0 to 100.
 */ );
 bell_volume = 50;
+DEFVAR_INT ("bell-inhibit-time", &bell_inhibit_time /*
+*Don't ring the bell on the same device more than once within this many seconds.
+*/ );
+bell_inhibit_time = 0;
 DEFVAR_LISP ("sound-alist", &Vsound_alist /*
 An alist associating names with sounds.
 When `beep' or `ding' is called with one of the name symbols, the associated
 sound will be generated instead of the standard beep.
 You should probably add things to this list by calling the function
 load-sound-file.
 Caveats:
-- You can only play audio data if running on the console screen of a
+- XEmacs must be built with sound support for your system.  Not all
-Sun SparcStation, SGI, or HP9000s700.
+systems support sound.
 - The pitch, duration, and volume options are available everywhere, but
 many X servers ignore the `pitch' option.
 The following beep-types are used by emacs itself:

Mercurial > hg > xemacs-beta

comparison src/sound.c @ 398:74fd4e045ea6 r21-2-29