Mercurial > emacs
annotate src/region-cache.h @ 83420:521d3f18b3d1
Reimplement terminal parameters in C; clean up term.c, create terminal.c.
* lisp/termdev.el (terminal-parameter-alist, terminal-parameters, terminal-parameter-p)
(terminal-parameter, set-terminal-parameter, terminal-handle-delete-frame): Remove.
* src/term.c (Vring_bell_function, device_list, initial_device)
(next_device_id, ring_bell, update_begin, update_end)
(set_terminal_window, cursor_to, raw_cursor_to)
(clear_to_end, clear_frame, clear_end_of_line)
(write_glyphs, insert_glyphs, delete_glyphs, ins_del_lines)
(get_device, Fdisplay_name, create_device, delete_device)
(Fdelete_display, Fdisplay_live_p, Fdisplay_list)
Move to terminal.c.
(syms_of_term): Move their initialization to terminal.c.
* src/terminal.c: New file.
(device_list, next_device_id, initial_device, Vring_bell_function)
(ring_bell, update_begin, update_end, set_terminal_window)
(cursor_to, raw_cursor_to, clear_to_end, clear_frame)
(clear_end_of_line, write_glyphs, insert_glyphs, delete_glyphs)
(ins_del_lines, get_device, create_device, delete_device)
(Fdelete_display, Fdisplay_live_p, Fdisplay_list, Fdisplay_name): Move here.
(mark_devices, get_terminal_param, store_terminal_param)
(Fterminal_parameters, Fterminal_parameter)
(Fmodify_terminal_parameters, Fset_terminal_parameter)
(init_initial_device, delete_initial_device)
(syms_of_terminal): New functions.
* lisp/simple.el (normal-erase-is-backspace-setup-frame)
(normal-erase-is-backspace-mode): Rephrase things
without terminal-parameter-p.
* lisp/termdev.el (terminal-getenv, terminal-setenv)
(with-terminal-environment): Ditto.
* mac/makefile.MPW (EmacsObjects): Add terminal.c.x.
({Src}terminal.c.x): Add dependencies.
* src/Makefile.in (obj): Add terminal.o.
(terminal.o): Add dependencies.
[HAVE_CARBON]: Make terminal.o depend on macgui.h.
* src/alloc.c (mark_devices): Declare.
(Fgarbage_collect): Call `mark_devices'.
* src/dispextern.h (set_scroll_region, turn_off_insert)
(turn_off_highlight, background_highlight, clear_end_of_line_raw)
(tty_clear_end_of_line, tty_setup_colors, delete_tty): Remove.
(raw_cursor_to, clear_to_end, tty_turn_off_insert)
(tty_turn_off_highlight): Add declaration.
* src/emacs.c (main): Call `syms_of_terminal'.
* src/frame.c (get_future_frame_param): New function.
(Fmake_terminal_frame): Use it.
* src/keyboard.c (pop_kboard): Remove unused variable.
(Fset_output_flow_control): Return nil.
* src/keymap.h (Fset_keymap_parent): Add EXFUN.
* src/lisp.h (syms_of_terminal): Declare it.
* src/sysdep.c (reset_sys_modes): Update for renames.
* src/term.c (set_scroll_region): Rename to `tty_set_scroll_region'.
(turn_on_insert): Rename to `tty_turn_on_insert'.
(turn_off_insert): Rename to `tty_turn_off_insert'.
(turn_off_highlight): Rename to `tty_turn_off_highlight'.
(turn_on_highlight): Rename to `tty_turn_on_highlight'.
(toggle_highligh): Rename to `tty_toggle_highlight'.
(background_highlight): Rename to `tty_background_highlight'.
(highlight_if_desired): Rename to `tty_highlight_if_desired'.
(tty_ring_bell, tty_update_end, tty_set_terminal_window)
(tty_set_scroll_region, tty_background_highlight)
(tty_cursor_to, tty_raw_cursor_to, tty_clear_to_end)
(tty_clear_frame, tty_clear_end_of_line, tty_write_glyphs)
(tty_insert_glyphs, tty_delete_glyphs, tty_ins_del_lines)
(term_get_fkeys, tty_setup_colors, dissociate_if_controlling_tty)
(delete_tty): Add static modifier.
(tty_reset_terminal_modes, tty_set_terminal_window)
(tty_set_scroll_region, tty_background_highlight)
(tty_highlight_if_desired, tty_cursor_to)
(tty_raw_cursor_to, tty_clear_to_end, tty_clear_frame)
(tty_clear_end_of_line, tty_write_glyphs, tty_insert_glyphs)
(tty_delete_glyphs, tty_ins_del_lines, turn_on_face):
Update for renames.
* src/termhooks.h (param_alist): New member to struct device.
* src/xterm.h (x_delete_device): Declare.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-460
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sun, 25 Dec 2005 20:06:58 +0000 |
parents | a0d1312ede66 |
children | 3bd95f4f2941 2d92f5c9d6ae |
rev | line source |
---|---|
11047 | 1 /* Header file: Caching facts about regions of the buffer, for optimization. |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 Copyright (C) 1985, 1986, 1993, 1995, 2002, 2003, 2004, |
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 2005 Free Software Foundation, Inc. |
11047 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
9 the Free Software Foundation; either version 2, or (at your option) | |
10 any later version. | |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
64084 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
11047 | 21 |
22 | |
23 /* This code was written by Jim Blandy <jimb@cs.oberlin.edu> to help | |
24 GNU Emacs better support the gene editor written for the University | |
25 of Illinois at Urbana-Champagne's Ribosome Database Project (RDP). | |
26 | |
27 Emacs implements line operations (finding the beginning/end of the | |
28 line, vertical motion, all the redisplay stuff) by searching for | |
29 newlines in the buffer. Usually, this is a good design; it's very | |
30 clean to just represent the buffer as an unstructured string of | |
31 characters, and the lines in most files are very short (less than | |
32 eighty characters), meaning that scanning usually costs about the | |
33 same as the overhead of maintaining some more complicated data | |
34 structure. | |
35 | |
36 However, some applications, like gene editing, make use of very | |
37 long lines --- on the order of tens of kilobytes. In such cases, | |
38 it may well be worthwhile to try to avoid scanning, because the | |
39 scans have become two orders of magnitude more expensive. It would | |
40 be nice if this speedup could preserve the simplicity of the | |
41 existing data structure, and disturb as little of the existing code | |
42 as possible. | |
43 | |
44 So here's the tack. We add some caching to the scan_buffer | |
45 function, so that when it searches for a newline, it notes that the | |
46 region between the start and end of the search contained no | |
47 newlines; then, the next time around, it consults this cache to see | |
48 if there are regions of text it can skip over completely. The | |
49 buffer modification primitives invalidate this cache. | |
50 | |
51 (Note: Since the redisplay code needs similar information on | |
52 modified regions of the buffer, we can use the code that helps out | |
53 redisplay as a guide to where we need to add our own code to | |
54 invalidate our cache. prepare_to_modify_buffer seems to be the | |
55 central spot.) | |
56 | |
57 Note that the cache code itself never mentions newlines | |
58 specifically, so if you wanted to cache other properties of regions | |
59 of the buffer, you could use this code pretty much unchanged. So | |
60 this cache really holds "known/unknown" information --- "I know | |
61 this region has property P" vs. "I don't know if this region has | |
62 property P or not." */ | |
63 | |
64 | |
65 /* Allocate, initialize and return a new, empty region cache. */ | |
20349 | 66 struct region_cache *new_region_cache P_ ((void)); |
11047 | 67 |
68 /* Free a region cache. */ | |
20349 | 69 void free_region_cache P_ ((struct region_cache *)); |
11047 | 70 |
71 /* Assert that the region of BUF between START and END (absolute | |
72 buffer positions) is "known," for the purposes of CACHE (e.g. "has | |
73 no newlines", in the case of the line cache). */ | |
20349 | 74 extern void know_region_cache P_ ((struct buffer *BUF, |
11047 | 75 struct region_cache *CACHE, |
20349 | 76 int START, int END)); |
11047 | 77 |
78 /* Indicate that a section of BUF has changed, to invalidate CACHE. | |
79 HEAD is the number of chars unchanged at the beginning of the buffer. | |
80 TAIL is the number of chars unchanged at the end of the buffer. | |
81 NOTE: this is *not* the same as the ending position of modified | |
82 region. | |
83 (This way of specifying regions makes more sense than absolute | |
84 buffer positions in the presence of insertions and deletions; the | |
85 args to pass are the same before and after such an operation.) */ | |
20349 | 86 extern void invalidate_region_cache P_ ((struct buffer *BUF, |
87 struct region_cache *CACHE, | |
88 int HEAD, int TAIL)); | |
11047 | 89 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
20349
diff
changeset
|
90 /* The scanning functions. |
11047 | 91 |
92 Basically, if you're scanning forward/backward from position POS, | |
93 and region_cache_forward/backward returns true, you can skip all | |
94 the text between POS and *NEXT. And if the function returns false, | |
95 you should examine all the text from POS to *NEXT, and call | |
96 know_region_cache depending on what you find there; this way, you | |
97 might be able to avoid scanning it again. */ | |
98 | |
99 /* Return true if the text immediately after POS in BUF is known, for | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
20349
diff
changeset
|
100 the purposes of CACHE. If NEXT is non-zero, set *NEXT to the nearest |
11047 | 101 position after POS where the knownness changes. */ |
20349 | 102 extern int region_cache_forward P_ ((struct buffer *BUF, |
11047 | 103 struct region_cache *CACHE, |
104 int POS, | |
20349 | 105 int *NEXT)); |
11047 | 106 |
107 /* Return true if the text immediately before POS in BUF is known, for | |
108 the purposes of CACHE. If NEXT is non-zero, set *NEXT to the nearest | |
109 position before POS where the knownness changes. */ | |
20349 | 110 extern int region_cache_backward P_ ((struct buffer *BUF, |
11047 | 111 struct region_cache *CACHE, |
112 int POS, | |
20349 | 113 int *NEXT)); |
52401 | 114 |
115 /* arch-tag: 70f79125-ef22-4f58-9aec-a48ca2791435 | |
116 (do not change this comment) */ |