Mercurial > hg > xemacs-beta
view src/sound.c @ 4952:19a72041c5ed
Mule-izing, various fixes related to char * arguments
-------------------- ChangeLog entries follow: --------------------
modules/ChangeLog addition:
2010-01-26 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c:
* postgresql/postgresql.c (CHECK_LIVE_CONNECTION):
* postgresql/postgresql.c (print_pgresult):
* postgresql/postgresql.c (Fpq_conn_defaults):
* postgresql/postgresql.c (Fpq_connectdb):
* postgresql/postgresql.c (Fpq_connect_start):
* postgresql/postgresql.c (Fpq_result_status):
* postgresql/postgresql.c (Fpq_res_status):
Mule-ize large parts of it.
2010-01-26 Ben Wing <ben@xemacs.org>
* ldap/eldap.c (print_ldap):
* ldap/eldap.c (allocate_ldap):
Use write_ascstring().
src/ChangeLog addition:
2010-01-26 Ben Wing <ben@xemacs.org>
* alloc.c:
* alloc.c (build_ascstring):
* alloc.c (build_msg_cistring):
* alloc.c (staticpro_1):
* alloc.c (staticpro_name):
* alloc.c (staticpro_nodump_1):
* alloc.c (staticpro_nodump_name):
* alloc.c (unstaticpro_nodump_1):
* alloc.c (mcpro_1):
* alloc.c (mcpro_name):
* alloc.c (object_memory_usage_stats):
* alloc.c (common_init_alloc_early):
* alloc.c (init_alloc_once_early):
* buffer.c (print_buffer):
* buffer.c (vars_of_buffer):
* buffer.c (common_init_complex_vars_of_buffer):
* buffer.c (init_initial_directory):
* bytecode.c (invalid_byte_code):
* bytecode.c (print_compiled_function):
* bytecode.c (mark_compiled_function):
* chartab.c (print_table_entry):
* chartab.c (print_char_table):
* config.h.in:
* console-gtk.c:
* console-gtk.c (gtk_device_to_console_connection):
* console-gtk.c (gtk_semi_canonicalize_console_connection):
* console-gtk.c (gtk_canonicalize_console_connection):
* console-gtk.c (gtk_semi_canonicalize_device_connection):
* console-gtk.c (gtk_canonicalize_device_connection):
* console-stream.c (stream_init_frame_1):
* console-stream.c (vars_of_console_stream):
* console-stream.c (init_console_stream):
* console-x.c (x_semi_canonicalize_console_connection):
* console-x.c (x_semi_canonicalize_device_connection):
* console-x.c (x_canonicalize_device_connection):
* console-x.h:
* data.c (eq_with_ebola_notice):
* data.c (Fsubr_interactive):
* data.c (Fnumber_to_string):
* data.c (digit_to_number):
* device-gtk.c (gtk_init_device):
* device-msw.c (print_devmode):
* device-x.c (x_event_name):
* dialog-msw.c (handle_directory_dialog_box):
* dialog-msw.c (handle_file_dialog_box):
* dialog-msw.c (vars_of_dialog_mswindows):
* doc.c (weird_doc):
* doc.c (Fsnarf_documentation):
* doc.c (vars_of_doc):
* dumper.c (pdump):
* dynarr.c:
* dynarr.c (Dynarr_realloc):
* editfns.c (Fuser_real_login_name):
* editfns.c (get_home_directory):
* elhash.c (print_hash_table_data):
* elhash.c (print_hash_table):
* emacs.c (main_1):
* emacs.c (vars_of_emacs):
* emodules.c:
* emodules.c (_emodules_list):
* emodules.c (Fload_module):
* emodules.c (Funload_module):
* emodules.c (Flist_modules):
* emodules.c (find_make_module):
* emodules.c (attempt_module_delete):
* emodules.c (emodules_load):
* emodules.c (emodules_doc_subr):
* emodules.c (emodules_doc_sym):
* emodules.c (syms_of_module):
* emodules.c (vars_of_module):
* emodules.h:
* eval.c (print_subr):
* eval.c (signal_call_debugger):
* eval.c (build_error_data):
* eval.c (signal_error):
* eval.c (maybe_signal_error):
* eval.c (signal_continuable_error):
* eval.c (maybe_signal_continuable_error):
* eval.c (signal_error_2):
* eval.c (maybe_signal_error_2):
* eval.c (signal_continuable_error_2):
* eval.c (maybe_signal_continuable_error_2):
* eval.c (signal_ferror):
* eval.c (maybe_signal_ferror):
* eval.c (signal_continuable_ferror):
* eval.c (maybe_signal_continuable_ferror):
* eval.c (signal_ferror_with_frob):
* eval.c (maybe_signal_ferror_with_frob):
* eval.c (signal_continuable_ferror_with_frob):
* eval.c (maybe_signal_continuable_ferror_with_frob):
* eval.c (syntax_error):
* eval.c (syntax_error_2):
* eval.c (maybe_syntax_error):
* eval.c (sferror):
* eval.c (sferror_2):
* eval.c (maybe_sferror):
* eval.c (invalid_argument):
* eval.c (invalid_argument_2):
* eval.c (maybe_invalid_argument):
* eval.c (invalid_constant):
* eval.c (invalid_constant_2):
* eval.c (maybe_invalid_constant):
* eval.c (invalid_operation):
* eval.c (invalid_operation_2):
* eval.c (maybe_invalid_operation):
* eval.c (invalid_change):
* eval.c (invalid_change_2):
* eval.c (maybe_invalid_change):
* eval.c (invalid_state):
* eval.c (invalid_state_2):
* eval.c (maybe_invalid_state):
* eval.c (wtaerror):
* eval.c (stack_overflow):
* eval.c (out_of_memory):
* eval.c (print_multiple_value):
* eval.c (issue_call_trapping_problems_warning):
* eval.c (backtrace_specials):
* eval.c (backtrace_unevalled_args):
* eval.c (Fbacktrace):
* eval.c (warn_when_safe):
* event-Xt.c (modwarn):
* event-Xt.c (modbarf):
* event-Xt.c (check_modifier):
* event-Xt.c (store_modifier):
* event-Xt.c (emacs_Xt_format_magic_event):
* event-Xt.c (describe_event):
* event-gtk.c (dragndrop_data_received):
* event-gtk.c (store_modifier):
* event-gtk.c (gtk_reset_modifier_mapping):
* event-msw.c (dde_eval_string):
* event-msw.c (Fdde_alloc_advise_item):
* event-msw.c (mswindows_dde_callback):
* event-msw.c (FROB):
* event-msw.c (emacs_mswindows_format_magic_event):
* event-stream.c (external_debugging_print_event):
* event-stream.c (execute_help_form):
* event-stream.c (vars_of_event_stream):
* events.c (print_event_1):
* events.c (print_event):
* events.c (event_equal):
* extents.c (print_extent_1):
* extents.c (print_extent):
* extents.c (vars_of_extents):
* faces.c (print_face):
* faces.c (complex_vars_of_faces):
* file-coding.c:
* file-coding.c (print_coding_system):
* file-coding.c (print_coding_system_in_print_method):
* file-coding.c (default_query_method):
* file-coding.c (find_coding_system):
* file-coding.c (make_coding_system_1):
* file-coding.c (chain_print):
* file-coding.c (undecided_print):
* file-coding.c (gzip_print):
* file-coding.c (vars_of_file_coding):
* file-coding.c (complex_vars_of_file_coding):
* fileio.c:
* fileio.c (report_file_type_error):
* fileio.c (report_error_with_errno):
* fileio.c (report_file_error):
* fileio.c (barf_or_query_if_file_exists):
* fileio.c (vars_of_fileio):
* floatfns.c (matherr):
* fns.c (print_bit_vector):
* fns.c (Fmapconcat):
* fns.c (add_suffix_to_symbol):
* fns.c (add_prefix_to_symbol):
* frame-gtk.c:
* frame-gtk.c (Fgtk_window_id):
* frame-x.c (def):
* frame-x.c (x_cde_transfer_callback):
* frame.c:
* frame.c (Fmake_frame):
* gc.c (show_gc_cursor_and_message):
* gc.c (vars_of_gc):
* glyphs-eimage.c (png_instantiate):
* glyphs-eimage.c (tiff_instantiate):
* glyphs-gtk.c (gtk_print_image_instance):
* glyphs-msw.c (mswindows_print_image_instance):
* glyphs-x.c (x_print_image_instance):
* glyphs-x.c (update_widget_face):
* glyphs.c (make_string_from_file):
* glyphs.c (print_image_instance):
* glyphs.c (signal_image_error):
* glyphs.c (signal_image_error_2):
* glyphs.c (signal_double_image_error):
* glyphs.c (signal_double_image_error_2):
* glyphs.c (xbm_mask_file_munging):
* glyphs.c (pixmap_to_lisp_data):
* glyphs.h:
* gui.c (gui_item_display_flush_left):
* hpplay.c (player_error_internal):
* hpplay.c (myHandler):
* intl-win32.c:
* intl-win32.c (langcode_to_lang):
* intl-win32.c (sublangcode_to_lang):
* intl-win32.c (Fmswindows_get_locale_info):
* intl-win32.c (lcid_to_locale_mule_or_no):
* intl-win32.c (mswindows_multibyte_to_unicode_print):
* intl-win32.c (complex_vars_of_intl_win32):
* keymap.c:
* keymap.c (print_keymap):
* keymap.c (ensure_meta_prefix_char_keymapp):
* keymap.c (Fkey_description):
* keymap.c (Ftext_char_description):
* lisp.h:
* lisp.h (struct):
* lisp.h (DECLARE_INLINE_HEADER):
* lread.c (Fload_internal):
* lread.c (locate_file):
* lread.c (read_escape):
* lread.c (read_raw_string):
* lread.c (read1):
* lread.c (read_list):
* lread.c (read_compiled_function):
* lread.c (init_lread):
* lrecord.h:
* marker.c (print_marker):
* marker.c (marker_equal):
* menubar-msw.c (displayable_menu_item):
* menubar-x.c (command_builder_operate_menu_accelerator):
* menubar.c (vars_of_menubar):
* minibuf.c (reinit_complex_vars_of_minibuf):
* minibuf.c (complex_vars_of_minibuf):
* mule-charset.c (Fmake_charset):
* mule-charset.c (complex_vars_of_mule_charset):
* mule-coding.c (iso2022_print):
* mule-coding.c (fixed_width_query):
* number.c (bignum_print):
* number.c (ratio_print):
* number.c (bigfloat_print):
* number.c (bigfloat_finalize):
* objects-msw.c:
* objects-msw.c (mswindows_color_to_string):
* objects-msw.c (mswindows_color_list):
* objects-tty.c:
* objects-tty.c (tty_font_list):
* objects-tty.c (tty_find_charset_font):
* objects-xlike-inc.c (xft_find_charset_font):
* objects-xlike-inc.c (endif):
* print.c:
* print.c (write_istring):
* print.c (write_ascstring):
* print.c (Fterpri):
* print.c (Fprint):
* print.c (print_error_message):
* print.c (print_vector_internal):
* print.c (print_cons):
* print.c (print_string):
* print.c (printing_unreadable_object):
* print.c (print_internal):
* print.c (print_float):
* print.c (print_symbol):
* process-nt.c (mswindows_report_winsock_error):
* process-nt.c (nt_canonicalize_host_name):
* process-unix.c (unix_canonicalize_host_name):
* process.c (print_process):
* process.c (report_process_error):
* process.c (report_network_error):
* process.c (make_process_internal):
* process.c (Fstart_process_internal):
* process.c (status_message):
* process.c (putenv_internal):
* process.c (vars_of_process):
* process.h:
* profile.c (vars_of_profile):
* rangetab.c (print_range_table):
* realpath.c (vars_of_realpath):
* redisplay.c (vars_of_redisplay):
* search.c (wordify):
* search.c (Freplace_match):
* sheap.c (sheap_adjust_h):
* sound.c (report_sound_error):
* sound.c (Fplay_sound_file):
* specifier.c (print_specifier):
* symbols.c (Fsubr_name):
* symbols.c (do_symval_forwarding):
* symbols.c (set_default_buffer_slot_variable):
* symbols.c (set_default_console_slot_variable):
* symbols.c (store_symval_forwarding):
* symbols.c (default_value):
* symbols.c (defsymbol_massage_name_1):
* symbols.c (defsymbol_massage_name_nodump):
* symbols.c (defsymbol_massage_name):
* symbols.c (defsymbol_massage_multiword_predicate_nodump):
* symbols.c (defsymbol_massage_multiword_predicate):
* symbols.c (defsymbol_nodump):
* symbols.c (defsymbol):
* symbols.c (defkeyword):
* symbols.c (defkeyword_massage_name):
* symbols.c (check_module_subr):
* symbols.c (deferror_1):
* symbols.c (deferror):
* symbols.c (deferror_massage_name):
* symbols.c (deferror_massage_name_and_message):
* symbols.c (defvar_magic):
* symeval.h:
* symeval.h (DEFVAR_SYMVAL_FWD):
* sysdep.c:
* sysdep.c (init_system_name):
* sysdll.c:
* sysdll.c (MAYBE_PREPEND_UNDERSCORE):
* sysdll.c (dll_function):
* sysdll.c (dll_variable):
* sysdll.c (dll_error):
* sysdll.c (dll_open):
* sysdll.c (dll_close):
* sysdll.c (image_for_address):
* sysdll.c (my_find_image):
* sysdll.c (search_linked_libs):
* sysdll.h:
* sysfile.h:
* sysfile.h (DEFAULT_DIRECTORY_FALLBACK):
* syswindows.h:
* tests.c (DFC_CHECK_LENGTH):
* tests.c (DFC_CHECK_CONTENT):
* tests.c (Ftest_hash_tables):
* text.c (vars_of_text):
* text.h:
* tooltalk.c (tt_opnum_string):
* tooltalk.c (tt_message_arg_ival_string):
* tooltalk.c (Ftooltalk_default_procid):
* tooltalk.c (Ftooltalk_default_session):
* tooltalk.c (init_tooltalk):
* tooltalk.c (vars_of_tooltalk):
* ui-gtk.c (Fdll_load):
* ui-gtk.c (type_to_marshaller_type):
* ui-gtk.c (Fgtk_import_function_internal):
* ui-gtk.c (emacs_gtk_object_printer):
* ui-gtk.c (emacs_gtk_boxed_printer):
* unicode.c (unicode_to_ichar):
* unicode.c (unicode_print):
* unicode.c (unicode_query):
* unicode.c (vars_of_unicode):
* unicode.c (complex_vars_of_unicode):
* win32.c:
* win32.c (mswindows_report_process_error):
* window.c (print_window):
* xemacs.def.in.in:
BASIC IDEA: Further fixing up uses of char * and CIbyte *
to reflect their actual semantics; Mule-izing some code;
redoing of the not-yet-working code to handle message translation.
Clean up code to handle message-translation (not yet working).
Create separate versions of build_msg_string() for working with
Ibyte *, CIbyte *, and Ascbyte * arguments. Assert that Ascbyte *
arguments are pure-ASCII. Make build_msg_string() be the same
as build_msg_ascstring(). Create same three versions of GETTEXT()
and DEFER_GETTEXT(). Also create build_defer_string() and
variants for the equivalent of DEFER_GETTEXT() when building a
string. Remove old CGETTEXT(). Clean up code where GETTEXT(),
DEFER_GETTEXT(), build_msg_string(), etc. was being called and
introduce some new calls to build_msg_string(), etc. Remove
GETTEXT() from calls to weird_doc() -- we assume that the
message snarfer knows about weird_doc(). Remove uses of
DEFER_GETTEXT() from error messages in sysdep.c and instead use
special comments /* @@@begin-snarf@@@ */ and /* @@@end-snarf@@@ */
that the message snarfer presumably knows about.
Create build_ascstring() and use it in many instances in place
of build_string(). The purpose of having Ascbyte * variants is
to make the code more self-documenting in terms of what sort of
semantics is expected for char * strings. In fact in the process
of looking for uses of build_string(), much improperly Mule-ized
was discovered.
Mule-ize a lot of code as described in previous paragraph,
e.g. in sysdep.c.
Make the error functions take Ascbyte * strings and fix up a
couple of places where non-pure-ASCII strings were being passed in
(file-coding.c, mule-coding.c, unicode.c). (It's debatable whether
we really need to make the error functions work this way. It
helps catch places where code is written in a way that message
translation won't work, but we may well never implement message
translation.)
Make staticpro() and friends take Ascbyte * strings instead of
raw char * strings. Create a const_Ascbyte_ptr dynarr type
to describe what's held by staticpro_names[] and friends,
create pdump descriptions for const_Ascbyte_ptr dynarrs, and
use them in place of specially-crafted staticpro descriptions.
Mule-ize certain other functions (e.g. x_event_name) by correcting
raw use of char * to Ascbyte *, Rawbyte * or another such type,
and raw use of char[] buffers to another type (usually Ascbyte[]).
Change many uses of write_c_string() to write_msg_string(),
write_ascstring(), etc.
Mule-ize emodules.c, emodules.h, sysdll.h.
Fix some un-Mule-ized code in intl-win32.c.
A comment in event-Xt.c and the limitations of the message
snarfer (make-msgfile or whatever) is presumably incorrect --
it should be smart enough to handle function calls spread over
more than one line. Clean up code in event-Xt.c that was
written awkwardly for this reason.
In config.h.in, instead of NEED_ERROR_CHECK_TYPES_INLINES,
create a more general XEMACS_DEFS_NEEDS_INLINE_DECLS to
indicate when inlined functions need to be declared in
xemacs.defs.in.in, and make use of it in xemacs.defs.in.in.
We need to do this because postgresql.c now calls qxestrdup(),
which is an inline function.
Make nconc2() and other such functions MODULE_API and put
them in xemacs.defs.in.in since postgresql.c now uses them.
Clean up indentation in lread.c and a few other places.
In text.h, document ASSERT_ASCTEXT_ASCII() and
ASSERT_ASCTEXT_ASCII_LEN(), group together the stand-in
encodings and add some more for DLL symbols, function and
variable names, etc.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Tue, 26 Jan 2010 23:22:30 -0600 |
| parents | fb73a2046d3e |
| children | 4aebb0131297 |
line wrap: on
line source
/* Sound functions. Copyright (C) 1992, 1993, 1994 Lucid Inc. Copyright (C) 1994, 1995 Free Software Foundation, Inc. Copyright (C) 2002, 2004 Ben Wing. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ /* This file Mule-ized by Ben Wing, 5-15-01. */ /* 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-impl.h" #endif #include "device-impl.h" #include "redisplay.h" #include "sound.h" #include "sysdep.h" #include "sysfile.h" #ifdef HAVE_NATIVE_SOUND # include "sysproc.h" #endif #ifdef WIN32_NATIVE #include "syswindows.h" #endif #ifdef HAVE_NAS_SOUND #define USED_IF_HAVE_NAS(decl) decl #else #define USED_IF_HAVE_NAS(decl) UNUSED (decl) #endif #if defined(HAVE_NATIVE_SOUND) || defined(HAVE_NAS_SOUND) #define USED_IF_HAVE_NATIVE_OR_NAS(decl) decl #else #define USED_IF_HAVE_NATIVE_OR_NAS(decl) UNUSED (decl) #endif #if defined(HAVE_NATIVE_SOUND) || defined(HAVE_NAS_SOUND) \ || defined(HAVE_ALSA_SOUND) || defined(HAVE_ESD_SOUND) #define USED_IF_HAVE_ANY(decl) decl #else #define USED_IF_HAVE_ANY(decl) UNUSED (decl) #endif #ifdef HAVE_ALSA_SOUND extern int alsa_play_sound_file (const Extbyte *file, int vol); extern int alsa_play_sound_data (const Binbyte *data, int length, int vol); # define DEVICE_CONNECTED_TO_ALSA_P(x) 1 /* #### better check */ #endif #ifdef HAVE_ESD_SOUND extern int esd_play_sound_file (Extbyte *file, int vol); extern int esd_play_sound_data (Binbyte *data, size_t length, int vol); # define DEVICE_CONNECTED_TO_ESD_P(x) 1 /* #### better check */ #endif #ifdef HAVE_NAS_SOUND extern int nas_play_sound_file (Extbyte *name, int volume); extern int nas_play_sound_data (Binbyte *data, int length, int volume); extern int nas_wait_for_sounds (void); extern Extbyte *nas_init_play (Display *); #endif Fixnum bell_volume; Fixnum 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; Lisp_Object Qsound_error; DOESNT_RETURN report_sound_error (const Ascbyte *reason, Lisp_Object data) { report_error_with_errno (Qsound_error, reason, data); } DEFUN ("play-sound-file", Fplay_sound_file, 1, 3, "fSound file name: ", /* Play the named sound file on DEVICE's speaker at the specified volume \(0-100, default specified by the `bell-volume' variable). On Unix machines the sound file must be in the Sun/NeXT U-LAW format except under Linux where WAV files are also supported. On Microsoft Windows the sound file must be in WAV format. DEVICE defaults to the selected device. */ (file, volume, USED_IF_HAVE_ANY (device))) { /* This function can call lisp */ int vol; #if defined (HAVE_NATIVE_SOUND) || defined (HAVE_ALSA_SOUND) || \ defined (HAVE_NAS_SOUND) || defined (HAVE_ESD_SOUND) struct device *d = decode_device (device); #endif struct gcpro gcpro1; CHECK_STRING (file); if (NILP (volume)) vol = bell_volume; else { CHECK_INT (volume); vol = XINT (volume); } GCPRO1 (file); while (1) { file = Fexpand_file_name (file, Qnil); if (!NILP(Ffile_readable_p (file))) break; else { /* #### This is crockish. It might be a better idea to try to open the file, and use report_file_error() if it fails. --hniksic */ if (NILP (Ffile_exists_p (file))) file = signal_continuable_error (Qfile_error, "File does not exist", file); else file = signal_continuable_error (Qfile_error, "File is unreadable", file); } } UNGCPRO; #ifdef HAVE_ALSA_SOUND if (DEVICE_CONNECTED_TO_ALSA_P (d)) { Extbyte *fileext; LISP_STRING_TO_EXTERNAL (file, fileext, Qfile_name); /* #### ALSA code should allow specification of a device. */ if (alsa_play_sound_file (fileext, vol)) return Qnil; } #endif #ifdef HAVE_NAS_SOUND if (DEVICE_CONNECTED_TO_NAS_P (d)) { Extbyte *fileext; LISP_STRING_TO_EXTERNAL (file, 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)) { Extbyte *fileext; int result; LISP_STRING_TO_EXTERNAL (file, fileext, Qfile_name); /* #### ESD uses alarm(). But why should we also stop SIGIO? */ stop_interrupts (); result = esd_play_sound_file (fileext, vol); start_interrupts (); if (result) return Qnil; } #endif /* HAVE_ESD_SOUND */ #ifdef HAVE_NATIVE_SOUND if (NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d)) { #ifdef WIN32_ANY nt_play_sound_file (file, vol); #else Extbyte *fileext; LISP_PATHNAME_CONVERT_OUT (file, fileext); /* The sound code doesn't like getting SIGIO interrupts. Unix sucks! */ stop_interrupts (); play_sound_file (fileext, vol); start_interrupts (); #endif /* WIN32_NATIVE */ QUIT; } #endif /* HAVE_NATIVE_SOUND */ return Qnil; } static void parse_sound_alist_elt (Lisp_Object elt, Lisp_Object *volume, Lisp_Object *pitch, Lisp_Object *duration, Lisp_Object *sound) { *volume = Qnil; *pitch = Qnil; *duration = Qnil; *sound = Qnil; if (! CONSP (elt)) return; /* The things we do for backward compatibility... I wish I had just forced this to be a plist to begin with. */ if (SYMBOLP (elt) || STRINGP (elt)) /* ( name . <sound> ) */ { *sound = elt; } else if (!CONSP (elt)) { return; } else if (NILP (XCDR (elt)) && /* ( name <sound> ) */ (SYMBOLP (XCAR (elt)) || STRINGP (XCAR (elt)))) { *sound = XCAR (elt); } else if (INT_OR_FLOATP (XCAR (elt)) && /* ( name <vol> . <sound> ) */ (SYMBOLP (XCDR (elt)) || STRINGP (XCDR (elt)))) { *volume = XCAR (elt); *sound = XCDR (elt); } else if (INT_OR_FLOATP (XCAR (elt)) && /* ( name <vol> <sound> ) */ CONSP (XCDR (elt)) && NILP (XCDR (XCDR (elt))) && (SYMBOLP (XCAR (XCDR (elt))) || STRINGP (XCAR (XCDR (elt))))) { *volume = XCAR (elt); *sound = XCAR (XCDR (elt)); } else if ((SYMBOLP (XCAR (elt)) || /* ( name <sound> . <vol> ) */ STRINGP (XCAR (elt))) && INT_OR_FLOATP (XCDR (elt))) { *sound = XCAR (elt); *volume = XCDR (elt); } #if 0 /* this one is ambiguous with the plist form */ else if ((SYMBOLP (XCAR (elt)) || /* ( name <sound> <vol> ) */ STRINGP (XCAR (elt))) && CONSP (XCDR (elt)) && NILP (XCDR (XCDR (elt))) && INT_OR_FLOATP (XCAR (XCDR (elt)))) { *sound = XCAR (elt); *volume = XCAR (XCDR (elt)); } #endif /* 0 */ else /* ( name [ keyword <value> ]* ) */ { while (CONSP (elt)) { Lisp_Object key, val; key = XCAR (elt); val = XCDR (elt); if (!CONSP (val)) return; elt = XCDR (val); val = XCAR (val); if (EQ (key, Q_volume)) { if (INT_OR_FLOATP (val)) *volume = val; } else if (EQ (key, Q_pitch)) { if (INT_OR_FLOATP (val)) *pitch = val; if (NILP (*sound)) *sound = Qt; } else if (EQ (key, Q_duration)) { if (INT_OR_FLOATP (val)) *duration = val; if (NILP (*sound)) *sound = Qt; } else if (EQ (key, Q_sound)) { if (SYMBOLP (val) || STRINGP (val)) *sound = val; } } } } DEFUN ("play-sound", Fplay_sound, 1, 3, 0, /* Play a sound of the provided type. SOUND can a symbol, specifying a sound to be looked up in `sound-alist' \(generally, either the symbol directly maps to a sound or is an "abstract" symbol that maps to another symbol and is used to specify the sound that is played when a particular behavior occurs. `ding' lists the built-in abstract sounds and their intended purpose. SOUND can also be a string, which directly encodes the sound data to be played. If SOUND is nil, the abstract sound `default' will be used. VOLUME controls the volume (max is around 150? not sure). DEVICE is the device to play the sound on (defaults to the selected device). If the sound cannot be played in any other way, the standard "bell" will sound. */ (sound, volume, device)) { int looking_for_default = 0; /* variable `sound' is anything that can be a cdr in sound-alist */ Lisp_Object new_volume, pitch, duration, data; int loop_count = 0; int vol, pit, dur; struct device *d = decode_device (device); /* NOTE! You'd better not signal an error in here. */ try_it_again: while (1) { if (SYMBOLP (sound)) sound = Fcdr (Fassq (sound, Vsound_alist)); parse_sound_alist_elt (sound, &new_volume, &pitch, &duration, &data); sound = data; if (NILP (volume)) volume = new_volume; if (EQ (sound, Qt) || EQ (sound, Qnil) || STRINGP (sound)) break; if (loop_count++ > 500) /* much bogosity has occurred */ break; } if (NILP (sound) && !looking_for_default) { looking_for_default = 1; loop_count = 0; sound = Qdefault; goto try_it_again; } vol = (INT_OR_FLOATP (volume) ? (int) XFLOATINT (volume) : bell_volume); pit = (INT_OR_FLOATP (pitch) ? (int) XFLOATINT (pitch) : -1); dur = (INT_OR_FLOATP (duration) ? (int) XFLOATINT (duration) : -1); /* If the sound is a string, and we're connected to ALSA, NAS, or ESD, do that. Else if the sound is a string, and we're on console, play it natively. Else just beep. */ #ifdef HAVE_ALSA_SOUND if (DEVICE_CONNECTED_TO_ALSA_P (d) && STRINGP (sound)) { Binbyte *soundext; Bytecount soundextlen; TO_EXTERNAL_FORMAT (LISP_STRING, sound, ALLOCA, (soundext, soundextlen), Qbinary); if (alsa_play_sound_data (soundext, soundextlen, vol)) return Qnil; } #endif /* HAVE_ALSA_SOUND */ #ifdef HAVE_NAS_SOUND if (DEVICE_CONNECTED_TO_NAS_P (d) && STRINGP (sound)) { Binbyte *soundext; Bytecount soundextlen; TO_EXTERNAL_FORMAT (LISP_STRING, sound, ALLOCA, (soundext, soundextlen), Qbinary); if (nas_play_sound_data (soundext, soundextlen, vol)) return Qnil; } #endif /* HAVE_NAS_SOUND */ #ifdef HAVE_ESD_SOUND if (DEVICE_CONNECTED_TO_ESD_P (d) && STRINGP (sound)) { Binbyte *soundext; Bytecount soundextlen; int succes; TO_EXTERNAL_FORMAT (LISP_STRING, sound, ALLOCA, (soundext, soundextlen), Qbinary); /* #### ESD uses alarm(). But why should we also stop SIGIO? */ stop_interrupts (); succes = esd_play_sound_data (soundext, soundextlen, vol); start_interrupts (); QUIT; if(succes) return Qnil; } #endif /* HAVE_ESD_SOUND */ #ifdef HAVE_NATIVE_SOUND if ((NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d)) && STRINGP (sound)) { Binbyte *soundext; Bytecount soundextlen; int succes; TO_EXTERNAL_FORMAT (LISP_STRING, sound, ALLOCA, (soundext, soundextlen), Qbinary); /* The sound code doesn't like getting SIGIO interrupts. Unix sucks! */ stop_interrupts (); succes = play_sound_data (soundext, soundextlen, vol); start_interrupts (); QUIT; if (succes) return Qnil; } #endif /* HAVE_NATIVE_SOUND */ DEVMETH (d, ring_bell, (d, vol, pit, dur)); return Qnil; } DEFUN ("device-sound-enabled-p", Fdevice_sound_enabled_p, 0, 1, 0, /* Return t if DEVICE is able to play sound. Defaults to selected device. */ (USED_IF_HAVE_NATIVE_OR_NAS (device))) { #ifdef HAVE_ALSA_SOUND if (DEVICE_CONNECTED_TO_ALSA_P (decode_device (device))) return Qt; #endif #ifdef HAVE_NAS_SOUND if (DEVICE_CONNECTED_TO_NAS_P (decode_device (device))) return Qt; #endif #ifdef HAVE_NATIVE_SOUND if (DEVICE_ON_CONSOLE_P (decode_device (device))) return Qt; #endif return Qnil; } DEFUN ("ding", Fding, 0, 3, 0, /* Beep, or flash the frame. \(See `visible-bell'; setting this makes the frame flash instead of beeping.) Also, unless NO-TERMINATE is given, terminate any keyboard macro currently executing. SOUND specifies the sound to make and DEVICE the device to make it on (defaults to the selected device). SOUND is either a string (raw data to be played directly), a symbol, or `nil' (equivalent to the symbol `default'). Sound symbols are looked up in `sound-alist', and resolve either to strings of data or to other symbols. Sound symbols that map directly to data should be considered named sounds; sound symbols that map to other sounds should be considered abstract sounds, and are used when a particular behavior or state occurs. Remember that the sound symbol is the *second* argument to `ding', not the first. The following abstract sounds are used by XEmacs itself: alarm when a package wants to remind the user auto-save-error when an auto-save does not succeed buffer-bound when you attempt to move off the end of a buffer command-error any uncaught error (i.e. any error that the user sees) except those handled by undefined-click, undefined-key, buffer-bound, or read-only default used when nothing else is appropriate. isearch-failed unable to locate search text during incremental search isearch-quit when you delete chars past the beginning of the search text in isearch no-completion during completing-read quit when C-g is typed read-only when you try to modify a read-only buffer ready when a compile or other time-consuming task is done undefined-click when you use an undefined mouse-click combination undefined-key when you type a key that is undefined warp XEmacs has changed the selected-window or frame asynchronously -- e.g. a debugger breakpoint is hit in an asynchronous process filter y-or-n-p when you type something other than 'y' or 'n' yes-or-no-p when you type something other than 'yes' or 'no' Other lisp packages may use other beep types, but these are the ones that the C kernel of Emacs uses. */ (no_terminate, sound, device)) { static time_t last_bell_time; static struct device *last_bell_device; time_t now; struct device *d = decode_device (device); device = wrap_device (d); now = time (0); if (NILP (no_terminate) && !NILP (Vexecuting_macro)) /* Stop executing a keyboard macro. */ invalid_operation ("Keyboard macro terminated by a command ringing the bell", Qunbound); if (d == last_bell_device && now-last_bell_time < bell_inhibit_time) return Qnil; else if (!NILP (Vvisible_bell) && DEVMETH (d, flash, (d))) ; else Fplay_sound (sound, Qnil, device); 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. */ (USED_IF_HAVE_NAS (device))) { #ifdef HAVE_NAS_SOUND struct device *d = decode_device (device); if (DEVICE_CONNECTED_TO_NAS_P (d)) { /* #### somebody fix this to be device-dependent. */ nas_wait_for_sounds (); } #endif return Qnil; } DEFUN ("connected-to-nas-p", Fconnected_to_nas_p, 0, 1, 0, /* Return t if connected to NAS server for sounds on DEVICE. */ (USED_IF_HAVE_NAS (device))) { #ifdef HAVE_NAS_SOUND return DEVICE_CONNECTED_TO_NAS_P (decode_device (device)) ? Qt : Qnil; #else return Qnil; #endif } #ifdef HAVE_NAS_SOUND static void init_nas_sound (struct device *d) { #ifdef HAVE_X_WINDOWS if (DEVICE_X_P (d)) { Extbyte *err_message = nas_init_play (DEVICE_X_DISPLAY (d)); DEVICE_CONNECTED_TO_NAS_P (d) = !err_message; /* Print out the message? */ } #endif /* HAVE_X_WINDOWS */ } #endif /* HAVE_NAS_SOUND */ #ifdef HAVE_NATIVE_SOUND static void init_native_sound (struct device *d) { if (!(DEVICE_X_P(d) || DEVICE_GTK_P(d))) DEVICE_ON_CONSOLE_P (d) = 1; #ifdef HAVE_X_WINDOWS else { /* When running on a machine with native sound support, we cannot use digitized sounds as beeps unless emacs is running on the same machine that $DISPLAY points to, and $DISPLAY points to frame 0 of that machine. */ Display *display = DEVICE_X_DISPLAY (d); Extbyte *dpy = DisplayString (display); Extbyte *tail = strchr (dpy, ':'); if (! tail || strncmp (tail, ":0", 2)) DEVICE_ON_CONSOLE_P (d) = 0; else { Extbyte dpyname[255], localname[255]; /* some systems can't handle SIGIO or SIGALARM in gethostbyname. */ stop_interrupts (); strncpy (dpyname, dpy, tail-dpy); dpyname [tail-dpy] = 0; if (!*dpyname || !strcmp (dpyname, "unix") || !strcmp (dpyname, "localhost")) DEVICE_ON_CONSOLE_P (d) = 1; else if (gethostname (localname, sizeof (localname))) DEVICE_ON_CONSOLE_P (d) = 0; /* can't find hostname? */ else { /* We have to call gethostbyname() on the result of gethostname() because the two aren't guaranteed to be the same name for the same host: on some losing systems, one is a FQDN and the other is not. Here in the wide wonderful world of Unix it's rocket science to obtain the local hostname in a portable fashion. And don't forget, gethostbyname() reuses the structure it returns, so we have to copy the fucker before calling it again. Thank you master, may I have another. */ struct hostent *h = gethostbyname (dpyname); if (!h) DEVICE_ON_CONSOLE_P (d) = 0; else { Extbyte *hn = alloca_array (Extbyte, strlen (h->h_name) + 1); struct hostent *l; strcpy (hn, h->h_name); l = gethostbyname (localname); DEVICE_ON_CONSOLE_P (d) = (l && !(strcmp (l->h_name, hn))); } } start_interrupts (); } } #endif /* HAVE_X_WINDOWS */ } #endif /* HAVE_NATIVE_SOUND */ void init_device_sound (struct device * USED_IF_HAVE_NATIVE_OR_NAS (d)) { #ifdef HAVE_NAS_SOUND init_nas_sound (d); #endif #ifdef HAVE_NATIVE_SOUND init_native_sound (d); #endif } void syms_of_sound (void) { DEFKEYWORD (Q_volume); DEFKEYWORD (Q_pitch); DEFKEYWORD (Q_duration); DEFKEYWORD (Q_sound); DEFERROR_STANDARD (Qsound_error, Qio_error); DEFSUBR (Fplay_sound_file); DEFSUBR (Fplay_sound); DEFSUBR (Fding); DEFSUBR (Fwait_for_sounds); DEFSUBR (Fconnected_to_nas_p); DEFSUBR (Fdevice_sound_enabled_p); } void vars_of_sound (void) { #ifdef HAVE_ALSA_SOUND Fprovide (intern ("alsa-sound")); #endif #ifdef HAVE_NATIVE_SOUND 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. Each element of `sound-alist' is a list describing a sound. The first element of the list is the name of the sound being defined. Subsequent elements of the list are alternating keyword/value pairs: Keyword: Value: ------- ----- sound A string of raw sound data, or the name of another sound to play. The symbol `t' here means use the default X beep. volume An integer from 0-100, defaulting to `bell-volume' pitch If using the default X beep, the pitch (Hz) to generate. duration If using the default X beep, the duration (milliseconds). For compatibility, elements of `sound-alist' may also be: ( sound-name . <sound> ) ( sound-name <volume> <sound> ) You should probably add things to this list by calling the function load-sound-file. Caveats: - XEmacs must be built with sound support for your system. Not all systems support sound. - The pitch, duration, and volume options are available everywhere, but many X servers ignore the `pitch' option. Sound symbols that map directly to data should be considered named sounds; sound symbols that map to other sounds should be considered abstract sounds, and are used when a particular behavior or state occurs. See `ding' for a list of the standard abstract sounds. */ ); Vsound_alist = Qnil; DEFVAR_LISP ("synchronous-sounds", &Vsynchronous_sounds /* Play sounds synchronously, if non-nil. Only applies if NAS is used and supports asynchronous playing of sounds. Otherwise, sounds are always played synchronously. */ ); Vsynchronous_sounds = Qnil; DEFVAR_LISP ("native-sound-only-on-console", &Vnative_sound_only_on_console /* Non-nil value means play sounds only if XEmacs is running on the system console. Nil means always play sounds, even if running on a non-console tty or a secondary X display. This variable only applies to native sound support. */ ); Vnative_sound_only_on_console = Qt; #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800) { void vars_of_hpplay (void); vars_of_hpplay (); } #endif }