comparison src/term.c @ 53226:dd3018b4785b

Implemented multiple tty support. README.multi-tty: New file. src/termchar.h (struct terminal): Renamed to struct tty_output. Added name, type, input, output, termscript, old_tty, term_initted, old_tty_valid, background_pixel, foreground_pixel, next fields. (TERMINAL_*): Renamed to TTY_* for brevity. (CURRENT_TERMINAL): Renamed to CURTTY for brevity. (tty_list): New variable. (TERMINAL_PTR): Removed. (FRAME_TTY): New function. (TTY_NAME, TTY_TYPE): New macros. src/term.c (current_terminal): Removed. (_current_terminal): Removed. (tty_list): New variable. (OUTPUT, OUTPUT1, OUTPUTL, OUTPUT_IF, OUTPUT1_IF): Added tty parameter. (set_terminal_modes): Added tty parameter. (reset_terminal_modes): Added tty parameter. (cursor_to, raw_cursor_to): Updated cmgoto() calls. (clear_end_of_line, write_glyphs): Add indirection to terminal output, updated cmcheckmagic() calls. (get_named_tty): New function. (term_dummy_init): New function. (term_init): Added name parameter, added tty_output return value. Changed algorithm to update tty_list. Call init_sys_modes() to set up tty mode on the newly opened terminal device. (get_current_tty): New function, intended for debugging. src/termhooks.h (termscript): Removed. src/w32term.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Removed redundant definition. src/macterm.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Ditto. src/window.c (init_window_once): Call make_terminal_frame with two zero parameters. src/cm.h (emacs_tputs): New macro to set current_tty, and then call tputs(). (current_tty): New variable, for cmputc(). (cmcheckmagic, cmputc, cmgoto): Added prototypes. src/cm.c (current_tty): New variable, for cmputc(). (cmputc): Use it. (cmcheckmagic): Added tty parameter, look up terminal streams there. (calccost): Added tty parameter. Use emacs_tputs() instead of tputs(). (cmgoto): Added tty parameter. Pass it on to calccost(). Use emacs_tputs() instead of tputs(). src/dispextern.h (set_terminal_modes, reset_terminal_modes): Added tty parameter. (term_init): Added name parameter (the filename of the terminal device). Added return value (struct tty_output). src/dispnew.c: Replace CURTTY() with local variables throughout the file (where applicable). (termscript): Moved to struct tty_output. (terminal_type): Removed. src/emacs.c (main): Don't call init_sys_modes(), the new term_init() already does that during init_display(). (shut_down_emacs): Call reset_all_sys_modes() instead of reset_sys_modes(). src/frame.c (Qtty, Qtty_type): New variables. (syms_of_frame): Initialize them. (tty_display): Removed. (make_terminal_frame): New parameters (tty filename and type). Initialize output_data.tty field instead of output_data.x. Use term_init() to find the right tty_output. (Use term_dummy_init() during bootstrap.) (Fmake_terminal_frame): Get device filename and type from frame parameters. src/frame.h (FRAME_FOREGROUND_PIXEL, FRAME_BACKGROUND_PIXEL): Do the right thing if the frame is a tty. (struct frame): New member in output_data: tty. (make_terminal_frame): Updated of prototype. src/keyboard.c (Fset_input_mode): Call reset_all_sys_modes(), not reset_sys_modes(). Ditto with init_sys_modes(). src/lisp.h (tty_output): Added forward declaration. (init_sys_modes, reset_sys_modes): Updated prototype. (init_all_sys_modes, reset_all_sys_modes): New prototypes. src/scroll.c: Replace CURTTY() with local variables throughout the file (where applicable). src/sysdep.c (old_tty, term_initted, old_tty_valid): Moved to struct tty_output.( (init_all_sys_modes): New function. (init_sys_modes): Added tty_output parameter. Use it. (reset_all_sys_modes): New function. (reset_sys_modes): Added tty_output parameter. Use it. src/Makefile.in: Update dependencies. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-2

53225:4250e7e26247

#include <config.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>

#include "termchar.h"
#include "termopts.h"
#include "lisp.h"
#include "charset.h"
#include "coding.h"

#endif
#ifdef MAC_OS
#include "macterm.h"
#endif

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 OUTPUT(a) \
     tputs (a, (int) (FRAME_LINES (XFRAME (selected_frame)) - curY), cmputc)
#define OUTPUT1(a) tputs (a, 1, cmputc)
#define OUTPUTL(a, lines) tputs (a, lines, cmputc)

#define OUTPUT_IF(a)							\
     do {								\
       if (a)								\
         tputs (a, (int) (FRAME_LINES (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. */
static struct terminal _current_terminal;
TERMINAL_PTR current_terminal = &_current_terminal;

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

      Vring_bell_function = function;
    }
  else if (!FRAME_TERMCAP_P (XFRAME (selected_frame)))
    (*ring_bell_hook) ();
  else
    OUTPUT (TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
}

void
set_terminal_modes ()
{
  if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
    {
      OUTPUT_IF (TS_termcap_modes);
      OUTPUT_IF (TS_cursor_visible);
      OUTPUT_IF (TS_keypad_mode);
      losecursor ();
    }
  else
    (*set_terminal_modes_hook) ();
}

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

     int size;
{
  if (FRAME_TERMCAP_P (updating_frame))
    {
      specified_window = size ? size : FRAME_LINES (updating_frame);
      if (TERMINAL_SCROLL_REGION_OK (CURRENT_TERMINAL ()))
	set_scroll_region (0, specified_window);
    }
  else
    set_terminal_window_hook (size);
}

		  FRAME_LINES (sf) - stop,
		  FRAME_LINES (sf));
  else
    buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_COLS (sf));

  OUTPUT (buf);
  xfree (buf);
  losecursor ();
}


static void
turn_on_insert ()
{
  if (!insert_mode)
    OUTPUT (TS_insert_mode);
  insert_mode = 1;
}

void
turn_off_insert ()
{
  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 ()

tty_hide_cursor ()
{
  if (tty_cursor_hidden == 0)
    {
      tty_cursor_hidden = 1;
      OUTPUT_IF (TS_cursor_invisible);
    }
}


/* Ensure that cursor is visible.  */

tty_show_cursor ()
{
  if (tty_cursor_hidden)
    {
      tty_cursor_hidden = 0;
      OUTPUT_IF (TS_cursor_normal);
      OUTPUT_IF (TS_cursor_visible);
    }
}


/* Set standout mode to the state it should be in for

    return;
  if (!TF_standout_motion)
    background_highlight ();
  if (!TF_insmode_motion)
    turn_off_insert ();
  cmgoto (vpos, hpos);
}

/* Similar but don't take any account of the wasted characters.  */

void

    return;
  if (!TF_standout_motion)
    background_highlight ();
  if (!TF_insmode_motion)
    turn_off_insert ();
  cmgoto (row, col);
}

/* Erase operations */

/* clear from cursor to end of frame */

      return;
    }
  if (TS_clr_to_bottom)
    {
      background_highlight ();
      OUTPUT (TS_clr_to_bottom);
    }
  else
    {
      for (i = curY; i < FRAME_LINES (XFRAME (selected_frame)); i++)
	{

      return;
    }
  if (TS_clr_frame)
    {
      background_highlight ();
      OUTPUT (TS_clr_frame);
      cmat (0, 0);
    }
  else
    {
      cursor_to (0, 0);

  if (curX >= first_unused_hpos)
    return;
  background_highlight ();
  if (TS_clr_line)
    {
      OUTPUT1 (TS_clr_line);
    }
  else
    {			/* have to do it the hard way */
      struct frame *sf = XFRAME (selected_frame);
      turn_off_insert ();

	  && first_unused_hpos == FRAME_COLS (sf))
	first_unused_hpos--;

      for (i = curX; i < first_unused_hpos; i++)
	{
	  if (termscript)
	    fputc (' ', termscript);
	  putchar (' ');
	}
      cmplus (first_unused_hpos - curX);
    }
}


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

      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, terminal_coding.produced,
		    termscript);
	}
    }

  cmcheckmagic ();
}

/* If start is zero, insert blanks instead of a string at start */

void

  f = updating_frame ? updating_frame : sf;

  if (TS_ins_multi_chars)
    {
      buf = tparam (TS_ins_multi_chars, 0, 0, len);
      OUTPUT1 (buf);
      xfree (buf);
      if (start)
	write_glyphs (start, len);
      return;
    }

    {
      int produced, consumed;
      unsigned char conversion_buffer[1024];
      int conversion_buffer_size = sizeof conversion_buffer;

      OUTPUT1_IF (TS_ins_char);
      if (!start)
	{
	  conversion_buffer[0] = SPACEGLYPH;
	  produced = 1;
	}

	  ++start;
	  /* We must open sufficient space for a character which
	     occupies more than one column.  */
	  while (len && CHAR_GLYPH_PADDING_P (*start))
	    {
	      OUTPUT1_IF (TS_ins_char);
	      start++, len--;
	    }

	  if (len <= 0)
	    /* This is the last glyph.  */

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

      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;

      turn_on_insert ();
    }
  else
    {
      turn_off_insert ();
      OUTPUT_IF (TS_delete_mode);
    }

  if (TS_del_multi_chars)
    {
      buf = tparam (TS_del_multi_chars, 0, 0, n);
      OUTPUT1 (buf);
      xfree (buf);
    }
  else
    for (i = 0; i < n; i++)
      OUTPUT1 (TS_del_char);
  if (!delete_in_insert_mode)
    OUTPUT_IF (TS_end_delete_mode);
}

/* Insert N lines at vpos VPOS.  If N is negative, delete -N lines.  */

void

     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 (TERMINAL_SCROLL_REGION_OK (CURRENT_TERMINAL ())
      && vpos + i >= specified_window)
    return;
  if (!TERMINAL_MEMORY_BELOW_FRAME (CURRENT_TERMINAL ())
      && vpos + i >= FRAME_LINES (sf))
    return;

  if (multi)
    {
      raw_cursor_to (vpos, 0);
      background_highlight ();
      buf = tparam (multi, 0, 0, i);
      OUTPUT (buf);
      xfree (buf);
    }
  else if (single)
    {
      raw_cursor_to (vpos, 0);
      background_highlight ();
      while (--i >= 0)
	OUTPUT (single);
      if (TF_teleray)
	curX = 0;
    }
  else
    {

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

  if (!TERMINAL_SCROLL_REGION_OK (CURRENT_TERMINAL ())
      && TERMINAL_MEMORY_BELOW_FRAME (CURRENT_TERMINAL ())
      && n < 0)
    {
      cursor_to (FRAME_LINES (sf) + n, 0);
      clear_to_end ();
    }

		      ? TS_set_scroll_region
		      : TS_set_scroll_region_1);

  FRAME_COST_BAUD_RATE (frame) = baud_rate;

  TERMINAL_SCROLL_REGION_COST (CURRENT_TERMINAL ()) = string_cost (f);

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

    }

  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 && MAY_USE_WITH_COLORS_P (NC_UNDERLINE))
    OUTPUT1_IF (TS_enter_underline_mode);

  if (TN_max_colors > 0)
    {
      char *p;

      if (fg >= 0 && TS_set_foreground)
	{
	  p = tparam (TS_set_foreground, NULL, 0, (int) fg);
	  OUTPUT (p);
	  xfree (p);
	}

      if (bg >= 0 && TS_set_background)
	{
	  p = tparam (TS_set_background, NULL, 0, (int) bg);
	  OUTPUT (p);
	  xfree (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)
	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 on frame F supports all of the
   capabilities in CAPS simultaneously, with foreground and background

}

#endif /* !WINDOWSNT */


/***********************************************************************
			    Initialization
 ***********************************************************************/

void
term_init (terminal_type)
     char *terminal_type;
{
  char *area;
  char **address = &area;
  char *buffer = NULL;
  int buffer_size = 4096;
  register char *p;
  int status;
  struct frame *sf = XFRAME (selected_frame);

#ifdef WINDOWSNT
  initialize_w32_display ();

  Wcm_clear ();

  specified_window = FRAME_LINES (sf);

  delete_in_insert_mode = 1;

  UseTabs = 0;
  TERMINAL_SCROLL_REGION_OK (CURRENT_TERMINAL ()) = 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.  */

  TERMINAL_LINE_INS_DEL_OK (CURRENT_TERMINAL ()) = 0;
  TERMINAL_CHAR_INS_DEL_OK (CURRENT_TERMINAL ()) = 1;

  baud_rate = 19200;

  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;
#else  /* not WINDOWSNT */

  Wcm_clear ();

  buffer = (char *) xmalloc (buffer_size);
  status = tgetent (buffer, terminal_type);
  if (status < 0)
    {

      fatal ("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\
to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
	     terminal_type);
#else
      fatal ("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\
to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
	     terminal_type);
#endif
    }

#ifndef TERMINFO
  if (strlen (buffer) >= buffer_size)

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

  tty_default_color_capabilities (1);

  MagicWrap = tgetflag ("xn");
  /* Since we make MagicWrap terminals look like AutoWrap, we need to have
     the former flag imply the latter.  */
  AutoWrap = MagicWrap || tgetflag ("am");
  TERMINAL_MEMORY_BELOW_FRAME (CURRENT_TERMINAL ()) = tgetflag ("db");
  TF_hazeltine = tgetflag ("hz");
  TERMINAL_MUST_WRITE_SPACES (CURRENT_TERMINAL ()) = 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");

  if (FRAME_LINES (sf) <= 0)
    FRAME_LINES (sf) = tgetnum ("li");

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

#if 0  /* This is not used anywhere. */
  TERMINAL_MIN_PADDING_SPEED (CURRENT_TERMINAL ()) = tgetnum ("pb");
#endif
  
  TabWidth = tgetnum ("tw");

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

     If that fails, we can't use standout mode at all.  */
  if (TS_end_standout_mode == 0)
    {
      char *s = tgetstr ("me", address);
      if (s != 0)
	TS_end_standout_mode = s;
      else
	TS_standout_mode = 0;
    }

  if (TF_teleray)
    {
      Wcm.cm_tab = 0;

  /* Special handling for certain terminal types known to need it */

  if (!strcmp (terminal_type, "supdup"))
    {
      TERMINAL_MEMORY_BELOW_FRAME (CURRENT_TERMINAL ()) = 1;
      Wcm.cm_losewrap = 1;
    }
  if (!strncmp (terminal_type, "c10", 3)
      || !strcmp (terminal_type, "perq"))
    {
      /* Supply a makeshift :wi string.
	 This string is not valid in general since it works only
	 for windows starting at the upper left corner;
	 but that is all Emacs uses.

	 This string works only if the frame is using
	 the top of the video memory, because addressing is memory-relative.
	 So first check the :ti string to see if that is true.

	 It would be simpler if the :wi string could go in the termcap

	    p++;
	  if (*p)
	    TS_set_window = "\033v%C %C %C %C ";
	}
      /* Termcap entry often fails to have :in: flag */
      TERMINAL_MUST_WRITE_SPACES (CURRENT_TERMINAL ()) = 1;
      /* :ti string typically fails to have \E^G! in it */
      /* This limits scope of insert-char to one line.  */
      strcpy (area, TS_termcap_modes);
      strcat (area, "\033\007!");
      TS_termcap_modes = area;
      area += strlen (area) + 1;
      p = AbsPosition;
      /* Change all %+ parameters to %C, to handle
	 values above 96 correctly for the C100.  */
      while (*p)
	{
	  if (p[0] == '%' && p[1] == '+')
	    p[1] = 'C';
	  p++;
	}
    }

  FrameRows = FRAME_LINES (sf);
  FrameCols = FRAME_COLS (sf);
  specified_window = FRAME_LINES (sf);

DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
           terminal_type);
#else /* not VMS */
# ifdef TERMINFO
    fatal ("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\
to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
	   terminal_type);
# else /* TERMCAP */
    fatal ("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\
to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
	   terminal_type);
# endif /* TERMINFO */
#endif /*VMS */
  if (FRAME_LINES (sf) <= 0
      || FRAME_COLS (sf) <= 0)
    fatal ("The frame size has not been specified");

  delete_in_insert_mode
    = TS_delete_mode && TS_insert_mode
      && !strcmp (TS_delete_mode, TS_insert_mode);

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

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

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

  TERMINAL_LINE_INS_DEL_OK (CURRENT_TERMINAL ())
    = (((TS_ins_line || TS_ins_multi_lines)
        && (TS_del_line || TS_del_multi_lines))
       || (TERMINAL_SCROLL_REGION_OK (CURRENT_TERMINAL ())
           && TS_fwd_scroll && TS_rev_scroll));
  
  TERMINAL_CHAR_INS_DEL_OK (CURRENT_TERMINAL ())
    = ((TS_ins_char || TS_insert_mode
        || TS_pad_inserted_char || TS_ins_multi_chars)
       && (TS_del_char || TS_del_multi_chars));

  TERMINAL_FAST_CLEAR_END_OF_LINE (CURRENT_TERMINAL ()) = TS_clr_line != 0;

  init_baud_rate ();
  if (read_socket_hook)		/* Baudrate is somewhat */
				/* meaningless in this case */
    baud_rate = 9600;

  FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
#endif /* WINDOWSNT */

  xfree (buffer);
}

/* VARARGS 1 */
void
fatal (str, arg1, arg2)

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
}

/* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
   (do not change this comment) */

53226:dd3018b4785b

#include <config.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>

#include <sys/file.h>

#include "systty.h" /* For emacs_tty in termchar.h */
#include "termchar.h"
#include "termopts.h"
#include "lisp.h"
#include "charset.h"
#include "coding.h"

#endif
#ifdef MAC_OS
#include "macterm.h"
#endif

#ifndef O_RDWR
#define O_RDWR 2
#endif

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 OUTPUT(tty, a) \
    emacs_tputs ((tty), a, (int) (FRAME_LINES (XFRAME (selected_frame)) - curY), 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)                                                           \
         emacs_tputs ((tty), a, (int) (FRAME_LINES (XFRAME (selected_frame)) \
			  - curY), cmputc);				\
     } while (0)

#define OUTPUT1_IF(tty, a) do { if (a) emacs_tputs ((tty), 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. */

struct tty_output *tty_list;

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

      Vring_bell_function = function;
    }
  else if (!FRAME_TERMCAP_P (XFRAME (selected_frame)))
    (*ring_bell_hook) ();
  else {
    OUTPUT (CURTTY (), TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
  }
}

void
set_terminal_modes (struct tty_output *tty)
{
  if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
    {
      OUTPUT_IF (tty, TS_termcap_modes);
      OUTPUT_IF (tty, TS_cursor_visible);
      OUTPUT_IF (tty, TS_keypad_mode);
      losecursor ();
    }
  else
    (*set_terminal_modes_hook) ();
}

void
reset_terminal_modes (struct tty_output *tty)
{
  if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
    {
      turn_off_highlight ();
      turn_off_insert ();
      OUTPUT_IF (tty, TS_end_keypad_mode);
      OUTPUT_IF (tty, TS_cursor_normal);
      OUTPUT_IF (tty, TS_end_termcap_modes);
      OUTPUT_IF (tty, TS_orig_pair);
      /* Output raw CR so kernel can track the cursor hpos.  */
      current_tty = tty;
      cmputc ('\r');
    }
  else if (reset_terminal_modes_hook)
    (*reset_terminal_modes_hook) ();
}

     int size;
{
  if (FRAME_TERMCAP_P (updating_frame))
    {
      specified_window = size ? size : FRAME_LINES (updating_frame);
      if (TTY_SCROLL_REGION_OK (FRAME_TTY (updating_frame)))
	set_scroll_region (0, specified_window);
    }
  else
    set_terminal_window_hook (size);
}

		  FRAME_LINES (sf) - stop,
		  FRAME_LINES (sf));
  else
    buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_COLS (sf));

  OUTPUT (CURTTY (), buf);
  xfree (buf);
  losecursor ();
}


static void
turn_on_insert ()
{
  if (!insert_mode)
    OUTPUT (CURTTY (), TS_insert_mode);
  insert_mode = 1;
}

void
turn_off_insert ()
{
  if (insert_mode)
    OUTPUT (CURTTY (), TS_end_insert_mode);
  insert_mode = 0;
}

/* Handle highlighting.  */

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

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

static void
toggle_highlight ()

tty_hide_cursor ()
{
  if (tty_cursor_hidden == 0)
    {
      tty_cursor_hidden = 1;
      OUTPUT_IF (CURTTY (), TS_cursor_invisible);
    }
}


/* Ensure that cursor is visible.  */

tty_show_cursor ()
{
  if (tty_cursor_hidden)
    {
      tty_cursor_hidden = 0;
      OUTPUT_IF (CURTTY (), TS_cursor_normal);
      OUTPUT_IF (CURTTY (), TS_cursor_visible);
    }
}


/* Set standout mode to the state it should be in for

    return;
  if (!TF_standout_motion)
    background_highlight ();
  if (!TF_insmode_motion)
    turn_off_insert ();
  cmgoto (FRAME_TTY (f), vpos, hpos);
}

/* Similar but don't take any account of the wasted characters.  */

void

    return;
  if (!TF_standout_motion)
    background_highlight ();
  if (!TF_insmode_motion)
    turn_off_insert ();
  cmgoto (FRAME_TTY (f), row, col);
}

/* Erase operations */

/* clear from cursor to end of frame */

      return;
    }
  if (TS_clr_to_bottom)
    {
      background_highlight ();
      OUTPUT (CURTTY (), TS_clr_to_bottom);
    }
  else
    {
      for (i = curY; i < FRAME_LINES (XFRAME (selected_frame)); i++)
	{

      return;
    }
  if (TS_clr_frame)
    {
      background_highlight ();
      OUTPUT (FRAME_TTY (updating_frame ? updating_frame : sf), TS_clr_frame);
      cmat (0, 0);
    }
  else
    {
      cursor_to (0, 0);

  if (curX >= first_unused_hpos)
    return;
  background_highlight ();
  if (TS_clr_line)
    {
      OUTPUT1 (CURTTY (), TS_clr_line);
    }
  else
    {			/* have to do it the hard way */
      struct frame *sf = XFRAME (selected_frame);
      turn_off_insert ();

	  && first_unused_hpos == FRAME_COLS (sf))
	first_unused_hpos--;

      for (i = curX; i < first_unused_hpos; i++)
	{
	  if (TTY_TERMSCRIPT (CURTTY ()))
	    fputc (' ', TTY_TERMSCRIPT (CURTTY ()));
	  fputc (' ', TTY_OUTPUT (CURTTY ()));
	}
      cmplus (first_unused_hpos - curX);
    }
}


	  produced = encode_terminal_code (string, conversion_buffer,
					   n, conversion_buffer_size,
					   &consumed);
	  if (produced > 0)
	    {
	      fwrite (conversion_buffer, 1, produced,
                      TTY_OUTPUT (FRAME_TTY (f)));
	      if (ferror (TTY_OUTPUT (FRAME_TTY (f))))
		clearerr (TTY_OUTPUT (FRAME_TTY (f)));
	      if (TTY_TERMSCRIPT (FRAME_TTY (f)))
		fwrite (conversion_buffer, 1, produced,
                        TTY_TERMSCRIPT (FRAME_TTY (f)));
	    }
	  len -= consumed;
	  n -= consumed;
	  string += consumed;
	}

      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,
                  TTY_OUTPUT (FRAME_TTY (f)));
	  if (ferror (TTY_OUTPUT (FRAME_TTY (f))))
	    clearerr (TTY_OUTPUT (FRAME_TTY (f)));
	  if (TTY_TERMSCRIPT (FRAME_TTY (f)))
	    fwrite (conversion_buffer, 1, terminal_coding.produced,
		    TTY_TERMSCRIPT (FRAME_TTY (f)));
	}
    }

  cmcheckmagic (FRAME_TTY (f));
}

/* If start is zero, insert blanks instead of a string at start */

void

  f = updating_frame ? updating_frame : sf;

  if (TS_ins_multi_chars)
    {
      buf = tparam (TS_ins_multi_chars, 0, 0, len);
      OUTPUT1 (FRAME_TTY (f), buf);
      xfree (buf);
      if (start)
	write_glyphs (start, len);
      return;
    }

    {
      int produced, consumed;
      unsigned char conversion_buffer[1024];
      int conversion_buffer_size = sizeof conversion_buffer;

      OUTPUT1_IF (FRAME_TTY (f), TS_ins_char);
      if (!start)
	{
	  conversion_buffer[0] = SPACEGLYPH;
	  produced = 1;
	}

	  ++start;
	  /* We must open sufficient space for a character which
	     occupies more than one column.  */
	  while (len && CHAR_GLYPH_PADDING_P (*start))
	    {
	      OUTPUT1_IF (FRAME_TTY (f), TS_ins_char);
	      start++, len--;
	    }

	  if (len <= 0)
	    /* This is the last glyph.  */

					   conversion_buffer_size, &consumed);
	}

      if (produced > 0)
	{
	  fwrite (conversion_buffer, 1, produced,
                  TTY_OUTPUT (FRAME_TTY (f)));
	  if (ferror (TTY_OUTPUT (FRAME_TTY (f))))
	    clearerr (TTY_OUTPUT (FRAME_TTY (f)));
	  if (TTY_TERMSCRIPT (FRAME_TTY (f)))
	    fwrite (conversion_buffer, 1, produced,
                    TTY_TERMSCRIPT (FRAME_TTY (f)));
	}

      OUTPUT1_IF (FRAME_TTY (f), TS_pad_inserted_char);
      if (start)
	{
	  turn_off_face (f, glyph->face_id);
	  turn_off_highlight ();
	}
    }

  cmcheckmagic (FRAME_TTY (f));
}

void
delete_glyphs (n)
     register int n;

      turn_on_insert ();
    }
  else
    {
      turn_off_insert ();
      OUTPUT_IF (FRAME_TTY (updating_frame), TS_delete_mode);
    }

  if (TS_del_multi_chars)
    {
      buf = tparam (TS_del_multi_chars, 0, 0, n);
      OUTPUT1 (FRAME_TTY (updating_frame), buf);
      xfree (buf);
    }
  else
    for (i = 0; i < n; i++)
      OUTPUT1 (FRAME_TTY (updating_frame), TS_del_char);
  if (!delete_in_insert_mode)
    OUTPUT_IF (FRAME_TTY (updating_frame), TS_end_delete_mode);
}

/* Insert N lines at vpos VPOS.  If N is negative, delete -N lines.  */

void

     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 (TTY_SCROLL_REGION_OK (FRAME_TTY (sf))
      && vpos + i >= specified_window)
    return;
  if (!TTY_MEMORY_BELOW_FRAME (FRAME_TTY (sf))
      && vpos + i >= FRAME_LINES (sf))
    return;

  if (multi)
    {
      raw_cursor_to (vpos, 0);
      background_highlight ();
      buf = tparam (multi, 0, 0, i);
      OUTPUT (FRAME_TTY (sf), buf);
      xfree (buf);
    }
  else if (single)
    {
      raw_cursor_to (vpos, 0);
      background_highlight ();
      while (--i >= 0)
	OUTPUT (FRAME_TTY (sf), single);
      if (TF_teleray)
	curX = 0;
    }
  else
    {

	raw_cursor_to (specified_window - 1, 0);
      else
	raw_cursor_to (vpos, 0);
      background_highlight ();
      while (--i >= 0)
	OUTPUTL (FRAME_TTY (sf), scroll, specified_window - vpos);
      set_scroll_region (0, specified_window);
    }

  if (!TTY_SCROLL_REGION_OK (FRAME_TTY (sf))
      && TTY_MEMORY_BELOW_FRAME (FRAME_TTY (sf))
      && n < 0)
    {
      cursor_to (FRAME_LINES (sf) + n, 0);
      clear_to_end ();
    }

		      ? TS_set_scroll_region
		      : TS_set_scroll_region_1);

  FRAME_COST_BAUD_RATE (frame) = baud_rate;

  if (FRAME_TERMCAP_P (frame))
    TTY_SCROLL_REGION_COST (frame->output_data.tty) = string_cost (f);

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

    }

  if (face->tty_bold_p)
    {
      if (MAY_USE_WITH_COLORS_P (NC_BOLD))
	OUTPUT1_IF (FRAME_TTY (f), TS_enter_bold_mode);
    }
  else if (face->tty_dim_p)
    if (MAY_USE_WITH_COLORS_P (NC_DIM))
      OUTPUT1_IF (FRAME_TTY (f), 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 (FRAME_TTY (f), TS_enter_alt_charset_mode);

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

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

  if (TN_max_colors > 0)
    {
      char *p;

      if (fg >= 0 && TS_set_foreground)
	{
	  p = tparam (TS_set_foreground, NULL, 0, (int) fg);
	  OUTPUT (FRAME_TTY (f), p);
	  xfree (p);
	}

      if (bg >= 0 && TS_set_background)
	{
	  p = tparam (TS_set_background, NULL, 0, (int) bg);
	  OUTPUT (FRAME_TTY (f), p);
	  xfree (p);
	}
    }
}

	  || face->tty_reverse_p
	  || face->tty_alt_charset_p
	  || face->tty_blinking_p
	  || face->tty_underline_p)
	{
	  OUTPUT1_IF (FRAME_TTY (f), 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 (FRAME_TTY (f), 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 (FRAME_TTY (f), TS_exit_alt_charset_mode);

      if (face->tty_underline_p)
	OUTPUT_IF (FRAME_TTY (f), 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 (FRAME_TTY (f), TS_orig_pair);
}


/* Return non-zero if the terminal on frame F supports all of the
   capabilities in CAPS simultaneously, with foreground and background

}

#endif /* !WINDOWSNT */



struct tty_output *
get_named_tty (name)
     char *name;
{
  struct tty_output *tty = tty_list;

  while (tty) {
    if ((tty->name == 0 && name == 0)
        || (name && tty->name && !strcmp (tty->name, name)))
      return tty;
    tty = tty->next;
  };

  return 0;
}


/***********************************************************************
			    Initialization
 ***********************************************************************/

struct tty_output *
term_dummy_init (void)
{
  if (initialized || tty_list)
    error ("tty already initialized");

  tty_list = xmalloc (sizeof (struct tty_output));
  bzero (tty_list, sizeof (struct tty_output));
  TTY_NAME (tty_list) = 0;
  TTY_INPUT (tty_list) = stdin;
  TTY_OUTPUT (tty_list) = stdout;
  return tty_list;
}


struct tty_output *
term_init (name, terminal_type)
     char *name;
     char *terminal_type;
{
  char *area;
  char **address = &area;
  char *buffer = NULL;
  int buffer_size = 4096;
  register char *p;
  int status;
  struct frame *sf = XFRAME (selected_frame);

  struct tty_output *tty;

  tty = get_named_tty (name);
  if (tty)
    {
      /* Return the previously initialized terminal, except if it is the dummy
         terminal created for the initial frame. */
      if (tty->type)
        return tty;
    }
  else
    {
      if (!terminal_type)
        error ("Unknown terminal type");

      tty = (struct tty_output *) xmalloc (sizeof (struct tty_output));
      bzero (tty, sizeof (struct tty_output));
      tty->next = tty_list;
      tty_list = tty;
    }

  if (name)
    {
      int fd;
      FILE *f;
      fd = emacs_open (name, O_RDWR, 0);
      if (fd < 0)
        {
          tty_list = tty->next;
          xfree (tty);
          error ("could not open file: %s", name);
        }
      f = fdopen (fd, "w+");
      TTY_NAME (tty) = xstrdup (name);
      TTY_INPUT (tty) = f;
      TTY_OUTPUT (tty) = f;
    }
  else
    {
      TTY_NAME (tty) = 0;
      TTY_INPUT (tty) = stdin;
      TTY_OUTPUT (tty) = stdout;
    }

  init_sys_modes (tty);

#ifdef WINDOWSNT
  initialize_w32_display ();

  Wcm_clear ();

  specified_window = FRAME_LINES (sf);

  delete_in_insert_mode = 1;

  UseTabs = 0;
  TTY_SCROLL_REGION_OK (tty) = 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 (tty) = 0;

  TTY_CHAR_INS_DEL_OK (tty) = 1;

  baud_rate = 19200;

  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 tty;
#else  /* not WINDOWSNT */

  Wcm_clear ();

  TTY_TYPE (tty) = xstrdup (terminal_type);

  buffer = (char *) xmalloc (buffer_size);
  status = tgetent (buffer, terminal_type);
  if (status < 0)
    {

      fatal ("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\
to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
             terminal_type);
#else
      fatal ("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\
to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
             terminal_type);
#endif
    }

#ifndef TERMINFO
  if (strlen (buffer) >= buffer_size)

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

  tty_default_color_capabilities (1);

  MagicWrap = tgetflag ("xn");
  /* Since we make MagicWrap terminals look like AutoWrap, we need to have
     the former flag imply the latter.  */
  AutoWrap = MagicWrap || tgetflag ("am");
  TTY_MEMORY_BELOW_FRAME (tty) = tgetflag ("db");
  TF_hazeltine = tgetflag ("hz");
  TTY_MUST_WRITE_SPACES (tty) = 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");

  if (FRAME_LINES (sf) <= 0)
    FRAME_LINES (sf) = tgetnum ("li");

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

#if 0  /* This is not used anywhere. */
  TTY_MIN_PADDING_SPEED (tty) = tgetnum ("pb");
#endif

  TabWidth = tgetnum ("tw");

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

     If that fails, we can't use standout mode at all.  */
  if (TS_end_standout_mode == 0)
    {
      char *s = tgetstr ("me", address);
      if (s != 0)
        TS_end_standout_mode = s;
      else
        TS_standout_mode = 0;
    }

  if (TF_teleray)
    {
      Wcm.cm_tab = 0;

  /* Special handling for certain terminal types known to need it */

  if (!strcmp (terminal_type, "supdup"))
    {
      TTY_MEMORY_BELOW_FRAME (tty) = 1;
      Wcm.cm_losewrap = 1;
    }
  if (!strncmp (terminal_type, "c10", 3)
      || !strcmp (terminal_type, "perq"))
    {
      /* Supply a makeshift :wi string.
	 This string is not valid in general since it works only
	 for windows starting at the upper left corner;
	 but that is all Emacs uses.
	 
	 This string works only if the frame is using
	 the top of the video memory, because addressing is memory-relative.
	 So first check the :ti string to see if that is true.

	 It would be simpler if the :wi string could go in the termcap

	    p++;
	  if (*p)
	    TS_set_window = "\033v%C %C %C %C ";
	}
      /* Termcap entry often fails to have :in: flag */
      TTY_MUST_WRITE_SPACES (tty) = 1;
      /* :ti string typically fails to have \E^G! in it */
      /* This limits scope of insert-char to one line.  */
      strcpy (area, TS_termcap_modes);
      strcat (area, "\033\007!");
      TS_termcap_modes = area;
      area += strlen (area) + 1;
      p = AbsPosition;
      /* Change all %+ parameters to %C, to handle
         values above 96 correctly for the C100.  */
      while (*p)
        {
          if (p[0] == '%' && p[1] == '+')
            p[1] = 'C';
          p++;
        }
    }

  FrameRows = FRAME_LINES (sf);
  FrameCols = FRAME_COLS (sf);
  specified_window = FRAME_LINES (sf);

DCL command `SET TERMINAL/DEVICE= ...' for DEC-compatible terminals,\n\
or `define EMACS_TERM \"terminal type\"' for non-DEC terminals.",
           terminal_type);
#else /* not VMS */
# ifdef TERMINFO
  fatal ("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\
to do `unset TERMINFO' (C-shell: `unsetenv TERMINFO') as well.",
         terminal_type);
# else /* TERMCAP */
  fatal ("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\
to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
         terminal_type);
# endif /* TERMINFO */
#endif /*VMS */
  if (FRAME_LINES (sf) <= 0
      || FRAME_COLS (sf) <= 0)
    fatal ("The frame size has not been specified");

  delete_in_insert_mode
    = TS_delete_mode && TS_insert_mode
    && !strcmp (TS_delete_mode, TS_insert_mode);

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

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

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

  TTY_LINE_INS_DEL_OK (tty)
    = (((TS_ins_line || TS_ins_multi_lines)
        && (TS_del_line || TS_del_multi_lines))
       || (TTY_SCROLL_REGION_OK (tty)
           && TS_fwd_scroll && TS_rev_scroll));

  TTY_CHAR_INS_DEL_OK (tty)
    = ((TS_ins_char || TS_insert_mode
        || TS_pad_inserted_char || TS_ins_multi_chars)
       && (TS_del_char || TS_del_multi_chars));

  TTY_FAST_CLEAR_END_OF_LINE (tty) = TS_clr_line != 0;

  init_baud_rate ();
  if (read_socket_hook)		/* Baudrate is somewhat
                                   meaningless in this case */
    baud_rate = 9600;

  FRAME_CAN_HAVE_SCROLL_BARS (sf) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (sf) = vertical_scroll_bar_none;
#endif /* WINDOWSNT */

  xfree (buffer);

  return tty;
}

/* VARARGS 1 */
void
fatal (str, arg1, arg2)

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
}

struct tty_output *
get_current_tty ()
{
  return CURTTY();
}


/* arch-tag: 498e7449-6f2e-45e2-91dd-b7d4ca488193
   (do not change this comment) */