1 /* Terminal control module for terminals described by TERMCAP
2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1998, 2000, 2001,
3 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
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)
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.
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
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* New redisplay, TTY faces by Gerd Moellmann <gerd@gnu.org>. */
33 #include "character.h"
36 #include "composite.h"
40 #include "termhooks.h"
41 #include "dispextern.h"
44 #include "blockinput.h"
46 /* For now, don't try to include termcap.h. On some systems,
47 configure finds a non-standard termcap.h that the main build
50 #if defined HAVE_TERMCAP_H && 0
53 extern void tputs
P_ ((const char *, int, int (*)(int)));
54 extern int tgetent
P_ ((char *, const char *));
55 extern int tgetflag
P_ ((char *id
));
56 extern int tgetnum
P_ ((char *id
));
67 static void turn_on_face
P_ ((struct frame
*, int face_id
));
68 static void turn_off_face
P_ ((struct frame
*, int face_id
));
69 static void tty_show_cursor
P_ ((void));
70 static void tty_hide_cursor
P_ ((void));
73 tputs (a, (int) (FRAME_LINES (XFRAME (selected_frame)) - curY), cmputc)
74 #define OUTPUT1(a) tputs (a, 1, cmputc)
75 #define OUTPUTL(a, lines) tputs (a, lines, cmputc)
77 #define OUTPUT_IF(a) \
80 tputs (a, (int) (FRAME_LINES (XFRAME (selected_frame)) \
84 #define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
86 /* Display space properties */
88 extern Lisp_Object Qspace
, QCalign_to
, QCwidth
;
90 /* Function to use to ring the bell. */
92 Lisp_Object Vring_bell_function
;
94 /* If true, use "vs", otherwise use "ve" to make the cursor visible. */
96 static int visible_cursor
;
98 /* Terminal characteristics that higher levels want to look at.
99 These are all extern'd in termchar.h */
101 int must_write_spaces
; /* Nonzero means spaces in the text
102 must actually be output; can't just skip
103 over some columns to leave them blank. */
104 int min_padding_speed
; /* Speed below which no padding necessary */
106 int line_ins_del_ok
; /* Terminal can insert and delete lines */
107 int char_ins_del_ok
; /* Terminal can insert and delete chars */
108 int scroll_region_ok
; /* Terminal supports setting the
110 int scroll_region_cost
; /* Cost of setting a scroll window,
111 measured in characters */
112 int memory_below_frame
; /* Terminal remembers lines
113 scrolled off bottom */
114 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
116 /* Nonzero means no need to redraw the entire frame on resuming
117 a suspended Emacs. This is useful on terminals with multiple pages,
118 where one page is used for Emacs and another for all else. */
120 int no_redraw_on_reenter
;
122 /* Hook functions that you can set to snap out the functions in this file.
123 These are all extern'd in termhooks.h */
125 void (*cursor_to_hook
) P_ ((int, int));
126 void (*raw_cursor_to_hook
) P_ ((int, int));
127 void (*clear_to_end_hook
) P_ ((void));
128 void (*clear_frame_hook
) P_ ((void));
129 void (*clear_end_of_line_hook
) P_ ((int));
131 void (*ins_del_lines_hook
) P_ ((int, int));
133 void (*delete_glyphs_hook
) P_ ((int));
135 void (*ring_bell_hook
) P_ ((void));
137 void (*reset_terminal_modes_hook
) P_ ((void));
138 void (*set_terminal_modes_hook
) P_ ((void));
139 void (*update_begin_hook
) P_ ((struct frame
*));
140 void (*update_end_hook
) P_ ((struct frame
*));
141 void (*set_terminal_window_hook
) P_ ((int));
142 void (*insert_glyphs_hook
) P_ ((struct glyph
*, int));
143 void (*write_glyphs_hook
) P_ ((struct glyph
*, int));
144 void (*delete_glyphs_hook
) P_ ((int));
146 int (*read_socket_hook
) P_ ((int, int, struct input_event
*));
148 void (*frame_up_to_date_hook
) P_ ((struct frame
*));
150 /* Return the current position of the mouse.
152 Set *f to the frame the mouse is in, or zero if the mouse is in no
153 Emacs frame. If it is set to zero, all the other arguments are
156 If the motion started in a scroll bar, set *bar_window to the
157 scroll bar's window, *part to the part the mouse is currently over,
158 *x to the position of the mouse along the scroll bar, and *y to the
159 overall length of the scroll bar.
161 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
162 row of the character cell the mouse is over.
164 Set *time to the time the mouse was at the returned position.
166 This should clear mouse_moved until the next motion
169 void (*mouse_position_hook
) P_ ((FRAME_PTR
*f
, int insist
,
170 Lisp_Object
*bar_window
,
171 enum scroll_bar_part
*part
,
174 unsigned long *time
));
176 /* When reading from a minibuffer in a different frame, Emacs wants
177 to shift the highlight from the selected frame to the mini-buffer's
178 frame; under X, this means it lies about where the focus is.
179 This hook tells the window system code to re-decide where to put
182 void (*frame_rehighlight_hook
) P_ ((FRAME_PTR f
));
184 /* If we're displaying frames using a window system that can stack
185 frames on top of each other, this hook allows you to bring a frame
186 to the front, or bury it behind all the other windows. If this
187 hook is zero, that means the device we're displaying on doesn't
188 support overlapping frames, so there's no need to raise or lower
191 If RAISE is non-zero, F is brought to the front, before all other
192 windows. If RAISE is zero, F is sent to the back, behind all other
195 void (*frame_raise_lower_hook
) P_ ((FRAME_PTR f
, int raise
));
197 /* If the value of the frame parameter changed, whis hook is called.
198 For example, if going from fullscreen to not fullscreen this hook
199 may do something OS dependent, like extended window manager hints on X11. */
200 void (*fullscreen_hook
) P_ ((struct frame
*f
));
202 /* Set the vertical scroll bar for WINDOW to have its upper left corner
203 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
204 indicate that we are displaying PORTION characters out of a total
205 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
206 have a scroll bar, create one for it. */
208 void (*set_vertical_scroll_bar_hook
)
209 P_ ((struct window
*window
,
210 int portion
, int whole
, int position
));
213 /* The following three hooks are used when we're doing a thorough
214 redisplay of the frame. We don't explicitly know which scroll bars
215 are going to be deleted, because keeping track of when windows go
216 away is a real pain - can you say set-window-configuration?
217 Instead, we just assert at the beginning of redisplay that *all*
218 scroll bars are to be removed, and then save scroll bars from the
219 fiery pit when we actually redisplay their window. */
221 /* Arrange for all scroll bars on FRAME to be removed at the next call
222 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
223 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
225 This should be applied to each frame each time its window tree is
226 redisplayed, even if it is not displaying scroll bars at the moment;
227 if the HAS_SCROLL_BARS flag has just been turned off, only calling
228 this and the judge_scroll_bars_hook will get rid of them.
230 If non-zero, this hook should be safe to apply to any frame,
231 whether or not it can support scroll bars, and whether or not it is
232 currently displaying them. */
234 void (*condemn_scroll_bars_hook
) P_ ((FRAME_PTR frame
));
236 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
237 Note that it's okay to redeem a scroll bar that is not condemned. */
239 void (*redeem_scroll_bar_hook
) P_ ((struct window
*window
));
241 /* Remove all scroll bars on FRAME that haven't been saved since the
242 last call to `*condemn_scroll_bars_hook'.
244 This should be applied to each frame after each time its window
245 tree is redisplayed, even if it is not displaying scroll bars at the
246 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
247 calling this and condemn_scroll_bars_hook will get rid of them.
249 If non-zero, this hook should be safe to apply to any frame,
250 whether or not it can support scroll bars, and whether or not it is
251 currently displaying them. */
253 void (*judge_scroll_bars_hook
) P_ ((FRAME_PTR FRAME
));
255 /* Strings, numbers and flags taken from the termcap entry. */
257 char *TS_ins_line
; /* "al" */
258 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
259 char *TS_bell
; /* "bl" */
260 char *TS_clr_to_bottom
; /* "cd" */
261 char *TS_clr_line
; /* "ce", clear to end of line */
262 char *TS_clr_frame
; /* "cl" */
263 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
264 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
265 lines above scroll region, lines below it,
266 total lines again) */
267 char *TS_del_char
; /* "dc" */
268 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
269 char *TS_del_line
; /* "dl" */
270 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
271 char *TS_delete_mode
; /* "dm", enter character-delete mode */
272 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
273 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
274 char *TS_ins_char
; /* "ic" */
275 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
276 char *TS_insert_mode
; /* "im", enter character-insert mode */
277 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
278 char *TS_end_keypad_mode
; /* "ke" */
279 char *TS_keypad_mode
; /* "ks" */
280 char *TS_pad_char
; /* "pc", char to use as padding */
281 char *TS_repeat
; /* "rp" (2 params, # times to repeat
282 and character to be repeated) */
283 char *TS_end_standout_mode
; /* "se" */
284 char *TS_fwd_scroll
; /* "sf" */
285 char *TS_standout_mode
; /* "so" */
286 char *TS_rev_scroll
; /* "sr" */
287 char *TS_end_termcap_modes
; /* "te" */
288 char *TS_termcap_modes
; /* "ti" */
289 char *TS_visible_bell
; /* "vb" */
290 char *TS_cursor_normal
; /* "ve" */
291 char *TS_cursor_visible
; /* "vs" */
292 char *TS_cursor_invisible
; /* "vi" */
293 char *TS_set_window
; /* "wi" (4 params, start and end of window,
294 each as vpos and hpos) */
296 /* Value of the "NC" (no_color_video) capability, or 0 if not
299 static int TN_no_color_video
;
301 /* Meaning of bits in no_color_video. Each bit set means that the
302 corresponding attribute cannot be combined with colors. */
306 NC_STANDOUT
= 1 << 0,
307 NC_UNDERLINE
= 1 << 1,
314 NC_ALT_CHARSET
= 1 << 8
317 /* "md" -- turn on bold (extra bright mode). */
319 char *TS_enter_bold_mode
;
321 /* "mh" -- turn on half-bright mode. */
323 char *TS_enter_dim_mode
;
325 /* "mb" -- enter blinking mode. */
327 char *TS_enter_blink_mode
;
329 /* "mr" -- enter reverse video mode. */
331 char *TS_enter_reverse_mode
;
333 /* "us"/"ue" -- start/end underlining. */
335 char *TS_exit_underline_mode
, *TS_enter_underline_mode
;
337 /* "as"/"ae" -- start/end alternate character set. Not really
340 char *TS_enter_alt_charset_mode
, *TS_exit_alt_charset_mode
;
342 /* "me" -- switch appearances off. */
344 char *TS_exit_attribute_mode
;
346 /* "Co" -- number of colors. */
350 /* "pa" -- max. number of color pairs on screen. Not handled yet.
351 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
355 /* "op" -- SVr4 set default pair to its original value. */
359 /* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
360 1 param, the color index. */
362 char *TS_set_foreground
, *TS_set_background
;
364 int TF_hazeltine
; /* termcap hz flag. */
365 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
366 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
367 int TF_underscore
; /* termcap ul flag: _ underlines if over-struck on
368 non-blank position. Must clear before writing _. */
369 int TF_teleray
; /* termcap xt flag: many weird consequences.
372 static int RPov
; /* # chars to start a TS_repeat */
374 static int delete_in_insert_mode
; /* delete mode == insert mode */
376 static int se_is_so
; /* 1 if same string both enters and leaves
381 /* The largest frame width in any call to calculate_costs. */
385 /* The largest frame height in any call to calculate_costs. */
389 static int costs_set
; /* Nonzero if costs have been calculated. */
391 int insert_mode
; /* Nonzero when in insert mode. */
392 int standout_mode
; /* Nonzero when in standout mode. */
394 /* Size of window specified by higher levels.
395 This is the number of lines, from the top of frame downwards,
396 which can participate in insert-line/delete-line operations.
398 Effectively it excludes the bottom frame_lines - specified_window_size
399 lines from those operations. */
401 int specified_window
;
403 /* Frame currently being redisplayed; 0 if not currently redisplaying.
404 (Direct output does not count). */
406 FRAME_PTR updating_frame
;
408 /* Provided for lisp packages. */
410 static int system_uses_terminfo
;
412 /* Flag used in tty_show/hide_cursor. */
414 static int tty_cursor_hidden
;
418 extern char *tgetstr ();
422 /* We aren't X windows, but we aren't termcap either. This makes me
423 uncertain as to what value to use for frame.output_method. For
424 this file, we'll define FRAME_TERMCAP_P to be zero so that our
425 output hooks get called instead of the termcap functions. Probably
426 the best long-term solution is to define an output_windows_nt... */
428 #undef FRAME_TERMCAP_P
429 #define FRAME_TERMCAP_P(_f_) 0
430 #endif /* WINDOWSNT */
435 if (!NILP (Vring_bell_function
))
437 Lisp_Object function
;
439 /* Temporarily set the global variable to nil
440 so that if we get an error, it stays nil
441 and we don't call it over and over.
443 We don't specbind it, because that would carefully
444 restore the bad value if there's an error
445 and make the loop of errors happen anyway. */
447 function
= Vring_bell_function
;
448 Vring_bell_function
= Qnil
;
452 Vring_bell_function
= function
;
454 else if (!FRAME_TERMCAP_P (XFRAME (selected_frame
)))
455 (*ring_bell_hook
) ();
457 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
461 set_terminal_modes ()
463 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
465 if (TS_termcap_modes
)
466 OUTPUT (TS_termcap_modes
);
469 /* Output enough newlines to scroll all the old screen contents
470 off the screen, so it won't be overwritten and lost. */
472 for (i
= 0; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
476 OUTPUT_IF (visible_cursor
? TS_cursor_visible
: TS_cursor_normal
);
477 OUTPUT_IF (TS_keypad_mode
);
481 (*set_terminal_modes_hook
) ();
485 reset_terminal_modes ()
487 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
489 turn_off_highlight ();
491 OUTPUT_IF (TS_end_keypad_mode
);
492 OUTPUT_IF (TS_cursor_normal
);
493 OUTPUT_IF (TS_end_termcap_modes
);
494 OUTPUT_IF (TS_orig_pair
);
495 /* Output raw CR so kernel can track the cursor hpos. */
498 else if (reset_terminal_modes_hook
)
499 (*reset_terminal_modes_hook
) ();
507 if (!FRAME_TERMCAP_P (f
))
508 update_begin_hook (f
);
515 if (FRAME_TERMCAP_P (f
))
517 if (!XWINDOW (selected_window
)->cursor_off_p
)
520 background_highlight ();
525 updating_frame
= NULL
;
529 set_terminal_window (size
)
532 if (FRAME_TERMCAP_P (updating_frame
))
534 specified_window
= size
? size
: FRAME_LINES (updating_frame
);
535 if (scroll_region_ok
)
536 set_scroll_region (0, specified_window
);
539 set_terminal_window_hook (size
);
543 set_scroll_region (start
, stop
)
547 struct frame
*sf
= XFRAME (selected_frame
);
549 if (TS_set_scroll_region
)
550 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
551 else if (TS_set_scroll_region_1
)
552 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
553 FRAME_LINES (sf
), start
,
554 FRAME_LINES (sf
) - stop
,
557 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_COLS (sf
));
569 OUTPUT (TS_insert_mode
);
577 OUTPUT (TS_end_insert_mode
);
581 /* Handle highlighting. */
584 turn_off_highlight ()
587 OUTPUT_IF (TS_end_standout_mode
);
595 OUTPUT_IF (TS_standout_mode
);
603 turn_off_highlight ();
605 turn_on_highlight ();
609 /* Make cursor invisible. */
614 if (tty_cursor_hidden
== 0)
616 tty_cursor_hidden
= 1;
617 OUTPUT_IF (TS_cursor_invisible
);
622 /* Ensure that cursor is visible. */
627 if (tty_cursor_hidden
)
629 tty_cursor_hidden
= 0;
630 OUTPUT_IF (TS_cursor_normal
);
632 OUTPUT_IF (TS_cursor_visible
);
637 /* Set standout mode to the state it should be in for
638 empty space inside windows. What this is,
639 depends on the user option inverse-video. */
642 background_highlight ()
645 turn_on_highlight ();
647 turn_off_highlight ();
650 /* Set standout mode to the mode specified for the text to be output. */
653 highlight_if_desired ()
656 turn_on_highlight ();
658 turn_off_highlight ();
662 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
663 frame-relative coordinates. */
666 cursor_to (vpos
, hpos
)
669 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
671 if (! FRAME_TERMCAP_P (f
) && cursor_to_hook
)
673 (*cursor_to_hook
) (vpos
, hpos
);
677 /* Detect the case where we are called from reset_sys_modes
678 and the costs have never been calculated. Do nothing. */
682 if (curY
== vpos
&& curX
== hpos
)
684 if (!TF_standout_motion
)
685 background_highlight ();
686 if (!TF_insmode_motion
)
691 /* Similar but don't take any account of the wasted characters. */
694 raw_cursor_to (row
, col
)
697 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
698 if (! FRAME_TERMCAP_P (f
))
700 (*raw_cursor_to_hook
) (row
, col
);
703 if (curY
== row
&& curX
== col
)
705 if (!TF_standout_motion
)
706 background_highlight ();
707 if (!TF_insmode_motion
)
712 /* Erase operations */
714 /* clear from cursor to end of frame */
720 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
722 (*clear_to_end_hook
) ();
725 if (TS_clr_to_bottom
)
727 background_highlight ();
728 OUTPUT (TS_clr_to_bottom
);
732 for (i
= curY
; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
735 clear_end_of_line (FRAME_COLS (XFRAME (selected_frame
)));
740 /* Clear entire frame */
745 struct frame
*sf
= XFRAME (selected_frame
);
748 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: sf
)))
750 (*clear_frame_hook
) ();
755 background_highlight ();
756 OUTPUT (TS_clr_frame
);
766 /* Clear from cursor to end of line.
767 Assume that the line is already clear starting at column first_unused_hpos.
769 Note that the cursor may be moved, on terminals lacking a `ce' string. */
772 clear_end_of_line (first_unused_hpos
)
773 int first_unused_hpos
;
777 if (clear_end_of_line_hook
778 && ! FRAME_TERMCAP_P ((updating_frame
780 : XFRAME (selected_frame
))))
782 (*clear_end_of_line_hook
) (first_unused_hpos
);
786 /* Detect the case where we are called from reset_sys_modes
787 and the costs have never been calculated. Do nothing. */
791 if (curX
>= first_unused_hpos
)
793 background_highlight ();
796 OUTPUT1 (TS_clr_line
);
799 { /* have to do it the hard way */
800 struct frame
*sf
= XFRAME (selected_frame
);
803 /* Do not write in last row last col with Auto-wrap on. */
804 if (AutoWrap
&& curY
== FRAME_LINES (sf
) - 1
805 && first_unused_hpos
== FRAME_COLS (sf
))
808 for (i
= curX
; i
< first_unused_hpos
; i
++)
811 fputc (' ', termscript
);
814 cmplus (first_unused_hpos
- curX
);
818 /* Buffers to store the source and result of code conversion for terminal. */
819 static unsigned char *encode_terminal_src
;
820 static unsigned char *encode_terminal_dst
;
821 /* Allocated sizes of the above buffers. */
822 static int encode_terminal_src_size
;
823 static int encode_terminal_dst_size
;
825 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes.
826 Set CODING->produced to the byte-length of the resulting byte
827 sequence, and return a pointer to that byte sequence. */
830 encode_terminal_code (src
, src_len
, coding
)
833 struct coding_system
*coding
;
835 struct glyph
*src_end
= src
+ src_len
;
838 int nchars
, nbytes
, required
;
839 register int tlen
= GLYPH_TABLE_LENGTH
;
840 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
841 Lisp_Object charset_list
;
843 /* Allocate sufficient size of buffer to store all characters in
844 multibyte-form. But, it may be enlarged on demand if
845 Vglyph_table contains a string or a composite glyph is
847 required
= MAX_MULTIBYTE_LENGTH
* src_len
;
848 if (encode_terminal_src_size
< required
)
850 if (encode_terminal_src_size
== 0)
851 encode_terminal_src
= xmalloc (required
);
853 encode_terminal_src
= xrealloc (encode_terminal_src
, required
);
854 encode_terminal_src_size
= required
;
857 charset_list
= coding_charset_list (coding
);
859 buf
= encode_terminal_src
;
861 while (src
< src_end
)
863 if (src
->type
== COMPOSITE_GLYPH
)
865 struct composition
*cmp
= composition_table
[src
->u
.cmp_id
];
868 nbytes
= buf
- encode_terminal_src
;
869 required
= MAX_MULTIBYTE_LENGTH
* cmp
->glyph_len
;
871 if (encode_terminal_src_size
< nbytes
+ required
)
873 encode_terminal_src_size
= nbytes
+ required
;
874 encode_terminal_src
= xrealloc (encode_terminal_src
,
875 encode_terminal_src_size
);
876 buf
= encode_terminal_src
+ nbytes
;
879 for (i
= 0; i
< cmp
->glyph_len
; i
++)
881 int c
= COMPOSITION_GLYPH (cmp
, i
);
883 if (! char_charset (c
, charset_list
, NULL
))
885 buf
+= CHAR_STRING (c
, buf
);
890 /* The first character of the composition is not encodable. */
895 /* We must skip glyphs to be padded for a wide character. */
896 else if (! CHAR_GLYPH_PADDING_P (*src
))
902 g
= GLYPH_FROM_CHAR_GLYPH (src
[0]);
904 if (g
< 0 || g
>= tlen
)
906 /* This glyph doesn't has an entry in Vglyph_table. */
911 /* This glyph has an entry in Vglyph_table,
912 so process any alias before testing for simpleness. */
913 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
915 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
916 /* We set the multi-byte form of a character in G
917 (that should be an ASCII character) at WORKBUF. */
918 c
= FAST_GLYPH_CHAR (g
);
920 /* We have a string in Vglyph_table. */
926 nbytes
= buf
- encode_terminal_src
;
927 if (encode_terminal_src_size
< nbytes
+ MAX_MULTIBYTE_LENGTH
)
929 encode_terminal_src_size
= nbytes
+ MAX_MULTIBYTE_LENGTH
;
930 encode_terminal_src
= xrealloc (encode_terminal_src
,
931 encode_terminal_src_size
);
932 buf
= encode_terminal_src
+ nbytes
;
934 if (char_charset (c
, charset_list
, NULL
))
936 /* Store the multibyte form of C at BUF. */
937 buf
+= CHAR_STRING (c
, buf
);
942 /* C is not encodable. */
945 while (src
+ 1 < src_end
&& CHAR_GLYPH_PADDING_P (src
[1]))
955 unsigned char *p
= SDATA (string
), *pend
= p
+ SBYTES (string
);
957 if (! STRING_MULTIBYTE (string
))
958 string
= string_to_multibyte (string
);
959 nbytes
= buf
- encode_terminal_src
;
960 if (encode_terminal_src_size
< nbytes
+ SBYTES (string
))
962 encode_terminal_src_size
= nbytes
+ SBYTES (string
);
963 encode_terminal_src
= xrealloc (encode_terminal_src
,
964 encode_terminal_src_size
);
965 buf
= encode_terminal_src
+ nbytes
;
967 bcopy (SDATA (string
), buf
, SBYTES (string
));
968 buf
+= SBYTES (string
);
969 nchars
+= SCHARS (string
);
977 coding
->produced
= 0;
981 nbytes
= buf
- encode_terminal_src
;
982 coding
->source
= encode_terminal_src
;
983 if (encode_terminal_dst_size
== 0)
985 encode_terminal_dst_size
= encode_terminal_src_size
;
986 encode_terminal_dst
= xmalloc (encode_terminal_dst_size
);
988 coding
->destination
= encode_terminal_dst
;
989 coding
->dst_bytes
= encode_terminal_dst_size
;
990 encode_coding_object (coding
, Qnil
, 0, 0, nchars
, nbytes
, Qnil
);
991 /* coding->destination may have been reallocated. */
992 encode_terminal_dst
= coding
->destination
;
993 encode_terminal_dst_size
= coding
->dst_bytes
;
995 return (encode_terminal_dst
);
1000 write_glyphs (string
, len
)
1001 register struct glyph
*string
;
1004 int produced
, consumed
;
1005 struct frame
*sf
= XFRAME (selected_frame
);
1006 struct frame
*f
= updating_frame
? updating_frame
: sf
;
1007 unsigned char *conversion_buffer
;
1008 struct coding_system
*coding
;
1010 if (write_glyphs_hook
1011 && ! FRAME_TERMCAP_P (f
))
1013 (*write_glyphs_hook
) (string
, len
);
1020 /* Don't dare write in last column of bottom line, if Auto-Wrap,
1021 since that would scroll the whole frame on some terminals. */
1024 && curY
+ 1 == FRAME_LINES (sf
)
1025 && (curX
+ len
) == FRAME_COLS (sf
))
1032 /* If terminal_coding does any conversion, use it, otherwise use
1033 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
1034 because it always return 1 if the member src_multibyte is 1. */
1035 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
1036 ? &terminal_coding
: &safe_terminal_coding
);
1037 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1039 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
1043 /* Identify a run of glyphs with the same face. */
1044 int face_id
= string
->face_id
;
1047 for (n
= 1; n
< len
; ++n
)
1048 if (string
[n
].face_id
!= face_id
)
1051 /* Turn appearance modes of the face of the run on. */
1052 highlight_if_desired ();
1053 turn_on_face (f
, face_id
);
1056 /* This is the last run. */
1057 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
1058 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
1059 if (coding
->produced
> 0)
1062 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1063 if (ferror (stdout
))
1066 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1072 /* Turn appearance modes off. */
1073 turn_off_face (f
, face_id
);
1074 turn_off_highlight ();
1080 /* If start is zero, insert blanks instead of a string at start */
1083 insert_glyphs (start
, len
)
1084 register struct glyph
*start
;
1088 struct glyph
*glyph
= NULL
;
1089 struct frame
*f
, *sf
;
1090 unsigned char *conversion_buffer
;
1091 unsigned char space
[1];
1092 struct coding_system
*coding
;
1097 if (insert_glyphs_hook
)
1099 (*insert_glyphs_hook
) (start
, len
);
1103 sf
= XFRAME (selected_frame
);
1104 f
= updating_frame
? updating_frame
: sf
;
1106 if (TS_ins_multi_chars
)
1108 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
1112 write_glyphs (start
, len
);
1120 space
[0] = SPACEGLYPH
;
1122 /* If terminal_coding does any conversion, use it, otherwise use
1123 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
1124 because it always return 1 if the member src_multibyte is 1. */
1125 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
1126 ? &terminal_coding
: &safe_terminal_coding
);
1127 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1129 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
1133 OUTPUT1_IF (TS_ins_char
);
1136 conversion_buffer
= space
;
1137 coding
->produced
= 1;
1141 highlight_if_desired ();
1142 turn_on_face (f
, start
->face_id
);
1145 /* We must open sufficient space for a character which
1146 occupies more than one column. */
1147 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
1149 OUTPUT1_IF (TS_ins_char
);
1154 /* This is the last glyph. */
1155 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
1157 conversion_buffer
= encode_terminal_code (glyph
, 1, coding
);
1160 if (coding
->produced
> 0)
1163 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1164 if (ferror (stdout
))
1167 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1171 OUTPUT1_IF (TS_pad_inserted_char
);
1174 turn_off_face (f
, glyph
->face_id
);
1175 turn_off_highlight ();
1189 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1191 (*delete_glyphs_hook
) (n
);
1195 if (delete_in_insert_mode
)
1202 OUTPUT_IF (TS_delete_mode
);
1205 if (TS_del_multi_chars
)
1207 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1212 for (i
= 0; i
< n
; i
++)
1213 OUTPUT1 (TS_del_char
);
1214 if (!delete_in_insert_mode
)
1215 OUTPUT_IF (TS_end_delete_mode
);
1218 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1221 ins_del_lines (vpos
, n
)
1224 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1225 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1226 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1229 register int i
= n
> 0 ? n
: -n
;
1232 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1234 (*ins_del_lines_hook
) (vpos
, n
);
1238 sf
= XFRAME (selected_frame
);
1240 /* If the lines below the insertion are being pushed
1241 into the end of the window, this is the same as clearing;
1242 and we know the lines are already clear, since the matching
1243 deletion has already been done. So can ignore this. */
1244 /* If the lines below the deletion are blank lines coming
1245 out of the end of the window, don't bother,
1246 as there will be a matching inslines later that will flush them. */
1247 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1249 if (!memory_below_frame
&& vpos
+ i
>= FRAME_LINES (sf
))
1254 raw_cursor_to (vpos
, 0);
1255 background_highlight ();
1256 buf
= tparam (multi
, 0, 0, i
);
1262 raw_cursor_to (vpos
, 0);
1263 background_highlight ();
1271 set_scroll_region (vpos
, specified_window
);
1273 raw_cursor_to (specified_window
- 1, 0);
1275 raw_cursor_to (vpos
, 0);
1276 background_highlight ();
1278 OUTPUTL (scroll
, specified_window
- vpos
);
1279 set_scroll_region (0, specified_window
);
1282 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1284 cursor_to (FRAME_LINES (sf
) + n
, 0);
1289 /* Compute cost of sending "str", in characters,
1290 not counting any line-dependent padding. */
1298 tputs (str
, 0, evalcost
);
1302 /* Compute cost of sending "str", in characters,
1303 counting any line-dependent padding at one line. */
1306 string_cost_one_line (str
)
1311 tputs (str
, 1, evalcost
);
1315 /* Compute per line amount of line-dependent padding,
1316 in tenths of characters. */
1324 tputs (str
, 0, evalcost
);
1327 tputs (str
, 10, evalcost
);
1332 /* char_ins_del_cost[n] is cost of inserting N characters.
1333 char_ins_del_cost[-n] is cost of deleting N characters.
1334 The length of this vector is based on max_frame_cols. */
1336 int *char_ins_del_vector
;
1338 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_COLS ((f))])
1343 calculate_ins_del_char_costs (frame
)
1346 int ins_startup_cost
, del_startup_cost
;
1347 int ins_cost_per_char
, del_cost_per_char
;
1351 if (TS_ins_multi_chars
)
1353 ins_cost_per_char
= 0;
1354 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1356 else if (TS_ins_char
|| TS_pad_inserted_char
1357 || (TS_insert_mode
&& TS_end_insert_mode
))
1359 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1360 + string_cost (TS_end_insert_mode
))) / 100;
1361 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1362 + string_cost_one_line (TS_pad_inserted_char
));
1366 ins_startup_cost
= 9999;
1367 ins_cost_per_char
= 0;
1370 if (TS_del_multi_chars
)
1372 del_cost_per_char
= 0;
1373 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1375 else if (TS_del_char
)
1377 del_startup_cost
= (string_cost (TS_delete_mode
)
1378 + string_cost (TS_end_delete_mode
));
1379 if (delete_in_insert_mode
)
1380 del_startup_cost
/= 2;
1381 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1385 del_startup_cost
= 9999;
1386 del_cost_per_char
= 0;
1389 /* Delete costs are at negative offsets */
1390 p
= &char_ins_del_cost (frame
)[0];
1391 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1392 *--p
= (del_startup_cost
+= del_cost_per_char
);
1394 /* Doing nothing is free */
1395 p
= &char_ins_del_cost (frame
)[0];
1398 /* Insert costs are at positive offsets */
1399 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1400 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1404 calculate_costs (frame
)
1407 register char *f
= (TS_set_scroll_region
1408 ? TS_set_scroll_region
1409 : TS_set_scroll_region_1
);
1411 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1413 scroll_region_cost
= string_cost (f
);
1415 /* These variables are only used for terminal stuff. They are allocated
1416 once for the terminal frame of X-windows emacs, but not used afterwards.
1418 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1419 X turns off char_ins_del_ok. */
1421 max_frame_lines
= max (max_frame_lines
, FRAME_LINES (frame
));
1422 max_frame_cols
= max (max_frame_cols
, FRAME_COLS (frame
));
1426 if (char_ins_del_vector
!= 0)
1428 = (int *) xrealloc (char_ins_del_vector
,
1430 + 2 * max_frame_cols
* sizeof (int)));
1433 = (int *) xmalloc (sizeof (int)
1434 + 2 * max_frame_cols
* sizeof (int));
1436 bzero (char_ins_del_vector
, (sizeof (int)
1437 + 2 * max_frame_cols
* sizeof (int)));
1439 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1440 do_line_insertion_deletion_costs (frame
,
1441 TS_rev_scroll
, TS_ins_multi_lines
,
1442 TS_fwd_scroll
, TS_del_multi_lines
,
1445 do_line_insertion_deletion_costs (frame
,
1446 TS_ins_line
, TS_ins_multi_lines
,
1447 TS_del_line
, TS_del_multi_lines
,
1450 calculate_ins_del_char_costs (frame
);
1452 /* Don't use TS_repeat if its padding is worse than sending the chars */
1453 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1454 RPov
= string_cost (TS_repeat
);
1456 RPov
= FRAME_COLS (frame
) * 2;
1458 cmcostinit (); /* set up cursor motion costs */
1465 /* Termcap capability names that correspond directly to X keysyms.
1466 Some of these (marked "terminfo") aren't supplied by old-style
1467 (Berkeley) termcap entries. They're listed in X keysym order;
1468 except we put the keypad keys first, so that if they clash with
1469 other keys (as on the IBM PC keyboard) they get overridden.
1472 static struct fkey_table keys
[] =
1474 {"kh", "home"}, /* termcap */
1475 {"kl", "left"}, /* termcap */
1476 {"ku", "up"}, /* termcap */
1477 {"kr", "right"}, /* termcap */
1478 {"kd", "down"}, /* termcap */
1479 {"%8", "prior"}, /* terminfo */
1480 {"%5", "next"}, /* terminfo */
1481 {"@7", "end"}, /* terminfo */
1482 {"@1", "begin"}, /* terminfo */
1483 {"*6", "select"}, /* terminfo */
1484 {"%9", "print"}, /* terminfo */
1485 {"@4", "execute"}, /* terminfo --- actually the `command' key */
1487 * "insert" --- see below
1489 {"&8", "undo"}, /* terminfo */
1490 {"%0", "redo"}, /* terminfo */
1491 {"%7", "menu"}, /* terminfo --- actually the `options' key */
1492 {"@0", "find"}, /* terminfo */
1493 {"@2", "cancel"}, /* terminfo */
1494 {"%1", "help"}, /* terminfo */
1496 * "break" goes here, but can't be reliably intercepted with termcap
1498 {"&4", "reset"}, /* terminfo --- actually `restart' */
1500 * "system" and "user" --- no termcaps
1502 {"kE", "clearline"}, /* terminfo */
1503 {"kA", "insertline"}, /* terminfo */
1504 {"kL", "deleteline"}, /* terminfo */
1505 {"kI", "insertchar"}, /* terminfo */
1506 {"kD", "deletechar"}, /* terminfo */
1507 {"kB", "backtab"}, /* terminfo */
1509 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1511 {"@8", "kp-enter"}, /* terminfo */
1513 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1514 * "kp-multiply", "kp-add", "kp-separator",
1515 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1516 * --- no termcaps for any of these.
1518 {"K4", "kp-1"}, /* terminfo */
1520 * "kp-2" --- no termcap
1522 {"K5", "kp-3"}, /* terminfo */
1524 * "kp-4" --- no termcap
1526 {"K2", "kp-5"}, /* terminfo */
1528 * "kp-6" --- no termcap
1530 {"K1", "kp-7"}, /* terminfo */
1532 * "kp-8" --- no termcap
1534 {"K3", "kp-9"}, /* terminfo */
1536 * "kp-equal" --- no termcap
1548 {"&0", "S-cancel"}, /*shifted cancel key*/
1549 {"&9", "S-begin"}, /*shifted begin key*/
1550 {"*0", "S-find"}, /*shifted find key*/
1551 {"*1", "S-execute"}, /*shifted execute? actually shifted command key*/
1552 {"*4", "S-delete"}, /*shifted delete-character key*/
1553 {"*7", "S-end"}, /*shifted end key*/
1554 {"*8", "S-clearline"}, /*shifted clear-to end-of-line key*/
1555 {"#1", "S-help"}, /*shifted help key*/
1556 {"#2", "S-home"}, /*shifted home key*/
1557 {"#3", "S-insert"}, /*shifted insert-character key*/
1558 {"#4", "S-left"}, /*shifted left-arrow key*/
1559 {"%d", "S-menu"}, /*shifted menu? actually shifted options key*/
1560 {"%c", "S-next"}, /*shifted next key*/
1561 {"%e", "S-prior"}, /*shifted previous key*/
1562 {"%f", "S-print"}, /*shifted print key*/
1563 {"%g", "S-redo"}, /*shifted redo key*/
1564 {"%i", "S-right"}, /*shifted right-arrow key*/
1565 {"!3", "S-undo"} /*shifted undo key*/
1568 static char **term_get_fkeys_arg
;
1569 static Lisp_Object
term_get_fkeys_1 ();
1571 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1572 This function scans the termcap function key sequence entries, and
1573 adds entries to Vfunction_key_map for each function key it finds. */
1576 term_get_fkeys (address
)
1579 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1580 errors during the call. The only errors should be from Fdefine_key
1581 when given a key sequence containing an invalid prefix key. If the
1582 termcap defines function keys which use a prefix that is already bound
1583 to a command by the default bindings, we should silently ignore that
1584 function key specification, rather than giving the user an error and
1585 refusing to run at all on such a terminal. */
1587 extern Lisp_Object
Fidentity ();
1588 term_get_fkeys_arg
= address
;
1589 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1597 char **address
= term_get_fkeys_arg
;
1599 /* This can happen if CANNOT_DUMP or with strange options. */
1601 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1603 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1605 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1607 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1608 Fmake_vector (make_number (1),
1609 intern (keys
[i
].name
)));
1612 /* The uses of the "k0" capability are inconsistent; sometimes it
1613 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1614 We will attempt to politely accommodate both systems by testing for
1615 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1618 char *k_semi
= tgetstr ("k;", address
);
1619 char *k0
= tgetstr ("k0", address
);
1620 char *k0_name
= "f10";
1625 /* Define f0 first, so that f10 takes precedence in case the
1626 key sequences happens to be the same. */
1627 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1628 Fmake_vector (make_number (1), intern ("f0")));
1629 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1630 Fmake_vector (make_number (1), intern ("f10")));
1633 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1634 Fmake_vector (make_number (1), intern (k0_name
)));
1637 /* Set up cookies for numbered function keys above f10. */
1639 char fcap
[3], fkey
[4];
1641 fcap
[0] = 'F'; fcap
[2] = '\0';
1642 for (i
= 11; i
< 64; i
++)
1645 fcap
[1] = '1' + i
- 11;
1647 fcap
[1] = 'A' + i
- 20;
1649 fcap
[1] = 'a' + i
- 46;
1652 char *sequence
= tgetstr (fcap
, address
);
1655 sprintf (fkey
, "f%d", i
);
1656 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1657 Fmake_vector (make_number (1),
1665 * Various mappings to try and get a better fit.
1668 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1669 if (!tgetstr (cap1, address)) \
1671 char *sequence = tgetstr (cap2, address); \
1673 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1674 Fmake_vector (make_number (1), \
1678 /* if there's no key_next keycap, map key_npage to `next' keysym */
1679 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1680 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1681 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1682 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1683 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1684 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1685 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1687 /* IBM has their own non-standard dialect of terminfo.
1688 If the standard name isn't found, try the IBM name. */
1689 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1690 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1691 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1692 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1693 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1694 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1695 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1696 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1697 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1698 #undef CONDITIONAL_REASSIGN
1705 /***********************************************************************
1706 Character Display Information
1707 ***********************************************************************/
1709 /* Avoid name clash with functions defined in xterm.c */
1711 #define append_glyph append_glyph_term
1712 #define produce_stretch_glyph produce_stretch_glyph_term
1713 #define append_composite_glyph append_composite_glyph_term
1714 #define produce_composite_glyph produce_composite_glyph_term
1717 static void append_glyph
P_ ((struct it
*));
1718 static void produce_stretch_glyph
P_ ((struct it
*));
1719 static void append_composite_glyph
P_ ((struct it
*));
1720 static void produce_composite_glyph
P_ ((struct it
*));
1722 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1723 terminal frames if IT->glyph_row != NULL. IT->char_to_display is
1724 the character for which to produce glyphs; IT->face_id contains the
1725 character's face. Padding glyphs are appended if IT->c has a
1726 IT->pixel_width > 1. */
1732 struct glyph
*glyph
, *end
;
1735 xassert (it
->glyph_row
);
1736 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1737 + it
->glyph_row
->used
[it
->area
]);
1738 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1741 i
< it
->pixel_width
&& glyph
< end
;
1744 glyph
->type
= CHAR_GLYPH
;
1745 glyph
->pixel_width
= 1;
1746 glyph
->u
.ch
= it
->char_to_display
;
1747 glyph
->face_id
= it
->face_id
;
1748 glyph
->padding_p
= i
> 0;
1749 glyph
->charpos
= CHARPOS (it
->position
);
1750 glyph
->object
= it
->object
;
1752 ++it
->glyph_row
->used
[it
->area
];
1758 /* Produce glyphs for the display element described by IT. *IT
1759 specifies what we want to produce a glyph for (character, image, ...),
1760 and where in the glyph matrix we currently are (glyph row and hpos).
1761 produce_glyphs fills in output fields of *IT with information such as the
1762 pixel width and height of a character, and maybe output actual glyphs at
1763 the same time if IT->glyph_row is non-null. See the explanation of
1764 struct display_iterator in dispextern.h for an overview.
1766 produce_glyphs also stores the result of glyph width, ascent
1767 etc. computations in *IT.
1769 IT->glyph_row may be null, in which case produce_glyphs does not
1770 actually fill in the glyphs. This is used in the move_* functions
1771 in xdisp.c for text width and height computations.
1773 Callers usually don't call produce_glyphs directly;
1774 instead they use the macro PRODUCE_GLYPHS. */
1780 /* If a hook is installed, let it do the work. */
1782 /* Nothing but characters are supported on terminal frames. */
1783 xassert (it
->what
== IT_CHARACTER
1784 || it
->what
== IT_COMPOSITION
1785 || it
->what
== IT_STRETCH
);
1787 if (it
->what
== IT_STRETCH
)
1789 produce_stretch_glyph (it
);
1793 if (it
->what
== IT_COMPOSITION
)
1795 produce_composite_glyph (it
);
1799 /* Maybe translate single-byte characters to multibyte. */
1800 it
->char_to_display
= it
->c
;
1802 if (it
->c
>= 040 && it
->c
< 0177)
1804 it
->pixel_width
= it
->nglyphs
= 1;
1808 else if (it
->c
== '\n')
1809 it
->pixel_width
= it
->nglyphs
= 0;
1810 else if (it
->c
== '\t')
1812 int absolute_x
= (it
->current_x
1813 + it
->continuation_lines_width
);
1815 = (((1 + absolute_x
+ it
->tab_width
- 1)
1820 /* If part of the TAB has been displayed on the previous line
1821 which is continued now, continuation_lines_width will have
1822 been incremented already by the part that fitted on the
1823 continued line. So, we will get the right number of spaces
1825 nspaces
= next_tab_x
- absolute_x
;
1831 it
->char_to_display
= ' ';
1832 it
->pixel_width
= it
->len
= 1;
1838 it
->pixel_width
= nspaces
;
1839 it
->nglyphs
= nspaces
;
1841 else if (CHAR_BYTE8_P (it
->c
))
1843 if (unibyte_display_via_language_environment
1846 it
->char_to_display
= unibyte_char_to_multibyte (it
->c
);
1847 it
->pixel_width
= CHAR_WIDTH (it
->char_to_display
);
1848 it
->nglyphs
= it
->pixel_width
;
1854 /* Coming here means that it->c is from display table, thus
1855 we must send the raw 8-bit byte as is to the terminal.
1856 Although there's no way to know how many columns it
1857 occupies on a screen, it is a good assumption that a
1858 single byte code has 1-column width. */
1859 it
->pixel_width
= it
->nglyphs
= 1;
1866 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1867 it
->nglyphs
= it
->pixel_width
;
1874 /* Advance current_x by the pixel width as a convenience for
1876 if (it
->area
== TEXT_AREA
)
1877 it
->current_x
+= it
->pixel_width
;
1878 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1879 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1883 /* Produce a stretch glyph for iterator IT. IT->object is the value
1884 of the glyph property displayed. The value must be a list
1885 `(space KEYWORD VALUE ...)' with the following KEYWORD/VALUE pairs
1888 1. `:width WIDTH' specifies that the space should be WIDTH *
1889 canonical char width wide. WIDTH may be an integer or floating
1892 2. `:align-to HPOS' specifies that the space should be wide enough
1893 to reach HPOS, a value in canonical character units. */
1896 produce_stretch_glyph (it
)
1899 /* (space :width WIDTH ...) */
1900 Lisp_Object prop
, plist
;
1901 int width
= 0, align_to
= -1;
1902 int zero_width_ok_p
= 0;
1905 /* List should start with `space'. */
1906 xassert (CONSP (it
->object
) && EQ (XCAR (it
->object
), Qspace
));
1907 plist
= XCDR (it
->object
);
1909 /* Compute the width of the stretch. */
1910 if ((prop
= Fplist_get (plist
, QCwidth
), !NILP (prop
))
1911 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, 0))
1913 /* Absolute width `:width WIDTH' specified and valid. */
1914 zero_width_ok_p
= 1;
1915 width
= (int)(tem
+ 0.5);
1917 else if ((prop
= Fplist_get (plist
, QCalign_to
), !NILP (prop
))
1918 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, &align_to
))
1920 if (it
->glyph_row
== NULL
|| !it
->glyph_row
->mode_line_p
)
1921 align_to
= (align_to
< 0
1923 : align_to
- window_box_left_offset (it
->w
, TEXT_AREA
));
1924 else if (align_to
< 0)
1925 align_to
= window_box_left_offset (it
->w
, TEXT_AREA
);
1926 width
= max (0, (int)(tem
+ 0.5) + align_to
- it
->current_x
);
1927 zero_width_ok_p
= 1;
1930 /* Nothing specified -> width defaults to canonical char width. */
1931 width
= FRAME_COLUMN_WIDTH (it
->f
);
1933 if (width
<= 0 && (width
< 0 || !zero_width_ok_p
))
1936 if (width
> 0 && it
->glyph_row
)
1938 Lisp_Object o_object
= it
->object
;
1939 Lisp_Object object
= it
->stack
[it
->sp
- 1].string
;
1942 if (!STRINGP (object
))
1943 object
= it
->w
->buffer
;
1944 it
->object
= object
;
1945 it
->char_to_display
= ' ';
1946 it
->pixel_width
= it
->len
= 1;
1949 it
->object
= o_object
;
1951 it
->pixel_width
= width
;
1952 it
->nglyphs
= width
;
1956 /* Append glyphs to IT's glyph_row for the composition IT->cmp_id.
1957 Called from produce_composite_glyph for terminal frames if
1958 IT->glyph_row != NULL. IT->face_id contains the character's
1962 append_composite_glyph (it
)
1965 struct glyph
*glyph
;
1967 xassert (it
->glyph_row
);
1968 glyph
= it
->glyph_row
->glyphs
[it
->area
] + it
->glyph_row
->used
[it
->area
];
1969 if (glyph
< it
->glyph_row
->glyphs
[1 + it
->area
])
1971 glyph
->type
= COMPOSITE_GLYPH
;
1972 glyph
->pixel_width
= it
->pixel_width
;
1973 glyph
->u
.cmp_id
= it
->cmp_id
;
1974 glyph
->face_id
= it
->face_id
;
1975 glyph
->padding_p
= 0;
1976 glyph
->charpos
= CHARPOS (it
->position
);
1977 glyph
->object
= it
->object
;
1979 ++it
->glyph_row
->used
[it
->area
];
1985 /* Produce a composite glyph for iterator IT. IT->cmp_id is the ID of
1986 the composition. We simply produces components of the composition
1987 assuming that that the terminal has a capability to layout/render
1991 produce_composite_glyph (it
)
1994 struct composition
*cmp
= composition_table
[it
->cmp_id
];
1997 xassert (cmp
->glyph_len
> 0);
1998 c
= COMPOSITION_GLYPH (cmp
, 0);
1999 it
->pixel_width
= CHAR_WIDTH (it
->c
);
2003 append_composite_glyph (it
);
2007 /* Get information about special display element WHAT in an
2008 environment described by IT. WHAT is one of IT_TRUNCATION or
2009 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
2010 non-null glyph_row member. This function ensures that fields like
2011 face_id, c, len of IT are left untouched. */
2014 produce_special_glyphs (it
, what
)
2016 enum display_element_type what
;
2023 temp_it
.what
= IT_CHARACTER
;
2025 temp_it
.object
= make_number (0);
2026 bzero (&temp_it
.current
, sizeof temp_it
.current
);
2028 if (what
== IT_CONTINUATION
)
2030 /* Continuation glyph. */
2032 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
2033 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
2035 glyph
= XINT (DISP_CONTINUE_GLYPH (it
->dp
));
2036 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
2041 else if (what
== IT_TRUNCATION
)
2043 /* Truncation glyph. */
2045 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
2046 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
2048 glyph
= XINT (DISP_TRUNC_GLYPH (it
->dp
));
2049 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
2057 temp_it
.c
= FAST_GLYPH_CHAR (glyph
);
2058 temp_it
.face_id
= FAST_GLYPH_FACE (glyph
);
2059 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
2061 produce_glyphs (&temp_it
);
2062 it
->pixel_width
= temp_it
.pixel_width
;
2063 it
->nglyphs
= temp_it
.pixel_width
;
2068 /***********************************************************************
2070 ***********************************************************************/
2072 /* Value is non-zero if attribute ATTR may be used. ATTR should be
2073 one of the enumerators from enum no_color_bit, or a bit set built
2074 from them. Some display attributes may not be used together with
2075 color; the termcap capability `NC' specifies which ones. */
2077 #define MAY_USE_WITH_COLORS_P(ATTR) \
2078 (TN_max_colors > 0 \
2079 ? (TN_no_color_video & (ATTR)) == 0 \
2082 /* Turn appearances of face FACE_ID on tty frame F on.
2083 FACE_ID is a realized face ID number, in the face cache. */
2086 turn_on_face (f
, face_id
)
2090 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2091 long fg
= face
->foreground
;
2092 long bg
= face
->background
;
2094 /* Do this first because TS_end_standout_mode may be the same
2095 as TS_exit_attribute_mode, which turns all appearances off. */
2096 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
2098 if (TN_max_colors
> 0)
2100 if (fg
>= 0 && bg
>= 0)
2102 /* If the terminal supports colors, we can set them
2103 below without using reverse video. The face's fg
2104 and bg colors are set as they should appear on
2105 the screen, i.e. they take the inverse-video'ness
2106 of the face already into account. */
2108 else if (inverse_video
)
2110 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
2111 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
2112 toggle_highlight ();
2116 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
2117 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
2118 toggle_highlight ();
2123 /* If we can't display colors, use reverse video
2124 if the face specifies that. */
2127 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
2128 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
2129 toggle_highlight ();
2133 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
2134 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
2135 toggle_highlight ();
2140 if (face
->tty_bold_p
)
2142 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
2143 OUTPUT1_IF (TS_enter_bold_mode
);
2145 else if (face
->tty_dim_p
)
2146 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
2147 OUTPUT1_IF (TS_enter_dim_mode
);
2149 /* Alternate charset and blinking not yet used. */
2150 if (face
->tty_alt_charset_p
2151 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
2152 OUTPUT1_IF (TS_enter_alt_charset_mode
);
2154 if (face
->tty_blinking_p
2155 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
2156 OUTPUT1_IF (TS_enter_blink_mode
);
2158 if (face
->tty_underline_p
&& MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
2159 OUTPUT1_IF (TS_enter_underline_mode
);
2161 if (TN_max_colors
> 0)
2165 ts
= standout_mode
? TS_set_background
: TS_set_foreground
;
2168 p
= tparam (ts
, NULL
, 0, (int) fg
);
2173 ts
= standout_mode
? TS_set_foreground
: TS_set_background
;
2176 p
= tparam (ts
, NULL
, 0, (int) bg
);
2184 /* Turn off appearances of face FACE_ID on tty frame F. */
2187 turn_off_face (f
, face_id
)
2191 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2193 xassert (face
!= NULL
);
2195 if (TS_exit_attribute_mode
)
2197 /* Capability "me" will turn off appearance modes double-bright,
2198 half-bright, reverse-video, standout, underline. It may or
2199 may not turn off alt-char-mode. */
2200 if (face
->tty_bold_p
2202 || face
->tty_reverse_p
2203 || face
->tty_alt_charset_p
2204 || face
->tty_blinking_p
2205 || face
->tty_underline_p
)
2207 OUTPUT1_IF (TS_exit_attribute_mode
);
2208 if (strcmp (TS_exit_attribute_mode
, TS_end_standout_mode
) == 0)
2212 if (face
->tty_alt_charset_p
)
2213 OUTPUT_IF (TS_exit_alt_charset_mode
);
2217 /* If we don't have "me" we can only have those appearances
2218 that have exit sequences defined. */
2219 if (face
->tty_alt_charset_p
)
2220 OUTPUT_IF (TS_exit_alt_charset_mode
);
2222 if (face
->tty_underline_p
)
2223 OUTPUT_IF (TS_exit_underline_mode
);
2226 /* Switch back to default colors. */
2227 if (TN_max_colors
> 0
2228 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2229 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2230 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2231 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2232 OUTPUT1_IF (TS_orig_pair
);
2236 /* Return non-zero if the terminal on frame F supports all of the
2237 capabilities in CAPS simultaneously, with foreground and background
2238 colors FG and BG. */
2241 tty_capable_p (f
, caps
, fg
, bg
)
2244 unsigned long fg
, bg
;
2246 #define TTY_CAPABLE_P_TRY(cap, TS, NC_bit) \
2247 if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(NC_bit))) \
2250 TTY_CAPABLE_P_TRY (TTY_CAP_INVERSE
, TS_standout_mode
, NC_REVERSE
);
2251 TTY_CAPABLE_P_TRY (TTY_CAP_UNDERLINE
, TS_enter_underline_mode
, NC_UNDERLINE
);
2252 TTY_CAPABLE_P_TRY (TTY_CAP_BOLD
, TS_enter_bold_mode
, NC_BOLD
);
2253 TTY_CAPABLE_P_TRY (TTY_CAP_DIM
, TS_enter_dim_mode
, NC_DIM
);
2254 TTY_CAPABLE_P_TRY (TTY_CAP_BLINK
, TS_enter_blink_mode
, NC_BLINK
);
2255 TTY_CAPABLE_P_TRY (TTY_CAP_ALT_CHARSET
, TS_enter_alt_charset_mode
, NC_ALT_CHARSET
);
2262 /* Return non-zero if the terminal is capable to display colors. */
2264 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2266 doc
: /* Return non-nil if TTY can display colors on DISPLAY. */)
2268 Lisp_Object display
;
2270 return TN_max_colors
> 0 ? Qt
: Qnil
;
2273 /* Return the number of supported colors. */
2274 DEFUN ("tty-display-color-cells", Ftty_display_color_cells
,
2275 Stty_display_color_cells
, 0, 1, 0,
2276 doc
: /* Return the number of colors supported by TTY on DISPLAY. */)
2278 Lisp_Object display
;
2280 return make_number (TN_max_colors
);
2285 /* Save or restore the default color-related capabilities of this
2288 tty_default_color_capabilities (save
)
2292 *default_orig_pair
, *default_set_foreground
, *default_set_background
;
2293 static int default_max_colors
, default_max_pairs
, default_no_color_video
;
2297 if (default_orig_pair
)
2298 xfree (default_orig_pair
);
2299 default_orig_pair
= TS_orig_pair
? xstrdup (TS_orig_pair
) : NULL
;
2301 if (default_set_foreground
)
2302 xfree (default_set_foreground
);
2303 default_set_foreground
= TS_set_foreground
? xstrdup (TS_set_foreground
)
2306 if (default_set_background
)
2307 xfree (default_set_background
);
2308 default_set_background
= TS_set_background
? xstrdup (TS_set_background
)
2311 default_max_colors
= TN_max_colors
;
2312 default_max_pairs
= TN_max_pairs
;
2313 default_no_color_video
= TN_no_color_video
;
2317 TS_orig_pair
= default_orig_pair
;
2318 TS_set_foreground
= default_set_foreground
;
2319 TS_set_background
= default_set_background
;
2320 TN_max_colors
= default_max_colors
;
2321 TN_max_pairs
= default_max_pairs
;
2322 TN_no_color_video
= default_no_color_video
;
2326 /* Setup one of the standard tty color schemes according to MODE.
2327 MODE's value is generally the number of colors which we want to
2328 support; zero means set up for the default capabilities, the ones
2329 we saw at term_init time; -1 means turn off color support. */
2331 tty_setup_colors (mode
)
2334 /* Canonicalize all negative values of MODE. */
2340 case -1: /* no colors at all */
2343 TN_no_color_video
= 0;
2344 TS_set_foreground
= TS_set_background
= TS_orig_pair
= NULL
;
2346 case 0: /* default colors, if any */
2348 tty_default_color_capabilities (0);
2350 case 8: /* 8 standard ANSI colors */
2351 TS_orig_pair
= "\033[0m";
2353 TS_set_foreground
= "\033[3%p1%dm";
2354 TS_set_background
= "\033[4%p1%dm";
2356 TS_set_foreground
= "\033[3%dm";
2357 TS_set_background
= "\033[4%dm";
2361 TN_no_color_video
= 0;
2367 set_tty_color_mode (f
, val
)
2371 Lisp_Object color_mode_spec
, current_mode_spec
;
2372 Lisp_Object color_mode
, current_mode
;
2374 extern Lisp_Object Qtty_color_mode
;
2375 Lisp_Object tty_color_mode_alist
;
2377 tty_color_mode_alist
= Fintern_soft (build_string ("tty-color-mode-alist"),
2384 if (NILP (tty_color_mode_alist
))
2385 color_mode_spec
= Qnil
;
2387 color_mode_spec
= Fassq (val
, XSYMBOL (tty_color_mode_alist
)->value
);
2389 if (CONSP (color_mode_spec
))
2390 color_mode
= XCDR (color_mode_spec
);
2395 current_mode_spec
= assq_no_quit (Qtty_color_mode
, f
->param_alist
);
2397 if (CONSP (current_mode_spec
))
2398 current_mode
= XCDR (current_mode_spec
);
2400 current_mode
= Qnil
;
2401 if (INTEGERP (color_mode
))
2402 mode
= XINT (color_mode
);
2404 mode
= 0; /* meaning default */
2405 if (INTEGERP (current_mode
))
2406 old_mode
= XINT (current_mode
);
2410 if (mode
!= old_mode
)
2412 tty_setup_colors (mode
);
2413 /* This recomputes all the faces given the new color
2415 call0 (intern ("tty-set-up-initial-frame-faces"));
2420 #endif /* !WINDOWSNT */
2423 /***********************************************************************
2425 ***********************************************************************/
2428 term_init (terminal_type
)
2429 char *terminal_type
;
2432 char **address
= &area
;
2433 char *buffer
= NULL
;
2434 int buffer_size
= 4096;
2437 struct frame
*sf
= XFRAME (selected_frame
);
2439 encode_terminal_src_size
= 0;
2440 encode_terminal_dst_size
= 0;
2443 initialize_w32_display ();
2447 area
= (char *) xmalloc (2044);
2449 FrameRows
= FRAME_LINES (sf
);
2450 FrameCols
= FRAME_COLS (sf
);
2451 specified_window
= FRAME_LINES (sf
);
2453 delete_in_insert_mode
= 1;
2456 scroll_region_ok
= 0;
2458 /* Seems to insert lines when it's not supposed to, messing
2459 up the display. In doing a trace, it didn't seem to be
2460 called much, so I don't think we're losing anything by
2463 line_ins_del_ok
= 0;
2464 char_ins_del_ok
= 1;
2468 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2469 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2470 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2473 #else /* not WINDOWSNT */
2477 buffer
= (char *) xmalloc (buffer_size
);
2478 status
= tgetent (buffer
, terminal_type
);
2482 fatal ("Cannot open terminfo database file");
2484 fatal ("Cannot open termcap database file");
2490 fatal ("Terminal type %s is not defined.\n\
2491 If that is not the actual type of terminal you have,\n\
2492 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2493 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2494 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2497 fatal ("Terminal type %s is not defined.\n\
2498 If that is not the actual type of terminal you have,\n\
2499 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2500 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2501 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2507 if (strlen (buffer
) >= buffer_size
)
2509 buffer_size
= strlen (buffer
);
2511 area
= (char *) xmalloc (buffer_size
);
2513 TS_ins_line
= tgetstr ("al", address
);
2514 TS_ins_multi_lines
= tgetstr ("AL", address
);
2515 TS_bell
= tgetstr ("bl", address
);
2516 BackTab
= tgetstr ("bt", address
);
2517 TS_clr_to_bottom
= tgetstr ("cd", address
);
2518 TS_clr_line
= tgetstr ("ce", address
);
2519 TS_clr_frame
= tgetstr ("cl", address
);
2520 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2521 AbsPosition
= tgetstr ("cm", address
);
2522 CR
= tgetstr ("cr", address
);
2523 TS_set_scroll_region
= tgetstr ("cs", address
);
2524 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2525 RowPosition
= tgetstr ("cv", address
);
2526 TS_del_char
= tgetstr ("dc", address
);
2527 TS_del_multi_chars
= tgetstr ("DC", address
);
2528 TS_del_line
= tgetstr ("dl", address
);
2529 TS_del_multi_lines
= tgetstr ("DL", address
);
2530 TS_delete_mode
= tgetstr ("dm", address
);
2531 TS_end_delete_mode
= tgetstr ("ed", address
);
2532 TS_end_insert_mode
= tgetstr ("ei", address
);
2533 Home
= tgetstr ("ho", address
);
2534 TS_ins_char
= tgetstr ("ic", address
);
2535 TS_ins_multi_chars
= tgetstr ("IC", address
);
2536 TS_insert_mode
= tgetstr ("im", address
);
2537 TS_pad_inserted_char
= tgetstr ("ip", address
);
2538 TS_end_keypad_mode
= tgetstr ("ke", address
);
2539 TS_keypad_mode
= tgetstr ("ks", address
);
2540 LastLine
= tgetstr ("ll", address
);
2541 Right
= tgetstr ("nd", address
);
2542 Down
= tgetstr ("do", address
);
2544 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2546 /* VMS puts a carriage return before each linefeed,
2547 so it is not safe to use linefeeds. */
2548 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2551 if (tgetflag ("bs"))
2552 Left
= "\b"; /* can't possibly be longer! */
2553 else /* (Actually, "bs" is obsolete...) */
2554 Left
= tgetstr ("le", address
);
2556 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2557 TS_pad_char
= tgetstr ("pc", address
);
2558 TS_repeat
= tgetstr ("rp", address
);
2559 TS_end_standout_mode
= tgetstr ("se", address
);
2560 TS_fwd_scroll
= tgetstr ("sf", address
);
2561 TS_standout_mode
= tgetstr ("so", address
);
2562 TS_rev_scroll
= tgetstr ("sr", address
);
2563 Wcm
.cm_tab
= tgetstr ("ta", address
);
2564 TS_end_termcap_modes
= tgetstr ("te", address
);
2565 TS_termcap_modes
= tgetstr ("ti", address
);
2566 Up
= tgetstr ("up", address
);
2567 TS_visible_bell
= tgetstr ("vb", address
);
2568 TS_cursor_normal
= tgetstr ("ve", address
);
2569 TS_cursor_visible
= tgetstr ("vs", address
);
2570 TS_cursor_invisible
= tgetstr ("vi", address
);
2571 TS_set_window
= tgetstr ("wi", address
);
2573 TS_enter_underline_mode
= tgetstr ("us", address
);
2574 TS_exit_underline_mode
= tgetstr ("ue", address
);
2575 TS_enter_bold_mode
= tgetstr ("md", address
);
2576 TS_enter_dim_mode
= tgetstr ("mh", address
);
2577 TS_enter_blink_mode
= tgetstr ("mb", address
);
2578 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2579 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2580 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2581 TS_exit_attribute_mode
= tgetstr ("me", address
);
2583 MultiUp
= tgetstr ("UP", address
);
2584 MultiDown
= tgetstr ("DO", address
);
2585 MultiLeft
= tgetstr ("LE", address
);
2586 MultiRight
= tgetstr ("RI", address
);
2588 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2589 color because we can't switch back to the default foreground and
2591 TS_orig_pair
= tgetstr ("op", address
);
2594 TS_set_foreground
= tgetstr ("AF", address
);
2595 TS_set_background
= tgetstr ("AB", address
);
2596 if (!TS_set_foreground
)
2599 TS_set_foreground
= tgetstr ("Sf", address
);
2600 TS_set_background
= tgetstr ("Sb", address
);
2603 TN_max_colors
= tgetnum ("Co");
2604 TN_max_pairs
= tgetnum ("pa");
2606 TN_no_color_video
= tgetnum ("NC");
2607 if (TN_no_color_video
== -1)
2608 TN_no_color_video
= 0;
2611 tty_default_color_capabilities (1);
2613 MagicWrap
= tgetflag ("xn");
2614 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2615 the former flag imply the latter. */
2616 AutoWrap
= MagicWrap
|| tgetflag ("am");
2617 memory_below_frame
= tgetflag ("db");
2618 TF_hazeltine
= tgetflag ("hz");
2619 must_write_spaces
= tgetflag ("in");
2620 meta_key
= tgetflag ("km") || tgetflag ("MT");
2621 TF_insmode_motion
= tgetflag ("mi");
2622 TF_standout_motion
= tgetflag ("ms");
2623 TF_underscore
= tgetflag ("ul");
2624 TF_teleray
= tgetflag ("xt");
2626 term_get_fkeys (address
);
2628 /* Get frame size from system, or else from termcap. */
2631 get_frame_size (&width
, &height
);
2632 FRAME_COLS (sf
) = width
;
2633 FRAME_LINES (sf
) = height
;
2636 if (FRAME_COLS (sf
) <= 0)
2637 SET_FRAME_COLS (sf
, tgetnum ("co"));
2639 /* Keep width and external_width consistent */
2640 SET_FRAME_COLS (sf
, FRAME_COLS (sf
));
2641 if (FRAME_LINES (sf
) <= 0)
2642 FRAME_LINES (sf
) = tgetnum ("li");
2644 if (FRAME_LINES (sf
) < 3 || FRAME_COLS (sf
) < 3)
2645 fatal ("Screen size %dx%d is too small",
2646 FRAME_LINES (sf
), FRAME_COLS (sf
));
2648 min_padding_speed
= tgetnum ("pb");
2649 TabWidth
= tgetnum ("tw");
2652 /* These capabilities commonly use ^J.
2653 I don't know why, but sending them on VMS does not work;
2654 it causes following spaces to be lost, sometimes.
2655 For now, the simplest fix is to avoid using these capabilities ever. */
2656 if (Down
&& Down
[0] == '\n')
2664 TS_fwd_scroll
= Down
;
2666 PC
= TS_pad_char
? *TS_pad_char
: 0;
2671 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2672 and newer termcap doc does not seem to say there is a default.
2677 /* We don't support standout modes that use `magic cookies', so
2678 turn off any that do. */
2679 if (TS_standout_mode
&& tgetnum ("sg") >= 0)
2681 TS_standout_mode
= 0;
2682 TS_end_standout_mode
= 0;
2684 if (TS_enter_underline_mode
&& tgetnum ("ug") >= 0)
2686 TS_enter_underline_mode
= 0;
2687 TS_exit_underline_mode
= 0;
2690 /* If there's no standout mode, try to use underlining instead. */
2691 if (TS_standout_mode
== 0)
2693 TS_standout_mode
= TS_enter_underline_mode
;
2694 TS_end_standout_mode
= TS_exit_underline_mode
;
2697 /* If no `se' string, try using a `me' string instead.
2698 If that fails, we can't use standout mode at all. */
2699 if (TS_end_standout_mode
== 0)
2701 char *s
= tgetstr ("me", address
);
2703 TS_end_standout_mode
= s
;
2705 TS_standout_mode
= 0;
2711 /* We can't support standout mode, because it uses magic cookies. */
2712 TS_standout_mode
= 0;
2713 /* But that means we cannot rely on ^M to go to column zero! */
2715 /* LF can't be trusted either -- can alter hpos */
2716 /* if move at column 0 thru a line with TS_standout_mode */
2720 /* Special handling for certain terminal types known to need it */
2722 if (!strcmp (terminal_type
, "supdup"))
2724 memory_below_frame
= 1;
2725 Wcm
.cm_losewrap
= 1;
2727 if (!strncmp (terminal_type
, "c10", 3)
2728 || !strcmp (terminal_type
, "perq"))
2730 /* Supply a makeshift :wi string.
2731 This string is not valid in general since it works only
2732 for windows starting at the upper left corner;
2733 but that is all Emacs uses.
2735 This string works only if the frame is using
2736 the top of the video memory, because addressing is memory-relative.
2737 So first check the :ti string to see if that is true.
2739 It would be simpler if the :wi string could go in the termcap
2740 entry, but it can't because it is not fully valid.
2741 If it were in the termcap entry, it would confuse other programs. */
2744 p
= TS_termcap_modes
;
2745 while (*p
&& strcmp (p
, "\033v "))
2748 TS_set_window
= "\033v%C %C %C %C ";
2750 /* Termcap entry often fails to have :in: flag */
2751 must_write_spaces
= 1;
2752 /* :ti string typically fails to have \E^G! in it */
2753 /* This limits scope of insert-char to one line. */
2754 strcpy (area
, TS_termcap_modes
);
2755 strcat (area
, "\033\007!");
2756 TS_termcap_modes
= area
;
2757 area
+= strlen (area
) + 1;
2759 /* Change all %+ parameters to %C, to handle
2760 values above 96 correctly for the C100. */
2763 if (p
[0] == '%' && p
[1] == '+')
2769 FrameRows
= FRAME_LINES (sf
);
2770 FrameCols
= FRAME_COLS (sf
);
2771 specified_window
= FRAME_LINES (sf
);
2773 if (Wcm_init () == -1) /* can't do cursor motion */
2775 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2776 It lacks the ability to position the cursor.\n\
2777 If that is not the actual type of terminal you have, use either the\n\
2778 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2779 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2783 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2784 It lacks the ability to position the cursor.\n\
2785 If that is not the actual type of terminal you have,\n\
2786 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2787 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2788 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2790 # else /* TERMCAP */
2791 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2792 It lacks the ability to position the cursor.\n\
2793 If that is not the actual type of terminal you have,\n\
2794 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2795 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2796 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2798 # endif /* TERMINFO */
2800 if (FRAME_LINES (sf
) <= 0
2801 || FRAME_COLS (sf
) <= 0)
2802 fatal ("The frame size has not been specified");
2804 delete_in_insert_mode
2805 = TS_delete_mode
&& TS_insert_mode
2806 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2808 se_is_so
= (TS_standout_mode
2809 && TS_end_standout_mode
2810 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2812 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2816 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2818 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2819 && (TS_del_line
|| TS_del_multi_lines
))
2820 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2822 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2823 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2824 && (TS_del_char
|| TS_del_multi_chars
));
2826 fast_clear_end_of_line
= TS_clr_line
!= 0;
2829 if (read_socket_hook
) /* Baudrate is somewhat */
2830 /* meaningless in this case */
2833 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2834 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2835 #endif /* WINDOWSNT */
2842 fatal (str
, arg1
, arg2
)
2843 char *str
, *arg1
, *arg2
;
2845 fprintf (stderr
, "emacs: ");
2846 fprintf (stderr
, str
, arg1
, arg2
);
2847 fprintf (stderr
, "\n");
2852 DEFUN ("tty-no-underline", Ftty_no_underline
, Stty_no_underline
, 0, 0, 0,
2853 doc
: /* Declare that this terminal does not handle underlining.
2854 This is used to override the terminfo data, for certain terminals that
2855 do not really do underlining, but say that they do. */)
2858 TS_enter_underline_mode
= 0;
2865 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2866 doc
: /* Non-nil means the system uses terminfo rather than termcap.
2867 This variable can be used by terminal emulator packages. */);
2869 system_uses_terminfo
= 1;
2871 system_uses_terminfo
= 0;
2874 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2875 doc
: /* Non-nil means call this function to ring the bell.
2876 The function should accept no arguments. */);
2877 Vring_bell_function
= Qnil
;
2879 DEFVAR_BOOL ("visible-cursor", &visible_cursor
,
2880 doc
: /* Non-nil means to make the cursor very visible.
2881 This only has an effect when running in a text terminal.
2882 What means \"very visible\" is up to your terminal. It may make the cursor
2883 bigger, or it may make it blink, or it may do nothing at all. */);
2886 defsubr (&Stty_display_color_p
);
2887 defsubr (&Stty_display_color_cells
);
2888 defsubr (&Stty_no_underline
);
2890 fullscreen_hook
= NULL
;
2893 /* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
2894 (do not change this comment) */