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 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"
39 #include "termhooks.h"
40 #include "dispextern.h"
44 /* For now, don't try to include termcap.h. On some systems,
45 configure finds a non-standard termcap.h that the main build
48 #if defined HAVE_TERMCAP_H && 0
51 extern void tputs
P_ ((const char *, int, int (*)(int)));
52 extern int tgetent
P_ ((char *, const char *));
53 extern int tgetflag
P_ ((char *id
));
54 extern int tgetnum
P_ ((char *id
));
65 static void turn_on_face
P_ ((struct frame
*, int face_id
));
66 static void turn_off_face
P_ ((struct frame
*, int face_id
));
67 static void tty_show_cursor
P_ ((void));
68 static void tty_hide_cursor
P_ ((void));
71 tputs (a, (int) (FRAME_LINES (XFRAME (selected_frame)) - curY), cmputc)
72 #define OUTPUT1(a) tputs (a, 1, cmputc)
73 #define OUTPUTL(a, lines) tputs (a, lines, cmputc)
75 #define OUTPUT_IF(a) \
78 tputs (a, (int) (FRAME_LINES (XFRAME (selected_frame)) \
82 #define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
84 /* Display space properties */
86 extern Lisp_Object Qspace
, QCalign_to
, QCwidth
;
88 /* Function to use to ring the bell. */
90 Lisp_Object Vring_bell_function
;
92 /* If true, use "vs", otherwise use "ve" to make the cursor visible. */
94 static int visible_cursor
;
96 /* Terminal characteristics that higher levels want to look at.
97 These are all extern'd in termchar.h */
99 int must_write_spaces
; /* Nonzero means spaces in the text
100 must actually be output; can't just skip
101 over some columns to leave them blank. */
102 int min_padding_speed
; /* Speed below which no padding necessary */
104 int line_ins_del_ok
; /* Terminal can insert and delete lines */
105 int char_ins_del_ok
; /* Terminal can insert and delete chars */
106 int scroll_region_ok
; /* Terminal supports setting the
108 int scroll_region_cost
; /* Cost of setting a scroll window,
109 measured in characters */
110 int memory_below_frame
; /* Terminal remembers lines
111 scrolled off bottom */
112 int fast_clear_end_of_line
; /* Terminal has a `ce' string */
114 /* Nonzero means no need to redraw the entire frame on resuming
115 a suspended Emacs. This is useful on terminals with multiple pages,
116 where one page is used for Emacs and another for all else. */
118 int no_redraw_on_reenter
;
120 /* Hook functions that you can set to snap out the functions in this file.
121 These are all extern'd in termhooks.h */
123 void (*cursor_to_hook
) P_ ((int, int));
124 void (*raw_cursor_to_hook
) P_ ((int, int));
125 void (*clear_to_end_hook
) P_ ((void));
126 void (*clear_frame_hook
) P_ ((void));
127 void (*clear_end_of_line_hook
) P_ ((int));
129 void (*ins_del_lines_hook
) P_ ((int, int));
131 void (*delete_glyphs_hook
) P_ ((int));
133 void (*ring_bell_hook
) P_ ((void));
135 void (*reset_terminal_modes_hook
) P_ ((void));
136 void (*set_terminal_modes_hook
) P_ ((void));
137 void (*update_begin_hook
) P_ ((struct frame
*));
138 void (*update_end_hook
) P_ ((struct frame
*));
139 void (*set_terminal_window_hook
) P_ ((int));
140 void (*insert_glyphs_hook
) P_ ((struct glyph
*, int));
141 void (*write_glyphs_hook
) P_ ((struct glyph
*, int));
142 void (*delete_glyphs_hook
) P_ ((int));
144 int (*read_socket_hook
) P_ ((int, int, struct input_event
*));
146 void (*frame_up_to_date_hook
) P_ ((struct frame
*));
148 /* Return the current position of the mouse.
150 Set *f to the frame the mouse is in, or zero if the mouse is in no
151 Emacs frame. If it is set to zero, all the other arguments are
154 If the motion started in a scroll bar, set *bar_window to the
155 scroll bar's window, *part to the part the mouse is currently over,
156 *x to the position of the mouse along the scroll bar, and *y to the
157 overall length of the scroll bar.
159 Otherwise, set *bar_window to Qnil, and *x and *y to the column and
160 row of the character cell the mouse is over.
162 Set *time to the time the mouse was at the returned position.
164 This should clear mouse_moved until the next motion
167 void (*mouse_position_hook
) P_ ((FRAME_PTR
*f
, int insist
,
168 Lisp_Object
*bar_window
,
169 enum scroll_bar_part
*part
,
172 unsigned long *time
));
174 /* When reading from a minibuffer in a different frame, Emacs wants
175 to shift the highlight from the selected frame to the mini-buffer's
176 frame; under X, this means it lies about where the focus is.
177 This hook tells the window system code to re-decide where to put
180 void (*frame_rehighlight_hook
) P_ ((FRAME_PTR f
));
182 /* If we're displaying frames using a window system that can stack
183 frames on top of each other, this hook allows you to bring a frame
184 to the front, or bury it behind all the other windows. If this
185 hook is zero, that means the device we're displaying on doesn't
186 support overlapping frames, so there's no need to raise or lower
189 If RAISE is non-zero, F is brought to the front, before all other
190 windows. If RAISE is zero, F is sent to the back, behind all other
193 void (*frame_raise_lower_hook
) P_ ((FRAME_PTR f
, int raise
));
195 /* Set the vertical scroll bar for WINDOW to have its upper left corner
196 at (TOP, LEFT), and be LENGTH rows high. Set its handle to
197 indicate that we are displaying PORTION characters out of a total
198 of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
199 have a scroll bar, create one for it. */
201 void (*set_vertical_scroll_bar_hook
)
202 P_ ((struct window
*window
,
203 int portion
, int whole
, int position
));
206 /* The following three hooks are used when we're doing a thorough
207 redisplay of the frame. We don't explicitly know which scroll bars
208 are going to be deleted, because keeping track of when windows go
209 away is a real pain - can you say set-window-configuration?
210 Instead, we just assert at the beginning of redisplay that *all*
211 scroll bars are to be removed, and then save scroll bars from the
212 fiery pit when we actually redisplay their window. */
214 /* Arrange for all scroll bars on FRAME to be removed at the next call
215 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
216 `*redeem_scroll_bar_hook' is applied to its window before the judgment.
218 This should be applied to each frame each time its window tree is
219 redisplayed, even if it is not displaying scroll bars at the moment;
220 if the HAS_SCROLL_BARS flag has just been turned off, only calling
221 this and the judge_scroll_bars_hook will get rid of them.
223 If non-zero, this hook should be safe to apply to any frame,
224 whether or not it can support scroll bars, and whether or not it is
225 currently displaying them. */
227 void (*condemn_scroll_bars_hook
) P_ ((FRAME_PTR frame
));
229 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
230 Note that it's okay to redeem a scroll bar that is not condemned. */
232 void (*redeem_scroll_bar_hook
) P_ ((struct window
*window
));
234 /* Remove all scroll bars on FRAME that haven't been saved since the
235 last call to `*condemn_scroll_bars_hook'.
237 This should be applied to each frame after each time its window
238 tree is redisplayed, even if it is not displaying scroll bars at the
239 moment; if the HAS_SCROLL_BARS flag has just been turned off, only
240 calling this and condemn_scroll_bars_hook will get rid of them.
242 If non-zero, this hook should be safe to apply to any frame,
243 whether or not it can support scroll bars, and whether or not it is
244 currently displaying them. */
246 void (*judge_scroll_bars_hook
) P_ ((FRAME_PTR FRAME
));
248 /* Strings, numbers and flags taken from the termcap entry. */
250 char *TS_ins_line
; /* "al" */
251 char *TS_ins_multi_lines
; /* "AL" (one parameter, # lines to insert) */
252 char *TS_bell
; /* "bl" */
253 char *TS_clr_to_bottom
; /* "cd" */
254 char *TS_clr_line
; /* "ce", clear to end of line */
255 char *TS_clr_frame
; /* "cl" */
256 char *TS_set_scroll_region
; /* "cs" (2 params, first line and last line) */
257 char *TS_set_scroll_region_1
; /* "cS" (4 params: total lines,
258 lines above scroll region, lines below it,
259 total lines again) */
260 char *TS_del_char
; /* "dc" */
261 char *TS_del_multi_chars
; /* "DC" (one parameter, # chars to delete) */
262 char *TS_del_line
; /* "dl" */
263 char *TS_del_multi_lines
; /* "DL" (one parameter, # lines to delete) */
264 char *TS_delete_mode
; /* "dm", enter character-delete mode */
265 char *TS_end_delete_mode
; /* "ed", leave character-delete mode */
266 char *TS_end_insert_mode
; /* "ei", leave character-insert mode */
267 char *TS_ins_char
; /* "ic" */
268 char *TS_ins_multi_chars
; /* "IC" (one parameter, # chars to insert) */
269 char *TS_insert_mode
; /* "im", enter character-insert mode */
270 char *TS_pad_inserted_char
; /* "ip". Just padding, no commands. */
271 char *TS_end_keypad_mode
; /* "ke" */
272 char *TS_keypad_mode
; /* "ks" */
273 char *TS_pad_char
; /* "pc", char to use as padding */
274 char *TS_repeat
; /* "rp" (2 params, # times to repeat
275 and character to be repeated) */
276 char *TS_end_standout_mode
; /* "se" */
277 char *TS_fwd_scroll
; /* "sf" */
278 char *TS_standout_mode
; /* "so" */
279 char *TS_rev_scroll
; /* "sr" */
280 char *TS_end_termcap_modes
; /* "te" */
281 char *TS_termcap_modes
; /* "ti" */
282 char *TS_visible_bell
; /* "vb" */
283 char *TS_cursor_normal
; /* "ve" */
284 char *TS_cursor_visible
; /* "vs" */
285 char *TS_cursor_invisible
; /* "vi" */
286 char *TS_set_window
; /* "wi" (4 params, start and end of window,
287 each as vpos and hpos) */
289 /* Value of the "NC" (no_color_video) capability, or 0 if not
292 static int TN_no_color_video
;
294 /* Meaning of bits in no_color_video. Each bit set means that the
295 corresponding attribute cannot be combined with colors. */
299 NC_STANDOUT
= 1 << 0,
300 NC_UNDERLINE
= 1 << 1,
307 NC_ALT_CHARSET
= 1 << 8
310 /* "md" -- turn on bold (extra bright mode). */
312 char *TS_enter_bold_mode
;
314 /* "mh" -- turn on half-bright mode. */
316 char *TS_enter_dim_mode
;
318 /* "mb" -- enter blinking mode. */
320 char *TS_enter_blink_mode
;
322 /* "mr" -- enter reverse video mode. */
324 char *TS_enter_reverse_mode
;
326 /* "us"/"ue" -- start/end underlining. */
328 char *TS_exit_underline_mode
, *TS_enter_underline_mode
;
330 /* "as"/"ae" -- start/end alternate character set. Not really
333 char *TS_enter_alt_charset_mode
, *TS_exit_alt_charset_mode
;
335 /* "me" -- switch appearances off. */
337 char *TS_exit_attribute_mode
;
339 /* "Co" -- number of colors. */
343 /* "pa" -- max. number of color pairs on screen. Not handled yet.
344 Could be a problem if not equal to TN_max_colors * TN_max_colors. */
348 /* "op" -- SVr4 set default pair to its original value. */
352 /* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
353 1 param, the color index. */
355 char *TS_set_foreground
, *TS_set_background
;
357 int TF_hazeltine
; /* termcap hz flag. */
358 int TF_insmode_motion
; /* termcap mi flag: can move while in insert mode. */
359 int TF_standout_motion
; /* termcap mi flag: can move while in standout mode. */
360 int TF_underscore
; /* termcap ul flag: _ underlines if over-struck on
361 non-blank position. Must clear before writing _. */
362 int TF_teleray
; /* termcap xt flag: many weird consequences.
365 static int RPov
; /* # chars to start a TS_repeat */
367 static int delete_in_insert_mode
; /* delete mode == insert mode */
369 static int se_is_so
; /* 1 if same string both enters and leaves
374 /* The largest frame width in any call to calculate_costs. */
378 /* The largest frame height in any call to calculate_costs. */
382 static int costs_set
; /* Nonzero if costs have been calculated. */
384 int insert_mode
; /* Nonzero when in insert mode. */
385 int standout_mode
; /* Nonzero when in standout mode. */
387 /* Size of window specified by higher levels.
388 This is the number of lines, from the top of frame downwards,
389 which can participate in insert-line/delete-line operations.
391 Effectively it excludes the bottom frame_lines - specified_window_size
392 lines from those operations. */
394 int specified_window
;
396 /* Frame currently being redisplayed; 0 if not currently redisplaying.
397 (Direct output does not count). */
399 FRAME_PTR updating_frame
;
401 /* Provided for lisp packages. */
403 static int system_uses_terminfo
;
405 /* Flag used in tty_show/hide_cursor. */
407 static int tty_cursor_hidden
;
411 extern char *tgetstr ();
415 /* We aren't X windows, but we aren't termcap either. This makes me
416 uncertain as to what value to use for frame.output_method. For
417 this file, we'll define FRAME_TERMCAP_P to be zero so that our
418 output hooks get called instead of the termcap functions. Probably
419 the best long-term solution is to define an output_windows_nt... */
421 #undef FRAME_TERMCAP_P
422 #define FRAME_TERMCAP_P(_f_) 0
423 #endif /* WINDOWSNT */
428 if (!NILP (Vring_bell_function
))
430 Lisp_Object function
;
432 /* Temporarily set the global variable to nil
433 so that if we get an error, it stays nil
434 and we don't call it over and over.
436 We don't specbind it, because that would carefully
437 restore the bad value if there's an error
438 and make the loop of errors happen anyway. */
440 function
= Vring_bell_function
;
441 Vring_bell_function
= Qnil
;
445 Vring_bell_function
= function
;
447 else if (!FRAME_TERMCAP_P (XFRAME (selected_frame
)))
448 (*ring_bell_hook
) ();
450 OUTPUT (TS_visible_bell
&& visible_bell
? TS_visible_bell
: TS_bell
);
454 set_terminal_modes ()
456 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
458 if (TS_termcap_modes
)
459 OUTPUT (TS_termcap_modes
);
462 /* Output enough newlines to scroll all the old screen contents
463 off the screen, so it won't be overwritten and lost. */
465 for (i
= 0; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
469 OUTPUT_IF (visible_cursor
? TS_cursor_visible
: TS_cursor_normal
);
470 OUTPUT_IF (TS_keypad_mode
);
474 (*set_terminal_modes_hook
) ();
478 reset_terminal_modes ()
480 if (FRAME_TERMCAP_P (XFRAME (selected_frame
)))
482 turn_off_highlight ();
484 OUTPUT_IF (TS_end_keypad_mode
);
485 OUTPUT_IF (TS_cursor_normal
);
486 OUTPUT_IF (TS_end_termcap_modes
);
487 OUTPUT_IF (TS_orig_pair
);
488 /* Output raw CR so kernel can track the cursor hpos. */
491 else if (reset_terminal_modes_hook
)
492 (*reset_terminal_modes_hook
) ();
500 if (!FRAME_TERMCAP_P (f
))
501 update_begin_hook (f
);
508 if (FRAME_TERMCAP_P (f
))
510 if (!XWINDOW (selected_window
)->cursor_off_p
)
513 background_highlight ();
518 updating_frame
= NULL
;
522 set_terminal_window (size
)
525 if (FRAME_TERMCAP_P (updating_frame
))
527 specified_window
= size
? size
: FRAME_LINES (updating_frame
);
528 if (scroll_region_ok
)
529 set_scroll_region (0, specified_window
);
532 set_terminal_window_hook (size
);
536 set_scroll_region (start
, stop
)
540 struct frame
*sf
= XFRAME (selected_frame
);
542 if (TS_set_scroll_region
)
543 buf
= tparam (TS_set_scroll_region
, 0, 0, start
, stop
- 1);
544 else if (TS_set_scroll_region_1
)
545 buf
= tparam (TS_set_scroll_region_1
, 0, 0,
546 FRAME_LINES (sf
), start
,
547 FRAME_LINES (sf
) - stop
,
550 buf
= tparam (TS_set_window
, 0, 0, start
, 0, stop
, FRAME_COLS (sf
));
562 OUTPUT (TS_insert_mode
);
570 OUTPUT (TS_end_insert_mode
);
574 /* Handle highlighting. */
577 turn_off_highlight ()
580 OUTPUT_IF (TS_end_standout_mode
);
588 OUTPUT_IF (TS_standout_mode
);
596 turn_off_highlight ();
598 turn_on_highlight ();
602 /* Make cursor invisible. */
607 if (tty_cursor_hidden
== 0)
609 tty_cursor_hidden
= 1;
610 OUTPUT_IF (TS_cursor_invisible
);
615 /* Ensure that cursor is visible. */
620 if (tty_cursor_hidden
)
622 tty_cursor_hidden
= 0;
623 OUTPUT_IF (TS_cursor_normal
);
625 OUTPUT_IF (TS_cursor_visible
);
630 /* Set standout mode to the state it should be in for
631 empty space inside windows. What this is,
632 depends on the user option inverse-video. */
635 background_highlight ()
638 turn_on_highlight ();
640 turn_off_highlight ();
643 /* Set standout mode to the mode specified for the text to be output. */
646 highlight_if_desired ()
649 turn_on_highlight ();
651 turn_off_highlight ();
655 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
656 frame-relative coordinates. */
659 cursor_to (vpos
, hpos
)
662 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
664 if (! FRAME_TERMCAP_P (f
) && cursor_to_hook
)
666 (*cursor_to_hook
) (vpos
, hpos
);
670 /* Detect the case where we are called from reset_sys_modes
671 and the costs have never been calculated. Do nothing. */
675 if (curY
== vpos
&& curX
== hpos
)
677 if (!TF_standout_motion
)
678 background_highlight ();
679 if (!TF_insmode_motion
)
684 /* Similar but don't take any account of the wasted characters. */
687 raw_cursor_to (row
, col
)
690 struct frame
*f
= updating_frame
? updating_frame
: XFRAME (selected_frame
);
691 if (! FRAME_TERMCAP_P (f
))
693 (*raw_cursor_to_hook
) (row
, col
);
696 if (curY
== row
&& curX
== col
)
698 if (!TF_standout_motion
)
699 background_highlight ();
700 if (!TF_insmode_motion
)
705 /* Erase operations */
707 /* clear from cursor to end of frame */
713 if (clear_to_end_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
715 (*clear_to_end_hook
) ();
718 if (TS_clr_to_bottom
)
720 background_highlight ();
721 OUTPUT (TS_clr_to_bottom
);
725 for (i
= curY
; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
728 clear_end_of_line (FRAME_COLS (XFRAME (selected_frame
)));
733 /* Clear entire frame */
738 struct frame
*sf
= XFRAME (selected_frame
);
741 && ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
: sf
)))
743 (*clear_frame_hook
) ();
748 background_highlight ();
749 OUTPUT (TS_clr_frame
);
759 /* Clear from cursor to end of line.
760 Assume that the line is already clear starting at column first_unused_hpos.
762 Note that the cursor may be moved, on terminals lacking a `ce' string. */
765 clear_end_of_line (first_unused_hpos
)
766 int first_unused_hpos
;
770 if (clear_end_of_line_hook
771 && ! FRAME_TERMCAP_P ((updating_frame
773 : XFRAME (selected_frame
))))
775 (*clear_end_of_line_hook
) (first_unused_hpos
);
779 /* Detect the case where we are called from reset_sys_modes
780 and the costs have never been calculated. Do nothing. */
784 if (curX
>= first_unused_hpos
)
786 background_highlight ();
789 OUTPUT1 (TS_clr_line
);
792 { /* have to do it the hard way */
793 struct frame
*sf
= XFRAME (selected_frame
);
796 /* Do not write in last row last col with Auto-wrap on. */
797 if (AutoWrap
&& curY
== FRAME_LINES (sf
) - 1
798 && first_unused_hpos
== FRAME_COLS (sf
))
801 for (i
= curX
; i
< first_unused_hpos
; i
++)
804 fputc (' ', termscript
);
807 cmplus (first_unused_hpos
- curX
);
811 /* Buffers to store the source and result of code conversion for terminal. */
812 static unsigned char *encode_terminal_src
;
813 static unsigned char *encode_terminal_dst
;
814 /* Allocated sizes of the above buffers. */
815 static int encode_terminal_src_size
;
816 static int encode_terminal_dst_size
;
818 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes.
819 Set CODING->produced to the byte-length of the resulting byte
820 sequence, and return a pointer to that byte sequence. */
823 encode_terminal_code (src
, src_len
, coding
)
826 struct coding_system
*coding
;
828 struct glyph
*src_end
= src
+ src_len
;
831 int nchars
, nbytes
, required
;
832 register int tlen
= GLYPH_TABLE_LENGTH
;
833 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
834 Lisp_Object charset_list
;
836 /* Allocate sufficient size of buffer to store all characters in
837 multibyte-form. But, it may be enlarged on demand if
838 Vglyph_table contains a string. */
839 required
= MAX_MULTIBYTE_LENGTH
* src_len
;
840 if (encode_terminal_src_size
< required
)
842 if (encode_terminal_src_size
== 0)
843 encode_terminal_src
= xmalloc (required
);
845 encode_terminal_src
= xrealloc (encode_terminal_src
, required
);
846 encode_terminal_src_size
= required
;
849 charset_list
= coding_charset_list (coding
);
851 buf
= encode_terminal_src
;
853 while (src
< src_end
)
855 /* We must skip glyphs to be padded for a wide character. */
856 if (! CHAR_GLYPH_PADDING_P (*src
))
862 g
= GLYPH_FROM_CHAR_GLYPH (src
[0]);
864 if (g
< 0 || g
>= tlen
)
866 /* This glyph doesn't has an entry in Vglyph_table. */
871 /* This glyph has an entry in Vglyph_table,
872 so process any alias before testing for simpleness. */
873 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
875 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
876 /* We set the multi-byte form of a character in G
877 (that should be an ASCII character) at WORKBUF. */
878 c
= FAST_GLYPH_CHAR (g
);
880 /* We have a string in Vglyph_table. */
886 if (char_charset (c
, charset_list
, NULL
))
888 /* Store the multibyte form of C at BUF. */
889 buf
+= CHAR_STRING (c
, buf
);
894 /* C is not encodable. */
897 while (src
+ 1 < src_end
&& CHAR_GLYPH_PADDING_P (src
[1]))
907 unsigned char *p
= SDATA (string
), *pend
= p
+ SBYTES (string
);
909 if (! STRING_MULTIBYTE (string
))
910 string
= string_to_multibyte (string
);
911 nbytes
= buf
- encode_terminal_src
;
912 if (encode_terminal_src_size
< nbytes
+ SBYTES (string
))
914 encode_terminal_src_size
= nbytes
+ SBYTES (string
);
915 encode_terminal_src
= xrealloc (encode_terminal_src
,
916 encode_terminal_src_size
);
917 buf
= encode_terminal_src
+ nbytes
;
919 bcopy (SDATA (string
), buf
, SBYTES (string
));
920 buf
+= SBYTES (string
);
921 nchars
+= SCHARS (string
);
929 coding
->produced
= 0;
933 nbytes
= buf
- encode_terminal_src
;
934 coding
->source
= encode_terminal_src
;
935 if (encode_terminal_dst_size
== 0)
937 encode_terminal_dst_size
= encode_terminal_src_size
;
938 encode_terminal_dst
= xmalloc (encode_terminal_dst_size
);
940 coding
->destination
= encode_terminal_dst
;
941 coding
->dst_bytes
= encode_terminal_dst_size
;
942 encode_coding_object (coding
, Qnil
, 0, 0, nchars
, nbytes
, Qnil
);
943 /* coding->destination may have been reallocated. */
944 encode_terminal_dst
= coding
->destination
;
945 encode_terminal_dst_size
= coding
->dst_bytes
;
947 return (encode_terminal_dst
);
952 write_glyphs (string
, len
)
953 register struct glyph
*string
;
956 int produced
, consumed
;
957 struct frame
*sf
= XFRAME (selected_frame
);
958 struct frame
*f
= updating_frame
? updating_frame
: sf
;
959 unsigned char *conversion_buffer
;
960 struct coding_system
*coding
;
962 if (write_glyphs_hook
963 && ! FRAME_TERMCAP_P (f
))
965 (*write_glyphs_hook
) (string
, len
);
972 /* Don't dare write in last column of bottom line, if Auto-Wrap,
973 since that would scroll the whole frame on some terminals. */
976 && curY
+ 1 == FRAME_LINES (sf
)
977 && (curX
+ len
) == FRAME_COLS (sf
))
984 /* If terminal_coding does any conversion, use it, otherwise use
985 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
986 because it always return 1 if the member src_multibyte is 1. */
987 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
988 ? &terminal_coding
: &safe_terminal_coding
);
989 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
991 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
995 /* Identify a run of glyphs with the same face. */
996 int face_id
= string
->face_id
;
999 for (n
= 1; n
< len
; ++n
)
1000 if (string
[n
].face_id
!= face_id
)
1003 /* Turn appearance modes of the face of the run on. */
1004 highlight_if_desired ();
1005 turn_on_face (f
, face_id
);
1008 /* This is the last run. */
1009 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
1010 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
1011 if (coding
->produced
> 0)
1013 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1014 if (ferror (stdout
))
1017 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1022 /* Turn appearance modes off. */
1023 turn_off_face (f
, face_id
);
1024 turn_off_highlight ();
1030 /* If start is zero, insert blanks instead of a string at start */
1033 insert_glyphs (start
, len
)
1034 register struct glyph
*start
;
1038 struct glyph
*glyph
= NULL
;
1039 struct frame
*f
, *sf
;
1040 unsigned char *conversion_buffer
;
1041 unsigned char space
[1];
1042 struct coding_system
*coding
;
1047 if (insert_glyphs_hook
)
1049 (*insert_glyphs_hook
) (start
, len
);
1053 sf
= XFRAME (selected_frame
);
1054 f
= updating_frame
? updating_frame
: sf
;
1056 if (TS_ins_multi_chars
)
1058 buf
= tparam (TS_ins_multi_chars
, 0, 0, len
);
1062 write_glyphs (start
, len
);
1070 space
[0] = SPACEGLYPH
;
1072 /* If terminal_coding does any conversion, use it, otherwise use
1073 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
1074 because it always return 1 if the member src_multibyte is 1. */
1075 coding
= (terminal_coding
.common_flags
& CODING_REQUIRE_ENCODING_MASK
1076 ? &terminal_coding
: &safe_terminal_coding
);
1077 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
1079 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
1083 OUTPUT1_IF (TS_ins_char
);
1086 conversion_buffer
= space
;
1087 coding
->produced
= 1;
1091 highlight_if_desired ();
1092 turn_on_face (f
, start
->face_id
);
1095 /* We must open sufficient space for a character which
1096 occupies more than one column. */
1097 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
1099 OUTPUT1_IF (TS_ins_char
);
1104 /* This is the last glyph. */
1105 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
1107 conversion_buffer
= encode_terminal_code (glyph
, 1, coding
);
1110 if (coding
->produced
> 0)
1112 fwrite (conversion_buffer
, 1, coding
->produced
, stdout
);
1113 if (ferror (stdout
))
1116 fwrite (conversion_buffer
, 1, coding
->produced
, termscript
);
1119 OUTPUT1_IF (TS_pad_inserted_char
);
1122 turn_off_face (f
, glyph
->face_id
);
1123 turn_off_highlight ();
1137 if (delete_glyphs_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1139 (*delete_glyphs_hook
) (n
);
1143 if (delete_in_insert_mode
)
1150 OUTPUT_IF (TS_delete_mode
);
1153 if (TS_del_multi_chars
)
1155 buf
= tparam (TS_del_multi_chars
, 0, 0, n
);
1160 for (i
= 0; i
< n
; i
++)
1161 OUTPUT1 (TS_del_char
);
1162 if (!delete_in_insert_mode
)
1163 OUTPUT_IF (TS_end_delete_mode
);
1166 /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
1169 ins_del_lines (vpos
, n
)
1172 char *multi
= n
> 0 ? TS_ins_multi_lines
: TS_del_multi_lines
;
1173 char *single
= n
> 0 ? TS_ins_line
: TS_del_line
;
1174 char *scroll
= n
> 0 ? TS_rev_scroll
: TS_fwd_scroll
;
1177 register int i
= n
> 0 ? n
: -n
;
1180 if (ins_del_lines_hook
&& ! FRAME_TERMCAP_P (updating_frame
))
1182 (*ins_del_lines_hook
) (vpos
, n
);
1186 sf
= XFRAME (selected_frame
);
1188 /* If the lines below the insertion are being pushed
1189 into the end of the window, this is the same as clearing;
1190 and we know the lines are already clear, since the matching
1191 deletion has already been done. So can ignore this. */
1192 /* If the lines below the deletion are blank lines coming
1193 out of the end of the window, don't bother,
1194 as there will be a matching inslines later that will flush them. */
1195 if (scroll_region_ok
&& vpos
+ i
>= specified_window
)
1197 if (!memory_below_frame
&& vpos
+ i
>= FRAME_LINES (sf
))
1202 raw_cursor_to (vpos
, 0);
1203 background_highlight ();
1204 buf
= tparam (multi
, 0, 0, i
);
1210 raw_cursor_to (vpos
, 0);
1211 background_highlight ();
1219 set_scroll_region (vpos
, specified_window
);
1221 raw_cursor_to (specified_window
- 1, 0);
1223 raw_cursor_to (vpos
, 0);
1224 background_highlight ();
1226 OUTPUTL (scroll
, specified_window
- vpos
);
1227 set_scroll_region (0, specified_window
);
1230 if (!scroll_region_ok
&& memory_below_frame
&& n
< 0)
1232 cursor_to (FRAME_LINES (sf
) + n
, 0);
1237 /* Compute cost of sending "str", in characters,
1238 not counting any line-dependent padding. */
1246 tputs (str
, 0, evalcost
);
1250 /* Compute cost of sending "str", in characters,
1251 counting any line-dependent padding at one line. */
1254 string_cost_one_line (str
)
1259 tputs (str
, 1, evalcost
);
1263 /* Compute per line amount of line-dependent padding,
1264 in tenths of characters. */
1272 tputs (str
, 0, evalcost
);
1275 tputs (str
, 10, evalcost
);
1280 /* char_ins_del_cost[n] is cost of inserting N characters.
1281 char_ins_del_cost[-n] is cost of deleting N characters.
1282 The length of this vector is based on max_frame_cols. */
1284 int *char_ins_del_vector
;
1286 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_COLS ((f))])
1291 calculate_ins_del_char_costs (frame
)
1294 int ins_startup_cost
, del_startup_cost
;
1295 int ins_cost_per_char
, del_cost_per_char
;
1299 if (TS_ins_multi_chars
)
1301 ins_cost_per_char
= 0;
1302 ins_startup_cost
= string_cost_one_line (TS_ins_multi_chars
);
1304 else if (TS_ins_char
|| TS_pad_inserted_char
1305 || (TS_insert_mode
&& TS_end_insert_mode
))
1307 ins_startup_cost
= (30 * (string_cost (TS_insert_mode
)
1308 + string_cost (TS_end_insert_mode
))) / 100;
1309 ins_cost_per_char
= (string_cost_one_line (TS_ins_char
)
1310 + string_cost_one_line (TS_pad_inserted_char
));
1314 ins_startup_cost
= 9999;
1315 ins_cost_per_char
= 0;
1318 if (TS_del_multi_chars
)
1320 del_cost_per_char
= 0;
1321 del_startup_cost
= string_cost_one_line (TS_del_multi_chars
);
1323 else if (TS_del_char
)
1325 del_startup_cost
= (string_cost (TS_delete_mode
)
1326 + string_cost (TS_end_delete_mode
));
1327 if (delete_in_insert_mode
)
1328 del_startup_cost
/= 2;
1329 del_cost_per_char
= string_cost_one_line (TS_del_char
);
1333 del_startup_cost
= 9999;
1334 del_cost_per_char
= 0;
1337 /* Delete costs are at negative offsets */
1338 p
= &char_ins_del_cost (frame
)[0];
1339 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1340 *--p
= (del_startup_cost
+= del_cost_per_char
);
1342 /* Doing nothing is free */
1343 p
= &char_ins_del_cost (frame
)[0];
1346 /* Insert costs are at positive offsets */
1347 for (i
= FRAME_COLS (frame
); --i
>= 0;)
1348 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1352 calculate_costs (frame
)
1355 register char *f
= (TS_set_scroll_region
1356 ? TS_set_scroll_region
1357 : TS_set_scroll_region_1
);
1359 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1361 scroll_region_cost
= string_cost (f
);
1363 /* These variables are only used for terminal stuff. They are allocated
1364 once for the terminal frame of X-windows emacs, but not used afterwards.
1366 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1367 X turns off char_ins_del_ok. */
1369 max_frame_lines
= max (max_frame_lines
, FRAME_LINES (frame
));
1370 max_frame_cols
= max (max_frame_cols
, FRAME_COLS (frame
));
1374 if (char_ins_del_vector
!= 0)
1376 = (int *) xrealloc (char_ins_del_vector
,
1378 + 2 * max_frame_cols
* sizeof (int)));
1381 = (int *) xmalloc (sizeof (int)
1382 + 2 * max_frame_cols
* sizeof (int));
1384 bzero (char_ins_del_vector
, (sizeof (int)
1385 + 2 * max_frame_cols
* sizeof (int)));
1387 if (f
&& (!TS_ins_line
&& !TS_del_line
))
1388 do_line_insertion_deletion_costs (frame
,
1389 TS_rev_scroll
, TS_ins_multi_lines
,
1390 TS_fwd_scroll
, TS_del_multi_lines
,
1393 do_line_insertion_deletion_costs (frame
,
1394 TS_ins_line
, TS_ins_multi_lines
,
1395 TS_del_line
, TS_del_multi_lines
,
1398 calculate_ins_del_char_costs (frame
);
1400 /* Don't use TS_repeat if its padding is worse than sending the chars */
1401 if (TS_repeat
&& per_line_cost (TS_repeat
) * baud_rate
< 9000)
1402 RPov
= string_cost (TS_repeat
);
1404 RPov
= FRAME_COLS (frame
) * 2;
1406 cmcostinit (); /* set up cursor motion costs */
1413 /* Termcap capability names that correspond directly to X keysyms.
1414 Some of these (marked "terminfo") aren't supplied by old-style
1415 (Berkeley) termcap entries. They're listed in X keysym order;
1416 except we put the keypad keys first, so that if they clash with
1417 other keys (as on the IBM PC keyboard) they get overridden.
1420 static struct fkey_table keys
[] =
1422 {"kh", "home"}, /* termcap */
1423 {"kl", "left"}, /* termcap */
1424 {"ku", "up"}, /* termcap */
1425 {"kr", "right"}, /* termcap */
1426 {"kd", "down"}, /* termcap */
1427 {"%8", "prior"}, /* terminfo */
1428 {"%5", "next"}, /* terminfo */
1429 {"@7", "end"}, /* terminfo */
1430 {"@1", "begin"}, /* terminfo */
1431 {"*6", "select"}, /* terminfo */
1432 {"%9", "print"}, /* terminfo */
1433 {"@4", "execute"}, /* terminfo --- actually the `command' key */
1435 * "insert" --- see below
1437 {"&8", "undo"}, /* terminfo */
1438 {"%0", "redo"}, /* terminfo */
1439 {"%7", "menu"}, /* terminfo --- actually the `options' key */
1440 {"@0", "find"}, /* terminfo */
1441 {"@2", "cancel"}, /* terminfo */
1442 {"%1", "help"}, /* terminfo */
1444 * "break" goes here, but can't be reliably intercepted with termcap
1446 {"&4", "reset"}, /* terminfo --- actually `restart' */
1448 * "system" and "user" --- no termcaps
1450 {"kE", "clearline"}, /* terminfo */
1451 {"kA", "insertline"}, /* terminfo */
1452 {"kL", "deleteline"}, /* terminfo */
1453 {"kI", "insertchar"}, /* terminfo */
1454 {"kD", "deletechar"}, /* terminfo */
1455 {"kB", "backtab"}, /* terminfo */
1457 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1459 {"@8", "kp-enter"}, /* terminfo */
1461 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1462 * "kp-multiply", "kp-add", "kp-separator",
1463 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1464 * --- no termcaps for any of these.
1466 {"K4", "kp-1"}, /* terminfo */
1468 * "kp-2" --- no termcap
1470 {"K5", "kp-3"}, /* terminfo */
1472 * "kp-4" --- no termcap
1474 {"K2", "kp-5"}, /* terminfo */
1476 * "kp-6" --- no termcap
1478 {"K1", "kp-7"}, /* terminfo */
1480 * "kp-8" --- no termcap
1482 {"K3", "kp-9"}, /* terminfo */
1484 * "kp-equal" --- no termcap
1496 {"&0", "S-cancel"}, /*shifted cancel key*/
1497 {"&9", "S-begin"}, /*shifted begin key*/
1498 {"*0", "S-find"}, /*shifted find key*/
1499 {"*1", "S-execute"}, /*shifted execute? actually shifted command key*/
1500 {"*4", "S-delete"}, /*shifted delete-character key*/
1501 {"*7", "S-end"}, /*shifted end key*/
1502 {"*8", "S-clearline"}, /*shifted clear-to end-of-line key*/
1503 {"#1", "S-help"}, /*shifted help key*/
1504 {"#2", "S-home"}, /*shifted home key*/
1505 {"#3", "S-insert"}, /*shifted insert-character key*/
1506 {"#4", "S-left"}, /*shifted left-arrow key*/
1507 {"%d", "S-menu"}, /*shifted menu? actually shifted options key*/
1508 {"%c", "S-next"}, /*shifted next key*/
1509 {"%e", "S-prior"}, /*shifted previous key*/
1510 {"%f", "S-print"}, /*shifted print key*/
1511 {"%g", "S-redo"}, /*shifted redo key*/
1512 {"%i", "S-right"}, /*shifted right-arrow key*/
1513 {"!3", "S-undo"} /*shifted undo key*/
1516 static char **term_get_fkeys_arg
;
1517 static Lisp_Object
term_get_fkeys_1 ();
1519 /* Find the escape codes sent by the function keys for Vfunction_key_map.
1520 This function scans the termcap function key sequence entries, and
1521 adds entries to Vfunction_key_map for each function key it finds. */
1524 term_get_fkeys (address
)
1527 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1528 errors during the call. The only errors should be from Fdefine_key
1529 when given a key sequence containing an invalid prefix key. If the
1530 termcap defines function keys which use a prefix that is already bound
1531 to a command by the default bindings, we should silently ignore that
1532 function key specification, rather than giving the user an error and
1533 refusing to run at all on such a terminal. */
1535 extern Lisp_Object
Fidentity ();
1536 term_get_fkeys_arg
= address
;
1537 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1545 char **address
= term_get_fkeys_arg
;
1547 /* This can happen if CANNOT_DUMP or with strange options. */
1549 Vfunction_key_map
= Fmake_sparse_keymap (Qnil
);
1551 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1553 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1555 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1556 Fmake_vector (make_number (1),
1557 intern (keys
[i
].name
)));
1560 /* The uses of the "k0" capability are inconsistent; sometimes it
1561 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1562 We will attempt to politely accommodate both systems by testing for
1563 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1566 char *k_semi
= tgetstr ("k;", address
);
1567 char *k0
= tgetstr ("k0", address
);
1568 char *k0_name
= "f10";
1573 /* Define f0 first, so that f10 takes precedence in case the
1574 key sequences happens to be the same. */
1575 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1576 Fmake_vector (make_number (1), intern ("f0")));
1577 Fdefine_key (Vfunction_key_map
, build_string (k_semi
),
1578 Fmake_vector (make_number (1), intern ("f10")));
1581 Fdefine_key (Vfunction_key_map
, build_string (k0
),
1582 Fmake_vector (make_number (1), intern (k0_name
)));
1585 /* Set up cookies for numbered function keys above f10. */
1587 char fcap
[3], fkey
[4];
1589 fcap
[0] = 'F'; fcap
[2] = '\0';
1590 for (i
= 11; i
< 64; i
++)
1593 fcap
[1] = '1' + i
- 11;
1595 fcap
[1] = 'A' + i
- 20;
1597 fcap
[1] = 'a' + i
- 46;
1600 char *sequence
= tgetstr (fcap
, address
);
1603 sprintf (fkey
, "f%d", i
);
1604 Fdefine_key (Vfunction_key_map
, build_string (sequence
),
1605 Fmake_vector (make_number (1),
1613 * Various mappings to try and get a better fit.
1616 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1617 if (!tgetstr (cap1, address)) \
1619 char *sequence = tgetstr (cap2, address); \
1621 Fdefine_key (Vfunction_key_map, build_string (sequence), \
1622 Fmake_vector (make_number (1), \
1626 /* if there's no key_next keycap, map key_npage to `next' keysym */
1627 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1628 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1629 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1630 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1631 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1632 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1633 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1635 /* IBM has their own non-standard dialect of terminfo.
1636 If the standard name isn't found, try the IBM name. */
1637 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1638 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1639 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1640 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1641 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1642 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1643 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1644 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1645 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1646 #undef CONDITIONAL_REASSIGN
1653 /***********************************************************************
1654 Character Display Information
1655 ***********************************************************************/
1657 /* Avoid name clash with functions defined in xterm.c */
1659 #define append_glyph append_glyph_term
1660 #define produce_stretch_glyph produce_stretch_glyph_term
1663 static void append_glyph
P_ ((struct it
*));
1664 static void produce_stretch_glyph
P_ ((struct it
*));
1667 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1668 terminal frames if IT->glyph_row != NULL. IT->char_to_display is
1669 the character for which to produce glyphs; IT->face_id contains the
1670 character's face. Padding glyphs are appended if IT->c has a
1671 IT->pixel_width > 1. */
1677 struct glyph
*glyph
, *end
;
1680 xassert (it
->glyph_row
);
1681 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1682 + it
->glyph_row
->used
[it
->area
]);
1683 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1686 i
< it
->pixel_width
&& glyph
< end
;
1689 glyph
->type
= CHAR_GLYPH
;
1690 glyph
->pixel_width
= 1;
1691 glyph
->u
.ch
= it
->char_to_display
;
1692 glyph
->face_id
= it
->face_id
;
1693 glyph
->padding_p
= i
> 0;
1694 glyph
->charpos
= CHARPOS (it
->position
);
1695 glyph
->object
= it
->object
;
1697 ++it
->glyph_row
->used
[it
->area
];
1703 /* Produce glyphs for the display element described by IT. *IT
1704 specifies what we want to produce a glyph for (character, image, ...),
1705 and where in the glyph matrix we currently are (glyph row and hpos).
1706 produce_glyphs fills in output fields of *IT with information such as the
1707 pixel width and height of a character, and maybe output actual glyphs at
1708 the same time if IT->glyph_row is non-null. See the explanation of
1709 struct display_iterator in dispextern.h for an overview.
1711 produce_glyphs also stores the result of glyph width, ascent
1712 etc. computations in *IT.
1714 IT->glyph_row may be null, in which case produce_glyphs does not
1715 actually fill in the glyphs. This is used in the move_* functions
1716 in xdisp.c for text width and height computations.
1718 Callers usually don't call produce_glyphs directly;
1719 instead they use the macro PRODUCE_GLYPHS. */
1725 /* If a hook is installed, let it do the work. */
1726 xassert (it
->what
== IT_CHARACTER
1727 || it
->what
== IT_COMPOSITION
1728 || it
->what
== IT_STRETCH
);
1730 if (it
->what
== IT_STRETCH
)
1732 produce_stretch_glyph (it
);
1736 /* Nothing but characters are supported on terminal frames. For a
1737 composition sequence, it->c is the first character of the
1739 xassert (it
->what
== IT_CHARACTER
1740 || it
->what
== IT_COMPOSITION
);
1742 /* Maybe translate single-byte characters to multibyte. */
1743 it
->char_to_display
= it
->c
;
1745 if (it
->c
>= 040 && it
->c
< 0177)
1747 it
->pixel_width
= it
->nglyphs
= 1;
1751 else if (it
->c
== '\n')
1752 it
->pixel_width
= it
->nglyphs
= 0;
1753 else if (it
->c
== '\t')
1755 int absolute_x
= (it
->current_x
1756 + it
->continuation_lines_width
);
1758 = (((1 + absolute_x
+ it
->tab_width
- 1)
1763 /* If part of the TAB has been displayed on the previous line
1764 which is continued now, continuation_lines_width will have
1765 been incremented already by the part that fitted on the
1766 continued line. So, we will get the right number of spaces
1768 nspaces
= next_tab_x
- absolute_x
;
1774 it
->char_to_display
= ' ';
1775 it
->pixel_width
= it
->len
= 1;
1781 it
->pixel_width
= nspaces
;
1782 it
->nglyphs
= nspaces
;
1784 else if (CHAR_BYTE8_P (it
->c
))
1786 if (unibyte_display_via_language_environment
1789 it
->char_to_display
= unibyte_char_to_multibyte (it
->c
);
1790 it
->pixel_width
= CHAR_WIDTH (it
->char_to_display
);
1791 it
->nglyphs
= it
->pixel_width
;
1797 /* Coming here means that it->c is from display table, thus
1798 we must send the raw 8-bit byte as is to the terminal.
1799 Although there's no way to know how many columns it
1800 occupies on a screen, it is a good assumption that a
1801 single byte code has 1-column width. */
1802 it
->pixel_width
= it
->nglyphs
= 1;
1809 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1810 it
->nglyphs
= it
->pixel_width
;
1817 /* Advance current_x by the pixel width as a convenience for
1819 if (it
->area
== TEXT_AREA
)
1820 it
->current_x
+= it
->pixel_width
;
1821 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1822 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1826 /* Produce a stretch glyph for iterator IT. IT->object is the value
1827 of the glyph property displayed. The value must be a list
1828 `(space KEYWORD VALUE ...)' with the following KEYWORD/VALUE pairs
1831 1. `:width WIDTH' specifies that the space should be WIDTH *
1832 canonical char width wide. WIDTH may be an integer or floating
1835 2. `:align-to HPOS' specifies that the space should be wide enough
1836 to reach HPOS, a value in canonical character units. */
1839 produce_stretch_glyph (it
)
1842 /* (space :width WIDTH ...) */
1843 Lisp_Object prop
, plist
;
1844 int width
= 0, align_to
= -1;
1845 int zero_width_ok_p
= 0;
1848 /* List should start with `space'. */
1849 xassert (CONSP (it
->object
) && EQ (XCAR (it
->object
), Qspace
));
1850 plist
= XCDR (it
->object
);
1852 /* Compute the width of the stretch. */
1853 if ((prop
= Fplist_get (plist
, QCwidth
), !NILP (prop
))
1854 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, 0))
1856 /* Absolute width `:width WIDTH' specified and valid. */
1857 zero_width_ok_p
= 1;
1858 width
= (int)(tem
+ 0.5);
1860 else if ((prop
= Fplist_get (plist
, QCalign_to
), !NILP (prop
))
1861 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, &align_to
))
1863 if (it
->glyph_row
== NULL
|| !it
->glyph_row
->mode_line_p
)
1864 align_to
= (align_to
< 0
1866 : align_to
- window_box_left_offset (it
->w
, TEXT_AREA
));
1867 else if (align_to
< 0)
1868 align_to
= window_box_left_offset (it
->w
, TEXT_AREA
);
1869 width
= max (0, (int)(tem
+ 0.5) + align_to
- it
->current_x
);
1870 zero_width_ok_p
= 1;
1873 /* Nothing specified -> width defaults to canonical char width. */
1874 width
= FRAME_COLUMN_WIDTH (it
->f
);
1876 if (width
<= 0 && (width
< 0 || !zero_width_ok_p
))
1879 if (width
> 0 && it
->glyph_row
)
1881 Lisp_Object o_object
= it
->object
;
1882 Lisp_Object object
= it
->stack
[it
->sp
- 1].string
;
1885 if (!STRINGP (object
))
1886 object
= it
->w
->buffer
;
1887 it
->object
= object
;
1888 it
->char_to_display
= ' ';
1889 it
->pixel_width
= it
->len
= 1;
1892 it
->object
= o_object
;
1894 it
->pixel_width
= width
;
1895 it
->nglyphs
= width
;
1899 /* Get information about special display element WHAT in an
1900 environment described by IT. WHAT is one of IT_TRUNCATION or
1901 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1902 non-null glyph_row member. This function ensures that fields like
1903 face_id, c, len of IT are left untouched. */
1906 produce_special_glyphs (it
, what
)
1908 enum display_element_type what
;
1915 temp_it
.what
= IT_CHARACTER
;
1917 temp_it
.object
= make_number (0);
1918 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1920 if (what
== IT_CONTINUATION
)
1922 /* Continuation glyph. */
1924 && INTEGERP (DISP_CONTINUE_GLYPH (it
->dp
))
1925 && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it
->dp
))))
1927 glyph
= XINT (DISP_CONTINUE_GLYPH (it
->dp
));
1928 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
1933 else if (what
== IT_TRUNCATION
)
1935 /* Truncation glyph. */
1937 && INTEGERP (DISP_TRUNC_GLYPH (it
->dp
))
1938 && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it
->dp
))))
1940 glyph
= XINT (DISP_TRUNC_GLYPH (it
->dp
));
1941 glyph
= spec_glyph_lookup_face (XWINDOW (it
->window
), glyph
);
1949 temp_it
.c
= FAST_GLYPH_CHAR (glyph
);
1950 temp_it
.face_id
= FAST_GLYPH_FACE (glyph
);
1951 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1953 produce_glyphs (&temp_it
);
1954 it
->pixel_width
= temp_it
.pixel_width
;
1955 it
->nglyphs
= temp_it
.pixel_width
;
1960 /***********************************************************************
1962 ***********************************************************************/
1964 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1965 one of the enumerators from enum no_color_bit, or a bit set built
1966 from them. Some display attributes may not be used together with
1967 color; the termcap capability `NC' specifies which ones. */
1969 #define MAY_USE_WITH_COLORS_P(ATTR) \
1970 (TN_max_colors > 0 \
1971 ? (TN_no_color_video & (ATTR)) == 0 \
1974 /* Turn appearances of face FACE_ID on tty frame F on.
1975 FACE_ID is a realized face ID number, in the face cache. */
1978 turn_on_face (f
, face_id
)
1982 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1983 long fg
= face
->foreground
;
1984 long bg
= face
->background
;
1986 /* Do this first because TS_end_standout_mode may be the same
1987 as TS_exit_attribute_mode, which turns all appearances off. */
1988 if (MAY_USE_WITH_COLORS_P (NC_REVERSE
))
1990 if (TN_max_colors
> 0)
1992 if (fg
>= 0 && bg
>= 0)
1994 /* If the terminal supports colors, we can set them
1995 below without using reverse video. The face's fg
1996 and bg colors are set as they should appear on
1997 the screen, i.e. they take the inverse-video'ness
1998 of the face already into account. */
2000 else if (inverse_video
)
2002 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
2003 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
2004 toggle_highlight ();
2008 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
2009 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
2010 toggle_highlight ();
2015 /* If we can't display colors, use reverse video
2016 if the face specifies that. */
2019 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
2020 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
2021 toggle_highlight ();
2025 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
2026 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
2027 toggle_highlight ();
2032 if (face
->tty_bold_p
)
2034 if (MAY_USE_WITH_COLORS_P (NC_BOLD
))
2035 OUTPUT1_IF (TS_enter_bold_mode
);
2037 else if (face
->tty_dim_p
)
2038 if (MAY_USE_WITH_COLORS_P (NC_DIM
))
2039 OUTPUT1_IF (TS_enter_dim_mode
);
2041 /* Alternate charset and blinking not yet used. */
2042 if (face
->tty_alt_charset_p
2043 && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET
))
2044 OUTPUT1_IF (TS_enter_alt_charset_mode
);
2046 if (face
->tty_blinking_p
2047 && MAY_USE_WITH_COLORS_P (NC_BLINK
))
2048 OUTPUT1_IF (TS_enter_blink_mode
);
2050 if (face
->tty_underline_p
&& MAY_USE_WITH_COLORS_P (NC_UNDERLINE
))
2051 OUTPUT1_IF (TS_enter_underline_mode
);
2053 if (TN_max_colors
> 0)
2057 ts
= standout_mode
? TS_set_background
: TS_set_foreground
;
2060 p
= tparam (ts
, NULL
, 0, (int) fg
);
2065 ts
= standout_mode
? TS_set_foreground
: TS_set_background
;
2068 p
= tparam (ts
, NULL
, 0, (int) bg
);
2076 /* Turn off appearances of face FACE_ID on tty frame F. */
2079 turn_off_face (f
, face_id
)
2083 struct face
*face
= FACE_FROM_ID (f
, face_id
);
2085 xassert (face
!= NULL
);
2087 if (TS_exit_attribute_mode
)
2089 /* Capability "me" will turn off appearance modes double-bright,
2090 half-bright, reverse-video, standout, underline. It may or
2091 may not turn off alt-char-mode. */
2092 if (face
->tty_bold_p
2094 || face
->tty_reverse_p
2095 || face
->tty_alt_charset_p
2096 || face
->tty_blinking_p
2097 || face
->tty_underline_p
)
2099 OUTPUT1_IF (TS_exit_attribute_mode
);
2100 if (strcmp (TS_exit_attribute_mode
, TS_end_standout_mode
) == 0)
2104 if (face
->tty_alt_charset_p
)
2105 OUTPUT_IF (TS_exit_alt_charset_mode
);
2109 /* If we don't have "me" we can only have those appearances
2110 that have exit sequences defined. */
2111 if (face
->tty_alt_charset_p
)
2112 OUTPUT_IF (TS_exit_alt_charset_mode
);
2114 if (face
->tty_underline_p
)
2115 OUTPUT_IF (TS_exit_underline_mode
);
2118 /* Switch back to default colors. */
2119 if (TN_max_colors
> 0
2120 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2121 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2122 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2123 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2124 OUTPUT1_IF (TS_orig_pair
);
2128 /* Return non-zero if the terminal on frame F supports all of the
2129 capabilities in CAPS simultaneously, with foreground and background
2130 colors FG and BG. */
2133 tty_capable_p (f
, caps
, fg
, bg
)
2136 unsigned long fg
, bg
;
2138 #define TTY_CAPABLE_P_TRY(cap, TS, NC_bit) \
2139 if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(NC_bit))) \
2142 TTY_CAPABLE_P_TRY (TTY_CAP_INVERSE
, TS_standout_mode
, NC_REVERSE
);
2143 TTY_CAPABLE_P_TRY (TTY_CAP_UNDERLINE
, TS_enter_underline_mode
, NC_UNDERLINE
);
2144 TTY_CAPABLE_P_TRY (TTY_CAP_BOLD
, TS_enter_bold_mode
, NC_BOLD
);
2145 TTY_CAPABLE_P_TRY (TTY_CAP_DIM
, TS_enter_dim_mode
, NC_DIM
);
2146 TTY_CAPABLE_P_TRY (TTY_CAP_BLINK
, TS_enter_blink_mode
, NC_BLINK
);
2147 TTY_CAPABLE_P_TRY (TTY_CAP_ALT_CHARSET
, TS_enter_alt_charset_mode
, NC_ALT_CHARSET
);
2154 /* Return non-zero if the terminal is capable to display colors. */
2156 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2158 doc
: /* Return non-nil if TTY can display colors on DISPLAY. */)
2160 Lisp_Object display
;
2162 return TN_max_colors
> 0 ? Qt
: Qnil
;
2165 /* Return the number of supported colors. */
2166 DEFUN ("tty-display-color-cells", Ftty_display_color_cells
,
2167 Stty_display_color_cells
, 0, 1, 0,
2168 doc
: /* Return the number of colors supported by TTY on DISPLAY. */)
2170 Lisp_Object display
;
2172 return make_number (TN_max_colors
);
2177 /* Save or restore the default color-related capabilities of this
2180 tty_default_color_capabilities (save
)
2184 *default_orig_pair
, *default_set_foreground
, *default_set_background
;
2185 static int default_max_colors
, default_max_pairs
, default_no_color_video
;
2189 if (default_orig_pair
)
2190 xfree (default_orig_pair
);
2191 default_orig_pair
= TS_orig_pair
? xstrdup (TS_orig_pair
) : NULL
;
2193 if (default_set_foreground
)
2194 xfree (default_set_foreground
);
2195 default_set_foreground
= TS_set_foreground
? xstrdup (TS_set_foreground
)
2198 if (default_set_background
)
2199 xfree (default_set_background
);
2200 default_set_background
= TS_set_background
? xstrdup (TS_set_background
)
2203 default_max_colors
= TN_max_colors
;
2204 default_max_pairs
= TN_max_pairs
;
2205 default_no_color_video
= TN_no_color_video
;
2209 TS_orig_pair
= default_orig_pair
;
2210 TS_set_foreground
= default_set_foreground
;
2211 TS_set_background
= default_set_background
;
2212 TN_max_colors
= default_max_colors
;
2213 TN_max_pairs
= default_max_pairs
;
2214 TN_no_color_video
= default_no_color_video
;
2218 /* Setup one of the standard tty color schemes according to MODE.
2219 MODE's value is generally the number of colors which we want to
2220 support; zero means set up for the default capabilities, the ones
2221 we saw at term_init time; -1 means turn off color support. */
2223 tty_setup_colors (mode
)
2226 /* Canonicalize all negative values of MODE. */
2232 case -1: /* no colors at all */
2235 TN_no_color_video
= 0;
2236 TS_set_foreground
= TS_set_background
= TS_orig_pair
= NULL
;
2238 case 0: /* default colors, if any */
2240 tty_default_color_capabilities (0);
2242 case 8: /* 8 standard ANSI colors */
2243 TS_orig_pair
= "\033[0m";
2245 TS_set_foreground
= "\033[3%p1%dm";
2246 TS_set_background
= "\033[4%p1%dm";
2248 TS_set_foreground
= "\033[3%dm";
2249 TS_set_background
= "\033[4%dm";
2253 TN_no_color_video
= 0;
2259 set_tty_color_mode (f
, val
)
2263 Lisp_Object color_mode_spec
, current_mode_spec
;
2264 Lisp_Object color_mode
, current_mode
;
2266 extern Lisp_Object Qtty_color_mode
;
2267 Lisp_Object tty_color_mode_alist
;
2269 tty_color_mode_alist
= Fintern_soft (build_string ("tty-color-mode-alist"),
2276 if (NILP (tty_color_mode_alist
))
2277 color_mode_spec
= Qnil
;
2279 color_mode_spec
= Fassq (val
, XSYMBOL (tty_color_mode_alist
)->value
);
2281 if (CONSP (color_mode_spec
))
2282 color_mode
= XCDR (color_mode_spec
);
2287 current_mode_spec
= assq_no_quit (Qtty_color_mode
, f
->param_alist
);
2289 if (CONSP (current_mode_spec
))
2290 current_mode
= XCDR (current_mode_spec
);
2292 current_mode
= Qnil
;
2293 if (INTEGERP (color_mode
))
2294 mode
= XINT (color_mode
);
2296 mode
= 0; /* meaning default */
2297 if (INTEGERP (current_mode
))
2298 old_mode
= XINT (current_mode
);
2302 if (mode
!= old_mode
)
2304 tty_setup_colors (mode
);
2305 /* This recomputes all the faces given the new color
2307 call0 (intern ("tty-set-up-initial-frame-faces"));
2312 #endif /* !WINDOWSNT */
2315 /***********************************************************************
2317 ***********************************************************************/
2320 term_init (terminal_type
)
2321 char *terminal_type
;
2324 char **address
= &area
;
2325 char *buffer
= NULL
;
2326 int buffer_size
= 4096;
2329 struct frame
*sf
= XFRAME (selected_frame
);
2331 encode_terminal_src_size
= 0;
2332 encode_terminal_dst_size
= 0;
2335 initialize_w32_display ();
2339 area
= (char *) xmalloc (2044);
2341 FrameRows
= FRAME_LINES (sf
);
2342 FrameCols
= FRAME_COLS (sf
);
2343 specified_window
= FRAME_LINES (sf
);
2345 delete_in_insert_mode
= 1;
2348 scroll_region_ok
= 0;
2350 /* Seems to insert lines when it's not supposed to, messing
2351 up the display. In doing a trace, it didn't seem to be
2352 called much, so I don't think we're losing anything by
2355 line_ins_del_ok
= 0;
2356 char_ins_del_ok
= 1;
2360 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2361 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2362 TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
2365 #else /* not WINDOWSNT */
2369 buffer
= (char *) xmalloc (buffer_size
);
2370 status
= tgetent (buffer
, terminal_type
);
2374 fatal ("Cannot open terminfo database file");
2376 fatal ("Cannot open termcap database file");
2382 fatal ("Terminal type %s is not defined.\n\
2383 If that is not the actual type of terminal you have,\n\
2384 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2385 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2386 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2389 fatal ("Terminal type %s is not defined.\n\
2390 If that is not the actual type of terminal you have,\n\
2391 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2392 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2393 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2399 if (strlen (buffer
) >= buffer_size
)
2401 buffer_size
= strlen (buffer
);
2403 area
= (char *) xmalloc (buffer_size
);
2405 TS_ins_line
= tgetstr ("al", address
);
2406 TS_ins_multi_lines
= tgetstr ("AL", address
);
2407 TS_bell
= tgetstr ("bl", address
);
2408 BackTab
= tgetstr ("bt", address
);
2409 TS_clr_to_bottom
= tgetstr ("cd", address
);
2410 TS_clr_line
= tgetstr ("ce", address
);
2411 TS_clr_frame
= tgetstr ("cl", address
);
2412 ColPosition
= NULL
; /* tgetstr ("ch", address); */
2413 AbsPosition
= tgetstr ("cm", address
);
2414 CR
= tgetstr ("cr", address
);
2415 TS_set_scroll_region
= tgetstr ("cs", address
);
2416 TS_set_scroll_region_1
= tgetstr ("cS", address
);
2417 RowPosition
= tgetstr ("cv", address
);
2418 TS_del_char
= tgetstr ("dc", address
);
2419 TS_del_multi_chars
= tgetstr ("DC", address
);
2420 TS_del_line
= tgetstr ("dl", address
);
2421 TS_del_multi_lines
= tgetstr ("DL", address
);
2422 TS_delete_mode
= tgetstr ("dm", address
);
2423 TS_end_delete_mode
= tgetstr ("ed", address
);
2424 TS_end_insert_mode
= tgetstr ("ei", address
);
2425 Home
= tgetstr ("ho", address
);
2426 TS_ins_char
= tgetstr ("ic", address
);
2427 TS_ins_multi_chars
= tgetstr ("IC", address
);
2428 TS_insert_mode
= tgetstr ("im", address
);
2429 TS_pad_inserted_char
= tgetstr ("ip", address
);
2430 TS_end_keypad_mode
= tgetstr ("ke", address
);
2431 TS_keypad_mode
= tgetstr ("ks", address
);
2432 LastLine
= tgetstr ("ll", address
);
2433 Right
= tgetstr ("nd", address
);
2434 Down
= tgetstr ("do", address
);
2436 Down
= tgetstr ("nl", address
); /* Obsolete name for "do" */
2438 /* VMS puts a carriage return before each linefeed,
2439 so it is not safe to use linefeeds. */
2440 if (Down
&& Down
[0] == '\n' && Down
[1] == '\0')
2443 if (tgetflag ("bs"))
2444 Left
= "\b"; /* can't possibly be longer! */
2445 else /* (Actually, "bs" is obsolete...) */
2446 Left
= tgetstr ("le", address
);
2448 Left
= tgetstr ("bc", address
); /* Obsolete name for "le" */
2449 TS_pad_char
= tgetstr ("pc", address
);
2450 TS_repeat
= tgetstr ("rp", address
);
2451 TS_end_standout_mode
= tgetstr ("se", address
);
2452 TS_fwd_scroll
= tgetstr ("sf", address
);
2453 TS_standout_mode
= tgetstr ("so", address
);
2454 TS_rev_scroll
= tgetstr ("sr", address
);
2455 Wcm
.cm_tab
= tgetstr ("ta", address
);
2456 TS_end_termcap_modes
= tgetstr ("te", address
);
2457 TS_termcap_modes
= tgetstr ("ti", address
);
2458 Up
= tgetstr ("up", address
);
2459 TS_visible_bell
= tgetstr ("vb", address
);
2460 TS_cursor_normal
= tgetstr ("ve", address
);
2461 TS_cursor_visible
= tgetstr ("vs", address
);
2462 TS_cursor_invisible
= tgetstr ("vi", address
);
2463 TS_set_window
= tgetstr ("wi", address
);
2465 TS_enter_underline_mode
= tgetstr ("us", address
);
2466 TS_exit_underline_mode
= tgetstr ("ue", address
);
2467 TS_enter_bold_mode
= tgetstr ("md", address
);
2468 TS_enter_dim_mode
= tgetstr ("mh", address
);
2469 TS_enter_blink_mode
= tgetstr ("mb", address
);
2470 TS_enter_reverse_mode
= tgetstr ("mr", address
);
2471 TS_enter_alt_charset_mode
= tgetstr ("as", address
);
2472 TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
2473 TS_exit_attribute_mode
= tgetstr ("me", address
);
2475 MultiUp
= tgetstr ("UP", address
);
2476 MultiDown
= tgetstr ("DO", address
);
2477 MultiLeft
= tgetstr ("LE", address
);
2478 MultiRight
= tgetstr ("RI", address
);
2480 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
2481 color because we can't switch back to the default foreground and
2483 TS_orig_pair
= tgetstr ("op", address
);
2486 TS_set_foreground
= tgetstr ("AF", address
);
2487 TS_set_background
= tgetstr ("AB", address
);
2488 if (!TS_set_foreground
)
2491 TS_set_foreground
= tgetstr ("Sf", address
);
2492 TS_set_background
= tgetstr ("Sb", address
);
2495 TN_max_colors
= tgetnum ("Co");
2496 TN_max_pairs
= tgetnum ("pa");
2498 TN_no_color_video
= tgetnum ("NC");
2499 if (TN_no_color_video
== -1)
2500 TN_no_color_video
= 0;
2503 tty_default_color_capabilities (1);
2505 MagicWrap
= tgetflag ("xn");
2506 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
2507 the former flag imply the latter. */
2508 AutoWrap
= MagicWrap
|| tgetflag ("am");
2509 memory_below_frame
= tgetflag ("db");
2510 TF_hazeltine
= tgetflag ("hz");
2511 must_write_spaces
= tgetflag ("in");
2512 meta_key
= tgetflag ("km") || tgetflag ("MT");
2513 TF_insmode_motion
= tgetflag ("mi");
2514 TF_standout_motion
= tgetflag ("ms");
2515 TF_underscore
= tgetflag ("ul");
2516 TF_teleray
= tgetflag ("xt");
2518 term_get_fkeys (address
);
2520 /* Get frame size from system, or else from termcap. */
2523 get_frame_size (&width
, &height
);
2524 FRAME_COLS (sf
) = width
;
2525 FRAME_LINES (sf
) = height
;
2528 if (FRAME_COLS (sf
) <= 0)
2529 SET_FRAME_COLS (sf
, tgetnum ("co"));
2531 /* Keep width and external_width consistent */
2532 SET_FRAME_COLS (sf
, FRAME_COLS (sf
));
2533 if (FRAME_LINES (sf
) <= 0)
2534 FRAME_LINES (sf
) = tgetnum ("li");
2536 if (FRAME_LINES (sf
) < 3 || FRAME_COLS (sf
) < 3)
2537 fatal ("Screen size %dx%d is too small",
2538 FRAME_LINES (sf
), FRAME_COLS (sf
));
2540 min_padding_speed
= tgetnum ("pb");
2541 TabWidth
= tgetnum ("tw");
2544 /* These capabilities commonly use ^J.
2545 I don't know why, but sending them on VMS does not work;
2546 it causes following spaces to be lost, sometimes.
2547 For now, the simplest fix is to avoid using these capabilities ever. */
2548 if (Down
&& Down
[0] == '\n')
2556 TS_fwd_scroll
= Down
;
2558 PC
= TS_pad_char
? *TS_pad_char
: 0;
2563 /* Turned off since /etc/termcap seems to have :ta= for most terminals
2564 and newer termcap doc does not seem to say there is a default.
2569 /* We don't support standout modes that use `magic cookies', so
2570 turn off any that do. */
2571 if (TS_standout_mode
&& tgetnum ("sg") >= 0)
2573 TS_standout_mode
= 0;
2574 TS_end_standout_mode
= 0;
2576 if (TS_enter_underline_mode
&& tgetnum ("ug") >= 0)
2578 TS_enter_underline_mode
= 0;
2579 TS_exit_underline_mode
= 0;
2582 /* If there's no standout mode, try to use underlining instead. */
2583 if (TS_standout_mode
== 0)
2585 TS_standout_mode
= TS_enter_underline_mode
;
2586 TS_end_standout_mode
= TS_exit_underline_mode
;
2589 /* If no `se' string, try using a `me' string instead.
2590 If that fails, we can't use standout mode at all. */
2591 if (TS_end_standout_mode
== 0)
2593 char *s
= tgetstr ("me", address
);
2595 TS_end_standout_mode
= s
;
2597 TS_standout_mode
= 0;
2603 /* We can't support standout mode, because it uses magic cookies. */
2604 TS_standout_mode
= 0;
2605 /* But that means we cannot rely on ^M to go to column zero! */
2607 /* LF can't be trusted either -- can alter hpos */
2608 /* if move at column 0 thru a line with TS_standout_mode */
2612 /* Special handling for certain terminal types known to need it */
2614 if (!strcmp (terminal_type
, "supdup"))
2616 memory_below_frame
= 1;
2617 Wcm
.cm_losewrap
= 1;
2619 if (!strncmp (terminal_type
, "c10", 3)
2620 || !strcmp (terminal_type
, "perq"))
2622 /* Supply a makeshift :wi string.
2623 This string is not valid in general since it works only
2624 for windows starting at the upper left corner;
2625 but that is all Emacs uses.
2627 This string works only if the frame is using
2628 the top of the video memory, because addressing is memory-relative.
2629 So first check the :ti string to see if that is true.
2631 It would be simpler if the :wi string could go in the termcap
2632 entry, but it can't because it is not fully valid.
2633 If it were in the termcap entry, it would confuse other programs. */
2636 p
= TS_termcap_modes
;
2637 while (*p
&& strcmp (p
, "\033v "))
2640 TS_set_window
= "\033v%C %C %C %C ";
2642 /* Termcap entry often fails to have :in: flag */
2643 must_write_spaces
= 1;
2644 /* :ti string typically fails to have \E^G! in it */
2645 /* This limits scope of insert-char to one line. */
2646 strcpy (area
, TS_termcap_modes
);
2647 strcat (area
, "\033\007!");
2648 TS_termcap_modes
= area
;
2649 area
+= strlen (area
) + 1;
2651 /* Change all %+ parameters to %C, to handle
2652 values above 96 correctly for the C100. */
2655 if (p
[0] == '%' && p
[1] == '+')
2661 FrameRows
= FRAME_LINES (sf
);
2662 FrameCols
= FRAME_COLS (sf
);
2663 specified_window
= FRAME_LINES (sf
);
2665 if (Wcm_init () == -1) /* can't do cursor motion */
2667 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2668 It lacks the ability to position the cursor.\n\
2669 If that is not the actual type of terminal you have, use either the\n\
2670 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
2671 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
2675 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2676 It lacks the ability to position the cursor.\n\
2677 If that is not the actual type of terminal you have,\n\
2678 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2679 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2680 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
2682 # else /* TERMCAP */
2683 fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
2684 It lacks the ability to position the cursor.\n\
2685 If that is not the actual type of terminal you have,\n\
2686 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
2687 `setenv TERM ...') to specify the correct type. It may be necessary\n\
2688 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
2690 # endif /* TERMINFO */
2692 if (FRAME_LINES (sf
) <= 0
2693 || FRAME_COLS (sf
) <= 0)
2694 fatal ("The frame size has not been specified");
2696 delete_in_insert_mode
2697 = TS_delete_mode
&& TS_insert_mode
2698 && !strcmp (TS_delete_mode
, TS_insert_mode
);
2700 se_is_so
= (TS_standout_mode
2701 && TS_end_standout_mode
2702 && !strcmp (TS_standout_mode
, TS_end_standout_mode
));
2704 UseTabs
= tabs_safe_p () && TabWidth
== 8;
2708 && (TS_set_window
|| TS_set_scroll_region
|| TS_set_scroll_region_1
));
2710 line_ins_del_ok
= (((TS_ins_line
|| TS_ins_multi_lines
)
2711 && (TS_del_line
|| TS_del_multi_lines
))
2712 || (scroll_region_ok
&& TS_fwd_scroll
&& TS_rev_scroll
));
2714 char_ins_del_ok
= ((TS_ins_char
|| TS_insert_mode
2715 || TS_pad_inserted_char
|| TS_ins_multi_chars
)
2716 && (TS_del_char
|| TS_del_multi_chars
));
2718 fast_clear_end_of_line
= TS_clr_line
!= 0;
2721 if (read_socket_hook
) /* Baudrate is somewhat */
2722 /* meaningless in this case */
2725 FRAME_CAN_HAVE_SCROLL_BARS (sf
) = 0;
2726 FRAME_VERTICAL_SCROLL_BAR_TYPE (sf
) = vertical_scroll_bar_none
;
2727 #endif /* WINDOWSNT */
2734 fatal (str
, arg1
, arg2
)
2735 char *str
, *arg1
, *arg2
;
2737 fprintf (stderr
, "emacs: ");
2738 fprintf (stderr
, str
, arg1
, arg2
);
2739 fprintf (stderr
, "\n");
2744 DEFUN ("tty-no-underline", Ftty_no_underline
, Stty_no_underline
, 0, 0, 0,
2745 doc
: /* Declare that this terminal does not handle underlining.
2746 This is used to override the terminfo data, for certain terminals that
2747 do not really do underlining, but say that they do. */)
2750 TS_enter_underline_mode
= 0;
2757 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
2758 doc
: /* Non-nil means the system uses terminfo rather than termcap.
2759 This variable can be used by terminal emulator packages. */);
2761 system_uses_terminfo
= 1;
2763 system_uses_terminfo
= 0;
2766 DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
,
2767 doc
: /* Non-nil means call this function to ring the bell.
2768 The function should accept no arguments. */);
2769 Vring_bell_function
= Qnil
;
2771 DEFVAR_BOOL ("visible-cursor", &visible_cursor
,
2772 doc
: /* Non-nil means to make the cursor very visible.
2773 This only has an effect when running in a text terminal.
2774 What means \"very visible\" is up to your terminal. It may make the cursor
2775 bigger, or it may make it blink, or it may do nothing at all. */);
2778 defsubr (&Stty_display_color_p
);
2779 defsubr (&Stty_display_color_cells
);
2780 defsubr (&Stty_no_underline
);
2783 /* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
2784 (do not change this comment) */