/* Terminal control module for terminals described by TERMCAP
Copyright (C) 1985-1987, 1993-1995, 1998, 2000-2023 Free Software
Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see . */
/* New redisplay, TTY faces by Gerd Moellmann . */
#include
#include
#include
#include
#include
#include
#include
#include "lisp.h"
#include "termchar.h"
#include "tparam.h"
#include "character.h"
#include "buffer.h"
#include "charset.h"
#include "coding.h"
#include "composite.h"
#include "keyboard.h"
#include "frame.h"
#include "disptab.h"
#include "termhooks.h"
#include "dispextern.h"
#include "window.h"
#include "keymap.h"
#include "blockinput.h"
#include "syssignal.h"
#include "sysstdio.h"
#ifdef MSDOS
#include "msdos.h"
static int been_here = -1;
#endif
#ifdef USE_X_TOOLKIT
#include "../lwlib/lwlib.h"
#endif
#include "cm.h"
#include "menu.h"
/* The name of the default console device. */
#ifdef WINDOWSNT
#include "w32term.h"
#endif
static void tty_set_scroll_region (struct frame *f, int start, int stop);
static void turn_on_face (struct frame *, int face_id);
static void turn_off_face (struct frame *, int face_id);
static void tty_turn_off_highlight (struct tty_display_info *);
static void tty_show_cursor (struct tty_display_info *);
static void tty_hide_cursor (struct tty_display_info *);
static void tty_background_highlight (struct tty_display_info *tty);
static void clear_tty_hooks (struct terminal *terminal);
static void set_tty_hooks (struct terminal *terminal);
static void dissociate_if_controlling_tty (int fd);
static void delete_tty (struct terminal *);
static AVOID maybe_fatal (bool, struct terminal *, const char *, const char *,
...)
ATTRIBUTE_FORMAT_PRINTF (3, 5) ATTRIBUTE_FORMAT_PRINTF (4, 5);
static AVOID vfatal (const char *, va_list) ATTRIBUTE_FORMAT_PRINTF (1, 0);
#define OUTPUT(tty, a) \
emacs_tputs ((tty), a, \
FRAME_TOTAL_LINES (XFRAME (selected_frame)) - curY (tty), \
cmputc)
#define OUTPUT1(tty, a) emacs_tputs ((tty), a, 1, cmputc)
#define OUTPUTL(tty, a, lines) emacs_tputs ((tty), a, lines, cmputc)
#define OUTPUT_IF(tty, a) \
do { \
if (a) \
OUTPUT (tty, a); \
} while (0)
#define OUTPUT1_IF(tty, a) do { if (a) emacs_tputs ((tty), a, 1, cmputc); } while (0)
/* Display space properties. */
/* Chain of all tty device parameters. */
struct tty_display_info *tty_list;
/* Meaning of bits in no_color_video. Each bit set means that the
corresponding attribute cannot be combined with colors. */
enum no_color_bit
{
NC_STANDOUT = 1 << 0,
NC_UNDERLINE = 1 << 1,
NC_REVERSE = 1 << 2,
NC_ITALIC = 1 << 3,
NC_DIM = 1 << 4,
NC_BOLD = 1 << 5,
NC_STRIKE_THROUGH = 1 << 6,
NC_PROTECT = 1 << 7
};
/* internal state */
/* The largest frame width in any call to calculate_costs. */
static int max_frame_cols;
#ifdef HAVE_GPM
#include
/* The device for which we have enabled gpm support (or NULL). */
struct tty_display_info *gpm_tty = NULL;
/* Last recorded mouse coordinates. */
static int last_mouse_x, last_mouse_y;
#endif /* HAVE_GPM */
/* Ring the bell on a tty. */
static void
tty_ring_bell (struct frame *f)
{
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->output)
{
OUTPUT (tty, (tty->TS_visible_bell && visible_bell
? tty->TS_visible_bell
: tty->TS_bell));
fflush (tty->output);
}
}
/* Set up termcap modes for Emacs. */
static void
tty_send_additional_strings (struct terminal *terminal, Lisp_Object sym)
{
/* Use only accessors like CDR_SAFE and assq_no_quit to avoid any
form of quitting or signaling an error, since this function can
run as part of the "emergency escape" procedure invoked in the
middle of GC, where quitting means crashing (Bug#17406). */
if (! terminal->name)
return;
struct tty_display_info *tty = terminal->display_info.tty;
for (Lisp_Object extra_codes
= CDR_SAFE (assq_no_quit (sym, terminal->param_alist));
CONSP (extra_codes);
extra_codes = XCDR (extra_codes))
{
Lisp_Object string = XCAR (extra_codes);
if (STRINGP (string))
{
fwrite (SDATA (string), 1, SBYTES (string), tty->output);
if (tty->termscript)
fwrite (SDATA (string), 1, SBYTES (string), tty->termscript);
}
}
}
static void
tty_set_terminal_modes (struct terminal *terminal)
{
struct tty_display_info *tty = terminal->display_info.tty;
if (tty->output)
{
if (tty->TS_termcap_modes)
OUTPUT (tty, tty->TS_termcap_modes);
else
{
/* Output enough newlines to scroll all the old screen contents
off the screen, so it won't be overwritten and lost. */
int i;
current_tty = tty;
for (i = 0; i < FRAME_TOTAL_LINES (XFRAME (selected_frame)); i++)
cmputc ('\n');
}
OUTPUT_IF (tty, visible_cursor ? tty->TS_cursor_visible : tty->TS_cursor_normal);
OUTPUT_IF (tty, tty->TS_keypad_mode);
losecursor (tty);
tty_send_additional_strings (terminal, Qtty_mode_set_strings);
fflush (tty->output);
}
}
/* Reset termcap modes before exiting Emacs. */
static void
tty_reset_terminal_modes (struct terminal *terminal)
{
struct tty_display_info *tty = terminal->display_info.tty;
if (tty->output)
{
tty_send_additional_strings (terminal, Qtty_mode_reset_strings);
tty_turn_off_highlight (tty);
tty_turn_off_insert (tty);
OUTPUT_IF (tty, tty->TS_end_keypad_mode);
OUTPUT_IF (tty, tty->TS_cursor_normal);
OUTPUT_IF (tty, tty->TS_end_termcap_modes);
OUTPUT_IF (tty, tty->TS_orig_pair);
/* Output raw CR so kernel can track the cursor hpos. */
current_tty = tty;
cmputc ('\r');
fflush (tty->output);
}
}
/* Flag the end of a display update on a termcap terminal. */
static void
tty_update_end (struct frame *f)
{
struct tty_display_info *tty = FRAME_TTY (f);
if (!XWINDOW (selected_window)->cursor_off_p)
tty_show_cursor (tty);
tty_turn_off_insert (tty);
tty_background_highlight (tty);
fflush (tty->output);
}
/* The implementation of set_terminal_window for termcap frames. */
static void
tty_set_terminal_window (struct frame *f, int size)
{
struct tty_display_info *tty = FRAME_TTY (f);
tty->specified_window = size ? size : FRAME_TOTAL_LINES (f);
if (FRAME_SCROLL_REGION_OK (f))
tty_set_scroll_region (f, 0, tty->specified_window);
}
static void
tty_set_scroll_region (struct frame *f, int start, int stop)
{
char *buf;
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->TS_set_scroll_region)
buf = tparam (tty->TS_set_scroll_region, 0, 0, start, stop - 1, 0, 0);
else if (tty->TS_set_scroll_region_1)
buf = tparam (tty->TS_set_scroll_region_1, 0, 0,
FRAME_TOTAL_LINES (f), start,
FRAME_TOTAL_LINES (f) - stop,
FRAME_TOTAL_LINES (f));
else
buf = tparam (tty->TS_set_window, 0, 0, start, 0, stop, FRAME_COLS (f));
OUTPUT (tty, buf);
xfree (buf);
losecursor (tty);
}
static void
tty_turn_on_insert (struct tty_display_info *tty)
{
if (!tty->insert_mode)
OUTPUT (tty, tty->TS_insert_mode);
tty->insert_mode = 1;
}
void
tty_turn_off_insert (struct tty_display_info *tty)
{
if (tty->insert_mode)
OUTPUT (tty, tty->TS_end_insert_mode);
tty->insert_mode = 0;
}
/* Handle highlighting. */
static void
tty_turn_off_highlight (struct tty_display_info *tty)
{
if (tty->standout_mode)
OUTPUT_IF (tty, tty->TS_end_standout_mode);
tty->standout_mode = 0;
}
static void
tty_turn_on_highlight (struct tty_display_info *tty)
{
if (!tty->standout_mode)
OUTPUT_IF (tty, tty->TS_standout_mode);
tty->standout_mode = 1;
}
static void
tty_toggle_highlight (struct tty_display_info *tty)
{
if (tty->standout_mode)
tty_turn_off_highlight (tty);
else
tty_turn_on_highlight (tty);
}
/* Make cursor invisible. */
static void
tty_hide_cursor (struct tty_display_info *tty)
{
if (tty->cursor_hidden == 0)
{
tty->cursor_hidden = 1;
#ifdef WINDOWSNT
w32con_hide_cursor ();
#else
OUTPUT_IF (tty, tty->TS_cursor_invisible);
#endif
}
}
/* Ensure that cursor is visible. */
static void
tty_show_cursor (struct tty_display_info *tty)
{
if (tty->cursor_hidden)
{
tty->cursor_hidden = 0;
#ifdef WINDOWSNT
w32con_show_cursor ();
#else
OUTPUT_IF (tty, tty->TS_cursor_normal);
if (visible_cursor)
OUTPUT_IF (tty, tty->TS_cursor_visible);
#endif
}
}
/* Set standout mode to the state it should be in for
empty space inside windows. What this is,
depends on the user option inverse-video. */
static void
tty_background_highlight (struct tty_display_info *tty)
{
if (inverse_video)
tty_turn_on_highlight (tty);
else
tty_turn_off_highlight (tty);
}
/* Set standout mode to the mode specified for the text to be output. */
static void
tty_highlight_if_desired (struct tty_display_info *tty)
{
if (inverse_video)
tty_turn_on_highlight (tty);
else
tty_turn_off_highlight (tty);
}
/* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
frame-relative coordinates. */
static void
tty_cursor_to (struct frame *f, int vpos, int hpos)
{
struct tty_display_info *tty = FRAME_TTY (f);
/* Detect the case where we are called from reset_sys_modes
and the costs have never been calculated. Do nothing. */
if (! tty->costs_set)
return;
if (curY (tty) == vpos
&& curX (tty) == hpos)
return;
if (!tty->TF_standout_motion)
tty_background_highlight (tty);
if (!tty->TF_insmode_motion)
tty_turn_off_insert (tty);
cmgoto (tty, vpos, hpos);
}
/* Similar but don't take any account of the wasted characters. */
static void
tty_raw_cursor_to (struct frame *f, int row, int col)
{
struct tty_display_info *tty = FRAME_TTY (f);
if (curY (tty) == row
&& curX (tty) == col)
return;
if (!tty->TF_standout_motion)
tty_background_highlight (tty);
if (!tty->TF_insmode_motion)
tty_turn_off_insert (tty);
cmgoto (tty, row, col);
}
/* Erase operations */
/* Clear from cursor to end of frame on a termcap device. */
static void
tty_clear_to_end (struct frame *f)
{
register int i;
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->TS_clr_to_bottom)
{
tty_background_highlight (tty);
OUTPUT (tty, tty->TS_clr_to_bottom);
}
else
{
for (i = curY (tty); i < FRAME_TOTAL_LINES (f); i++)
{
cursor_to (f, i, 0);
clear_end_of_line (f, FRAME_COLS (f));
}
}
}
/* Clear an entire termcap frame. */
static void
tty_clear_frame (struct frame *f)
{
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->TS_clr_frame)
{
tty_background_highlight (tty);
OUTPUT (tty, tty->TS_clr_frame);
cmat (tty, 0, 0);
}
else
{
cursor_to (f, 0, 0);
clear_to_end (f);
}
}
/* An implementation of clear_end_of_line for termcap frames.
Note that the cursor may be moved, on terminals lacking a `ce' string. */
static void
tty_clear_end_of_line (struct frame *f, int first_unused_hpos)
{
register int i;
struct tty_display_info *tty = FRAME_TTY (f);
/* Detect the case where we are called from reset_sys_modes
and the costs have never been calculated. Do nothing. */
if (! tty->costs_set)
return;
if (curX (tty) >= first_unused_hpos)
return;
tty_background_highlight (tty);
if (tty->TS_clr_line)
{
OUTPUT1 (tty, tty->TS_clr_line);
}
else
{ /* have to do it the hard way */
tty_turn_off_insert (tty);
/* Do not write in last row last col with Auto-wrap on. */
if (AutoWrap (tty)
&& curY (tty) == FrameRows (tty) - 1
&& first_unused_hpos == FrameCols (tty))
first_unused_hpos--;
for (i = curX (tty); i < first_unused_hpos; i++)
{
if (tty->termscript)
putc (' ', tty->termscript);
putc (' ', tty->output);
}
cmplus (tty, first_unused_hpos - curX (tty));
}
}
/* Buffers to store the source and result of code conversion for terminal. */
static unsigned char *encode_terminal_src;
static unsigned char *encode_terminal_dst;
/* Allocated sizes of the above buffers. */
static ptrdiff_t encode_terminal_src_size;
static ptrdiff_t encode_terminal_dst_size;
/* Encode SRC_LEN glyphs starting at SRC to terminal output codes.
Set CODING->produced to the byte-length of the resulting byte
sequence, and return a pointer to that byte sequence. */
unsigned char *
encode_terminal_code (struct glyph *src, int src_len,
struct coding_system *coding)
{
struct glyph *src_end = src + src_len;
unsigned char *buf;
ptrdiff_t nchars, nbytes, required;
ptrdiff_t tlen = GLYPH_TABLE_LENGTH;
register Lisp_Object *tbase = GLYPH_TABLE_BASE;
Lisp_Object charset_list;
/* Allocate sufficient size of buffer to store all characters in
multibyte-form. But, it may be enlarged on demand if
Vglyph_table contains a string or a composite glyph is
encountered. */
if (INT_MULTIPLY_WRAPV (src_len, MAX_MULTIBYTE_LENGTH, &required))
memory_full (SIZE_MAX);
if (encode_terminal_src_size < required)
encode_terminal_src = xpalloc (encode_terminal_src,
&encode_terminal_src_size,
required - encode_terminal_src_size,
-1, sizeof *encode_terminal_src);
charset_list = coding_charset_list (coding);
buf = encode_terminal_src;
nchars = 0;
while (src < src_end)
{
if (src->type == COMPOSITE_GLYPH)
{
struct composition *cmp;
Lisp_Object gstring UNINIT;
int i;
nbytes = buf - encode_terminal_src;
if (src->u.cmp.automatic)
{
cmp = NULL;
gstring = composition_gstring_from_id (src->u.cmp.id);
required = src->slice.cmp.to - src->slice.cmp.from + 1;
}
else
{
cmp = composition_table[src->u.cmp.id];
required = cmp->glyph_len;
}
required *= MAX_MULTIBYTE_LENGTH;
if (encode_terminal_src_size - nbytes < required)
{
encode_terminal_src =
xpalloc (encode_terminal_src, &encode_terminal_src_size,
required - (encode_terminal_src_size - nbytes),
-1, 1);
buf = encode_terminal_src + nbytes;
}
if (!cmp)
for (i = src->slice.cmp.from; i <= src->slice.cmp.to; i++)
{
Lisp_Object g = LGSTRING_GLYPH (gstring, i);
int c = LGLYPH_CHAR (g);
if (! char_charset (c, charset_list, NULL))
c = '?';
buf += CHAR_STRING (c, buf);
nchars++;
}
else
for (i = 0; i < cmp->glyph_len; i++)
{
int c = COMPOSITION_GLYPH (cmp, i);
/* TAB in a composition means display glyphs with
padding space on the left or right. */
if (c == '\t')
continue;
if (char_charset (c, charset_list, NULL))
{
if (CHARACTER_WIDTH (c) == 0
&& i > 0 && COMPOSITION_GLYPH (cmp, i - 1) == '\t')
/* Should be left-padded */
{
buf += CHAR_STRING (' ', buf);
nchars++;
}
}
else
c = '?';
buf += CHAR_STRING (c, buf);
nchars++;
}
}
/* We must skip glyphs to be padded for a wide character. */
else if (! CHAR_GLYPH_PADDING_P (*src))
{
GLYPH g;
int c UNINIT;
Lisp_Object string;
string = Qnil;
SET_GLYPH_FROM_CHAR_GLYPH (g, src[0]);
if (GLYPH_INVALID_P (g) || GLYPH_SIMPLE_P (tbase, tlen, g))
{
/* This glyph doesn't have an entry in Vglyph_table. */
c = src->u.ch;
}
else
{
/* This glyph has an entry in Vglyph_table,
so process any alias before testing for simpleness. */
GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
if (GLYPH_SIMPLE_P (tbase, tlen, g))
/* We set the multi-byte form of a character in G
(that should be an ASCII character) at WORKBUF. */
c = GLYPH_CHAR (g);
else
/* We have a string in Vglyph_table. */
string = tbase[GLYPH_CHAR (g)];
}
if (NILP (string))
{
nbytes = buf - encode_terminal_src;
if (encode_terminal_src_size - nbytes < MAX_MULTIBYTE_LENGTH)
{
encode_terminal_src =
xpalloc (encode_terminal_src, &encode_terminal_src_size,
MAX_MULTIBYTE_LENGTH, -1, 1);
buf = encode_terminal_src + nbytes;
}
if (CHAR_BYTE8_P (c)
|| char_charset (c, charset_list, NULL))
{
/* Store the multibyte form of C at BUF. */
buf += CHAR_STRING (c, buf);
nchars++;
}
else
{
/* C is not encodable. */
*buf++ = '?';
nchars++;
while (src + 1 < src_end && CHAR_GLYPH_PADDING_P (src[1]))
{
*buf++ = '?';
nchars++;
src++;
}
}
}
else
{
if (! STRING_MULTIBYTE (string))
string = string_to_multibyte (string);
nbytes = buf - encode_terminal_src;
if (encode_terminal_src_size - nbytes < SBYTES (string))
{
encode_terminal_src =
xpalloc (encode_terminal_src, &encode_terminal_src_size,
(SBYTES (string)
- (encode_terminal_src_size - nbytes)),
-1, 1);
buf = encode_terminal_src + nbytes;
}
memcpy (buf, SDATA (string), SBYTES (string));
buf += SBYTES (string);
nchars += SCHARS (string);
}
}
src++;
}
if (nchars == 0)
{
coding->produced = 0;
return NULL;
}
nbytes = buf - encode_terminal_src;
coding->source = encode_terminal_src;
if (encode_terminal_dst_size == 0)
{
encode_terminal_dst = xrealloc (encode_terminal_dst,
encode_terminal_src_size);
encode_terminal_dst_size = encode_terminal_src_size;
}
coding->destination = encode_terminal_dst;
coding->dst_bytes = encode_terminal_dst_size;
encode_coding_object (coding, Qnil, 0, 0, nchars, nbytes, Qnil);
/* coding->destination may have been reallocated. */
encode_terminal_dst = coding->destination;
encode_terminal_dst_size = coding->dst_bytes;
return (encode_terminal_dst);
}
/* An implementation of write_glyphs for termcap frames. */
static void
tty_write_glyphs (struct frame *f, struct glyph *string, int len)
{
unsigned char *conversion_buffer;
struct coding_system *coding;
int n, stringlen;
struct tty_display_info *tty = FRAME_TTY (f);
tty_turn_off_insert (tty);
tty_hide_cursor (tty);
/* Don't dare write in last column of bottom line, if Auto-Wrap,
since that would scroll the whole frame on some terminals. */
if (AutoWrap (tty)
&& curY (tty) + 1 == FRAME_TOTAL_LINES (f)
&& (curX (tty) + len) == FRAME_COLS (f))
len --;
if (len <= 0)
return;
cmplus (tty, len);
/* If terminal_coding does any conversion, use it, otherwise use
safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
because it always return 1 if the member src_multibyte is 1. */
coding = (FRAME_TERMINAL_CODING (f)->common_flags & CODING_REQUIRE_ENCODING_MASK
? FRAME_TERMINAL_CODING (f) : &safe_terminal_coding);
/* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
the tail. */
coding->mode &= ~CODING_MODE_LAST_BLOCK;
for (stringlen = len; stringlen != 0; stringlen -= n)
{
/* Identify a run of glyphs with the same face. */
int face_id = string->face_id;
for (n = 1; n < stringlen; ++n)
if (string[n].face_id != face_id)
break;
/* Turn appearance modes of the face of the run on. */
tty_highlight_if_desired (tty);
turn_on_face (f, face_id);
if (n == stringlen)
/* This is the last run. */
coding->mode |= CODING_MODE_LAST_BLOCK;
conversion_buffer = encode_terminal_code (string, n, coding);
if (coding->produced > 0)
{
block_input ();
fwrite (conversion_buffer, 1, coding->produced, tty->output);
clearerr (tty->output);
if (tty->termscript)
fwrite (conversion_buffer, 1, coding->produced, tty->termscript);
unblock_input ();
}
string += n;
/* Turn appearance modes off. */
turn_off_face (f, face_id);
tty_turn_off_highlight (tty);
}
cmcheckmagic (tty);
}
#ifndef DOS_NT
static void
tty_write_glyphs_with_face (register struct frame *f, register struct glyph *string,
register int len, register int face_id)
{
unsigned char *conversion_buffer;
struct coding_system *coding;
struct tty_display_info *tty = FRAME_TTY (f);
tty_turn_off_insert (tty);
tty_hide_cursor (tty);
/* Don't dare write in last column of bottom line, if Auto-Wrap,
since that would scroll the whole frame on some terminals. */
if (AutoWrap (tty)
&& curY (tty) + 1 == FRAME_TOTAL_LINES (f)
&& (curX (tty) + len) == FRAME_COLS (f))
len --;
if (len <= 0)
return;
cmplus (tty, len);
/* If terminal_coding does any conversion, use it, otherwise use
safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
because it always return 1 if the member src_multibyte is 1. */
coding = (FRAME_TERMINAL_CODING (f)->common_flags & CODING_REQUIRE_ENCODING_MASK
? FRAME_TERMINAL_CODING (f) : &safe_terminal_coding);
/* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
the tail. */
coding->mode &= ~CODING_MODE_LAST_BLOCK;
/* Turn appearance modes of the face. */
tty_highlight_if_desired (tty);
turn_on_face (f, face_id);
coding->mode |= CODING_MODE_LAST_BLOCK;
conversion_buffer = encode_terminal_code (string, len, coding);
if (coding->produced > 0)
{
block_input ();
fwrite (conversion_buffer, 1, coding->produced, tty->output);
clearerr (tty->output);
if (tty->termscript)
fwrite (conversion_buffer, 1, coding->produced, tty->termscript);
unblock_input ();
}
/* Turn appearance modes off. */
turn_off_face (f, face_id);
tty_turn_off_highlight (tty);
cmcheckmagic (tty);
}
#endif
/* An implementation of insert_glyphs for termcap frames. */
static void
tty_insert_glyphs (struct frame *f, struct glyph *start, int len)
{
char *buf;
struct glyph *glyph = NULL;
unsigned char *conversion_buffer;
unsigned char space[1];
struct coding_system *coding;
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->TS_ins_multi_chars)
{
buf = tparam (tty->TS_ins_multi_chars, 0, 0, len, 0, 0, 0);
OUTPUT1 (tty, buf);
xfree (buf);
if (start)
write_glyphs (f, start, len);
return;
}
tty_turn_on_insert (tty);
cmplus (tty, len);
if (! start)
space[0] = SPACEGLYPH;
/* If terminal_coding does any conversion, use it, otherwise use
safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
because it always return 1 if the member src_multibyte is 1. */
coding = (FRAME_TERMINAL_CODING (f)->common_flags & CODING_REQUIRE_ENCODING_MASK
? FRAME_TERMINAL_CODING (f) : &safe_terminal_coding);
/* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
the tail. */
coding->mode &= ~CODING_MODE_LAST_BLOCK;
while (len-- > 0)
{
OUTPUT1_IF (tty, tty->TS_ins_char);
if (!start)
{
conversion_buffer = space;
coding->produced = 1;
}
else
{
tty_highlight_if_desired (tty);
turn_on_face (f, start->face_id);
glyph = start;
++start;
/* We must open sufficient space for a character which
occupies more than one column. */
while (len && CHAR_GLYPH_PADDING_P (*start))
{
OUTPUT1_IF (tty, tty->TS_ins_char);
start++, len--;
}
if (len <= 0)
/* This is the last glyph. */
coding->mode |= CODING_MODE_LAST_BLOCK;
conversion_buffer = encode_terminal_code (glyph, 1, coding);
}
if (coding->produced > 0)
{
block_input ();
fwrite (conversion_buffer, 1, coding->produced, tty->output);
clearerr (tty->output);
if (tty->termscript)
fwrite (conversion_buffer, 1, coding->produced, tty->termscript);
unblock_input ();
}
OUTPUT1_IF (tty, tty->TS_pad_inserted_char);
if (start)
{
turn_off_face (f, glyph->face_id);
tty_turn_off_highlight (tty);
}
}
cmcheckmagic (tty);
}
/* An implementation of delete_glyphs for termcap frames. */
static void
tty_delete_glyphs (struct frame *f, int n)
{
char *buf;
register int i;
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->delete_in_insert_mode)
{
tty_turn_on_insert (tty);
}
else
{
tty_turn_off_insert (tty);
OUTPUT_IF (tty, tty->TS_delete_mode);
}
if (tty->TS_del_multi_chars)
{
buf = tparam (tty->TS_del_multi_chars, 0, 0, n, 0, 0, 0);
OUTPUT1 (tty, buf);
xfree (buf);
}
else
for (i = 0; i < n; i++)
OUTPUT1 (tty, tty->TS_del_char);
if (!tty->delete_in_insert_mode)
OUTPUT_IF (tty, tty->TS_end_delete_mode);
}
/* An implementation of ins_del_lines for termcap frames. */
static void
tty_ins_del_lines (struct frame *f, int vpos, int n)
{
struct tty_display_info *tty = FRAME_TTY (f);
const char *multi =
n > 0 ? tty->TS_ins_multi_lines : tty->TS_del_multi_lines;
const char *single = n > 0 ? tty->TS_ins_line : tty->TS_del_line;
const char *scroll = n > 0 ? tty->TS_rev_scroll : tty->TS_fwd_scroll;
int i = eabs (n);
char *buf;
/* If the lines below the insertion are being pushed
into the end of the window, this is the same as clearing;
and we know the lines are already clear, since the matching
deletion has already been done. So can ignore this. */
/* If the lines below the deletion are blank lines coming
out of the end of the window, don't bother,
as there will be a matching inslines later that will flush them. */
if (FRAME_SCROLL_REGION_OK (f)
&& vpos + i >= tty->specified_window)
return;
if (!FRAME_MEMORY_BELOW_FRAME (f)
&& vpos + i >= FRAME_TOTAL_LINES (f))
return;
if (multi)
{
raw_cursor_to (f, vpos, 0);
tty_background_highlight (tty);
buf = tparam (multi, 0, 0, i, 0, 0, 0);
OUTPUT (tty, buf);
xfree (buf);
}
else if (single)
{
raw_cursor_to (f, vpos, 0);
tty_background_highlight (tty);
while (--i >= 0)
OUTPUT (tty, single);
if (tty->TF_teleray)
curX (tty) = 0;
}
else
{
tty_set_scroll_region (f, vpos, tty->specified_window);
if (n < 0)
raw_cursor_to (f, tty->specified_window - 1, 0);
else
raw_cursor_to (f, vpos, 0);
tty_background_highlight (tty);
while (--i >= 0)
OUTPUTL (tty, scroll, tty->specified_window - vpos);
tty_set_scroll_region (f, 0, tty->specified_window);
}
if (!FRAME_SCROLL_REGION_OK (f)
&& FRAME_MEMORY_BELOW_FRAME (f)
&& n < 0)
{
cursor_to (f, FRAME_TOTAL_LINES (f) + n, 0);
clear_to_end (f);
}
}
/* Compute cost of sending "str", in characters,
not counting any line-dependent padding. */
int
string_cost (const char *str)
{
cost = 0;
if (str)
tputs (str, 0, evalcost);
return cost;
}
/* Compute cost of sending "str", in characters,
counting any line-dependent padding at one line. */
static int
string_cost_one_line (const char *str)
{
cost = 0;
if (str)
tputs (str, 1, evalcost);
return cost;
}
/* Compute per line amount of line-dependent padding,
in tenths of characters. */
int
per_line_cost (const char *str)
{
cost = 0;
if (str)
tputs (str, 0, evalcost);
cost = - cost;
if (str)
tputs (str, 10, evalcost);
return cost;
}
/* char_ins_del_cost[n] is cost of inserting N characters.
char_ins_del_cost[-n] is cost of deleting N characters.
The length of this vector is based on max_frame_cols. */
int *char_ins_del_vector;
#define char_ins_del_cost(f) (&char_ins_del_vector[FRAME_COLS ((f))])
static void
calculate_ins_del_char_costs (struct frame *f)
{
struct tty_display_info *tty = FRAME_TTY (f);
int ins_startup_cost, del_startup_cost;
int ins_cost_per_char, del_cost_per_char;
register int i;
register int *p;
if (tty->TS_ins_multi_chars)
{
ins_cost_per_char = 0;
ins_startup_cost = string_cost_one_line (tty->TS_ins_multi_chars);
}
else if (tty->TS_ins_char || tty->TS_pad_inserted_char
|| (tty->TS_insert_mode && tty->TS_end_insert_mode))
{
ins_startup_cost = (30 * (string_cost (tty->TS_insert_mode)
+ string_cost (tty->TS_end_insert_mode))) / 100;
ins_cost_per_char = (string_cost_one_line (tty->TS_ins_char)
+ string_cost_one_line (tty->TS_pad_inserted_char));
}
else
{
ins_startup_cost = 9999;
ins_cost_per_char = 0;
}
if (tty->TS_del_multi_chars)
{
del_cost_per_char = 0;
del_startup_cost = string_cost_one_line (tty->TS_del_multi_chars);
}
else if (tty->TS_del_char)
{
del_startup_cost = (string_cost (tty->TS_delete_mode)
+ string_cost (tty->TS_end_delete_mode));
if (tty->delete_in_insert_mode)
del_startup_cost /= 2;
del_cost_per_char = string_cost_one_line (tty->TS_del_char);
}
else
{
del_startup_cost = 9999;
del_cost_per_char = 0;
}
/* Delete costs are at negative offsets */
p = &char_ins_del_cost (f)[0];
for (i = FRAME_COLS (f); --i >= 0;)
*--p = (del_startup_cost += del_cost_per_char);
/* Doing nothing is free */
p = &char_ins_del_cost (f)[0];
*p++ = 0;
/* Insert costs are at positive offsets */
for (i = FRAME_COLS (f); --i >= 0;)
*p++ = (ins_startup_cost += ins_cost_per_char);
}
void
calculate_costs (struct frame *frame)
{
FRAME_COST_BAUD_RATE (frame) = baud_rate;
if (FRAME_TERMCAP_P (frame))
{
struct tty_display_info *tty = FRAME_TTY (frame);
register const char *f = (tty->TS_set_scroll_region
? tty->TS_set_scroll_region
: tty->TS_set_scroll_region_1);
FRAME_SCROLL_REGION_COST (frame) = string_cost (f);
tty->costs_set = 1;
/* These variables are only used for terminal stuff. They are
allocated once for the terminal frame of X-windows emacs, but not
used afterwards.
char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
X turns off char_ins_del_ok. */
max_frame_cols = max (max_frame_cols, FRAME_COLS (frame));
if ((min (PTRDIFF_MAX, SIZE_MAX) / sizeof (int) - 1) / 2
< max_frame_cols)
memory_full (SIZE_MAX);
char_ins_del_vector =
xrealloc (char_ins_del_vector,
(sizeof (int) + 2 * sizeof (int) * max_frame_cols));
memset (char_ins_del_vector, 0,
(sizeof (int) + 2 * sizeof (int) * max_frame_cols));
if (f && (!tty->TS_ins_line && !tty->TS_del_line))
do_line_insertion_deletion_costs (frame,
tty->TS_rev_scroll, tty->TS_ins_multi_lines,
tty->TS_fwd_scroll, tty->TS_del_multi_lines,
f, f, 1);
else
do_line_insertion_deletion_costs (frame,
tty->TS_ins_line, tty->TS_ins_multi_lines,
tty->TS_del_line, tty->TS_del_multi_lines,
0, 0, 1);
calculate_ins_del_char_costs (frame);
/* Don't use TS_repeat if its padding is worse than sending the chars */
if (tty->TS_repeat
&& (baud_rate <= 0
|| per_line_cost (tty->TS_repeat) < 9000 / baud_rate))
tty->RPov = string_cost (tty->TS_repeat);
else
tty->RPov = FRAME_COLS (frame) * 2;
cmcostinit (FRAME_TTY (frame)); /* set up cursor motion costs */
}
}
struct fkey_table {
const char *cap, *name;
};
#ifndef DOS_NT
/* Termcap capability names that correspond directly to X keysyms.
Some of these (marked "terminfo") aren't supplied by old-style
(Berkeley) termcap entries. They're listed in X keysym order;
except we put the keypad keys first, so that if they clash with
other keys (as on the IBM PC keyboard) they get overridden.
*/
static const struct fkey_table keys[] =
{
{"kh", "home"}, /* termcap */
{"kl", "left"}, /* termcap */
{"ku", "up"}, /* termcap */
{"kr", "right"}, /* termcap */
{"kd", "down"}, /* termcap */
{"%8", "prior"}, /* terminfo */
{"%5", "next"}, /* terminfo */
{"@7", "end"}, /* terminfo */
{"@1", "begin"}, /* terminfo */
{"*6", "select"}, /* terminfo */
{"%9", "print"}, /* terminfo */
{"@4", "execute"}, /* terminfo --- actually the `command' key */
/*
* "insert" --- see below
*/
{"&8", "undo"}, /* terminfo */
{"%0", "redo"}, /* terminfo */
{"%7", "menu"}, /* terminfo --- actually the `options' key */
{"@0", "find"}, /* terminfo */
{"@2", "cancel"}, /* terminfo */
{"%1", "help"}, /* terminfo */
/*
* "break" goes here, but can't be reliably intercepted with termcap
*/
{"&4", "reset"}, /* terminfo --- actually `restart' */
/*
* "system" and "user" --- no termcaps
*/
{"kE", "clearline"}, /* terminfo */
{"kA", "insertline"}, /* terminfo */
{"kL", "deleteline"}, /* terminfo */
{"kI", "insertchar"}, /* terminfo */
{"kD", "deletechar"}, /* terminfo */
{"kB", "backtab"}, /* terminfo */
/*
* "kp_backtab", "kp-space", "kp-tab" --- no termcaps
*/
{"@8", "kp-enter"}, /* terminfo */
/*
* "kp-f1", "kp-f2", "kp-f3" "kp-f4",
* "kp-multiply", "kp-add", "kp-separator",
* "kp-subtract", "kp-decimal", "kp-divide", "kp-0";
* --- no termcaps for any of these.
*/
{"K4", "kp-1"}, /* terminfo */
/*
* "kp-2" --- no termcap
*/
{"K5", "kp-3"}, /* terminfo */
/*
* "kp-4" --- no termcap
*/
{"K2", "kp-5"}, /* terminfo */
/*
* "kp-6" --- no termcap
*/
{"K1", "kp-7"}, /* terminfo */
/*
* "kp-8" --- no termcap
*/
{"K3", "kp-9"}, /* terminfo */
/*
* "kp-equal" --- no termcap
*/
{"k1", "f1"},
{"k2", "f2"},
{"k3", "f3"},
{"k4", "f4"},
{"k5", "f5"},
{"k6", "f6"},
{"k7", "f7"},
{"k8", "f8"},
{"k9", "f9"},
{"&0", "S-cancel"}, /*shifted cancel key*/
{"&9", "S-begin"}, /*shifted begin key*/
{"*0", "S-find"}, /*shifted find key*/
{"*1", "S-execute"}, /*shifted execute? actually shifted command key*/
{"*4", "S-delete"}, /*shifted delete-character key*/
{"*7", "S-end"}, /*shifted end key*/
{"*8", "S-clearline"}, /*shifted clear-to end-of-line key*/
{"#1", "S-help"}, /*shifted help key*/
{"#2", "S-home"}, /*shifted home key*/
{"#3", "S-insert"}, /*shifted insert-character key*/
{"#4", "S-left"}, /*shifted left-arrow key*/
{"%d", "S-menu"}, /*shifted menu? actually shifted options key*/
{"%c", "S-next"}, /*shifted next key*/
{"%e", "S-prior"}, /*shifted previous key*/
{"%f", "S-print"}, /*shifted print key*/
{"%g", "S-redo"}, /*shifted redo key*/
{"%i", "S-right"}, /*shifted right-arrow key*/
{"!3", "S-undo"} /*shifted undo key*/
};
static char **term_get_fkeys_address;
static KBOARD *term_get_fkeys_kboard;
static Lisp_Object term_get_fkeys_1 (void);
/* Find the escape codes sent by the function keys for Vinput_decode_map.
This function scans the termcap function key sequence entries, and
adds entries to Vinput_decode_map for each function key it finds. */
static void
term_get_fkeys (char **address, KBOARD *kboard)
{
/* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
errors during the call. The only errors should be from Fdefine_key
when given a key sequence containing an invalid prefix key. If the
termcap defines function keys which use a prefix that is already bound
to a command by the default bindings, we should silently ignore that
function key specification, rather than giving the user an error and
refusing to run at all on such a terminal. */
term_get_fkeys_address = address;
term_get_fkeys_kboard = kboard;
internal_condition_case (term_get_fkeys_1, Qerror, Fidentity);
}
static Lisp_Object
term_get_fkeys_1 (void)
{
int i;
char **address = term_get_fkeys_address;
KBOARD *kboard = term_get_fkeys_kboard;
/* This can happen if Emacs is starting up from scratch, or with
strange options. */
if (!KEYMAPP (KVAR (kboard, Vinput_decode_map)))
kset_input_decode_map (kboard, Fmake_sparse_keymap (Qnil));
for (i = 0; i < ARRAYELTS (keys); i++)
{
char *sequence = tgetstr (keys[i].cap, address);
if (sequence)
Fdefine_key (KVAR (kboard, Vinput_decode_map), build_string (sequence),
make_vector (1, intern (keys[i].name)), Qnil);
}
/* The uses of the "k0" capability are inconsistent; sometimes it
describes F10, whereas othertimes it describes F0 and "k;" describes F10.
We will attempt to politely accommodate both systems by testing for
"k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
*/
{
const char *k_semi = tgetstr ("k;", address);
const char *k0 = tgetstr ("k0", address);
const char *k0_name = "f10";
if (k_semi)
{
if (k0)
/* Define f0 first, so that f10 takes precedence in case the
key sequences happens to be the same. */
Fdefine_key (KVAR (kboard, Vinput_decode_map), build_string (k0),
make_vector (1, intern ("f0")), Qnil);
Fdefine_key (KVAR (kboard, Vinput_decode_map), build_string (k_semi),
make_vector (1, intern ("f10")), Qnil);
}
else if (k0)
Fdefine_key (KVAR (kboard, Vinput_decode_map), build_string (k0),
make_vector (1, intern (k0_name)), Qnil);
}
/* Set up cookies for numbered function keys above f10. */
{
char fcap[3], fkey[4];
fcap[0] = 'F'; fcap[2] = '\0';
for (i = 11; i < 64; i++)
{
if (i <= 19)
fcap[1] = '1' + i - 11;
else if (i <= 45)
fcap[1] = 'A' + i - 20;
else
fcap[1] = 'a' + i - 46;
{
char *sequence = tgetstr (fcap, address);
if (sequence)
{
sprintf (fkey, "f%d", i);
Fdefine_key (KVAR (kboard, Vinput_decode_map),
build_string (sequence),
make_vector (1, intern (fkey)),
Qnil);
}
}
}
}
/*
* Various mappings to try and get a better fit.
*/
{
#define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
if (!tgetstr (cap1, address)) \
{ \
char *sequence = tgetstr (cap2, address); \
if (sequence) \
Fdefine_key (KVAR (kboard, Vinput_decode_map), build_string (sequence), \
make_vector (1, intern (sym)), Qnil); \
}
/* if there's no key_next keycap, map key_npage to `next' keysym */
CONDITIONAL_REASSIGN ("%5", "kN", "next");
/* if there's no key_prev keycap, map key_ppage to `previous' keysym */
CONDITIONAL_REASSIGN ("%8", "kP", "prior");
/* if there's no key_dc keycap, map key_ic to `insert' keysym */
CONDITIONAL_REASSIGN ("kD", "kI", "insert");
/* if there's no key_end keycap, map key_ll to 'end' keysym */
CONDITIONAL_REASSIGN ("@7", "kH", "end");
#undef CONDITIONAL_REASSIGN
}
return Qnil;
}
#endif /* not DOS_NT */
/***********************************************************************
Character Display Information
***********************************************************************/
static void append_glyph (struct it *);
static void append_composite_glyph (struct it *);
static void produce_composite_glyph (struct it *);
static void append_glyphless_glyph (struct it *, int, const char *);
static void produce_glyphless_glyph (struct it *, Lisp_Object);
/* Append glyphs to IT's glyph_row. Called from produce_glyphs for
terminal frames if IT->glyph_row != NULL. IT->char_to_display is
the character for which to produce glyphs; IT->face_id contains the
character's face. Padding glyphs are appended if IT->c has a
IT->pixel_width > 1. */
static void
append_glyph (struct it *it)
{
struct glyph *glyph, *end;
int i;
eassert (it->glyph_row);
glyph = (it->glyph_row->glyphs[it->area]
+ it->glyph_row->used[it->area]);
end = it->glyph_row->glyphs[1 + it->area];
/* If the glyph row is reversed, we need to prepend the glyph rather
than append it. */
if (it->glyph_row->reversed_p && it->area == TEXT_AREA)
{
struct glyph *g;
int move_by = it->pixel_width;
/* Make room for the new glyphs. */
if (move_by > end - glyph) /* don't overstep end of this area */
move_by = end - glyph;
for (g = glyph - 1; g >= it->glyph_row->glyphs[it->area]; g--)
g[move_by] = *g;
glyph = it->glyph_row->glyphs[it->area];
end = glyph + move_by;
}
/* BIDI Note: we put the glyphs of a "multi-pixel" character left to
right, even in the REVERSED_P case, since (a) all of its u.ch are
identical, and (b) the PADDING_P flag needs to be set for the
leftmost one, because we write to the terminal left-to-right. */
for (i = 0;
i < it->pixel_width && glyph < end;
++i)
{
glyph->type = CHAR_GLYPH;
glyph->pixel_width = 1;
glyph->u.ch = it->char_to_display;
glyph->face_id = it->face_id;
glyph->avoid_cursor_p = it->avoid_cursor_p;
glyph->multibyte_p = it->multibyte_p;
glyph->padding_p = i > 0;
glyph->charpos = CHARPOS (it->position);
glyph->object = it->object;
if (it->bidi_p)
{
glyph->resolved_level = it->bidi_it.resolved_level;
eassert ((it->bidi_it.type & 7) == it->bidi_it.type);
glyph->bidi_type = it->bidi_it.type;
}
else
{
glyph->resolved_level = 0;
glyph->bidi_type = UNKNOWN_BT;
}
++it->glyph_row->used[it->area];
++glyph;
}
}
/* For external use. */
void
tty_append_glyph (struct it *it)
{
append_glyph (it);
}
/* Produce glyphs for the display element described by IT. *IT
specifies what we want to produce a glyph for (character, image, ...),
and where in the glyph matrix we currently are (glyph row and hpos).
produce_glyphs fills in output fields of *IT with information such as the
pixel width and height of a character, and maybe output actual glyphs at
the same time if IT->glyph_row is non-null. For an overview, see
the explanation in dispextern.h, before the definition of the
display_element_type enumeration.
produce_glyphs also stores the result of glyph width, ascent
etc. computations in *IT.
IT->glyph_row may be null, in which case produce_glyphs does not
actually fill in the glyphs. This is used in the move_* functions
in xdisp.c for text width and height computations.
Callers usually don't call produce_glyphs directly;
instead they use the macro PRODUCE_GLYPHS. */
void
produce_glyphs (struct it *it)
{
/* If a hook is installed, let it do the work. */
/* Nothing but characters are supported on terminal frames. */
eassert (it->what == IT_CHARACTER
|| it->what == IT_COMPOSITION
|| it->what == IT_STRETCH
|| it->what == IT_GLYPHLESS);
if (it->what == IT_STRETCH)
{
produce_stretch_glyph (it);
goto done;
}
if (it->what == IT_COMPOSITION)
{
produce_composite_glyph (it);
goto done;
}
if (it->what == IT_GLYPHLESS)
{
produce_glyphless_glyph (it, Qnil);
goto done;
}
if (it->char_to_display >= 040 && it->char_to_display < 0177)
{
it->pixel_width = it->nglyphs = 1;
if (it->glyph_row)
append_glyph (it);
}
else if (it->char_to_display == '\n')
it->pixel_width = it->nglyphs = 0;
else if (it->char_to_display == '\t')
{
int absolute_x = (it->current_x
+ it->continuation_lines_width);
int x0 = absolute_x;
/* Adjust for line numbers. */
if (!NILP (Vdisplay_line_numbers) && it->line_number_produced_p)
absolute_x -= it->lnum_pixel_width;
int next_tab_x
= (((1 + absolute_x + it->tab_width - 1)
/ it->tab_width)
* it->tab_width);
if (!NILP (Vdisplay_line_numbers) && it->line_number_produced_p)
next_tab_x += it->lnum_pixel_width;
int nspaces;
/* If part of the TAB has been displayed on the previous line
which is continued now, continuation_lines_width will have
been incremented already by the part that fitted on the
continued line. So, we will get the right number of spaces
here. */
nspaces = next_tab_x - x0;
if (it->glyph_row)
{
int n = nspaces;
it->char_to_display = ' ';
it->pixel_width = it->len = 1;
while (n--)
append_glyph (it);
}
it->pixel_width = nspaces;
it->nglyphs = nspaces;
}
else if (CHAR_BYTE8_P (it->char_to_display))
{
/* Coming here means that we must send the raw 8-bit byte as is
to the terminal. Although there's no way to know how many
columns it occupies on a screen, it is a good assumption that
a single byte code has 1-column width. */
it->pixel_width = it->nglyphs = 1;
if (it->glyph_row)
append_glyph (it);
}
else
{
struct terminal *t = FRAME_TERMINAL (it->f);
Lisp_Object charset_list = t->charset_list, char_glyph;
if (char_charset (it->char_to_display, charset_list, NULL)
&& (char_glyph = terminal_glyph_code (t, it->char_to_display),
NILP (char_glyph)
|| (FIXNUMP (char_glyph) && XFIXNUM (char_glyph) >= 0)))
{
it->pixel_width = CHARACTER_WIDTH (it->char_to_display);
it->nglyphs = it->pixel_width;
if (it->glyph_row)
append_glyph (it);
}
else
{
Lisp_Object acronym = lookup_glyphless_char_display (-1, it);
eassert (it->what == IT_GLYPHLESS);
produce_glyphless_glyph (it, acronym);
}
}
done:
/* Advance current_x by the pixel width as a convenience for
the caller. */
if (it->area == TEXT_AREA)
it->current_x += it->pixel_width;
it->ascent = it->max_ascent = it->phys_ascent = it->max_phys_ascent = 0;
it->descent = it->max_descent = it->phys_descent = it->max_phys_descent = 1;
}
/* Append glyphs to IT's glyph_row for the composition IT->cmp_id.
Called from produce_composite_glyph for terminal frames if
IT->glyph_row != NULL. IT->face_id contains the character's
face. */
static void
append_composite_glyph (struct it *it)
{
struct glyph *glyph;
eassert (it->glyph_row);
glyph = it->glyph_row->glyphs[it->area] + it->glyph_row->used[it->area];
if (glyph < it->glyph_row->glyphs[1 + it->area])
{
/* If the glyph row is reversed, we need to prepend the glyph
rather than append it. */
if (it->glyph_row->reversed_p && it->area == TEXT_AREA)
{
struct glyph *g;
/* Make room for the new glyph. */
for (g = glyph - 1; g >= it->glyph_row->glyphs[it->area]; g--)
g[1] = *g;
glyph = it->glyph_row->glyphs[it->area];
}
glyph->type = COMPOSITE_GLYPH;
eassert (it->pixel_width <= SHRT_MAX);
glyph->pixel_width = it->pixel_width;
glyph->u.cmp.id = it->cmp_it.id;
if (it->cmp_it.ch < 0)
{
glyph->u.cmp.automatic = 0;
glyph->u.cmp.id = it->cmp_it.id;
}
else
{
glyph->u.cmp.automatic = 1;
glyph->u.cmp.id = it->cmp_it.id;
glyph->slice.cmp.from = it->cmp_it.from;
glyph->slice.cmp.to = it->cmp_it.to - 1;
}
glyph->avoid_cursor_p = it->avoid_cursor_p;
glyph->multibyte_p = it->multibyte_p;
glyph->face_id = it->face_id;
glyph->padding_p = false;
glyph->charpos = CHARPOS (it->position);
glyph->object = it->object;
if (it->bidi_p)
{
glyph->resolved_level = it->bidi_it.resolved_level;
eassert ((it->bidi_it.type & 7) == it->bidi_it.type);
glyph->bidi_type = it->bidi_it.type;
}
else
{
glyph->resolved_level = 0;
glyph->bidi_type = UNKNOWN_BT;
}
++it->glyph_row->used[it->area];
++glyph;
}
}
/* Produce a composite glyph for iterator IT. IT->cmp_id is the ID of
the composition. We simply produces components of the composition
assuming that the terminal has a capability to layout/render it
correctly. */
static void
produce_composite_glyph (struct it *it)
{
if (it->cmp_it.ch < 0)
{
struct composition *cmp = composition_table[it->cmp_it.id];
it->pixel_width = cmp->width;
}
else
{
Lisp_Object gstring = composition_gstring_from_id (it->cmp_it.id);
it->pixel_width = composition_gstring_width (gstring, it->cmp_it.from,
it->cmp_it.to, NULL);
}
it->nglyphs = 1;
if (it->glyph_row)
append_composite_glyph (it);
}
/* Append a glyph for a glyphless character to IT->glyph_row. FACE_ID
is a face ID to be used for the glyph. What is actually appended
are glyphs of type CHAR_GLYPH whose characters are in STR (which
comes from it->nglyphs bytes). */
static void
append_glyphless_glyph (struct it *it, int face_id, const char *str)
{
struct glyph *glyph, *end;
int i;
eassert (it->glyph_row);
glyph = it->glyph_row->glyphs[it->area] + it->glyph_row->used[it->area];
end = it->glyph_row->glyphs[1 + it->area];
/* If the glyph row is reversed, we need to prepend the glyph rather
than append it. */
if (it->glyph_row->reversed_p && it->area == TEXT_AREA)
{
struct glyph *g;
int move_by = it->pixel_width;
/* Make room for the new glyphs. */
if (move_by > end - glyph) /* don't overstep end of this area */
move_by = end - glyph;
for (g = glyph - 1; g >= it->glyph_row->glyphs[it->area]; g--)
g[move_by] = *g;
glyph = it->glyph_row->glyphs[it->area];
end = glyph + move_by;
}
if (glyph >= end)
return;
glyph->type = CHAR_GLYPH;
glyph->pixel_width = 1;
glyph->avoid_cursor_p = it->avoid_cursor_p;
glyph->multibyte_p = it->multibyte_p;
glyph->face_id = face_id;
glyph->padding_p = false;
glyph->charpos = CHARPOS (it->position);
glyph->object = it->object;
if (it->bidi_p)
{
glyph->resolved_level = it->bidi_it.resolved_level;
eassert ((it->bidi_it.type & 7) == it->bidi_it.type);
glyph->bidi_type = it->bidi_it.type;
}
else
{
glyph->resolved_level = 0;
glyph->bidi_type = UNKNOWN_BT;
}
/* BIDI Note: we put the glyphs of characters left to right, even in
the REVERSED_P case because we write to the terminal
left-to-right. */
for (i = 0; i < it->nglyphs && glyph < end; ++i)
{
if (i > 0)
glyph[0] = glyph[-1];
glyph->u.ch = str[i];
++it->glyph_row->used[it->area];
++glyph;
}
}
/* Produce glyphs for a glyphless character for iterator IT.
IT->glyphless_method specifies which method to use for displaying
the character. See the description of enum
glyphless_display_method in dispextern.h for the details.
ACRONYM, if non-nil, is an acronym string for the character.
The glyphs actually produced are of type CHAR_GLYPH. */
static void
produce_glyphless_glyph (struct it *it, Lisp_Object acronym)
{
int len, face_id = merge_glyphless_glyph_face (it);
char buf[sizeof "\\x" + max (6, (INT_WIDTH + 3) / 4)];
char const *str = " ";
if (it->glyphless_method == GLYPHLESS_DISPLAY_THIN_SPACE)
{
/* As there's no way to produce a thin space, we produce a space
of canonical width. */
len = 1;
}
else if (it->glyphless_method == GLYPHLESS_DISPLAY_EMPTY_BOX)
{
len = CHARACTER_WIDTH (it->c);
if (len == 0)
len = 1;
else if (len > 4)
len = 4;
len = sprintf (buf, "[%.*s]", len, str);
str = buf;
}
else
{
if (it->glyphless_method == GLYPHLESS_DISPLAY_ACRONYM)
{
if (! STRINGP (acronym) && CHAR_TABLE_P (Vglyphless_char_display))
acronym = CHAR_TABLE_REF (Vglyphless_char_display, it->c);
if (CONSP (acronym))
acronym = XCDR (acronym);
str = STRINGP (acronym) ? SSDATA (acronym) : "";
/* A special kludgey feature for single-character acronyms:
don't put them in a box, effectively treating them as a
replacement character. */
if (STRINGP (acronym) && SCHARS (acronym) == 1)
{
buf[0] = str[0];
len = 1;
}
else
{
buf[0] = '[';
for (len = 0;
len < 6 && str[len] && ASCII_CHAR_P (str[len]); len++)
buf[1 + len] = str[len];
buf[1 + len] = ']';
len += 2;
}
}
else
{
eassert (it->glyphless_method == GLYPHLESS_DISPLAY_HEX_CODE);
len = sprintf (buf,
(it->c < 0x10000 ? "\\u%04X"
: it->c <= MAX_UNICODE_CHAR ? "\\U%06X"
: "\\x%06X"),
it->c + 0u);
}
str = buf;
}
it->pixel_width = len;
it->nglyphs = len;
if (it->glyph_row)
append_glyphless_glyph (it, face_id, str);
}
/***********************************************************************
Faces
***********************************************************************/
/* Value is non-zero if attribute ATTR may be used. ATTR should be
one of the enumerators from enum no_color_bit, or a bit set built
from them. Some display attributes may not be used together with
color; the termcap capability `NC' specifies which ones. */
#define MAY_USE_WITH_COLORS_P(tty, ATTR) \
(tty->TN_max_colors > 0 \
? (tty->TN_no_color_video & (ATTR)) == 0 \
: 1)
/* Turn appearances of face FACE_ID on tty frame F on.
FACE_ID is a realized face ID number, in the face cache. */
static void
turn_on_face (struct frame *f, int face_id)
{
struct face *face = FACE_FROM_ID (f, face_id);
unsigned long fg = face->foreground;
unsigned long bg = face->background;
struct tty_display_info *tty = FRAME_TTY (f);
/* Use reverse video if the face specifies that.
Do this first because TS_end_standout_mode may be the same
as TS_exit_attribute_mode, which turns all appearances off. */
if (MAY_USE_WITH_COLORS_P (tty, NC_REVERSE)
&& (inverse_video
? fg == FACE_TTY_DEFAULT_FG_COLOR || bg == FACE_TTY_DEFAULT_BG_COLOR
: fg == FACE_TTY_DEFAULT_BG_COLOR || bg == FACE_TTY_DEFAULT_FG_COLOR))
tty_toggle_highlight (tty);
if (face->tty_bold_p && MAY_USE_WITH_COLORS_P (tty, NC_BOLD))
OUTPUT1_IF (tty, tty->TS_enter_bold_mode);
if (face->tty_italic_p && MAY_USE_WITH_COLORS_P (tty, NC_ITALIC))
{
if (tty->TS_enter_italic_mode)
OUTPUT1 (tty, tty->TS_enter_italic_mode);
else
/* Italics mode is unavailable on many terminals. In that
case, map slant to dimmed text; we want italic text to
appear different and dimming is not otherwise used. */
OUTPUT1 (tty, tty->TS_enter_dim_mode);
}
if (face->tty_underline && MAY_USE_WITH_COLORS_P (tty, NC_UNDERLINE)) {
if (face->tty_underline == FACE_UNDER_LINE ||
!tty->TF_set_underline_style) {
OUTPUT1_IF (tty, tty->TS_enter_underline_mode);
} else if (tty->TF_set_underline_style) {
char *p;
p = tparam(tty->TF_set_underline_style, NULL, 0, face->tty_underline, 0, 0, 0);
OUTPUT (tty, p);
xfree (p);
}
}
if (face->tty_strike_through_p
&& MAY_USE_WITH_COLORS_P (tty, NC_STRIKE_THROUGH))
OUTPUT1_IF (tty, tty->TS_enter_strike_through_mode);
if (tty->TN_max_colors > 0)
{
const char *ts;
char *p;
ts = tty->standout_mode ? tty->TS_set_background : tty->TS_set_foreground;
if (face_tty_specified_color (fg) && ts)
{
p = tparam (ts, NULL, 0, fg, 0, 0, 0);
OUTPUT (tty, p);
xfree (p);
}
ts = tty->standout_mode ? tty->TS_set_foreground : tty->TS_set_background;
if (face_tty_specified_color (bg) && ts)
{
p = tparam (ts, NULL, 0, bg, 0, 0, 0);
OUTPUT (tty, p);
xfree (p);
}
ts = tty->TF_set_underline_color;
if (ts && face->underline_color)
{
p = tparam (ts, NULL, 0, face->underline_color, 0, 0, 0);
OUTPUT (tty, p);
xfree (p);
}
}
}
/* Turn off appearances of face FACE_ID on tty frame F. */
static void
turn_off_face (struct frame *f, int face_id)
{
struct face *face = FACE_FROM_ID (f, face_id);
struct tty_display_info *tty = FRAME_TTY (f);
if (tty->TS_exit_attribute_mode)
{
/* Capability "me" will turn off appearance modes double-bright,
half-bright, reverse-video, standout, underline. It may or
may not turn off alt-char-mode. */
if (face->tty_bold_p
|| face->tty_italic_p
|| face->tty_reverse_p
|| face->tty_underline
|| face->tty_strike_through_p)
{
OUTPUT1_IF (tty, tty->TS_exit_attribute_mode);
if (strcmp (tty->TS_exit_attribute_mode, tty->TS_end_standout_mode) == 0)
tty->standout_mode = 0;
}
}
else
{
/* If we don't have "me" we can only have those appearances
that have exit sequences defined. */
if (face->tty_underline)
OUTPUT_IF (tty, tty->TS_exit_underline_mode);
}
/* Switch back to default colors. */
if (tty->TN_max_colors > 0
&& ((face->foreground != FACE_TTY_DEFAULT_COLOR
&& face->foreground != FACE_TTY_DEFAULT_FG_COLOR)
|| (face->background != FACE_TTY_DEFAULT_COLOR
&& face->background != FACE_TTY_DEFAULT_BG_COLOR)))
OUTPUT1_IF (tty, tty->TS_orig_pair);
}
/* Return true if the terminal on frame F supports all of the
capabilities in CAPS simultaneously. */
bool
tty_capable_p (struct tty_display_info *tty, unsigned int caps)
{
#define TTY_CAPABLE_P_TRY(tty, cap, TS, NC_bit) \
if ((caps & (cap)) && (!(TS) || !MAY_USE_WITH_COLORS_P(tty, NC_bit))) \
return 0;
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_INVERSE, tty->TS_standout_mode, NC_REVERSE);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_UNDERLINE, tty->TS_enter_underline_mode,
NC_UNDERLINE);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_UNDERLINE_STYLED, tty->TF_set_underline_style,
NC_UNDERLINE);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_BOLD, tty->TS_enter_bold_mode, NC_BOLD);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_DIM, tty->TS_enter_dim_mode, NC_DIM);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_ITALIC, tty->TS_enter_italic_mode, NC_ITALIC);
TTY_CAPABLE_P_TRY (tty,
TTY_CAP_STRIKE_THROUGH, tty->TS_enter_strike_through_mode,
NC_STRIKE_THROUGH);
/* We can do it! */
return 1;
}
/* Return non-zero if the terminal is capable to display colors. */
DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
0, 1, 0,
doc: /* Return non-nil if the tty device TERMINAL can display colors.
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). This function always returns nil if
TERMINAL does not refer to a text terminal. */)
(Lisp_Object terminal)
{
struct terminal *t = decode_tty_terminal (terminal);
return (t && t->display_info.tty->TN_max_colors > 0) ? Qt : Qnil;
}
/* Return the number of supported colors. */
DEFUN ("tty-display-color-cells", Ftty_display_color_cells,
Stty_display_color_cells, 0, 1, 0,
doc: /* Return the number of colors supported by the tty device TERMINAL.
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). This function always returns 0 if
TERMINAL does not refer to a text terminal. */)
(Lisp_Object terminal)
{
struct terminal *t = decode_tty_terminal (terminal);
return make_fixnum (t ? t->display_info.tty->TN_max_colors : 0);
}
#ifndef DOS_NT
/* Declare here rather than in the function, as in the rest of Emacs,
to work around an HPUX compiler bug (?). See
https://lists.gnu.org/r/emacs-devel/2007-08/msg00410.html */
static int default_max_colors;
static int default_no_color_video;
static char *default_orig_pair;
static char *default_set_foreground;
static char *default_set_background;
/* Save or restore the default color-related capabilities of this
terminal. */
static void
tty_default_color_capabilities (struct tty_display_info *tty, bool save)
{
if (save)
{
dupstring (&default_orig_pair, tty->TS_orig_pair);
dupstring (&default_set_foreground, tty->TS_set_foreground);
dupstring (&default_set_background, tty->TS_set_background);
default_max_colors = tty->TN_max_colors;
default_no_color_video = tty->TN_no_color_video;
}
else
{
tty->TS_orig_pair = default_orig_pair;
tty->TS_set_foreground = default_set_foreground;
tty->TS_set_background = default_set_background;
tty->TN_max_colors = default_max_colors;
tty->TN_no_color_video = default_no_color_video;
}
}
/* Setup one of the standard tty color schemes according to MODE.
MODE's value is generally the number of colors which we want to
support; zero means set up for the default capabilities, the ones
we saw at init_tty time; -1 means turn off color support. */
static void
tty_setup_colors (struct tty_display_info *tty, int mode)
{
/* Canonicalize all negative values of MODE. */
if (mode < -1)
mode = -1;
switch (mode)
{
case -1: /* no colors at all */
tty->TN_max_colors = 0;
tty->TN_no_color_video = 0;
tty->TS_set_foreground = tty->TS_set_background = tty->TS_orig_pair = NULL;
break;
case 0: /* default colors, if any */
default:
tty_default_color_capabilities (tty, 0);
break;
case 8: /* 8 standard ANSI colors */
tty->TS_orig_pair = "\033[0m";
#ifdef TERMINFO
tty->TS_set_foreground = "\033[3%p1%dm";
tty->TS_set_background = "\033[4%p1%dm";
#else
tty->TS_set_foreground = "\033[3%dm";
tty->TS_set_background = "\033[4%dm";
#endif
tty->TN_max_colors = 8;
tty->TN_no_color_video = 0;
break;
}
}
void
set_tty_color_mode (struct tty_display_info *tty, struct frame *f)
{
Lisp_Object tem, val;
Lisp_Object color_mode;
int mode;
Lisp_Object tty_color_mode_alist
= Fintern_soft (build_string ("tty-color-mode-alist"), Qnil);
tem = assq_no_quit (Qtty_color_mode, f->param_alist);
val = CONSP (tem) ? XCDR (tem) : Qnil;
if (FIXNUMP (val))
color_mode = val;
else if (SYMBOLP (tty_color_mode_alist))
{
tem = Fassq (val, Fsymbol_value (tty_color_mode_alist));
color_mode = CONSP (tem) ? XCDR (tem) : Qnil;
}
else
color_mode = Qnil;
mode = TYPE_RANGED_FIXNUMP (int, color_mode) ? XFIXNUM (color_mode) : 0;
if (mode != tty->previous_color_mode)
{
tty->previous_color_mode = mode;
tty_setup_colors (tty , mode);
/* This recomputes all the faces given the new color definitions. */
safe_call (1, intern ("tty-set-up-initial-frame-faces"));
}
}
#endif /* !DOS_NT */
char *
tty_type_name (Lisp_Object terminal)
{
struct terminal *t = decode_tty_terminal (terminal);
return t? t->display_info.tty->type: NULL;
}
DEFUN ("tty-type", Ftty_type, Stty_type, 0, 1, 0,
doc: /* Return the type of the tty device that TERMINAL uses.
Returns nil if TERMINAL is not on a tty device.
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). */)
(Lisp_Object terminal)
{
char *name = tty_type_name (terminal);
return (name? build_string (name) : Qnil);
}
DEFUN ("controlling-tty-p", Fcontrolling_tty_p, Scontrolling_tty_p, 0, 1, 0,
doc: /* Return non-nil if TERMINAL is the controlling tty of the Emacs process.
TERMINAL can be a terminal object, a frame, or nil (meaning the
selected frame's terminal). This function always returns nil if
TERMINAL is not on a tty device. */)
(Lisp_Object terminal)
{
struct terminal *t = decode_tty_terminal (terminal);
return (t && !strcmp (t->display_info.tty->name, DEV_TTY) ? Qt : Qnil);
}
DEFUN ("tty-no-underline", Ftty_no_underline, Stty_no_underline, 0, 1, 0,
doc: /* Declare that the tty used by TERMINAL does not handle underlining.
This is used to override the terminfo data, for certain terminals that
do not really do underlining, but say that they do. This function has
no effect if used on a non-tty terminal.
TERMINAL can be a terminal object, a frame or nil (meaning the
selected frame's terminal). This function always returns nil if
TERMINAL does not refer to a text terminal. */)
(Lisp_Object terminal)
{
struct terminal *t = decode_live_terminal (terminal);
if (t->type == output_termcap)
t->display_info.tty->TS_enter_underline_mode = 0;
return Qnil;
}
DEFUN ("tty-top-frame", Ftty_top_frame, Stty_top_frame, 0, 1, 0,
doc: /* Return the topmost terminal frame on TERMINAL.
TERMINAL can be a terminal object, a frame or nil (meaning the
selected frame's terminal). This function returns nil if TERMINAL
does not refer to a text terminal. Otherwise, it returns the
top-most frame on the text terminal. */)
(Lisp_Object terminal)
{
struct terminal *t = decode_live_terminal (terminal);
if (t->type == output_termcap)
return t->display_info.tty->top_frame;
return Qnil;
}
DEFUN ("suspend-tty", Fsuspend_tty, Ssuspend_tty, 0, 1, 0,
doc: /* Suspend the terminal device TTY.
The device is restored to its default state, and Emacs ceases all
access to the tty device. Frames that use the device are not deleted,
but input is not read from them and if they change, their display is
not updated.
TTY may be a terminal object, a frame, or nil for the terminal device
of the currently selected frame.
This function runs `suspend-tty-functions' after suspending the
device. The functions are run with one arg, the id of the suspended
terminal device.
`suspend-tty' does nothing if it is called on a device that is already
suspended.
A suspended tty may be resumed by calling `resume-tty' on it. */)
(Lisp_Object tty)
{
struct terminal *t = decode_tty_terminal (tty);
FILE *f;
if (!t)
error ("Attempt to suspend a non-text terminal device");
f = t->display_info.tty->input;
if (f)
{
/* First run `suspend-tty-functions' and then clean up the tty
state because `suspend-tty-functions' might need to change
the tty state. */
Lisp_Object term;
XSETTERMINAL (term, t);
CALLN (Frun_hook_with_args, intern ("suspend-tty-functions"), term);
reset_sys_modes (t->display_info.tty);
delete_keyboard_wait_descriptor (fileno (f));
#ifndef MSDOS
if (f != t->display_info.tty->output)
fclose (t->display_info.tty->output);
fclose (f);
#endif
t->display_info.tty->input = 0;
t->display_info.tty->output = 0;
if (FRAMEP (t->display_info.tty->top_frame))
SET_FRAME_VISIBLE (XFRAME (t->display_info.tty->top_frame), 0);
}
/* Clear display hooks to prevent further output. */
clear_tty_hooks (t);
return Qnil;
}
DEFUN ("resume-tty", Fresume_tty, Sresume_tty, 0, 1, 0,
doc: /* Resume the previously suspended terminal device TTY.
The terminal is opened and reinitialized. Frames that are on the
suspended terminal are revived.
It is an error to resume a terminal while another terminal is active
on the same device.
This function runs `resume-tty-functions' after resuming the terminal.
The functions are run with one arg, the id of the resumed terminal
device.
`resume-tty' does nothing if it is called on a device that is not
suspended.
TTY may be a terminal object, a frame, or nil (meaning the selected
frame's terminal). */)
(Lisp_Object tty)
{
struct terminal *t = decode_tty_terminal (tty);
int fd;
if (!t)
error ("Attempt to resume a non-text terminal device");
if (!t->display_info.tty->input)
{
if (get_named_terminal (t->display_info.tty->name))
error ("Cannot resume display while another display is active on the same device");
#ifdef MSDOS
t->display_info.tty->output = stdout;
t->display_info.tty->input = stdin;
#else /* !MSDOS */
fd = emacs_open (t->display_info.tty->name, O_RDWR | O_NOCTTY, 0);
t->display_info.tty->input = t->display_info.tty->output
= fd < 0 ? 0 : fdopen (fd, "w+");
if (! t->display_info.tty->input)
{
int open_errno = errno;
emacs_close (fd);
report_file_errno ("Cannot reopen tty device",
build_string (t->display_info.tty->name),
open_errno);
}
if (!O_IGNORE_CTTY && strcmp (t->display_info.tty->name, DEV_TTY) != 0)
dissociate_if_controlling_tty (fd);
#endif
add_keyboard_wait_descriptor (fd);
if (FRAMEP (t->display_info.tty->top_frame))
{
struct frame *f = XFRAME (t->display_info.tty->top_frame);
int width, height;
int old_height = FRAME_COLS (f);
int old_width = FRAME_TOTAL_LINES (f);
/* Check if terminal/window size has changed while the frame
was suspended. */
get_tty_size (fileno (t->display_info.tty->input), &width, &height);
if (width != old_width || height != old_height)
change_frame_size (f, width, height, false, false, false);
SET_FRAME_VISIBLE (XFRAME (t->display_info.tty->top_frame), 1);
}
set_tty_hooks (t);
init_sys_modes (t->display_info.tty);
/* Run `resume-tty-functions'. */
Lisp_Object term;
XSETTERMINAL (term, t);
CALLN (Frun_hook_with_args, intern ("resume-tty-functions"), term);
}
set_tty_hooks (t);
return Qnil;
}
DEFUN ("tty--set-output-buffer-size", Ftty__set_output_buffer_size,
Stty__set_output_buffer_size, 1, 2, 0, doc:
/* Set the output buffer size for a TTY.
SIZE zero means use the system's default value. If SIZE is
non-zero, this also avoids flushing the output stream.
TTY may be a terminal object, a frame, or nil (meaning the selected
frame's terminal).
This function temporarily suspends and resumes the terminal
device. */)
(Lisp_Object size, Lisp_Object tty)
{
if (!TYPE_RANGED_FIXNUMP (size_t, size))
error ("Invalid output buffer size");
Fsuspend_tty (tty);
struct terminal *terminal = decode_tty_terminal (tty);
terminal->display_info.tty->output_buffer_size = XFIXNUM (size);
return Fresume_tty (tty);
}
DEFUN ("tty--output-buffer-size", Ftty__output_buffer_size,
Stty__output_buffer_size, 0, 1, 0, doc:
/* Return the output buffer size of TTY.
TTY may be a terminal object, a frame, or nil (meaning the selected
frame's terminal).
A value of zero means TTY uses the system's default value. */)
(Lisp_Object tty)
{
struct terminal *terminal = decode_tty_terminal (tty);
if (terminal)
return make_fixnum (terminal->display_info.tty->output_buffer_size);
error ("Not a tty terminal");
}
/***********************************************************************
Mouse
***********************************************************************/
#ifndef DOS_NT
/* Implementation of draw_row_with_mouse_face for TTY/GPM and macOS. */
void
tty_draw_row_with_mouse_face (struct window *w, struct glyph_row *row,
int start_hpos, int end_hpos,
enum draw_glyphs_face draw)
{
int nglyphs = end_hpos - start_hpos;
struct frame *f = XFRAME (WINDOW_FRAME (w));
struct tty_display_info *tty = FRAME_TTY (f);
int face_id = tty->mouse_highlight.mouse_face_face_id;
int save_x, save_y, pos_x, pos_y;
if (end_hpos >= row->used[TEXT_AREA])
nglyphs = row->used[TEXT_AREA] - start_hpos;
pos_y = row->y + WINDOW_TOP_EDGE_Y (w);
pos_x = row->used[LEFT_MARGIN_AREA] + start_hpos + WINDOW_LEFT_EDGE_X (w);
/* Save current cursor coordinates. */
save_y = curY (tty);
save_x = curX (tty);
cursor_to (f, pos_y, pos_x);
if (draw == DRAW_MOUSE_FACE)
tty_write_glyphs_with_face (f, row->glyphs[TEXT_AREA] + start_hpos,
nglyphs, face_id);
else if (draw == DRAW_NORMAL_TEXT)
write_glyphs (f, row->glyphs[TEXT_AREA] + start_hpos, nglyphs);
cursor_to (f, save_y, save_x);
}
#endif
#ifdef HAVE_GPM
void
term_mouse_moveto (int x, int y)
{
/* TODO: how to set mouse position?
const char *name;
int fd;
name = (const char *) ttyname (0);
fd = emacs_open (name, O_WRONLY, 0);
SOME_FUNCTION (x, y, fd);
emacs_close (fd);
last_mouse_x = x;
last_mouse_y = y; */
}
/* Return the current time, as a Time value. Wrap around on overflow. */
static Time
current_Time (void)
{
struct timespec now = current_timespec ();
Time s_1000 = now.tv_sec;
s_1000 *= 1000;
Time ms = now.tv_nsec / 1000000;
return s_1000 + ms;
}
/* Return the current position of the mouse.
Set *f to the frame the mouse is in, or zero if the mouse is in no
Emacs frame. If it is set to zero, all the other arguments are
garbage.
Set *bar_window to Qnil, and *x and *y to the column and
row of the character cell the mouse is over.
Set *timeptr to the time the mouse was at the returned position.
This clears mouse_moved until the next motion
event arrives. */
static void
term_mouse_position (struct frame **fp, int insist, Lisp_Object *bar_window,
enum scroll_bar_part *part, Lisp_Object *x,
Lisp_Object *y, Time *timeptr)
{
*fp = SELECTED_FRAME ();
(*fp)->mouse_moved = 0;
*bar_window = Qnil;
*part = scroll_bar_above_handle;
XSETINT (*x, last_mouse_x);
XSETINT (*y, last_mouse_y);
*timeptr = current_Time ();
}
/* Prepare a mouse-event in *RESULT for placement in the input queue.
If the event is a button press, then note that we have grabbed
the mouse. */
static Lisp_Object
term_mouse_click (struct input_event *result, Gpm_Event *event,
struct frame *f)
{
int i, j;
result->kind = MOUSE_CLICK_EVENT;
for (i = 0, j = GPM_B_LEFT; i < 3; i++, j >>= 1 )
{
if (event->buttons & j) {
result->code = i; /* button number */
break;
}
}
result->timestamp = current_Time ();
if (event->type & GPM_UP)
result->modifiers = up_modifier;
else if (event->type & GPM_DOWN)
result->modifiers = down_modifier;
else
result->modifiers = 0;
if (event->type & GPM_SINGLE)
result->modifiers |= click_modifier;
if (event->type & GPM_DOUBLE)
result->modifiers |= double_modifier;
if (event->type & GPM_TRIPLE)
result->modifiers |= triple_modifier;
if (event->type & GPM_DRAG)
result->modifiers |= drag_modifier;
if (!(event->type & (GPM_MOVE | GPM_DRAG))) {
/* 1 << KG_SHIFT */
if (event->modifiers & (1 << 0))
result->modifiers |= shift_modifier;
/* 1 << KG_CTRL */
if (event->modifiers & (1 << 2))
result->modifiers |= ctrl_modifier;
/* 1 << KG_ALT || KG_ALTGR */
if (event->modifiers & (1 << 3)
|| event->modifiers & (1 << 1))
result->modifiers |= meta_modifier;
}
XSETINT (result->x, event->x);
XSETINT (result->y, event->y);
XSETFRAME (result->frame_or_window, f);
result->arg = Qnil;
return Qnil;
}
int
handle_one_term_event (struct tty_display_info *tty, Gpm_Event *event)
{
struct frame *f = XFRAME (tty->top_frame);
struct input_event ie;
int count = 0;
EVENT_INIT (ie);
ie.kind = NO_EVENT;
ie.arg = Qnil;
if (event->type & (GPM_MOVE | GPM_DRAG))
{
Gpm_DrawPointer (event->x, event->y, fileno (tty->output));
/* Has the mouse moved off the glyph it was on at the last
sighting? */
if (event->x != last_mouse_x || event->y != last_mouse_y)
{
/* FIXME: These three lines can not be moved into
update_mouse_position unless xterm-mouse gets updated to
generate mouse events via C code. See
https://lists.gnu.org/archive/html/emacs-devel/2020-11/msg00163.html */
last_mouse_x = event->x;
last_mouse_y = event->y;
f->mouse_moved = 1;
count += update_mouse_position (f, event->x, event->y);
}
}
else
{
f->mouse_moved = 0;
term_mouse_click (&ie, event, f);
ie.arg = tty_handle_tab_bar_click (f, event->x, event->y,
(ie.modifiers & down_modifier) != 0, &ie);
kbd_buffer_store_event (&ie);
count++;
}
return count;
}
DEFUN ("gpm-mouse-start", Fgpm_mouse_start, Sgpm_mouse_start,
0, 0, 0,
doc: /* Open a connection to Gpm.
Gpm-mouse can only be activated for one tty at a time. */)
(void)
{
struct frame *f = SELECTED_FRAME ();
struct tty_display_info *tty
= ((f)->output_method == output_termcap
? (f)->terminal->display_info.tty : NULL);
Gpm_Connect connection;
if (!tty)
error ("Gpm-mouse only works in the GNU/Linux console");
if (gpm_tty == tty)
return Qnil; /* Already activated, nothing to do. */
if (gpm_tty)
error ("Gpm-mouse can only be activated for one tty at a time");
connection.eventMask = ~0;
connection.defaultMask = ~GPM_HARD;
connection.maxMod = ~0;
connection.minMod = 0;
gpm_zerobased = 1;
if (Gpm_Open (&connection, 0) < 0)
error ("Gpm-mouse failed to connect to the gpm daemon");
else
{
gpm_tty = tty;
/* `init_sys_modes' arranges for mouse movements sent through gpm_fd
to generate SIGIOs. Apparently we need to call reset_sys_modes
before calling init_sys_modes. */
reset_sys_modes (tty);
init_sys_modes (tty);
add_gpm_wait_descriptor (gpm_fd);
return Qnil;
}
}
void
close_gpm (int fd)
{
if (fd >= 0)
delete_gpm_wait_descriptor (fd);
while (Gpm_Close()); /* close all the stack */
gpm_tty = NULL;
}
DEFUN ("gpm-mouse-stop", Fgpm_mouse_stop, Sgpm_mouse_stop,
0, 0, 0,
doc: /* Close a connection to Gpm. */)
(void)
{
struct frame *f = SELECTED_FRAME ();
struct tty_display_info *tty
= ((f)->output_method == output_termcap
? (f)->terminal->display_info.tty : NULL);
if (!tty || gpm_tty != tty)
return Qnil; /* Not activated on this terminal, nothing to do. */
close_gpm (gpm_fd);
return Qnil;
}
#endif /* HAVE_GPM */
/***********************************************************************
Menus
***********************************************************************/
#if !defined (MSDOS)
/* TTY menu implementation and main ideas are borrowed from msdos.c.
However, unlike on MSDOS, where the menu text is drawn directly to
the display video memory, on a TTY we use display_string (see
display_tty_menu_item in xdisp.c) to put the glyphs produced from
the menu items into the frame's 'desired_matrix' glyph matrix, and
then call update_frame_with_menu to deliver the results to the
glass. The previous contents of the screen, in the form of the
current_matrix, is stashed away, and used to restore screen
contents when the menu selection changes or when the final
selection is made and the menu should be popped down.
The idea of this implementation was suggested by Gerd Moellmann. */
#define TTYM_FAILURE -1
#define TTYM_SUCCESS 1
#define TTYM_NO_SELECT 2
#define TTYM_IA_SELECT 3
#define TTYM_NEXT 4
#define TTYM_PREV 5
/* These hold text of the current and the previous menu help messages. */
static const char *menu_help_message, *prev_menu_help_message;
/* Pane number and item number of the menu item which generated the
last menu help message. */
static int menu_help_paneno, menu_help_itemno;
typedef struct tty_menu_struct
{
int count;
char **text;
struct tty_menu_struct **submenu;
int *panenumber; /* Also used as enabled flag. */
ptrdiff_t allocated;
int panecount;
int width;
const char **help_text;
} tty_menu;
/* Create a brand new menu structure. */
static tty_menu * ATTRIBUTE_MALLOC
tty_menu_create (void)
{
return xzalloc (sizeof *tty_menu_create ());
}
/* Allocate some (more) memory for MENU ensuring that there is room for one
more item. */
static void
tty_menu_make_room (tty_menu *menu)
{
if (menu->allocated == menu->count)
{
ptrdiff_t allocated = menu->allocated;
menu->text = xpalloc (menu->text, &allocated, 1, -1, sizeof *menu->text);
menu->text = xrealloc (menu->text, allocated * sizeof *menu->text);
menu->submenu = xrealloc (menu->submenu,
allocated * sizeof *menu->submenu);
menu->panenumber = xrealloc (menu->panenumber,
allocated * sizeof *menu->panenumber);
menu->help_text = xrealloc (menu->help_text,
allocated * sizeof *menu->help_text);
menu->allocated = allocated;
}
}
/* Search the given menu structure for a given pane number. */
static tty_menu *
tty_menu_search_pane (tty_menu *menu, int pane)
{
int i;
tty_menu *try;
for (i = 0; i < menu->count; i++)
if (menu->submenu[i])
{
if (pane == menu->panenumber[i])
return menu->submenu[i];
try = tty_menu_search_pane (menu->submenu[i], pane);
if (try)
return try;
}
return (tty_menu *) 0;
}
/* Determine how much screen space a given menu needs. */
static void
tty_menu_calc_size (tty_menu *menu, int *width, int *height)
{
int i, h2, w2, maxsubwidth, maxheight;
maxsubwidth = menu->width;
maxheight = menu->count;
for (i = 0; i < menu->count; i++)
{
if (menu->submenu[i])
{
tty_menu_calc_size (menu->submenu[i], &w2, &h2);
if (w2 > maxsubwidth) maxsubwidth = w2;
if (i + h2 > maxheight) maxheight = i + h2;
}
}
*width = maxsubwidth;
*height = maxheight;
}
static void
mouse_get_xy (int *x, int *y)
{
Lisp_Object lmx = Qnil, lmy = Qnil;
Lisp_Object mouse = mouse_position (tty_menu_calls_mouse_position_function);
if (EQ (selected_frame, XCAR (mouse)))
{
lmx = XCAR (XCDR (mouse));
lmy = XCDR (XCDR (mouse));
}
if (!NILP (lmx))
{
*x = XFIXNUM (lmx);
*y = XFIXNUM (lmy);
}
}
/* Display MENU at (X,Y) using FACES, starting with FIRST_ITEM
(zero-based). */
static void
tty_menu_display (tty_menu *menu, int x, int y, int pn, int *faces,
int mx, int my, int first_item, bool disp_help)
{
int i, face, width, enabled, mousehere, row, col;
struct frame *sf = SELECTED_FRAME ();
struct tty_display_info *tty = FRAME_TTY (sf);
/* Don't try to display more menu items than the console can display
using the available screen lines. Exclude the echo area line, as
it will be overwritten by the help-echo anyway. */
int max_items = min (menu->count - first_item, FRAME_TOTAL_LINES (sf) - 1 - y);
menu_help_message = NULL;
width = menu->width;
col = cursorX (tty);
row = cursorY (tty);
for (i = 0; i < max_items; i++)
{
int max_width = width + 2; /* +2 for padding blanks on each side */
int j = i + first_item;
if (menu->submenu[j])
max_width += 2; /* for displaying " >" after the item */
enabled
= (!menu->submenu[j] && menu->panenumber[j]) || (menu->submenu[j]);
mousehere = (y + i == my && x <= mx && mx < x + max_width);
face = faces[enabled + mousehere * 2];
/* Display the menu help string for the i-th menu item even if
the menu item is currently disabled. That's what the GUI
code does. */
if (disp_help && enabled + mousehere * 2 >= 2)
{
menu_help_message = menu->help_text[j];
menu_help_paneno = pn - 1;
menu_help_itemno = j;
}
/* Take note of the coordinates of the active menu item, to
display the cursor there. */
if (mousehere)
{
row = y + i;
col = x;
}
display_tty_menu_item (menu->text[j], max_width, face, x, y + i,
menu->submenu[j] != NULL);
}
update_frame_with_menu (sf, row, col);
}
/* --------------------------- X Menu emulation ---------------------- */
/* Create a new pane and place it on the outer-most level. */
static int
tty_menu_add_pane (tty_menu *menu, const char *txt)
{
int len;
tty_menu_make_room (menu);
menu->submenu[menu->count] = tty_menu_create ();
menu->text[menu->count] = (char *)txt;
menu->panenumber[menu->count] = ++menu->panecount;
menu->help_text[menu->count] = NULL;
menu->count++;
/* Update the menu width, if necessary. */
len = menu_item_width ((const unsigned char *) txt);
if (len > menu->width)
menu->width = len;
return menu->panecount;
}
/* Create a new item in a menu pane. */
static bool
tty_menu_add_selection (tty_menu *menu, int pane,
char *txt, bool enable, char const *help_text)
{
int len;
if (pane)
{
menu = tty_menu_search_pane (menu, pane);
if (! menu)
return 0;
}
tty_menu_make_room (menu);
menu->submenu[menu->count] = (tty_menu *) 0;
menu->text[menu->count] = txt;
menu->panenumber[menu->count] = enable;
menu->help_text[menu->count] = help_text;
menu->count++;
/* Update the menu width, if necessary. */
len = menu_item_width ((const unsigned char *) txt);
if (len > menu->width)
menu->width = len;
return 1;
}
/* Decide where the menu would be placed if requested at (X,Y). */
static void
tty_menu_locate (tty_menu *menu, int x, int y,
int *ulx, int *uly, int *width, int *height)
{
tty_menu_calc_size (menu, width, height);
*ulx = x + 1;
*uly = y;
*width += 2;
}
struct tty_menu_state
{
struct glyph_matrix *screen_behind;
tty_menu *menu;
int pane;
int x, y;
};
/* Save away the contents of frame F's current frame matrix, and
enable all its rows. Value is a glyph matrix holding the contents
of F's current frame matrix with all its glyph rows enabled. */
static struct glyph_matrix *
save_and_enable_current_matrix (struct frame *f)
{
int i;
struct glyph_matrix *saved = xzalloc (sizeof *saved);
saved->nrows = f->current_matrix->nrows;
saved->rows = xzalloc (saved->nrows * sizeof *saved->rows);
for (i = 0; i < saved->nrows; ++i)
{
struct glyph_row *from = f->current_matrix->rows + i;
struct glyph_row *to = saved->rows + i;
ptrdiff_t nbytes = from->used[TEXT_AREA] * sizeof (struct glyph);
to->glyphs[TEXT_AREA] = xmalloc (nbytes);
memcpy (to->glyphs[TEXT_AREA], from->glyphs[TEXT_AREA], nbytes);
to->used[TEXT_AREA] = from->used[TEXT_AREA];
/* Make sure every row is enabled, or else update_frame will not
redraw them. (Rows that are identical to what is already on
screen will not be redrawn anyway.) */
to->enabled_p = true;
to->hash = from->hash;
}
return saved;
}
/* Restore the contents of frame F's desired frame matrix from SAVED,
and free memory associated with SAVED. */
static void
restore_desired_matrix (struct frame *f, struct glyph_matrix *saved)
{
int i;
for (i = 0; i < saved->nrows; ++i)
{
struct glyph_row *from = saved->rows + i;
struct glyph_row *to = f->desired_matrix->rows + i;
ptrdiff_t nbytes = from->used[TEXT_AREA] * sizeof (struct glyph);
eassert (to->glyphs[TEXT_AREA] != from->glyphs[TEXT_AREA]);
memcpy (to->glyphs[TEXT_AREA], from->glyphs[TEXT_AREA], nbytes);
to->used[TEXT_AREA] = from->used[TEXT_AREA];
to->enabled_p = from->enabled_p;
to->hash = from->hash;
}
}
static void
free_saved_screen (struct glyph_matrix *saved)
{
int i;
if (!saved)
return; /* Already freed! */
for (i = 0; i < saved->nrows; ++i)
{
struct glyph_row *from = saved->rows + i;
xfree (from->glyphs[TEXT_AREA]);
}
xfree (saved->rows);
xfree (saved);
}
/* Update the display of frame F from its saved contents. */
static void
screen_update (struct frame *f, struct glyph_matrix *mtx)
{
restore_desired_matrix (f, mtx);
update_frame_with_menu (f, -1, -1);
}
typedef enum {
MI_QUIT_MENU = -1,
MI_CONTINUE = 0,
MI_ITEM_SELECTED = 1,
MI_NEXT_ITEM = 2,
MI_PREV_ITEM = 3,
MI_SCROLL_FORWARD = 4,
MI_SCROLL_BACK = 5
} mi_result;
/* Read user input and return X and Y coordinates where that input
puts us. We only consider mouse movement and click events, and
keyboard movement commands; the rest are ignored. */
static mi_result
read_menu_input (struct frame *sf, int *x, int *y, int min_y, int max_y,
bool *first_time)
{
if (*first_time)
{
*first_time = false;
sf->mouse_moved = 1;
}
else
{
Lisp_Object cmd;
bool usable_input = 1;
mi_result st = MI_CONTINUE;
struct tty_display_info *tty = FRAME_TTY (sf);
Lisp_Object old_track_mouse = track_mouse;
/* Signal the keyboard reading routines we are displaying a menu
on this terminal. */
tty->showing_menu = 1;
/* We want mouse movements be reported by read_menu_command. */
track_mouse = Qt;
do {
cmd = read_menu_command ();
} while (NILP (cmd));
tty->showing_menu = 0;
track_mouse = old_track_mouse;
if (EQ (cmd, Qt) || EQ (cmd, Qtty_menu_exit)
/* If some input switched frames under our feet, exit the
menu, since the menu faces are no longer valid, and the
menu is no longer relevant anyway. */
|| sf != SELECTED_FRAME ())
return MI_QUIT_MENU;
if (EQ (cmd, Qtty_menu_mouse_movement))
mouse_get_xy (x, y);
else if (EQ (cmd, Qtty_menu_next_menu))
{
usable_input = 0;
st = MI_NEXT_ITEM;
}
else if (EQ (cmd, Qtty_menu_prev_menu))
{
usable_input = 0;
st = MI_PREV_ITEM;
}
else if (EQ (cmd, Qtty_menu_next_item))
{
if (*y < max_y)
*y += 1;
else
st = MI_SCROLL_FORWARD;
}
else if (EQ (cmd, Qtty_menu_prev_item))
{
if (*y > min_y)
*y -= 1;
else
st = MI_SCROLL_BACK;
}
else if (EQ (cmd, Qtty_menu_select))
st = MI_ITEM_SELECTED;
else if (!EQ (cmd, Qtty_menu_ignore))
usable_input = 0;
if (usable_input)
sf->mouse_moved = 1;
return st;
}
return MI_CONTINUE;
}
/* Display menu, wait for user's response, and return that response. */
static int
tty_menu_activate (tty_menu *menu, int *pane, int *selidx,
int x0, int y0, char **txt,
void (*help_callback)(char const *, int, int),
bool kbd_navigation)
{
struct tty_menu_state *state;
int statecount, x, y, i;
bool leave, onepane;
int result UNINIT;
int title_faces[4]; /* Face to display the menu title. */
int faces[4], buffers_num_deleted = 0;
struct frame *sf = SELECTED_FRAME ();
struct tty_display_info *tty = FRAME_TTY (sf);
bool first_time;
Lisp_Object selectface;
int first_item = 0;
int col, row;
Lisp_Object prev_inhibit_redisplay = Vinhibit_redisplay;
USE_SAFE_ALLOCA;
/* Don't allow non-positive x0 and y0, lest the menu will wrap
around the display. */
if (x0 <= 0)
x0 = 1;
if (y0 <= 0)
y0 = 1;
SAFE_NALLOCA (state, 1, menu->panecount);
memset (state, 0, sizeof (*state));
faces[0]
= lookup_derived_face (NULL, sf, intern ("tty-menu-disabled-face"),
DEFAULT_FACE_ID, 1);
faces[1]
= lookup_derived_face (NULL, sf, intern ("tty-menu-enabled-face"),
DEFAULT_FACE_ID, 1);
selectface = intern ("tty-menu-selected-face");
faces[2] = lookup_derived_face (NULL, sf, selectface,
faces[0], 1);
faces[3] = lookup_derived_face (NULL, sf, selectface,
faces[1], 1);
/* Make sure the menu title is always displayed with
`tty-menu-selected-face', no matter where the mouse pointer is. */
for (i = 0; i < 4; i++)
title_faces[i] = faces[3];
statecount = 1;
/* Don't let the title for the "Buffers" popup menu include a
digit (which is ugly).
This is a terrible kludge, but I think the "Buffers" case is
the only one where the title includes a number, so it doesn't
seem to be necessary to make this more general. */
if (strncmp (menu->text[0], "Buffers 1", 9) == 0)
{
menu->text[0][7] = '\0';
buffers_num_deleted = 1;
}
/* Inhibit redisplay for as long as the menu is active, to avoid
messing the screen if some timer calls sit-for or a similar
function. */
Vinhibit_redisplay = Qt;
/* Force update of the current frame, so that the desired and the
current matrices are identical. */
update_frame_with_menu (sf, -1, -1);
state[0].menu = menu;
state[0].screen_behind = save_and_enable_current_matrix (sf);
/* Display the menu title. We subtract 1 from x0 and y0 because we
want to interpret them as zero-based column and row coordinates,
and also because we want the first item of the menu, not its
title, to appear at x0,y0. */
tty_menu_display (menu, x0 - 1, y0 - 1, 1, title_faces, x0 - 1, y0 - 1, 0, 0);
/* Turn off the cursor. Otherwise it shows through the menu
panes, which is ugly. */
col = cursorX (tty);
row = cursorY (tty);
tty_hide_cursor (tty);
if (buffers_num_deleted)
menu->text[0][7] = ' ';
onepane = menu->count == 1 && menu->submenu[0];
if (onepane)
{
menu->width = menu->submenu[0]->width;
state[0].menu = menu->submenu[0];
}
else
{
state[0].menu = menu;
}
state[0].x = x0 - 1;
state[0].y = y0;
state[0].pane = onepane;
x = state[0].x;
y = state[0].y;
first_time = true;
leave = 0;
while (!leave)
{
mi_result input_status;
int min_y = state[0].y;
int max_y = min (min_y + state[0].menu->count, FRAME_TOTAL_LINES (sf) - 1) - 1;
input_status = read_menu_input (sf, &x, &y, min_y, max_y, &first_time);
if (input_status)
{
leave = 1;
switch (input_status)
{
case MI_QUIT_MENU:
/* Remove the last help-echo, so that it doesn't
re-appear after "Quit". */
show_help_echo (Qnil, Qnil, Qnil, Qnil);
result = TTYM_NO_SELECT;
break;
case MI_NEXT_ITEM:
if (kbd_navigation)
result = TTYM_NEXT;
else
leave = 0;
break;
case MI_PREV_ITEM:
if (kbd_navigation)
result = TTYM_PREV;
else
leave = 0;
break;
case MI_SCROLL_FORWARD:
if (y - min_y == state[0].menu->count - 1 - first_item)
{
y = min_y;
first_item = 0;
}
else
first_item++;
leave = 0;
break;
case MI_SCROLL_BACK:
if (first_item == 0)
{
y = max_y;
first_item = state[0].menu->count - 1 - (y - min_y);
}
else
first_item--;
leave = 0;
break;
default:
/* MI_ITEM_SELECTED is handled below, so nothing to do. */
break;
}
}
if (sf->mouse_moved && input_status != MI_QUIT_MENU)
{
sf->mouse_moved = 0;
result = TTYM_IA_SELECT;
for (i = 0; i < statecount; i++)
if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2)
{
int dy = y - state[i].y + first_item;
if (0 <= dy && dy < state[i].menu->count)
{
if (!state[i].menu->submenu[dy])
{
if (state[i].menu->panenumber[dy])
result = TTYM_SUCCESS;
else
result = TTYM_IA_SELECT;
}
*pane = state[i].pane - 1;
*selidx = dy;
/* We hit some part of a menu, so drop extra menus that
have been opened. That does not include an open and
active submenu. */
if (i != statecount - 2
|| state[i].menu->submenu[dy] != state[i + 1].menu)
while (i != statecount - 1)
{
statecount--;
screen_update (sf, state[statecount].screen_behind);
state[statecount].screen_behind = NULL;
}
if (i == statecount - 1 && state[i].menu->submenu[dy])
{
tty_menu_display (state[i].menu,
state[i].x,
state[i].y,
state[i].pane,
faces, x, y, first_item, 1);
state[statecount].menu = state[i].menu->submenu[dy];
state[statecount].pane = state[i].menu->panenumber[dy];
state[statecount].screen_behind
= save_and_enable_current_matrix (sf);
state[statecount].x
= state[i].x + state[i].menu->width + 2;
state[statecount].y = y;
statecount++;
}
}
}
tty_menu_display (state[statecount - 1].menu,
state[statecount - 1].x,
state[statecount - 1].y,
state[statecount - 1].pane,
faces, x, y, first_item, 1);
/* The call to display help-echo below will move the cursor,
so remember its current position as computed by
tty_menu_display. */
col = cursorX (tty);
row = cursorY (tty);
}
/* Display the help-echo message for the currently-selected menu
item. */
if ((menu_help_message || prev_menu_help_message)
&& menu_help_message != prev_menu_help_message)
{
help_callback (menu_help_message,
menu_help_paneno, menu_help_itemno);
/* Move the cursor to the beginning of the current menu
item, so that screen readers and other accessibility aids
know where the active region is. */
cursor_to (sf, row, col);
prev_menu_help_message = menu_help_message;
}
/* Both tty_menu_display and help_callback invoke update_end,
which calls tty_show_cursor. Re-hide it, so it doesn't show
through the menus. */
tty_hide_cursor (tty);
fflush (tty->output);
}
sf->mouse_moved = 0;
screen_update (sf, state[0].screen_behind);
while (statecount--)
free_saved_screen (state[statecount].screen_behind);
tty_show_cursor (tty); /* Turn cursor back on. */
fflush (tty->output);
/* Clean up any mouse events that are waiting inside Emacs event queue.
These events are likely to be generated before the menu was even
displayed, probably because the user pressed and released the button
(which invoked the menu) too quickly. If we don't remove these events,
Emacs will process them after we return and surprise the user. */
discard_mouse_events ();
if (!kbd_buffer_events_waiting ())
clear_input_pending ();
SAFE_FREE ();
Vinhibit_redisplay = prev_inhibit_redisplay;
return result;
}
/* Dispose of a menu. */
static void
tty_menu_destroy (tty_menu *menu)
{
int i;
if (menu->allocated)
{
for (i = 0; i < menu->count; i++)
if (menu->submenu[i])
tty_menu_destroy (menu->submenu[i]);
xfree (menu->text);
xfree (menu->submenu);
xfree (menu->panenumber);
xfree (menu->help_text);
}
xfree (menu);
menu_help_message = prev_menu_help_message = NULL;
}
/* Show help HELP_STRING, or clear help if HELP_STRING is null.
PANE is the pane number, and ITEM is the menu item number in
the menu (currently not used). */
static void
tty_menu_help_callback (char const *help_string, int pane, int item)
{
Lisp_Object *first_item;
Lisp_Object pane_name;
Lisp_Object menu_object;
first_item = XVECTOR (menu_items)->contents;
if (EQ (first_item[0], Qt))
pane_name = first_item[MENU_ITEMS_PANE_NAME];
else if (EQ (first_item[0], Qquote))
/* This shouldn't happen, see xmenu_show. */
pane_name = empty_unibyte_string;
else
pane_name = first_item[MENU_ITEMS_ITEM_NAME];
/* (menu-item MENU-NAME PANE-NUMBER) */
menu_object = list3 (Qmenu_item, pane_name, make_fixnum (pane));
show_help_echo (help_string ? build_string (help_string) : Qnil,
Qnil, menu_object, make_fixnum (item));
}
struct tty_pop_down_menu
{
tty_menu *menu;
struct buffer *buffer;
};
static void
tty_pop_down_menu (void *arg)
{
struct tty_pop_down_menu *data = arg;
block_input ();
tty_menu_destroy (data->menu);
set_buffer_internal (data->buffer);
unblock_input ();
}
/* Return the zero-based index of the last menu-bar item on frame F. */
static int
tty_menu_last_menubar_item (struct frame *f)
{
int i = 0;
eassert (FRAME_TERMCAP_P (f) && FRAME_LIVE_P (f));
if (FRAME_TERMCAP_P (f) && FRAME_LIVE_P (f))
{
Lisp_Object items = FRAME_MENU_BAR_ITEMS (f);
while (i < ASIZE (items))
{
Lisp_Object str;
str = AREF (items, i + 1);
if (NILP (str))
break;
i += 4;
}
i -= 4; /* Went one too far! */
}
return i;
}
/* Find in frame F's menu bar the menu item that is next or previous
to the item at X/Y, and return that item's position in X/Y. WHICH
says which one--next or previous--item to look for. X and Y are
measured in character cells. This should only be called on TTY
frames. */
static void
tty_menu_new_item_coords (struct frame *f, int which, int *x, int *y)
{
eassert (FRAME_TERMCAP_P (f) && FRAME_LIVE_P (f));
if (FRAME_TERMCAP_P (f) && FRAME_LIVE_P (f))
{
Lisp_Object items = FRAME_MENU_BAR_ITEMS (f);
int last_i = tty_menu_last_menubar_item (f);
int i, prev_x;
/* This loop assumes a single menu-bar line, and will fail to
find an item if it is not in the first line. Note that
make_lispy_event in keyboard.c makes the same assumption. */
for (i = 0, prev_x = -1; i < ASIZE (items); i += 4)
{
Lisp_Object pos, str;
int ix;
str = AREF (items, i + 1);
pos = AREF (items, i + 3);
if (NILP (str))
return;
ix = XFIXNUM (pos);
if (ix <= *x
/* We use <= so the blank between 2 items on a TTY is
considered part of the previous item. */
&& *x <= ix + menu_item_width (SDATA (str)))
{
/* Found current item. Now compute the X coordinate of
the previous or next item. */
if (which == TTYM_NEXT)
{
if (i < last_i)
*x = XFIXNUM (AREF (items, i + 4 + 3));
else
*x = 0; /* Wrap around to the first item. */
}
else if (prev_x < 0)
{
/* Wrap around to the last item. */
*x = XFIXNUM (AREF (items, last_i + 3));
}
else
*x = prev_x;
return;
}
prev_x = ix;
}
}
}
/* WINDOWSNT uses this as menu_show_hook, see w32console.c. */
Lisp_Object
tty_menu_show (struct frame *f, int x, int y, int menuflags,
Lisp_Object title, const char **error_name)
{
tty_menu *menu;
int pane, selidx, lpane, status;
Lisp_Object entry, pane_prefix;
char *datap;
int ulx, uly, width, height;
int item_x, item_y;
int dispwidth, dispheight;
int i, j, lines, maxlines;
int maxwidth;
specpdl_ref specpdl_count;
eassert (FRAME_TERMCAP_P (f));
*error_name = 0;
if (menu_items_n_panes == 0)
return Qnil;
if (menu_items_used <= MENU_ITEMS_PANE_LENGTH)
{
*error_name = "Empty menu";
return Qnil;
}
/* Make the menu on that window. */
menu = tty_menu_create ();
/* Don't GC while we prepare and show the menu, because we give the
menu functions pointers to the contents of strings. */
specpdl_count = inhibit_garbage_collection ();
/* Avoid crashes if, e.g., another client will connect while we
are in a menu. */
temporarily_switch_to_single_kboard (f);
/* Adjust coordinates to be root-window-relative. */
item_x = x += f->left_pos;
item_y = y += f->top_pos;
/* Create all the necessary panes and their items. */
USE_SAFE_ALLOCA;
maxwidth = maxlines = lines = i = 0;
lpane = TTYM_FAILURE;
while (i < menu_items_used)
{
if (EQ (AREF (menu_items, i), Qt))
{
/* Create a new pane. */
Lisp_Object pane_name, prefix;
const char *pane_string;
maxlines = max (maxlines, lines);
lines = 0;
pane_name = AREF (menu_items, i + MENU_ITEMS_PANE_NAME);
prefix = AREF (menu_items, i + MENU_ITEMS_PANE_PREFIX);
pane_string = (NILP (pane_name)
? "" : SSDATA (pane_name));
if ((menuflags & MENU_KEYMAPS) && !NILP (prefix))
pane_string++;
lpane = tty_menu_add_pane (menu, pane_string);
if (lpane == TTYM_FAILURE)
{
tty_menu_destroy (menu);
*error_name = "Can't create pane";
entry = Qnil;
goto tty_menu_end;
}
i += MENU_ITEMS_PANE_LENGTH;
/* Find the width of the widest item in this pane. */
j = i;
while (j < menu_items_used)
{
Lisp_Object item;
item = AREF (menu_items, j);
if (EQ (item, Qt))
break;
if (NILP (item))
{
j++;
continue;
}
width = SBYTES (item);
if (width > maxwidth)
maxwidth = width;
j += MENU_ITEMS_ITEM_LENGTH;
}
}
/* Ignore a nil in the item list.
It's meaningful only for dialog boxes. */
else if (EQ (AREF (menu_items, i), Qquote))
i += 1;
else
{
/* Create a new item within current pane. */
Lisp_Object item_name, enable, descrip, help;
char *item_data;
char const *help_string;
item_name = AREF (menu_items, i + MENU_ITEMS_ITEM_NAME);
enable = AREF (menu_items, i + MENU_ITEMS_ITEM_ENABLE);
descrip = AREF (menu_items, i + MENU_ITEMS_ITEM_EQUIV_KEY);
help = AREF (menu_items, i + MENU_ITEMS_ITEM_HELP);
help_string = STRINGP (help) ? SSDATA (help) : NULL;
if (!NILP (descrip))
{
item_data = SAFE_ALLOCA (maxwidth + SBYTES (descrip) + 1);
memcpy (item_data, SSDATA (item_name), SBYTES (item_name));
for (j = SCHARS (item_name); j < maxwidth; j++)
item_data[j] = ' ';
memcpy (item_data + j, SSDATA (descrip), SBYTES (descrip));
item_data[j + SBYTES (descrip)] = 0;
}
else
item_data = SSDATA (item_name);
if (lpane == TTYM_FAILURE
|| (! tty_menu_add_selection (menu, lpane, item_data,
!NILP (enable), help_string)))
{
tty_menu_destroy (menu);
*error_name = "Can't add selection to menu";
entry = Qnil;
goto tty_menu_end;
}
i += MENU_ITEMS_ITEM_LENGTH;
lines++;
}
}
maxlines = max (maxlines, lines);
/* All set and ready to fly. */
dispwidth = f->text_cols;
dispheight = f->text_lines;
x = min (x, dispwidth);
y = min (y, dispheight);
x = max (x, 1);
y = max (y, 1);
tty_menu_locate (menu, x, y, &ulx, &uly, &width, &height);
if (ulx + width > dispwidth)
{
x -= (ulx + width) - dispwidth;
ulx = dispwidth - width;
}
if (uly + height > dispheight)
{
y -= (uly + height) - dispheight;
uly = dispheight - height;
}
if (FRAME_HAS_MINIBUF_P (f) && uly + height > dispheight - 2)
{
/* Move the menu away of the echo area, to avoid overwriting the
menu with help echo messages or vice versa. */
if (BUFFERP (echo_area_buffer[0]) && WINDOWP (echo_area_window))
{
y -= WINDOW_TOTAL_LINES (XWINDOW (echo_area_window)) + 1;
uly -= WINDOW_TOTAL_LINES (XWINDOW (echo_area_window)) + 1;
}
else
{
y -= 2;
uly -= 2;
}
}
if (ulx < 0) x -= ulx;
if (uly < 0) y -= uly;
#if 0
/* This code doesn't make sense on a TTY, since it can easily annul
the adjustments above that carefully avoid truncation of the menu
items. I think it was written to fix some problem that only
happens on X11. */
if (! for_click)
{
/* If position was not given by a mouse click, adjust so upper left
corner of the menu as a whole ends up at given coordinates. This
is what x-popup-menu says in its documentation. */
x += width / 2;
y += 1.5 * height / (maxlines + 2);
}
#endif
pane = selidx = 0;
/* We save and restore the current buffer because tty_menu_activate
triggers redisplay, which switches buffers at will. */
record_unwind_protect_ptr (tty_pop_down_menu,
&((struct tty_pop_down_menu)
{menu, current_buffer}));
specbind (Qoverriding_terminal_local_map,
Fsymbol_value (Qtty_menu_navigation_map));
status = tty_menu_activate (menu, &pane, &selidx, x, y, &datap,
tty_menu_help_callback,
menuflags & MENU_KBD_NAVIGATION);
entry = pane_prefix = Qnil;
switch (status)
{
case TTYM_SUCCESS:
/* Find the item number SELIDX in pane number PANE. */
i = 0;
while (i < menu_items_used)
{
if (EQ (AREF (menu_items, i), Qt))
{
if (pane == 0)
pane_prefix
= AREF (menu_items, i + MENU_ITEMS_PANE_PREFIX);
pane--;
i += MENU_ITEMS_PANE_LENGTH;
}
else
{
if (pane == -1)
{
if (selidx == 0)
{
entry
= AREF (menu_items, i + MENU_ITEMS_ITEM_VALUE);
if (menuflags & MENU_KEYMAPS)
{
entry = Fcons (entry, Qnil);
if (!NILP (pane_prefix))
entry = Fcons (pane_prefix, entry);
}
break;
}
selidx--;
}
i += MENU_ITEMS_ITEM_LENGTH;
}
}
break;
case TTYM_NEXT:
case TTYM_PREV:
tty_menu_new_item_coords (f, status, &item_x, &item_y);
entry = Fcons (make_fixnum (item_x), make_fixnum (item_y));
break;
case TTYM_FAILURE:
*error_name = "Can't activate menu";
case TTYM_IA_SELECT:
break;
case TTYM_NO_SELECT:
/* If the selected frame was changed while we displayed a menu,
throw to top level in order to undo any temporary settings
made by TTY menu code. */
if (f != SELECTED_FRAME ())
Ftop_level ();
/* Make "Cancel" equivalent to C-g unless FOR_CLICK (which means
the menu was invoked with a mouse event as POSITION). */
if (!(menuflags & MENU_FOR_CLICK))
quit ();
break;
}
tty_menu_end:
return SAFE_FREE_UNBIND_TO (specpdl_count, entry);
}
#endif /* !MSDOS */
#ifndef MSDOS
/***********************************************************************
Initialization
***********************************************************************/
/* Initialize the tty-dependent part of frame F. The frame must
already have its device initialized. */
void
create_tty_output (struct frame *f)
{
struct tty_output *t = xzalloc (sizeof *t);
eassert (FRAME_TERMCAP_P (f));
t->display_info = FRAME_TERMINAL (f)->display_info.tty;
f->output_data.tty = t;
}
/* Delete frame F's face cache, and its tty-dependent part. */
static void
tty_free_frame_resources (struct frame *f)
{
eassert (FRAME_TERMCAP_P (f));
free_frame_faces (f);
xfree (f->output_data.tty);
}
#else /* MSDOS */
/* Delete frame F's face cache. */
static void
tty_free_frame_resources (struct frame *f)
{
eassert (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f));
free_frame_faces (f);
}
#endif /* MSDOS */
/* Reset the hooks in TERMINAL. */
static void
clear_tty_hooks (struct terminal *terminal)
{
terminal->rif = 0;
terminal->cursor_to_hook = 0;
terminal->raw_cursor_to_hook = 0;
terminal->clear_to_end_hook = 0;
terminal->clear_frame_hook = 0;
terminal->clear_end_of_line_hook = 0;
terminal->ins_del_lines_hook = 0;
terminal->insert_glyphs_hook = 0;
terminal->write_glyphs_hook = 0;
terminal->delete_glyphs_hook = 0;
terminal->ring_bell_hook = 0;
terminal->reset_terminal_modes_hook = 0;
terminal->set_terminal_modes_hook = 0;
terminal->update_begin_hook = 0;
terminal->update_end_hook = 0;
terminal->set_terminal_window_hook = 0;
/* Don't clear the defined_color_hook, as that makes it impossible
to unload or load a theme when some TTY frame is suspended. */
/* terminal->defined_color_hook = 0; */
terminal->mouse_position_hook = 0;
terminal->frame_rehighlight_hook = 0;
terminal->frame_raise_lower_hook = 0;
terminal->fullscreen_hook = 0;
terminal->menu_show_hook = 0;
terminal->set_vertical_scroll_bar_hook = 0;
terminal->set_horizontal_scroll_bar_hook = 0;
terminal->condemn_scroll_bars_hook = 0;
terminal->redeem_scroll_bar_hook = 0;
terminal->judge_scroll_bars_hook = 0;
terminal->read_socket_hook = 0;
terminal->frame_up_to_date_hook = 0;
/* Leave these two set, or suspended frames are not deleted
correctly. */
terminal->delete_frame_hook = &tty_free_frame_resources;
terminal->delete_terminal_hook = &delete_tty;
}
/* Initialize hooks in TERMINAL with the values needed for a tty. */
static void
set_tty_hooks (struct terminal *terminal)
{
terminal->cursor_to_hook = &tty_cursor_to;
terminal->raw_cursor_to_hook = &tty_raw_cursor_to;
terminal->clear_to_end_hook = &tty_clear_to_end;
terminal->clear_frame_hook = &tty_clear_frame;
terminal->clear_end_of_line_hook = &tty_clear_end_of_line;
terminal->ins_del_lines_hook = &tty_ins_del_lines;
terminal->insert_glyphs_hook = &tty_insert_glyphs;
terminal->write_glyphs_hook = &tty_write_glyphs;
terminal->delete_glyphs_hook = &tty_delete_glyphs;
terminal->ring_bell_hook = &tty_ring_bell;
terminal->reset_terminal_modes_hook = &tty_reset_terminal_modes;
terminal->set_terminal_modes_hook = &tty_set_terminal_modes;
terminal->update_end_hook = &tty_update_end;
#ifdef MSDOS
terminal->menu_show_hook = &x_menu_show;
#else
terminal->menu_show_hook = &tty_menu_show;
#endif
terminal->set_terminal_window_hook = &tty_set_terminal_window;
terminal->defined_color_hook = &tty_defined_color; /* xfaces.c */
terminal->read_socket_hook = &tty_read_avail_input; /* keyboard.c */
terminal->delete_frame_hook = &tty_free_frame_resources;
terminal->delete_terminal_hook = &delete_tty;
/* Other hooks are NULL by default. */
}
/* If FD is the controlling terminal, drop it. */
static void
dissociate_if_controlling_tty (int fd)
{
/* If tcgetpgrp succeeds, fd is the controlling terminal,
so dissociate it by invoking setsid. */
if (tcgetpgrp (fd) >= 0 && setsid () < 0)
{
#ifdef TIOCNOTTY
/* setsid failed, presumably because Emacs is already a process
group leader. Fall back on the obsolescent way to dissociate
a controlling tty. */
sigset_t oldset;
block_tty_out_signal (&oldset);
ioctl (fd, TIOCNOTTY, 0);
unblock_tty_out_signal (&oldset);
#endif
}
}
/* Create a termcap display on the tty device with the given name and
type.
If NAME is NULL, then use the controlling tty, i.e., DEV_TTY.
Otherwise NAME should be a path to the tty device file,
e.g. "/dev/pts/7".
TERMINAL_TYPE is the termcap type of the device, e.g. "vt100".
If MUST_SUCCEED is true, then all errors are fatal. */
struct terminal *
init_tty (const char *name, const char *terminal_type, bool must_succeed)
{
struct tty_display_info *tty = NULL;
struct terminal *terminal = NULL;
#ifndef DOS_NT
char *area;
char **address = &area;
int status;
sigset_t oldset;
bool ctty = false; /* True if asked to open controlling tty. */
#endif
if (!terminal_type)
maybe_fatal (must_succeed, 0,
"Unknown terminal type",
"Unknown terminal type");
if (name == NULL)
name = DEV_TTY;
#ifndef DOS_NT
if (!strcmp (name, DEV_TTY))
ctty = 1;
#endif
/* If we already have a terminal on the given device, use that. If
all such terminals are suspended, create a new one instead. */
/* XXX Perhaps this should be made explicit by having init_tty
always create a new terminal and separating terminal and frame
creation on Lisp level. */
terminal = get_named_terminal (name);
if (terminal)
return terminal;
terminal = create_terminal (output_termcap, NULL);
#ifdef MSDOS
if (been_here > 0)
maybe_fatal (0, 0, "Attempt to create another terminal %s", "",
name, "");
been_here = 1;
tty = &the_only_display_info;
#else
tty = xzalloc (sizeof *tty);
#endif
tty->top_frame = Qnil;
tty->next = tty_list;
tty_list = tty;
terminal->display_info.tty = tty;
tty->terminal = terminal;
tty->Wcm = xmalloc (sizeof *tty->Wcm);
Wcm_clear (tty);
encode_terminal_src_size = 0;
encode_terminal_dst_size = 0;
#ifndef DOS_NT
set_tty_hooks (terminal);
{
/* Open the terminal device. */
/* If !ctty, don't recognize it as our controlling terminal, and
don't make it the controlling tty if we don't have one now.
Alas, O_IGNORE_CTTY is a GNU extension that seems to be only
defined on Hurd. On other systems, we need to explicitly
dissociate ourselves from the controlling tty when we want to
open a frame on the same terminal. */
int flags = O_RDWR | O_NOCTTY | (ctty ? 0 : O_IGNORE_CTTY);
int fd = emacs_open (name, flags, 0);
tty->input = tty->output
= ((fd < 0 || ! isatty (fd))
? NULL
: fdopen (fd, "w+"));
if (! tty->input)
{
char const *diagnostic
= (fd < 0) ? "Could not open file: %s" : "Not a tty device: %s";
emacs_close (fd);
delete_terminal_internal (terminal);
maybe_fatal (must_succeed, terminal, diagnostic, diagnostic, name);
}
tty->name = xstrdup (name);
terminal->name = xstrdup (name);
if (!O_IGNORE_CTTY && !ctty)
dissociate_if_controlling_tty (fd);
}
tty->type = xstrdup (terminal_type);
add_keyboard_wait_descriptor (fileno (tty->input));
Wcm_clear (tty);
/* On some systems, tgetent tries to access the controlling
terminal. */
block_tty_out_signal (&oldset);
status = tgetent (tty->termcap_term_buffer, terminal_type);
if (tty->termcap_term_buffer[TERMCAP_BUFFER_SIZE - 1])
emacs_abort ();
unblock_tty_out_signal (&oldset);
if (status < 0)
{
#ifdef TERMINFO
maybe_fatal (must_succeed, terminal,
"Cannot open terminfo database file",
"Cannot open terminfo database file");
#else
maybe_fatal (must_succeed, terminal,
"Cannot open termcap database file",
"Cannot open termcap database file");
#endif
}
if (status == 0)
{
maybe_fatal (must_succeed, terminal,
"Terminal type %s is not defined",
"Terminal type %s is not defined.\n\
If that is not the actual type of terminal you have,\n\
use the Bourne shell command 'TERM=...; export TERM' (C-shell:\n\
'setenv TERM ...') to specify the correct type. It may be necessary\n"
#ifdef TERMINFO
"to do 'unset TERMINFO' (C-shell: 'unsetenv TERMINFO') as well.",
#else
"to do 'unset TERMCAP' (C-shell: 'unsetenv TERMCAP') as well.",
#endif
terminal_type);
}
area = tty->termcap_strings_buffer;
tty->TS_ins_line = tgetstr ("al", address);
tty->TS_ins_multi_lines = tgetstr ("AL", address);
tty->TS_bell = tgetstr ("bl", address);
BackTab (tty) = tgetstr ("bt", address);
tty->TS_clr_to_bottom = tgetstr ("cd", address);
tty->TS_clr_line = tgetstr ("ce", address);
tty->TS_clr_frame = tgetstr ("cl", address);
ColPosition (tty) = NULL; /* tgetstr ("ch", address); */
AbsPosition (tty) = tgetstr ("cm", address);
CR (tty) = tgetstr ("cr", address);
tty->TS_set_scroll_region = tgetstr ("cs", address);
tty->TS_set_scroll_region_1 = tgetstr ("cS", address);
RowPosition (tty) = tgetstr ("cv", address);
tty->TS_del_char = tgetstr ("dc", address);
tty->TS_del_multi_chars = tgetstr ("DC", address);
tty->TS_del_line = tgetstr ("dl", address);
tty->TS_del_multi_lines = tgetstr ("DL", address);
tty->TS_delete_mode = tgetstr ("dm", address);
tty->TS_end_delete_mode = tgetstr ("ed", address);
tty->TS_end_insert_mode = tgetstr ("ei", address);
Home (tty) = tgetstr ("ho", address);
tty->TS_ins_char = tgetstr ("ic", address);
tty->TS_ins_multi_chars = tgetstr ("IC", address);
tty->TS_insert_mode = tgetstr ("im", address);
tty->TS_pad_inserted_char = tgetstr ("ip", address);
tty->TS_end_keypad_mode = tgetstr ("ke", address);
tty->TS_keypad_mode = tgetstr ("ks", address);
LastLine (tty) = tgetstr ("ll", address);
Right (tty) = tgetstr ("nd", address);
Down (tty) = tgetstr ("do", address);
if (!Down (tty))
Down (tty) = tgetstr ("nl", address); /* Obsolete name for "do". */
if (tgetflag ("bs"))
Left (tty) = "\b"; /* Can't possibly be longer! */
else /* (Actually, "bs" is obsolete...) */
Left (tty) = tgetstr ("le", address);
if (!Left (tty))
Left (tty) = tgetstr ("bc", address); /* Obsolete name for "le". */
tty->TS_pad_char = tgetstr ("pc", address);
tty->TS_repeat = tgetstr ("rp", address);
tty->TS_end_standout_mode = tgetstr ("se", address);
tty->TS_fwd_scroll = tgetstr ("sf", address);
tty->TS_standout_mode = tgetstr ("so", address);
tty->TS_rev_scroll = tgetstr ("sr", address);
tty->Wcm->cm_tab = tgetstr ("ta", address);
tty->TS_end_termcap_modes = tgetstr ("te", address);
tty->TS_termcap_modes = tgetstr ("ti", address);
Up (tty) = tgetstr ("up", address);
tty->TS_visible_bell = tgetstr ("vb", address);
tty->TS_cursor_normal = tgetstr ("ve", address);
tty->TS_cursor_visible = tgetstr ("vs", address);
tty->TS_cursor_invisible = tgetstr ("vi", address);
tty->TS_set_window = tgetstr ("wi", address);
tty->TS_enter_underline_mode = tgetstr ("us", address);
tty->TS_exit_underline_mode = tgetstr ("ue", address);
tty->TS_enter_bold_mode = tgetstr ("md", address);
tty->TS_enter_italic_mode = tgetstr ("ZH", address);
tty->TS_enter_dim_mode = tgetstr ("mh", address);
tty->TS_enter_reverse_mode = tgetstr ("mr", address);
tty->TS_enter_alt_charset_mode = tgetstr ("as", address);
tty->TS_exit_alt_charset_mode = tgetstr ("ae", address);
tty->TS_exit_attribute_mode = tgetstr ("me", address);
#ifdef TERMINFO
tty->TS_enter_strike_through_mode = tigetstr ("smxx");
if (tty->TS_enter_strike_through_mode == (char *) (intptr_t) -1)
tty->TS_enter_strike_through_mode = NULL;
#else
/* FIXME: Is calling tgetstr here for non-terminfo case correct,
even though "smxx" is more than 2 characters? */
tty->TS_enter_strike_through_mode = tgetstr ("smxx", address);
#endif
MultiUp (tty) = tgetstr ("UP", address);
MultiDown (tty) = tgetstr ("DO", address);
MultiLeft (tty) = tgetstr ("LE", address);
MultiRight (tty) = tgetstr ("RI", address);
/* SVr4/ANSI color support. If "op" isn't available, don't support
color because we can't switch back to the default foreground and
background. */
tty->TS_orig_pair = tgetstr ("op", address);
if (tty->TS_orig_pair)
{
tty->TS_set_foreground = tgetstr ("AF", address);
tty->TS_set_background = tgetstr ("AB", address);
if (!tty->TS_set_foreground)
{
/* SVr4. */
tty->TS_set_foreground = tgetstr ("Sf", address);
tty->TS_set_background = tgetstr ("Sb", address);
}
tty->TN_max_colors = tgetnum ("Co");
#ifdef TERMINFO
{
const char *fg = tigetstr ("setf24");
const char *bg = tigetstr ("setb24");
/* Non-standard support for 24-bit colors. */
if (fg && bg
&& fg != (char *) (intptr_t) -1
&& bg != (char *) (intptr_t) -1)
{
tty->TS_set_foreground = fg;
tty->TS_set_background = bg;
tty->TN_max_colors = 16777216;
}
/* Standard support for 24-bit colors. */
else if (tigetflag ("RGB") > 0)
{
/* If the used Terminfo library supports only 16-bit
signed values, tgetnum("Co") and tigetnum("colors")
could return 32767. */
tty->TN_max_colors = 16777216;
}
/* Fall back to xterm+direct (semicolon version) if Tc is set
(de-facto standard introduced by tmux) or if requested by
the COLORTERM environment variable. */
else if ((tigetflag ("Tc") > 0)
|| ((bg = getenv ("COLORTERM")) != NULL
&& strcasecmp (bg, "truecolor") == 0))
{
tty->TS_set_foreground = "\033[%?%p1%{8}%<%t3%p1%d%e38;2;%p1%{65536}%/%d;%p1%{256}%/%{255}%&%d;%p1%{255}%&%d%;m";
tty->TS_set_background = "\033[%?%p1%{8}%<%t4%p1%d%e48;2;%p1%{65536}%/%d;%p1%{256}%/%{255}%&%d;%p1%{255}%&%d%;m";
tty->TN_max_colors = 16777216;
}
}
#endif
tty->TN_no_color_video = tgetnum ("NC");
if (tty->TN_no_color_video == -1)
tty->TN_no_color_video = 0;
}
tty_default_color_capabilities (tty, 1);
MagicWrap (tty) = tgetflag ("xn");
/* Since we make MagicWrap terminals look like AutoWrap, we need to have
the former flag imply the latter. */
AutoWrap (tty) = MagicWrap (tty) || tgetflag ("am");
tty->memory_below_frame = tgetflag ("db");
tty->TF_hazeltine = tgetflag ("hz");
tty->must_write_spaces = tgetflag ("in");
tty->meta_key = tgetflag ("km") || tgetflag ("MT");
tty->TF_insmode_motion = tgetflag ("mi");
tty->TF_standout_motion = tgetflag ("ms");
tty->TF_underscore = tgetflag ("ul");
tty->TF_teleray = tgetflag ("xt");
// Styled underlines.
//
// Support for this is provided either by the escape sequence in
// Smulx or the Su flag. The latter results in a common default
// escape sequence and is not recommended.
#ifdef TERMINFO
tty->TF_set_underline_style = tigetstr("Smulx");
if (tty->TF_set_underline_style == (char *) (intptr_t) -1)
tty->TF_set_underline_style = NULL;
#else
tty->TF_set_underline_style = tgetstr("Smulx", address);
#endif
if (!tty->TF_set_underline_style && tgetflag("Su"))
tty->TF_set_underline_style = "\x1b[4:%p1%dm";
if (tty->TF_set_underline_style)
tty->TF_set_underline_color = "\x1b[58:2::%p1%{65536}%/%d:%p1%{256}%/%{255}%&%d:%p1%{255}%&%dm";
#else /* DOS_NT */
#ifdef WINDOWSNT
{
struct frame *f = XFRAME (selected_frame);
int height, width;
initialize_w32_display (terminal, &width, &height);
FrameRows (tty) = height;
FrameCols (tty) = width;
tty->specified_window = height;
FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none;
FRAME_HAS_HORIZONTAL_SCROLL_BARS (f) = 0;
tty->char_ins_del_ok = 1;
baud_rate = 19200;
}
#else /* MSDOS */
{
int height, width;
if (strcmp (terminal_type, "internal") == 0)
terminal->type = output_msdos_raw;
initialize_msdos_display (terminal);
get_tty_size (fileno (tty->input), &width, &height);
FrameCols (tty) = width;
FrameRows (tty) = height;
tty->char_ins_del_ok = 0;
init_baud_rate (fileno (tty->input));
}
#endif /* MSDOS */
tty->output = stdout;
tty->input = stdin;
/* The following two are inaccessible from w32console.c. */
terminal->delete_frame_hook = &tty_free_frame_resources;
terminal->delete_terminal_hook = &delete_tty;
tty->name = xstrdup (name);
terminal->name = xstrdup (name);
tty->type = xstrdup (terminal_type);
add_keyboard_wait_descriptor (0);
tty->delete_in_insert_mode = 1;
UseTabs (tty) = 0;
tty->scroll_region_ok = 0;
/* Seems to insert lines when it's not supposed to, messing up the
display. In doing a trace, it didn't seem to be called much, so I
don't think we're losing anything by turning it off. */
tty->line_ins_del_ok = 0;
tty->TN_max_colors = 16; /* Must be non-zero for tty-display-color-p. */
#endif /* DOS_NT */
#ifdef HAVE_GPM
terminal->mouse_position_hook = term_mouse_position;
#endif
tty->mouse_highlight.mouse_face_window = Qnil;
terminal->kboard = allocate_kboard (Qnil);
terminal->kboard->reference_count++;
/* Don't let the initial kboard remain current longer than necessary.
That would cause problems if a file loaded on startup tries to
prompt in the mini-buffer. */
if (current_kboard == initial_kboard)
current_kboard = terminal->kboard;
#ifndef DOS_NT
term_get_fkeys (address, terminal->kboard);
/* Get frame size from system, or else from termcap. */
{
int height, width;
get_tty_size (fileno (tty->input), &width, &height);
FrameCols (tty) = width;
FrameRows (tty) = height;
}
if (FrameCols (tty) <= 0)
FrameCols (tty) = tgetnum ("co");
if (FrameRows (tty) <= 0)
FrameRows (tty) = tgetnum ("li");
if (FrameRows (tty) < 3 || FrameCols (tty) < 3)
maybe_fatal (must_succeed, terminal,
"Screen size %dx%d is too small",
"Screen size %dx%d is too small",
FrameCols (tty), FrameRows (tty));
TabWidth (tty) = tgetnum ("tw");
if (!tty->TS_bell)
tty->TS_bell = "\07";
if (!tty->TS_fwd_scroll)
tty->TS_fwd_scroll = Down (tty);
PC = tty->TS_pad_char ? *tty->TS_pad_char : 0;
if (TabWidth (tty) < 0)
TabWidth (tty) = 8;
/* Turned off since /etc/termcap seems to have :ta= for most terminals
and newer termcap doc does not seem to say there is a default.
if (!tty->Wcm->cm_tab)
tty->Wcm->cm_tab = "\t";
*/
/* We don't support standout modes that use `magic cookies', so
turn off any that do. */
if (tty->TS_standout_mode && tgetnum ("sg") >= 0)
{
tty->TS_standout_mode = 0;
tty->TS_end_standout_mode = 0;
}
if (tty->TS_enter_underline_mode && tgetnum ("ug") >= 0)
{
tty->TS_enter_underline_mode = 0;
tty->TS_exit_underline_mode = 0;
}
/* If there's no standout mode, try to use underlining instead. */
if (tty->TS_standout_mode == 0)
{
tty->TS_standout_mode = tty->TS_enter_underline_mode;
tty->TS_end_standout_mode = tty->TS_exit_underline_mode;
}
/* If no `se' string, try using a `me' string instead.
If that fails, we can't use standout mode at all. */
if (tty->TS_end_standout_mode == 0)
{
char *s = tgetstr ("me", address);
if (s != 0)
tty->TS_end_standout_mode = s;
else
tty->TS_standout_mode = 0;
}
if (tty->TF_teleray)
{
tty->Wcm->cm_tab = 0;
/* We can't support standout mode, because it uses magic cookies. */
tty->TS_standout_mode = 0;
/* But that means we cannot rely on ^M to go to column zero! */
CR (tty) = 0;
/* LF can't be trusted either -- can alter hpos. */
/* If move at column 0 thru a line with TS_standout_mode. */
Down (tty) = 0;
}
tty->specified_window = FrameRows (tty);
if (Wcm_init (tty) == -1) /* Can't do cursor motion. */
{
maybe_fatal (must_succeed, terminal,
"Terminal type \"%s\" is not powerful enough to run Emacs",
"Terminal type \"%s\" is not powerful enough to run Emacs.\n\
It lacks the ability to position the cursor.\n\
If that is not the actual type of terminal you have,\n\
use the Bourne shell command 'TERM=...; export TERM' (C-shell:\n\
'setenv TERM ...') to specify the correct type. It may be necessary\n"
# ifdef TERMINFO
"to do 'unset TERMINFO' (C-shell: 'unsetenv TERMINFO') as well.",
# else /* TERMCAP */
"to do 'unset TERMCAP' (C-shell: 'unsetenv TERMCAP') as well.",
# endif /* TERMINFO */
terminal_type);
}
if (FrameRows (tty) <= 0 || FrameCols (tty) <= 0)
maybe_fatal (must_succeed, terminal,
"Could not determine the frame size",
"Could not determine the frame size");
tty->delete_in_insert_mode
= tty->TS_delete_mode && tty->TS_insert_mode
&& !strcmp (tty->TS_delete_mode, tty->TS_insert_mode);
UseTabs (tty) = tabs_safe_p (fileno (tty->input)) && TabWidth (tty) == 8;
tty->scroll_region_ok
= (tty->Wcm->cm_abs
&& (tty->TS_set_window || tty->TS_set_scroll_region || tty->TS_set_scroll_region_1));
tty->line_ins_del_ok
= (((tty->TS_ins_line || tty->TS_ins_multi_lines)
&& (tty->TS_del_line || tty->TS_del_multi_lines))
|| (tty->scroll_region_ok
&& tty->TS_fwd_scroll && tty->TS_rev_scroll));
tty->char_ins_del_ok
= ((tty->TS_ins_char || tty->TS_insert_mode
|| tty->TS_pad_inserted_char || tty->TS_ins_multi_chars)
&& (tty->TS_del_char || tty->TS_del_multi_chars));
init_baud_rate (fileno (tty->input));
#endif /* not DOS_NT */
/* Init system terminal modes (RAW or CBREAK, etc.). */
init_sys_modes (tty);
return terminal;
}
static void
vfatal (const char *str, va_list ap)
{
fputs ("emacs: ", stderr);
vfprintf (stderr, str, ap);
if (! (str[0] && str[strlen (str) - 1] == '\n'))
putc ('\n', stderr);
exit (1);
}
/* Auxiliary error-handling function for init_tty.
Delete TERMINAL, then call error or fatal with str1 or str2,
respectively, according to whether MUST_SUCCEED is true. */
static void
maybe_fatal (bool must_succeed, struct terminal *terminal,
const char *str1, const char *str2, ...)
{
va_list ap;
va_start (ap, str2);
if (terminal)
delete_tty (terminal);
if (must_succeed)
vfatal (str2, ap);
else
verror (str1, ap);
}
void
fatal (const char *str, ...)
{
va_list ap;
va_start (ap, str);
vfatal (str, ap);
}
/* Delete the given tty terminal, closing all frames on it. */
static void
delete_tty (struct terminal *terminal)
{
struct tty_display_info *tty;
/* Protect against recursive calls. delete_frame in
delete_terminal calls us back when it deletes our last frame. */
if (!terminal->name)
return;
eassert (terminal->type == output_termcap);
tty = terminal->display_info.tty;
if (tty == tty_list)
tty_list = tty->next;
else
{
struct tty_display_info *p;
for (p = tty_list; p && p->next != tty; p = p->next)
;
if (! p)
/* This should not happen. */
emacs_abort ();
p->next = tty->next;
tty->next = 0;
}
/* reset_sys_modes needs a valid device, so this call needs to be
before delete_terminal. */
reset_sys_modes (tty);
delete_terminal (terminal);
xfree (tty->name);
xfree (tty->type);
if (tty->input)
{
delete_keyboard_wait_descriptor (fileno (tty->input));
if (tty->input != stdin)
fclose (tty->input);
}
if (tty->output && tty->output != stdout && tty->output != tty->input)
fclose (tty->output);
if (tty->termscript)
fclose (tty->termscript);
xfree (tty->old_tty);
xfree (tty->Wcm);
xfree (tty);
}
void
syms_of_term (void)
{
DEFVAR_BOOL ("system-uses-terminfo", system_uses_terminfo,
doc: /* Non-nil means the system uses terminfo rather than termcap.
This variable can be used by terminal emulator packages. */);
#ifdef TERMINFO
system_uses_terminfo = 1;
#else
system_uses_terminfo = 0;
#endif
DEFVAR_LISP ("suspend-tty-functions", Vsuspend_tty_functions,
doc: /* Functions run after suspending a tty.
The functions are run with one argument, the terminal object to be suspended.
See `suspend-tty'. */);
Vsuspend_tty_functions = Qnil;
DEFVAR_LISP ("resume-tty-functions", Vresume_tty_functions,
doc: /* Functions run after resuming a tty.
The functions are run with one argument, the terminal object that was revived.
See `resume-tty'. */);
Vresume_tty_functions = Qnil;
DEFVAR_BOOL ("visible-cursor", visible_cursor,
doc: /* Non-nil means to make the cursor very visible.
This only has an effect when running in a text terminal.
What means \"very visible\" is up to your terminal. It may make the cursor
bigger, or it may make it blink, or it may do nothing at all. */);
visible_cursor = 1;
DEFVAR_BOOL ("tty-menu-calls-mouse-position-function",
tty_menu_calls_mouse_position_function,
doc: /* Non-nil means TTY menu code will call `mouse-position-function'.
This should be set if the function in `mouse-position-function' does not
trigger redisplay. */);
tty_menu_calls_mouse_position_function = 0;
defsubr (&Stty_display_color_p);
defsubr (&Stty_display_color_cells);
defsubr (&Stty_no_underline);
defsubr (&Stty_type);
defsubr (&Scontrolling_tty_p);
defsubr (&Stty_top_frame);
defsubr (&Ssuspend_tty);
defsubr (&Sresume_tty);
defsubr (&Stty__set_output_buffer_size);
defsubr (&Stty__output_buffer_size);
#ifdef HAVE_GPM
defsubr (&Sgpm_mouse_start);
defsubr (&Sgpm_mouse_stop);
#endif /* HAVE_GPM */
#ifndef DOS_NT
default_orig_pair = NULL;
default_set_foreground = NULL;
default_set_background = NULL;
#endif /* !DOS_NT */
encode_terminal_src = NULL;
encode_terminal_dst = NULL;
DEFSYM (Qtty_mode_set_strings, "tty-mode-set-strings");
DEFSYM (Qtty_mode_reset_strings, "tty-mode-reset-strings");
#ifndef MSDOS
DEFSYM (Qtty_menu_next_item, "tty-menu-next-item");
DEFSYM (Qtty_menu_prev_item, "tty-menu-prev-item");
DEFSYM (Qtty_menu_next_menu, "tty-menu-next-menu");
DEFSYM (Qtty_menu_prev_menu, "tty-menu-prev-menu");
DEFSYM (Qtty_menu_select, "tty-menu-select");
DEFSYM (Qtty_menu_ignore, "tty-menu-ignore");
DEFSYM (Qtty_menu_exit, "tty-menu-exit");
DEFSYM (Qtty_menu_mouse_movement, "tty-menu-mouse-movement");
DEFSYM (Qtty_menu_navigation_map, "tty-menu-navigation-map");
#endif
}