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, 2008
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
21 /* New redisplay, TTY faces by Gerd Moellmann <gerd@gnu.org>. */
35 #include <termios.h> /* For TIOCNOTTY. */
45 #include "character.h"
48 #include "composite.h"
52 #include "termhooks.h"
53 #include "dispextern.h"
56 #include "blockinput.h"
57 #include "syssignal.h"
59 #include "intervals.h"
61 /* For now, don't try to include termcap.h. On some systems,
62 configure finds a non-standard termcap.h that the main build
65 #if defined HAVE_TERMCAP_H && 0
68 extern void tputs
P_ ((const char *, int, int (*)(int)));
69 extern int tgetent
P_ ((char *, const char *));
70 extern int tgetflag
P_ ((char *id
));
71 extern int tgetnum
P_ ((char *id
));
90 /* The name of the default console device. */
92 #define DEV_TTY "CONOUT$"
94 #define DEV_TTY "/dev/tty"
97 static void tty_set_scroll_region
P_ ((struct frame
*f
, int start
, int stop
));
98 static void turn_on_face
P_ ((struct frame
*, int face_id
));
99 static void turn_off_face
P_ ((struct frame
*, int face_id
));
100 static void tty_show_cursor
P_ ((struct tty_display_info
*));
101 static void tty_hide_cursor
P_ ((struct tty_display_info
*));
102 static void tty_background_highlight
P_ ((struct tty_display_info
*tty
));
103 static void clear_tty_hooks
P_ ((struct terminal
*terminal
));
104 static void set_tty_hooks
P_ ((struct terminal
*terminal
));
105 static void dissociate_if_controlling_tty
P_ ((int fd
));
106 static void delete_tty
P_ ((struct terminal
*));
108 #define OUTPUT(tty, a) \
109 emacs_tputs ((tty), a, \
110 (int) (FRAME_LINES (XFRAME (selected_frame)) \
114 #define OUTPUT1(tty, a) emacs_tputs ((tty), a, 1, cmputc)
115 #define OUTPUTL(tty, a, lines) emacs_tputs ((tty), a, lines, cmputc)
117 #define OUTPUT_IF(tty, a) \
120 emacs_tputs ((tty), a, \
121 (int) (FRAME_LINES (XFRAME (selected_frame)) \
126 #define OUTPUT1_IF(tty, a) do { if (a) emacs_tputs ((tty), a, 1, cmputc); } while (0)
128 /* If true, use "vs", otherwise use "ve" to make the cursor visible. */
130 static int visible_cursor
;
132 /* Display space properties */
134 extern Lisp_Object Qspace
, QCalign_to
, QCwidth
;
136 /* Functions to call after suspending a tty. */
137 Lisp_Object Vsuspend_tty_functions
;
139 /* Functions to call after resuming a tty. */
140 Lisp_Object Vresume_tty_functions
;
142 /* Chain of all tty device parameters. */
143 struct tty_display_info
*tty_list
;
145 /* Nonzero means no need to redraw the entire frame on resuming a
146 suspended Emacs. This is useful on terminals with multiple
147 pages, where one page is used for Emacs and another for all
149 int no_redraw_on_reenter
;
151 /* Meaning of bits in no_color_video. Each bit set means that the
152 corresponding attribute cannot be combined with colors. */
156 NC_STANDOUT
= 1 << 0,
157 NC_UNDERLINE
= 1 << 1,
164 NC_ALT_CHARSET
= 1 << 8
169 /* The largest frame width in any call to calculate_costs. */
173 /* The largest frame height in any call to calculate_costs. */
177 /* Non-zero if we have dropped our controlling tty and therefore
178 should not open a frame on stdout. */
179 static int no_controlling_tty
;
181 /* Provided for lisp packages. */
183 static int system_uses_terminfo
;
187 extern char *tgetstr ();
191 #include <sys/fcntl.h>
193 static void term_clear_mouse_face ();
194 static void term_mouse_highlight (struct frame
*f
, int x
, int y
);
196 /* The device for which we have enabled gpm support (or NULL). */
197 struct tty_display_info
*gpm_tty
= NULL
;
199 /* These variables describe the range of text currently shown in its
200 mouse-face, together with the window they apply to. As long as
201 the mouse stays within this range, we need not redraw anything on
202 its account. Rows and columns are glyph matrix positions in
203 MOUSE_FACE_WINDOW. */
204 static int mouse_face_beg_row
, mouse_face_beg_col
;
205 static int mouse_face_end_row
, mouse_face_end_col
;
206 static int mouse_face_past_end
;
207 static Lisp_Object mouse_face_window
;
208 static int mouse_face_face_id
;
210 static int pos_x
, pos_y
;
211 static int last_mouse_x
, last_mouse_y
;
212 #endif /* HAVE_GPM */
214 /* Ring the bell on a tty. */
217 tty_ring_bell (struct frame
*f
)
219 struct tty_display_info
*tty
= FRAME_TTY (f
);
223 OUTPUT (tty
, (tty
->TS_visible_bell
&& visible_bell
224 ? tty
->TS_visible_bell
226 fflush (tty
->output
);
230 /* Set up termcap modes for Emacs. */
233 tty_set_terminal_modes (struct terminal
*terminal
)
235 struct tty_display_info
*tty
= terminal
->display_info
.tty
;
239 if (tty
->TS_termcap_modes
)
240 OUTPUT (tty
, tty
->TS_termcap_modes
);
243 /* Output enough newlines to scroll all the old screen contents
244 off the screen, so it won't be overwritten and lost. */
247 for (i
= 0; i
< FRAME_LINES (XFRAME (selected_frame
)); i
++)
251 OUTPUT_IF (tty
, tty
->TS_termcap_modes
);
252 OUTPUT_IF (tty
, visible_cursor
? tty
->TS_cursor_visible
: tty
->TS_cursor_normal
);
253 OUTPUT_IF (tty
, tty
->TS_keypad_mode
);
255 fflush (tty
->output
);
259 /* Reset termcap modes before exiting Emacs. */
262 tty_reset_terminal_modes (struct terminal
*terminal
)
264 struct tty_display_info
*tty
= terminal
->display_info
.tty
;
268 tty_turn_off_highlight (tty
);
269 tty_turn_off_insert (tty
);
270 OUTPUT_IF (tty
, tty
->TS_end_keypad_mode
);
271 OUTPUT_IF (tty
, tty
->TS_cursor_normal
);
272 OUTPUT_IF (tty
, tty
->TS_end_termcap_modes
);
273 OUTPUT_IF (tty
, tty
->TS_orig_pair
);
274 /* Output raw CR so kernel can track the cursor hpos. */
277 fflush (tty
->output
);
281 /* Flag the end of a display update on a termcap terminal. */
284 tty_update_end (struct frame
*f
)
286 struct tty_display_info
*tty
= FRAME_TTY (f
);
288 if (!XWINDOW (selected_window
)->cursor_off_p
)
289 tty_show_cursor (tty
);
290 tty_turn_off_insert (tty
);
291 tty_background_highlight (tty
);
294 /* The implementation of set_terminal_window for termcap frames. */
297 tty_set_terminal_window (struct frame
*f
, int size
)
299 struct tty_display_info
*tty
= FRAME_TTY (f
);
301 tty
->specified_window
= size
? size
: FRAME_LINES (f
);
302 if (FRAME_SCROLL_REGION_OK (f
))
303 tty_set_scroll_region (f
, 0, tty
->specified_window
);
307 tty_set_scroll_region (struct frame
*f
, int start
, int stop
)
310 struct tty_display_info
*tty
= FRAME_TTY (f
);
312 if (tty
->TS_set_scroll_region
)
313 buf
= tparam (tty
->TS_set_scroll_region
, 0, 0, start
, stop
- 1);
314 else if (tty
->TS_set_scroll_region_1
)
315 buf
= tparam (tty
->TS_set_scroll_region_1
, 0, 0,
316 FRAME_LINES (f
), start
,
317 FRAME_LINES (f
) - stop
,
320 buf
= tparam (tty
->TS_set_window
, 0, 0, start
, 0, stop
, FRAME_COLS (f
));
329 tty_turn_on_insert (struct tty_display_info
*tty
)
331 if (!tty
->insert_mode
)
332 OUTPUT (tty
, tty
->TS_insert_mode
);
333 tty
->insert_mode
= 1;
337 tty_turn_off_insert (struct tty_display_info
*tty
)
339 if (tty
->insert_mode
)
340 OUTPUT (tty
, tty
->TS_end_insert_mode
);
341 tty
->insert_mode
= 0;
344 /* Handle highlighting. */
347 tty_turn_off_highlight (struct tty_display_info
*tty
)
349 if (tty
->standout_mode
)
350 OUTPUT_IF (tty
, tty
->TS_end_standout_mode
);
351 tty
->standout_mode
= 0;
355 tty_turn_on_highlight (struct tty_display_info
*tty
)
357 if (!tty
->standout_mode
)
358 OUTPUT_IF (tty
, tty
->TS_standout_mode
);
359 tty
->standout_mode
= 1;
363 tty_toggle_highlight (struct tty_display_info
*tty
)
365 if (tty
->standout_mode
)
366 tty_turn_off_highlight (tty
);
368 tty_turn_on_highlight (tty
);
372 /* Make cursor invisible. */
375 tty_hide_cursor (struct tty_display_info
*tty
)
377 if (tty
->cursor_hidden
== 0)
379 tty
->cursor_hidden
= 1;
380 OUTPUT_IF (tty
, tty
->TS_cursor_invisible
);
385 /* Ensure that cursor is visible. */
388 tty_show_cursor (struct tty_display_info
*tty
)
390 if (tty
->cursor_hidden
)
392 tty
->cursor_hidden
= 0;
393 OUTPUT_IF (tty
, tty
->TS_cursor_normal
);
395 OUTPUT_IF (tty
, tty
->TS_cursor_visible
);
400 /* Set standout mode to the state it should be in for
401 empty space inside windows. What this is,
402 depends on the user option inverse-video. */
405 tty_background_highlight (struct tty_display_info
*tty
)
408 tty_turn_on_highlight (tty
);
410 tty_turn_off_highlight (tty
);
413 /* Set standout mode to the mode specified for the text to be output. */
416 tty_highlight_if_desired (struct tty_display_info
*tty
)
419 tty_turn_on_highlight (tty
);
421 tty_turn_off_highlight (tty
);
425 /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
426 frame-relative coordinates. */
429 tty_cursor_to (struct frame
*f
, int vpos
, int hpos
)
431 struct tty_display_info
*tty
= FRAME_TTY (f
);
433 /* Detect the case where we are called from reset_sys_modes
434 and the costs have never been calculated. Do nothing. */
435 if (! tty
->costs_set
)
438 if (curY (tty
) == vpos
439 && curX (tty
) == hpos
)
441 if (!tty
->TF_standout_motion
)
442 tty_background_highlight (tty
);
443 if (!tty
->TF_insmode_motion
)
444 tty_turn_off_insert (tty
);
445 cmgoto (tty
, vpos
, hpos
);
448 /* Similar but don't take any account of the wasted characters. */
451 tty_raw_cursor_to (struct frame
*f
, int row
, int col
)
453 struct tty_display_info
*tty
= FRAME_TTY (f
);
455 if (curY (tty
) == row
456 && curX (tty
) == col
)
458 if (!tty
->TF_standout_motion
)
459 tty_background_highlight (tty
);
460 if (!tty
->TF_insmode_motion
)
461 tty_turn_off_insert (tty
);
462 cmgoto (tty
, row
, col
);
465 /* Erase operations */
467 /* Clear from cursor to end of frame on a termcap device. */
470 tty_clear_to_end (struct frame
*f
)
473 struct tty_display_info
*tty
= FRAME_TTY (f
);
475 if (tty
->TS_clr_to_bottom
)
477 tty_background_highlight (tty
);
478 OUTPUT (tty
, tty
->TS_clr_to_bottom
);
482 for (i
= curY (tty
); i
< FRAME_LINES (f
); i
++)
485 clear_end_of_line (f
, FRAME_COLS (f
));
490 /* Clear an entire termcap frame. */
493 tty_clear_frame (struct frame
*f
)
495 struct tty_display_info
*tty
= FRAME_TTY (f
);
497 if (tty
->TS_clr_frame
)
499 tty_background_highlight (tty
);
500 OUTPUT (tty
, tty
->TS_clr_frame
);
510 /* An implementation of clear_end_of_line for termcap frames.
512 Note that the cursor may be moved, on terminals lacking a `ce' string. */
515 tty_clear_end_of_line (struct frame
*f
, int first_unused_hpos
)
518 struct tty_display_info
*tty
= FRAME_TTY (f
);
520 /* Detect the case where we are called from reset_sys_modes
521 and the costs have never been calculated. Do nothing. */
522 if (! tty
->costs_set
)
525 if (curX (tty
) >= first_unused_hpos
)
527 tty_background_highlight (tty
);
528 if (tty
->TS_clr_line
)
530 OUTPUT1 (tty
, tty
->TS_clr_line
);
533 { /* have to do it the hard way */
534 tty_turn_off_insert (tty
);
536 /* Do not write in last row last col with Auto-wrap on. */
538 && curY (tty
) == FrameRows (tty
) - 1
539 && first_unused_hpos
== FrameCols (tty
))
542 for (i
= curX (tty
); i
< first_unused_hpos
; i
++)
545 fputc (' ', tty
->termscript
);
546 fputc (' ', tty
->output
);
548 cmplus (tty
, first_unused_hpos
- curX (tty
));
552 /* Buffers to store the source and result of code conversion for terminal. */
553 static unsigned char *encode_terminal_src
;
554 static unsigned char *encode_terminal_dst
;
555 /* Allocated sizes of the above buffers. */
556 static int encode_terminal_src_size
;
557 static int encode_terminal_dst_size
;
559 /* Encode SRC_LEN glyphs starting at SRC to terminal output codes.
560 Set CODING->produced to the byte-length of the resulting byte
561 sequence, and return a pointer to that byte sequence. */
564 encode_terminal_code (src
, src_len
, coding
)
567 struct coding_system
*coding
;
569 struct glyph
*src_end
= src
+ src_len
;
571 int nchars
, nbytes
, required
;
572 register int tlen
= GLYPH_TABLE_LENGTH
;
573 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
574 Lisp_Object charset_list
;
576 /* Allocate sufficient size of buffer to store all characters in
577 multibyte-form. But, it may be enlarged on demand if
578 Vglyph_table contains a string or a composite glyph is
580 required
= MAX_MULTIBYTE_LENGTH
* src_len
;
581 if (encode_terminal_src_size
< required
)
583 if (encode_terminal_src_size
== 0)
584 encode_terminal_src
= xmalloc (required
);
586 encode_terminal_src
= xrealloc (encode_terminal_src
, required
);
587 encode_terminal_src_size
= required
;
590 charset_list
= coding_charset_list (coding
);
592 buf
= encode_terminal_src
;
594 while (src
< src_end
)
596 if (src
->type
== COMPOSITE_GLYPH
)
598 struct composition
*cmp
= composition_table
[src
->u
.cmp_id
];
601 nbytes
= buf
- encode_terminal_src
;
602 required
= MAX_MULTIBYTE_LENGTH
* cmp
->glyph_len
;
604 if (encode_terminal_src_size
< nbytes
+ required
)
606 encode_terminal_src_size
= nbytes
+ required
;
607 encode_terminal_src
= xrealloc (encode_terminal_src
,
608 encode_terminal_src_size
);
609 buf
= encode_terminal_src
+ nbytes
;
612 for (i
= 0; i
< cmp
->glyph_len
; i
++)
614 int c
= COMPOSITION_GLYPH (cmp
, i
);
616 if (! char_charset (c
, charset_list
, NULL
))
618 buf
+= CHAR_STRING (c
, buf
);
623 /* The first character of the composition is not encodable. */
628 /* We must skip glyphs to be padded for a wide character. */
629 else if (! CHAR_GLYPH_PADDING_P (*src
))
636 SET_GLYPH_FROM_CHAR_GLYPH (g
, src
[0]);
638 if (GLYPH_INVALID_P (g
) || GLYPH_SIMPLE_P (tbase
, tlen
, g
))
640 /* This glyph doesn't has an entry in Vglyph_table. */
645 /* This glyph has an entry in Vglyph_table,
646 so process any alias before testing for simpleness. */
647 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
649 if (GLYPH_SIMPLE_P (tbase
, tlen
, g
))
650 /* We set the multi-byte form of a character in G
651 (that should be an ASCII character) at WORKBUF. */
654 /* We have a string in Vglyph_table. */
655 string
= tbase
[GLYPH_CHAR (g
)];
660 nbytes
= buf
- encode_terminal_src
;
661 if (encode_terminal_src_size
< nbytes
+ MAX_MULTIBYTE_LENGTH
)
663 encode_terminal_src_size
= nbytes
+ MAX_MULTIBYTE_LENGTH
;
664 encode_terminal_src
= xrealloc (encode_terminal_src
,
665 encode_terminal_src_size
);
666 buf
= encode_terminal_src
+ nbytes
;
668 if (char_charset (c
, charset_list
, NULL
))
670 /* Store the multibyte form of C at BUF. */
671 buf
+= CHAR_STRING (c
, buf
);
676 /* C is not encodable. */
679 while (src
+ 1 < src_end
&& CHAR_GLYPH_PADDING_P (src
[1]))
689 unsigned char *p
= SDATA (string
), *pend
= p
+ SBYTES (string
);
691 if (! STRING_MULTIBYTE (string
))
692 string
= string_to_multibyte (string
);
693 nbytes
= buf
- encode_terminal_src
;
694 if (encode_terminal_src_size
< nbytes
+ SBYTES (string
))
696 encode_terminal_src_size
= nbytes
+ SBYTES (string
);
697 encode_terminal_src
= xrealloc (encode_terminal_src
,
698 encode_terminal_src_size
);
699 buf
= encode_terminal_src
+ nbytes
;
701 bcopy (SDATA (string
), buf
, SBYTES (string
));
702 buf
+= SBYTES (string
);
703 nchars
+= SCHARS (string
);
711 coding
->produced
= 0;
715 nbytes
= buf
- encode_terminal_src
;
716 coding
->source
= encode_terminal_src
;
717 if (encode_terminal_dst_size
== 0)
719 encode_terminal_dst_size
= encode_terminal_src_size
;
720 encode_terminal_dst
= xmalloc (encode_terminal_dst_size
);
722 coding
->destination
= encode_terminal_dst
;
723 coding
->dst_bytes
= encode_terminal_dst_size
;
724 encode_coding_object (coding
, Qnil
, 0, 0, nchars
, nbytes
, Qnil
);
725 /* coding->destination may have been reallocated. */
726 encode_terminal_dst
= coding
->destination
;
727 encode_terminal_dst_size
= coding
->dst_bytes
;
729 return (encode_terminal_dst
);
734 /* An implementation of write_glyphs for termcap frames. */
737 tty_write_glyphs (struct frame
*f
, struct glyph
*string
, int len
)
739 unsigned char *conversion_buffer
;
740 struct coding_system
*coding
;
742 struct tty_display_info
*tty
= FRAME_TTY (f
);
744 tty_turn_off_insert (tty
);
745 tty_hide_cursor (tty
);
747 /* Don't dare write in last column of bottom line, if Auto-Wrap,
748 since that would scroll the whole frame on some terminals. */
751 && curY (tty
) + 1 == FRAME_LINES (f
)
752 && (curX (tty
) + len
) == FRAME_COLS (f
))
759 /* If terminal_coding does any conversion, use it, otherwise use
760 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
761 because it always return 1 if the member src_multibyte is 1. */
762 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
763 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
764 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
766 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
770 /* Identify a run of glyphs with the same face. */
771 int face_id
= string
->face_id
;
774 for (n
= 1; n
< len
; ++n
)
775 if (string
[n
].face_id
!= face_id
)
778 /* Turn appearance modes of the face of the run on. */
779 tty_highlight_if_desired (tty
);
780 turn_on_face (f
, face_id
);
783 /* This is the last run. */
784 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
785 conversion_buffer
= encode_terminal_code (string
, n
, coding
);
786 if (coding
->produced
> 0)
789 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->output
);
790 if (ferror (tty
->output
))
791 clearerr (tty
->output
);
793 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->termscript
);
799 /* Turn appearance modes off. */
800 turn_off_face (f
, face_id
);
801 tty_turn_off_highlight (tty
);
807 #ifdef HAVE_GPM /* Only used by GPM code. */
810 tty_write_glyphs_with_face (f
, string
, len
, face_id
)
811 register struct frame
*f
;
812 register struct glyph
*string
;
813 register int len
, face_id
;
815 unsigned char *conversion_buffer
;
816 struct coding_system
*coding
;
818 struct tty_display_info
*tty
= FRAME_TTY (f
);
820 tty_turn_off_insert (tty
);
821 tty_hide_cursor (tty
);
823 /* Don't dare write in last column of bottom line, if Auto-Wrap,
824 since that would scroll the whole frame on some terminals. */
827 && curY (tty
) + 1 == FRAME_LINES (f
)
828 && (curX (tty
) + len
) == FRAME_COLS (f
))
835 /* If terminal_coding does any conversion, use it, otherwise use
836 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
837 because it always return 1 if the member src_multibyte is 1. */
838 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
839 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
840 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
842 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
844 /* Turn appearance modes of the face. */
845 tty_highlight_if_desired (tty
);
846 turn_on_face (f
, face_id
);
848 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
849 conversion_buffer
= encode_terminal_code (string
, len
, coding
);
850 if (coding
->produced
> 0)
853 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->output
);
854 if (ferror (tty
->output
))
855 clearerr (tty
->output
);
857 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->termscript
);
861 /* Turn appearance modes off. */
862 turn_off_face (f
, face_id
);
863 tty_turn_off_highlight (tty
);
869 /* An implementation of insert_glyphs for termcap frames. */
872 tty_insert_glyphs (struct frame
*f
, struct glyph
*start
, int len
)
875 struct glyph
*glyph
= NULL
;
876 unsigned char *conversion_buffer
;
877 unsigned char space
[1];
878 struct coding_system
*coding
;
880 struct tty_display_info
*tty
= FRAME_TTY (f
);
882 if (tty
->TS_ins_multi_chars
)
884 buf
= tparam (tty
->TS_ins_multi_chars
, 0, 0, len
);
888 write_glyphs (f
, start
, len
);
892 tty_turn_on_insert (tty
);
896 space
[0] = SPACEGLYPH
;
898 /* If terminal_coding does any conversion, use it, otherwise use
899 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
900 because it always return 1 if the member src_multibyte is 1. */
901 coding
= (FRAME_TERMINAL_CODING (f
)->common_flags
& CODING_REQUIRE_ENCODING_MASK
902 ? FRAME_TERMINAL_CODING (f
) : &safe_terminal_coding
);
903 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
905 coding
->mode
&= ~CODING_MODE_LAST_BLOCK
;
909 OUTPUT1_IF (tty
, tty
->TS_ins_char
);
912 conversion_buffer
= space
;
913 coding
->produced
= 1;
917 tty_highlight_if_desired (tty
);
918 turn_on_face (f
, start
->face_id
);
921 /* We must open sufficient space for a character which
922 occupies more than one column. */
923 while (len
&& CHAR_GLYPH_PADDING_P (*start
))
925 OUTPUT1_IF (tty
, tty
->TS_ins_char
);
930 /* This is the last glyph. */
931 coding
->mode
|= CODING_MODE_LAST_BLOCK
;
933 conversion_buffer
= encode_terminal_code (glyph
, 1, coding
);
936 if (coding
->produced
> 0)
939 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->output
);
940 if (ferror (tty
->output
))
941 clearerr (tty
->output
);
943 fwrite (conversion_buffer
, 1, coding
->produced
, tty
->termscript
);
947 OUTPUT1_IF (tty
, tty
->TS_pad_inserted_char
);
950 turn_off_face (f
, glyph
->face_id
);
951 tty_turn_off_highlight (tty
);
958 /* An implementation of delete_glyphs for termcap frames. */
961 tty_delete_glyphs (struct frame
*f
, int n
)
966 struct tty_display_info
*tty
= FRAME_TTY (f
);
968 if (tty
->delete_in_insert_mode
)
970 tty_turn_on_insert (tty
);
974 tty_turn_off_insert (tty
);
975 OUTPUT_IF (tty
, tty
->TS_delete_mode
);
978 if (tty
->TS_del_multi_chars
)
980 buf
= tparam (tty
->TS_del_multi_chars
, 0, 0, n
);
985 for (i
= 0; i
< n
; i
++)
986 OUTPUT1 (tty
, tty
->TS_del_char
);
987 if (!tty
->delete_in_insert_mode
)
988 OUTPUT_IF (tty
, tty
->TS_end_delete_mode
);
991 /* An implementation of ins_del_lines for termcap frames. */
994 tty_ins_del_lines (struct frame
*f
, int vpos
, int n
)
996 struct tty_display_info
*tty
= FRAME_TTY (f
);
997 char *multi
= n
> 0 ? tty
->TS_ins_multi_lines
: tty
->TS_del_multi_lines
;
998 char *single
= n
> 0 ? tty
->TS_ins_line
: tty
->TS_del_line
;
999 char *scroll
= n
> 0 ? tty
->TS_rev_scroll
: tty
->TS_fwd_scroll
;
1001 register int i
= n
> 0 ? n
: -n
;
1004 /* If the lines below the insertion are being pushed
1005 into the end of the window, this is the same as clearing;
1006 and we know the lines are already clear, since the matching
1007 deletion has already been done. So can ignore this. */
1008 /* If the lines below the deletion are blank lines coming
1009 out of the end of the window, don't bother,
1010 as there will be a matching inslines later that will flush them. */
1011 if (FRAME_SCROLL_REGION_OK (f
)
1012 && vpos
+ i
>= tty
->specified_window
)
1014 if (!FRAME_MEMORY_BELOW_FRAME (f
)
1015 && vpos
+ i
>= FRAME_LINES (f
))
1020 raw_cursor_to (f
, vpos
, 0);
1021 tty_background_highlight (tty
);
1022 buf
= tparam (multi
, 0, 0, i
);
1028 raw_cursor_to (f
, vpos
, 0);
1029 tty_background_highlight (tty
);
1031 OUTPUT (tty
, single
);
1032 if (tty
->TF_teleray
)
1037 tty_set_scroll_region (f
, vpos
, tty
->specified_window
);
1039 raw_cursor_to (f
, tty
->specified_window
- 1, 0);
1041 raw_cursor_to (f
, vpos
, 0);
1042 tty_background_highlight (tty
);
1044 OUTPUTL (tty
, scroll
, tty
->specified_window
- vpos
);
1045 tty_set_scroll_region (f
, 0, tty
->specified_window
);
1048 if (!FRAME_SCROLL_REGION_OK (f
)
1049 && FRAME_MEMORY_BELOW_FRAME (f
)
1052 cursor_to (f
, FRAME_LINES (f
) + n
, 0);
1057 /* Compute cost of sending "str", in characters,
1058 not counting any line-dependent padding. */
1061 string_cost (char *str
)
1065 tputs (str
, 0, evalcost
);
1069 /* Compute cost of sending "str", in characters,
1070 counting any line-dependent padding at one line. */
1073 string_cost_one_line (char *str
)
1077 tputs (str
, 1, evalcost
);
1081 /* Compute per line amount of line-dependent padding,
1082 in tenths of characters. */
1085 per_line_cost (char *str
)
1089 tputs (str
, 0, evalcost
);
1092 tputs (str
, 10, evalcost
);
1097 /* char_ins_del_cost[n] is cost of inserting N characters.
1098 char_ins_del_cost[-n] is cost of deleting N characters.
1099 The length of this vector is based on max_frame_cols. */
1101 int *char_ins_del_vector
;
1103 #define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_COLS ((f))])
1108 calculate_ins_del_char_costs (struct frame
*f
)
1110 struct tty_display_info
*tty
= FRAME_TTY (f
);
1111 int ins_startup_cost
, del_startup_cost
;
1112 int ins_cost_per_char
, del_cost_per_char
;
1116 if (tty
->TS_ins_multi_chars
)
1118 ins_cost_per_char
= 0;
1119 ins_startup_cost
= string_cost_one_line (tty
->TS_ins_multi_chars
);
1121 else if (tty
->TS_ins_char
|| tty
->TS_pad_inserted_char
1122 || (tty
->TS_insert_mode
&& tty
->TS_end_insert_mode
))
1124 ins_startup_cost
= (30 * (string_cost (tty
->TS_insert_mode
)
1125 + string_cost (tty
->TS_end_insert_mode
))) / 100;
1126 ins_cost_per_char
= (string_cost_one_line (tty
->TS_ins_char
)
1127 + string_cost_one_line (tty
->TS_pad_inserted_char
));
1131 ins_startup_cost
= 9999;
1132 ins_cost_per_char
= 0;
1135 if (tty
->TS_del_multi_chars
)
1137 del_cost_per_char
= 0;
1138 del_startup_cost
= string_cost_one_line (tty
->TS_del_multi_chars
);
1140 else if (tty
->TS_del_char
)
1142 del_startup_cost
= (string_cost (tty
->TS_delete_mode
)
1143 + string_cost (tty
->TS_end_delete_mode
));
1144 if (tty
->delete_in_insert_mode
)
1145 del_startup_cost
/= 2;
1146 del_cost_per_char
= string_cost_one_line (tty
->TS_del_char
);
1150 del_startup_cost
= 9999;
1151 del_cost_per_char
= 0;
1154 /* Delete costs are at negative offsets */
1155 p
= &char_ins_del_cost (f
)[0];
1156 for (i
= FRAME_COLS (f
); --i
>= 0;)
1157 *--p
= (del_startup_cost
+= del_cost_per_char
);
1159 /* Doing nothing is free */
1160 p
= &char_ins_del_cost (f
)[0];
1163 /* Insert costs are at positive offsets */
1164 for (i
= FRAME_COLS (f
); --i
>= 0;)
1165 *p
++ = (ins_startup_cost
+= ins_cost_per_char
);
1169 calculate_costs (struct frame
*frame
)
1171 FRAME_COST_BAUD_RATE (frame
) = baud_rate
;
1173 if (FRAME_TERMCAP_P (frame
))
1175 struct tty_display_info
*tty
= FRAME_TTY (frame
);
1176 register char *f
= (tty
->TS_set_scroll_region
1177 ? tty
->TS_set_scroll_region
1178 : tty
->TS_set_scroll_region_1
);
1180 FRAME_SCROLL_REGION_COST (frame
) = string_cost (f
);
1184 /* These variables are only used for terminal stuff. They are
1185 allocated once for the terminal frame of X-windows emacs, but not
1188 char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
1189 X turns off char_ins_del_ok. */
1191 max_frame_lines
= max (max_frame_lines
, FRAME_LINES (frame
));
1192 max_frame_cols
= max (max_frame_cols
, FRAME_COLS (frame
));
1194 if (char_ins_del_vector
!= 0)
1196 = (int *) xrealloc (char_ins_del_vector
,
1198 + 2 * max_frame_cols
* sizeof (int)));
1201 = (int *) xmalloc (sizeof (int)
1202 + 2 * max_frame_cols
* sizeof (int));
1204 bzero (char_ins_del_vector
, (sizeof (int)
1205 + 2 * max_frame_cols
* sizeof (int)));
1208 if (f
&& (!tty
->TS_ins_line
&& !tty
->TS_del_line
))
1209 do_line_insertion_deletion_costs (frame
,
1210 tty
->TS_rev_scroll
, tty
->TS_ins_multi_lines
,
1211 tty
->TS_fwd_scroll
, tty
->TS_del_multi_lines
,
1214 do_line_insertion_deletion_costs (frame
,
1215 tty
->TS_ins_line
, tty
->TS_ins_multi_lines
,
1216 tty
->TS_del_line
, tty
->TS_del_multi_lines
,
1219 calculate_ins_del_char_costs (frame
);
1221 /* Don't use TS_repeat if its padding is worse than sending the chars */
1222 if (tty
->TS_repeat
&& per_line_cost (tty
->TS_repeat
) * baud_rate
< 9000)
1223 tty
->RPov
= string_cost (tty
->TS_repeat
);
1225 tty
->RPov
= FRAME_COLS (frame
) * 2;
1227 cmcostinit (FRAME_TTY (frame
)); /* set up cursor motion costs */
1235 /* Termcap capability names that correspond directly to X keysyms.
1236 Some of these (marked "terminfo") aren't supplied by old-style
1237 (Berkeley) termcap entries. They're listed in X keysym order;
1238 except we put the keypad keys first, so that if they clash with
1239 other keys (as on the IBM PC keyboard) they get overridden.
1242 static struct fkey_table keys
[] =
1244 {"kh", "home"}, /* termcap */
1245 {"kl", "left"}, /* termcap */
1246 {"ku", "up"}, /* termcap */
1247 {"kr", "right"}, /* termcap */
1248 {"kd", "down"}, /* termcap */
1249 {"%8", "prior"}, /* terminfo */
1250 {"%5", "next"}, /* terminfo */
1251 {"@7", "end"}, /* terminfo */
1252 {"@1", "begin"}, /* terminfo */
1253 {"*6", "select"}, /* terminfo */
1254 {"%9", "print"}, /* terminfo */
1255 {"@4", "execute"}, /* terminfo --- actually the `command' key */
1257 * "insert" --- see below
1259 {"&8", "undo"}, /* terminfo */
1260 {"%0", "redo"}, /* terminfo */
1261 {"%7", "menu"}, /* terminfo --- actually the `options' key */
1262 {"@0", "find"}, /* terminfo */
1263 {"@2", "cancel"}, /* terminfo */
1264 {"%1", "help"}, /* terminfo */
1266 * "break" goes here, but can't be reliably intercepted with termcap
1268 {"&4", "reset"}, /* terminfo --- actually `restart' */
1270 * "system" and "user" --- no termcaps
1272 {"kE", "clearline"}, /* terminfo */
1273 {"kA", "insertline"}, /* terminfo */
1274 {"kL", "deleteline"}, /* terminfo */
1275 {"kI", "insertchar"}, /* terminfo */
1276 {"kD", "deletechar"}, /* terminfo */
1277 {"kB", "backtab"}, /* terminfo */
1279 * "kp_backtab", "kp-space", "kp-tab" --- no termcaps
1281 {"@8", "kp-enter"}, /* terminfo */
1283 * "kp-f1", "kp-f2", "kp-f3" "kp-f4",
1284 * "kp-multiply", "kp-add", "kp-separator",
1285 * "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
1286 * --- no termcaps for any of these.
1288 {"K4", "kp-1"}, /* terminfo */
1290 * "kp-2" --- no termcap
1292 {"K5", "kp-3"}, /* terminfo */
1294 * "kp-4" --- no termcap
1296 {"K2", "kp-5"}, /* terminfo */
1298 * "kp-6" --- no termcap
1300 {"K1", "kp-7"}, /* terminfo */
1302 * "kp-8" --- no termcap
1304 {"K3", "kp-9"}, /* terminfo */
1306 * "kp-equal" --- no termcap
1318 {"&0", "S-cancel"}, /*shifted cancel key*/
1319 {"&9", "S-begin"}, /*shifted begin key*/
1320 {"*0", "S-find"}, /*shifted find key*/
1321 {"*1", "S-execute"}, /*shifted execute? actually shifted command key*/
1322 {"*4", "S-delete"}, /*shifted delete-character key*/
1323 {"*7", "S-end"}, /*shifted end key*/
1324 {"*8", "S-clearline"}, /*shifted clear-to end-of-line key*/
1325 {"#1", "S-help"}, /*shifted help key*/
1326 {"#2", "S-home"}, /*shifted home key*/
1327 {"#3", "S-insert"}, /*shifted insert-character key*/
1328 {"#4", "S-left"}, /*shifted left-arrow key*/
1329 {"%d", "S-menu"}, /*shifted menu? actually shifted options key*/
1330 {"%c", "S-next"}, /*shifted next key*/
1331 {"%e", "S-prior"}, /*shifted previous key*/
1332 {"%f", "S-print"}, /*shifted print key*/
1333 {"%g", "S-redo"}, /*shifted redo key*/
1334 {"%i", "S-right"}, /*shifted right-arrow key*/
1335 {"!3", "S-undo"} /*shifted undo key*/
1338 static char **term_get_fkeys_address
;
1339 static KBOARD
*term_get_fkeys_kboard
;
1340 static Lisp_Object
term_get_fkeys_1 ();
1342 /* Find the escape codes sent by the function keys for Vinput_decode_map.
1343 This function scans the termcap function key sequence entries, and
1344 adds entries to Vinput_decode_map for each function key it finds. */
1347 term_get_fkeys (address
, kboard
)
1351 /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
1352 errors during the call. The only errors should be from Fdefine_key
1353 when given a key sequence containing an invalid prefix key. If the
1354 termcap defines function keys which use a prefix that is already bound
1355 to a command by the default bindings, we should silently ignore that
1356 function key specification, rather than giving the user an error and
1357 refusing to run at all on such a terminal. */
1359 extern Lisp_Object
Fidentity ();
1360 term_get_fkeys_address
= address
;
1361 term_get_fkeys_kboard
= kboard
;
1362 internal_condition_case (term_get_fkeys_1
, Qerror
, Fidentity
);
1370 char **address
= term_get_fkeys_address
;
1371 KBOARD
*kboard
= term_get_fkeys_kboard
;
1373 /* This can happen if CANNOT_DUMP or with strange options. */
1374 if (!KEYMAPP (kboard
->Vinput_decode_map
))
1375 kboard
->Vinput_decode_map
= Fmake_sparse_keymap (Qnil
);
1377 for (i
= 0; i
< (sizeof (keys
)/sizeof (keys
[0])); i
++)
1379 char *sequence
= tgetstr (keys
[i
].cap
, address
);
1381 Fdefine_key (kboard
->Vinput_decode_map
, build_string (sequence
),
1382 Fmake_vector (make_number (1),
1383 intern (keys
[i
].name
)));
1386 /* The uses of the "k0" capability are inconsistent; sometimes it
1387 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1388 We will attempt to politely accommodate both systems by testing for
1389 "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
1392 char *k_semi
= tgetstr ("k;", address
);
1393 char *k0
= tgetstr ("k0", address
);
1394 char *k0_name
= "f10";
1399 /* Define f0 first, so that f10 takes precedence in case the
1400 key sequences happens to be the same. */
1401 Fdefine_key (kboard
->Vinput_decode_map
, build_string (k0
),
1402 Fmake_vector (make_number (1), intern ("f0")));
1403 Fdefine_key (kboard
->Vinput_decode_map
, build_string (k_semi
),
1404 Fmake_vector (make_number (1), intern ("f10")));
1407 Fdefine_key (kboard
->Vinput_decode_map
, build_string (k0
),
1408 Fmake_vector (make_number (1), intern (k0_name
)));
1411 /* Set up cookies for numbered function keys above f10. */
1413 char fcap
[3], fkey
[4];
1415 fcap
[0] = 'F'; fcap
[2] = '\0';
1416 for (i
= 11; i
< 64; i
++)
1419 fcap
[1] = '1' + i
- 11;
1421 fcap
[1] = 'A' + i
- 20;
1423 fcap
[1] = 'a' + i
- 46;
1426 char *sequence
= tgetstr (fcap
, address
);
1429 sprintf (fkey
, "f%d", i
);
1430 Fdefine_key (kboard
->Vinput_decode_map
, build_string (sequence
),
1431 Fmake_vector (make_number (1),
1439 * Various mappings to try and get a better fit.
1442 #define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
1443 if (!tgetstr (cap1, address)) \
1445 char *sequence = tgetstr (cap2, address); \
1447 Fdefine_key (kboard->Vinput_decode_map, build_string (sequence), \
1448 Fmake_vector (make_number (1), \
1452 /* if there's no key_next keycap, map key_npage to `next' keysym */
1453 CONDITIONAL_REASSIGN ("%5", "kN", "next");
1454 /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
1455 CONDITIONAL_REASSIGN ("%8", "kP", "prior");
1456 /* if there's no key_dc keycap, map key_ic to `insert' keysym */
1457 CONDITIONAL_REASSIGN ("kD", "kI", "insert");
1458 /* if there's no key_end keycap, map key_ll to 'end' keysym */
1459 CONDITIONAL_REASSIGN ("@7", "kH", "end");
1461 /* IBM has their own non-standard dialect of terminfo.
1462 If the standard name isn't found, try the IBM name. */
1463 CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
1464 CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
1465 CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
1466 CONDITIONAL_REASSIGN ("%7", "ki", "menu");
1467 CONDITIONAL_REASSIGN ("@7", "kw", "end");
1468 CONDITIONAL_REASSIGN ("F1", "k<", "f11");
1469 CONDITIONAL_REASSIGN ("F2", "k>", "f12");
1470 CONDITIONAL_REASSIGN ("%1", "kq", "help");
1471 CONDITIONAL_REASSIGN ("*6", "kU", "select");
1472 #undef CONDITIONAL_REASSIGN
1479 /***********************************************************************
1480 Character Display Information
1481 ***********************************************************************/
1483 /* Avoid name clash with functions defined in xterm.c */
1485 #define append_glyph append_glyph_term
1486 #define produce_stretch_glyph produce_stretch_glyph_term
1487 #define append_composite_glyph append_composite_glyph_term
1488 #define produce_composite_glyph produce_composite_glyph_term
1491 static void append_glyph
P_ ((struct it
*));
1492 static void produce_stretch_glyph
P_ ((struct it
*));
1493 static void append_composite_glyph
P_ ((struct it
*));
1494 static void produce_composite_glyph
P_ ((struct it
*));
1496 /* Append glyphs to IT's glyph_row. Called from produce_glyphs for
1497 terminal frames if IT->glyph_row != NULL. IT->char_to_display is
1498 the character for which to produce glyphs; IT->face_id contains the
1499 character's face. Padding glyphs are appended if IT->c has a
1500 IT->pixel_width > 1. */
1506 struct glyph
*glyph
, *end
;
1509 xassert (it
->glyph_row
);
1510 glyph
= (it
->glyph_row
->glyphs
[it
->area
]
1511 + it
->glyph_row
->used
[it
->area
]);
1512 end
= it
->glyph_row
->glyphs
[1 + it
->area
];
1515 i
< it
->pixel_width
&& glyph
< end
;
1518 glyph
->type
= CHAR_GLYPH
;
1519 glyph
->pixel_width
= 1;
1520 glyph
->u
.ch
= it
->char_to_display
;
1521 glyph
->face_id
= it
->face_id
;
1522 glyph
->padding_p
= i
> 0;
1523 glyph
->charpos
= CHARPOS (it
->position
);
1524 glyph
->object
= it
->object
;
1526 ++it
->glyph_row
->used
[it
->area
];
1532 /* Produce glyphs for the display element described by IT. *IT
1533 specifies what we want to produce a glyph for (character, image, ...),
1534 and where in the glyph matrix we currently are (glyph row and hpos).
1535 produce_glyphs fills in output fields of *IT with information such as the
1536 pixel width and height of a character, and maybe output actual glyphs at
1537 the same time if IT->glyph_row is non-null. See the explanation of
1538 struct display_iterator in dispextern.h for an overview.
1540 produce_glyphs also stores the result of glyph width, ascent
1541 etc. computations in *IT.
1543 IT->glyph_row may be null, in which case produce_glyphs does not
1544 actually fill in the glyphs. This is used in the move_* functions
1545 in xdisp.c for text width and height computations.
1547 Callers usually don't call produce_glyphs directly;
1548 instead they use the macro PRODUCE_GLYPHS. */
1554 /* If a hook is installed, let it do the work. */
1556 /* Nothing but characters are supported on terminal frames. */
1557 xassert (it
->what
== IT_CHARACTER
1558 || it
->what
== IT_COMPOSITION
1559 || it
->what
== IT_STRETCH
);
1561 if (it
->what
== IT_STRETCH
)
1563 produce_stretch_glyph (it
);
1567 if (it
->what
== IT_COMPOSITION
)
1569 produce_composite_glyph (it
);
1573 /* Maybe translate single-byte characters to multibyte. */
1574 it
->char_to_display
= it
->c
;
1576 if (it
->c
>= 040 && it
->c
< 0177)
1578 it
->pixel_width
= it
->nglyphs
= 1;
1582 else if (it
->c
== '\n')
1583 it
->pixel_width
= it
->nglyphs
= 0;
1584 else if (it
->c
== '\t')
1586 int absolute_x
= (it
->current_x
1587 + it
->continuation_lines_width
);
1589 = (((1 + absolute_x
+ it
->tab_width
- 1)
1594 /* If part of the TAB has been displayed on the previous line
1595 which is continued now, continuation_lines_width will have
1596 been incremented already by the part that fitted on the
1597 continued line. So, we will get the right number of spaces
1599 nspaces
= next_tab_x
- absolute_x
;
1605 it
->char_to_display
= ' ';
1606 it
->pixel_width
= it
->len
= 1;
1612 it
->pixel_width
= nspaces
;
1613 it
->nglyphs
= nspaces
;
1615 else if (CHAR_BYTE8_P (it
->c
))
1617 if (unibyte_display_via_language_environment
1620 it
->char_to_display
= unibyte_char_to_multibyte (it
->c
);
1621 it
->pixel_width
= CHAR_WIDTH (it
->char_to_display
);
1622 it
->nglyphs
= it
->pixel_width
;
1628 /* Coming here means that it->c is from display table, thus
1629 we must send the raw 8-bit byte as is to the terminal.
1630 Although there's no way to know how many columns it
1631 occupies on a screen, it is a good assumption that a
1632 single byte code has 1-column width. */
1633 it
->pixel_width
= it
->nglyphs
= 1;
1640 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1641 it
->nglyphs
= it
->pixel_width
;
1648 /* Advance current_x by the pixel width as a convenience for
1650 if (it
->area
== TEXT_AREA
)
1651 it
->current_x
+= it
->pixel_width
;
1652 it
->ascent
= it
->max_ascent
= it
->phys_ascent
= it
->max_phys_ascent
= 0;
1653 it
->descent
= it
->max_descent
= it
->phys_descent
= it
->max_phys_descent
= 1;
1657 /* Produce a stretch glyph for iterator IT. IT->object is the value
1658 of the glyph property displayed. The value must be a list
1659 `(space KEYWORD VALUE ...)' with the following KEYWORD/VALUE pairs
1662 1. `:width WIDTH' specifies that the space should be WIDTH *
1663 canonical char width wide. WIDTH may be an integer or floating
1666 2. `:align-to HPOS' specifies that the space should be wide enough
1667 to reach HPOS, a value in canonical character units. */
1670 produce_stretch_glyph (it
)
1673 /* (space :width WIDTH ...) */
1674 Lisp_Object prop
, plist
;
1675 int width
= 0, align_to
= -1;
1676 int zero_width_ok_p
= 0;
1679 /* List should start with `space'. */
1680 xassert (CONSP (it
->object
) && EQ (XCAR (it
->object
), Qspace
));
1681 plist
= XCDR (it
->object
);
1683 /* Compute the width of the stretch. */
1684 if ((prop
= Fplist_get (plist
, QCwidth
), !NILP (prop
))
1685 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, 0))
1687 /* Absolute width `:width WIDTH' specified and valid. */
1688 zero_width_ok_p
= 1;
1689 width
= (int)(tem
+ 0.5);
1691 else if ((prop
= Fplist_get (plist
, QCalign_to
), !NILP (prop
))
1692 && calc_pixel_width_or_height (&tem
, it
, prop
, 0, 1, &align_to
))
1694 if (it
->glyph_row
== NULL
|| !it
->glyph_row
->mode_line_p
)
1695 align_to
= (align_to
< 0
1697 : align_to
- window_box_left_offset (it
->w
, TEXT_AREA
));
1698 else if (align_to
< 0)
1699 align_to
= window_box_left_offset (it
->w
, TEXT_AREA
);
1700 width
= max (0, (int)(tem
+ 0.5) + align_to
- it
->current_x
);
1701 zero_width_ok_p
= 1;
1704 /* Nothing specified -> width defaults to canonical char width. */
1705 width
= FRAME_COLUMN_WIDTH (it
->f
);
1707 if (width
<= 0 && (width
< 0 || !zero_width_ok_p
))
1710 if (width
> 0 && it
->glyph_row
)
1712 Lisp_Object o_object
= it
->object
;
1713 Lisp_Object object
= it
->stack
[it
->sp
- 1].string
;
1716 if (!STRINGP (object
))
1717 object
= it
->w
->buffer
;
1718 it
->object
= object
;
1719 it
->char_to_display
= ' ';
1720 it
->pixel_width
= it
->len
= 1;
1723 it
->object
= o_object
;
1725 it
->pixel_width
= width
;
1726 it
->nglyphs
= width
;
1730 /* Append glyphs to IT's glyph_row for the composition IT->cmp_id.
1731 Called from produce_composite_glyph for terminal frames if
1732 IT->glyph_row != NULL. IT->face_id contains the character's
1736 append_composite_glyph (it
)
1739 struct glyph
*glyph
;
1741 xassert (it
->glyph_row
);
1742 glyph
= it
->glyph_row
->glyphs
[it
->area
] + it
->glyph_row
->used
[it
->area
];
1743 if (glyph
< it
->glyph_row
->glyphs
[1 + it
->area
])
1745 glyph
->type
= COMPOSITE_GLYPH
;
1746 glyph
->pixel_width
= it
->pixel_width
;
1747 glyph
->u
.cmp_id
= it
->cmp_id
;
1748 glyph
->face_id
= it
->face_id
;
1749 glyph
->padding_p
= 0;
1750 glyph
->charpos
= CHARPOS (it
->position
);
1751 glyph
->object
= it
->object
;
1753 ++it
->glyph_row
->used
[it
->area
];
1759 /* Produce a composite glyph for iterator IT. IT->cmp_id is the ID of
1760 the composition. We simply produces components of the composition
1761 assuming that that the terminal has a capability to layout/render
1765 produce_composite_glyph (it
)
1768 struct composition
*cmp
= composition_table
[it
->cmp_id
];
1771 xassert (cmp
->glyph_len
> 0);
1772 c
= COMPOSITION_GLYPH (cmp
, 0);
1773 it
->pixel_width
= CHAR_WIDTH (it
->c
);
1777 append_composite_glyph (it
);
1781 /* Get information about special display element WHAT in an
1782 environment described by IT. WHAT is one of IT_TRUNCATION or
1783 IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
1784 non-null glyph_row member. This function ensures that fields like
1785 face_id, c, len of IT are left untouched. */
1788 produce_special_glyphs (it
, what
)
1790 enum display_element_type what
;
1798 temp_it
.what
= IT_CHARACTER
;
1800 temp_it
.object
= make_number (0);
1801 bzero (&temp_it
.current
, sizeof temp_it
.current
);
1803 if (what
== IT_CONTINUATION
)
1805 /* Continuation glyph. */
1806 SET_GLYPH_FROM_CHAR (glyph
, '\\');
1808 && (gc
= DISP_CONTINUE_GLYPH (it
->dp
), GLYPH_CODE_P (gc
))
1809 && GLYPH_CODE_CHAR_VALID_P (gc
))
1811 SET_GLYPH_FROM_GLYPH_CODE (glyph
, gc
);
1812 spec_glyph_lookup_face (XWINDOW (it
->window
), &glyph
);
1815 else if (what
== IT_TRUNCATION
)
1817 /* Truncation glyph. */
1818 SET_GLYPH_FROM_CHAR (glyph
, '$');
1820 && (gc
= DISP_TRUNC_GLYPH (it
->dp
), GLYPH_CODE_P (gc
))
1821 && GLYPH_CODE_CHAR_VALID_P (gc
))
1823 SET_GLYPH_FROM_GLYPH_CODE (glyph
, gc
);
1824 spec_glyph_lookup_face (XWINDOW (it
->window
), &glyph
);
1830 temp_it
.c
= GLYPH_CHAR (glyph
);
1831 temp_it
.face_id
= GLYPH_FACE (glyph
);
1832 temp_it
.len
= CHAR_BYTES (temp_it
.c
);
1834 produce_glyphs (&temp_it
);
1835 it
->pixel_width
= temp_it
.pixel_width
;
1836 it
->nglyphs
= temp_it
.pixel_width
;
1841 /***********************************************************************
1843 ***********************************************************************/
1845 /* Value is non-zero if attribute ATTR may be used. ATTR should be
1846 one of the enumerators from enum no_color_bit, or a bit set built
1847 from them. Some display attributes may not be used together with
1848 color; the termcap capability `NC' specifies which ones. */
1850 #define MAY_USE_WITH_COLORS_P(tty, ATTR) \
1851 (tty->TN_max_colors > 0 \
1852 ? (tty->TN_no_color_video & (ATTR)) == 0 \
1855 /* Turn appearances of face FACE_ID on tty frame F on.
1856 FACE_ID is a realized face ID number, in the face cache. */
1859 turn_on_face (f
, face_id
)
1863 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1864 long fg
= face
->foreground
;
1865 long bg
= face
->background
;
1866 struct tty_display_info
*tty
= FRAME_TTY (f
);
1868 /* Do this first because TS_end_standout_mode may be the same
1869 as TS_exit_attribute_mode, which turns all appearances off. */
1870 if (MAY_USE_WITH_COLORS_P (tty
, NC_REVERSE
))
1872 if (tty
->TN_max_colors
> 0)
1874 if (fg
>= 0 && bg
>= 0)
1876 /* If the terminal supports colors, we can set them
1877 below without using reverse video. The face's fg
1878 and bg colors are set as they should appear on
1879 the screen, i.e. they take the inverse-video'ness
1880 of the face already into account. */
1882 else if (inverse_video
)
1884 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1885 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1886 tty_toggle_highlight (tty
);
1890 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1891 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1892 tty_toggle_highlight (tty
);
1897 /* If we can't display colors, use reverse video
1898 if the face specifies that. */
1901 if (fg
== FACE_TTY_DEFAULT_FG_COLOR
1902 || bg
== FACE_TTY_DEFAULT_BG_COLOR
)
1903 tty_toggle_highlight (tty
);
1907 if (fg
== FACE_TTY_DEFAULT_BG_COLOR
1908 || bg
== FACE_TTY_DEFAULT_FG_COLOR
)
1909 tty_toggle_highlight (tty
);
1914 if (face
->tty_bold_p
)
1916 if (MAY_USE_WITH_COLORS_P (tty
, NC_BOLD
))
1917 OUTPUT1_IF (tty
, tty
->TS_enter_bold_mode
);
1919 else if (face
->tty_dim_p
)
1920 if (MAY_USE_WITH_COLORS_P (tty
, NC_DIM
))
1921 OUTPUT1_IF (tty
, tty
->TS_enter_dim_mode
);
1923 /* Alternate charset and blinking not yet used. */
1924 if (face
->tty_alt_charset_p
1925 && MAY_USE_WITH_COLORS_P (tty
, NC_ALT_CHARSET
))
1926 OUTPUT1_IF (tty
, tty
->TS_enter_alt_charset_mode
);
1928 if (face
->tty_blinking_p
1929 && MAY_USE_WITH_COLORS_P (tty
, NC_BLINK
))
1930 OUTPUT1_IF (tty
, tty
->TS_enter_blink_mode
);
1932 if (face
->tty_underline_p
&& MAY_USE_WITH_COLORS_P (tty
, NC_UNDERLINE
))
1933 OUTPUT1_IF (tty
, tty
->TS_enter_underline_mode
);
1935 if (tty
->TN_max_colors
> 0)
1939 ts
= tty
->standout_mode
? tty
->TS_set_background
: tty
->TS_set_foreground
;
1942 p
= tparam (ts
, NULL
, 0, (int) fg
);
1947 ts
= tty
->standout_mode
? tty
->TS_set_foreground
: tty
->TS_set_background
;
1950 p
= tparam (ts
, NULL
, 0, (int) bg
);
1958 /* Turn off appearances of face FACE_ID on tty frame F. */
1961 turn_off_face (f
, face_id
)
1965 struct face
*face
= FACE_FROM_ID (f
, face_id
);
1966 struct tty_display_info
*tty
= FRAME_TTY (f
);
1968 xassert (face
!= NULL
);
1970 if (tty
->TS_exit_attribute_mode
)
1972 /* Capability "me" will turn off appearance modes double-bright,
1973 half-bright, reverse-video, standout, underline. It may or
1974 may not turn off alt-char-mode. */
1975 if (face
->tty_bold_p
1977 || face
->tty_reverse_p
1978 || face
->tty_alt_charset_p
1979 || face
->tty_blinking_p
1980 || face
->tty_underline_p
)
1982 OUTPUT1_IF (tty
, tty
->TS_exit_attribute_mode
);
1983 if (strcmp (tty
->TS_exit_attribute_mode
, tty
->TS_end_standout_mode
) == 0)
1984 tty
->standout_mode
= 0;
1987 if (face
->tty_alt_charset_p
)
1988 OUTPUT_IF (tty
, tty
->TS_exit_alt_charset_mode
);
1992 /* If we don't have "me" we can only have those appearances
1993 that have exit sequences defined. */
1994 if (face
->tty_alt_charset_p
)
1995 OUTPUT_IF (tty
, tty
->TS_exit_alt_charset_mode
);
1997 if (face
->tty_underline_p
)
1998 OUTPUT_IF (tty
, tty
->TS_exit_underline_mode
);
2001 /* Switch back to default colors. */
2002 if (tty
->TN_max_colors
> 0
2003 && ((face
->foreground
!= FACE_TTY_DEFAULT_COLOR
2004 && face
->foreground
!= FACE_TTY_DEFAULT_FG_COLOR
)
2005 || (face
->background
!= FACE_TTY_DEFAULT_COLOR
2006 && face
->background
!= FACE_TTY_DEFAULT_BG_COLOR
)))
2007 OUTPUT1_IF (tty
, tty
->TS_orig_pair
);
2011 /* Return non-zero if the terminal on frame F supports all of the
2012 capabilities in CAPS simultaneously, with foreground and background
2013 colors FG and BG. */
2016 tty_capable_p (tty
, caps
, fg
, bg
)
2017 struct tty_display_info
*tty
;
2019 unsigned long fg
, bg
;
2021 #define TTY_CAPABLE_P_TRY(tty, cap, TS, NC_bit) \
2022 if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(tty, NC_bit))) \
2025 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_INVERSE
, tty
->TS_standout_mode
, NC_REVERSE
);
2026 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_UNDERLINE
, tty
->TS_enter_underline_mode
, NC_UNDERLINE
);
2027 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_BOLD
, tty
->TS_enter_bold_mode
, NC_BOLD
);
2028 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_DIM
, tty
->TS_enter_dim_mode
, NC_DIM
);
2029 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_BLINK
, tty
->TS_enter_blink_mode
, NC_BLINK
);
2030 TTY_CAPABLE_P_TRY (tty
, TTY_CAP_ALT_CHARSET
, tty
->TS_enter_alt_charset_mode
, NC_ALT_CHARSET
);
2036 /* Return non-zero if the terminal is capable to display colors. */
2038 DEFUN ("tty-display-color-p", Ftty_display_color_p
, Stty_display_color_p
,
2040 doc
: /* Return non-nil if the tty device TERMINAL can display colors.
2042 TERMINAL can be a terminal id, a frame or nil (meaning the selected
2043 frame's terminal). This function always returns nil if TERMINAL
2044 is not on a tty device. */)
2046 Lisp_Object terminal
;
2048 struct terminal
*t
= get_tty_terminal (terminal
, 0);
2052 return t
->display_info
.tty
->TN_max_colors
> 0 ? Qt
: Qnil
;
2055 /* Return the number of supported colors. */
2056 DEFUN ("tty-display-color-cells", Ftty_display_color_cells
,
2057 Stty_display_color_cells
, 0, 1, 0,
2058 doc
: /* Return the number of colors supported by the tty device TERMINAL.
2060 TERMINAL can be a terminal id, a frame or nil (meaning the selected
2061 frame's terminal). This function always returns 0 if TERMINAL
2062 is not on a tty device. */)
2064 Lisp_Object terminal
;
2066 struct terminal
*t
= get_tty_terminal (terminal
, 0);
2068 return make_number (0);
2070 return make_number (t
->display_info
.tty
->TN_max_colors
);
2075 /* Declare here rather than in the function, as in the rest of Emacs,
2076 to work around an HPUX compiler bug (?). See
2077 http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00410.html */
2078 static int default_max_colors
;
2079 static int default_max_pairs
;
2080 static int default_no_color_video
;
2081 static char *default_orig_pair
;
2082 static char *default_set_foreground
;
2083 static char *default_set_background
;
2085 /* Save or restore the default color-related capabilities of this
2088 tty_default_color_capabilities (struct tty_display_info
*tty
, int save
)
2093 if (default_orig_pair
)
2094 xfree (default_orig_pair
);
2095 default_orig_pair
= tty
->TS_orig_pair
? xstrdup (tty
->TS_orig_pair
) : NULL
;
2097 if (default_set_foreground
)
2098 xfree (default_set_foreground
);
2099 default_set_foreground
= tty
->TS_set_foreground
? xstrdup (tty
->TS_set_foreground
)
2102 if (default_set_background
)
2103 xfree (default_set_background
);
2104 default_set_background
= tty
->TS_set_background
? xstrdup (tty
->TS_set_background
)
2107 default_max_colors
= tty
->TN_max_colors
;
2108 default_max_pairs
= tty
->TN_max_pairs
;
2109 default_no_color_video
= tty
->TN_no_color_video
;
2113 tty
->TS_orig_pair
= default_orig_pair
;
2114 tty
->TS_set_foreground
= default_set_foreground
;
2115 tty
->TS_set_background
= default_set_background
;
2116 tty
->TN_max_colors
= default_max_colors
;
2117 tty
->TN_max_pairs
= default_max_pairs
;
2118 tty
->TN_no_color_video
= default_no_color_video
;
2122 /* Setup one of the standard tty color schemes according to MODE.
2123 MODE's value is generally the number of colors which we want to
2124 support; zero means set up for the default capabilities, the ones
2125 we saw at init_tty time; -1 means turn off color support. */
2127 tty_setup_colors (struct tty_display_info
*tty
, int mode
)
2129 /* Canonicalize all negative values of MODE. */
2135 case -1: /* no colors at all */
2136 tty
->TN_max_colors
= 0;
2137 tty
->TN_max_pairs
= 0;
2138 tty
->TN_no_color_video
= 0;
2139 tty
->TS_set_foreground
= tty
->TS_set_background
= tty
->TS_orig_pair
= NULL
;
2141 case 0: /* default colors, if any */
2143 tty_default_color_capabilities (tty
, 0);
2145 case 8: /* 8 standard ANSI colors */
2146 tty
->TS_orig_pair
= "\033[0m";
2148 tty
->TS_set_foreground
= "\033[3%p1%dm";
2149 tty
->TS_set_background
= "\033[4%p1%dm";
2151 tty
->TS_set_foreground
= "\033[3%dm";
2152 tty
->TS_set_background
= "\033[4%dm";
2154 tty
->TN_max_colors
= 8;
2155 tty
->TN_max_pairs
= 64;
2156 tty
->TN_no_color_video
= 0;
2162 set_tty_color_mode (tty
, f
)
2163 struct tty_display_info
*tty
;
2166 Lisp_Object tem
, val
, color_mode_spec
;
2167 Lisp_Object color_mode
;
2169 extern Lisp_Object Qtty_color_mode
;
2170 Lisp_Object tty_color_mode_alist
2171 = Fintern_soft (build_string ("tty-color-mode-alist"), Qnil
);
2173 tem
= assq_no_quit (Qtty_color_mode
, f
->param_alist
);
2174 val
= CONSP (tem
) ? XCDR (tem
) : Qnil
;
2180 tem
= (NILP (tty_color_mode_alist
) ? Qnil
2181 : Fassq (val
, XSYMBOL (tty_color_mode_alist
)->value
));
2182 color_mode
= CONSP (tem
) ? XCDR (tem
) : Qnil
;
2185 mode
= INTEGERP (color_mode
) ? XINT (color_mode
) : 0;
2187 if (mode
!= tty
->previous_color_mode
)
2189 Lisp_Object funsym
= intern ("tty-set-up-initial-frame-faces");
2190 tty
->previous_color_mode
= mode
;
2191 tty_setup_colors (tty
, mode
);
2192 /* This recomputes all the faces given the new color definitions. */
2193 safe_call (1, &funsym
);
2197 #endif /* !WINDOWSNT */
2201 /* Return the tty display object specified by TERMINAL. */
2204 get_tty_terminal (Lisp_Object terminal
, int throw)
2206 struct terminal
*t
= get_terminal (terminal
, throw);
2208 if (t
&& t
->type
!= output_termcap
)
2211 error ("Device %d is not a termcap terminal device", t
->id
);
2219 /* Return an active termcap device that uses the tty device with the
2222 This function ignores suspended devices.
2224 Returns NULL if the named terminal device is not opened. */
2227 get_named_tty (name
)
2235 for (t
= terminal_list
; t
; t
= t
->next_terminal
)
2237 if (t
->type
== output_termcap
2238 && !strcmp (t
->display_info
.tty
->name
, name
)
2239 && TERMINAL_ACTIVE_P (t
))
2247 DEFUN ("tty-type", Ftty_type
, Stty_type
, 0, 1, 0,
2248 doc
: /* Return the type of the tty device that TERMINAL uses.
2249 Returns nil if TERMINAL is not on a tty device.
2251 TERMINAL can be a terminal id, a frame or nil (meaning the selected
2252 frame's terminal). */)
2254 Lisp_Object terminal
;
2256 struct terminal
*t
= get_terminal (terminal
, 1);
2258 if (t
->type
!= output_termcap
)
2261 if (t
->display_info
.tty
->type
)
2262 return build_string (t
->display_info
.tty
->type
);
2267 DEFUN ("controlling-tty-p", Fcontrolling_tty_p
, Scontrolling_tty_p
, 0, 1, 0,
2268 doc
: /* Return non-nil if TERMINAL is on the controlling tty of the Emacs process.
2270 TERMINAL can be a terminal id, a frame or nil (meaning the selected
2271 frame's terminal). This function always returns nil if TERMINAL
2272 is not on a tty device. */)
2274 Lisp_Object terminal
;
2276 struct terminal
*t
= get_terminal (terminal
, 1);
2278 if (t
->type
!= output_termcap
|| strcmp (t
->display_info
.tty
->name
, DEV_TTY
))
2284 DEFUN ("tty-no-underline", Ftty_no_underline
, Stty_no_underline
, 0, 1, 0,
2285 doc
: /* Declare that the tty used by TERMINAL does not handle underlining.
2286 This is used to override the terminfo data, for certain terminals that
2287 do not really do underlining, but say that they do. This function has
2288 no effect if used on a non-tty terminal.
2290 TERMINAL can be a terminal id, a frame or nil (meaning the selected
2291 frame's terminal). This function always returns nil if TERMINAL
2292 is not on a tty device. */)
2294 Lisp_Object terminal
;
2296 struct terminal
*t
= get_terminal (terminal
, 1);
2298 if (t
->type
== output_termcap
)
2299 t
->display_info
.tty
->TS_enter_underline_mode
= 0;
2305 DEFUN ("suspend-tty", Fsuspend_tty
, Ssuspend_tty
, 0, 1, 0,
2306 doc
: /* Suspend the terminal device TTY.
2308 The device is restored to its default state, and Emacs ceases all
2309 access to the tty device. Frames that use the device are not deleted,
2310 but input is not read from them and if they change, their display is
2313 TTY may be a terminal id, a frame, or nil for the terminal device of
2314 the currently selected frame.
2316 This function runs `suspend-tty-functions' after suspending the
2317 device. The functions are run with one arg, the id of the suspended
2320 `suspend-tty' does nothing if it is called on a device that is already
2323 A suspended tty may be resumed by calling `resume-tty' on it. */)
2327 struct terminal
*t
= get_tty_terminal (tty
, 1);
2331 error ("Unknown tty device");
2333 f
= t
->display_info
.tty
->input
;
2337 /* First run `suspend-tty-functions' and then clean up the tty
2338 state because `suspend-tty-functions' might need to change
2340 if (!NILP (Vrun_hooks
))
2342 Lisp_Object args
[2];
2343 args
[0] = intern ("suspend-tty-functions");
2344 XSETTERMINAL (args
[1], t
);
2345 Frun_hook_with_args (2, args
);
2348 reset_sys_modes (t
->display_info
.tty
);
2350 delete_keyboard_wait_descriptor (fileno (f
));
2353 if (f
!= t
->display_info
.tty
->output
)
2354 fclose (t
->display_info
.tty
->output
);
2356 t
->display_info
.tty
->input
= 0;
2357 t
->display_info
.tty
->output
= 0;
2359 if (FRAMEP (t
->display_info
.tty
->top_frame
))
2360 FRAME_SET_VISIBLE (XFRAME (t
->display_info
.tty
->top_frame
), 0);
2364 /* Clear display hooks to prevent further output. */
2365 clear_tty_hooks (t
);
2370 DEFUN ("resume-tty", Fresume_tty
, Sresume_tty
, 0, 1, 0,
2371 doc
: /* Resume the previously suspended terminal device TTY.
2372 The terminal is opened and reinitialized. Frames that are on the
2373 suspended terminal are revived.
2375 It is an error to resume a terminal while another terminal is active
2378 This function runs `resume-tty-functions' after resuming the terminal.
2379 The functions are run with one arg, the id of the resumed terminal
2382 `resume-tty' does nothing if it is called on a device that is not
2385 TTY may be a terminal id, a frame, or nil for the terminal device of
2386 the currently selected frame. */)
2390 struct terminal
*t
= get_tty_terminal (tty
, 1);
2394 error ("Unknown tty device");
2396 if (!t
->display_info
.tty
->input
)
2398 if (get_named_tty (t
->display_info
.tty
->name
))
2399 error ("Cannot resume display while another display is active on the same device");
2401 fd
= emacs_open (t
->display_info
.tty
->name
, O_RDWR
| O_NOCTTY
, 0);
2404 error ("Can not reopen tty device %s: %s", t
->display_info
.tty
->name
, strerror (errno
));
2406 if (strcmp (t
->display_info
.tty
->name
, DEV_TTY
))
2407 dissociate_if_controlling_tty (fd
);
2409 t
->display_info
.tty
->output
= fdopen (fd
, "w+");
2410 t
->display_info
.tty
->input
= t
->display_info
.tty
->output
;
2412 add_keyboard_wait_descriptor (fd
);
2414 if (FRAMEP (t
->display_info
.tty
->top_frame
))
2415 FRAME_SET_VISIBLE (XFRAME (t
->display_info
.tty
->top_frame
), 1);
2417 init_sys_modes (t
->display_info
.tty
);
2419 /* Run `resume-tty-functions'. */
2420 if (!NILP (Vrun_hooks
))
2422 Lisp_Object args
[2];
2423 args
[0] = intern ("resume-tty-functions");
2424 XSETTERMINAL (args
[1], t
);
2425 Frun_hook_with_args (2, args
);
2435 /***********************************************************************
2437 ***********************************************************************/
2441 term_mouse_moveto (int x
, int y
)
2443 /* TODO: how to set mouse position?
2446 name = (const char *) ttyname (0);
2447 fd = open (name, O_WRONLY);
2448 SOME_FUNCTION (x, y, fd);
2451 last_mouse_y = y; */
2455 term_show_mouse_face (enum draw_glyphs_face draw
)
2457 struct window
*w
= XWINDOW (mouse_face_window
);
2461 struct frame
*f
= XFRAME (w
->frame
);
2462 struct tty_display_info
*tty
= FRAME_TTY (f
);
2464 if (/* If window is in the process of being destroyed, don't bother
2466 w
->current_matrix
!= NULL
2467 /* Recognize when we are called to operate on rows that don't exist
2468 anymore. This can happen when a window is split. */
2469 && mouse_face_end_row
< w
->current_matrix
->nrows
)
2471 /* write_glyphs writes at cursor position, so we need to
2472 temporarily move cursor coordinates to the beginning of
2473 the highlight region. */
2475 /* Save current cursor co-ordinates */
2476 save_y
= curY (tty
);
2477 save_x
= curX (tty
);
2479 /* Note that mouse_face_beg_row etc. are window relative. */
2480 for (i
= mouse_face_beg_row
; i
<= mouse_face_end_row
; i
++)
2482 int start_hpos
, end_hpos
, nglyphs
;
2483 struct glyph_row
*row
= MATRIX_ROW (w
->current_matrix
, i
);
2485 /* Don't do anything if row doesn't have valid contents. */
2486 if (!row
->enabled_p
)
2489 /* For all but the first row, the highlight starts at column 0. */
2490 if (i
== mouse_face_beg_row
)
2491 start_hpos
= mouse_face_beg_col
;
2495 if (i
== mouse_face_end_row
)
2496 end_hpos
= mouse_face_end_col
;
2499 end_hpos
= row
->used
[TEXT_AREA
];
2500 if (draw
== DRAW_NORMAL_TEXT
)
2501 row
->fill_line_p
= 1; /* Clear to end of line */
2504 if (end_hpos
<= start_hpos
)
2506 /* Record that some glyphs of this row are displayed in
2508 row
->mouse_face_p
= draw
> 0;
2510 nglyphs
= end_hpos
- start_hpos
;
2512 if (end_hpos
>= row
->used
[TEXT_AREA
])
2513 nglyphs
= row
->used
[TEXT_AREA
] - start_hpos
;
2515 pos_y
= row
->y
+ WINDOW_TOP_EDGE_Y (w
);
2516 pos_x
= row
->used
[LEFT_MARGIN_AREA
] + start_hpos
2517 + WINDOW_LEFT_EDGE_X (w
);
2519 cursor_to (f
, pos_y
, pos_x
);
2521 if (draw
== DRAW_MOUSE_FACE
)
2523 tty_write_glyphs_with_face (f
, row
->glyphs
[TEXT_AREA
] + start_hpos
,
2524 nglyphs
, mouse_face_face_id
);
2526 else /* draw == DRAW_NORMAL_TEXT */
2527 write_glyphs (f
, row
->glyphs
[TEXT_AREA
] + start_hpos
, nglyphs
);
2529 cursor_to (f
, save_y
, save_x
);
2534 term_clear_mouse_face ()
2536 if (!NILP (mouse_face_window
))
2537 term_show_mouse_face (DRAW_NORMAL_TEXT
);
2539 mouse_face_beg_row
= mouse_face_beg_col
= -1;
2540 mouse_face_end_row
= mouse_face_end_col
= -1;
2541 mouse_face_window
= Qnil
;
2544 /* Find the glyph matrix position of buffer position POS in window W.
2545 *HPOS and *VPOS are set to the positions found. W's current glyphs
2546 must be up to date. If POS is above window start return (0, 0).
2547 If POS is after end of W, return end of last line in W.
2548 - taken from msdos.c */
2550 fast_find_position (struct window
*w
, int pos
, int *hpos
, int *vpos
)
2552 int i
, lastcol
, line_start_position
, maybe_next_line_p
= 0;
2553 int yb
= window_text_bottom_y (w
);
2554 struct glyph_row
*row
= MATRIX_ROW (w
->current_matrix
, 0), *best_row
= row
;
2558 if (row
->used
[TEXT_AREA
])
2559 line_start_position
= row
->glyphs
[TEXT_AREA
]->charpos
;
2561 line_start_position
= 0;
2563 if (line_start_position
> pos
)
2565 /* If the position sought is the end of the buffer,
2566 don't include the blank lines at the bottom of the window. */
2567 else if (line_start_position
== pos
2568 && pos
== BUF_ZV (XBUFFER (w
->buffer
)))
2570 maybe_next_line_p
= 1;
2573 else if (line_start_position
> 0)
2576 /* Don't overstep the last matrix row, lest we get into the
2577 never-never land... */
2578 if (row
->y
+ 1 >= yb
)
2584 /* Find the right column within BEST_ROW. */
2587 for (i
= 0; i
< row
->used
[TEXT_AREA
]; i
++)
2589 struct glyph
*glyph
= row
->glyphs
[TEXT_AREA
] + i
;
2592 charpos
= glyph
->charpos
;
2599 else if (charpos
> pos
)
2601 else if (charpos
> 0)
2605 /* If we're looking for the end of the buffer,
2606 and we didn't find it in the line we scanned,
2607 use the start of the following line. */
2608 if (maybe_next_line_p
)
2615 *hpos
= lastcol
+ 1;
2620 term_mouse_highlight (struct frame
*f
, int x
, int y
)
2622 enum window_part part
;
2627 if (NILP (Vmouse_highlight
)
2628 || !f
->glyphs_initialized_p
)
2631 /* Which window is that in? */
2632 window
= window_from_coordinates (f
, x
, y
, &part
, &x
, &y
, 0);
2634 /* Not on a window -> return. */
2635 if (!WINDOWP (window
))
2638 if (!EQ (window
, mouse_face_window
))
2639 term_clear_mouse_face ();
2641 w
= XWINDOW (window
);
2643 /* Are we in a window whose display is up to date?
2644 And verify the buffer's text has not changed. */
2645 b
= XBUFFER (w
->buffer
);
2647 && EQ (w
->window_end_valid
, w
->buffer
)
2648 && XFASTINT (w
->last_modified
) == BUF_MODIFF (b
)
2649 && XFASTINT (w
->last_overlay_modified
) == BUF_OVERLAY_MODIFF (b
))
2651 int pos
, i
, nrows
= w
->current_matrix
->nrows
;
2652 struct glyph_row
*row
;
2653 struct glyph
*glyph
;
2655 /* Find the glyph under X/Y. */
2657 if (y
>= 0 && y
< nrows
)
2659 row
= MATRIX_ROW (w
->current_matrix
, y
);
2660 /* Give up if some row before the one we are looking for is
2662 for (i
= 0; i
<= y
; i
++)
2663 if (!MATRIX_ROW (w
->current_matrix
, i
)->enabled_p
)
2665 if (i
> y
/* all rows upto and including the one at Y are enabled */
2666 && row
->displays_text_p
2667 && x
< window_box_width (w
, TEXT_AREA
))
2669 glyph
= row
->glyphs
[TEXT_AREA
];
2670 if (x
>= row
->used
[TEXT_AREA
])
2675 if (!BUFFERP (glyph
->object
))
2681 /* Clear mouse face if X/Y not over text. */
2684 term_clear_mouse_face ();
2688 if (!BUFFERP (glyph
->object
))
2690 pos
= glyph
->charpos
;
2692 /* Check for mouse-face. */
2694 extern Lisp_Object Qmouse_face
;
2695 Lisp_Object mouse_face
, overlay
, position
, *overlay_vec
;
2696 int noverlays
, obegv
, ozv
;
2697 struct buffer
*obuf
;
2699 /* If we get an out-of-range value, return now; avoid an error. */
2700 if (pos
> BUF_Z (b
))
2703 /* Make the window's buffer temporarily current for
2704 overlays_at and compute_char_face. */
2705 obuf
= current_buffer
;
2712 /* Is this char mouse-active? */
2713 XSETINT (position
, pos
);
2715 /* Put all the overlays we want in a vector in overlay_vec. */
2716 GET_OVERLAYS_AT (pos
, overlay_vec
, noverlays
, NULL
, 0);
2717 /* Sort overlays into increasing priority order. */
2718 noverlays
= sort_overlays (overlay_vec
, noverlays
, w
);
2720 /* Check mouse-face highlighting. */
2721 if (!(EQ (window
, mouse_face_window
)
2722 && y
>= mouse_face_beg_row
2723 && y
<= mouse_face_end_row
2724 && (y
> mouse_face_beg_row
2725 || x
>= mouse_face_beg_col
)
2726 && (y
< mouse_face_end_row
2727 || x
< mouse_face_end_col
2728 || mouse_face_past_end
)))
2730 /* Clear the display of the old active region, if any. */
2731 term_clear_mouse_face ();
2733 /* Find the highest priority overlay that has a mouse-face
2736 for (i
= noverlays
- 1; i
>= 0; --i
)
2738 mouse_face
= Foverlay_get (overlay_vec
[i
], Qmouse_face
);
2739 if (!NILP (mouse_face
))
2741 overlay
= overlay_vec
[i
];
2746 /* If no overlay applies, get a text property. */
2748 mouse_face
= Fget_text_property (position
, Qmouse_face
,
2751 /* Handle the overlay case. */
2752 if (!NILP (overlay
))
2754 /* Find the range of text around this char that
2755 should be active. */
2756 Lisp_Object before
, after
;
2760 before
= Foverlay_start (overlay
);
2761 after
= Foverlay_end (overlay
);
2762 /* Record this as the current active region. */
2763 fast_find_position (w
, XFASTINT (before
),
2764 &mouse_face_beg_col
,
2765 &mouse_face_beg_row
);
2768 = !fast_find_position (w
, XFASTINT (after
),
2769 &mouse_face_end_col
,
2770 &mouse_face_end_row
);
2771 mouse_face_window
= window
;
2774 = face_at_buffer_position (w
, pos
, 0, 0,
2775 &ignore
, pos
+ 1, 1);
2777 /* Display it as active. */
2778 term_show_mouse_face (DRAW_MOUSE_FACE
);
2780 /* Handle the text property case. */
2781 else if (!NILP (mouse_face
))
2783 /* Find the range of text around this char that
2784 should be active. */
2785 Lisp_Object before
, after
, beginning
, end
;
2788 beginning
= Fmarker_position (w
->start
);
2789 XSETINT (end
, (BUF_Z (b
) - XFASTINT (w
->window_end_pos
)));
2791 = Fprevious_single_property_change (make_number (pos
+ 1),
2793 w
->buffer
, beginning
);
2795 = Fnext_single_property_change (position
, Qmouse_face
,
2798 /* Record this as the current active region. */
2799 fast_find_position (w
, XFASTINT (before
),
2800 &mouse_face_beg_col
,
2801 &mouse_face_beg_row
);
2803 = !fast_find_position (w
, XFASTINT (after
),
2804 &mouse_face_end_col
,
2805 &mouse_face_end_row
);
2806 mouse_face_window
= window
;
2809 = face_at_buffer_position (w
, pos
, 0, 0,
2810 &ignore
, pos
+ 1, 1);
2812 /* Display it as active. */
2813 term_show_mouse_face (DRAW_MOUSE_FACE
);
2817 /* Look for a `help-echo' property. */
2820 extern Lisp_Object Qhelp_echo
;
2822 /* Check overlays first. */
2824 for (i
= noverlays
- 1; i
>= 0 && NILP (help
); --i
)
2826 overlay
= overlay_vec
[i
];
2827 help
= Foverlay_get (overlay
, Qhelp_echo
);
2832 help_echo_string
= help
;
2833 help_echo_window
= window
;
2834 help_echo_object
= overlay
;
2835 help_echo_pos
= pos
;
2837 /* Try text properties. */
2838 else if (NILP (help
)
2839 && ((STRINGP (glyph
->object
)
2840 && glyph
->charpos
>= 0
2841 && glyph
->charpos
< SCHARS (glyph
->object
))
2842 || (BUFFERP (glyph
->object
)
2843 && glyph
->charpos
>= BEGV
2844 && glyph
->charpos
< ZV
)))
2846 help
= Fget_text_property (make_number (glyph
->charpos
),
2847 Qhelp_echo
, glyph
->object
);
2850 help_echo_string
= help
;
2851 help_echo_window
= window
;
2852 help_echo_object
= glyph
->object
;
2853 help_echo_pos
= glyph
->charpos
;
2860 current_buffer
= obuf
;
2866 term_mouse_movement (FRAME_PTR frame
, Gpm_Event
*event
)
2868 /* Has the mouse moved off the glyph it was on at the last sighting? */
2869 if (event
->x
!= last_mouse_x
|| event
->y
!= last_mouse_y
)
2871 frame
->mouse_moved
= 1;
2872 term_mouse_highlight (frame
, event
->x
, event
->y
);
2873 /* Remember which glyph we're now on. */
2874 last_mouse_x
= event
->x
;
2875 last_mouse_y
= event
->y
;
2881 /* Return the current position of the mouse.
2883 Set *f to the frame the mouse is in, or zero if the mouse is in no
2884 Emacs frame. If it is set to zero, all the other arguments are
2887 Set *bar_window to Qnil, and *x and *y to the column and
2888 row of the character cell the mouse is over.
2890 Set *time to the time the mouse was at the returned position.
2892 This clears mouse_moved until the next motion
2895 term_mouse_position (FRAME_PTR
*fp
, int insist
, Lisp_Object
*bar_window
,
2896 enum scroll_bar_part
*part
, Lisp_Object
*x
,
2897 Lisp_Object
*y
, unsigned long *time
)
2901 *fp
= SELECTED_FRAME ();
2902 (*fp
)->mouse_moved
= 0;
2907 XSETINT (*x
, last_mouse_x
);
2908 XSETINT (*y
, last_mouse_y
);
2909 gettimeofday(&now
, 0);
2910 *time
= (now
.tv_sec
* 1000) + (now
.tv_usec
/ 1000);
2913 /* Prepare a mouse-event in *RESULT for placement in the input queue.
2915 If the event is a button press, then note that we have grabbed
2919 term_mouse_click (struct input_event
*result
, Gpm_Event
*event
,
2925 result
->kind
= GPM_CLICK_EVENT
;
2926 for (i
= 0, j
= GPM_B_LEFT
; i
< 3; i
++, j
>>= 1 )
2928 if (event
->buttons
& j
) {
2929 result
->code
= i
; /* button number */
2933 gettimeofday(&now
, 0);
2934 result
->timestamp
= (now
.tv_sec
* 1000) + (now
.tv_usec
/ 1000);
2936 if (event
->type
& GPM_UP
)
2937 result
->modifiers
= up_modifier
;
2938 else if (event
->type
& GPM_DOWN
)
2939 result
->modifiers
= down_modifier
;
2941 result
->modifiers
= 0;
2943 if (event
->type
& GPM_SINGLE
)
2944 result
->modifiers
|= click_modifier
;
2946 if (event
->type
& GPM_DOUBLE
)
2947 result
->modifiers
|= double_modifier
;
2949 if (event
->type
& GPM_TRIPLE
)
2950 result
->modifiers
|= triple_modifier
;
2952 if (event
->type
& GPM_DRAG
)
2953 result
->modifiers
|= drag_modifier
;
2955 if (!(event
->type
& (GPM_MOVE
| GPM_DRAG
))) {
2958 if (event
->modifiers
& (1 << 0))
2959 result
->modifiers
|= shift_modifier
;
2962 if (event
->modifiers
& (1 << 2))
2963 result
->modifiers
|= ctrl_modifier
;
2965 /* 1 << KG_ALT || KG_ALTGR */
2966 if (event
->modifiers
& (1 << 3)
2967 || event
->modifiers
& (1 << 1))
2968 result
->modifiers
|= meta_modifier
;
2971 XSETINT (result
->x
, event
->x
);
2972 XSETINT (result
->y
, event
->y
);
2973 XSETFRAME (result
->frame_or_window
, f
);
2979 handle_one_term_event (struct tty_display_info
*tty
, Gpm_Event
*event
, struct input_event
* hold_quit
)
2981 struct frame
*f
= XFRAME (tty
->top_frame
);
2982 struct input_event ie
;
2990 if (event
->type
& (GPM_MOVE
| GPM_DRAG
)) {
2991 previous_help_echo_string
= help_echo_string
;
2992 help_echo_string
= Qnil
;
2994 Gpm_DrawPointer (event
->x
, event
->y
, fileno (tty
->output
));
2996 if (!term_mouse_movement (f
, event
))
2997 help_echo_string
= previous_help_echo_string
;
2999 /* If the contents of the global variable help_echo_string
3000 has changed, generate a HELP_EVENT. */
3001 if (!NILP (help_echo_string
)
3002 || !NILP (previous_help_echo_string
))
3009 term_mouse_click (&ie
, event
, f
);
3013 if (ie
.kind
!= NO_EVENT
)
3015 kbd_buffer_store_event_hold (&ie
, hold_quit
);
3020 && !(hold_quit
&& hold_quit
->kind
!= NO_EVENT
))
3025 XSETFRAME (frame
, f
);
3029 gen_help_event (help_echo_string
, frame
, help_echo_window
,
3030 help_echo_object
, help_echo_pos
);
3037 DEFUN ("gpm-mouse-start", Fgpm_mouse_start
, Sgpm_mouse_start
,
3039 doc
: /* Open a connection to Gpm.
3040 Gpm-mouse can only be activated for one tty at a time. */)
3043 struct frame
*f
= SELECTED_FRAME ();
3044 struct tty_display_info
*tty
3045 = ((f
)->output_method
== output_termcap
3046 ? (f
)->terminal
->display_info
.tty
: NULL
);
3047 Gpm_Connect connection
;
3050 error ("Gpm-mouse only works in the GNU/Linux console");
3052 return Qnil
; /* Already activated, nothing to do. */
3054 error ("Gpm-mouse can only be activated for one tty at a time");
3056 connection
.eventMask
= ~0;
3057 connection
.defaultMask
= ~GPM_HARD
;
3058 connection
.maxMod
= ~0;
3059 connection
.minMod
= 0;
3062 if (Gpm_Open (&connection
, 0) < 0)
3063 error ("Gpm-mouse failed to connect to the gpm daemon");
3067 /* `init_sys_modes' arranges for mouse movements sent through gpm_fd
3068 to generate SIGIOs. Apparently we need to call reset_sys_modes
3069 before calling init_sys_modes. */
3070 reset_sys_modes (tty
);
3071 init_sys_modes (tty
);
3072 add_gpm_wait_descriptor (gpm_fd
);
3077 DEFUN ("gpm-mouse-stop", Fgpm_mouse_stop
, Sgpm_mouse_stop
,
3079 doc
: /* Close a connection to Gpm. */)
3082 struct frame
*f
= SELECTED_FRAME ();
3083 struct tty_display_info
*tty
3084 = ((f
)->output_method
== output_termcap
3085 ? (f
)->terminal
->display_info
.tty
: NULL
);
3087 if (!tty
|| gpm_tty
!= tty
)
3088 return Qnil
; /* Not activated on this terminal, nothing to do. */
3091 delete_gpm_wait_descriptor (gpm_fd
);
3092 while (Gpm_Close()); /* close all the stack */
3096 #endif /* HAVE_GPM */
3099 /***********************************************************************
3101 ***********************************************************************/
3103 /* Initialize the tty-dependent part of frame F. The frame must
3104 already have its device initialized. */
3107 create_tty_output (struct frame
*f
)
3109 struct tty_output
*t
;
3111 if (! FRAME_TERMCAP_P (f
))
3114 t
= xmalloc (sizeof (struct tty_output
));
3115 bzero (t
, sizeof (struct tty_output
));
3117 t
->display_info
= FRAME_TERMINAL (f
)->display_info
.tty
;
3119 f
->output_data
.tty
= t
;
3122 /* Delete the tty-dependent part of frame F. */
3125 delete_tty_output (struct frame
*f
)
3127 if (! FRAME_TERMCAP_P (f
))
3130 xfree (f
->output_data
.tty
);
3134 /* Reset the hooks in TERMINAL. */
3137 clear_tty_hooks (struct terminal
*terminal
)
3140 terminal
->cursor_to_hook
= 0;
3141 terminal
->raw_cursor_to_hook
= 0;
3142 terminal
->clear_to_end_hook
= 0;
3143 terminal
->clear_frame_hook
= 0;
3144 terminal
->clear_end_of_line_hook
= 0;
3145 terminal
->ins_del_lines_hook
= 0;
3146 terminal
->insert_glyphs_hook
= 0;
3147 terminal
->write_glyphs_hook
= 0;
3148 terminal
->delete_glyphs_hook
= 0;
3149 terminal
->ring_bell_hook
= 0;
3150 terminal
->reset_terminal_modes_hook
= 0;
3151 terminal
->set_terminal_modes_hook
= 0;
3152 terminal
->update_begin_hook
= 0;
3153 terminal
->update_end_hook
= 0;
3154 terminal
->set_terminal_window_hook
= 0;
3155 terminal
->mouse_position_hook
= 0;
3156 terminal
->frame_rehighlight_hook
= 0;
3157 terminal
->frame_raise_lower_hook
= 0;
3158 terminal
->fullscreen_hook
= 0;
3159 terminal
->set_vertical_scroll_bar_hook
= 0;
3160 terminal
->condemn_scroll_bars_hook
= 0;
3161 terminal
->redeem_scroll_bar_hook
= 0;
3162 terminal
->judge_scroll_bars_hook
= 0;
3163 terminal
->read_socket_hook
= 0;
3164 terminal
->frame_up_to_date_hook
= 0;
3166 /* Leave these two set, or suspended frames are not deleted
3168 terminal
->delete_frame_hook
= &delete_tty_output
;
3169 terminal
->delete_terminal_hook
= &delete_tty
;
3172 /* Initialize hooks in TERMINAL with the values needed for a tty. */
3175 set_tty_hooks (struct terminal
*terminal
)
3177 terminal
->rif
= 0; /* ttys don't support window-based redisplay. */
3179 terminal
->cursor_to_hook
= &tty_cursor_to
;
3180 terminal
->raw_cursor_to_hook
= &tty_raw_cursor_to
;
3182 terminal
->clear_to_end_hook
= &tty_clear_to_end
;
3183 terminal
->clear_frame_hook
= &tty_clear_frame
;
3184 terminal
->clear_end_of_line_hook
= &tty_clear_end_of_line
;
3186 terminal
->ins_del_lines_hook
= &tty_ins_del_lines
;
3188 terminal
->insert_glyphs_hook
= &tty_insert_glyphs
;
3189 terminal
->write_glyphs_hook
= &tty_write_glyphs
;
3190 terminal
->delete_glyphs_hook
= &tty_delete_glyphs
;
3192 terminal
->ring_bell_hook
= &tty_ring_bell
;
3194 terminal
->reset_terminal_modes_hook
= &tty_reset_terminal_modes
;
3195 terminal
->set_terminal_modes_hook
= &tty_set_terminal_modes
;
3196 terminal
->update_begin_hook
= 0; /* Not needed. */
3197 terminal
->update_end_hook
= &tty_update_end
;
3198 terminal
->set_terminal_window_hook
= &tty_set_terminal_window
;
3200 terminal
->mouse_position_hook
= 0; /* Not needed. */
3201 terminal
->frame_rehighlight_hook
= 0; /* Not needed. */
3202 terminal
->frame_raise_lower_hook
= 0; /* Not needed. */
3204 terminal
->set_vertical_scroll_bar_hook
= 0; /* Not needed. */
3205 terminal
->condemn_scroll_bars_hook
= 0; /* Not needed. */
3206 terminal
->redeem_scroll_bar_hook
= 0; /* Not needed. */
3207 terminal
->judge_scroll_bars_hook
= 0; /* Not needed. */
3209 terminal
->read_socket_hook
= &tty_read_avail_input
; /* keyboard.c */
3210 terminal
->frame_up_to_date_hook
= 0; /* Not needed. */
3212 terminal
->delete_frame_hook
= &delete_tty_output
;
3213 terminal
->delete_terminal_hook
= &delete_tty
;
3216 /* Drop the controlling terminal if fd is the same device. */
3218 dissociate_if_controlling_tty (int fd
)
3222 EMACS_GET_TTY_PGRP (fd
, &pgid
); /* If tcgetpgrp succeeds, fd is the ctty. */
3225 #if defined (USG) && !defined (BSD_PGRPS)
3227 no_controlling_tty
= 1;
3228 #elif defined (CYGWIN)
3230 no_controlling_tty
= 1;
3232 #ifdef TIOCNOTTY /* Try BSD ioctls. */
3233 sigblock (sigmask (SIGTTOU
));
3234 fd
= emacs_open (DEV_TTY
, O_RDWR
, 0);
3235 if (fd
!= -1 && ioctl (fd
, TIOCNOTTY
, 0) != -1)
3237 no_controlling_tty
= 1;
3241 sigunblock (sigmask (SIGTTOU
));
3243 /* Unknown system. */
3245 #endif /* ! TIOCNOTTY */
3248 #endif /* !WINDOWSNT */
3251 static void maybe_fatal();
3253 /* Create a termcap display on the tty device with the given name and
3256 If NAME is NULL, then use the controlling tty, i.e., "/dev/tty".
3257 Otherwise NAME should be a path to the tty device file,
3260 TERMINAL_TYPE is the termcap type of the device, e.g. "vt100".
3262 If MUST_SUCCEED is true, then all errors are fatal. */
3265 init_tty (char *name
, char *terminal_type
, int must_succeed
)
3268 char **address
= &area
;
3269 char *buffer
= NULL
;
3270 int buffer_size
= 4096;
3271 register char *p
= NULL
;
3273 struct tty_display_info
*tty
= NULL
;
3274 struct terminal
*terminal
= NULL
;
3275 int ctty
= 0; /* 1 if asked to open controlling tty. */
3278 maybe_fatal (must_succeed
, 0, 0,
3279 "Unknown terminal type",
3280 "Unknown terminal type");
3284 if (!strcmp (name
, DEV_TTY
))
3287 /* If we already have a terminal on the given device, use that. If
3288 all such terminals are suspended, create a new one instead. */
3289 /* XXX Perhaps this should be made explicit by having init_tty
3290 always create a new terminal and separating terminal and frame
3291 creation on Lisp level. */
3292 terminal
= get_named_tty (name
);
3296 terminal
= create_terminal ();
3297 tty
= (struct tty_display_info
*) xmalloc (sizeof (struct tty_display_info
));
3298 bzero (tty
, sizeof (struct tty_display_info
));
3299 tty
->next
= tty_list
;
3302 terminal
->type
= output_termcap
;
3303 terminal
->display_info
.tty
= tty
;
3304 tty
->terminal
= terminal
;
3306 tty
->Wcm
= (struct cm
*) xmalloc (sizeof (struct cm
));
3310 set_tty_hooks (terminal
);
3316 #ifdef O_IGNORE_CTTY
3318 /* Open the terminal device. Don't recognize it as our
3319 controlling terminal, and don't make it the controlling tty
3320 if we don't have one at the moment. */
3321 fd
= emacs_open (name
, O_RDWR
| O_IGNORE_CTTY
| O_NOCTTY
, 0);
3324 /* Alas, O_IGNORE_CTTY is a GNU extension that seems to be only
3325 defined on Hurd. On other systems, we need to explicitly
3326 dissociate ourselves from the controlling tty when we want to
3327 open a frame on the same terminal. */
3328 fd
= emacs_open (name
, O_RDWR
| O_NOCTTY
, 0);
3329 #endif /* O_IGNORE_CTTY */
3332 maybe_fatal (must_succeed
, buffer
, terminal
,
3333 "Could not open file: %s",
3334 "Could not open file: %s",
3339 maybe_fatal (must_succeed
, buffer
, terminal
,
3340 "Not a tty device: %s",
3341 "Not a tty device: %s",
3345 #ifndef O_IGNORE_CTTY
3347 dissociate_if_controlling_tty (fd
);
3350 file
= fdopen (fd
, "w+");
3351 tty
->name
= xstrdup (name
);
3352 terminal
->name
= xstrdup (name
);
3357 tty
->type
= xstrdup (terminal_type
);
3359 add_keyboard_wait_descriptor (fileno (tty
->input
));
3363 encode_terminal_src_size
= 0;
3364 encode_terminal_dst_size
= 0;
3367 terminal
->mouse_position_hook
= term_mouse_position
;
3368 mouse_face_window
= Qnil
;
3372 initialize_w32_display (terminal
);
3373 /* The following two are inaccessible from w32console.c. */
3374 terminal
->delete_frame_hook
= &delete_tty_output
;
3375 terminal
->delete_terminal_hook
= &delete_tty
;
3377 tty
->name
= xstrdup (name
);
3378 terminal
->name
= xstrdup (name
);
3379 tty
->type
= xstrdup (terminal_type
);
3381 tty
->output
= stdout
;
3383 add_keyboard_wait_descriptor (0);
3388 struct frame
*f
= XFRAME (selected_frame
);
3390 FrameRows (tty
) = FRAME_LINES (f
);
3391 FrameCols (tty
) = FRAME_COLS (f
);
3392 tty
->specified_window
= FRAME_LINES (f
);
3394 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
3395 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
) = vertical_scroll_bar_none
;
3397 tty
->delete_in_insert_mode
= 1;
3400 terminal
->scroll_region_ok
= 0;
3402 /* Seems to insert lines when it's not supposed to, messing up the
3403 display. In doing a trace, it didn't seem to be called much, so I
3404 don't think we're losing anything by turning it off. */
3405 terminal
->line_ins_del_ok
= 0;
3406 terminal
->char_ins_del_ok
= 1;
3410 tty
->TN_max_colors
= 16; /* Required to be non-zero for tty-display-color-p */
3412 #else /* not WINDOWSNT */
3416 buffer
= (char *) xmalloc (buffer_size
);
3418 /* On some systems, tgetent tries to access the controlling
3420 sigblock (sigmask (SIGTTOU
));
3421 status
= tgetent (buffer
, terminal_type
);
3422 sigunblock (sigmask (SIGTTOU
));
3427 maybe_fatal (must_succeed
, buffer
, terminal
,
3428 "Cannot open terminfo database file",
3429 "Cannot open terminfo database file");
3431 maybe_fatal (must_succeed
, buffer
, terminal
,
3432 "Cannot open termcap database file",
3433 "Cannot open termcap database file");
3439 maybe_fatal (must_succeed
, buffer
, terminal
,
3440 "Terminal type %s is not defined",
3441 "Terminal type %s is not defined.\n\
3442 If that is not the actual type of terminal you have,\n\
3443 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
3444 `setenv TERM ...') to specify the correct type. It may be necessary\n\
3445 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
3448 maybe_fatal (must_succeed
, buffer
, terminal
,
3449 "Terminal type %s is not defined",
3450 "Terminal type %s is not defined.\n\
3451 If that is not the actual type of terminal you have,\n\
3452 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
3453 `setenv TERM ...') to specify the correct type. It may be necessary\n\
3454 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
3460 if (strlen (buffer
) >= buffer_size
)
3462 buffer_size
= strlen (buffer
);
3464 area
= (char *) xmalloc (buffer_size
);
3466 tty
->TS_ins_line
= tgetstr ("al", address
);
3467 tty
->TS_ins_multi_lines
= tgetstr ("AL", address
);
3468 tty
->TS_bell
= tgetstr ("bl", address
);
3469 BackTab (tty
) = tgetstr ("bt", address
);
3470 tty
->TS_clr_to_bottom
= tgetstr ("cd", address
);
3471 tty
->TS_clr_line
= tgetstr ("ce", address
);
3472 tty
->TS_clr_frame
= tgetstr ("cl", address
);
3473 ColPosition (tty
) = NULL
; /* tgetstr ("ch", address); */
3474 AbsPosition (tty
) = tgetstr ("cm", address
);
3475 CR (tty
) = tgetstr ("cr", address
);
3476 tty
->TS_set_scroll_region
= tgetstr ("cs", address
);
3477 tty
->TS_set_scroll_region_1
= tgetstr ("cS", address
);
3478 RowPosition (tty
) = tgetstr ("cv", address
);
3479 tty
->TS_del_char
= tgetstr ("dc", address
);
3480 tty
->TS_del_multi_chars
= tgetstr ("DC", address
);
3481 tty
->TS_del_line
= tgetstr ("dl", address
);
3482 tty
->TS_del_multi_lines
= tgetstr ("DL", address
);
3483 tty
->TS_delete_mode
= tgetstr ("dm", address
);
3484 tty
->TS_end_delete_mode
= tgetstr ("ed", address
);
3485 tty
->TS_end_insert_mode
= tgetstr ("ei", address
);
3486 Home (tty
) = tgetstr ("ho", address
);
3487 tty
->TS_ins_char
= tgetstr ("ic", address
);
3488 tty
->TS_ins_multi_chars
= tgetstr ("IC", address
);
3489 tty
->TS_insert_mode
= tgetstr ("im", address
);
3490 tty
->TS_pad_inserted_char
= tgetstr ("ip", address
);
3491 tty
->TS_end_keypad_mode
= tgetstr ("ke", address
);
3492 tty
->TS_keypad_mode
= tgetstr ("ks", address
);
3493 LastLine (tty
) = tgetstr ("ll", address
);
3494 Right (tty
) = tgetstr ("nd", address
);
3495 Down (tty
) = tgetstr ("do", address
);
3497 Down (tty
) = tgetstr ("nl", address
); /* Obsolete name for "do" */
3499 /* VMS puts a carriage return before each linefeed,
3500 so it is not safe to use linefeeds. */
3501 if (Down (tty
) && Down (tty
)[0] == '\n' && Down (tty
)[1] == '\0')
3504 if (tgetflag ("bs"))
3505 Left (tty
) = "\b"; /* can't possibly be longer! */
3506 else /* (Actually, "bs" is obsolete...) */
3507 Left (tty
) = tgetstr ("le", address
);
3509 Left (tty
) = tgetstr ("bc", address
); /* Obsolete name for "le" */
3510 tty
->TS_pad_char
= tgetstr ("pc", address
);
3511 tty
->TS_repeat
= tgetstr ("rp", address
);
3512 tty
->TS_end_standout_mode
= tgetstr ("se", address
);
3513 tty
->TS_fwd_scroll
= tgetstr ("sf", address
);
3514 tty
->TS_standout_mode
= tgetstr ("so", address
);
3515 tty
->TS_rev_scroll
= tgetstr ("sr", address
);
3516 tty
->Wcm
->cm_tab
= tgetstr ("ta", address
);
3517 tty
->TS_end_termcap_modes
= tgetstr ("te", address
);
3518 tty
->TS_termcap_modes
= tgetstr ("ti", address
);
3519 Up (tty
) = tgetstr ("up", address
);
3520 tty
->TS_visible_bell
= tgetstr ("vb", address
);
3521 tty
->TS_cursor_normal
= tgetstr ("ve", address
);
3522 tty
->TS_cursor_visible
= tgetstr ("vs", address
);
3523 tty
->TS_cursor_invisible
= tgetstr ("vi", address
);
3524 tty
->TS_set_window
= tgetstr ("wi", address
);
3526 tty
->TS_enter_underline_mode
= tgetstr ("us", address
);
3527 tty
->TS_exit_underline_mode
= tgetstr ("ue", address
);
3528 tty
->TS_enter_bold_mode
= tgetstr ("md", address
);
3529 tty
->TS_enter_dim_mode
= tgetstr ("mh", address
);
3530 tty
->TS_enter_blink_mode
= tgetstr ("mb", address
);
3531 tty
->TS_enter_reverse_mode
= tgetstr ("mr", address
);
3532 tty
->TS_enter_alt_charset_mode
= tgetstr ("as", address
);
3533 tty
->TS_exit_alt_charset_mode
= tgetstr ("ae", address
);
3534 tty
->TS_exit_attribute_mode
= tgetstr ("me", address
);
3536 MultiUp (tty
) = tgetstr ("UP", address
);
3537 MultiDown (tty
) = tgetstr ("DO", address
);
3538 MultiLeft (tty
) = tgetstr ("LE", address
);
3539 MultiRight (tty
) = tgetstr ("RI", address
);
3541 /* SVr4/ANSI color suppert. If "op" isn't available, don't support
3542 color because we can't switch back to the default foreground and
3544 tty
->TS_orig_pair
= tgetstr ("op", address
);
3545 if (tty
->TS_orig_pair
)
3547 tty
->TS_set_foreground
= tgetstr ("AF", address
);
3548 tty
->TS_set_background
= tgetstr ("AB", address
);
3549 if (!tty
->TS_set_foreground
)
3552 tty
->TS_set_foreground
= tgetstr ("Sf", address
);
3553 tty
->TS_set_background
= tgetstr ("Sb", address
);
3556 tty
->TN_max_colors
= tgetnum ("Co");
3557 tty
->TN_max_pairs
= tgetnum ("pa");
3559 tty
->TN_no_color_video
= tgetnum ("NC");
3560 if (tty
->TN_no_color_video
== -1)
3561 tty
->TN_no_color_video
= 0;
3564 tty_default_color_capabilities (tty
, 1);
3566 MagicWrap (tty
) = tgetflag ("xn");
3567 /* Since we make MagicWrap terminals look like AutoWrap, we need to have
3568 the former flag imply the latter. */
3569 AutoWrap (tty
) = MagicWrap (tty
) || tgetflag ("am");
3570 terminal
->memory_below_frame
= tgetflag ("db");
3571 tty
->TF_hazeltine
= tgetflag ("hz");
3572 terminal
->must_write_spaces
= tgetflag ("in");
3573 tty
->meta_key
= tgetflag ("km") || tgetflag ("MT");
3574 tty
->TF_insmode_motion
= tgetflag ("mi");
3575 tty
->TF_standout_motion
= tgetflag ("ms");
3576 tty
->TF_underscore
= tgetflag ("ul");
3577 tty
->TF_teleray
= tgetflag ("xt");
3579 #endif /* !WINDOWSNT */
3581 terminal
->kboard
= (KBOARD
*) xmalloc (sizeof (KBOARD
));
3582 init_kboard (terminal
->kboard
);
3583 terminal
->kboard
->Vwindow_system
= Qnil
;
3584 terminal
->kboard
->next_kboard
= all_kboards
;
3585 all_kboards
= terminal
->kboard
;
3586 terminal
->kboard
->reference_count
++;
3587 /* Don't let the initial kboard remain current longer than necessary.
3588 That would cause problems if a file loaded on startup tries to
3589 prompt in the mini-buffer. */
3590 if (current_kboard
== initial_kboard
)
3591 current_kboard
= terminal
->kboard
;
3593 term_get_fkeys (address
, terminal
->kboard
);
3598 /* Get frame size from system, or else from termcap. */
3601 get_tty_size (fileno (tty
->input
), &width
, &height
);
3602 FrameCols (tty
) = width
;
3603 FrameRows (tty
) = height
;
3606 if (FrameCols (tty
) <= 0)
3607 FrameCols (tty
) = tgetnum ("co");
3608 if (FrameRows (tty
) <= 0)
3609 FrameRows (tty
) = tgetnum ("li");
3611 if (FrameRows (tty
) < 3 || FrameCols (tty
) < 3)
3612 maybe_fatal (must_succeed
, NULL
, terminal
,
3613 "Screen size %dx%d is too small"
3614 "Screen size %dx%d is too small",
3615 FrameCols (tty
), FrameRows (tty
));
3617 #if 0 /* This is not used anywhere. */
3618 tty
->terminal
->min_padding_speed
= tgetnum ("pb");
3621 TabWidth (tty
) = tgetnum ("tw");
3624 /* These capabilities commonly use ^J.
3625 I don't know why, but sending them on VMS does not work;
3626 it causes following spaces to be lost, sometimes.
3627 For now, the simplest fix is to avoid using these capabilities ever. */
3628 if (Down (tty
) && Down (tty
)[0] == '\n')
3633 tty
->TS_bell
= "\07";
3635 if (!tty
->TS_fwd_scroll
)
3636 tty
->TS_fwd_scroll
= Down (tty
);
3638 PC
= tty
->TS_pad_char
? *tty
->TS_pad_char
: 0;
3640 if (TabWidth (tty
) < 0)
3643 /* Turned off since /etc/termcap seems to have :ta= for most terminals
3644 and newer termcap doc does not seem to say there is a default.
3645 if (!tty->Wcm->cm_tab)
3646 tty->Wcm->cm_tab = "\t";
3649 /* We don't support standout modes that use `magic cookies', so
3650 turn off any that do. */
3651 if (tty
->TS_standout_mode
&& tgetnum ("sg") >= 0)
3653 tty
->TS_standout_mode
= 0;
3654 tty
->TS_end_standout_mode
= 0;
3656 if (tty
->TS_enter_underline_mode
&& tgetnum ("ug") >= 0)
3658 tty
->TS_enter_underline_mode
= 0;
3659 tty
->TS_exit_underline_mode
= 0;
3662 /* If there's no standout mode, try to use underlining instead. */
3663 if (tty
->TS_standout_mode
== 0)
3665 tty
->TS_standout_mode
= tty
->TS_enter_underline_mode
;
3666 tty
->TS_end_standout_mode
= tty
->TS_exit_underline_mode
;
3669 /* If no `se' string, try using a `me' string instead.
3670 If that fails, we can't use standout mode at all. */
3671 if (tty
->TS_end_standout_mode
== 0)
3673 char *s
= tgetstr ("me", address
);
3675 tty
->TS_end_standout_mode
= s
;
3677 tty
->TS_standout_mode
= 0;
3680 if (tty
->TF_teleray
)
3682 tty
->Wcm
->cm_tab
= 0;
3683 /* We can't support standout mode, because it uses magic cookies. */
3684 tty
->TS_standout_mode
= 0;
3685 /* But that means we cannot rely on ^M to go to column zero! */
3687 /* LF can't be trusted either -- can alter hpos */
3688 /* if move at column 0 thru a line with TS_standout_mode */
3692 /* Special handling for certain terminal types known to need it */
3694 if (!strcmp (terminal_type
, "supdup"))
3696 terminal
->memory_below_frame
= 1;
3697 tty
->Wcm
->cm_losewrap
= 1;
3699 if (!strncmp (terminal_type
, "c10", 3)
3700 || !strcmp (terminal_type
, "perq"))
3702 /* Supply a makeshift :wi string.
3703 This string is not valid in general since it works only
3704 for windows starting at the upper left corner;
3705 but that is all Emacs uses.
3707 This string works only if the frame is using
3708 the top of the video memory, because addressing is memory-relative.
3709 So first check the :ti string to see if that is true.
3711 It would be simpler if the :wi string could go in the termcap
3712 entry, but it can't because it is not fully valid.
3713 If it were in the termcap entry, it would confuse other programs. */
3714 if (!tty
->TS_set_window
)
3716 p
= tty
->TS_termcap_modes
;
3717 while (*p
&& strcmp (p
, "\033v "))
3720 tty
->TS_set_window
= "\033v%C %C %C %C ";
3722 /* Termcap entry often fails to have :in: flag */
3723 terminal
->must_write_spaces
= 1;
3724 /* :ti string typically fails to have \E^G! in it */
3725 /* This limits scope of insert-char to one line. */
3726 strcpy (area
, tty
->TS_termcap_modes
);
3727 strcat (area
, "\033\007!");
3728 tty
->TS_termcap_modes
= area
;
3729 area
+= strlen (area
) + 1;
3730 p
= AbsPosition (tty
);
3731 /* Change all %+ parameters to %C, to handle
3732 values above 96 correctly for the C100. */
3735 if (p
[0] == '%' && p
[1] == '+')
3741 tty
->specified_window
= FrameRows (tty
);
3743 if (Wcm_init (tty
) == -1) /* can't do cursor motion */
3745 maybe_fatal (must_succeed
, NULL
, terminal
,
3746 "Terminal type \"%s\" is not powerful enough to run Emacs",
3748 "Terminal type \"%s\" is not powerful enough to run Emacs.\n\
3749 It lacks the ability to position the cursor.\n\
3750 If that is not the actual type of terminal you have, use either the\n\
3751 DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
3752 or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
3755 "Terminal type \"%s\" is not powerful enough to run Emacs.\n\
3756 It lacks the ability to position the cursor.\n\
3757 If that is not the actual type of terminal you have,\n\
3758 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
3759 `setenv TERM ...') to specify the correct type. It may be necessary\n\
3760 to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
3761 # else /* TERMCAP */
3762 "Terminal type \"%s\" is not powerful enough to run Emacs.\n\
3763 It lacks the ability to position the cursor.\n\
3764 If that is not the actual type of terminal you have,\n\
3765 use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
3766 `setenv TERM ...') to specify the correct type. It may be necessary\n\
3767 to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
3768 # endif /* TERMINFO */
3773 if (FrameRows (tty
) <= 0 || FrameCols (tty
) <= 0)
3774 maybe_fatal (must_succeed
, NULL
, terminal
,
3775 "Could not determine the frame size",
3776 "Could not determine the frame size");
3778 tty
->delete_in_insert_mode
3779 = tty
->TS_delete_mode
&& tty
->TS_insert_mode
3780 && !strcmp (tty
->TS_delete_mode
, tty
->TS_insert_mode
);
3782 tty
->se_is_so
= (tty
->TS_standout_mode
3783 && tty
->TS_end_standout_mode
3784 && !strcmp (tty
->TS_standout_mode
, tty
->TS_end_standout_mode
));
3786 UseTabs (tty
) = tabs_safe_p (fileno (tty
->input
)) && TabWidth (tty
) == 8;
3788 terminal
->scroll_region_ok
3790 && (tty
->TS_set_window
|| tty
->TS_set_scroll_region
|| tty
->TS_set_scroll_region_1
));
3792 terminal
->line_ins_del_ok
3793 = (((tty
->TS_ins_line
|| tty
->TS_ins_multi_lines
)
3794 && (tty
->TS_del_line
|| tty
->TS_del_multi_lines
))
3795 || (terminal
->scroll_region_ok
3796 && tty
->TS_fwd_scroll
&& tty
->TS_rev_scroll
));
3798 terminal
->char_ins_del_ok
3799 = ((tty
->TS_ins_char
|| tty
->TS_insert_mode
3800 || tty
->TS_pad_inserted_char
|| tty
->TS_ins_multi_chars
)
3801 && (tty
->TS_del_char
|| tty
->TS_del_multi_chars
));
3803 terminal
->fast_clear_end_of_line
= tty
->TS_clr_line
!= 0;
3805 init_baud_rate (fileno (tty
->input
));
3808 /* The HFT system on AIX doesn't optimize for scrolling, so it's
3809 really ugly at times. */
3810 terminal
->line_ins_del_ok
= 0;
3811 terminal
->char_ins_del_ok
= 0;
3814 /* Don't do this. I think termcap may still need the buffer. */
3815 /* xfree (buffer); */
3817 #endif /* not WINDOWSNT */
3819 /* Init system terminal modes (RAW or CBREAK, etc.). */
3820 init_sys_modes (tty
);
3825 /* Auxiliary error-handling function for init_tty.
3826 Free BUFFER and delete TERMINAL, then call error or fatal
3827 with str1 or str2, respectively, according to MUST_SUCCEED. */
3830 maybe_fatal (must_succeed
, buffer
, terminal
, str1
, str2
, arg1
, arg2
)
3833 struct terminal
*terminal
;
3834 char *str1
, *str2
, *arg1
, *arg2
;
3840 delete_tty (terminal
);
3843 fatal (str2
, arg1
, arg2
);
3845 error (str1
, arg1
, arg2
);
3851 fatal (const char *str
, ...)
3855 fprintf (stderr
, "emacs: ");
3856 vfprintf (stderr
, str
, ap
);
3864 /* Delete the given tty terminal, closing all frames on it. */
3867 delete_tty (struct terminal
*terminal
)
3869 struct tty_display_info
*tty
;
3870 Lisp_Object tail
, frame
;
3873 /* Protect against recursive calls. Fdelete_frame in
3874 delete_terminal calls us back when it deletes our last frame. */
3875 if (!terminal
->name
)
3878 if (terminal
->type
!= output_termcap
)
3881 tty
= terminal
->display_info
.tty
;
3884 FOR_EACH_FRAME (tail
, frame
)
3886 struct frame
*f
= XFRAME (frame
);
3887 if (FRAME_LIVE_P (f
) && (!FRAME_TERMCAP_P (f
) || FRAME_TTY (f
) != tty
))
3894 error ("Attempt to delete the sole terminal device with live frames");
3896 if (tty
== tty_list
)
3897 tty_list
= tty
->next
;
3900 struct tty_display_info
*p
;
3901 for (p
= tty_list
; p
&& p
->next
!= tty
; p
= p
->next
)
3905 /* This should not happen. */
3908 p
->next
= tty
->next
;
3912 /* reset_sys_modes needs a valid device, so this call needs to be
3913 before delete_terminal. */
3914 reset_sys_modes (tty
);
3916 delete_terminal (terminal
);
3926 delete_keyboard_wait_descriptor (fileno (tty
->input
));
3927 if (tty
->input
!= stdin
)
3928 fclose (tty
->input
);
3930 if (tty
->output
&& tty
->output
!= stdout
&& tty
->output
!= tty
->input
)
3931 fclose (tty
->output
);
3932 if (tty
->termscript
)
3933 fclose (tty
->termscript
);
3936 xfree (tty
->old_tty
);
3941 bzero (tty
, sizeof (struct tty_display_info
));
3947 /* Mark the pointers in the tty_display_info objects.
3948 Called by the Fgarbage_collector. */
3953 struct tty_display_info
*tty
;
3955 for (tty
= tty_list
; tty
; tty
= tty
->next
)
3956 mark_object (tty
->top_frame
);
3964 DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
,
3965 doc
: /* Non-nil means the system uses terminfo rather than termcap.
3966 This variable can be used by terminal emulator packages. */);
3968 system_uses_terminfo
= 1;
3970 system_uses_terminfo
= 0;
3973 DEFVAR_LISP ("suspend-tty-functions", &Vsuspend_tty_functions
,
3974 doc
: /* Functions to be run after suspending a tty.
3975 The functions are run with one argument, the terminal id to be suspended.
3976 See `suspend-tty'. */);
3977 Vsuspend_tty_functions
= Qnil
;
3980 DEFVAR_LISP ("resume-tty-functions", &Vresume_tty_functions
,
3981 doc
: /* Functions to be run after resuming a tty.
3982 The functions are run with one argument, the terminal id that was revived.
3983 See `resume-tty'. */);
3984 Vresume_tty_functions
= Qnil
;
3986 DEFVAR_BOOL ("visible-cursor", &visible_cursor
,
3987 doc
: /* Non-nil means to make the cursor very visible.
3988 This only has an effect when running in a text terminal.
3989 What means \"very visible\" is up to your terminal. It may make the cursor
3990 bigger, or it may make it blink, or it may do nothing at all. */);
3993 defsubr (&Stty_display_color_p
);
3994 defsubr (&Stty_display_color_cells
);
3995 defsubr (&Stty_no_underline
);
3996 defsubr (&Stty_type
);
3997 defsubr (&Scontrolling_tty_p
);
3998 defsubr (&Ssuspend_tty
);
3999 defsubr (&Sresume_tty
);
4001 defsubr (&Sgpm_mouse_start
);
4002 defsubr (&Sgpm_mouse_stop
);
4004 staticpro (&mouse_face_window
);
4005 #endif /* HAVE_GPM */
4010 /* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
4011 (do not change this comment) */