1 /* terminal control module for terminals described by TERMCAP
2 Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
34 #include "termhooks.h"
37 extern Lisp_Object
Fmake_sparse_keymap ();
39 #define max(a, b) ((a) > (b) ? (a) : (b))
40 #define min(a, b) ((a) < (b) ? (a) : (b))
42 #define OUTPUT(a) tputs (a, (int) (FRAME_HEIGHT (selected_frame) - curY), cmputc)
43 #define OUTPUT1(a) tputs (a, 1, cmputc)
44 #define OUTPUTL(a, lines) tputs (a, lines, cmputc)
45 #define OUTPUT_IF(a) { if (a) tputs (a, (int) (FRAME_HEIGHT (selected_frame) - curY), cmputc); }
46 #define OUTPUT1_IF(a) { if (a) tputs (a, 1, cmputc); }
48 /* Function to use to ring the bell. */
49 Lisp_Object Vring_bell_function
;
51 /* Terminal characteristics that higher levels want to look at.
52 These are all extern'd in termchar.h */
54 int must_write_spaces
; /* Nonzero means spaces in the text
55 must actually be output; can't just skip
56 over some columns to leave them blank. */
57 int min_padding_speed
; /* Speed below which no padding necessary */
59 int line_ins_del_ok
; /* Terminal can insert and delete lines */
60 int char_ins_del_ok
; /* Terminal can insert and delete chars */
61 int scroll_region_ok
; /* Terminal supports setting the
63 int scroll_region_cost
; /* Cost of setting a scroll window,
64 measured in characters */
65 int memory_below_frame
; /* Terminal remembers lines
66 scrolled off bottom */
67 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
69 /* Nonzero means no need to redraw the entire frame on resuming
70 a suspended Emacs. This is useful on terminals with multiple pages,
71 where one page is used for Emacs and another for all else. */
72 int no_redraw_on_reenter
;
74 /* Hook functions that you can set to snap out the functions in this file.
75 These are all extern'd in termhooks.h */
77 int (*cursor_to_hook
) ();
78 int (*raw_cursor_to_hook
) ();
80 int (*clear_to_end_hook
) ();
81 int (*clear_frame_hook
) ();
82 int (*clear_end_of_line_hook
) ();
84 int (*ins_del_lines_hook
) ();
86 int (*change_line_highlight_hook
) ();
87 int (*reassert_line_highlight_hook
) ();
89 int (*insert_glyphs_hook
) ();
90 int (*write_glyphs_hook
) ();
91 int (*delete_glyphs_hook
) ();
93 int (*ring_bell_hook
) ();
95 int (*reset_terminal_modes_hook
) ();
96 int (*set_terminal_modes_hook
) ();
97 int (*update_begin_hook
) ();
98 int (*update_end_hook
) ();
99 int (*set_terminal_window_hook
) ();
101 int (*read_socket_hook
) ();
103 int (*frame_up_to_date_hook
) ();
105 /* Return the current position of the mouse.
107 Set *f to the frame the mouse is in, or zero if the mouse is in no
108 Emacs frame. If it is set to zero, all the other arguments are
111 If the motion started in a scroll bar, set *bar_window to the
112 scroll bar's window, *part to the part the mouse is currently over,
113 *x to the position of the mouse along the scroll bar, and *y to the
114 overall length of the scroll bar.
116 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
117 row of the character cell the mouse is over.
119 Set *time to the time the mouse was at the returned position.
121 This should clear mouse_moved until the next motion
123 void (*mouse_position_hook
) ( /* FRAME_PTR *f, int insist,
124 Lisp_Object *bar_window,
125 enum scroll_bar_part *part,
128 unsigned long *time */ );
130 /* When reading from a minibuffer in a different frame, Emacs wants
131 to shift the highlight from the selected frame to the minibuffer's
132 frame; under X, this means it lies about where the focus is.
133 This hook tells the window system code to re-decide where to put
135 void (*frame_rehighlight_hook
) ( /* FRAME_PTR f */ );
137 /* If we're displaying frames using a window system that can stack
138 frames on top of each other, this hook allows you to bring a frame
139 to the front, or bury it behind all the other windows. If this
140 hook is zero, that means the device we're displaying on doesn't
141 support overlapping frames, so there's no need to raise or lower
144 If RAISE is non-zero, F is brought to the front, before all other
145 windows. If RAISE is zero, F is sent to the back, behind all other
147 void (*frame_raise_lower_hook
) ( /* FRAME_PTR f, int raise */ );
149 /* Set the vertical scroll bar for WINDOW to have its upper left corner
150 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
151 indicate that we are displaying PORTION characters out of a total
152 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
153 have a scroll bar, create one for it. */
154 void (*set_vertical_scroll_bar_hook
)
155 ( /* struct window *window,
156 int portion, int whole, int position */ );
159 /* The following three hooks are used when we're doing a thorough
160 redisplay of the frame. We don't explicitly know which scroll bars
161 are going to be deleted, because keeping track of when windows go
162 away is a real pain - can you say set-window-configuration?
163 Instead, we just assert at the beginning of redisplay that *all*
164 scroll bars are to be removed, and then save scroll bars from the
165 fiery pit when we actually redisplay their window. */
167 /* Arrange for all scroll bars on FRAME to be removed at the next call
168 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
169 `*redeem_scroll_bar_hook' is applied to its window before the judgement.
171 This should be applied to each frame each time its window tree is
172 redisplayed, even if it is not displaying scroll bars at the moment;
173 if the HAS_SCROLL_BARS flag has just been turned off, only calling
174 this and the judge_scroll_bars_hook will get rid of them.
176 If non-zero, this hook should be safe to apply to any frame,
177 whether or not it can support scroll bars, and whether or not it is
178 currently displaying them. */
179 void (*condemn_scroll_bars_hook
)( /* FRAME_PTR *frame */ );
181 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
182 Note that it's okay to redeem a scroll bar that is not condemned. */
183 void (*redeem_scroll_bar_hook
)( /* struct window *window */ );
185 /* Remove all scroll bars on FRAME that haven't been saved since the
186 last call to `*condemn_scroll_bars_hook'.
188 This should be applied to each frame after each time its window
189 tree is redisplayed, even if it is not displaying scroll bars at the
190 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
191 calling this and condemn_scroll_bars_hook will get rid of them.
193 If non-zero, this hook should be safe to apply to any frame,
194 whether or not it can support scroll bars, and whether or not it is
195 currently displaying them. */
196 void (*judge_scroll_bars_hook
)( /* FRAME_PTR *FRAME */ );
199 /* Strings, numbers and flags taken from the termcap entry. */
201 char *TS_end_italic_mode
; /* termcap "ae" */
202 char *TS_ins_line
; /* "al" */
203 char *TS_italic_mode
; /* "as" */
204 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
205 char *TS_bell
; /* "bl" */
206 char *TS_clr_to_bottom
; /* "cd" */
207 char *TS_clr_line
; /* "ce", clear to end of line */
208 char *TS_clr_frame
; /* "cl" */
209 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
210 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
211 lines above scroll region, lines below it,
212 total lines again) */
213 char *TS_del_char
; /* "dc" */
214 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
215 char *TS_del_line
; /* "dl" */
216 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
217 char *TS_delete_mode
; /* "dm", enter character-delete mode */
218 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
219 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
220 char *TS_ins_char
; /* "ic" */
221 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
222 char *TS_insert_mode
; /* "im", enter character-insert mode */
223 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
224 char *TS_end_keypad_mode
; /* "ke" */
225 char *TS_keypad_mode
; /* "ks" */
226 char *TS_bold_mode
; /* "md" */
227 char *TS_end_bold_mode
; /* "me" */
228 char *TS_pad_char
; /* "pc", char to use as padding */
229 char *TS_repeat
; /* "rp" (2 params, # times to repeat
230 and character to be repeated) */
231 char *TS_end_standout_mode
; /* "se" */
232 char *TS_fwd_scroll
; /* "sf" */
233 char *TS_standout_mode
; /* "so" */
234 char *TS_rev_scroll
; /* "sr" */
235 char *TS_end_termcap_modes
; /* "te" */
236 char *TS_termcap_modes
; /* "ti" */
237 char *TS_end_underscore_mode
; /* "ue" */
238 char *TS_underscore_mode
; /* "us" */
239 char *TS_visible_bell
; /* "vb" */
240 char *TS_end_visual_mode
; /* "ve" */
241 char *TS_visual_mode
; /* "vi" */
242 char *TS_set_window
; /* "wi" (4 params, start and end of window,
243 each as vpos and hpos) */
245 int TF_hazeltine
; /* termcap hz flag. */
246 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
247 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
248 int TF_underscore
; /* termcap ul flag: _ underlines if overstruck on
249 nonblank position. Must clear before writing _. */
250 int TF_teleray
; /* termcap xt flag: many weird consequences.
253 int TF_xs
; /* Nonzero for "xs". If set together with
254 TN_standout_width == 0, it means don't bother
255 to write any end-standout cookies. */
257 int TN_standout_width
; /* termcap sg number: width occupied by standout
260 static int RPov
; /* # chars to start a TS_repeat */
262 static int delete_in_insert_mode
; /* delete mode == insert mode */
264 static int se_is_so
; /* 1 if same string both enters and leaves
269 /* The largest frame width in any call to calculate_costs. */
271 /* The largest frame height in any call to calculate_costs. */
272 int max_frame_height
;
274 /* Number of chars of space used for standout marker at beginning of line,
275 or'd with 0100. Zero if no standout marker at all.
276 The length of these vectors is max_frame_height.
278 Used IFF TN_standout_width >= 0. */
280 static char *chars_wasted
;
281 static char *copybuf
;
283 /* nonzero means supposed to write text in standout mode. */
284 int standout_requested
;
286 int insert_mode
; /* Nonzero when in insert mode. */
287 int standout_mode
; /* Nonzero when in standout mode. */
289 /* Size of window specified by higher levels.
290 This is the number of lines, from the top of frame downwards,
291 which can participate in insert-line/delete-line operations.
293 Effectively it excludes the bottom frame_height - specified_window_size
294 lines from those operations. */
296 int specified_window
;
298 /* Frame currently being redisplayed; 0 if not currently redisplaying.
299 (Direct output does not count). */
301 FRAME_PTR updating_frame
;
303 /* Provided for lisp packages. */
304 static int system_uses_terminfo
;
308 extern char *tgetstr ();
312 /* We aren't X windows, but we aren't termcap either. This makes me
313 uncertain as to what value to use for frame.output_method. For
314 this file, we'll define FRAME_TERMCAP_P to be zero so that our
315 output hooks get called instead of the termcap functions. Probably
316 the best long-term solution is to define an output_windows_nt... */
318 #undef FRAME_TERMCAP_P
319 #define FRAME_TERMCAP_P(_f_) 0
320 #endif /* WINDOWSNT */
324 if (! NILP (Vring_bell_function
))
326 Lisp_Object function
;
328 /* Temporarily set the global variable to nil
329 so that if we get an error, it stays nil
330 and we don't call it over and over.
332 We don't specbind it, because that would carefully
333 restore the bad value if there's an error
334 and make the loop of errors happen anyway. */
335 function
= Vring_bell_function
;
336 Vring_bell_function
= Qnil
;
340 Vring_bell_function
= function
;
344 if (! FRAME_TERMCAP_P (selected_frame
))
346 (*ring_bell_hook
) ();
349 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
352 set_terminal_modes ()
354 if (! FRAME_TERMCAP_P (selected_frame
))
356 (*set_terminal_modes_hook
) ();
359 OUTPUT_IF (TS_termcap_modes
);
360 OUTPUT_IF (TS_visual_mode
);
361 OUTPUT_IF (TS_keypad_mode
);
365 reset_terminal_modes ()
367 if (! FRAME_TERMCAP_P (selected_frame
))
369 (*reset_terminal_modes_hook
) ();
372 if (TN_standout_width
< 0)
373 turn_off_highlight ();
375 OUTPUT_IF (TS_end_keypad_mode
);
376 OUTPUT_IF (TS_end_visual_mode
);
377 OUTPUT_IF (TS_end_termcap_modes
);
378 /* Output raw CR so kernel can track the cursor hpos. */
379 /* But on magic-cookie terminals this can erase an end-standout marker and
380 cause the rest of the frame to be in standout, so move down first. */
381 if (TN_standout_width
>= 0)
390 if (! FRAME_TERMCAP_P (updating_frame
))
391 (*update_begin_hook
) (f
);
397 if (! FRAME_TERMCAP_P (updating_frame
))
399 (*update_end_hook
) (f
);
404 background_highlight ();
405 standout_requested
= 0;
409 set_terminal_window (size
)
412 if (! FRAME_TERMCAP_P (updating_frame
))
414 (*set_terminal_window_hook
) (size
);
417 specified_window
= size
? size
: FRAME_HEIGHT (selected_frame
);
418 if (!scroll_region_ok
)
420 set_scroll_region (0, specified_window
);
423 set_scroll_region (start
, stop
)
427 if (TS_set_scroll_region
)
429 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
431 else if (TS_set_scroll_region_1
)
433 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
434 FRAME_HEIGHT (selected_frame
), start
,
435 FRAME_HEIGHT (selected_frame
) - stop
,
436 FRAME_HEIGHT (selected_frame
));
440 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_WIDTH (selected_frame
));
450 OUTPUT (TS_insert_mode
);
457 OUTPUT (TS_end_insert_mode
);
461 /* Handle highlighting when TN_standout_width (termcap sg) is not specified.
462 In these terminals, output is affected by the value of standout
463 mode when the output is written.
465 These functions are called on all terminals, but do nothing
466 on terminals whose standout mode does not work that way. */
468 turn_off_highlight ()
470 if (TN_standout_width
< 0)
473 OUTPUT_IF (TS_end_standout_mode
);
480 if (TN_standout_width
< 0)
483 OUTPUT_IF (TS_standout_mode
);
488 /* Set standout mode to the state it should be in for
489 empty space inside windows. What this is,
490 depends on the user option inverse-video. */
492 background_highlight ()
494 if (TN_standout_width
>= 0)
497 turn_on_highlight ();
499 turn_off_highlight ();
502 /* Set standout mode to the mode specified for the text to be output. */
505 highlight_if_desired ()
507 if (TN_standout_width
>= 0)
509 if (!inverse_video
== !standout_requested
)
510 turn_off_highlight ();
512 turn_on_highlight ();
515 /* Handle standout mode for terminals in which TN_standout_width >= 0.
516 On these terminals, standout is controlled by markers that
517 live inside the terminal's memory. TN_standout_width is the width
518 that the marker occupies in memory. Standout runs from the marker
519 to the end of the line on some terminals, or to the next
520 turn-off-standout marker (TS_end_standout_mode) string
521 on other terminals. */
523 /* Write a standout marker or end-standout marker at the front of the line
524 at vertical position vpos. */
526 write_standout_marker (flag
, vpos
)
529 if (flag
|| (TS_end_standout_mode
&& !TF_teleray
&& !se_is_so
530 && !(TF_xs
&& TN_standout_width
== 0)))
533 cmplus (TN_standout_width
);
534 OUTPUT (flag
? TS_standout_mode
: TS_end_standout_mode
);
535 chars_wasted
[curY
] = TN_standout_width
| 0100;
539 /* External interface to control of standout mode.
540 Call this when about to modify line at position VPOS
541 and not change whether it is highlighted. */
543 reassert_line_highlight (highlight
, vpos
)
547 if (! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: selected_frame
)))
549 (*reassert_line_highlight_hook
) (highlight
, vpos
);
552 if (TN_standout_width
< 0)
553 /* Handle terminals where standout takes affect at output time */
554 standout_requested
= highlight
;
555 else if (chars_wasted
[vpos
] == 0)
556 /* For terminals with standout markers, write one on this line
557 if there isn't one already. */
558 write_standout_marker (highlight
, vpos
);
561 /* Call this when about to modify line at position VPOS
562 and change whether it is highlighted. */
564 change_line_highlight (new_highlight
, vpos
, first_unused_hpos
)
565 int new_highlight
, vpos
, first_unused_hpos
;
567 standout_requested
= new_highlight
;
568 if (! FRAME_TERMCAP_P (updating_frame
))
570 (*change_line_highlight_hook
) (new_highlight
, vpos
, first_unused_hpos
);
576 if (TN_standout_width
< 0)
577 background_highlight ();
578 /* If line starts with a marker, delete the marker */
579 else if (TS_clr_line
&& chars_wasted
[curY
])
582 /* On Teleray, make sure to erase the SO marker. */
585 cmgoto (curY
- 1, FRAME_WIDTH (selected_frame
) - 4);
587 curY
++; /* ESC S moves to next line where the TS_standout_mode was */
591 cmgoto (curY
, 0); /* reposition to kill standout marker */
593 clear_end_of_line_raw (first_unused_hpos
);
594 reassert_line_highlight (new_highlight
, curY
);
598 /* Move to absolute position, specified origin 0 */
603 if (! FRAME_TERMCAP_P ((updating_frame
608 (*cursor_to_hook
) (row
, col
);
612 /* Detect the case where we are called from reset_sys_modes
613 and the costs have never been calculated. Do nothing. */
614 if (chars_wasted
== 0)
617 col
+= chars_wasted
[row
] & 077;
618 if (curY
== row
&& curX
== col
)
620 if (!TF_standout_motion
)
621 background_highlight ();
622 if (!TF_insmode_motion
)
627 /* Similar but don't take any account of the wasted characters. */
629 raw_cursor_to (row
, col
)
632 if (! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: selected_frame
)))
634 (*raw_cursor_to_hook
) (row
, col
);
637 if (curY
== row
&& curX
== col
)
639 if (!TF_standout_motion
)
640 background_highlight ();
641 if (!TF_insmode_motion
)
646 /* Erase operations */
648 /* clear from cursor to end of frame */
653 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
655 (*clear_to_end_hook
) ();
658 if (TS_clr_to_bottom
)
660 background_highlight ();
661 OUTPUT (TS_clr_to_bottom
);
662 bzero (chars_wasted
+ curY
, FRAME_HEIGHT (selected_frame
) - curY
);
666 for (i
= curY
; i
< FRAME_HEIGHT (selected_frame
); i
++)
669 clear_end_of_line_raw (FRAME_WIDTH (selected_frame
));
674 /* Clear entire frame */
679 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: selected_frame
)))
681 (*clear_frame_hook
) ();
686 background_highlight ();
687 OUTPUT (TS_clr_frame
);
688 bzero (chars_wasted
, FRAME_HEIGHT (selected_frame
));
698 /* Clear to end of line, but do not clear any standout marker.
699 Assumes that the cursor is positioned at a character of real text,
700 which implies it cannot be before a standout marker
701 unless the marker has zero width.
703 Note that the cursor may be moved. */
705 clear_end_of_line (first_unused_hpos
)
706 int first_unused_hpos
;
708 static GLYPH buf
= SPACEGLYPH
;
709 if (FRAME_TERMCAP_P (selected_frame
)
711 && TN_standout_width
== 0 && curX
== 0 && chars_wasted
[curY
] != 0)
712 write_glyphs (&buf
, 1);
713 clear_end_of_line_raw (first_unused_hpos
);
716 /* Clear from cursor to end of line.
717 Assume that the line is already clear starting at column first_unused_hpos.
718 If the cursor is at a standout marker, erase the marker.
720 Note that the cursor may be moved, on terminals lacking a `ce' string. */
722 clear_end_of_line_raw (first_unused_hpos
)
723 int first_unused_hpos
;
727 if (clear_end_of_line_hook
728 && ! FRAME_TERMCAP_P ((updating_frame
732 (*clear_end_of_line_hook
) (first_unused_hpos
);
736 /* Detect the case where we are called from reset_sys_modes
737 and the costs have never been calculated. Do nothing. */
738 if (chars_wasted
== 0)
741 first_unused_hpos
+= chars_wasted
[curY
] & 077;
742 if (curX
>= first_unused_hpos
)
744 /* Notice if we are erasing a magic cookie */
746 chars_wasted
[curY
] = 0;
747 background_highlight ();
750 OUTPUT1 (TS_clr_line
);
753 { /* have to do it the hard way */
756 /* Do not write in last row last col with Autowrap on. */
757 if (AutoWrap
&& curY
== FRAME_HEIGHT (selected_frame
) - 1
758 && first_unused_hpos
== FRAME_WIDTH (selected_frame
))
761 for (i
= curX
; i
< first_unused_hpos
; i
++)
764 fputc (' ', termscript
);
767 cmplus (first_unused_hpos
- curX
);
771 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes and
772 store them at DST. Do not write more than DST_LEN bytes. That may
773 require stopping before all SRC_LEN input glyphs have been
776 We store the number of glyphs actually converted in *CONSUMED. The
777 return value is the number of bytes store in DST. */
780 encode_terminal_code (src
, dst
, src_len
, dst_len
, consumed
)
784 int dst_len
, *consumed
;
786 GLYPH
*src_start
= src
, *src_end
= src
+ src_len
;
787 unsigned char *dst_start
= dst
, *dst_end
= dst
+ dst_len
;
790 unsigned char workbuf
[4], *buf
;
791 int len
, produced
, processed
;
792 register int tlen
= GLYPH_TABLE_LENGTH
;
793 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
795 while (src
< src_end
)
798 /* We must skip glyphs to be padded for a wide character. */
799 if (! (g
& GLYPH_MASK_PADDING
))
801 if ((c
= GLYPH_CHAR (selected_frame
, g
)) > MAX_CHAR
)
804 g
= MAKE_GLYPH (selected_frame
, c
,
805 GLYPH_FACE (selected_frame
, g
));
807 if (COMPOSITE_CHAR_P (c
))
809 /* If C is a composite character, we can display
810 only the first component. */
811 g
= cmpchar_table
[COMPOSITE_CHAR_ID (c
)]->glyph
[0],
812 c
= GLYPH_CHAR (selected_frame
, g
);
816 /* G has an entry in Vglyph_table,
817 so process any alias before testing for simpleness. */
818 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
819 c
= GLYPH_CHAR (selected_frame
, g
);
821 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
822 /* We set the multi-byte form of C at BUF. */
823 len
= CHAR_STRING (c
, workbuf
, buf
);
826 /* We have a string in Vglyph_table. */
827 len
= GLYPH_LENGTH (tbase
, g
);
828 buf
= GLYPH_STRING (tbase
, g
);
831 if (CODING_MAY_REQUIRE_NO_CONVERSION (&terminal_coding
))
832 /* We had better avoid sending Emacs' internal code to
834 produced
= encode_coding (&safe_terminal_coding
, buf
, dst
,
835 len
, dst_end
- dst
, &processed
);
837 produced
= encode_coding (&terminal_coding
, buf
, dst
,
838 len
, dst_end
- dst
, &processed
);
840 /* We get a carryover because the remaining output
841 buffer is too short. We must break the loop here
842 without increasing SRC so that the next call of
843 this function start from the same glyph. */
849 *consumed
= src
- src_start
;
850 return (dst
- dst_start
);
854 write_glyphs (string
, len
)
855 register GLYPH
*string
;
859 register int tlen
= GLYPH_TABLE_LENGTH
;
860 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
861 int produced
, consumed
;
863 if (write_glyphs_hook
864 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: selected_frame
)))
866 (*write_glyphs_hook
) (string
, len
);
870 highlight_if_desired ();
873 /* Don't dare write in last column of bottom line, if AutoWrap,
874 since that would scroll the whole frame on some terminals. */
877 && curY
+ 1 == FRAME_HEIGHT (selected_frame
)
878 && (curX
+ len
- (chars_wasted
[curY
] & 077)
879 == FRAME_WIDTH (selected_frame
)))
885 /* The field `last_block' should be set to 1 only at the tail. */
886 terminal_coding
.last_block
= 0;
889 /* We use shared conversion buffer of the current size (1024
890 bytes at least). Usually it is sufficient, but if not, we
891 just repeat the loop. */
892 produced
= encode_terminal_code (string
, conversion_buffer
,
893 len
, conversion_buffer_size
, &consumed
);
896 fwrite (conversion_buffer
, 1, produced
, stdout
);
900 fwrite (conversion_buffer
, 1, produced
, termscript
);
905 /* We may have to output some codes to terminate the writing. */
906 if (!CODING_MAY_REQUIRE_NO_CONVERSION (&terminal_coding
))
908 terminal_coding
.last_block
= 1;
909 produced
= encode_coding (&terminal_coding
, (char *)0, conversion_buffer
,
910 0, conversion_buffer_size
,
915 fwrite (conversion_buffer
, 1, produced
, stdout
);
919 fwrite (conversion_buffer
, 1, produced
, termscript
);
925 /* If start is zero, insert blanks instead of a string at start */
927 insert_glyphs (start
, len
)
928 register GLYPH
*start
;
933 register int tlen
= GLYPH_TABLE_LENGTH
;
934 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
939 if (insert_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
941 (*insert_glyphs_hook
) (start
, len
);
944 highlight_if_desired ();
946 if (TS_ins_multi_chars
)
948 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
952 write_glyphs (start
, len
);
958 /* The field `last_block' should be set to 1 only at the tail. */
959 terminal_coding
.last_block
= 0;
962 int produced
, consumed
;
964 OUTPUT1_IF (TS_ins_char
);
970 /* We must open sufficient space for a character which
971 occupies more than one column. */
972 while (*start
& GLYPH_MASK_PADDING
)
974 OUTPUT1_IF (TS_ins_char
);
980 /* This is the last glyph. */
981 terminal_coding
.last_block
= 1;
983 /* We use shared conversion buffer of the current size (1024
984 bytes at least). It is surely sufficient for just one glyph. */
985 produced
= encode_terminal_code (&g
, conversion_buffer
,
986 1, conversion_buffer_size
, &consumed
);
989 fwrite (conversion_buffer
, 1, produced
, stdout
);
993 fwrite (conversion_buffer
, 1, produced
, termscript
);
996 OUTPUT1_IF (TS_pad_inserted_char
);
1007 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1009 (*delete_glyphs_hook
) (n
);
1013 if (delete_in_insert_mode
)
1020 OUTPUT_IF (TS_delete_mode
);
1023 if (TS_del_multi_chars
)
1025 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1030 for (i
= 0; i
< n
; i
++)
1031 OUTPUT1 (TS_del_char
);
1032 if (!delete_in_insert_mode
)
1033 OUTPUT_IF (TS_end_delete_mode
);
1036 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1038 ins_del_lines (vpos
, n
)
1041 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1042 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1043 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1045 register int i
= n
> 0 ? n
: -n
;
1048 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1050 (*ins_del_lines_hook
) (vpos
, n
);
1054 /* If the lines below the insertion are being pushed
1055 into the end of the window, this is the same as clearing;
1056 and we know the lines are already clear, since the matching
1057 deletion has already been done. So can ignore this. */
1058 /* If the lines below the deletion are blank lines coming
1059 out of the end of the window, don't bother,
1060 as there will be a matching inslines later that will flush them. */
1061 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1063 if (!memory_below_frame
&& vpos
+ i
>= FRAME_HEIGHT (selected_frame
))
1068 raw_cursor_to (vpos
, 0);
1069 background_highlight ();
1070 buf
= tparam (multi
, 0, 0, i
);
1076 raw_cursor_to (vpos
, 0);
1077 background_highlight ();
1085 set_scroll_region (vpos
, specified_window
);
1087 raw_cursor_to (specified_window
- 1, 0);
1089 raw_cursor_to (vpos
, 0);
1090 background_highlight ();
1092 OUTPUTL (scroll
, specified_window
- vpos
);
1093 set_scroll_region (0, specified_window
);
1096 if (TN_standout_width
>= 0)
1098 register lower_limit
1101 : FRAME_HEIGHT (selected_frame
));
1105 bcopy (&chars_wasted
[vpos
- n
], &chars_wasted
[vpos
],
1106 lower_limit
- vpos
+ n
);
1107 bzero (&chars_wasted
[lower_limit
+ n
], - n
);
1111 bcopy (&chars_wasted
[vpos
], ©buf
[vpos
], lower_limit
- vpos
- n
);
1112 bcopy (©buf
[vpos
], &chars_wasted
[vpos
+ n
],
1113 lower_limit
- vpos
- n
);
1114 bzero (&chars_wasted
[vpos
], n
);
1117 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1119 cursor_to (FRAME_HEIGHT (selected_frame
) + n
, 0);
1124 /* Compute cost of sending "str", in characters,
1125 not counting any line-dependent padding. */
1133 tputs (str
, 0, evalcost
);
1137 /* Compute cost of sending "str", in characters,
1138 counting any line-dependent padding at one line. */
1141 string_cost_one_line (str
)
1146 tputs (str
, 1, evalcost
);
1150 /* Compute per line amount of line-dependent padding,
1151 in tenths of characters. */
1159 tputs (str
, 0, evalcost
);
1162 tputs (str
, 10, evalcost
);
1167 /* char_ins_del_cost[n] is cost of inserting N characters.
1168 char_ins_del_cost[-n] is cost of deleting N characters.
1169 The length of this vector is based on max_frame_width. */
1171 int *char_ins_del_vector
;
1173 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_WIDTH ((f))])
1178 calculate_ins_del_char_costs (frame
)
1181 int ins_startup_cost
, del_startup_cost
;
1182 int ins_cost_per_char
, del_cost_per_char
;
1186 if (TS_ins_multi_chars
)
1188 ins_cost_per_char
= 0;
1189 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1191 else if (TS_ins_char
|| TS_pad_inserted_char
1192 || (TS_insert_mode
&& TS_end_insert_mode
))
1194 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1195 + string_cost (TS_end_insert_mode
))) / 100;
1196 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1197 + string_cost_one_line (TS_pad_inserted_char
));
1201 ins_startup_cost
= 9999;
1202 ins_cost_per_char
= 0;
1205 if (TS_del_multi_chars
)
1207 del_cost_per_char
= 0;
1208 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1210 else if (TS_del_char
)
1212 del_startup_cost
= (string_cost (TS_delete_mode
)
1213 + string_cost (TS_end_delete_mode
));
1214 if (delete_in_insert_mode
)
1215 del_startup_cost
/= 2;
1216 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1220 del_startup_cost
= 9999;
1221 del_cost_per_char
= 0;
1224 /* Delete costs are at negative offsets */
1225 p
= &char_ins_del_cost (frame
)[0];
1226 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1227 *--p
= (del_startup_cost
+= del_cost_per_char
);
1229 /* Doing nothing is free */
1230 p
= &char_ins_del_cost (frame
)[0];
1233 /* Insert costs are at positive offsets */
1234 for (i
= FRAME_WIDTH (frame
); --i
>= 0;)
1235 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1238 extern do_line_insertion_deletion_costs ();
1240 calculate_costs (frame
)
1243 register char *f
= (TS_set_scroll_region
1244 ? TS_set_scroll_region
1245 : TS_set_scroll_region_1
);
1247 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1249 scroll_region_cost
= string_cost (f
);
1250 #ifdef HAVE_X_WINDOWS
1251 if (FRAME_X_P (frame
))
1253 do_line_insertion_deletion_costs (frame
, 0, ".5*", 0, ".5*",
1255 x_screen_planes (frame
));
1256 scroll_region_cost
= 0;
1261 /* These variables are only used for terminal stuff. They are allocated
1262 once for the terminal frame of X-windows emacs, but not used afterwards.
1264 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1265 X turns off char_ins_del_ok.
1267 chars_wasted and copybuf are only used here in term.c in cases where
1268 the term hook isn't called. */
1270 max_frame_height
= max (max_frame_height
, FRAME_HEIGHT (frame
));
1271 max_frame_width
= max (max_frame_width
, FRAME_WIDTH (frame
));
1273 if (chars_wasted
!= 0)
1274 chars_wasted
= (char *) xrealloc (chars_wasted
, max_frame_height
);
1276 chars_wasted
= (char *) xmalloc (max_frame_height
);
1279 copybuf
= (char *) xrealloc (copybuf
, max_frame_height
);
1281 copybuf
= (char *) xmalloc (max_frame_height
);
1283 if (char_ins_del_vector
!= 0)
1285 = (int *) xrealloc (char_ins_del_vector
,
1287 + 2 * max_frame_width
* sizeof (int)));
1290 = (int *) xmalloc (sizeof (int)
1291 + 2 * max_frame_width
* sizeof (int));
1293 bzero (chars_wasted
, max_frame_height
);
1294 bzero (copybuf
, max_frame_height
);
1295 bzero (char_ins_del_vector
, (sizeof (int)
1296 + 2 * max_frame_width
* sizeof (int)));
1298 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1299 do_line_insertion_deletion_costs (frame
,
1300 TS_rev_scroll
, TS_ins_multi_lines
,
1301 TS_fwd_scroll
, TS_del_multi_lines
,
1304 do_line_insertion_deletion_costs (frame
,
1305 TS_ins_line
, TS_ins_multi_lines
,
1306 TS_del_line
, TS_del_multi_lines
,
1309 calculate_ins_del_char_costs (frame
);
1311 /* Don't use TS_repeat if its padding is worse than sending the chars */
1312 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1313 RPov
= string_cost (TS_repeat
);
1315 RPov
= FRAME_WIDTH (frame
) * 2;
1317 cmcostinit (); /* set up cursor motion costs */
1324 /* Termcap capability names that correspond directly to X keysyms.
1325 Some of these (marked "terminfo") aren't supplied by old-style
1326 (Berkeley) termcap entries. They're listed in X keysym order;
1327 except we put the keypad keys first, so that if they clash with
1328 other keys (as on the IBM PC keyboard) they get overridden.
1331 static struct fkey_table keys
[] = {
1332 "kh", "home", /* termcap */
1333 "kl", "left", /* termcap */
1334 "ku", "up", /* termcap */
1335 "kr", "right", /* termcap */
1336 "kd", "down", /* termcap */
1337 "%8", "prior", /* terminfo */
1338 "%5", "next", /* terminfo */
1339 "@7", "end", /* terminfo */
1340 "@1", "begin", /* terminfo */
1341 "*6", "select", /* terminfo */
1342 "%9", "print", /* terminfo */
1343 "@4", "execute", /* terminfo --- actually the `command' key */
1345 * "insert" --- see below
1347 "&8", "undo", /* terminfo */
1348 "%0", "redo", /* terminfo */
1349 "%7", "menu", /* terminfo --- actually the `options' key */
1350 "@0", "find", /* terminfo */
1351 "@2", "cancel", /* terminfo */
1352 "%1", "help", /* terminfo */
1354 * "break" goes here, but can't be reliably intercepted with termcap
1356 "&4", "reset", /* terminfo --- actually `restart' */
1358 * "system" and "user" --- no termcaps
1360 "kE", "clearline", /* terminfo */
1361 "kA", "insertline", /* terminfo */
1362 "kL", "deleteline", /* terminfo */
1363 "kI", "insertchar", /* terminfo */
1364 "kD", "deletechar", /* terminfo */
1365 "kB", "backtab", /* terminfo */
1367 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1369 "@8", "kp-enter", /* terminfo */
1371 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1372 * "kp-multiply", "kp-add", "kp-separator",
1373 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1374 * --- no termcaps for any of these.
1376 "K4", "kp-1", /* terminfo */
1378 * "kp-2" --- no termcap
1380 "K5", "kp-3", /* terminfo */
1382 * "kp-4" --- no termcap
1384 "K2", "kp-5", /* terminfo */
1386 * "kp-6" --- no termcap
1388 "K1", "kp-7", /* terminfo */
1390 * "kp-8" --- no termcap
1392 "K3", "kp-9", /* terminfo */
1394 * "kp-equal" --- no termcap
1407 static char **term_get_fkeys_arg
;
1408 static Lisp_Object
term_get_fkeys_1 ();
1410 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1411 This function scans the termcap function key sequence entries, and
1412 adds entries to Vfunction_key_map for each function key it finds. */
1415 term_get_fkeys (address
)
1418 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1419 errors during the call. The only errors should be from Fdefine_key
1420 when given a key sequence containing an invalid prefix key. If the
1421 termcap defines function keys which use a prefix that is already bound
1422 to a command by the default bindings, we should silently ignore that
1423 function key specification, rather than giving the user an error and
1424 refusing to run at all on such a terminal. */
1426 extern Lisp_Object
Fidentity ();
1427 term_get_fkeys_arg
= address
;
1428 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1436 char **address
= term_get_fkeys_arg
;
1438 /* This can happen if CANNOT_DUMP or with strange options. */
1440 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1442 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1444 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1446 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1447 Fmake_vector (make_number (1),
1448 intern (keys
[i
].name
)));
1451 /* The uses of the "k0" capability are inconsistent; sometimes it
1452 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1453 We will attempt to politely accommodate both systems by testing for
1454 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1457 char *k_semi
= tgetstr ("k;", address
);
1458 char *k0
= tgetstr ("k0", address
);
1459 char *k0_name
= "f10";
1463 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1464 Fmake_vector (make_number (1), intern ("f10")));
1469 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1470 Fmake_vector (make_number (1), intern (k0_name
)));
1473 /* Set up cookies for numbered function keys above f10. */
1475 char fcap
[3], fkey
[4];
1477 fcap
[0] = 'F'; fcap
[2] = '\0';
1478 for (i
= 11; i
< 64; i
++)
1481 fcap
[1] = '1' + i
- 11;
1483 fcap
[1] = 'A' + i
- 20;
1485 fcap
[1] = 'a' + i
- 46;
1488 char *sequence
= tgetstr (fcap
, address
);
1491 sprintf (fkey
, "f%d", i
);
1492 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1493 Fmake_vector (make_number (1),
1501 * Various mappings to try and get a better fit.
1504 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1505 if (!tgetstr (cap1, address)) \
1507 char *sequence = tgetstr (cap2, address); \
1509 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1510 Fmake_vector (make_number (1), \
1514 /* if there's no key_next keycap, map key_npage to `next' keysym */
1515 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1516 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1517 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1518 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1519 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1520 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1521 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1523 /* IBM has their own non-standard dialect of terminfo.
1524 If the standard name isn't found, try the IBM name. */
1525 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1526 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1527 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1528 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1529 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1530 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1531 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1532 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1533 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1534 #undef CONDITIONAL_REASSIGN
1539 term_init (terminal_type
)
1540 char *terminal_type
;
1543 char **address
= &area
;
1549 initialize_w32_display ();
1553 area
= (char *) malloc (2044);
1558 FrameRows
= FRAME_HEIGHT (selected_frame
);
1559 FrameCols
= FRAME_WIDTH (selected_frame
);
1560 specified_window
= FRAME_HEIGHT (selected_frame
);
1562 delete_in_insert_mode
= 1;
1565 scroll_region_ok
= 0;
1567 /* Seems to insert lines when it's not supposed to, messing
1568 up the display. In doing a trace, it didn't seem to be
1569 called much, so I don't think we're losing anything by
1572 line_ins_del_ok
= 0;
1573 char_ins_del_ok
= 1;
1577 FRAME_CAN_HAVE_SCROLL_BARS (selected_frame
) = 0;
1578 FRAME_VERTICAL_SCROLL_BAR_TYPE (selected_frame
) = vertical_scroll_bar_none
;
1581 #endif /* WINDOWSNT */
1585 status
= tgetent (buffer
, terminal_type
);
1589 fatal ("Cannot open terminfo database file");
1591 fatal ("Cannot open termcap database file");
1597 fatal ("Terminal type %s is not defined.\n\
1598 If that is not the actual type of terminal you have,\n\
1599 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
1600 `setenv TERM ...') to specify the correct type. It may be necessary\n\
1601 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
1604 fatal ("Terminal type %s is not defined.\n\
1605 If that is not the actual type of terminal you have,\n\
1606 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
1607 `setenv TERM ...') to specify the correct type. It may be necessary\n\
1608 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
1613 area
= (char *) malloc (2044);
1615 area
= (char *) malloc (strlen (buffer
));
1616 #endif /* not TERMINFO */
1620 TS_ins_line
= tgetstr ("al", address
);
1621 TS_ins_multi_lines
= tgetstr ("AL", address
);
1622 TS_bell
= tgetstr ("bl", address
);
1623 BackTab
= tgetstr ("bt", address
);
1624 TS_clr_to_bottom
= tgetstr ("cd", address
);
1625 TS_clr_line
= tgetstr ("ce", address
);
1626 TS_clr_frame
= tgetstr ("cl", address
);
1627 ColPosition
= tgetstr ("ch", address
);
1628 AbsPosition
= tgetstr ("cm", address
);
1629 CR
= tgetstr ("cr", address
);
1630 TS_set_scroll_region
= tgetstr ("cs", address
);
1631 TS_set_scroll_region_1
= tgetstr ("cS", address
);
1632 RowPosition
= tgetstr ("cv", address
);
1633 TS_del_char
= tgetstr ("dc", address
);
1634 TS_del_multi_chars
= tgetstr ("DC", address
);
1635 TS_del_line
= tgetstr ("dl", address
);
1636 TS_del_multi_lines
= tgetstr ("DL", address
);
1637 TS_delete_mode
= tgetstr ("dm", address
);
1638 TS_end_delete_mode
= tgetstr ("ed", address
);
1639 TS_end_insert_mode
= tgetstr ("ei", address
);
1640 Home
= tgetstr ("ho", address
);
1641 TS_ins_char
= tgetstr ("ic", address
);
1642 TS_ins_multi_chars
= tgetstr ("IC", address
);
1643 TS_insert_mode
= tgetstr ("im", address
);
1644 TS_pad_inserted_char
= tgetstr ("ip", address
);
1645 TS_end_keypad_mode
= tgetstr ("ke", address
);
1646 TS_keypad_mode
= tgetstr ("ks", address
);
1647 LastLine
= tgetstr ("ll", address
);
1648 Right
= tgetstr ("nd", address
);
1649 Down
= tgetstr ("do", address
);
1651 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
1653 /* VMS puts a carriage return before each linefeed,
1654 so it is not safe to use linefeeds. */
1655 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
1658 if (tgetflag ("bs"))
1659 Left
= "\b"; /* can't possibly be longer! */
1660 else /* (Actually, "bs" is obsolete...) */
1661 Left
= tgetstr ("le", address
);
1663 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
1664 TS_pad_char
= tgetstr ("pc", address
);
1665 TS_repeat
= tgetstr ("rp", address
);
1666 TS_end_standout_mode
= tgetstr ("se", address
);
1667 TS_fwd_scroll
= tgetstr ("sf", address
);
1668 TS_standout_mode
= tgetstr ("so", address
);
1669 TS_rev_scroll
= tgetstr ("sr", address
);
1670 Wcm
.cm_tab
= tgetstr ("ta", address
);
1671 TS_end_termcap_modes
= tgetstr ("te", address
);
1672 TS_termcap_modes
= tgetstr ("ti", address
);
1673 TS_bold_mode
= tgetstr ("md", address
);
1674 TS_end_bold_mode
= tgetstr ("me", address
);
1675 TS_underscore_mode
= tgetstr ("us", address
);
1676 TS_end_underscore_mode
= tgetstr ("ue", address
);
1677 Up
= tgetstr ("up", address
);
1678 TS_visible_bell
= tgetstr ("vb", address
);
1679 TS_end_visual_mode
= tgetstr ("ve", address
);
1680 TS_visual_mode
= tgetstr ("vs", address
);
1681 TS_set_window
= tgetstr ("wi", address
);
1682 MultiUp
= tgetstr ("UP", address
);
1683 MultiDown
= tgetstr ("DO", address
);
1684 MultiLeft
= tgetstr ("LE", address
);
1685 MultiRight
= tgetstr ("RI", address
);
1687 MagicWrap
= tgetflag ("xn");
1688 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
1689 the former flag imply the latter. */
1690 AutoWrap
= MagicWrap
|| tgetflag ("am");
1691 memory_below_frame
= tgetflag ("db");
1692 TF_hazeltine
= tgetflag ("hz");
1693 must_write_spaces
= tgetflag ("in");
1694 meta_key
= tgetflag ("km") || tgetflag ("MT");
1695 TF_insmode_motion
= tgetflag ("mi");
1696 TF_standout_motion
= tgetflag ("ms");
1697 TF_underscore
= tgetflag ("ul");
1698 TF_xs
= tgetflag ("xs");
1699 TF_teleray
= tgetflag ("xt");
1701 term_get_fkeys (address
);
1703 /* Get frame size from system, or else from termcap. */
1706 get_frame_size (&width
, &height
);
1707 FRAME_WIDTH (selected_frame
) = width
;
1708 FRAME_HEIGHT (selected_frame
) = height
;
1711 if (FRAME_WIDTH (selected_frame
) <= 0)
1712 SET_FRAME_WIDTH (selected_frame
, tgetnum ("co"));
1714 /* Keep width and external_width consistent */
1715 SET_FRAME_WIDTH (selected_frame
, FRAME_WIDTH (selected_frame
));
1716 if (FRAME_HEIGHT (selected_frame
) <= 0)
1717 FRAME_HEIGHT (selected_frame
) = tgetnum ("li");
1719 if (FRAME_HEIGHT (selected_frame
) < 3
1720 || FRAME_WIDTH (selected_frame
) < 3)
1721 fatal ("Screen size %dx%d is too small",
1722 FRAME_HEIGHT (selected_frame
), FRAME_WIDTH (selected_frame
));
1724 min_padding_speed
= tgetnum ("pb");
1725 TN_standout_width
= tgetnum ("sg");
1726 TabWidth
= tgetnum ("tw");
1729 /* These capabilities commonly use ^J.
1730 I don't know why, but sending them on VMS does not work;
1731 it causes following spaces to be lost, sometimes.
1732 For now, the simplest fix is to avoid using these capabilities ever. */
1733 if (Down
&& Down
[0] == '\n')
1741 TS_fwd_scroll
= Down
;
1743 PC
= TS_pad_char
? *TS_pad_char
: 0;
1748 /* Turned off since /etc/termcap seems to have :ta= for most terminals
1749 and newer termcap doc does not seem to say there is a default.
1754 if (TS_standout_mode
== 0)
1756 TN_standout_width
= tgetnum ("ug");
1757 TS_end_standout_mode
= tgetstr ("ue", address
);
1758 TS_standout_mode
= tgetstr ("us", address
);
1761 /* If no `se' string, try using a `me' string instead.
1762 If that fails, we can't use standout mode at all. */
1763 if (TS_end_standout_mode
== 0)
1765 char *s
= tgetstr ("me", address
);
1767 TS_end_standout_mode
= s
;
1769 TS_standout_mode
= 0;
1775 /* Teleray: most programs want a space in front of TS_standout_mode,
1776 but Emacs can do without it (and give one extra column). */
1777 TS_standout_mode
= "\033RD";
1778 TN_standout_width
= 1;
1779 /* But that means we cannot rely on ^M to go to column zero! */
1781 /* LF can't be trusted either -- can alter hpos */
1782 /* if move at column 0 thru a line with TS_standout_mode */
1786 /* Special handling for certain terminal types known to need it */
1788 if (!strcmp (terminal_type
, "supdup"))
1790 memory_below_frame
= 1;
1791 Wcm
.cm_losewrap
= 1;
1793 if (!strncmp (terminal_type
, "c10", 3)
1794 || !strcmp (terminal_type
, "perq"))
1796 /* Supply a makeshift :wi string.
1797 This string is not valid in general since it works only
1798 for windows starting at the upper left corner;
1799 but that is all Emacs uses.
1801 This string works only if the frame is using
1802 the top of the video memory, because addressing is memory-relative.
1803 So first check the :ti string to see if that is true.
1805 It would be simpler if the :wi string could go in the termcap
1806 entry, but it can't because it is not fully valid.
1807 If it were in the termcap entry, it would confuse other programs. */
1810 p
= TS_termcap_modes
;
1811 while (*p
&& strcmp (p
, "\033v "))
1814 TS_set_window
= "\033v%C %C %C %C ";
1816 /* Termcap entry often fails to have :in: flag */
1817 must_write_spaces
= 1;
1818 /* :ti string typically fails to have \E^G! in it */
1819 /* This limits scope of insert-char to one line. */
1820 strcpy (area
, TS_termcap_modes
);
1821 strcat (area
, "\033\007!");
1822 TS_termcap_modes
= area
;
1823 area
+= strlen (area
) + 1;
1825 /* Change all %+ parameters to %C, to handle
1826 values above 96 correctly for the C100. */
1829 if (p
[0] == '%' && p
[1] == '+')
1835 FrameRows
= FRAME_HEIGHT (selected_frame
);
1836 FrameCols
= FRAME_WIDTH (selected_frame
);
1837 specified_window
= FRAME_HEIGHT (selected_frame
);
1839 if (Wcm_init () == -1) /* can't do cursor motion */
1841 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
1842 It lacks the ability to position the cursor.\n\
1843 If that is not the actual type of terminal you have, use either the\n\
1844 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
1845 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
1849 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
1850 It lacks the ability to position the cursor.\n\
1851 If that is not the actual type of terminal you have,\n\
1852 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
1853 `setenv TERM ...') to specify the correct type. It may be necessary\n\
1854 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
1856 # else /* TERMCAP */
1857 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
1858 It lacks the ability to position the cursor.\n\
1859 If that is not the actual type of terminal you have,\n\
1860 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
1861 `setenv TERM ...') to specify the correct type. It may be necessary\n\
1862 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
1864 # endif /* TERMINFO */
1866 if (FRAME_HEIGHT (selected_frame
) <= 0
1867 || FRAME_WIDTH (selected_frame
) <= 0)
1868 fatal ("The frame size has not been specified");
1870 delete_in_insert_mode
1871 = TS_delete_mode
&& TS_insert_mode
1872 && !strcmp (TS_delete_mode
, TS_insert_mode
);
1874 se_is_so
= (TS_standout_mode
1875 && TS_end_standout_mode
1876 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
1878 /* Remove width of standout marker from usable width of line */
1879 if (TN_standout_width
> 0)
1880 SET_FRAME_WIDTH (selected_frame
,
1881 FRAME_WIDTH (selected_frame
) - TN_standout_width
);
1883 UseTabs
= tabs_safe_p () && TabWidth
== 8;
1887 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
1889 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
1890 && (TS_del_line
|| TS_del_multi_lines
))
1891 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
1893 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
1894 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
1895 && (TS_del_char
|| TS_del_multi_chars
));
1897 fast_clear_end_of_line
= TS_clr_line
!= 0;
1900 if (read_socket_hook
) /* Baudrate is somewhat */
1901 /* meaningless in this case */
1904 FRAME_CAN_HAVE_SCROLL_BARS (selected_frame
) = 0;
1905 FRAME_VERTICAL_SCROLL_BAR_TYPE (selected_frame
) = vertical_scroll_bar_none
;
1909 fatal (str
, arg1
, arg2
)
1910 char *str
, *arg1
, *arg2
;
1912 fprintf (stderr
, "emacs: ");
1913 fprintf (stderr
, str
, arg1
, arg2
);
1914 fprintf (stderr
, "\n");
1921 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
1922 "Non-nil means the system uses terminfo rather than termcap.\n\
1923 This variable can be used by terminal emulator packages.");
1925 system_uses_terminfo
= 1;
1927 system_uses_terminfo
= 0;
1930 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
1931 "Non-nil means call this function to ring the bell.\n\
1932 The function should accept no arguments.");
1933 Vring_bell_function
= Qnil
;