Mercurial > hg > xemacs-beta
annotate src/gpmevent.c @ 1204:e22b0213b713
[xemacs-hg @ 2003-01-12 11:07:58 by michaels]
modules/ChangeLog:
2002-12-16 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c:
remove ifdef USE_KKCC.
src/ChangeLog:
2003-01-08 Mike Sperber <mike@xemacs.org>
* console.h (CDFW_CONSOLE): Don't lead to a crash if we're dealing
with a dead window/frame/device/console.
2002-12-20 Mike Sperber <mike@xemacs.org>
* ui-gtk.c: Fix typo from Ben's patch: emacs_ffi_data is a
typedef, not a struct. emacs_gtk_object_data is a typedef, not a
struct.
* gtk-glue.c (gdk_event_to_emacs_event): Fix typos from Ben's
patch: le -> emacs_event + rearrange the code.
* event-gtk.c (gtk_event_to_emacs_event): Fix typos from Ben's
patch: ..._UNDERLYING_GDK_EVENT -> ..._GDK_EVENT, ev -> key_event.
* device-gtk.c: Fix typo from Ben's patch: x_keysym_map_hash_table
-> x_keysym_map_hashtable.
2002-12-19 Mike Sperber <mike@xemacs.org>
* menubar-x.c (set_frame_menubar): Initialize protect_me field of
popup_data.
2002-12-16 Ben Wing <ben@xemacs.org>
Major cleanup of KKCC, etc.
KKCC, pdump-related:
-- descriptions are written for all objects. this required some
changes in the format of some objects, e.g. extents, popup-data,
coding system, lstream, lcrecord-list.
-- KKCC now handles weakness in markers, hash tables, elsewhere
correctly (formerly, you'd eventually get a stack overflow due
to endlessly expanding markers).
-- textual changes: lrecord_description -> memory_description,
struct_description -> sized_memory_description.
-- extensive comment describing descriptions and pdump.
-- redo XD_UNION so it works inline and change its format to provide
sufficient info for pdump. implement XD_UNION in pdump. also add
XD_UNION_DYNAMIC_SIZE, which works like XD_UNION except for when
auto-computing structure sizes.
-- add support for XD_INDIRECT in description offsets (used by
extents).
-- add support for "description maps", allowing for indirect
descriptions that are retrieved from an object at run-time. this
generalizes XD_CODING_SYSTEM_END, XD_SPECIFIER_END, etc., which
have now been eliminated.
-- add a fifth field "flags" to memory_description, to support flags
that can be specified for this particular line. Currently defined
flags are XD_FLAG_NO_KKCC (KKCC should ignore this entry; useful
for the weakness above in markers, etc.), XD_FLAG_NO_PDUMP (pdump
should ignore this entry), XD_FLAG_UNION_DEFAULT_ENTRY (in
union maps, this specifies a "default" entry for all remaining
values), and XD_FLAG_FREE_LISP_OBJECT (for use with lcrecord-lists).
-- clean up the kkcc-itis in events, so that the differences
between event data as separate objects and as a union are now
minimized to a small number of places. with the new XD_UNION, we
no longer need event data as separate objects, so this code is no
longer ifdef USE_KKCC, but instead ifdef EVENT_DATA_AS_OBJECTS,
not used by default. make sure that we explicitly free the
separate event data objects when no longer in use, to maintain the
invariant the event processing causes no consing.
-- also remove other USE_KKCC ifdefs when not necessary.
-- allow for KKCC compilation under MS Windows.
-- fix README.kkcc.
-- dump_add_root_object -> dump_add_root_lisp_object.
-- implement dump_add_root_block and use this to handle
dump_add_opaque.
-- factor out some code duplicated in kkcc and pdump.
Other allocation/object-related:
-- change various *slots.h so MARKED_SLOT() call no longer
includes semicolon.
-- free_marker() takes a Lisp_Object not a direct pointer.
-- make bit vectors lcrecords, like vectors, and eliminate code
that essentially duplicated the lcrecord handling.
-- additional asserts in FREE_FIXED_TYPE, formerly duplicated in
the various callers of this.
-- all lcrecord allocation functions now zero out the returned
lcrecords. unnecessary calls to zero_lcrecord removed. add long
comment describing these functions.
-- extract out process and coding system slots, like for buffers,
frames, etc.
-- lcrecords now set the type of items sitting on the free list to
lcrecord_type_free.
-- changes to the way that gap arrays are allocated, for kkcc's
benefit -- now, one single memory block with a stretchy array on
the end, instead of a separate block holding the array.
Error-checking-related:
-- now can compile with C++ under MS Windows. clean up compile errors
discovered that way. (a few were real problems)
-- add C++ error-checking code to verify problems with mismatched
GCPRO/UNGCPRO. (there were a few in the kkcc code.) add long
comment about how to catch insufficient GCPRO (yes, it's possible
using C++).
-- add debug_p4(), a simple object printer, when debug_print()
doesn't work.
-- add dp() and db() as short synonyms of debug_print(),
debug_backtrace().
-- `print' tries EXTREMELY hard to avoid core dumping when printing
when crashing or from debug_print(), and tries as hard as it
reasonably can in other situations.
-- Correct the message output upon crashing to be more up-to-date.
Event-related:
-- document event-matches-key-specifier-p better.
-- generalize the dispatch queues formerly duplicated in the
various event implementations. add event methods to drain pending
events. generalize and clean up QUIT handling, removing
event-specific quit processing. allow arbitrary keystrokes, not
just ASCII, to be the QUIT char. among other things, this should
fix some longstanding bugs in X quit handling. long comment
describing the various event queues.
-- implement delaying of XFlush() if there are pending expose events.
SOMEONE PLEASE TRY THIS OUT.
-- Fix `xemacs -batch -l dunnet' under Cygwin. Try to fix under
MS Windows but not quite there yet.
Other:
-- class -> class_ and no more C++ games with this item.
new -> new_ in the lwlib code, so far not elsewhere.
-- use `struct htentry' not `struct hentry' in elhash.c to avoid
debugger confusion with hash.c.
-- new macros ALIST_LOOP_3, ALIST_LOOP_4.
* README.kkcc:
* alloc.c:
* alloc.c (deadbeef_memory):
* alloc.c (allocate_lisp_storage):
* alloc.c (copy_lisp_object):
* alloc.c (ALLOCATE_FIXED_TYPE_1):
* alloc.c (FREE_FIXED_TYPE):
* alloc.c (make_vector_internal):
* alloc.c (make_bit_vector_internal):
* alloc.c (make_key_data):
* alloc.c (make_button_data):
* alloc.c (make_motion_data):
* alloc.c (make_process_data):
* alloc.c (make_timeout_data):
* alloc.c (make_magic_data):
* alloc.c (make_magic_eval_data):
* alloc.c (make_eval_data):
* alloc.c (make_misc_user_data):
* alloc.c (struct string_chars_block):
* alloc.c (mark_lcrecord_list):
* alloc.c (make_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (alloc_automanaged_lcrecord):
* alloc.c (staticpro_1):
* alloc.c (staticpro):
* alloc.c (lispdesc_indirect_count_1):
* alloc.c (lispdesc_indirect_description_1):
* alloc.c (lispdesc_one_description_line_size):
* alloc.c (lispdesc_structure_size):
* alloc.c (mark_object_maybe_checking_free):
* alloc.c (mark_with_description):
* alloc.c (mark_struct_contents):
* alloc.c (mark_object):
* alloc.c (tick_lcrecord_stats):
* alloc.c (free_cons):
* alloc.c (free_key_data):
* alloc.c (free_button_data):
* alloc.c (free_motion_data):
* alloc.c (free_process_data):
* alloc.c (free_timeout_data):
* alloc.c (free_magic_data):
* alloc.c (free_magic_eval_data):
* alloc.c (free_eval_data):
* alloc.c (free_misc_user_data):
* alloc.c (free_marker):
* alloc.c (compact_string_chars):
* alloc.c (gc_sweep):
* alloc.c (garbage_collect_1):
* alloc.c (Fgarbage_collect):
* alloc.c (common_init_alloc_early):
* alloc.c (init_alloc_early):
* alloc.c (init_alloc_once_early):
* buffer.c:
* buffer.c (mark_buffer):
* buffer.c (MARKED_SLOT):
* buffer.c (cleanup_buffer_undo_lists):
* buffer.c (Fget_file_buffer):
* buffer.h (MARKED_SLOT):
* bufslots.h:
* bytecode.c:
* callint.c:
* casetab.c:
* chartab.c:
* chartab.c (symbol_to_char_table_type):
* cmdloop.c:
* cmdloop.c (Fcommand_loop_1):
* config.h.in (new):
* conslots.h:
* console-gtk-impl.h (struct gtk_frame):
* console-impl.h:
* console-impl.h (struct console):
* console-impl.h (MARKED_SLOT):
* console-impl.h (CONSOLE_QUIT_EVENT):
* console-msw-impl.h (XM_BUMPQUEUE):
* console-msw.c (write_string_to_mswindows_debugging_output):
* console-msw.h:
* console-stream-impl.h:
* console-stream-impl.h (struct stream_console):
* console-stream.c:
* console-stream.c (stream_init_console):
* console-stream.h:
* console-tty.c:
* console-tty.h:
* console-x.h:
* console.c:
* console.c (mark_console):
* console.c (MARKED_SLOT):
* console.c (allocate_console):
* console.c (get_console_variant):
* console.c (create_console):
* console.c (delete_console_internal):
* console.c (Fset_input_mode):
* console.c (Fcurrent_input_mode):
* console.c (common_init_complex_vars_of_console):
* console.h:
* console.h (console_variant):
* console.h (device_metrics):
* data.c:
* data.c (Faref):
* data.c (Faset):
* data.c (decode_weak_list_type):
* database.c:
* debug.c (xemacs_debug_loop):
* debug.c (FROB):
* debug.c (Fadd_debug_class_to_check):
* debug.c (Fdelete_debug_class_to_check):
* debug.c (Fset_debug_classes_to_check):
* debug.c (Fset_debug_class_types_to_check):
* debug.c (Fdebug_types_being_checked):
* debug.h (DASSERT):
* device-gtk.c:
* device-impl.h (struct device):
* device-impl.h (MARKED_SLOT):
* device-msw.c:
* device-x.c:
* device-x.c (x_init_device_class):
* device-x.c (x_comp_visual_info):
* device-x.c (x_try_best_visual_class):
* device-x.c (x_init_device):
* device-x.c (construct_name_list):
* device-x.c (x_get_resource_prefix):
* device-x.c (Fx_get_resource):
* device-x.c (Fx_display_visual_class):
* device.c:
* device.c (MARKED_SLOT):
* device.c (allocate_device):
* device.c (Fmake_device):
* device.c (delete_device_internal):
* device.c (Fset_device_class):
* device.h:
* devslots.h:
* devslots.h (MARKED_SLOT):
* dialog-msw.c:
* dired-msw.c (mswindows_ls_sort_fcn):
* dired-msw.c (mswindows_get_files):
* dired-msw.c (mswindows_format_file):
* doprnt.c (parse_doprnt_spec):
* dumper.c:
* dumper.c (struct):
* dumper.c (dump_add_root_block):
* dumper.c (dump_add_root_struct_ptr):
* dumper.c (dump_add_root_lisp_object):
* dumper.c (pdump_struct_list_elt):
* dumper.c (pdump_get_entry_list):
* dumper.c (pdump_backtrace):
* dumper.c (pdump_bump_depth):
* dumper.c (pdump_register_sub):
* dumper.c (pdump_register_object):
* dumper.c (pdump_register_struct_contents):
* dumper.c (pdump_register_struct):
* dumper.c (pdump_store_new_pointer_offsets):
* dumper.c (pdump_dump_data):
* dumper.c (pdump_reloc_one):
* dumper.c (pdump_allocate_offset):
* dumper.c (pdump_scan_by_alignment):
* dumper.c (pdump_dump_root_blocks):
* dumper.c (pdump_dump_rtables):
* dumper.c (pdump_dump_root_lisp_objects):
* dumper.c (pdump):
* dumper.c (pdump_load_finish):
* dumper.c (pdump_file_get):
* dumper.c (pdump_resource_get):
* dumper.c (pdump_load):
* editfns.c (save_excursion_restore):
* editfns.c (user_login_name):
* editfns.c (save_restriction_restore):
* elhash.c:
* elhash.c (htentry):
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (HTENTRY_CLEAR_P):
* elhash.c (LINEAR_PROBING_LOOP):
* elhash.c (check_hash_table_invariants):
* elhash.c (mark_hash_table):
* elhash.c (hash_table_equal):
* elhash.c (print_hash_table_data):
* elhash.c (free_hentries):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (decode_hash_table_weakness):
* elhash.c (decode_hash_table_test):
* elhash.c (Fcopy_hash_table):
* elhash.c (resize_hash_table):
* elhash.c (pdump_reorganize_hash_table):
* elhash.c (find_htentry):
* elhash.c (Fgethash):
* elhash.c (Fputhash):
* elhash.c (remhash_1):
* elhash.c (Fremhash):
* elhash.c (Fclrhash):
* elhash.c (copy_compress_hentries):
* elhash.c (elisp_maphash_unsafe):
* elhash.c (finish_marking_weak_hash_tables):
* elhash.c (prune_weak_hash_tables):
* elhash.h:
* emacs.c:
* emacs.c (main_1):
* emacs.c (main):
* emacs.c (shut_down_emacs):
* emodules.h (dump_add_root_lisp_object):
* eval.c:
* eval.c (unwind_to_catch):
* eval.c (maybe_signal_error_1):
* eval.c (maybe_signal_continuable_error_1):
* eval.c (maybe_signal_error):
* eval.c (maybe_signal_continuable_error):
* eval.c (maybe_signal_error_2):
* eval.c (maybe_signal_continuable_error_2):
* eval.c (maybe_signal_ferror):
* eval.c (maybe_signal_continuable_ferror):
* eval.c (maybe_signal_ferror_with_frob):
* eval.c (maybe_signal_continuable_ferror_with_frob):
* eval.c (maybe_syntax_error):
* eval.c (maybe_sferror):
* eval.c (maybe_invalid_argument):
* eval.c (maybe_invalid_constant):
* eval.c (maybe_invalid_operation):
* eval.c (maybe_invalid_change):
* eval.c (maybe_invalid_state):
* eval.c (Feval):
* eval.c (call_trapping_problems):
* eval.c (call_with_suspended_errors):
* eval.c (warn_when_safe_lispobj):
* eval.c (warn_when_safe):
* eval.c (vars_of_eval):
* event-Xt.c:
* event-Xt.c (maybe_define_x_key_as_self_inserting_character):
* event-Xt.c (x_to_emacs_keysym):
* event-Xt.c (x_event_to_emacs_event):
* event-Xt.c (emacs_Xt_enqueue_focus_event):
* event-Xt.c (emacs_Xt_format_magic_event):
* event-Xt.c (emacs_Xt_compare_magic_event):
* event-Xt.c (emacs_Xt_hash_magic_event):
* event-Xt.c (emacs_Xt_handle_magic_event):
* event-Xt.c (Xt_timeout_to_emacs_event):
* event-Xt.c (Xt_process_to_emacs_event):
* event-Xt.c (signal_special_Xt_user_event):
* event-Xt.c (emacs_Xt_next_event):
* event-Xt.c (emacs_Xt_event_handler):
* event-Xt.c (emacs_Xt_drain_queue):
* event-Xt.c (emacs_Xt_event_pending_p):
* event-Xt.c (check_if_pending_expose_event):
* event-Xt.c (reinit_vars_of_event_Xt):
* event-Xt.c (vars_of_event_Xt):
* event-gtk.c:
* event-gtk.c (IS_MODIFIER_KEY):
* event-gtk.c (emacs_gtk_format_magic_event):
* event-gtk.c (emacs_gtk_compare_magic_event):
* event-gtk.c (emacs_gtk_hash_magic_event):
* event-gtk.c (emacs_gtk_handle_magic_event):
* event-gtk.c (gtk_to_emacs_keysym):
* event-gtk.c (gtk_timeout_to_emacs_event):
* event-gtk.c (gtk_process_to_emacs_event):
* event-gtk.c (dragndrop_data_received):
* event-gtk.c (signal_special_gtk_user_event):
* event-gtk.c (emacs_gtk_next_event):
* event-gtk.c (gtk_event_to_emacs_event):
* event-gtk.c (generic_event_handler):
* event-gtk.c (emacs_shell_event_handler):
* event-gtk.c (emacs_gtk_drain_queue):
* event-gtk.c (emacs_gtk_event_pending_p):
* event-gtk.c (reinit_vars_of_event_gtk):
* event-gtk.c (vars_of_event_gtk):
* event-msw.c:
* event-msw.c (struct winsock_stream):
* event-msw.c (winsock_reader):
* event-msw.c (winsock_writer):
* event-msw.c (mswindows_enqueue_dispatch_event):
* event-msw.c (mswindows_enqueue_misc_user_event):
* event-msw.c (mswindows_enqueue_magic_event):
* event-msw.c (mswindows_enqueue_process_event):
* event-msw.c (mswindows_enqueue_mouse_button_event):
* event-msw.c (mswindows_enqueue_keypress_event):
* event-msw.c (mswindows_dequeue_dispatch_event):
* event-msw.c (emacs_mswindows_drain_queue):
* event-msw.c (mswindows_need_event_in_modal_loop):
* event-msw.c (mswindows_need_event):
* event-msw.c (mswindows_wm_timer_callback):
* event-msw.c (dde_eval_string):
* event-msw.c (Fdde_alloc_advise_item):
* event-msw.c (mswindows_dde_callback):
* event-msw.c (mswindows_wnd_proc):
* event-msw.c (remove_timeout_mapper):
* event-msw.c (emacs_mswindows_remove_timeout):
* event-msw.c (emacs_mswindows_event_pending_p):
* event-msw.c (emacs_mswindows_format_magic_event):
* event-msw.c (emacs_mswindows_compare_magic_event):
* event-msw.c (emacs_mswindows_hash_magic_event):
* event-msw.c (emacs_mswindows_handle_magic_event):
* event-msw.c (emacs_mswindows_select_console):
* event-msw.c (emacs_mswindows_unselect_console):
* event-msw.c (reinit_vars_of_event_mswindows):
* event-msw.c (vars_of_event_mswindows):
* event-stream.c:
* event-stream.c (mark_command_builder):
* event-stream.c (reset_command_builder_event_chain):
* event-stream.c (allocate_command_builder):
* event-stream.c (copy_command_builder):
* event-stream.c (command_builder_append_event):
* event-stream.c (event_stream_event_pending_p):
* event-stream.c (event_stream_force_event_pending):
* event-stream.c (maybe_read_quit_event):
* event-stream.c (event_stream_drain_queue):
* event-stream.c (remove_quit_p_event):
* event-stream.c (event_stream_quit_p):
* event-stream.c (echo_key_event):
* event-stream.c (maybe_kbd_translate):
* event-stream.c (execute_help_form):
* event-stream.c (event_stream_generate_wakeup):
* event-stream.c (enqueue_dispatch_event):
* event-stream.c (enqueue_magic_eval_event):
* event-stream.c (Fenqueue_eval_event):
* event-stream.c (enqueue_misc_user_event):
* event-stream.c (enqueue_misc_user_event_pos):
* event-stream.c (next_event_internal):
* event-stream.c (Fnext_event):
* event-stream.c (Faccept_process_output):
* event-stream.c (execute_internal_event):
* event-stream.c (munge_keymap_translate):
* event-stream.c (command_builder_find_leaf_no_mule_processing):
* event-stream.c (command_builder_find_leaf):
* event-stream.c (lookup_command_event):
* event-stream.c (is_scrollbar_event):
* event-stream.c (execute_command_event):
* event-stream.c (Fdispatch_event):
* event-stream.c (Fread_key_sequence):
* event-stream.c (dribble_out_event):
* event-stream.c (vars_of_event_stream):
* event-tty.c (tty_timeout_to_emacs_event):
* event-tty.c (emacs_tty_next_event):
* event-tty.c (emacs_tty_drain_queue):
* event-tty.c (reinit_vars_of_event_tty):
* event-unixoid.c:
* event-unixoid.c (find_tty_or_stream_console_from_fd):
* event-unixoid.c (read_event_from_tty_or_stream_desc):
* event-unixoid.c (drain_tty_devices):
* event-unixoid.c (poll_fds_for_input):
* events.c:
* events.c (deinitialize_event):
* events.c (zero_event):
* events.c (mark_event):
* events.c (print_event_1):
* events.c (print_event):
* events.c (event_equal):
* events.c (event_hash):
* events.c (Fmake_event):
* events.c (Fdeallocate_event):
* events.c (Fcopy_event):
* events.c (map_event_chain_remove):
* events.c (character_to_event):
* events.c (event_to_character):
* events.c (Fevent_to_character):
* events.c (format_event_object):
* events.c (upshift_event):
* events.c (downshift_event):
* events.c (event_upshifted_p):
* events.c (Fevent_live_p):
* events.c (Fevent_type):
* events.c (Fevent_timestamp):
* events.c (CHECK_EVENT_TYPE):
* events.c (CHECK_EVENT_TYPE2):
* events.c (CHECK_EVENT_TYPE3):
* events.c (Fevent_key):
* events.c (Fevent_button):
* events.c (Fevent_modifier_bits):
* events.c (event_x_y_pixel_internal):
* events.c (event_pixel_translation):
* events.c (Fevent_process):
* events.c (Fevent_function):
* events.c (Fevent_object):
* events.c (Fevent_properties):
* events.c (syms_of_events):
* events.c (vars_of_events):
* events.h:
* events.h (struct event_stream):
* events.h (struct Lisp_Key_Data):
* events.h (KEY_DATA_KEYSYM):
* events.h (EVENT_KEY_KEYSYM):
* events.h (struct Lisp_Button_Data):
* events.h (EVENT_BUTTON_BUTTON):
* events.h (struct Lisp_Motion_Data):
* events.h (EVENT_MOTION_X):
* events.h (struct Lisp_Process_Data):
* events.h (EVENT_PROCESS_PROCESS):
* events.h (struct Lisp_Timeout_Data):
* events.h (EVENT_TIMEOUT_INTERVAL_ID):
* events.h (struct Lisp_Eval_Data):
* events.h (EVENT_EVAL_FUNCTION):
* events.h (struct Lisp_Misc_User_Data):
* events.h (EVENT_MISC_USER_FUNCTION):
* events.h (struct Lisp_Magic_Eval_Data):
* events.h (EVENT_MAGIC_EVAL_INTERNAL_FUNCTION):
* events.h (struct Lisp_Magic_Data):
* events.h (EVENT_MAGIC_UNDERLYING):
* events.h (EVENT_MAGIC_GDK_EVENT):
* events.h (struct Lisp_Event):
* events.h (XEVENT_CHANNEL):
* events.h (SET_EVENT_TIMESTAMP_ZERO):
* events.h (SET_EVENT_CHANNEL):
* events.h (SET_EVENT_NEXT):
* events.h (XSET_EVENT_TYPE):
* events.h (struct command_builder):
* extents.c:
* extents.c (gap_array_adjust_markers):
* extents.c (gap_array_recompute_derived_values):
* extents.c (gap_array_move_gap):
* extents.c (gap_array_make_gap):
* extents.c (gap_array_insert_els):
* extents.c (gap_array_delete_els):
* extents.c (gap_array_make_marker):
* extents.c (gap_array_delete_marker):
* extents.c (gap_array_move_marker):
* extents.c (make_gap_array):
* extents.c (free_gap_array):
* extents.c (extent_list_num_els):
* extents.c (extent_list_insert):
* extents.c (mark_extent_auxiliary):
* extents.c (allocate_extent_auxiliary):
* extents.c (decode_extent_at_flag):
* extents.c (verify_extent_mapper):
* extents.c (symbol_to_glyph_layout):
* extents.c (syms_of_extents):
* faces.c:
* file-coding.c:
* file-coding.c (struct_detector_category_description =):
* file-coding.c (detector_category_dynarr_description_1):
* file-coding.c (struct_detector_description =):
* file-coding.c (detector_dynarr_description_1):
* file-coding.c (MARKED_SLOT):
* file-coding.c (mark_coding_system):
* file-coding.c (coding_system_extra_description_map):
* file-coding.c (coding_system_description):
* file-coding.c (allocate_coding_system):
* file-coding.c (symbol_to_eol_type):
* file-coding.c (Fcoding_system_aliasee):
* file-coding.c (set_coding_stream_coding_system):
* file-coding.c (struct convert_eol_coding_system):
* file-coding.c (struct undecided_coding_system):
* file-coding.c (undecided_mark_coding_stream):
* file-coding.c (coding_category_symbol_to_id):
* file-coding.c (struct gzip_coding_system):
* file-coding.c (coding_system_type_create):
* file-coding.h:
* file-coding.h (struct Lisp_Coding_System):
* file-coding.h (CODING_SYSTEM_SLOT_DECLARATION):
* file-coding.h (coding_system_variant):
* file-coding.h (struct coding_system_methods):
* file-coding.h (DEFINE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (INITIALIZE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (struct coding_stream):
* fileio.c (Fsubstitute_in_file_name):
* floatfns.c:
* fns.c:
* fns.c (base64_encode_1):
* frame-gtk.c:
* frame-gtk.c (Fgtk_start_drag_internal):
* frame-impl.h (struct frame):
* frame-impl.h (MARKED_SLOT):
* frame-msw.c:
* frame-x.c:
* frame-x.c (Fcde_start_drag_internal):
* frame-x.c (Foffix_start_drag_internal):
* frame.c:
* frame.c (MARKED_SLOT):
* frame.c (allocate_frame_core):
* frame.c (delete_frame_internal):
* frame.c (Fmouse_position_as_motion_event):
* frameslots.h:
* frameslots.h (MARKED_SLOT_ARRAY):
* free-hook.c:
* glyphs-msw.c (mswindows_widget_instantiate):
* glyphs-x.c:
* glyphs-x.c (convert_EImage_to_XImage):
* glyphs.c:
* glyphs.c (process_image_string_instantiator):
* glyphs.c (mark_image_instance):
* glyphs.c (allocate_image_instance):
* glyphs.c (unmap_subwindow):
* glyphs.c (map_subwindow):
* glyphs.c (syms_of_glyphs):
* glyphs.c (specifier_type_create_image):
* glyphs.h:
* glyphs.h (struct text_image_instance):
* glyphs.h (struct Lisp_Image_Instance):
* gmalloc.c:
* gmalloc.c ("C"):
* gpmevent.c (Freceive_gpm_event):
* gpmevent.c (gpm_next_event_cb):
* gpmevent.c (vars_of_gpmevent):
* gtk-glue.c (gdk_event_to_emacs_event):
* gtk-xemacs.c (gtk_xemacs_class_init):
* gui-msw.c:
* gui-msw.c (mswindows_handle_gui_wm_command):
* gui-msw.c (mswindows_translate_menu_or_dialog_item):
* gui-x.c:
* gui-x.c (mark_popup_data):
* gui-x.c (snarf_widget_value_mapper):
* gui-x.c (gcpro_popup_callbacks):
* gui-x.c (ungcpro_popup_callbacks):
* gui-x.c (free_popup_widget_value_tree):
* gui-x.c (popup_selection_callback):
* gui-x.h:
* gui-x.h (struct popup_data):
* gui.c:
* gui.c (allocate_gui_item):
* gutter.c (decode_gutter_position):
* hash.c (NULL_ENTRY):
* indent.c (vmotion_1):
* indent.c (vmotion_pixels):
* input-method-motif.c (res):
* input-method-xlib.c (IMInstantiateCallback):
* input-method-xlib.c (XIM_init_device):
* input-method-xlib.c (res):
* intl-encap-win32.c:
* intl-encap-win32.c (qxeSHGetDataFromIDList):
* intl-win32.c:
* intl-win32.c (mswindows_multibyte_cp_type):
* intl-win32.c (struct mswindows_multibyte_coding_system):
* keymap.c:
* keymap.c (make_key_description):
* keymap.c (keymap_store):
* keymap.c (get_keyelt):
* keymap.c (keymap_lookup_1):
* keymap.c (define_key_parser):
* keymap.c (key_desc_list_to_event):
* keymap.c (event_matches_key_specifier_p):
* keymap.c (meta_prefix_char_p):
* keymap.c (ensure_meta_prefix_char_keymapp):
* keymap.c (Fdefine_key):
* keymap.c (struct raw_lookup_key_mapper_closure):
* keymap.c (raw_lookup_key):
* keymap.c (raw_lookup_key_mapper):
* keymap.c (lookup_keys):
* keymap.c (lookup_events):
* keymap.c (Flookup_key):
* keymap.c (struct map_keymap_unsorted_closure):
* keymap.c (map_keymap_unsorted_mapper):
* keymap.c (map_keymap_sorted):
* keymap.c (map_keymap_mapper):
* keymap.c (map_keymap):
* keymap.c (accessible_keymaps_mapper_1):
* keymap.c (Faccessible_keymaps):
* keymap.c (Fsingle_key_description):
* keymap.c (raw_keys_to_keys):
* keymap.c (format_raw_keys):
* keymap.c (where_is_recursive_mapper):
* keymap.c (where_is_internal):
* keymap.c (describe_map_mapper_shadow_search):
* keymap.c (keymap_lookup_inherited_mapper):
* keymap.c (describe_map_mapper):
* keymap.h (event_matches_key_specifier_p):
* lisp.h:
* lisp.h (this):
* lisp.h (RETURN_NOT_REACHED):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (UNGCPRO_1):
* lisp.h (NUNGCPRO):
* lisp.h (NNUNGCPRO):
* lisp.h (DECLARE_INLINE_HEADER):
* lrecord.h:
* lrecord.h (struct lrecord_header):
* lrecord.h (struct lcrecord_header):
* lrecord.h (lrecord_type):
* lrecord.h (struct lrecord_implementation):
* lrecord.h (RECORD_DUMPABLE):
* lrecord.h (memory_description_type):
* lrecord.h (data_description_entry_flags):
* lrecord.h (struct memory_description):
* lrecord.h (struct sized_memory_description):
* lrecord.h (XD_INDIRECT):
* lrecord.h (XD_IS_INDIRECT):
* lrecord.h (XD_DYNARR_DESC):
* lrecord.h (DEFINE_BASIC_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_EXTERNAL_LRECORD_IMPLEMENTATION):
* lrecord.h (alloc_lcrecord_type):
* lstream.c:
* lstream.c (Lstream_new):
* lstream.c (lisp_buffer_marker):
* lstream.h:
* lstream.h (lstream_implementation):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION_WITH_DATA):
* marker.c:
* marker.c (copy_marker_1):
* mem-limits.h:
* menubar-gtk.c:
* menubar-gtk.c (gtk_popup_menu):
* menubar-msw.c:
* menubar-msw.c (mswindows_popup_menu):
* menubar-x.c (make_dummy_xbutton_event):
* menubar-x.c (command_builder_operate_menu_accelerator):
* menubar-x.c (menu_accelerator_safe_compare):
* menubar-x.c (menu_accelerator_safe_mod_compare):
* mule-charset.c:
* mule-charset.c (make_charset):
* mule-charset.c (Fcharset_property):
* mule-coding.c:
* mule-coding.c (ccs_description_1):
* mule-coding.c (ccs_description =):
* mule-coding.c (ccsd_description_1):
* mule-coding.c (ccsd_description =):
* nt.c (getpwnam):
* nt.c (init_mswindows_environment):
* nt.c (get_cached_volume_information):
* nt.c (mswindows_is_executable):
* nt.c (read_unc_volume):
* nt.c (mswindows_access):
* nt.c (mswindows_link):
* nt.c (mswindows_fstat):
* nt.c (mswindows_stat):
* nt.c (mswindows_executable_type):
* nt.c (Fmswindows_short_file_name):
* nt.c (Fmswindows_long_file_name):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects-tty.c:
* objects-x.c (allocate_nearest_color):
* objects.c:
* objects.c (Fmake_color_instance):
* objects.c (Fmake_font_instance):
* objects.c (font_instantiate):
* opaque.c:
* opaque.c (make_opaque):
* opaque.c (make_opaque_ptr):
* opaque.c (reinit_opaque_early):
* opaque.c (init_opaque_once_early):
* print.c:
* print.c (printing_badness):
* print.c (printing_major_badness):
* print.c (print_internal):
* print.c (debug_p4):
* print.c (dp):
* print.c (debug_backtrace):
* process-nt.c (nt_create_process):
* process-nt.c (get_internet_address):
* process-unix.c:
* process-unix.c (struct unix_process_data):
* process-unix.c (get_internet_address):
* process-unix.c (unix_alloc_process_data):
* process-unix.c (unix_create_process):
* process-unix.c (try_to_initialize_subtty):
* process-unix.c (unix_kill_child_process):
* process-unix.c (process_type_create_unix):
* process.c:
* process.c (mark_process):
* process.c (MARKED_SLOT):
* process.c (make_process_internal):
* process.c (Fprocess_tty_name):
* process.c (decode_signal):
* process.h:
* procimpl.h:
* procimpl.h (struct process_methods):
* procimpl.h (struct Lisp_Process):
* rangetab.c:
* realpath.c (readlink_and_correct_case):
* redisplay-x.c (x_window_output_end):
* redisplay-x.c (x_redraw_exposed_area):
* redisplay-x.c (x_clear_frame):
* redisplay.c:
* redisplay.h:
* redisplay.h (struct rune_dglyph):
* redisplay.h (struct rune):
* scrollbar.c:
* scrollbar.c (create_scrollbar_instance):
* specifier.c:
* specifier.c (specifier_empty_extra_description_1):
* specifier.c (make_specifier_internal):
* specifier.c (decode_locale_type):
* specifier.c (decode_how_to_add_specification):
* specifier.h:
* specifier.h (struct specifier_methods):
* specifier.h (DEFINE_SPECIFIER_TYPE_WITH_DATA):
* specifier.h (INITIALIZE_SPECIFIER_TYPE_WITH_DATA):
* symbols.c:
* symbols.c (Fsetplist):
* symbols.c (default_value):
* symbols.c (decode_magic_handler_type):
* symbols.c (handler_type_from_function_symbol):
* symbols.c (Fdefvaralias):
* symbols.c (init_symbols_once_early):
* symbols.c (reinit_symbols_early):
* symsinit.h:
* sysdep.c (sys_subshell):
* sysdep.c (tty_init_sys_modes_on_device):
* syswindows.h:
* text.c (dfc_convert_to_external_format):
* text.c (dfc_convert_to_internal_format):
* text.c (reinit_eistring_early):
* text.c (init_eistring_once_early):
* text.c (reinit_vars_of_text):
* text.h:
* text.h (INC_IBYTEPTR_FMT):
* text.h (DEC_IBYTEPTR_FMT):
* toolbar.c:
* toolbar.c (decode_toolbar_position):
* tooltalk.c:
* ui-gtk.c:
* unexnt.c:
* unexnt.c (_start):
* unexnt.c (unexec):
* unexnt.c (get_section_info):
* unicode.c:
* unicode.c (vars_of_unicode):
* window.c:
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (update_mirror_internal):
* winslots.h:
| author | michaels |
|---|---|
| date | Sun, 12 Jan 2003 11:08:22 +0000 |
| parents | c925bacdda60 |
| children | 04bc9d2f42c7 |
| rev | line source |
|---|---|
| 440 | 1 /* GPM (General purpose mouse) functions |
| 428 | 2 Copyright (C) 1997 William M. Perry <wmperry@gnu.org> |
| 3 Copyright (C) 1999 Free Software Foundation, Inc. | |
| 793 | 4 Copyright (C) 2002 Ben Wing. |
| 5 | |
| 6 This file is part of XEmacs. | |
| 7 | |
| 8 XEmacs is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 10 Free Software Foundation; either version 2, or (at your option) any | |
| 11 later version. | |
| 12 | |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 19 along with XEmacs; see the file COPYING. If not, write to | |
| 20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 21 Boston, MA 02111-1307, USA. */ | |
| 428 | 22 |
| 23 /* Synched up with: Not in FSF. */ | |
| 24 | |
| 25 /* Authors: William Perry */ | |
| 26 | |
| 27 #include <config.h> | |
| 28 #include "lisp.h" | |
| 793 | 29 |
| 30 #include "commands.h" | |
| 31 #include "console-tty.h" | |
| 428 | 32 #include "console.h" |
| 33 #include "device.h" | |
| 34 #include "events.h" | |
| 793 | 35 #include "lstream.h" |
| 36 #include "process.h" | |
| 428 | 37 #include "sysdep.h" |
| 876 | 38 #include "frame.h" |
| 39 #include "device-impl.h" | |
| 40 #include "console-impl.h" | |
| 41 #include "console-tty-impl.h" | |
| 793 | 42 |
| 428 | 43 #include "sysproc.h" /* for MAXDESC */ |
| 44 | |
| 45 #ifdef HAVE_GPM | |
| 46 #include "gpmevent.h" | |
| 47 #include <gpm.h> | |
| 48 | |
| 49 #define KG_SHIFT 0 | |
| 50 #define KG_CTRL 2 | |
| 51 #define KG_ALT 3 | |
| 52 | |
| 53 extern int gpm_tried; | |
| 54 extern void *gpm_stack; | |
| 55 | |
| 56 static int (*orig_event_pending_p) (int); | |
| 440 | 57 static void (*orig_next_event_cb) (Lisp_Event *); |
| 428 | 58 |
| 59 static Lisp_Object gpm_event_queue; | |
| 60 static Lisp_Object gpm_event_queue_tail; | |
| 61 | |
| 793 | 62 struct __gpm_state |
| 63 { | |
| 64 int gpm_tried; | |
| 65 int gpm_flag; | |
| 66 void *gpm_stack; | |
| 428 | 67 }; |
| 68 | |
| 69 static struct __gpm_state gpm_state_information[MAXDESC]; | |
| 70 | |
| 71 static void | |
| 72 store_gpm_state (int fd) | |
| 73 { | |
| 793 | 74 gpm_state_information[fd].gpm_tried = gpm_tried; |
| 75 gpm_state_information[fd].gpm_flag = gpm_flag; | |
| 76 gpm_state_information[fd].gpm_stack = gpm_stack; | |
| 428 | 77 } |
| 78 | |
| 79 static void | |
| 80 restore_gpm_state (int fd) | |
| 81 { | |
| 793 | 82 gpm_tried = gpm_state_information[fd].gpm_tried; |
| 83 gpm_flag = gpm_state_information[fd].gpm_flag; | |
| 84 gpm_stack = gpm_state_information[fd].gpm_stack; | |
| 85 gpm_consolefd = gpm_fd = fd; | |
| 428 | 86 } |
| 87 | |
| 88 static void | |
| 89 clear_gpm_state (int fd) | |
| 90 { | |
| 793 | 91 if (fd >= 0) |
| 92 memset (&gpm_state_information[fd], '\0', sizeof (struct __gpm_state)); | |
| 93 gpm_tried = gpm_flag = 1; | |
| 94 gpm_fd = gpm_consolefd = -1; | |
| 95 gpm_stack = NULL; | |
| 428 | 96 } |
| 97 | |
| 98 static int | |
| 440 | 99 get_process_infd (Lisp_Process *p) |
| 428 | 100 { |
| 853 | 101 Lisp_Object instr, outstr, errstr; |
| 102 get_process_streams (p, &instr, &outstr, &errstr); | |
| 428 | 103 assert (!NILP (instr)); |
| 104 return filedesc_stream_fd (XLSTREAM (instr)); | |
| 105 } | |
| 106 | |
| 107 DEFUN ("receive-gpm-event", Freceive_gpm_event, 0, 2, 0, /* | |
| 108 Run GPM_GetEvent(). | |
| 109 This function is the process handler for the GPM connection. | |
| 110 */ | |
| 111 (process, string)) | |
| 112 { | |
| 793 | 113 Gpm_Event ev; |
| 114 int modifiers = 0; | |
| 115 int button = 1; | |
| 116 Lisp_Object fake_event = Qnil; | |
| 117 Lisp_Event *event = NULL; | |
| 118 struct gcpro gcpro1; | |
| 119 static int num_events; | |
| 428 | 120 |
| 793 | 121 CHECK_PROCESS (process); |
| 428 | 122 |
| 793 | 123 restore_gpm_state (get_process_infd (XPROCESS (process))); |
| 428 | 124 |
| 793 | 125 if (!Gpm_GetEvent (&ev)) |
| 126 { | |
| 127 warn_when_safe (Qnil, Qerror, | |
| 128 "Gpm_GetEvent failed - %d", gpm_fd); | |
| 129 return (Qzero); | |
| 130 } | |
| 428 | 131 |
| 793 | 132 GCPRO1 (fake_event); |
| 428 | 133 |
| 793 | 134 num_events++; |
| 135 | |
| 136 fake_event = Fmake_event (Qnil, Qnil); | |
| 137 event = XEVENT (fake_event); | |
| 428 | 138 |
| 793 | 139 event->timestamp = 0; |
| 140 event->channel = Fselected_frame (Qnil); /* CONSOLE_SELECTED_FRAME (con); */ | |
| 428 | 141 |
| 793 | 142 /* Whow, wouldn't named defines be NICE!?!?! */ |
| 143 modifiers = 0; | |
| 428 | 144 |
| 793 | 145 if (ev.modifiers & 1) modifiers |= XEMACS_MOD_SHIFT; |
| 146 if (ev.modifiers & 2) modifiers |= XEMACS_MOD_META; | |
| 147 if (ev.modifiers & 4) modifiers |= XEMACS_MOD_CONTROL; | |
| 148 if (ev.modifiers & 8) modifiers |= XEMACS_MOD_META; | |
| 149 | |
| 150 if (ev.buttons & GPM_B_LEFT) | |
| 151 button = 1; | |
| 152 else if (ev.buttons & GPM_B_MIDDLE) | |
| 153 button = 2; | |
| 154 else if (ev.buttons & GPM_B_RIGHT) | |
| 155 button = 3; | |
| 428 | 156 |
| 793 | 157 switch (GPM_BARE_EVENTS (ev.type)) |
| 158 { | |
| 159 case GPM_DOWN: | |
| 160 case GPM_UP: | |
| 934 | 161 SET_EVENT_TYPE (event, |
| 162 (ev.type & GPM_DOWN) ? button_press_event : button_release_event); | |
| 1204 | 163 SET_EVENT_BUTTON_X (event, ev.x); |
| 164 SET_EVENT_BUTTON_Y (event, ev.y); | |
| 165 SET_EVENT_BUTTON_BUTTON (event, button); | |
| 166 SET_EVENT_BUTTON_MODIFIERS (event, modifiers); | |
| 793 | 167 break; |
| 168 case GPM_MOVE: | |
| 169 case GPM_DRAG: | |
| 934 | 170 SET_EVENT_TYPE (event, pointer_motion_event); |
| 1204 | 171 SET_EVENT_MOTION_X (event, ev.x); |
| 172 SET_EVENT_MOTION_Y (event, ev.y); | |
| 173 SET_EVENT_MOTION_MODIFIERS (event, modifiers); | |
| 793 | 174 default: |
| 175 /* This will never happen */ | |
| 176 break; | |
| 177 } | |
| 428 | 178 |
| 793 | 179 /* Handle the event */ |
| 180 enqueue_event (fake_event, &gpm_event_queue, &gpm_event_queue_tail); | |
| 428 | 181 |
| 793 | 182 UNGCPRO; |
| 428 | 183 |
| 793 | 184 return (Qzero); |
| 428 | 185 } |
| 186 | |
| 187 static void turn_off_gpm (char *process_name) | |
| 188 { | |
| 793 | 189 Lisp_Object process = Fget_process (build_string (process_name)); |
| 190 int fd = -1; | |
| 428 | 191 |
| 793 | 192 if (NILP (process)) |
| 193 /* Something happened to our GPM process - fail silently */ | |
| 194 return; | |
| 428 | 195 |
| 793 | 196 fd = get_process_infd (XPROCESS (process)); |
| 428 | 197 |
| 793 | 198 restore_gpm_state (fd); |
| 428 | 199 |
| 793 | 200 Gpm_Close(); |
| 428 | 201 |
| 793 | 202 clear_gpm_state (fd); |
| 428 | 203 |
| 793 | 204 Fdelete_process (build_string (process_name)); |
| 428 | 205 } |
| 206 | |
| 207 #ifdef TIOCLINUX | |
| 208 static Lisp_Object | |
| 793 | 209 tty_get_foreign_selection (Lisp_Object selection_symbol, |
| 210 Lisp_Object target_type) | |
| 428 | 211 { |
| 793 | 212 /* This function can GC */ |
| 213 struct device *d = decode_device (Qnil); | |
| 214 int fd = DEVICE_INFD (d); | |
| 215 char c = 3; | |
| 216 Lisp_Object output_stream = Qnil; | |
| 217 Lisp_Object terminal_stream = Qnil; | |
| 218 Lisp_Object output_string = Qnil; | |
| 219 struct gcpro gcpro1,gcpro2,gcpro3; | |
| 220 | |
| 221 GCPRO3(output_stream,terminal_stream,output_string); | |
| 428 | 222 |
| 793 | 223 /* The ioctl() to paste actually puts things in the input queue of |
| 224 ** the virtual console, so we need to trap that data, since we are | |
| 225 ** supposed to return the actual string selection from this | |
| 226 ** function. | |
| 227 */ | |
| 428 | 228 |
| 793 | 229 /* I really hate doing this, but it doesn't seem to cause any |
| 230 ** problems, and it makes the Lstream_read stuff further down | |
| 231 ** error out correctly instead of trying to indefinitely read from | |
| 232 ** the console. | |
| 233 ** | |
| 234 ** There is no set_descriptor_blocking() function call, but in my | |
| 235 ** testing under linux, it has not proved fatal to leave the | |
| 236 ** descriptor in non-blocking mode. | |
| 237 ** | |
| 238 ** William Perry Nov 5, 1999 | |
| 239 */ | |
| 240 set_descriptor_non_blocking (fd); | |
| 428 | 241 |
| 793 | 242 /* We need two streams, one for reading from the selected device, |
| 243 ** and one to write the data into. There is no writable version | |
| 244 ** of the lisp-string lstream, so we make do with a resizing | |
| 245 ** buffer stream, and make a string out of it after we are | |
| 246 ** done. | |
| 247 */ | |
| 248 output_stream = make_resizing_buffer_output_stream (); | |
| 249 terminal_stream = make_filedesc_input_stream (fd, 0, -1, LSTR_BLOCKED_OK); | |
| 250 output_string = Qnil; | |
| 251 | |
| 252 /* #### We should arguably use a specbind() and an unwind routine here, | |
| 253 ** #### but I don't care that much right now. | |
| 254 */ | |
| 255 if (NILP (output_stream) || NILP (terminal_stream)) | |
| 256 /* Should we signal an error here? */ | |
| 257 goto out; | |
| 428 | 258 |
| 793 | 259 if (ioctl (fd, TIOCLINUX, &c) < 0) |
| 260 { | |
| 261 /* Could not get the selection - eek */ | |
| 262 UNGCPRO; | |
| 263 return (Qnil); | |
| 264 } | |
| 428 | 265 |
| 793 | 266 while (1) |
| 267 { | |
| 867 | 268 Ibyte tempbuf[1024]; /* some random amount */ |
| 793 | 269 Bytecount i; |
| 270 Bytecount size_in_bytes = | |
| 271 Lstream_read (XLSTREAM (terminal_stream), | |
| 272 tempbuf, sizeof (tempbuf)); | |
| 273 | |
| 274 if (size_in_bytes <= 0) | |
| 275 /* end of the stream */ | |
| 276 break; | |
| 277 | |
| 278 /* convert CR->LF */ | |
| 279 for (i = 0; i < size_in_bytes; i++) | |
| 428 | 280 { |
| 793 | 281 if (tempbuf[i] == '\r') |
| 282 tempbuf[i] = '\n'; | |
| 428 | 283 } |
| 284 | |
| 793 | 285 Lstream_write (XLSTREAM (output_stream), tempbuf, size_in_bytes); |
| 286 } | |
| 428 | 287 |
| 793 | 288 Lstream_flush (XLSTREAM (output_stream)); |
| 428 | 289 |
| 793 | 290 output_string = |
| 291 make_string (resizing_buffer_stream_ptr (XLSTREAM (output_stream)), | |
| 292 Lstream_byte_count (XLSTREAM (output_stream))); | |
| 428 | 293 |
| 793 | 294 Lstream_delete (XLSTREAM (output_stream)); |
| 295 Lstream_delete (XLSTREAM (terminal_stream)); | |
| 428 | 296 |
| 297 out: | |
| 793 | 298 UNGCPRO; |
| 299 return (output_string); | |
| 428 | 300 } |
| 301 | |
| 302 static Lisp_Object | |
| 442 | 303 tty_selection_exists_p (Lisp_Object selection, Lisp_Object selection_type) |
| 428 | 304 { |
| 793 | 305 return (Qt); |
| 428 | 306 } |
| 307 #endif /* TIOCLINUX */ | |
| 308 | |
| 309 #if 0 | |
| 310 static Lisp_Object | |
| 442 | 311 tty_own_selection (Lisp_Object selection_name, Lisp_Object selection_value, |
| 312 Lisp_Object how_to_add, Lisp_Object selection_type) | |
| 428 | 313 { |
| 793 | 314 /* There is no way to do this cleanly - the GPM selection |
| 315 ** 'protocol' (actually the TIOCLINUX ioctl) requires a start and | |
| 316 ** end position on the _screen_, not a string to stick in there. | |
| 317 ** Lame. | |
| 318 ** | |
| 319 ** William Perry Nov 4, 1999 | |
| 320 */ | |
| 428 | 321 } |
| 322 #endif | |
| 323 | |
| 324 /* This function appears to work once in a blue moon. I'm not sure | |
| 793 | 325 ** exactly why either. *sigh* |
| 326 ** | |
| 327 ** William Perry Nov 4, 1999 | |
| 328 ** | |
| 329 ** Apparently, this is the way (mouse-position) is supposed to work, | |
| 330 ** and I was just expecting something else. (mouse-pixel-position) | |
| 331 ** works just fine. | |
| 332 ** | |
| 333 ** William Perry Nov 7, 1999 | |
| 334 */ | |
| 428 | 335 static int |
| 336 tty_get_mouse_position (struct device *d, Lisp_Object *frame, int *x, int *y) | |
| 337 { | |
| 793 | 338 Gpm_Event ev; |
| 339 int num_buttons; | |
| 428 | 340 |
| 793 | 341 memset(&ev,'\0',sizeof(ev)); |
| 428 | 342 |
| 793 | 343 num_buttons = Gpm_GetSnapshot(&ev); |
| 428 | 344 |
| 793 | 345 if (!num_buttons) |
| 346 /* This means there are events pending... */ | |
| 428 | 347 |
| 793 | 348 /* #### In theory, we should drain the events pending, stick |
| 349 ** #### them in the queue, and return the mouse position | |
| 350 ** #### anyway. | |
| 351 */ | |
| 352 return (-1); | |
| 353 *x = ev.x; | |
| 354 *y = ev.y; | |
| 355 *frame = DEVICE_SELECTED_FRAME (d); | |
| 356 return (1); | |
| 428 | 357 } |
| 358 | |
| 359 static void | |
| 360 tty_set_mouse_position (struct window *w, int x, int y) | |
| 361 { | |
| 793 | 362 /* |
| 363 #### I couldn't find any GPM functions that set the mouse position. | |
| 364 #### Mr. Perry had left this function empty; that must be why. | |
| 365 #### karlheg | |
| 366 */ | |
| 428 | 367 } |
| 368 | |
| 369 static int gpm_event_pending_p (int user_p) | |
| 370 { | |
| 793 | 371 Lisp_Object event; |
| 428 | 372 |
| 793 | 373 EVENT_CHAIN_LOOP (event, gpm_event_queue) |
| 374 { | |
| 375 if (!user_p || command_event_p (event)) | |
| 376 return (1); | |
| 377 } | |
| 378 return (orig_event_pending_p (user_p)); | |
| 428 | 379 } |
| 380 | |
| 440 | 381 static void gpm_next_event_cb (Lisp_Event *event) |
| 428 | 382 { |
| 793 | 383 /* #### It would be nice to preserve some sort of ordering of the |
| 384 ** #### different types of events, but that would be quite a bit | |
| 385 ** #### of work, and would more than likely break the abstraction | |
| 386 ** #### between the other event loops and this one. | |
| 387 */ | |
| 440 | 388 |
| 793 | 389 if (!NILP (gpm_event_queue)) |
| 390 { | |
| 391 Lisp_Object queued_event = | |
| 392 dequeue_event (&gpm_event_queue, &gpm_event_queue_tail); | |
| 393 *event = *(XEVENT (queued_event)); | |
| 394 | |
| 395 if (event->event_type == pointer_motion_event) | |
| 428 | 396 { |
| 793 | 397 struct device *d = decode_device (event->channel); |
| 398 int fd = DEVICE_INFD (d); | |
| 428 | 399 |
| 793 | 400 /* Ok, now this is just freaky. Bear with me though. |
| 401 ** | |
| 402 ** If you run gnuclient and attach to a XEmacs running in | |
| 403 ** X or on another TTY, the mouse cursor does not get | |
| 404 ** drawn correctly. This is because the ioctl() fails | |
| 405 ** with EPERM because the TTY specified is not our | |
| 406 ** controlling terminal. If you are the superuser, it | |
| 407 ** will work just spiffy. The appropriate source file (at | |
| 408 ** least in linux 2.2.x) is | |
| 409 ** .../linux/drivers/char/console.c in the function | |
| 410 ** tioclinux(). The following bit of code is brutal to | |
| 411 ** us: | |
| 412 ** | |
| 413 ** if (current->tty != tty && !suser()) | |
| 414 ** return -EPERM; | |
| 415 ** | |
| 416 ** I even tried setting us as a process leader, removing | |
| 417 ** our controlling terminal, and then using the TIOCSCTTY | |
| 418 ** to set up a new controlling terminal, all with no luck. | |
| 419 ** | |
| 420 ** What is even weirder is if you run XEmacs in a VC, and | |
| 421 ** attach to it from another VC with gnuclient, go back to | |
| 422 ** the original VC and hit a key, the mouse pointer | |
| 423 ** displays (in BOTH VCs), until you hit a key in the | |
| 424 ** second VC, after which it does not display in EITHER | |
| 425 ** VC. Bizarre, no? | |
| 426 ** | |
| 427 ** All I can say is thank god Linux comes with source code | |
| 428 ** or I would have been completely confused. Well, ok, | |
| 429 ** I'm still completely confused. I don't see why they | |
| 430 ** don't just check the permissions on the device | |
| 431 ** (actually, if you have enough access to it to get the | |
| 432 ** console's file descriptor, you should be able to do | |
| 433 ** with it as you wish, but maybe that is just me). | |
| 434 ** | |
| 435 ** William M. Perry - Nov 9, 1999 | |
| 436 */ | |
| 428 | 437 |
| 1204 | 438 Gpm_DrawPointer (EVENT_MOTION_X (event),EVENT_MOTION_Y (event), fd); |
| 428 | 439 } |
| 440 | |
| 793 | 441 return; |
| 442 } | |
| 443 | |
| 444 orig_next_event_cb (event); | |
| 428 | 445 } |
| 446 | |
| 447 static void hook_event_callbacks_once (void) | |
| 448 { | |
| 793 | 449 static int hooker; |
| 428 | 450 |
| 793 | 451 if (!hooker) |
| 452 { | |
| 453 orig_event_pending_p = event_stream->event_pending_p; | |
| 454 orig_next_event_cb = event_stream->next_event_cb; | |
| 455 event_stream->event_pending_p = gpm_event_pending_p; | |
| 456 event_stream->next_event_cb = gpm_next_event_cb; | |
| 457 hooker = 1; | |
| 458 } | |
| 428 | 459 } |
| 460 | |
| 461 static void hook_console_methods_once (void) | |
| 462 { | |
| 793 | 463 static int hooker; |
| 428 | 464 |
| 793 | 465 if (!hooker) |
| 466 { | |
| 467 /* Install the mouse position methods for the TTY console type */ | |
| 468 CONSOLE_HAS_METHOD (tty, get_mouse_position); | |
| 469 CONSOLE_HAS_METHOD (tty, set_mouse_position); | |
| 470 CONSOLE_HAS_METHOD (tty, get_foreign_selection); | |
| 471 CONSOLE_HAS_METHOD (tty, selection_exists_p); | |
| 428 | 472 #if 0 |
| 793 | 473 CONSOLE_HAS_METHOD (tty, own_selection); |
| 428 | 474 #endif |
| 793 | 475 } |
| 428 | 476 } |
| 477 | |
| 478 DEFUN ("gpm-enabled-p", Fgpm_enabled_p, 0, 1, 0, /* | |
| 479 Return non-nil if GPM mouse support is currently enabled on DEVICE. | |
| 480 */ | |
| 793 | 481 (device)) |
| 428 | 482 { |
| 793 | 483 char *console_name = ttyname (DEVICE_INFD (decode_device (device))); |
| 484 char process_name[1024]; | |
| 485 Lisp_Object proc; | |
| 428 | 486 |
| 793 | 487 if (!console_name) |
| 488 return (Qnil); | |
| 428 | 489 |
| 793 | 490 memset (process_name, '\0', sizeof(process_name)); |
| 491 snprintf (process_name, sizeof(process_name) - 1, "gpm for %s", | |
| 492 console_name); | |
| 428 | 493 |
| 793 | 494 proc = Fget_process (build_string (process_name)); |
| 428 | 495 |
| 793 | 496 if (NILP (proc)) |
| 497 return (Qnil); | |
| 428 | 498 |
| 793 | 499 if (1) /* (PROCESS_LIVE_P (proc)) */ |
| 500 return (Qt); | |
| 501 return (Qnil); | |
| 428 | 502 } |
| 503 | |
| 504 DEFUN ("gpm-enable", Fgpm_enable, 0, 2, 0, /* | |
| 505 Toggle accepting of GPM mouse events. | |
| 506 */ | |
| 793 | 507 (device, arg)) |
| 428 | 508 { |
| 793 | 509 Gpm_Connect conn; |
| 510 int rval; | |
| 511 Lisp_Object gpm_process; | |
| 512 Lisp_Object gpm_filter; | |
| 513 struct device *d = decode_device (device); | |
| 514 int fd = DEVICE_INFD (d); | |
| 515 char *console_name = ttyname (fd); | |
| 516 char process_name[1024]; | |
| 428 | 517 |
| 793 | 518 hook_event_callbacks_once (); |
| 519 hook_console_methods_once (); | |
| 520 | |
| 521 if (noninteractive) | |
| 522 invalid_operation ("Can't connect to GPM in batch mode", Qunbound); | |
| 428 | 523 |
| 793 | 524 if (!console_name) |
| 525 /* Something seriously wrong here... */ | |
| 526 return (Qnil); | |
| 527 | |
| 528 memset (process_name, '\0', sizeof(process_name)); | |
| 529 snprintf (process_name, sizeof(process_name) - 1, "gpm for %s", | |
| 530 console_name); | |
| 428 | 531 |
| 793 | 532 if (NILP (arg)) |
| 533 { | |
| 534 turn_off_gpm (process_name); | |
| 535 return (Qnil); | |
| 536 } | |
| 428 | 537 |
| 793 | 538 /* DANGER DANGER. |
| 539 ** Though shalt not call (gpm-enable t) after we have already | |
| 540 ** started, or stuff blows up. | |
| 541 */ | |
| 542 if (!NILP (Fgpm_enabled_p (device))) | |
| 543 invalid_operation ("GPM already enabled for this console", Qunbound); | |
| 428 | 544 |
| 793 | 545 conn.eventMask = GPM_DOWN|GPM_UP|GPM_MOVE|GPM_DRAG; |
| 546 conn.defaultMask = GPM_MOVE; | |
| 547 conn.minMod = 0; | |
| 548 conn.maxMod = ((1 << KG_SHIFT) | (1 << KG_ALT) | (1 << KG_CTRL)); | |
| 428 | 549 |
| 793 | 550 /* Reset some silly static variables so that multiple Gpm_Open() |
| 551 ** calls have even a slight chance of working | |
| 552 */ | |
| 553 gpm_tried = 0; | |
| 554 gpm_flag = 0; | |
| 555 gpm_stack = NULL; | |
| 428 | 556 |
| 793 | 557 /* Make sure Gpm_Open() does ioctl() on the correct |
| 558 ** descriptor, or it can get the wrong terminal sizes, etc. | |
| 559 */ | |
| 560 gpm_consolefd = fd; | |
| 440 | 561 |
| 793 | 562 /* We have to pass the virtual console manually, otherwise if you |
| 563 ** use 'gnuclient -nw' to connect to an XEmacs that is running in | |
| 564 ** X, Gpm_Open() tries to use ttyname(0 | 1 | 2) to find out which | |
| 565 ** console you are using, which is of course not correct for the | |
| 566 ** new tty device. | |
| 567 */ | |
| 568 if (strncmp (console_name, "/dev/tty", 8) || !isdigit (console_name[8])) | |
| 569 /* Urk, something really wrong */ | |
| 570 return (Qnil); | |
| 428 | 571 |
| 793 | 572 rval = Gpm_Open (&conn, atoi (console_name + 8)); |
| 428 | 573 |
| 793 | 574 switch (rval) |
| 575 { | |
| 576 case -1: /* General failure */ | |
| 577 break; | |
| 578 case -2: /* We are running under an XTerm */ | |
| 579 Gpm_Close(); | |
| 580 break; | |
| 581 default: | |
| 582 /* Is this really necessary? */ | |
| 583 set_descriptor_non_blocking (gpm_fd); | |
| 584 store_gpm_state (gpm_fd); | |
| 585 gpm_process = | |
| 586 connect_to_file_descriptor (build_string (process_name), Qnil, | |
| 587 make_int (gpm_fd), | |
| 588 make_int (gpm_fd)); | |
| 428 | 589 |
| 793 | 590 if (!NILP (gpm_process)) |
| 591 { | |
| 592 rval = 0; | |
| 593 Fprocess_kill_without_query (gpm_process, Qnil); | |
| 594 gpm_filter = wrap_subr (&SFreceive_gpm_event); | |
| 853 | 595 set_process_filter (gpm_process, gpm_filter, 1, 0); |
| 428 | 596 |
| 793 | 597 /* Keep track of the device for later */ |
| 598 /* Fput (gpm_process, intern ("gpm-device"), device); */ | |
| 428 | 599 } |
| 793 | 600 else |
| 601 { | |
| 602 Gpm_Close (); | |
| 603 rval = -1; | |
| 604 } | |
| 605 } | |
| 428 | 606 |
| 793 | 607 return (rval ? Qnil : Qt); |
| 428 | 608 } |
| 609 | |
| 610 void vars_of_gpmevent (void) | |
| 611 { | |
| 793 | 612 gpm_event_queue = Qnil; |
| 613 gpm_event_queue_tail = Qnil; | |
| 614 staticpro (&gpm_event_queue); | |
| 615 staticpro (&gpm_event_queue_tail); | |
| 1204 | 616 dump_add_root_lisp_object (&gpm_event_queue); |
| 617 dump_add_root_lisp_object (&gpm_event_queue_tail); | |
| 428 | 618 } |
| 619 | |
| 620 void syms_of_gpmevent (void) | |
| 621 { | |
| 793 | 622 DEFSUBR (Freceive_gpm_event); |
| 623 DEFSUBR (Fgpm_enable); | |
| 624 DEFSUBR (Fgpm_enabled_p); | |
| 428 | 625 } |
| 626 | |
| 627 #endif /* HAVE_GPM */ |