/* terminal control module for terminals described by TERMCAP
- Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc.
+ Copyright (C) 1985, 86, 87, 93, 94, 95, 98
+ Free Software Foundation, Inc.
This file is part of GNU Emacs.
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
+/* New redisplay, TTY faces by Gerd Moellmann <gerd@acm.org>. */
+
#include <config.h>
#include <stdio.h>
#include <ctype.h>
+#include <string.h>
#include "termchar.h"
#include "termopts.h"
-#include "cm.h"
-#undef NULL
#include "lisp.h"
#include "charset.h"
#include "coding.h"
+#include "keyboard.h"
#include "frame.h"
#include "disptab.h"
#include "termhooks.h"
-#include "keyboard.h"
+#include "dispextern.h"
+#include "window.h"
+
+#ifdef HAVE_TERMCAP_H
+#include <termcap.h>
+#else
+extern void tputs P_ ((const char *, int, int (*)(int)));
+extern int tgetent P_ ((char *, const char *));
+extern int tgetflag P_ ((char *id));
+extern int tgetnum P_ ((char *id));
+#endif
+
+#include "cm.h"
+#ifdef HAVE_X_WINDOWS
+#include "xterm.h"
+#endif
-extern Lisp_Object Fmake_sparse_keymap ();
+static void turn_on_face P_ ((struct frame *, int face_id));
+static void turn_off_face P_ ((struct frame *, int face_id));
+static void tty_show_cursor P_ ((void));
+static void tty_hide_cursor P_ ((void));
#define max(a, b) ((a) > (b) ? (a) : (b))
#define min(a, b) ((a) < (b) ? (a) : (b))
-#define OUTPUT(a) tputs (a, (int) (FRAME_HEIGHT (selected_frame) - curY), cmputc)
+#define OUTPUT(a) \
+ tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) - curY), cmputc)
#define OUTPUT1(a) tputs (a, 1, cmputc)
#define OUTPUTL(a, lines) tputs (a, lines, cmputc)
-#define OUTPUT_IF(a) { if (a) tputs (a, (int) (FRAME_HEIGHT (selected_frame) - curY), cmputc); }
-#define OUTPUT1_IF(a) { if (a) tputs (a, 1, cmputc); }
+
+#define OUTPUT_IF(a) \
+ do { \
+ if (a) \
+ tputs (a, (int) (FRAME_HEIGHT (XFRAME (selected_frame)) \
+ - curY), cmputc); \
+ } while (0)
+
+#define OUTPUT1_IF(a) do { if (a) tputs (a, 1, cmputc); } while (0)
/* Function to use to ring the bell. */
+
Lisp_Object Vring_bell_function;
/* Terminal characteristics that higher levels want to look at.
/* Nonzero means no need to redraw the entire frame on resuming
a suspended Emacs. This is useful on terminals with multiple pages,
where one page is used for Emacs and another for all else. */
+
int no_redraw_on_reenter;
/* Hook functions that you can set to snap out the functions in this file.
These are all extern'd in termhooks.h */
-int (*cursor_to_hook) ();
-int (*raw_cursor_to_hook) ();
+void (*cursor_to_hook) P_ ((int, int));
+void (*raw_cursor_to_hook) P_ ((int, int));
+void (*clear_to_end_hook) P_ ((void));
+void (*clear_frame_hook) P_ ((void));
+void (*clear_end_of_line_hook) P_ ((int));
-int (*clear_to_end_hook) ();
-int (*clear_frame_hook) ();
-int (*clear_end_of_line_hook) ();
+void (*ins_del_lines_hook) P_ ((int, int));
-int (*ins_del_lines_hook) ();
+void (*change_line_highlight_hook) P_ ((int, int, int, int));
+void (*reassert_line_highlight_hook) P_ ((int, int));
-int (*change_line_highlight_hook) ();
-int (*reassert_line_highlight_hook) ();
+void (*delete_glyphs_hook) P_ ((int));
-int (*insert_glyphs_hook) ();
-int (*write_glyphs_hook) ();
-int (*delete_glyphs_hook) ();
+void (*ring_bell_hook) P_ ((void));
-int (*ring_bell_hook) ();
+void (*reset_terminal_modes_hook) P_ ((void));
+void (*set_terminal_modes_hook) P_ ((void));
+void (*update_begin_hook) P_ ((struct frame *));
+void (*update_end_hook) P_ ((struct frame *));
+void (*set_terminal_window_hook) P_ ((int));
+void (*insert_glyphs_hook) P_ ((struct glyph *, int));
+void (*write_glyphs_hook) P_ ((struct glyph *, int));
+void (*delete_glyphs_hook) P_ ((int));
-int (*reset_terminal_modes_hook) ();
-int (*set_terminal_modes_hook) ();
-int (*update_begin_hook) ();
-int (*update_end_hook) ();
-int (*set_terminal_window_hook) ();
+int (*read_socket_hook) P_ ((int, struct input_event *, int, int));
-int (*read_socket_hook) ();
-
-int (*frame_up_to_date_hook) ();
+void (*frame_up_to_date_hook) P_ ((struct frame *));
/* Return the current position of the mouse.
This should clear mouse_moved until the next motion
event arrives. */
-void (*mouse_position_hook) ( /* FRAME_PTR *f, int insist,
+void (*mouse_position_hook) P_ ((FRAME_PTR *f, int insist,
Lisp_Object *bar_window,
enum scroll_bar_part *part,
Lisp_Object *x,
Lisp_Object *y,
- unsigned long *time */ );
+ unsigned long *time));
/* When reading from a minibuffer in a different frame, Emacs wants
- to shift the highlight from the selected frame to the minibuffer's
+ to shift the highlight from the selected frame to the mini-buffer's
frame; under X, this means it lies about where the focus is.
This hook tells the window system code to re-decide where to put
the highlight. */
-void (*frame_rehighlight_hook) ( /* FRAME_PTR f */ );
+void (*frame_rehighlight_hook) P_ ((FRAME_PTR f));
/* If we're displaying frames using a window system that can stack
frames on top of each other, this hook allows you to bring a frame
If RAISE is non-zero, F is brought to the front, before all other
windows. If RAISE is zero, F is sent to the back, behind all other
windows. */
-void (*frame_raise_lower_hook) ( /* FRAME_PTR f, int raise */ );
+void (*frame_raise_lower_hook) P_ ((FRAME_PTR f, int raise));
/* Set the vertical scroll bar for WINDOW to have its upper left corner
at (TOP, LEFT), and be LENGTH rows high. Set its handle to
indicate that we are displaying PORTION characters out of a total
of WHOLE characters, starting at POSITION. If WINDOW doesn't yet
have a scroll bar, create one for it. */
+
void (*set_vertical_scroll_bar_hook)
- ( /* struct window *window,
- int portion, int whole, int position */ );
+ P_ ((struct window *window,
+ int portion, int whole, int position));
/* The following three hooks are used when we're doing a thorough
/* Arrange for all scroll bars on FRAME to be removed at the next call
to `*judge_scroll_bars_hook'. A scroll bar may be spared if
- `*redeem_scroll_bar_hook' is applied to its window before the judgement.
+ `*redeem_scroll_bar_hook' is applied to its window before the judgment.
This should be applied to each frame each time its window tree is
redisplayed, even if it is not displaying scroll bars at the moment;
If non-zero, this hook should be safe to apply to any frame,
whether or not it can support scroll bars, and whether or not it is
currently displaying them. */
-void (*condemn_scroll_bars_hook)( /* FRAME_PTR *frame */ );
+void (*condemn_scroll_bars_hook) P_ ((FRAME_PTR frame));
/* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
Note that it's okay to redeem a scroll bar that is not condemned. */
-void (*redeem_scroll_bar_hook)( /* struct window *window */ );
+void (*redeem_scroll_bar_hook) P_ ((struct window *window));
/* Remove all scroll bars on FRAME that haven't been saved since the
last call to `*condemn_scroll_bars_hook'.
If non-zero, this hook should be safe to apply to any frame,
whether or not it can support scroll bars, and whether or not it is
currently displaying them. */
-void (*judge_scroll_bars_hook)( /* FRAME_PTR *FRAME */ );
+void (*judge_scroll_bars_hook) P_ ((FRAME_PTR FRAME));
+
+/* Hook to call in estimate_mode_line_height, if any. */
+
+int (* estimate_mode_line_height_hook) P_ ((struct frame *f, enum face_id));
/* Strings, numbers and flags taken from the termcap entry. */
-char *TS_end_italic_mode; /* termcap "ae" */
char *TS_ins_line; /* "al" */
-char *TS_italic_mode; /* "as" */
char *TS_ins_multi_lines; /* "AL" (one parameter, # lines to insert) */
char *TS_bell; /* "bl" */
char *TS_clr_to_bottom; /* "cd" */
char *TS_pad_inserted_char; /* "ip". Just padding, no commands. */
char *TS_end_keypad_mode; /* "ke" */
char *TS_keypad_mode; /* "ks" */
-char *TS_bold_mode; /* "md" */
-char *TS_end_bold_mode; /* "me" */
char *TS_pad_char; /* "pc", char to use as padding */
char *TS_repeat; /* "rp" (2 params, # times to repeat
and character to be repeated) */
char *TS_rev_scroll; /* "sr" */
char *TS_end_termcap_modes; /* "te" */
char *TS_termcap_modes; /* "ti" */
-char *TS_end_underscore_mode; /* "ue" */
-char *TS_underscore_mode; /* "us" */
char *TS_visible_bell; /* "vb" */
-char *TS_end_visual_mode; /* "ve" */
-char *TS_visual_mode; /* "vi" */
+char *TS_cursor_normal; /* "ve" */
+char *TS_cursor_visible; /* "vs" */
+char *TS_cursor_invisible; /* "vi" */
char *TS_set_window; /* "wi" (4 params, start and end of window,
each as vpos and hpos) */
+/* Value of the "NC" (no_color_video) capability, or 0 if not
+ present. */
+
+static int TN_no_color_video;
+
+/* 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_BLINK = 1 << 3,
+ NC_DIM = 1 << 4,
+ NC_BOLD = 1 << 5,
+ NC_INVIS = 1 << 6,
+ NC_PROTECT = 1 << 7,
+ NC_ALT_CHARSET = 1 << 8
+};
+
+/* "md" -- turn on bold (extra bright mode). */
+
+char *TS_enter_bold_mode;
+
+/* "mh" -- turn on half-bright mode. */
+
+char *TS_enter_dim_mode;
+
+/* "mb" -- enter blinking mode. */
+
+char *TS_enter_blink_mode;
+
+/* "mr" -- enter reverse video mode. */
+
+char *TS_enter_reverse_mode;
+
+/* "us"/"ue" -- start/end underlining. */
+
+char *TS_exit_underline_mode, *TS_enter_underline_mode;
+
+/* "ug" -- number of blanks left by underline. */
+
+int TN_magic_cookie_glitch_ul;
+
+/* "as"/"ae" -- start/end alternate character set. Not really
+ supported, yet. */
+
+char *TS_enter_alt_charset_mode, *TS_exit_alt_charset_mode;
+
+/* "me" -- switch appearances off. */
+
+char *TS_exit_attribute_mode;
+
+/* "Co" -- number of colors. */
+
+int TN_max_colors;
+
+/* "pa" -- max. number of color pairs on screen. Not handled yet.
+ Could be a problem if not equal to TN_max_colors * TN_max_colors. */
+
+int TN_max_pairs;
+
+/* "op" -- SVr4 set default pair to its original value. */
+
+char *TS_orig_pair;
+
+/* "AF"/"AB" or "Sf"/"Sb"-- set ANSI or SVr4 foreground/background color.
+ 1 param, the color index. */
+
+char *TS_set_foreground, *TS_set_background;
+
int TF_hazeltine; /* termcap hz flag. */
int TF_insmode_motion; /* termcap mi flag: can move while in insert mode. */
int TF_standout_motion; /* termcap mi flag: can move while in standout mode. */
-int TF_underscore; /* termcap ul flag: _ underlines if overstruck on
- nonblank position. Must clear before writing _. */
+int TF_underscore; /* termcap ul flag: _ underlines if over-struck on
+ non-blank position. Must clear before writing _. */
int TF_teleray; /* termcap xt flag: many weird consequences.
For t1061. */
/* internal state */
/* The largest frame width in any call to calculate_costs. */
+
int max_frame_width;
+
/* The largest frame height in any call to calculate_costs. */
+
int max_frame_height;
/* Number of chars of space used for standout marker at beginning of line,
static char *copybuf;
/* nonzero means supposed to write text in standout mode. */
+
int standout_requested;
int insert_mode; /* Nonzero when in insert mode. */
FRAME_PTR updating_frame;
/* Provided for lisp packages. */
+
static int system_uses_terminfo;
char *tparam ();
\f
#ifdef WINDOWSNT
+
/* We aren't X windows, but we aren't termcap either. This makes me
uncertain as to what value to use for frame.output_method. For
this file, we'll define FRAME_TERMCAP_P to be zero so that our
#define FRAME_TERMCAP_P(_f_) 0
#endif /* WINDOWSNT */
+void
ring_bell ()
{
if (! NILP (Vring_bell_function))
return;
}
- if (! FRAME_TERMCAP_P (selected_frame))
+ if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
{
(*ring_bell_hook) ();
return;
OUTPUT (TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
}
+void
set_terminal_modes ()
{
- if (! FRAME_TERMCAP_P (selected_frame))
+ if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
{
(*set_terminal_modes_hook) ();
return;
}
OUTPUT_IF (TS_termcap_modes);
- OUTPUT_IF (TS_visual_mode);
+ OUTPUT_IF (TS_cursor_visible);
OUTPUT_IF (TS_keypad_mode);
losecursor ();
}
+void
reset_terminal_modes ()
{
- if (! FRAME_TERMCAP_P (selected_frame))
+ if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
{
- (*reset_terminal_modes_hook) ();
+ if (reset_terminal_modes_hook)
+ (*reset_terminal_modes_hook) ();
return;
}
if (TN_standout_width < 0)
turn_off_highlight ();
turn_off_insert ();
OUTPUT_IF (TS_end_keypad_mode);
- OUTPUT_IF (TS_end_visual_mode);
+ OUTPUT_IF (TS_cursor_normal);
OUTPUT_IF (TS_end_termcap_modes);
+ OUTPUT_IF (TS_orig_pair);
/* Output raw CR so kernel can track the cursor hpos. */
/* But on magic-cookie terminals this can erase an end-standout marker and
cause the rest of the frame to be in standout, so move down first. */
cmputc ('\r');
}
+void
update_begin (f)
FRAME_PTR f;
{
updating_frame = f;
if (! FRAME_TERMCAP_P (updating_frame))
(*update_begin_hook) (f);
+ else
+ tty_hide_cursor ();
}
+void
update_end (f)
FRAME_PTR f;
{
updating_frame = 0;
return;
}
+
+ if (!XWINDOW (selected_window)->cursor_off_p)
+ tty_show_cursor ();
+
turn_off_insert ();
background_highlight ();
standout_requested = 0;
updating_frame = 0;
}
+void
set_terminal_window (size)
int size;
{
(*set_terminal_window_hook) (size);
return;
}
- specified_window = size ? size : FRAME_HEIGHT (selected_frame);
+ specified_window = size ? size : FRAME_HEIGHT (XFRAME (selected_frame));
if (!scroll_region_ok)
return;
set_scroll_region (0, specified_window);
}
+void
set_scroll_region (start, stop)
int start, stop;
{
char *buf;
+ struct frame *sf = XFRAME (selected_frame);
+
if (TS_set_scroll_region)
{
buf = tparam (TS_set_scroll_region, 0, 0, start, stop - 1);
else if (TS_set_scroll_region_1)
{
buf = tparam (TS_set_scroll_region_1, 0, 0,
- FRAME_HEIGHT (selected_frame), start,
- FRAME_HEIGHT (selected_frame) - stop,
- FRAME_HEIGHT (selected_frame));
+ FRAME_HEIGHT (sf), start,
+ FRAME_HEIGHT (sf) - stop,
+ FRAME_HEIGHT (sf));
}
else
{
- buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (selected_frame));
+ buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (sf));
}
OUTPUT (buf);
xfree (buf);
losecursor ();
}
\f
+void
turn_on_insert ()
{
if (!insert_mode)
insert_mode = 1;
}
+void
turn_off_insert ()
{
if (insert_mode)
These functions are called on all terminals, but do nothing
on terminals whose standout mode does not work that way. */
+void
turn_off_highlight ()
{
if (TN_standout_width < 0)
}
}
+void
turn_on_highlight ()
{
if (TN_standout_width < 0)
}
}
+
+/* Make cursor invisible. */
+
+static void
+tty_hide_cursor ()
+{
+ OUTPUT_IF (TS_cursor_invisible);
+}
+
+
+/* Ensure that cursor is visible. */
+
+static void
+tty_show_cursor ()
+{
+ OUTPUT_IF (TS_cursor_normal);
+ OUTPUT_IF (TS_cursor_visible);
+}
+
+
/* 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. */
+void
background_highlight ()
{
if (TN_standout_width >= 0)
/* Set standout mode to the mode specified for the text to be output. */
-static
+static void
highlight_if_desired ()
{
if (TN_standout_width >= 0)
/* Write a standout marker or end-standout marker at the front of the line
at vertical position vpos. */
+void
write_standout_marker (flag, vpos)
int flag, vpos;
{
Call this when about to modify line at position VPOS
and not change whether it is highlighted. */
+void
reassert_line_highlight (highlight, vpos)
int highlight;
int vpos;
{
- if (! FRAME_TERMCAP_P ((updating_frame ? updating_frame : selected_frame)))
+ struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
+ if (! FRAME_TERMCAP_P (f))
{
(*reassert_line_highlight_hook) (highlight, vpos);
return;
if (TN_standout_width < 0)
/* Handle terminals where standout takes affect at output time */
standout_requested = highlight;
- else if (chars_wasted[vpos] == 0)
+ else if (chars_wasted && chars_wasted[vpos] == 0)
/* For terminals with standout markers, write one on this line
if there isn't one already. */
write_standout_marker (highlight, vpos);
/* Call this when about to modify line at position VPOS
and change whether it is highlighted. */
-change_line_highlight (new_highlight, vpos, first_unused_hpos)
- int new_highlight, vpos, first_unused_hpos;
+void
+change_line_highlight (new_highlight, vpos, y, first_unused_hpos)
+ int new_highlight, vpos, y, first_unused_hpos;
{
standout_requested = new_highlight;
if (! FRAME_TERMCAP_P (updating_frame))
{
- (*change_line_highlight_hook) (new_highlight, vpos, first_unused_hpos);
+ (*change_line_highlight_hook) (new_highlight, vpos, y, first_unused_hpos);
return;
}
/* On Teleray, make sure to erase the SO marker. */
if (TF_teleray)
{
- cmgoto (curY - 1, FRAME_WIDTH (selected_frame) - 4);
+ cmgoto (curY - 1, FRAME_WIDTH (XFRAME (selected_frame)) - 4);
OUTPUT ("\033S");
curY++; /* ESC S moves to next line where the TS_standout_mode was */
curX = 0;
}
\f
-/* Move to absolute position, specified origin 0 */
+/* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are
+ frame-relative coordinates. */
-cursor_to (row, col)
- int row, col;
+void
+cursor_to (vpos, hpos)
+ int vpos, hpos;
{
- if (! FRAME_TERMCAP_P ((updating_frame
- ? updating_frame
- : selected_frame))
- && cursor_to_hook)
+ struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
+
+ if (! FRAME_TERMCAP_P (f) && cursor_to_hook)
{
- (*cursor_to_hook) (row, col);
+ (*cursor_to_hook) (vpos, hpos);
return;
}
if (chars_wasted == 0)
return;
- col += chars_wasted[row] & 077;
- if (curY == row && curX == col)
+ hpos += chars_wasted[vpos] & 077;
+ if (curY == vpos && curX == hpos)
return;
if (!TF_standout_motion)
background_highlight ();
if (!TF_insmode_motion)
turn_off_insert ();
- cmgoto (row, col);
+ cmgoto (vpos, hpos);
}
/* Similar but don't take any account of the wasted characters. */
+void
raw_cursor_to (row, col)
int row, col;
{
- if (! FRAME_TERMCAP_P ((updating_frame ? updating_frame : selected_frame)))
+ struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
+ if (! FRAME_TERMCAP_P (f))
{
(*raw_cursor_to_hook) (row, col);
return;
/* Erase operations */
/* clear from cursor to end of frame */
+void
clear_to_end ()
{
register int i;
{
background_highlight ();
OUTPUT (TS_clr_to_bottom);
- bzero (chars_wasted + curY, FRAME_HEIGHT (selected_frame) - curY);
+ bzero (chars_wasted + curY,
+ FRAME_HEIGHT (XFRAME (selected_frame)) - curY);
}
else
{
- for (i = curY; i < FRAME_HEIGHT (selected_frame); i++)
+ for (i = curY; i < FRAME_HEIGHT (XFRAME (selected_frame)); i++)
{
cursor_to (i, 0);
- clear_end_of_line_raw (FRAME_WIDTH (selected_frame));
+ clear_end_of_line_raw (FRAME_WIDTH (XFRAME (selected_frame)));
}
}
}
/* Clear entire frame */
+void
clear_frame ()
{
+ struct frame *sf = XFRAME (selected_frame);
+
if (clear_frame_hook
- && ! FRAME_TERMCAP_P ((updating_frame ? updating_frame : selected_frame)))
+ && ! FRAME_TERMCAP_P ((updating_frame ? updating_frame : sf)))
{
(*clear_frame_hook) ();
return;
{
background_highlight ();
OUTPUT (TS_clr_frame);
- bzero (chars_wasted, FRAME_HEIGHT (selected_frame));
+ bzero (chars_wasted, FRAME_HEIGHT (sf));
cmat (0, 0);
}
else
Note that the cursor may be moved. */
+void
clear_end_of_line (first_unused_hpos)
int first_unused_hpos;
{
- static GLYPH buf = SPACEGLYPH;
- if (FRAME_TERMCAP_P (selected_frame)
+ if (FRAME_TERMCAP_P (XFRAME (selected_frame))
&& chars_wasted != 0
&& TN_standout_width == 0 && curX == 0 && chars_wasted[curY] != 0)
- write_glyphs (&buf, 1);
+ write_glyphs (&space_glyph, 1);
clear_end_of_line_raw (first_unused_hpos);
}
Note that the cursor may be moved, on terminals lacking a `ce' string. */
+void
clear_end_of_line_raw (first_unused_hpos)
int first_unused_hpos;
{
if (clear_end_of_line_hook
&& ! FRAME_TERMCAP_P ((updating_frame
? updating_frame
- : selected_frame)))
+ : XFRAME (selected_frame))))
{
(*clear_end_of_line_hook) (first_unused_hpos);
return;
}
else
{ /* have to do it the hard way */
+ struct frame *sf = XFRAME (selected_frame);
turn_off_insert ();
- /* Do not write in last row last col with Autowrap on. */
- if (AutoWrap && curY == FRAME_HEIGHT (selected_frame) - 1
- && first_unused_hpos == FRAME_WIDTH (selected_frame))
+ /* Do not write in last row last col with Auto-wrap on. */
+ if (AutoWrap && curY == FRAME_HEIGHT (sf) - 1
+ && first_unused_hpos == FRAME_WIDTH (sf))
first_unused_hpos--;
for (i = curX; i < first_unused_hpos; i++)
int
encode_terminal_code (src, dst, src_len, dst_len, consumed)
- GLYPH *src;
+ struct glyph *src;
int src_len;
unsigned char *dst;
int dst_len, *consumed;
{
- GLYPH *src_start = src, *src_end = src + src_len;
+ struct glyph *src_start = src, *src_end = src + src_len;
unsigned char *dst_start = dst, *dst_end = dst + dst_len;
register GLYPH g;
unsigned int c;
- unsigned char workbuf[4], *buf;
- int len, produced, processed;
+ unsigned char workbuf[MAX_MULTIBYTE_LENGTH], *buf;
+ int len;
register int tlen = GLYPH_TABLE_LENGTH;
register Lisp_Object *tbase = GLYPH_TABLE_BASE;
+ int result;
+ struct coding_system *coding;
+
+ /* 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 = (terminal_coding.common_flags & CODING_REQUIRE_ENCODING_MASK
+ ? &terminal_coding
+ : &safe_terminal_coding);
while (src < src_end)
{
- g = *src;
/* We must skip glyphs to be padded for a wide character. */
- if (! (g & GLYPH_MASK_PADDING))
+ if (! CHAR_GLYPH_PADDING_P (*src))
{
- if ((c = GLYPH_CHAR (selected_frame, g)) > MAX_CHAR)
- {
- c = ' ';
- g = MAKE_GLYPH (selected_frame, c,
- GLYPH_FACE (selected_frame, g));
- }
- if (COMPOSITE_CHAR_P (c))
+ g = GLYPH_FROM_CHAR_GLYPH (src[0]);
+
+ if (g < 0 || g >= tlen)
{
- /* If C is a composite character, we can display
- only the first component. */
- g = cmpchar_table[COMPOSITE_CHAR_ID (c)]->glyph[0],
- c = GLYPH_CHAR (selected_frame, g);
+ /* This glyph doesn't has an entry in Vglyph_table. */
+ if (! CHAR_VALID_P (src->u.ch, 0))
+ {
+ len = 1;
+ buf = " ";
+ coding->src_multibyte = 0;
+ }
+ else
+ {
+ len = CHAR_STRING (src->u.ch, workbuf);
+ buf = workbuf;
+ coding->src_multibyte = 1;
+ }
}
- if (c < tlen)
+ else
{
- /* G has an entry in Vglyph_table,
+ /* This glyph has an entry in Vglyph_table,
so process any alias before testing for simpleness. */
GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
- c = GLYPH_CHAR (selected_frame, g);
- }
- if (GLYPH_SIMPLE_P (tbase, tlen, g))
- /* We set the multi-byte form of C at BUF. */
- len = CHAR_STRING (c, workbuf, buf);
- else
- {
- /* We have a string in Vglyph_table. */
- len = GLYPH_LENGTH (tbase, g);
- buf = GLYPH_STRING (tbase, 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. */
+ workbuf[0] = FAST_GLYPH_CHAR (g);
+ len = 1;
+ buf = workbuf;
+ coding->src_multibyte = 0;
+ }
+ else
+ {
+ /* We have a string in Vglyph_table. */
+ len = GLYPH_LENGTH (tbase, g);
+ buf = GLYPH_STRING (tbase, g);
+ coding->src_multibyte = STRING_MULTIBYTE (tbase[g]);
+ }
}
- produced = encode_coding (&terminal_coding, buf, dst,
- len, dst_end - dst, &processed);
- if (processed < len)
- /* We get a carryover because the remaining output
- buffer is too short. We must break the loop here
- without increasing SRC so that the next call of
- this function start from the same glyph. */
+ result = encode_coding (coding, buf, dst, len, dst_end - dst);
+ len -= coding->consumed;
+ dst += coding->produced;
+ if (result == CODING_FINISH_INSUFFICIENT_DST
+ || (result == CODING_FINISH_INSUFFICIENT_SRC
+ && len > dst_end - dst))
+ /* The remaining output buffer is too short. We must
+ break the loop here without increasing SRC so that the
+ next call of this function starts from the same glyph. */
break;
- dst += produced;
+
+ if (len > 0)
+ {
+ /* This is the case that a code of the range 0200..0237
+ exists in buf. We must just write out such a code. */
+ buf += coding->consumed;
+ while (len--)
+ *dst++ = *buf++;
+ }
}
src++;
}
+
*consumed = src - src_start;
return (dst - dst_start);
}
+void
write_glyphs (string, len)
- register GLYPH *string;
+ register struct glyph *string;
register int len;
{
- register GLYPH g;
- register int tlen = GLYPH_TABLE_LENGTH;
- register Lisp_Object *tbase = GLYPH_TABLE_BASE;
int produced, consumed;
+ struct frame *sf = XFRAME (selected_frame);
+ struct frame *f = updating_frame ? updating_frame : sf;
+ unsigned char conversion_buffer[1024];
+ int conversion_buffer_size = sizeof conversion_buffer;
if (write_glyphs_hook
- && ! FRAME_TERMCAP_P ((updating_frame ? updating_frame : selected_frame)))
+ && ! FRAME_TERMCAP_P (f))
{
(*write_glyphs_hook) (string, len);
return;
}
- highlight_if_desired ();
turn_off_insert ();
- /* Don't dare write in last column of bottom line, if AutoWrap,
+ /* 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
- && curY + 1 == FRAME_HEIGHT (selected_frame)
- && (curX + len - (chars_wasted[curY] & 077)
- == FRAME_WIDTH (selected_frame)))
+ && curY + 1 == FRAME_HEIGHT (sf)
+ && (curX + len - (chars_wasted[curY] & 077) == FRAME_WIDTH (sf)))
len --;
if (len <= 0)
return;
cmplus (len);
- /* The field `last_block' should be set to 1 only at the tail. */
- terminal_coding.last_block = 0;
+
+ /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
+ the tail. */
+ terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK;
+
while (len > 0)
{
- /* We use shared conversion buffer of the current size (1024
- bytes at least). Usually it is sufficient, but if not, we
- just repeat the loop. */
- produced = encode_terminal_code (string, conversion_buffer,
- len, conversion_buffer_size, &consumed);
- if (produced > 0)
+ /* Identify a run of glyphs with the same face. */
+ int face_id = string->face_id;
+ int n;
+
+ for (n = 1; n < len; ++n)
+ if (string[n].face_id != face_id)
+ break;
+
+ /* Turn appearance modes of the face of the run on. */
+ highlight_if_desired ();
+ turn_on_face (f, face_id);
+
+ while (n > 0)
{
- fwrite (conversion_buffer, 1, produced, stdout);
+ /* We use a fixed size (1024 bytes) of conversion buffer.
+ Usually it is sufficient, but if not, we just repeat the
+ loop. */
+ produced = encode_terminal_code (string, conversion_buffer,
+ n, conversion_buffer_size,
+ &consumed);
+ if (produced > 0)
+ {
+ fwrite (conversion_buffer, 1, produced, stdout);
+ if (ferror (stdout))
+ clearerr (stdout);
+ if (termscript)
+ fwrite (conversion_buffer, 1, produced, termscript);
+ }
+ len -= consumed;
+ n -= consumed;
+ string += consumed;
+ }
+
+ /* Turn appearance modes off. */
+ turn_off_face (f, face_id);
+ turn_off_highlight ();
+ }
+
+ /* We may have to output some codes to terminate the writing. */
+ if (CODING_REQUIRE_FLUSHING (&terminal_coding))
+ {
+ terminal_coding.mode |= CODING_MODE_LAST_BLOCK;
+ encode_coding (&terminal_coding, "", conversion_buffer,
+ 0, conversion_buffer_size);
+ if (terminal_coding.produced > 0)
+ {
+ fwrite (conversion_buffer, 1, terminal_coding.produced, stdout);
if (ferror (stdout))
clearerr (stdout);
if (termscript)
- fwrite (conversion_buffer, 1, produced, termscript);
+ fwrite (conversion_buffer, 1, terminal_coding.produced,
+ termscript);
}
- len -= consumed;
- string += consumed;
- }
- /* We may have to output some codes to terminate the writing. */
- terminal_coding.last_block = 1;
- produced = encode_coding (&terminal_coding, (char *)0, conversion_buffer,
- 0, conversion_buffer_size,
- &consumed);
- if (produced > 0)
- {
- fwrite (conversion_buffer, 1, produced, stdout);
- if (ferror (stdout))
- clearerr (stdout);
- if (termscript)
- fwrite (conversion_buffer, 1, produced, termscript);
}
+
cmcheckmagic ();
}
/* If start is zero, insert blanks instead of a string at start */
+void
insert_glyphs (start, len)
- register GLYPH *start;
+ register struct glyph *start;
register int len;
{
char *buf;
- GLYPH g;
- register int tlen = GLYPH_TABLE_LENGTH;
- register Lisp_Object *tbase = GLYPH_TABLE_BASE;
+ struct glyph *glyph = NULL;
+ struct frame *f, *sf;
if (len <= 0)
return;
- if (insert_glyphs_hook && ! FRAME_TERMCAP_P (updating_frame))
+ if (insert_glyphs_hook)
{
(*insert_glyphs_hook) (start, len);
return;
}
- highlight_if_desired ();
+
+ sf = XFRAME (selected_frame);
+ f = updating_frame ? updating_frame : sf;
if (TS_ins_multi_chars)
{
turn_on_insert ();
cmplus (len);
- /* The field `last_block' should be set to 1 only at the tail. */
- terminal_coding.last_block = 0;
+ /* The bit CODING_MODE_LAST_BLOCK should be set to 1 only at the tail. */
+ terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK;
while (len-- > 0)
{
int produced, consumed;
+ unsigned char conversion_buffer[1024];
+ int conversion_buffer_size = sizeof conversion_buffer;
OUTPUT1_IF (TS_ins_char);
if (!start)
- g = SPACEGLYPH;
+ {
+ conversion_buffer[0] = SPACEGLYPH;
+ produced = 1;
+ }
else
{
- g = *start++;
+ highlight_if_desired ();
+ 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 (*start & GLYPH_MASK_PADDING)
+ while (len && CHAR_GLYPH_PADDING_P (*start))
{
OUTPUT1_IF (TS_ins_char);
start++, len--;
}
- }
- if (len <= 0)
- /* This is the last glyph. */
- terminal_coding.last_block = 1;
+ if (len <= 0)
+ /* This is the last glyph. */
+ terminal_coding.mode |= CODING_MODE_LAST_BLOCK;
+
+ /* The size of conversion buffer (1024 bytes) is surely
+ sufficient for just one glyph. */
+ produced = encode_terminal_code (glyph, conversion_buffer, 1,
+ conversion_buffer_size, &consumed);
+ }
- /* We use shared conversion buffer of the current size (1024
- bytes at least). It is surely sufficient for just one glyph. */
- produced = encode_terminal_code (&g, conversion_buffer,
- 1, conversion_buffer_size, &consumed);
if (produced > 0)
{
fwrite (conversion_buffer, 1, produced, stdout);
}
OUTPUT1_IF (TS_pad_inserted_char);
+ if (start)
+ {
+ turn_off_face (f, glyph->face_id);
+ turn_off_highlight ();
+ }
}
+
cmcheckmagic ();
}
+void
delete_glyphs (n)
register int n;
{
\f
/* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */
+void
ins_del_lines (vpos, n)
int vpos, n;
{
char *multi = n > 0 ? TS_ins_multi_lines : TS_del_multi_lines;
char *single = n > 0 ? TS_ins_line : TS_del_line;
char *scroll = n > 0 ? TS_rev_scroll : TS_fwd_scroll;
+ struct frame *sf;
register int i = n > 0 ? n : -n;
register char *buf;
return;
}
+ sf = XFRAME (selected_frame);
+
/* 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
as there will be a matching inslines later that will flush them. */
if (scroll_region_ok && vpos + i >= specified_window)
return;
- if (!memory_below_frame && vpos + i >= FRAME_HEIGHT (selected_frame))
+ if (!memory_below_frame && vpos + i >= FRAME_HEIGHT (sf))
return;
if (multi)
if (TN_standout_width >= 0)
{
- register lower_limit
+ register int lower_limit
= (scroll_region_ok
? specified_window
- : FRAME_HEIGHT (selected_frame));
+ : FRAME_HEIGHT (sf));
if (n < 0)
{
}
if (!scroll_region_ok && memory_below_frame && n < 0)
{
- cursor_to (FRAME_HEIGHT (selected_frame) + n, 0);
+ cursor_to (FRAME_HEIGHT (sf) + n, 0);
clear_to_end ();
}
}
*p++ = (ins_startup_cost += ins_cost_per_char);
}
-extern do_line_insertion_deletion_costs ();
-
+void
calculate_costs (frame)
FRAME_PTR frame;
{
FRAME_COST_BAUD_RATE (frame) = baud_rate;
scroll_region_cost = string_cost (f);
-#ifdef HAVE_X_WINDOWS
- if (FRAME_X_P (frame))
- {
- do_line_insertion_deletion_costs (frame, 0, ".5*", 0, ".5*",
- 0, 0,
- x_screen_planes (frame));
- scroll_region_cost = 0;
- return;
- }
-#endif
/* These variables are only used for terminal stuff. They are allocated
once for the terminal frame of X-windows emacs, but not used afterwards.
other keys (as on the IBM PC keyboard) they get overridden.
*/
-static struct fkey_table keys[] = {
+static struct fkey_table keys[] =
+{
"kh", "home", /* termcap */
"kl", "left", /* termcap */
"ku", "up", /* termcap */
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");
/* IBM has their own non-standard dialect of terminfo.
If the standard name isn't found, try the IBM name. */
CONDITIONAL_REASSIGN ("*6", "kU", "select");
#undef CONDITIONAL_REASSIGN
}
+
+ return Qnil;
+}
+
+\f
+/***********************************************************************
+ Character Display Information
+ ***********************************************************************/
+
+static void append_glyph P_ ((struct it *));
+
+
+/* Append glyphs to IT's glyph_row. Called from produce_glyphs for
+ terminal frames if IT->glyph_row != NULL. IT->c 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 (it)
+ struct it *it;
+{
+ struct glyph *glyph, *end;
+ int i;
+
+ xassert (it->glyph_row);
+ glyph = (it->glyph_row->glyphs[it->area]
+ + it->glyph_row->used[it->area]);
+ end = it->glyph_row->glyphs[1 + it->area];
+
+ for (i = 0;
+ i < it->pixel_width && glyph < end;
+ ++i)
+ {
+ glyph->type = CHAR_GLYPH;
+ glyph->pixel_width = 1;
+ glyph->u.ch = it->c;
+ glyph->face_id = it->face_id;
+ glyph->padding_p = i > 0;
+ glyph->charpos = CHARPOS (it->position);
+ glyph->object = it->object;
+
+ ++it->glyph_row->used[it->area];
+ ++glyph;
+ }
+}
+
+
+/* Produce glyphs for the display element described by IT. The
+ function fills output fields of IT with pixel information like the
+ pixel width and height of a character, and maybe produces glyphs at
+ the same time if IT->glyph_row is non-null. See the explanation of
+ struct display_iterator in dispextern.h for an overview. */
+
+void
+produce_glyphs (it)
+ struct it *it;
+{
+ /* If a hook is installed, let it do the work. */
+ xassert (it->what == IT_CHARACTER
+ || it->what == IT_COMPOSITION
+ || it->what == IT_IMAGE
+ || it->what == IT_STRETCH);
+
+ /* Nothing but characters are supported on terminal frames. For a
+ composition sequence, it->c is the first character of the
+ sequence. */
+ xassert (it->what == IT_CHARACTER
+ || it->what == IT_COMPOSITION);
+
+ if (it->c >= 040 && it->c < 0177)
+ {
+ it->pixel_width = it->nglyphs = 1;
+ if (it->glyph_row)
+ append_glyph (it);
+ }
+ else if (it->c == '\n')
+ it->pixel_width = it->nglyphs = 0;
+ else if (it->c == '\t')
+ {
+ int absolute_x = (it->current_x
+ + it->continuation_lines_width);
+ int next_tab_x
+ = (((1 + absolute_x + it->tab_width - 1)
+ / it->tab_width)
+ * it->tab_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 - absolute_x;
+
+ if (it->glyph_row)
+ {
+ int n = nspaces;
+
+ it->c = ' ';
+ it->pixel_width = it->len = 1;
+
+ while (n--)
+ append_glyph (it);
+
+ it->c = '\t';
+ }
+
+ it->pixel_width = nspaces;
+ it->nglyphs = nspaces;
+ }
+ else if (SINGLE_BYTE_CHAR_P (it->c))
+ {
+ /* Coming here means that it->c is from display table, thus we
+ must send the code 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
+ {
+ /* A multi-byte character. The display width is fixed for all
+ characters of the set. Some of the glyphs may have to be
+ ignored because they are already displayed in a continued
+ line. */
+ int charset = CHAR_CHARSET (it->c);
+
+ it->pixel_width = CHARSET_WIDTH (charset);
+ it->nglyphs = it->pixel_width;
+
+ if (it->glyph_row)
+ append_glyph (it);
+ }
+
+ /* 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;
+}
+
+
+/* Get information about special display element WHAT in an
+ environment described by IT. WHAT is one of IT_TRUNCATION or
+ IT_CONTINUATION. Maybe produce glyphs for WHAT if IT has a
+ non-null glyph_row member. This function ensures that fields like
+ face_id, c, len of IT are left untouched. */
+
+void
+produce_special_glyphs (it, what)
+ struct it *it;
+ enum display_element_type what;
+{
+ struct it temp_it;
+
+ temp_it = *it;
+ temp_it.dp = NULL;
+ temp_it.what = IT_CHARACTER;
+ temp_it.len = 1;
+ temp_it.object = make_number (0);
+ bzero (&temp_it.current, sizeof temp_it.current);
+
+ if (what == IT_CONTINUATION)
+ {
+ /* Continuation glyph. */
+ if (it->dp
+ && INTEGERP (DISP_CONTINUE_GLYPH (it->dp))
+ && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it->dp))))
+ {
+ temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it->dp)));
+ temp_it.len = CHAR_BYTES (temp_it.c);
+ }
+ else
+ temp_it.c = '\\';
+
+ produce_glyphs (&temp_it);
+ it->pixel_width = temp_it.pixel_width;
+ it->nglyphs = temp_it.pixel_width;
+ }
+ else if (what == IT_TRUNCATION)
+ {
+ /* Truncation glyph. */
+ if (it->dp
+ && INTEGERP (DISP_TRUNC_GLYPH (it->dp))
+ && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it->dp))))
+ {
+ temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it->dp)));
+ temp_it.len = CHAR_BYTES (temp_it.c);
+ }
+ else
+ temp_it.c = '$';
+
+ produce_glyphs (&temp_it);
+ it->pixel_width = temp_it.pixel_width;
+ it->nglyphs = temp_it.pixel_width;
+ }
+ else
+ abort ();
+}
+
+
+/* Return an estimation of the pixel height of mode or top lines on
+ frame F. FACE_ID specifies what line's height to estimate. */
+
+int
+estimate_mode_line_height (f, face_id)
+ struct frame *f;
+ enum face_id face_id;
+{
+ if (estimate_mode_line_height_hook)
+ return estimate_mode_line_height_hook (f, face_id);
+ else
+ return 1;
}
+
\f
+/***********************************************************************
+ 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(ATTR) \
+ (TN_max_colors > 0 \
+ ? (TN_no_color_video & (ATTR)) == 0 \
+ : 1)
+
+/* Turn appearances of face FACE_ID on tty frame F on. */
+
+static void
+turn_on_face (f, face_id)
+ struct frame *f;
+ int face_id;
+{
+ struct face *face = FACE_FROM_ID (f, face_id);
+
+ xassert (face != NULL);
+
+ if (face->tty_bold_p)
+ {
+ if (MAY_USE_WITH_COLORS_P (NC_BOLD))
+ OUTPUT1_IF (TS_enter_bold_mode);
+ }
+ else if (face->tty_dim_p)
+ if (MAY_USE_WITH_COLORS_P (NC_DIM))
+ OUTPUT1_IF (TS_enter_dim_mode);
+
+ /* Alternate charset and blinking not yet used. */
+ if (face->tty_alt_charset_p
+ && MAY_USE_WITH_COLORS_P (NC_ALT_CHARSET))
+ OUTPUT1_IF (TS_enter_alt_charset_mode);
+
+ if (face->tty_blinking_p
+ && MAY_USE_WITH_COLORS_P (NC_BLINK))
+ OUTPUT1_IF (TS_enter_blink_mode);
+
+ if (face->tty_underline_p
+ /* Don't underline if that's difficult. */
+ && TN_magic_cookie_glitch_ul <= 0
+ && MAY_USE_WITH_COLORS_P (NC_UNDERLINE))
+ OUTPUT1_IF (TS_enter_underline_mode);
+
+ if (MAY_USE_WITH_COLORS_P (NC_REVERSE))
+ if (face->tty_reverse_p
+ || face->foreground == FACE_TTY_DEFAULT_BG_COLOR
+ || face->background == FACE_TTY_DEFAULT_FG_COLOR)
+ OUTPUT1_IF (TS_enter_reverse_mode);
+
+ if (TN_max_colors > 0)
+ {
+ char *p;
+
+ if (face->foreground != FACE_TTY_DEFAULT_COLOR
+ && face->foreground != FACE_TTY_DEFAULT_FG_COLOR
+ && face->foreground != FACE_TTY_DEFAULT_BG_COLOR
+ && TS_set_foreground)
+ {
+ p = tparam (TS_set_foreground, NULL, 0, (int) face->foreground);
+ OUTPUT (p);
+ xfree (p);
+ }
+
+ if (face->background != FACE_TTY_DEFAULT_COLOR
+ && face->background != FACE_TTY_DEFAULT_BG_COLOR
+ && face->background != FACE_TTY_DEFAULT_FG_COLOR
+ && TS_set_background)
+ {
+ p = tparam (TS_set_background, NULL, 0, (int) face->background);
+ OUTPUT (p);
+ xfree (p);
+ }
+ }
+}
+
+
+/* Turn off appearances of face FACE_ID on tty frame F. */
+
+static void
+turn_off_face (f, face_id)
+ struct frame *f;
+ int face_id;
+{
+ struct face *face = FACE_FROM_ID (f, face_id);
+
+ xassert (face != NULL);
+
+ if (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_dim_p
+ || face->tty_reverse_p
+ || face->tty_alt_charset_p
+ || face->tty_blinking_p
+ || face->tty_underline_p)
+ {
+ OUTPUT1_IF (TS_exit_attribute_mode);
+ if (strcmp (TS_exit_attribute_mode, TS_end_standout_mode) == 0)
+ standout_mode = 0;
+ }
+
+ if (face->tty_alt_charset_p)
+ OUTPUT_IF (TS_exit_alt_charset_mode);
+ }
+ else
+ {
+ /* If we don't have "me" we can only have those appearances
+ that have exit sequences defined. */
+ if (face->tty_alt_charset_p)
+ OUTPUT_IF (TS_exit_alt_charset_mode);
+
+ if (face->tty_underline_p
+ /* We don't underline if that's difficult. */
+ && TN_magic_cookie_glitch_ul <= 0)
+ OUTPUT_IF (TS_exit_underline_mode);
+ }
+
+ /* Switch back to default colors. */
+ if (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 (TS_orig_pair);
+}
+
+
+/* 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,
+ "Return non-nil if TTY can display colors on FRAME.")
+ (frame)
+ Lisp_Object frame;
+{
+ return TN_max_colors > 0 ? Qt : Qnil;
+}
+
+
+
+\f
+/***********************************************************************
+ Initialization
+ ***********************************************************************/
+
+void
term_init (terminal_type)
char *terminal_type;
{
char buffer[2044];
register char *p;
int status;
+ struct frame *sf = XFRAME (selected_frame);
#ifdef WINDOWSNT
initialize_w32_display ();
Wcm_clear ();
- area = (char *) malloc (2044);
+ area = (char *) xmalloc (2044);
if (area == 0)
abort ();
- FrameRows = FRAME_HEIGHT (selected_frame);
- FrameCols = FRAME_WIDTH (selected_frame);
- specified_window = FRAME_HEIGHT (selected_frame);
+ FrameRows = FRAME_HEIGHT (sf);
+ FrameCols = FRAME_WIDTH (sf);
+ specified_window = FRAME_HEIGHT (sf);
delete_in_insert_mode = 1;
baud_rate = 19200;
- FRAME_CAN_HAVE_SCROLL_BARS (selected_frame) = 0;
- FRAME_VERTICAL_SCROLL_BAR_TYPE (selected_frame) = vertical_scroll_bar_none;
+ FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
+ FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
+ TN_max_colors = 16; /* Required to be non-zero for tty-display-color-p */
return;
-#endif /* WINDOWSNT */
+#else /* not WINDOWSNT */
Wcm_clear ();
#endif
}
#ifdef TERMINFO
- area = (char *) malloc (2044);
+ area = (char *) xmalloc (2044);
#else
- area = (char *) malloc (strlen (buffer));
+ area = (char *) xmalloc (strlen (buffer));
#endif /* not TERMINFO */
if (area == 0)
abort ();
TS_clr_to_bottom = tgetstr ("cd", address);
TS_clr_line = tgetstr ("ce", address);
TS_clr_frame = tgetstr ("cl", address);
- ColPosition = tgetstr ("ch", address);
+ ColPosition = NULL; /* tgetstr ("ch", address); */
AbsPosition = tgetstr ("cm", address);
CR = tgetstr ("cr", address);
TS_set_scroll_region = tgetstr ("cs", address);
Wcm.cm_tab = tgetstr ("ta", address);
TS_end_termcap_modes = tgetstr ("te", address);
TS_termcap_modes = tgetstr ("ti", address);
- TS_bold_mode = tgetstr ("md", address);
- TS_end_bold_mode = tgetstr ("me", address);
- TS_underscore_mode = tgetstr ("us", address);
- TS_end_underscore_mode = tgetstr ("ue", address);
Up = tgetstr ("up", address);
TS_visible_bell = tgetstr ("vb", address);
- TS_end_visual_mode = tgetstr ("ve", address);
- TS_visual_mode = tgetstr ("vs", address);
+ TS_cursor_normal = tgetstr ("ve", address);
+ TS_cursor_visible = tgetstr ("vs", address);
+ TS_cursor_invisible = tgetstr ("vi", address);
TS_set_window = tgetstr ("wi", address);
+
+ TS_enter_underline_mode = tgetstr ("us", address);
+ TS_exit_underline_mode = tgetstr ("ue", address);
+ TN_magic_cookie_glitch_ul = tgetnum ("ug");
+ TS_enter_bold_mode = tgetstr ("md", address);
+ TS_enter_dim_mode = tgetstr ("mh", address);
+ TS_enter_blink_mode = tgetstr ("mb", address);
+ TS_enter_reverse_mode = tgetstr ("mr", address);
+ TS_enter_alt_charset_mode = tgetstr ("as", address);
+ TS_exit_alt_charset_mode = tgetstr ("ae", address);
+ TS_exit_attribute_mode = tgetstr ("me", address);
+
MultiUp = tgetstr ("UP", address);
MultiDown = tgetstr ("DO", address);
MultiLeft = tgetstr ("LE", address);
MultiRight = tgetstr ("RI", address);
+ /* SVr4/ANSI color suppert. If "op" isn't available, don't support
+ color because we can't switch back to the default foreground and
+ background. */
+ TS_orig_pair = tgetstr ("op", address);
+ if (TS_orig_pair)
+ {
+ TS_set_foreground = tgetstr ("AF", address);
+ TS_set_background = tgetstr ("AB", address);
+ if (!TS_set_foreground)
+ {
+ /* SVr4. */
+ TS_set_foreground = tgetstr ("Sf", address);
+ TS_set_background = tgetstr ("Sb", address);
+ }
+
+ TN_max_colors = tgetnum ("Co");
+ TN_max_pairs = tgetnum ("pa");
+
+ TN_no_color_video = tgetnum ("NC");
+ if (TN_no_color_video == -1)
+ TN_no_color_video = 0;
+ }
+
MagicWrap = tgetflag ("xn");
/* Since we make MagicWrap terminals look like AutoWrap, we need to have
the former flag imply the latter. */
{
int height, width;
get_frame_size (&width, &height);
- FRAME_WIDTH (selected_frame) = width;
- FRAME_HEIGHT (selected_frame) = height;
+ FRAME_WIDTH (sf) = width;
+ FRAME_HEIGHT (sf) = height;
}
- if (FRAME_WIDTH (selected_frame) <= 0)
- SET_FRAME_WIDTH (selected_frame, tgetnum ("co"));
+ if (FRAME_WIDTH (sf) <= 0)
+ SET_FRAME_WIDTH (sf, tgetnum ("co"));
else
/* Keep width and external_width consistent */
- SET_FRAME_WIDTH (selected_frame, FRAME_WIDTH (selected_frame));
- if (FRAME_HEIGHT (selected_frame) <= 0)
- FRAME_HEIGHT (selected_frame) = tgetnum ("li");
+ SET_FRAME_WIDTH (sf, FRAME_WIDTH (sf));
+ if (FRAME_HEIGHT (sf) <= 0)
+ FRAME_HEIGHT (sf) = tgetnum ("li");
- if (FRAME_HEIGHT (selected_frame) < 3
- || FRAME_WIDTH (selected_frame) < 3)
+ if (FRAME_HEIGHT (sf) < 3 || FRAME_WIDTH (sf) < 3)
fatal ("Screen size %dx%d is too small",
- FRAME_HEIGHT (selected_frame), FRAME_WIDTH (selected_frame));
+ FRAME_HEIGHT (sf), FRAME_WIDTH (sf));
min_padding_speed = tgetnum ("pb");
TN_standout_width = tgetnum ("sg");
}
}
- FrameRows = FRAME_HEIGHT (selected_frame);
- FrameCols = FRAME_WIDTH (selected_frame);
- specified_window = FRAME_HEIGHT (selected_frame);
+ FrameRows = FRAME_HEIGHT (sf);
+ FrameCols = FRAME_WIDTH (sf);
+ specified_window = FRAME_HEIGHT (sf);
if (Wcm_init () == -1) /* can't do cursor motion */
#ifdef VMS
terminal_type);
# endif /* TERMINFO */
#endif /*VMS */
- if (FRAME_HEIGHT (selected_frame) <= 0
- || FRAME_WIDTH (selected_frame) <= 0)
+ if (FRAME_HEIGHT (sf) <= 0
+ || FRAME_WIDTH (sf) <= 0)
fatal ("The frame size has not been specified");
delete_in_insert_mode
/* Remove width of standout marker from usable width of line */
if (TN_standout_width > 0)
- SET_FRAME_WIDTH (selected_frame,
- FRAME_WIDTH (selected_frame) - TN_standout_width);
+ SET_FRAME_WIDTH (sf, FRAME_WIDTH (sf) - TN_standout_width);
UseTabs = tabs_safe_p () && TabWidth == 8;
/* meaningless in this case */
baud_rate = 9600;
- FRAME_CAN_HAVE_SCROLL_BARS (selected_frame) = 0;
- FRAME_VERTICAL_SCROLL_BAR_TYPE (selected_frame) = vertical_scroll_bar_none;
+ FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
+ FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
+#endif /* WINDOWSNT */
}
/* VARARGS 1 */
+void
fatal (str, arg1, arg2)
char *str, *arg1, *arg2;
{
exit (1);
}
+void
syms_of_term ()
{
DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo,
"Non-nil means call this function to ring the bell.\n\
The function should accept no arguments.");
Vring_bell_function = Qnil;
+
+ defsubr (&Stty_display_color_p);
}
+