Mercurial > emacs
annotate src/dosfns.c @ 112364:42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
* globals.h: New file.
* xterm.h (Vx_pixel_size_width_font_regexp): Remove declaration.
* window.h (Vinitial_window_system, Vminibuf_scroll_window)
(Vwindow_system_version): Remove declaration.
* w32term.h (Vw32_enable_palette)
(Vx_pixel_size_width_font_regexp): Remove declaration.
* w32menu.c (Voverriding_local_map)
(Voverriding_local_map_menu_flag): Remove declaration.
* w32inevt.c (Vw32_alt_is_meta, Vw32_apps_modifier)
(Vw32_capslock_is_shiftlock, Vw32_enable_caps_lock)
(Vw32_enable_num_lock, Vw32_lwindow_modifier)
(Vw32_pass_lwindow_to_system, Vw32_pass_rwindow_to_system)
(Vw32_phantom_key_code, Vw32_recognize_altgr)
(Vw32_rwindow_modifier, Vw32_scroll_lock_modifier)
(w32_use_full_screen_buffer): Remove declaration.
* w32.c (Vsystem_configuration, Vw32_downcase_file_names)
(Vw32_generate_fake_inodes, Vw32_get_true_file_attributes)
(w32_num_mouse_buttons, w32_pipe_read_delay): Remove declaration.
* termopts.h (Vtruncate_partial_width_windows, inverse_video)
(no_redraw_on_reenter, visible_bell): Remove declaration.
* sysdep.c (Vsystem_name): Remove declaration.
* syntax.h (parse_sexp_lookup_properties): Remove declaration.
* menu.h (Vmenu_updating_frame): Remove declaration.
* macros.h (Vexecuting_kbd_macro, executing_kbd_macro_index):
Remove declaration.
* lisp.h (Vafter_init_time, Vafter_load_alist)
(Vauto_save_list_file_name, Vbefore_init_time, Vcommand_history)
(Vcompletion_regexp_list, Vcurrent_load_list)
(Vcurrent_prefix_arg, Vdata_directory, Vdebug_on_error)
(Vdoc_directory, Vdoc_file_name, Vdynamic_library_alist)
(Vexec_directory, Vexec_path, Vexec_suffixes)
(Vface_font_rescale_alist, Vface_ignored_fonts, Vfeatures)
(Vhelp_form, Vhistory_length, Vinhibit_field_text_motion)
(Vinhibit_quit, Vinhibit_read_only, Vinhibit_redisplay)
(Vinstallation_directory, Vinvocation_directory)
(Vinvocation_name, Vload_file_rep_suffixes, Vload_history)
(Vload_suffixes, Vmark_even_if_inactive, Vmemory_full)
(Vmessage_log_max, Vobarray, Vprint_length, Vprint_level)
(Vpurify_flag, Vquit_flag, Vsaved_region_selection)
(Vscalable_fonts_allowed, Vselect_active_regions)
(Vshell_file_name, Vstandard_input, Vstandard_output)
(Vsystem_name, Vtemporary_file_directory, Vthrow_on_input)
(Vtop_level, Vtty_erase_char, Vundo_outer_limit)
(Vuser_login_name, Vwindow_scroll_functions)
(Vwindow_system_version, Vx_no_window_manager)
(Vx_resource_class, Vx_resource_name, baud_rate)
(completion_ignore_case, debug_on_next_call, gc_cons_threshold)
(history_delete_duplicates, inhibit_x_resources)
(last_nonmenu_event, load_in_progress, max_specpdl_size)
(minibuffer_auto_raise, print_escape_newlines, scroll_margin)
(use_dialog_box, use_file_dialog): Remove declaration. Include
globals.h.
* keymap.h (Voverriding_local_map)
(Voverriding_local_map_menu_flag, meta_prefix_char): Remove
declaration.
* keyboard.h (Vdouble_click_time, Vfunction_key_map)
(Vinput_method_function, Vkey_translation_map)
(Vlucid_menu_bar_dirty_flag, Vthis_original_command)
(do_mouse_tracking, extra_keyboard_modifiers)
(num_nonmacro_input_events): Remove declaration.
* intervals.h (Vchar_property_alias_alist)
(Vdefault_text_properties, Vinhibit_point_motion_hooks)
(Vtext_property_default_nonsticky): Remove declaration.
* gtkutil.h (x_gtk_file_dialog_help_text)
(x_gtk_show_hidden_files, x_gtk_use_old_file_dialog)
(x_gtk_whole_detached_tool_bar): Remove declaration.
* frame.h (Vdefault_frame_alist, Vframe_alpha_lower_limit)
(Vmenu_bar_mode, Vmouse_highlight, Vterminal_frame)
(Vtool_bar_mode, Vx_resource_class, Vx_resource_name)
(focus_follows_mouse): Remove declaration.
* fontset.h (Valternate_fontname_alist, Vfontset_alias_alist)
(Vignore_relative_composition, Votf_script_alist)
(Vuse_default_ascent, Vvertical_centering_font_regexp): Remove
declaration.
* font.h (Vfont_log): Remove declaration.
* dosfns.h (Vdos_display_scancodes, Vdos_version)
(Vdos_windows_version, dos_codepage, dos_country_code)
(dos_decimal_point, dos_hyper_key, dos_keyboard_layout)
(dos_keypad_mode, dos_super_key, dos_timezone_offset): Remove
declaration.
* disptab.h (Vglyph_table, Vstandard_display_table): Remove
declaration.
* dispextern.h (Vface_remapping_alist, Vglyphless_char_display)
(Vmouse_autoselect_window, Voverflow_newline_into_fringe)
(Vshow_trailing_whitespace, Vtool_bar_button_margin)
(Vtool_bar_style, cursor_in_echo_area, display_hourglass_p)
(inverse_video, mode_line_in_non_selected_windows)
(tool_bar_button_relief, tool_bar_max_label_size)
(underline_minimum_offset)
(unibyte_display_via_language_environment, x_stretch_cursor_p):
Remove declaration.
* composite.h (Vauto_composition_function)
(Vcomposition_function_table): Remove declaration.
* commands.h (Vexecuting_kbd_macro)
(Vminibuffer_local_completion_map)
(Vminibuffer_local_filename_completion_map)
(Vminibuffer_local_filename_must_match_map)
(Vminibuffer_local_map, Vminibuffer_local_must_match_map)
(Vminibuffer_local_ns_map, Vthis_command)
(Vunread_command_events, cursor_in_echo_area)
(last_command_event, last_nonmenu_event, unread_command_char):
Remove declaration.
* coding.h (Vcoding_system_for_read, Vcoding_system_for_write)
(Vdefault_file_name_coding_system)
(Vdefault_process_coding_system, Vfile_name_coding_system)
(Vlast_coding_system_used, Vlocale_coding_system)
(Vselect_safe_coding_system_function)
(Vtranslation_table_for_input, coding_system_require_warning)
(eol_mnemonic_dos, eol_mnemonic_mac, eol_mnemonic_undecided)
(eol_mnemonic_unix, inherit_process_coding_system): Remove
declaration.
* charset.h (Vcharset_list, Vcurrent_iso639_language): Remove
declaration.
* character.h (Vauto_fill_chars, Vchar_direction_table)
(Vchar_script_table, Vchar_width_table, Vprintable_chars)
(Vscript_representative_chars, Vtranslation_table_vector)
(Vunicode_category_table): Remove declaration.
* ccl.h (Vfont_ccl_encoder_alist): Remove declaration.
* buffer.h (Vafter_change_functions, Vbefore_change_functions)
(Vdeactivate_mark, Vfirst_change_hook, Vtransient_mark_mode)
(inhibit_modification_hooks): Remove declaration.
* xterm.c (syms_of_xterm): Update.
(Vx_alt_keysym, Vx_hyper_keysym, Vx_keysym_table)
(Vx_meta_keysym, Vx_super_keysym, Vx_toolkit_scroll_bars)
(x_mouse_click_focus_ignore_position)
(x_underline_at_descent_line)
(x_use_underline_position_properties): Remove.
* xsmfns.c (syms_of_xsmfns): Update.
(Vx_session_id, Vx_session_previous_id): Remove.
* xsettings.c (syms_of_xsettings): Update.
(Vxft_settings, use_system_font): Remove.
* xselect.c (syms_of_xselect): Update.
(Vselection_converter_alist, Vx_lost_selection_functions)
(Vx_sent_selection_functions, x_selection_timeout): Remove.
* xfns.c (syms_of_xfns): Update.
(Vgtk_version_string, Vmotif_version_string)
(Vx_cursor_fore_pixel, Vx_hourglass_pointer_shape)
(Vx_max_tooltip_size, Vx_mode_pointer_shape)
(Vx_no_window_manager, Vx_nontext_pointer_shape)
(Vx_pixel_size_width_font_regexp, Vx_pointer_shape)
(Vx_sensitive_text_pointer_shape)
(Vx_window_horizontal_drag_shape, x_gtk_file_dialog_help_text)
(x_gtk_show_hidden_files, x_gtk_use_old_file_dialog)
(x_gtk_use_system_tooltips, x_gtk_whole_detached_tool_bar):
Remove.
* xfaces.c (syms_of_xfaces): Update.
(Vface_default_stipple, Vface_font_rescale_alist)
(Vface_ignored_fonts, Vface_new_frame_defaults)
(Vface_remapping_alist, Vfont_list_limit)
(Vscalable_fonts_allowed, Vtty_defined_color_alist): Remove.
* xdisp.c (syms_of_xdisp): Update.
(Vauto_resize_tool_bars, Vblink_cursor_alist)
(Vdisplay_pixels_per_inch, Vfontification_functions)
(Vframe_title_format, Vglobal_mode_string)
(Vglyphless_char_display, Vhourglass_delay, Vhscroll_step)
(Vicon_title_format, Vinhibit_redisplay)
(Vline_number_display_limit, Vline_prefix)
(Vmax_mini_window_height, Vmenu_bar_update_hook)
(Vmenu_updating_frame, Vmessage_log_max)
(Vmouse_autoselect_window, Vnobreak_char_display)
(Voverlay_arrow_position, Voverlay_arrow_string)
(Voverlay_arrow_variable_list, Vredisplay_end_trigger_functions)
(Vresize_mini_windows, Vshow_trailing_whitespace)
(Vtool_bar_border, Vtool_bar_button_margin, Vtool_bar_style)
(Vtruncate_partial_width_windows, Vvoid_text_area_pointer)
(Vwindow_scroll_functions, Vwindow_size_change_functions)
(Vwindow_text_change_functions, Vwrap_prefix)
(auto_raise_tool_bar_buttons_p, automatic_hscrolling_p)
(debug_end_pos, display_hourglass_p, emacs_scroll_step)
(highlight_nonselected_windows, hscroll_margin)
(inhibit_eval_during_redisplay, inhibit_free_realized_faces)
(inhibit_menubar_update, inhibit_try_cursor_movement)
(inhibit_try_window_id, inhibit_try_window_reusing)
(line_number_display_limit_width)
(make_cursor_line_fully_visible_p, message_truncate_lines)
(mode_line_inverse_video, multiple_frames, overline_margin)
(scroll_conservatively, scroll_margin, tool_bar_button_relief)
(tool_bar_max_label_size, underline_minimum_offset)
(unibyte_display_via_language_environment, x_stretch_cursor_p):
Remove.
* window.c (syms_of_window): Update.
(Vminibuf_scroll_window, Vother_window_scroll_buffer)
(Vrecenter_redisplay, Vscroll_preserve_screen_position)
(Vtemp_buffer_show_function, Vwindow_configuration_change_hook)
(Vwindow_point_insertion_type, auto_window_vscroll_p)
(mode_line_in_non_selected_windows, next_screen_context_lines)
(window_min_height, window_min_width): Remove.
(scroll_margin): Remove declaration.
* w32term.c (syms_of_w32term): Update.
(Vw32_capslock_is_shiftlock, Vw32_grab_focus_on_raise)
(Vw32_recognize_altgr, Vw32_swap_mouse_buttons)
(Vx_toolkit_scroll_bars, w32_num_mouse_buttons)
(w32_use_visible_system_caret, x_underline_at_descent_line)
(x_use_underline_position_properties): Remove.
(Vcommand_line_args, Vsystem_name, extra_keyboard_modifiers):
Remove declaration.
* w32select.c (syms_of_w32select): Update.
(Vnext_selection_coding_system, Vselection_coding_system): Remove.
* w32proc.c (syms_of_ntproc): Update.
(Vw32_downcase_file_names, Vw32_generate_fake_inodes)
(Vw32_get_true_file_attributes, Vw32_quote_process_args)
(Vw32_start_process_inherit_error_mode)
(Vw32_start_process_share_console)
(Vw32_start_process_show_window, w32_pipe_read_delay): Remove.
(Vsystem_name): Remove declaration.
* w32font.c (syms_of_w32font): Update.
(Vw32_charset_info_alist): Remove.
* w32fns.c (globals_of_w32fns, syms_of_w32fns): Update.
(Vw32_alt_is_meta, Vw32_apps_modifier, Vw32_bdf_filename_alist)
(Vw32_color_map, Vw32_enable_caps_lock, Vw32_enable_num_lock)
(Vw32_enable_palette, Vw32_lwindow_modifier)
(Vw32_pass_alt_to_system, Vw32_pass_lwindow_to_system)
(Vw32_pass_rwindow_to_system, Vw32_phantom_key_code)
(Vw32_rwindow_modifier, Vw32_scroll_lock_modifier)
(Vx_cursor_fore_pixel, Vx_hourglass_pointer_shape)
(Vx_max_tooltip_size, Vx_mode_pointer_shape)
(Vx_no_window_manager, Vx_nontext_pointer_shape)
(Vx_pixel_size_width_font_regexp, Vx_pointer_shape)
(Vx_sensitive_text_pointer_shape)
(Vx_window_horizontal_drag_shape, w32_ansi_code_page)
(w32_enable_synthesized_fonts, w32_mouse_button_tolerance)
(w32_mouse_move_interval)
(w32_pass_extra_mouse_buttons_to_system)
(w32_pass_multimedia_buttons_to_system, w32_quit_key)
(w32_strict_fontnames, w32_strict_painting): Remove.
(Vhourglass_delay, Vmenu_bar_mode, Vtool_bar_mode)
(Vw32_recognize_altgr, Vwindow_system_version)
(w32_num_mouse_buttons, w32_use_visible_system_caret): Remove
declaration.
* w32console.c (syms_of_ntterm): Update.
(w32_use_full_screen_buffer): Remove.
(Vtty_defined_color_alist): Remove declaration.
* w16select.c (syms_of_win16select): Update.
(Vnext_selection_coding_system, Vselection_coding_system): Remove.
* undo.c (syms_of_undo): Update.
(Vundo_outer_limit, Vundo_outer_limit_function)
(undo_inhibit_record_point, undo_limit, undo_strong_limit):
Remove.
* textprop.c (syms_of_textprop): Update.
(Vchar_property_alias_alist, Vdefault_text_properties)
(Vinhibit_point_motion_hooks, Vtext_property_default_nonsticky):
Remove.
* terminal.c (syms_of_terminal): Update.
(Vdelete_terminal_functions, Vring_bell_function): Remove.
* term.c (syms_of_term): Update.
(Vresume_tty_functions, Vsuspend_tty_functions)
(no_redraw_on_reenter, system_uses_terminfo, visible_cursor):
Remove.
* syntax.c (syms_of_syntax): Update.
(Vfind_word_boundary_function_table, multibyte_syntax_as_symbol)
(open_paren_in_column_0_is_defun_start)
(parse_sexp_ignore_comments, parse_sexp_lookup_properties)
(words_include_escapes): Remove.
* search.c (syms_of_search): Update.
(Vinhibit_changing_match_data, Vsearch_spaces_regexp): Remove.
* process.c (syms_of_process): Update.
(Vprocess_adaptive_read_buffering, Vprocess_connection_type)
(delete_exited_processes): Remove.
* print.c (syms_of_print): Update.
(Vfloat_output_format, Vprint_charset_text_property)
(Vprint_circle, Vprint_continuous_numbering, Vprint_gensym)
(Vprint_length, Vprint_level, Vprint_number_table)
(Vstandard_output, print_escape_multibyte)
(print_escape_newlines, print_escape_nonascii, print_quoted):
Remove.
* msdos.c (syms_of_msdos): Update.
(Vdos_unsupported_char_glyph): Remove.
(unibyte_display_via_language_environment): Remove declaration.
* minibuf.c (syms_of_minibuf): Update.
(Vcompletion_regexp_list, Vhistory_add_new_input)
(Vhistory_length, Vminibuffer_completing_file_name)
(Vminibuffer_completion_confirm)
(Vminibuffer_completion_predicate, Vminibuffer_completion_table)
(Vminibuffer_exit_hook, Vminibuffer_help_form)
(Vminibuffer_history_position, Vminibuffer_history_variable)
(Vminibuffer_prompt_properties, Vminibuffer_setup_hook)
(Vread_buffer_function, Vread_expression_map)
(completion_ignore_case, enable_recursive_minibuffers)
(history_delete_duplicates, minibuffer_allow_text_properties)
(minibuffer_auto_raise, read_buffer_completion_ignore_case):
Remove.
* marker.c (syms_of_marker): Update.
(byte_debug_flag): Remove.
* macros.c (syms_of_macros): Update.
(Vexecuting_kbd_macro, executing_kbd_macro_index): Remove.
* lread.c (syms_of_lread): Update.
(Vafter_load_alist, Vbyte_boolean_vars)
(Vbytecomp_version_regexp, Vcurrent_load_list)
(Veval_buffer_list, Vload_file_name, Vload_file_rep_suffixes)
(Vload_history, Vload_path, Vload_read_function)
(Vload_source_file_function, Vload_suffixes, Vobarray)
(Vold_style_backquotes, Vpreloaded_file_list, Vread_circle)
(Vread_symbol_positions_list, Vread_with_symbol_positions)
(Vsource_directory, Vstandard_input, Vuser_init_file, Vvalues)
(force_load_messages, load_convert_to_unibyte)
(load_dangerous_libraries, load_force_doc_strings)
(load_in_progress): Remove.
* keymap.c (syms_of_keymap): Update.
(Vdefine_key_rebound_commands, Vemulation_mode_map_alists)
(Vminibuffer_local_completion_map)
(Vminibuffer_local_filename_completion_map)
(Vminibuffer_local_filename_must_match_map)
(Vminibuffer_local_map, Vminibuffer_local_must_match_map)
(Vminibuffer_local_ns_map, Vminor_mode_map_alist)
(Vminor_mode_overriding_map_alist, Vwhere_is_preferred_modifier):
Remove.
* keyboard.c (syms_of_keyboard): Update.
(Vauto_save_timeout, Vcommand_error_function)
(Vcommand_hook_internal, Vdeactivate_mark)
(Vdeferred_action_function, Vdeferred_action_list)
(Vdisable_point_adjustment, Vdouble_click_time)
(Vecho_keystrokes, Venable_disabled_menus_and_buttons)
(Vfunction_key_map, Vglobal_disable_point_adjustment)
(Vhelp_char, Vhelp_event_list, Vhelp_form)
(Vinput_method_function, Vinput_method_previous_message)
(Vkey_translation_map, Vlast_event_frame)
(Vlucid_menu_bar_dirty_flag, Vmenu_bar_final_items)
(Vminibuffer_message_timeout, Voverriding_local_map)
(Voverriding_local_map_menu_flag, Vpost_command_hook)
(Vpre_command_hook, Vprefix_help_command)
(Vsaved_region_selection, Vselect_active_regions)
(Vshow_help_function, Vspecial_event_map, Vsuggest_key_bindings)
(Vthis_command, Vthis_command_keys_shift_translated)
(Vthis_original_command, Vthrow_on_input, Vtimer_idle_list)
(Vtimer_list, Vtool_bar_separator_image_expression, Vtop_level)
(Vtty_erase_char, Vunread_command_events)
(Vunread_input_method_events, Vunread_post_input_method_events)
(auto_save_interval, cannot_suspend, do_mouse_tracking)
(double_click_fuzz, extra_keyboard_modifiers)
(inhibit_local_menu_bar_menus, last_command_event)
(last_input_event, last_nonmenu_event, menu_prompt_more_char)
(menu_prompting, meta_prefix_char, num_input_keys)
(num_nonmacro_input_events, polling_period, unread_command_char):
Remove.
* insdel.c (syms_of_insdel): Update.
(Vcombine_after_change_calls, check_markers_debug_flag): Remove.
* indent.c (syms_of_indent): Update.
(indent_tabs_mode): Remove.
* image.c (syms_of_image): Update.
(Vimage_cache_eviction_delay, Vimage_types)
(Vimagemagick_render_type, Vmax_image_size, Vx_bitmap_file_path)
(cross_disabled_images): Remove.
* fringe.c (syms_of_fringe): Update.
(Vfringe_bitmaps, Voverflow_newline_into_fringe): Remove.
* frame.c (syms_of_frame): Update.
(Vdefault_frame_alist, Vdefault_frame_scroll_bars)
(Vdelete_frame_functions, Vframe_alpha_lower_limit)
(Vmake_pointer_invisible, Vmenu_bar_mode, Vmouse_highlight)
(Vmouse_position_function, Vterminal_frame, Vtool_bar_mode)
(Vx_resource_class, Vx_resource_name, focus_follows_mouse):
Remove.
* fontset.c (syms_of_fontset): Update.
(Valternate_fontname_alist, Vfont_encoding_charset_alist)
(Vfontset_alias_alist, Vignore_relative_composition)
(Votf_script_alist, Vuse_default_ascent)
(Vvertical_centering_font_regexp): Remove.
* font.c (syms_of_font): Update.
(Vfont_encoding_alist, Vfont_log, Vfont_slant_table)
(Vfont_weight_table, Vfont_width_table): Remove.
* fns.c (syms_of_fns): Update.
(Vfeatures, use_dialog_box, use_file_dialog): Remove.
* filelock.c (syms_of_filelock): Update.
(Vtemporary_file_directory): Remove.
* fileio.c (syms_of_fileio): Update.
(Vafter_insert_file_functions, Vauto_save_include_big_deletions)
(Vauto_save_list_file_name, Vauto_save_visited_file_name)
(Vdefault_file_name_coding_system, Vfile_name_coding_system)
(Vfile_name_handler_alist, Vinhibit_file_name_handlers)
(Vinhibit_file_name_operation, Vset_auto_coding_function)
(Vwrite_region_annotate_functions)
(Vwrite_region_annotations_so_far)
(Vwrite_region_post_annotation_function)
(delete_by_moving_to_trash, write_region_inhibit_fsync): Remove.
(Vw32_get_true_file_attributes): Remove declaration.
* eval.c (syms_of_eval): Update.
(Vdebug_ignored_errors, Vdebug_on_error, Vdebug_on_signal)
(Vdebugger, Vinhibit_quit, Vmacro_declaration_function)
(Vquit_flag, Vsignal_hook_function, Vstack_trace_on_error)
(debug_on_next_call, debug_on_quit, debugger_may_continue)
(max_lisp_eval_depth, max_specpdl_size): Remove.
* emacs.c (syms_of_emacs): Update.
(Vafter_init_time, Vbefore_init_time, Vcommand_line_args)
(Vdynamic_library_alist, Vemacs_copyright, Vemacs_version)
(Vinstallation_directory, Vinvocation_directory)
(Vinvocation_name, Vkill_emacs_hook, Vpath_separator)
(Vprevious_system_messages_locale, Vprevious_system_time_locale)
(Vsystem_configuration, Vsystem_configuration_options)
(Vsystem_messages_locale, Vsystem_time_locale, Vsystem_type)
(inhibit_x_resources, noninteractive1): Remove.
* editfns.c (syms_of_editfns): Update.
(Vbuffer_access_fontified_property)
(Vbuffer_access_fontify_functions, Vinhibit_field_text_motion)
(Voperating_system_release, Vsystem_name, Vuser_full_name)
(Vuser_login_name, Vuser_real_login_name): Remove.
* dosfns.c (syms_of_dosfns): Update.
(Vdos_display_scancodes, Vdos_version, Vdos_windows_version)
(dos_codepage, dos_country_code, dos_decimal_point)
(dos_hyper_key, dos_keyboard_layout, dos_keypad_mode)
(dos_super_key, dos_timezone_offset): Remove.
* doc.c (syms_of_doc): Update.
(Vbuild_files, Vdoc_file_name): Remove.
* dispnew.c (syms_of_display): Update.
(Vglyph_table, Vinitial_window_system)
(Vredisplay_preemption_period, Vstandard_display_table)
(Vwindow_system_version, baud_rate, cursor_in_echo_area)
(inverse_video, redisplay_dont_pause, visible_bell): Remove.
* dired.c (syms_of_dired): Update.
(Vcompletion_ignored_extensions): Remove.
(Vw32_get_true_file_attributes): Remove declaration.
* dbusbind.c (syms_of_dbusbind): Update.
(Vdbus_debug, Vdbus_registered_buses)
(Vdbus_registered_objects_table): Remove.
* data.c (syms_of_data): Update.
(Vmost_negative_fixnum, Vmost_positive_fixnum): Remove.
* composite.c (syms_of_composite): Update.
(Vauto_composition_function, Vauto_composition_mode)
(Vcompose_chars_after_function, Vcomposition_function_table):
Remove.
* coding.c (syms_of_coding): Update.
(Vcharset_revision_table, Vcoding_category_list)
(Vcoding_system_alist, Vcoding_system_for_read)
(Vcoding_system_for_write, Vcoding_system_list)
(Vdefault_process_coding_system, Venable_character_translation)
(Vfile_coding_system_alist, Vlast_code_conversion_error)
(Vlast_coding_system_used, Vlatin_extra_code_table)
(Vlocale_coding_system, Vnetwork_coding_system_alist)
(Vprocess_coding_system_alist)
(Vselect_safe_coding_system_function)
(Vstandard_translation_table_for_decode)
(Vstandard_translation_table_for_encode)
(Vtranslation_table_for_input, coding_system_require_warning)
(eol_mnemonic_dos, eol_mnemonic_mac, eol_mnemonic_undecided)
(eol_mnemonic_unix, inherit_process_coding_system)
(inhibit_eol_conversion, inhibit_iso_escape_detection)
(inhibit_null_byte_detection): Remove.
* cmds.c (syms_of_cmds): Update.
(Vpost_self_insert_hook): Remove.
* charset.c (syms_of_charset): Update.
(Vcharset_list, Vcharset_map_path, Vcurrent_iso639_language)
(inhibit_load_charset_map): Remove.
* character.c (syms_of_character): Update.
(Vauto_fill_chars, Vchar_direction_table, Vchar_script_table)
(Vchar_width_table, Vprintable_chars)
(Vscript_representative_chars, Vtranslation_table_vector)
(Vunicode_category_table): Remove.
* ccl.c (syms_of_ccl): Update.
(Vcode_conversion_map_vector, Vfont_ccl_encoder_alist)
(Vtranslation_hash_table_vector): Remove.
* category.c (syms_of_category): Update.
(Vword_combining_categories, Vword_separating_categories): Remove.
* callproc.c (syms_of_callproc): Update.
(Vconfigure_info_directory, Vdata_directory, Vdoc_directory)
(Vexec_directory, Vexec_path, Vexec_suffixes)
(Vinitial_environment, Vprocess_environment)
(Vshared_game_score_directory, Vshell_file_name): Remove.
* callint.c (syms_of_callint): Update.
(Vcommand_debug_status, Vcommand_history, Vcurrent_prefix_arg)
(Vmark_even_if_inactive, Vmouse_leave_buffer_hook): Remove.
* bytecode.c (syms_of_bytecode): Update.
(Vbyte_code_meter, byte_metering_on): Remove.
* buffer.c (syms_of_buffer): Update.
(Vafter_change_functions, Vbefore_change_functions)
(Vchange_major_mode_hook, Vfirst_change_hook)
(Vinhibit_read_only, Vkill_buffer_query_functions)
(Vtransient_mark_mode, inhibit_modification_hooks): Remove.
* alloc.c (syms_of_alloc): Update.
(Vgc_cons_percentage, Vgc_elapsed, Vmemory_full)
(Vmemory_signal_data, Vpost_gc_hook, Vpurify_flag)
(cons_cells_consed, floats_consed, garbage_collection_messages)
(gc_cons_threshold, gcs_done, intervals_consed)
(misc_objects_consed, pure_bytes_used, string_chars_consed)
(strings_consed, symbols_consed, vector_cells_consed): Remove.
* lisp.h (DEFVAR_LISP, DEFVAR_LISP_NOPRO, DEFVAR_BOOL)
(DEFVAR_INT): Assume global is in `globals'.
* alloc.c (globals): Define.
author | Tom Tromey <tromey@redhat.com> |
---|---|
date | Tue, 18 Jan 2011 13:45:37 -0700 |
parents | ef719132ddfa |
children |
rev | line source |
---|---|
5503 | 1 /* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991. |
2 Major changes May-July 1993 Morten Welinder (only 10% original code left) | |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001, 2002, 2003, 2004, |
112218
376148b31b5e
Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
4 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. |
5503 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
5503 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
11 (at your option) any later version. |
5503 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
5503 | 20 |
5980 | 21 #include <config.h> |
5503 | 22 |
23 #ifdef MSDOS | |
24 /* The entire file is within this conditional */ | |
25 | |
26 #include <stdio.h> | |
27 #include <dos.h> | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
102838
diff
changeset
|
28 #include <setjmp.h> |
5503 | 29 #include "lisp.h" |
30 #include "buffer.h" | |
31 #include "termchar.h" | |
97653
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
32 #include "frame.h" |
5503 | 33 #include "termhooks.h" |
20034 | 34 #include "blockinput.h" |
35 #include "window.h" | |
5503 | 36 #include "dosfns.h" |
37 #include "msdos.h" | |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
38 #include "dispextern.h" |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41914
diff
changeset
|
39 #include "character.h" |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
40 #include "coding.h" |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
41 #include "process.h" |
20034 | 42 #include <dpmi.h> |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
43 #include <go32.h> |
15226
31a30cc1d61a
(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents:
15173
diff
changeset
|
44 #include <dirent.h> |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
45 #include <sys/vfs.h> |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
46 #include <unistd.h> |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
47 #include <grp.h> |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
48 #include <crt0.h> |
5503 | 49 |
50 DEFUN ("int86", Fint86, Sint86, 2, 2, 0, | |
99540
c5c8f07bc47c
* w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents:
97653
diff
changeset
|
51 doc: /* Call specific MS-DOS interrupt number INTERRUPT with REGISTERS. |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
52 Return the updated REGISTER vector. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
53 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
54 INTERRUPT should be an integer in the range 0 to 255. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
55 REGISTERS should be a vector produced by `make-register' and |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
56 `set-register-value'. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
57 (Lisp_Object interrupt, Lisp_Object registers) |
5503 | 58 { |
59 register int i; | |
60 int no; | |
61 union REGS inregs, outregs; | |
62 | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
63 CHECK_NUMBER (interrupt); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
64 no = (unsigned long) XINT (interrupt); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
65 CHECK_VECTOR (registers); |
45331 | 66 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) |
5503 | 67 return Qnil; |
68 for (i = 0; i < 8; i++) | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
69 CHECK_NUMBER (XVECTOR (registers)->contents[i]); |
5503 | 70 |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
71 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
72 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
73 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
74 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
75 inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
76 inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
77 inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
78 inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]); |
5503 | 79 |
80 int86 (no, &inregs, &outregs); | |
81 | |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
82 XVECTOR (registers)->contents[0] = make_number (outregs.x.ax); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
83 XVECTOR (registers)->contents[1] = make_number (outregs.x.bx); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
84 XVECTOR (registers)->contents[2] = make_number (outregs.x.cx); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
85 XVECTOR (registers)->contents[3] = make_number (outregs.x.dx); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
86 XVECTOR (registers)->contents[4] = make_number (outregs.x.si); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
87 XVECTOR (registers)->contents[5] = make_number (outregs.x.di); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
88 XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag); |
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
89 XVECTOR (registers)->contents[7] = make_number (outregs.x.flags); |
5503 | 90 |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
91 return registers; |
5503 | 92 } |
93 | |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
94 DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
95 doc: /* Read DOS memory at offset ADDRESS into VECTOR. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
96 Return the updated VECTOR. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
97 (Lisp_Object address, Lisp_Object vector) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
98 { |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
99 register int i; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
100 int offs, len; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
101 char *buf; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
102 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
103 CHECK_NUMBER (address); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
104 offs = (unsigned long) XINT (address); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
105 CHECK_VECTOR (vector); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
106 len = XVECTOR (vector)-> size; |
58012
934f6fb6fd8a
* dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
107 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
108 return Qnil; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
109 buf = alloca (len); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
110 dosmemget (offs, len, buf); |
45331 | 111 |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
112 for (i = 0; i < len; i++) |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
113 XVECTOR (vector)->contents[i] = make_number (buf[i]); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
114 |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
115 return vector; |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
116 } |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
117 |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
118 DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
119 doc: /* Write DOS memory at offset ADDRESS from VECTOR. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
120 (Lisp_Object address, Lisp_Object vector) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
121 { |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
122 register int i; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
123 int offs, len; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
124 char *buf; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
125 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
126 CHECK_NUMBER (address); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
127 offs = (unsigned long) XINT (address); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
128 CHECK_VECTOR (vector); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
129 len = XVECTOR (vector)-> size; |
58012
934f6fb6fd8a
* dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
130 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
131 return Qnil; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
132 buf = alloca (len); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
133 |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
134 for (i = 0; i < len; i++) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
135 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
136 CHECK_NUMBER (XVECTOR (vector)->contents[i]); |
14070
c74bb6ea72ab
(Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): Harmonize
Erik Naggum <erik@naggum.no>
parents:
13745
diff
changeset
|
137 buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF; |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
138 } |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
139 |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
140 dosmemput (buf, len, offs); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
141 return Qt; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
142 } |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
143 |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
144 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
145 doc: /* Set keyboard layout according to COUNTRY-CODE. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
146 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
147 all keys; otherwise it is only used when the ALT key is pressed. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
148 The current keyboard layout is available in dos-keyboard-code. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
149 (Lisp_Object country_code, Lisp_Object allkeys) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
150 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
151 CHECK_NUMBER (country_code); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
152 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys))) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
153 return Qnil; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
154 return Qt; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
155 } |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
156 |
9572 | 157 #ifndef HAVE_X_WINDOWS |
158 /* Later we might want to control the mouse interface with this function, | |
159 e.g., with respect to non-80 column screen modes. */ | |
160 | |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
161 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
162 doc: /* Report whether a mouse is present. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
163 (void) |
9572 | 164 { |
165 if (have_mouse) | |
166 return Qt; | |
167 else | |
168 return Qnil; | |
169 } | |
170 #endif | |
171 | |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
172 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "", |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
173 doc: /* Initialize and enable mouse if available. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
174 (void) |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
175 { |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
176 if (have_mouse) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
177 { |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
178 have_mouse = 1; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
179 mouse_init (); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
180 return Qt; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
181 } |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
182 return Qnil; |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
183 } |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
184 |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
185 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "", |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
186 doc: /* Enable mouse if available. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
187 (void) |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
188 { |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
189 if (have_mouse) |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
190 { |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
191 have_mouse = 1; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
192 mouse_on (); |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
193 } |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
194 return have_mouse ? Qt : Qnil; |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
195 } |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
196 |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
197 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "", |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
198 doc: /* Disable mouse if available. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
199 (void) |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
200 { |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
201 mouse_off (); |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
202 if (have_mouse) have_mouse = -1; |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
203 return Qnil; |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
204 } |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
205 |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
206 DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "", |
73685
f25200449e7b
(Finsert_startup_screen): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
207 doc: /* Insert copy of screen contents prior to starting Emacs. |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
208 Return nil if startup screen is not available. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
209 (void) |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
210 { |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
211 char *s; |
45331 | 212 int rows, cols, i, j; |
213 | |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
214 if (!dos_get_saved_screen (&s, &rows, &cols)) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
215 return Qnil; |
45331 | 216 |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
217 for (i = 0; i < rows; i++) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
218 { |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
219 for (j = 0; j < cols; j++) |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
220 { |
19288
bdc4b7818976
(Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents:
16335
diff
changeset
|
221 insert_char (*s); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
222 s += 2; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
223 } |
19288
bdc4b7818976
(Finsert_startup_screen): Call `insert_char' with a single argument.
Richard M. Stallman <rms@gnu.org>
parents:
16335
diff
changeset
|
224 insert_char ('\n'); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
225 } |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
226 |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
227 return Qt; |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
228 } |
9572 | 229 |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
230 unsigned char dos_country_info[DOS_COUNTRY_INFO]; |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
231 static unsigned char usa_country_info[DOS_COUNTRY_INFO] = { |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
232 0, 0, /* date format */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
233 '$', 0, 0, 0, 0, /* currency string */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
234 ',', 0, /* thousands separator */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
235 '.', 0, /* decimal separator */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
236 '/', 0, /* date separator */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
237 ':', 0, /* time separator */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
238 0, /* currency format */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
239 2, /* digits after decimal in currency */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
240 0, /* time format */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
241 0, 0, 0, 0, /* address of case map routine, GPF if used */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
242 ' ', 0, /* data-list separator (?) */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
243 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* reserved */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
244 }; |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
245 |
20034 | 246 #ifndef HAVE_X_WINDOWS |
247 static unsigned dos_windows_version; | |
248 char parent_vm_title[50]; /* Ralf Brown says 30 is enough */ | |
249 int w95_set_virtual_machine_title (const char *); | |
250 | |
251 void | |
252 restore_parent_vm_title (void) | |
253 { | |
254 if (NILP (Vdos_windows_version)) | |
255 return; | |
256 if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0]) | |
257 w95_set_virtual_machine_title (parent_vm_title); | |
258 delay (50); | |
259 } | |
260 #endif /* !HAVE_X_WINDOWS */ | |
45331 | 261 |
5503 | 262 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
263 init_dosfns (void) |
5503 | 264 { |
265 union REGS regs; | |
266 _go32_dpmi_registers dpmiregs; | |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
267 unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer; |
5503 | 268 |
9572 | 269 #ifndef SYSTEM_MALLOC |
109761
31def5db596a
Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents:
109179
diff
changeset
|
270 extern void get_lim_data (void); |
31def5db596a
Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents:
109179
diff
changeset
|
271 |
5503 | 272 get_lim_data (); /* why the hell isn't this called elsewhere? */ |
9572 | 273 #endif |
5503 | 274 |
275 regs.x.ax = 0x3000; | |
276 intdos (®s, ®s); | |
277 Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah)); | |
278 | |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
279 /* Obtain the country code via DPMI, use DJGPP transfer buffer. */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
280 dpmiregs.x.ax = 0x3800; |
21430
b6b154ad6e22
(init_dosfns): Fix bug in passing segment address of the transfer buffer.
Eli Zaretskii <eliz@gnu.org>
parents:
20034
diff
changeset
|
281 dpmiregs.x.ds = xbuf >> 4; |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
282 dpmiregs.x.dx = 0; |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
283 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0; |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
284 _go32_dpmi_simulate_int (0x21, &dpmiregs); |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
285 if (dpmiregs.x.flags & 1) |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
286 { |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
287 dos_country_code = 1; /* assume USA if 213800 failed */ |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
288 memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO); |
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
289 } |
5503 | 290 else |
291 { | |
292 dos_country_code = dpmiregs.x.bx; | |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
293 dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info); |
5503 | 294 } |
19294
1f8ca0c4836f
(init_dosfns): Avoid calling DOS memory-allocation
Richard M. Stallman <rms@gnu.org>
parents:
19288
diff
changeset
|
295 |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
296 dos_set_keyboard (dos_country_code, 0); |
5503 | 297 |
298 regs.x.ax = 0x6601; | |
299 intdos (®s, ®s); | |
300 if (regs.x.cflag) | |
301 /* Estimate code page from country code */ | |
45331 | 302 switch (dos_country_code) |
5503 | 303 { |
304 case 45: /* Denmark */ | |
305 case 47: /* Norway */ | |
306 dos_codepage = 865; | |
307 break; | |
308 default: | |
309 /* US */ | |
310 dos_codepage = 437; | |
311 } | |
312 else | |
313 dos_codepage = regs.x.bx & 0xffff; | |
15226
31a30cc1d61a
(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents:
15173
diff
changeset
|
314 |
20034 | 315 #ifndef HAVE_X_WINDOWS |
316 parent_vm_title[0] = '\0'; | |
317 | |
318 /* If we are running from DOS box on MS-Windows, get Windows version. */ | |
319 dpmiregs.x.ax = 0x1600; /* enhanced mode installation check */ | |
320 dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0; | |
321 _go32_dpmi_simulate_int (0x2f, &dpmiregs); | |
322 /* We only support Windows-specific features when we run on Windows 9X | |
323 or on Windows 3.X/enhanced mode. | |
324 | |
325 Int 2Fh/AX=1600h returns: | |
326 | |
327 AL = 00: no Windows at all; | |
328 AL = 01: Windows/386 2.x; | |
329 AL = 80h: Windows 3.x in mode other than enhanced; | |
330 AL = FFh: Windows/386 2.x | |
331 | |
332 We also check AH > 0 (Windows 3.1 or later), in case AL tricks us. */ | |
333 if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff | |
334 && (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0)) | |
335 { | |
336 dos_windows_version = dpmiregs.x.ax; | |
337 Vdos_windows_version = | |
338 Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah)); | |
339 | |
340 /* Save the current title of this virtual machine, so we can restore | |
341 it before exiting. Otherwise, Windows 95 will continue to use | |
342 the title we set even after we are history, stupido... */ | |
343 if (dpmiregs.h.al >= 4) | |
344 { | |
345 dpmiregs.x.ax = 0x168e; | |
346 dpmiregs.x.dx = 3; /* get VM title */ | |
347 dpmiregs.x.cx = sizeof(parent_vm_title) - 1; | |
348 dpmiregs.x.es = __tb >> 4; | |
349 dpmiregs.x.di = __tb & 15; | |
350 dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0; | |
351 _go32_dpmi_simulate_int (0x2f, &dpmiregs); | |
352 if (dpmiregs.x.ax == 1) | |
353 dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title); | |
354 } | |
355 } | |
356 else | |
357 { | |
358 dos_windows_version = 0; | |
359 Vdos_windows_version = Qnil; | |
360 } | |
361 #endif /* !HAVE_X_WINDOWS */ | |
362 | |
16335
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
363 /* Without this, we never see hidden files. |
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
364 Don't OR it with the previous value, so the value recorded at dump |
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
365 time, possibly with `preserve-case' flags set, won't get through. */ |
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
366 __opendir_flags = __OPENDIR_FIND_HIDDEN; |
15226
31a30cc1d61a
(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents:
15173
diff
changeset
|
367 |
16335
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
368 #if __DJGPP_MINOR__ == 0 |
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
369 /* Under LFN, preserve the case of files as recorded in the directory |
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
370 (in DJGPP 2.01 and later this is automagically done by the library). */ |
15226
31a30cc1d61a
(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents:
15173
diff
changeset
|
371 if (!NILP (Fmsdos_long_file_names ())) |
31a30cc1d61a
(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
Richard M. Stallman <rms@gnu.org>
parents:
15173
diff
changeset
|
372 __opendir_flags |= __OPENDIR_PRESERVE_CASE; |
16335
6cf0a8b5c895
(init_dosfns): When setting `__opendir_flags' value,
Richard M. Stallman <rms@gnu.org>
parents:
15393
diff
changeset
|
373 #endif /* __DJGPP_MINOR__ == 0 */ |
5503 | 374 } |
375 | |
20034 | 376 #ifndef HAVE_X_WINDOWS |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
377 |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
378 /* Emulation of some X window features from xfns.c and xfaces.c. */ |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
379 |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
380 /* Standard VGA colors, in the order of their standard numbering |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
381 in the default VGA palette. */ |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
382 static char *vga_colors[16] = { |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
383 "black", "blue", "green", "cyan", "red", "magenta", "brown", |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
384 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan", |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
385 "lightred", "lightmagenta", "yellow", "white" |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
386 }; |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
387 |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
388 /* Given a color name, return its index, or -1 if not found. Note |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
389 that this only performs case-insensitive comparison against the |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
390 standard names. For anything more sophisticated, like matching |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
391 "gray" with "grey" or translating X color names into their MSDOS |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
25212
diff
changeset
|
392 equivalents, call the Lisp function Qtty_color_desc (defined |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
25212
diff
changeset
|
393 on lisp/term/tty-colors.el). */ |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
394 int |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
395 msdos_stdcolor_idx (const char *name) |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
396 { |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
397 int i; |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
398 |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
399 for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++) |
95209
6758d4235380
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
95205
diff
changeset
|
400 if (xstrcasecmp (name, vga_colors[i]) == 0) |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
401 return i; |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
402 |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
403 return |
27115
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
404 strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
405 : strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
406 : FACE_TTY_DEFAULT_COLOR; |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
407 } |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
408 |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
409 /* Given a color index, return its standard name. */ |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
25212
diff
changeset
|
410 Lisp_Object |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
411 msdos_stdcolor_name (int idx) |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
412 { |
27115
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
413 extern Lisp_Object Qunspecified; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
25212
diff
changeset
|
414 |
27115
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
415 if (idx == FACE_TTY_DEFAULT_FG_COLOR) |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
416 return build_string (unspecified_fg); |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
417 else if (idx == FACE_TTY_DEFAULT_BG_COLOR) |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
418 return build_string (unspecified_bg); |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
419 else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0])) |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
420 return build_string (vga_colors[idx]); |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
421 else |
13a2c64e6ade
(unspecified_colors): Remove.
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
422 return Qunspecified; /* meaning the default */ |
25113
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
423 } |
73c54061f4bb
(msdos_stdcolor_name, msdos_stdcolor_idx): New
Eli Zaretskii <eliz@gnu.org>
parents:
23814
diff
changeset
|
424 |
20034 | 425 /* Support for features that are available when we run in a DOS box |
426 on MS-Windows. */ | |
427 int | |
428 ms_windows_version (void) | |
429 { | |
430 return dos_windows_version; | |
431 } | |
432 | |
433 /* Set the title of the current virtual machine, to appear on | |
434 the caption bar of that machine's window. */ | |
435 | |
436 int | |
437 w95_set_virtual_machine_title (const char *title_string) | |
438 { | |
439 /* Only Windows 9X (version 4 and higher) support this function. */ | |
440 if (!NILP (Vdos_windows_version) | |
441 && (dos_windows_version & 0xff) >= 4) | |
442 { | |
443 _go32_dpmi_registers regs; | |
444 dosmemput (title_string, strlen (title_string) + 1, __tb); | |
445 regs.x.ax = 0x168e; | |
446 regs.x.dx = 1; | |
447 regs.x.es = __tb >> 4; | |
448 regs.x.di = __tb & 15; | |
449 regs.x.sp = regs.x.ss = regs.x.flags = 0; | |
450 _go32_dpmi_simulate_int (0x2f, ®s); | |
451 return regs.x.ax == 1; | |
452 } | |
453 return 0; | |
454 } | |
455 | |
456 /* Change the title of frame F to NAME. | |
457 If NAME is nil, use the frame name as the title. | |
458 | |
459 If Emacs is not run from a DOS box on Windows 9X, this only | |
460 sets the name in the frame struct, but has no other effects. */ | |
461 | |
462 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
463 x_set_title (struct frame *f, Lisp_Object name) |
20034 | 464 { |
465 /* Don't change the title if it's already NAME. */ | |
466 if (EQ (name, f->title)) | |
467 return; | |
468 | |
469 update_mode_lines = 1; | |
470 | |
471 f->title = name; | |
472 | |
473 if (NILP (name)) | |
474 name = f->name; | |
475 | |
476 if (FRAME_MSDOS_P (f)) | |
477 { | |
478 BLOCK_INPUT; | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45331
diff
changeset
|
479 w95_set_virtual_machine_title (SDATA (name)); |
20034 | 480 UNBLOCK_INPUT; |
481 } | |
482 } | |
483 #endif /* !HAVE_X_WINDOWS */ | |
484 | |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
485 DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
486 doc: /* Return storage information about the file system FILENAME is on. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
487 Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
488 storage of the file system, FREE is the free storage, and AVAIL is the |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
489 storage available to a non-superuser. All 3 numbers are in bytes. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
490 If the underlying system call fails, value is nil. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
491 (Lisp_Object filename) |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
492 { |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
493 struct statfs stfs; |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
494 Lisp_Object encoded, value; |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
495 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
38319
diff
changeset
|
496 CHECK_STRING (filename); |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
497 filename = Fexpand_file_name (filename, Qnil); |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
498 encoded = ENCODE_FILE (filename); |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
499 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45331
diff
changeset
|
500 if (statfs (SDATA (encoded), &stfs)) |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
501 value = Qnil; |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
502 else |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
503 value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks), |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
504 make_float ((double) stfs.f_bsize * stfs.f_bfree), |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
505 make_float ((double) stfs.f_bsize * stfs.f_bavail)); |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
506 |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
507 return value; |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
508 } |
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
509 |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
510 /* System depended enumeration of and access to system processes a-la |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
511 ps(1). Here, we only return info about the running Emacs process. |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
512 (There are no other processes on DOS, right?) */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
513 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
514 Lisp_Object |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
515 list_system_processes (void) |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
516 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
517 Lisp_Object proclist = Qnil; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
518 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
519 proclist = Fcons (make_fixnum_or_float (getpid ()), proclist); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
520 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
521 return proclist; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
522 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
523 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
524 Lisp_Object |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
525 system_process_attributes (Lisp_Object pid) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
526 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
527 int proc_id; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
528 Lisp_Object attrs = Qnil; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
529 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
530 CHECK_NUMBER_OR_FLOAT (pid); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
531 proc_id = FLOATP (pid) ? XFLOAT_DATA (pid) : XINT (pid); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
532 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
533 if (proc_id == getpid ()) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
534 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
535 EMACS_INT uid, gid; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
536 char *usr; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
537 struct group *gr; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
538 char cmd[FILENAME_MAX]; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
539 char *cmdline = NULL, *p, *q; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
540 size_t cmdline_size = 0; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
541 int i; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
542 Lisp_Object cmd_str, decoded_cmd, tem; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
543 double pmem; |
109761
31def5db596a
Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents:
109179
diff
changeset
|
544 EXFUN (Fget_internal_run_time, 0); |
102838
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
545 #ifndef SYSTEM_MALLOC |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
546 extern unsigned long ret_lim_data (); |
102838
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
547 #endif |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
548 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
549 uid = getuid (); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
550 attrs = Fcons (Fcons (Qeuid, make_fixnum_or_float (uid)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
551 usr = getlogin (); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
552 if (usr) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
553 attrs = Fcons (Fcons (Quser, build_string (usr)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
554 gid = getgid (); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
555 attrs = Fcons (Fcons (Qegid, make_fixnum_or_float (gid)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
556 gr = getgrgid (gid); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
557 if (gr) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
558 attrs = Fcons (Fcons (Qgroup, build_string (gr->gr_name)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
559 strcpy (cmd, basename (__crt0_argv[0])); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
560 /* Command name is encoded in locale-coding-system; decode it. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
561 cmd_str = make_unibyte_string (cmd, strlen (cmd)); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
562 decoded_cmd = code_convert_string_norecord (cmd_str, |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
563 Vlocale_coding_system, 0); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
564 attrs = Fcons (Fcons (Qcomm, decoded_cmd), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
565 /* Pretend we have 0 as PPID. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
566 attrs = Fcons (Fcons (Qppid, make_number (0)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
567 attrs = Fcons (Fcons (Qpgrp, pid), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
568 attrs = Fcons (Fcons (Qttname, build_string ("/dev/tty")), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
569 /* We are never idle! */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
570 tem = Fget_internal_run_time (); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
571 attrs = Fcons (Fcons (Qtime, tem), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
572 attrs = Fcons (Fcons (Qthcount, make_number (1)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
573 attrs = Fcons (Fcons (Qstart, |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
574 Fsymbol_value (intern ("before-init-time"))), |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
575 attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
576 attrs = Fcons (Fcons (Qvsize, |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
577 make_fixnum_or_float ((unsigned long)sbrk(0)/1024)), |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
578 attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
579 attrs = Fcons (Fcons (Qetime, tem), attrs); |
102838
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
580 #ifndef SYSTEM_MALLOC |
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
581 /* ret_lim_data is on vm-limit.c, which is not compiled in under |
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
582 SYSTEM_MALLOC. */ |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
583 pmem = (double)((unsigned long) sbrk (0)) / ret_lim_data () * 100.0; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
584 if (pmem > 100) |
102838
a722c792ebd7
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
Eli Zaretskii <eliz@gnu.org>
parents:
100859
diff
changeset
|
585 #endif |
100859
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
586 pmem = 100; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
587 attrs = Fcons (Fcons (Qpmem, make_float (pmem)), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
588 /* Pass 1: Count how much storage we need. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
589 for (i = 0; i < __crt0_argc; i++) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
590 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
591 cmdline_size += strlen (__crt0_argv[i]) + 1; /* +1 for blank delim */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
592 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f")) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
593 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
594 cmdline_size += 2; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
595 for (p = __crt0_argv[i]; *p; p++) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
596 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
597 if (*p == '"') |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
598 cmdline_size++; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
599 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
600 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
601 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
602 /* Pass 2: Allocate storage and concatenate argv[]. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
603 cmdline = xmalloc (cmdline_size + 1); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
604 for (i = 0, q = cmdline; i < __crt0_argc; i++) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
605 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
606 if (strpbrk (__crt0_argv[i], " \t\n\r\v\f")) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
607 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
608 *q++ = '"'; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
609 for (p = __crt0_argv[i]; *p; p++) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
610 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
611 if (*p == '\"') |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
612 *q++ = '\\'; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
613 *q++ = *p; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
614 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
615 *q++ = '"'; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
616 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
617 else |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
618 { |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
619 strcpy (q, __crt0_argv[i]); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
620 q += strlen (__crt0_argv[i]); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
621 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
622 *q++ = ' '; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
623 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
624 /* Remove the trailing blank. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
625 if (q > cmdline) |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
626 q[-1] = '\0'; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
627 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
628 /* Command line is encoded in locale-coding-system; decode it. */ |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
629 cmd_str = make_unibyte_string (cmdline, strlen (cmdline)); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
630 decoded_cmd = code_convert_string_norecord (cmd_str, |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
631 Vlocale_coding_system, 0); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
632 xfree (cmdline); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
633 attrs = Fcons (Fcons (Qargs, decoded_cmd), attrs); |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
634 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
635 |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
636 return attrs; |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
637 } |
bb7058ae1991
(system_process_attributes, list_system_processes): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
638 |
20034 | 639 void |
640 dos_cleanup (void) | |
641 { | |
97653
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
642 struct tty_display_info *tty; |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
643 |
20034 | 644 #ifndef HAVE_X_WINDOWS |
645 restore_parent_vm_title (); | |
646 #endif | |
23814
3229c65a13c5
(dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents:
21430
diff
changeset
|
647 /* Make sure the termscript file is committed, in case we are |
3229c65a13c5
(dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents:
21430
diff
changeset
|
648 crashing and some vital info was written there. */ |
97653
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
649 if (FRAMEP (selected_frame)) |
23814
3229c65a13c5
(dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents:
21430
diff
changeset
|
650 { |
97653
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
651 struct frame *sf = XFRAME (selected_frame); |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
652 |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
653 if (FRAME_LIVE_P (sf) |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
654 && (FRAME_MSDOS_P (sf) || FRAME_TERMCAP_P (sf))) |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
655 { |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
656 tty = CURTTY (); |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
657 if (tty->termscript) |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
658 { |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
659 fflush (tty->termscript); |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
660 fsync (fileno (tty->termscript)); |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
661 } |
8e2483da8823
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
95209
diff
changeset
|
662 } |
23814
3229c65a13c5
(dos_cleanup): Flush and fsync the termscript stream.
Eli Zaretskii <eliz@gnu.org>
parents:
21430
diff
changeset
|
663 } |
20034 | 664 } |
665 | |
5503 | 666 /* |
667 * Define everything | |
668 */ | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
669 void |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
670 syms_of_dosfns (void) |
5503 | 671 { |
672 defsubr (&Sint86); | |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
673 defsubr (&Sdos_memget); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
674 defsubr (&Sdos_memput); |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
675 defsubr (&Smsdos_mouse_init); |
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
676 defsubr (&Smsdos_mouse_enable); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
677 defsubr (&Smsdos_set_keyboard); |
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
678 defsubr (&Sinsert_startup_screen); |
12990
93cc41315528
(Fmsdos_mouse_enable, Fmsdos_mouse_disable)
Richard M. Stallman <rms@gnu.org>
parents:
10504
diff
changeset
|
679 defsubr (&Smsdos_mouse_disable); |
34348
5cd770204501
(Ffile_system_info): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
32544
diff
changeset
|
680 defsubr (&Sfile_system_info); |
9572 | 681 #ifndef HAVE_X_WINDOWS |
682 defsubr (&Smsdos_mouse_p); | |
683 #endif | |
5503 | 684 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
685 DEFVAR_INT ("dos-country-code", dos_country_code, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
686 doc: /* The country code returned by Dos when Emacs was started. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
687 Usually this is the international telephone prefix. */); |
5503 | 688 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
689 DEFVAR_INT ("dos-codepage", dos_codepage, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
690 doc: /* The codepage active when Emacs was started. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
691 The following are known: |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
692 437 United States |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
693 850 Multilingual (Latin I) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
694 852 Slavic (Latin II) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
695 857 Turkish |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
696 860 Portugal |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
697 861 Iceland |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
698 863 Canada (French) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
699 865 Norway/Denmark */); |
5503 | 700 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
701 DEFVAR_INT ("dos-timezone-offset", dos_timezone_offset, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
702 doc: /* The current timezone offset to UTC in minutes. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
703 Implicitly modified when the TZ variable is changed. */); |
45331 | 704 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
705 DEFVAR_LISP ("dos-version", Vdos_version, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
706 doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver). */); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
707 |
20034 | 708 #ifndef HAVE_X_WINDOWS |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
709 DEFVAR_LISP ("dos-windows-version", Vdos_windows_version, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
710 doc: /* The (MAJOR . MINOR) Windows version for DOS session on MS-Windows. */); |
20034 | 711 #endif |
712 | |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
713 DEFVAR_LISP ("dos-display-scancodes", Vdos_display_scancodes, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
714 doc: /* *Controls whether DOS raw keyboard events are displayed as you type. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
715 When non-nil, the keyboard scan-codes are displayed at the bottom right |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
716 corner of the display (typically at the end of the mode line). |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
717 The output format is: scan code:char code*modifiers. */); |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
718 |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
719 Vdos_display_scancodes = Qnil; |
45331 | 720 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
721 DEFVAR_INT ("dos-hyper-key", dos_hyper_key, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
722 doc: /* *If set to 1, use right ALT key as hyper key. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
723 If set to 2, use right CTRL key as hyper key. */); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
724 dos_hyper_key = 0; |
45331 | 725 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
726 DEFVAR_INT ("dos-super-key", dos_super_key, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
727 doc: /* *If set to 1, use right ALT key as super key. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
728 If set to 2, use right CTRL key as super key. */); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
729 dos_super_key = 0; |
45331 | 730 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
731 DEFVAR_INT ("dos-keypad-mode", dos_keypad_mode, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
732 doc: /* *Controls what key code is returned by a key in the numeric keypad. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
733 The `numlock ON' action is only taken if no modifier keys are pressed. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
734 The value is an integer constructed by adding the following bits together: |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
735 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
736 0x00 Digit key returns digit (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
737 0x01 Digit key returns kp-digit (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
738 0x02 Digit key returns M-digit (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
739 0x03 Digit key returns edit key (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
740 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
741 0x00 Grey key returns char (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
742 0x04 Grey key returns kp-key (if numlock ON) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
743 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
744 0x00 Digit key returns digit (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
745 0x10 Digit key returns kp-digit (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
746 0x20 Digit key returns M-digit (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
747 0x30 Digit key returns edit key (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
748 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
749 0x00 Grey key returns char (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
750 0x40 Grey key returns kp-key (if numlock OFF) |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
751 |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
752 0x200 ALT-0..ALT-9 in top-row produces shifted codes. */); |
13612
342d919f52b2
(syms_of_dosfns): Use 0x75 for dos_keypad_mode.
Richard M. Stallman <rms@gnu.org>
parents:
13180
diff
changeset
|
753 dos_keypad_mode = 0x75; |
45331 | 754 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
755 DEFVAR_INT ("dos-keyboard-layout", dos_keyboard_layout, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
756 doc: /* Contains the country code for the current keyboard layout. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
757 Use msdos-set-keyboard to select another keyboard layout. */); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
758 dos_keyboard_layout = 1; /* US */ |
45331 | 759 |
112364
42e22c4f06b7
Move all DEFVAR'd globals into a structure -- threading infrastructure
Tom Tromey <tromey@redhat.com>
parents:
112278
diff
changeset
|
760 DEFVAR_INT ("dos-decimal-point", dos_decimal_point, |
41914
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
761 doc: /* The character to produce when kp-decimal key is pressed. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
762 If non-zero, this variable contains the character to be returned when the |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
763 decimal point key in the numeric keypad is pressed when Num Lock is on. |
ee8ae85f22ae
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41912
diff
changeset
|
764 If zero, the decimal point key returns the country code specific value. */); |
13180
59663cba4b02
(insert-startup-screen): New function.
Kim F. Storm <storm@cua.dk>
parents:
12990
diff
changeset
|
765 dos_decimal_point = 0; |
5503 | 766 } |
767 #endif /* MSDOS */ | |
52401 | 768 |