comparison src/term.c @ 40086:050b19294988

(TN_standout_width, TF_xs, TN_magic_cookie_glitch_ul): Variables removed. (term_init): Don't set them. Turn off any standout/underline modes that require magic cookies. (ins_del_lines, highlight_if_desired, background_highlight) (turn_on_highlight, turn_off_highlight, reset_terminal_modes): Remove special processing for magic-cookie standout modes. (turn_off_face, turn_on_face): Remove special processing for underline magic-cookie glitch.

40085:09c1c5193715

/* "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;

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. */

int TF_xs;		/* Nonzero for "xs".  If set together with
			   TN_standout_width == 0, it means don't bother
			   to write any end-standout cookies.  */

int TN_standout_width;	/* termcap sg number: width occupied by standout
			   markers */

static int RPov;	/* # chars to start a TS_repeat */

static int delete_in_insert_mode;	/* delete mode == insert mode */

static int se_is_so;	/* 1 if same string both enters and leaves

void
reset_terminal_modes ()
{
  if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
    {
      if (TN_standout_width < 0)
	turn_off_highlight ();
      turn_off_insert ();
      OUTPUT_IF (TS_end_keypad_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.  */
      if (TN_standout_width >= 0)
	cmputc ('\n');
      cmputc ('\r');
    }
  else if (reset_terminal_modes_hook)
    (*reset_terminal_modes_hook) ();
}

  if (insert_mode)
    OUTPUT (TS_end_insert_mode);
  insert_mode = 0;
}

/* Handle highlighting when TN_standout_width (termcap sg) is not specified.
   In these terminals, output is affected by the value of standout
   mode when the output is written.

   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)
    {
      if (standout_mode)
	OUTPUT_IF (TS_end_standout_mode);
      standout_mode = 0;
    }
}

static void
turn_on_highlight ()
{
  if (TN_standout_width < 0)
    {
      if (!standout_mode)
	OUTPUT_IF (TS_standout_mode);
      standout_mode = 1;
    }
}

static void
toggle_highlight ()
{

   depends on the user option inverse-video.  */

void
background_highlight ()
{
  if (TN_standout_width >= 0)
    return;
  if (inverse_video)
    turn_on_highlight ();
  else
    turn_off_highlight ();
}

/* Set standout mode to the mode specified for the text to be output.  */

static void
highlight_if_desired ()
{
  if (TN_standout_width >= 0)
    return;
  if (inverse_video)
    turn_on_highlight ();
  else
    turn_off_highlight ();
}

      while (--i >= 0)
	OUTPUTL (scroll, specified_window - vpos);
      set_scroll_region (0, specified_window);
    }

  if (TN_standout_width >= 0)
    {
      register int lower_limit
	= (scroll_region_ok
	   ? specified_window
	   : FRAME_HEIGHT (sf));
    }
  if (!scroll_region_ok && memory_below_frame && n < 0)
    {
      cursor_to (FRAME_HEIGHT (sf) + n, 0);
      clear_to_end ();
    }

  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 (TN_max_colors > 0)
    {
      char *p;

      /* 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

  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);

  must_write_spaces = tgetflag ("in");
  meta_key = tgetflag ("km") || tgetflag ("MT");
  TF_insmode_motion = tgetflag ("mi");
  TF_standout_motion = tgetflag ("ms");
  TF_underscore = tgetflag ("ul");
  TF_xs = tgetflag ("xs");
  TF_teleray = tgetflag ("xt");

  term_get_fkeys (address);

  /* Get frame size from system, or else from termcap.  */

  if (FRAME_HEIGHT (sf) < 3 || FRAME_WIDTH (sf) < 3)
    fatal ("Screen size %dx%d is too small",
	   FRAME_HEIGHT (sf), FRAME_WIDTH (sf));

  min_padding_speed = tgetnum ("pb");
  TN_standout_width = tgetnum ("sg");
  TabWidth = tgetnum ("tw");

#ifdef VMS
  /* These capabilities commonly use ^J.
     I don't know why, but sending them on VMS does not work;

   and newer termcap doc does not seem to say there is a default.
  if (!Wcm.cm_tab)
    Wcm.cm_tab = "\t";
*/

  if (TS_standout_mode == 0)
    {
      TN_standout_width = tgetnum ("ug");
      TS_end_standout_mode = tgetstr ("ue", address);
      TS_standout_mode = tgetstr ("us", address);
    }

  /* If no `se' string, try using a `me' string instead.
     If that fails, we can't use standout mode at all.  */
  if (TS_end_standout_mode == 0)

    }

  if (TF_teleray)
    {
      Wcm.cm_tab = 0;
      /* Teleray: most programs want a space in front of TS_standout_mode,
	   but Emacs can do without it (and give one extra column).  */
      TS_standout_mode = "\033RD";
      TN_standout_width = 1;
      /* But that means we cannot rely on ^M to go to column zero! */
      CR = 0;
      /* LF can't be trusted either -- can alter hpos */
      /* if move at column 0 thru a line with TS_standout_mode */
      Down = 0;

  se_is_so = (TS_standout_mode
	      && TS_end_standout_mode
	      && !strcmp (TS_standout_mode, TS_end_standout_mode));

  /* Remove width of standout marker from usable width of line */
  if (TN_standout_width > 0)
    SET_FRAME_WIDTH (sf, FRAME_WIDTH (sf) - TN_standout_width);

  UseTabs = tabs_safe_p () && TabWidth == 8;

  scroll_region_ok
    = (Wcm.cm_abs
       && (TS_set_window || TS_set_scroll_region || TS_set_scroll_region_1));

40086:050b19294988

/* "us"/"ue" -- start/end underlining.  */

char *TS_exit_underline_mode, *TS_enter_underline_mode;

/* "as"/"ae" -- start/end alternate character set.  Not really
   supported, yet.  */

char *TS_enter_alt_charset_mode, *TS_exit_alt_charset_mode;

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. */

static int RPov;	/* # chars to start a TS_repeat */

static int delete_in_insert_mode;	/* delete mode == insert mode */

static int se_is_so;	/* 1 if same string both enters and leaves

void
reset_terminal_modes ()
{
  if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
    {
      turn_off_highlight ();
      turn_off_insert ();
      OUTPUT_IF (TS_end_keypad_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.  */
      cmputc ('\r');
    }
  else if (reset_terminal_modes_hook)
    (*reset_terminal_modes_hook) ();
}

  if (insert_mode)
    OUTPUT (TS_end_insert_mode);
  insert_mode = 0;
}

/* Handle highlighting.  */

void
turn_off_highlight ()
{
  if (standout_mode)
    OUTPUT_IF (TS_end_standout_mode);
  standout_mode = 0;
}

static void
turn_on_highlight ()
{
  if (!standout_mode)
    OUTPUT_IF (TS_standout_mode);
  standout_mode = 1;
}

static void
toggle_highlight ()
{

   depends on the user option inverse-video.  */

void
background_highlight ()
{
  if (inverse_video)
    turn_on_highlight ();
  else
    turn_off_highlight ();
}

/* Set standout mode to the mode specified for the text to be output.  */

static void
highlight_if_desired ()
{
  if (inverse_video)
    turn_on_highlight ();
  else
    turn_off_highlight ();
}

      while (--i >= 0)
	OUTPUTL (scroll, specified_window - vpos);
      set_scroll_region (0, specified_window);
    }

  if (!scroll_region_ok && memory_below_frame && n < 0)
    {
      cursor_to (FRAME_HEIGHT (sf) + n, 0);
      clear_to_end ();
    }

  if (face->tty_blinking_p
      && MAY_USE_WITH_COLORS_P (NC_BLINK))
    OUTPUT1_IF (TS_enter_blink_mode);

  if (face->tty_underline_p && MAY_USE_WITH_COLORS_P (NC_UNDERLINE))
    OUTPUT1_IF (TS_enter_underline_mode);

  if (TN_max_colors > 0)
    {
      char *p;

      /* 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)
	OUTPUT_IF (TS_exit_underline_mode);
    }

  /* Switch back to default colors.  */
  if (TN_max_colors > 0

  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);
  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);

  must_write_spaces = tgetflag ("in");
  meta_key = tgetflag ("km") || tgetflag ("MT");
  TF_insmode_motion = tgetflag ("mi");
  TF_standout_motion = tgetflag ("ms");
  TF_underscore = tgetflag ("ul");
  TF_teleray = tgetflag ("xt");

  term_get_fkeys (address);

  /* Get frame size from system, or else from termcap.  */

  if (FRAME_HEIGHT (sf) < 3 || FRAME_WIDTH (sf) < 3)
    fatal ("Screen size %dx%d is too small",
	   FRAME_HEIGHT (sf), FRAME_WIDTH (sf));

  min_padding_speed = tgetnum ("pb");
  TabWidth = tgetnum ("tw");

#ifdef VMS
  /* These capabilities commonly use ^J.
     I don't know why, but sending them on VMS does not work;

   and newer termcap doc does not seem to say there is a default.
  if (!Wcm.cm_tab)
    Wcm.cm_tab = "\t";
*/

  /* We don't support standout modes that use `magic cookies', so
     turn off any that do.  */
  if (TS_standout_mode && tgetnum ("sg") >= 0)
    {
      TS_standout_mode = 0;
      TS_end_standout_mode = 0;
    }
  if (TS_enter_underline_mode && tgetnum ("ug") >= 0)
    {
      TS_enter_underline_mode = 0;
      TS_exit_underline_mode = 0;
    }

  /* If there's no standout mode, try to use underlining instead.  */
  if (TS_standout_mode == 0)
    {
      TS_standout_mode = TS_enter_underline_mode;
      TS_end_standout_mode = 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 (TS_end_standout_mode == 0)

    }

  if (TF_teleray)
    {
      Wcm.cm_tab = 0;
      /* We can't support standout mode, because it uses magic cookies.  */
      TS_standout_mode = 0;
      /* But that means we cannot rely on ^M to go to column zero! */
      CR = 0;
      /* LF can't be trusted either -- can alter hpos */
      /* if move at column 0 thru a line with TS_standout_mode */
      Down = 0;

  se_is_so = (TS_standout_mode
	      && TS_end_standout_mode
	      && !strcmp (TS_standout_mode, TS_end_standout_mode));

  UseTabs = tabs_safe_p () && TabWidth == 8;

  scroll_region_ok
    = (Wcm.cm_abs
       && (TS_set_window || TS_set_scroll_region || TS_set_scroll_region_1));