comparison src/term.c @ 82990:2ecd1f669db9

Fixed X support, preliminary support for X-tty combo sessions. lib-src/emacsclient.c (copy_from_to, pty_conversation): Re-added SIGIO hack. (Sigh.) lisp/frame.el (make-frame-on-tty): Use make-terminal-frame, not make-frame. src/dispnew.c (line_hash_code, line_draw_cost): Updated to use the new display_method parameters. (Fredraw_frame): fflush the tty only if f is a termcap frame. (direct_output_for_insert): Updated to use the new display_method parameters. fflush the tty only if f is a termcap frame. (direct_output_forward_char, update_frame_1, scrolling): Ditto. (update_frame_line, Fding, bitch_at_user): Ditto. (Fsend_string_to_terminal): Fail if current frame is not on a tty. (init_display): Frame size change is safe here. src/frame.c (Vterminal_frame): Restored previously deleted variable. (syms_of_frame): Initialize it. (make_terminal_frame): Copy the frame's display_method from tty_display_info. (Fmake_terminal_frame): Enable simultaneous X and tty frames (buggy). (Fredirect_frame_focus): Don't call frame_rehighlight_hook if frame is on a termcap device. src/frame.h (struct frame): Renamed display to display_method. (Vterminal_frame): Re-added declaration. src/keyboard.c (flow_control): Moved to struct tty_display_info. (read_avail_input): Check ttys even if there is a read_socket_hook. (Fset_input_mode): Call reset_sys_modes/init_sys_modes and set flow_control or meta_key only when the frame is a termcap frame. (Fcurrent_input_mode): Handle flow_control and meta_key right on non-termcap frames. src/scroll.c (calculate_scrolling, calculate_direct_scrolling): Update to use the new display_method parameters. (scrolling_1, scroll_cost): Ditto. src/sysdep.c (init_sys_modes, reset_sys_modes): Always set the terminal parameters if tty_out->input is not stdin. Updated to the new location of flow_control. (hft_init): Moved HFT init code to term_init, as it needs the frame. src/term.c (tty_display_method_template): New variable. (update_begin): Added rif hack. (set_terminal_window, ins_del_lines, term_init): Updated to use the new display_method parameters. (insert_glyphs, ins_del_lines): Only call insert_glyphs_hook if the current frame is not on a tty. (calculate_costs): Don't calculate costs if not on a tty. (term_dummy_init): Fixed tty->output initialization. Preallocate Wcm and display_method. (term_init): Allocate & initialize display_method. Blindly fixed WINDOWSNT-specific parts. Added HFT-specific initialization exception from hft_init. (delete_tty): Only delete termcap frames. Free() the display_method. src/termchar.h (struct tty_display_info): Moved high-level terminal characteristics to struct display_method. Added flow_control and display_method members. src/termhooks.h (struct display_method): New struct (renamed from struct device). Added accessor macros. src/window.c (init_window_once): Initialize Vterminal_frame. src/xdisp.c (init_iterator, expose_frame): Added rif hack. (try_window_id): Updated to use the new display_method parameters. src/xfaces.c (realize_basic_faces): Don't call x_update_menu_appearance if the frame is a tty frame. src/xfns.c (Fx_create_frame): Added rif hack. Initialize display_method. (x_create_tip_frame): Initialize display_method. src/xterm.c (x_display_method): New variable. (x_flush, x_frame_of_widget, XTmouse_position): Ignore non-X frames. (x_window_to_scroll_bar, x_window_to_menu_bar): Ditto. (xim_destroy_callback, xim_instantiate_callback): Ditto. (frame_highlight, frame_unhighlight): Added rif hack. (x_initialize): Don't initialize rif. Do initialize x_display_method. src/xterm.h (x_display_method): New declaration. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-30

82989:f3845715a5f6

/* The largest frame height in any call to calculate_costs.  */

int max_frame_lines;

/* Frame currently being redisplayed; 0 if not currently redisplaying.
   (Direct output does not count).  */

FRAME_PTR updating_frame;

void
update_begin (f)
     struct frame *f;
{
  updating_frame = f;
  if (!FRAME_TERMCAP_P (f))
    update_begin_hook (f);
}

void

  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  if (FRAME_TERMCAP_P (f))
    {
      struct tty_display_info *tty = FRAME_TTY (f);
      tty->specified_window = size ? size : FRAME_LINES (f);
      if (TTY_SCROLL_REGION_OK (tty))
	set_scroll_region (0, tty->specified_window);
    }
  else
    set_terminal_window_hook (size);
}

cursor_to (vpos, hpos)
     int vpos, hpos;
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;
  
  if (! FRAME_TERMCAP_P (f) && cursor_to_hook)
    {
      (*cursor_to_hook) (vpos, hpos);
      return;
    }

{
  register int i;

  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;
  
  if (clear_to_end_hook && ! FRAME_TERMCAP_P (f))
    {
      (*clear_to_end_hook) ();
      return;
    }

void
clear_frame ()
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;
  
  if (clear_frame_hook && ! FRAME_TERMCAP_P (f))
    {
      (*clear_frame_hook) ();
      return;
    }

clear_end_of_line (first_unused_hpos)
     int first_unused_hpos;
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;
  
  if (clear_end_of_line_hook
      && ! FRAME_TERMCAP_P (f))
    {
      (*clear_end_of_line_hook) (first_unused_hpos);
      return;
    }

  struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
  struct tty_display_info *tty;
  unsigned char conversion_buffer[1024];
  int conversion_buffer_size = sizeof conversion_buffer;

  if (write_glyphs_hook
      && ! FRAME_TERMCAP_P (f))
    {
      (*write_glyphs_hook) (string, len);
      return;
    }

{
  char *buf;
  struct glyph *glyph = NULL;
  struct frame *f;
  struct tty_display_info *tty;
  
  if (len <= 0)
    return;

  if (insert_glyphs_hook)
    {
      (*insert_glyphs_hook) (start, len);
      return;
    }

  f = (updating_frame ? updating_frame : XFRAME (selected_frame));  
  tty = FRAME_TTY (f);

  if (tty->TS_ins_multi_chars)
    {
      buf = tparam (tty->TS_ins_multi_chars, 0, 0, len);

  else
    {
      turn_off_insert (tty);
      OUTPUT_IF (tty, tty->TS_delete_mode);
    }
  
  if (tty->TS_del_multi_chars)
    {
      buf = tparam (tty->TS_del_multi_chars, 0, 0, n);
      OUTPUT1 (tty, buf);
      xfree (buf);

    {
      struct tty_display_info *tty = FRAME_TTY (f);
      char *multi = n > 0 ? tty->TS_ins_multi_lines : tty->TS_del_multi_lines;
      char *single = n > 0 ? tty->TS_ins_line : tty->TS_del_line;
      char *scroll = n > 0 ? tty->TS_rev_scroll : tty->TS_fwd_scroll;
      
      register int i = n > 0 ? n : -n;
      register char *buf;
      
      /* If the lines below the insertion are being pushed
         into the end of the window, this is the same as clearing;
         and we know the lines are already clear, since the matching
         deletion has already been done.  So can ignore this.  */
      /* If the lines below the deletion are blank lines coming
         out of the end of the window, don't bother,
         as there will be a matching inslines later that will flush them. */
      if (TTY_SCROLL_REGION_OK (tty)
          && vpos + i >= tty->specified_window)
        return;
      if (!TTY_MEMORY_BELOW_FRAME (tty)
          && vpos + i >= FRAME_LINES (f))
        return;
      
      if (multi)
        {
          raw_cursor_to (vpos, 0);
          background_highlight (tty);
          buf = tparam (multi, 0, 0, i);

          background_highlight (tty);
          while (--i >= 0)
            OUTPUTL (tty, scroll, tty->specified_window - vpos);
          set_scroll_region (0, tty->specified_window);
        }
      
      if (!TTY_SCROLL_REGION_OK (tty)
          && TTY_MEMORY_BELOW_FRAME (tty)
          && n < 0)
        {
          cursor_to (FRAME_LINES (f) + n, 0);
          clear_to_end ();
        }

void
calculate_costs (frame)
     FRAME_PTR frame;
{
  struct tty_display_info *tty = FRAME_TTY (frame);
  register char *f = (tty->TS_set_scroll_region
		      ? tty->TS_set_scroll_region
		      : tty->TS_set_scroll_region_1);

  FRAME_COST_BAUD_RATE (frame) = baud_rate;

  if (FRAME_TERMCAP_P (frame))
    TTY_SCROLL_REGION_COST (FRAME_TTY (frame)) = 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
     X turns off char_ins_del_ok. */

  max_frame_lines = max (max_frame_lines, FRAME_LINES (frame));
  max_frame_cols = max (max_frame_cols, FRAME_COLS (frame));

  tty->costs_set = 1;

  if (char_ins_del_vector != 0)
    char_ins_del_vector
      = (int *) xrealloc (char_ins_del_vector,
			  (sizeof (int)
			   + 2 * max_frame_cols * sizeof (int)));
  else
    char_ins_del_vector
      = (int *) xmalloc (sizeof (int)
			 + 2 * max_frame_cols * sizeof (int));

  bzero (char_ins_del_vector, (sizeof (int)
			       + 2 * max_frame_cols * sizeof (int)));

  if (f && (!tty->TS_ins_line && !tty->TS_del_line))
    do_line_insertion_deletion_costs (frame,
				      tty->TS_rev_scroll, tty->TS_ins_multi_lines,
				      tty->TS_fwd_scroll, tty->TS_del_multi_lines,
				      f, f, 1);
  else
    do_line_insertion_deletion_costs (frame,
				      tty->TS_ins_line, tty->TS_ins_multi_lines,
				      tty->TS_del_line, tty->TS_del_multi_lines,
				      0, 0, 1);

  calculate_ins_del_char_costs (frame);

  /* Don't use TS_repeat if its padding is worse than sending the chars */
  if (tty->TS_repeat && per_line_cost (tty->TS_repeat) * baud_rate < 9000)
    tty->RPov = string_cost (tty->TS_repeat);
  else
    tty->RPov = FRAME_COLS (frame) * 2;

  cmcostinit (FRAME_TTY (frame)); /* set up cursor motion costs */
}

struct fkey_table {
  char *cap, *name;
};

       doc: /* Return the type of the TTY device that FRAME is displayed on. */)
  (frame)
     Lisp_Object frame;
{
  struct frame *f;
  
  if (NILP (frame))
    {
      f = XFRAME (selected_frame);
    }
  else

  tty_list = xmalloc (sizeof (struct tty_display_info));
  bzero (tty_list, sizeof (struct tty_display_info));
  tty_list->name = 0;
  tty_list->input = stdin;
  tty_list->input = stdout;
  return tty_list;
}


struct tty_display_info *

      tty->next = tty_list;
      tty_list = tty;
    }

  if (! tty->Wcm)
      tty->Wcm = (struct cm *) xmalloc (sizeof (struct cm));

  /* Make sure the frame is live; if an error happens, it must be
     deleted. */
  f->output_method = output_termcap;
  if (! f->output_data.tty)
    abort ();
  f->output_data.tty->display_info = tty;
  
  if (name)
    {
      int fd;
      FILE *file;
      fd = emacs_open (name, O_RDWR, 0);

    }

  tty->type = xstrdup (terminal_type);

  add_keyboard_wait_descriptor (fileno (tty->input));
  
#ifdef WINDOWSNT
  initialize_w32_display ();

  Wcm_clear (tty);

  area = (char *) xmalloc (2044);

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

  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 (f) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none;

  MagicWrap (tty) = tgetflag ("xn");
  /* Since we make MagicWrap terminals look like AutoWrap, we need to have
     the former flag imply the latter.  */
  AutoWrap (tty) = MagicWrap (tty) || tgetflag ("am");
  TTY_MEMORY_BELOW_FRAME (tty) = tgetflag ("db");
  tty->TF_hazeltine = tgetflag ("hz");
  TTY_MUST_WRITE_SPACES (tty) = tgetflag ("in");
  tty->meta_key = tgetflag ("km") || tgetflag ("MT");
  tty->TF_insmode_motion = tgetflag ("mi");
  tty->TF_standout_motion = tgetflag ("ms");
  tty->TF_underscore = tgetflag ("ul");
  tty->TF_teleray = tgetflag ("xt");

                 FrameCols (tty), FrameRows (tty));
        }
    }

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

  TabWidth (tty) = tgetnum ("tw");

#ifdef VMS

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

  if (!strcmp (terminal_type, "supdup"))
    {
      TTY_MEMORY_BELOW_FRAME (tty) = 1;
      tty->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)
	    tty->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, tty->TS_termcap_modes);
      strcat (area, "\033\007!");
      tty->TS_termcap_modes = area;

to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
             terminal_type);
# endif /* TERMINFO */
#endif /*VMS */
    }
  
  if (FrameRows (tty) <= 0 || FrameCols (tty) <= 0)
    {
      if (name)
        {
          delete_tty (tty);

              && tty->TS_end_standout_mode
              && !strcmp (tty->TS_standout_mode, tty->TS_end_standout_mode));

  UseTabs (tty) = tabs_safe_p (fileno (TTY_INPUT (tty))) && TabWidth (tty) == 8;

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

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

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

  TTY_FAST_CLEAR_END_OF_LINE (tty) = tty->TS_clr_line != 0;

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

  FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none;

  /* Don't do this.  I think termcap may still need the buffer. */
  /* xfree (buffer); */

  tty->top_frame = frame;
  
  /* Init system terminal modes (RAW or CBREAK, etc.).  */
  init_sys_modes (tty);
  
  tty_set_terminal_modes (tty);

  return tty;
#endif /* WINDOWSNT */
}

{
  struct tty_display_info *t;
  char *name = 0;

  CHECK_STRING (tty);
  
  if (SBYTES (tty) > 0)
    {
      name = (char *) alloca (SBYTES (tty) + 1);
      strncpy (name, SDATA (tty), SBYTES (tty));
      name[SBYTES (tty)] = 0;

  t = get_named_tty (name);

  if (! t)
    error ("No such tty device: %s", name);
  
  delete_tty (t);
}

static int deleting_tty = 0;

void
delete_tty (struct tty_display_info *tty)
{
  Lisp_Object tail, frame;
  
  if (deleting_tty)
    /* We get a recursive call when we delete the last frame on this
       tty. */
    return;

  deleting_tty = 1;
  
  if (tty == tty_list)
    tty_list = tty->next;
  else
    {
      struct tty_display_info *p;

    }

  FOR_EACH_FRAME (tail, frame)
    {
      struct frame *f = XFRAME (frame);
      if (FRAME_LIVE_P (f) && FRAME_TTY (f) == tty)
        {
          Fdelete_frame (frame, Qt);
          f->output_data.tty = 0;
        }
    }
  
  reset_sys_modes (tty);

  if (tty->name)
    xfree (tty->name);
  if (tty->type)
    xfree (tty->type);
  
  if (tty->input)
    {
      delete_keyboard_wait_descriptor (fileno (tty->input));
      if (tty->input != stdin)
        fclose (tty->input);
    }
  if (tty->output && tty->output != stdout && tty->output != tty->input)
    fclose (tty->output);
  if (tty->termscript)
    fclose (tty->termscript);
  
  if (tty->old_tty)
    xfree (tty->old_tty);

  if (tty->Wcm)
    xfree (tty->Wcm); 
  
  bzero (tty, sizeof (struct tty_display_info));
  xfree (tty);
  deleting_tty = 0;
}

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
  defsubr (&Sframe_tty_name);
  defsubr (&Sframe_tty_type);
  defsubr (&Sdelete_tty);
  
  Fprovide (intern ("multi-tty"), Qnil);
}

82990:2ecd1f669db9

/* The largest frame height in any call to calculate_costs.  */

int max_frame_lines;

/* A template for tty display methods, with common values
   preinitialized. */
static struct display_method tty_display_method_template;

/* Frame currently being redisplayed; 0 if not currently redisplaying.
   (Direct output does not count).  */

FRAME_PTR updating_frame;

void
update_begin (f)
     struct frame *f;
{
  updating_frame = f;
  /* XXX rif hack */
  rif = f->display_method->rif;
  if (!FRAME_TERMCAP_P (f))
    update_begin_hook (f);
}

void

  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  if (FRAME_TERMCAP_P (f))
    {
      struct tty_display_info *tty = FRAME_TTY (f);
      tty->specified_window = size ? size : FRAME_LINES (f);
      if (FRAME_SCROLL_REGION_OK (f))
	set_scroll_region (0, tty->specified_window);
    }
  else
    set_terminal_window_hook (size);
}

cursor_to (vpos, hpos)
     int vpos, hpos;
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;

  if (! FRAME_TERMCAP_P (f) && cursor_to_hook)
    {
      (*cursor_to_hook) (vpos, hpos);
      return;
    }

{
  register int i;

  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;

  if (clear_to_end_hook && ! FRAME_TERMCAP_P (f))
    {
      (*clear_to_end_hook) ();
      return;
    }

void
clear_frame ()
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;

  if (clear_frame_hook && ! FRAME_TERMCAP_P (f))
    {
      (*clear_frame_hook) ();
      return;
    }

clear_end_of_line (first_unused_hpos)
     int first_unused_hpos;
{
  struct frame *f = (updating_frame ? updating_frame : XFRAME (selected_frame));
  struct tty_display_info *tty;

  if (clear_end_of_line_hook && ! FRAME_TERMCAP_P (f))
    {
      (*clear_end_of_line_hook) (first_unused_hpos);
      return;
    }

  struct frame *f = updating_frame ? updating_frame : XFRAME (selected_frame);
  struct tty_display_info *tty;
  unsigned char conversion_buffer[1024];
  int conversion_buffer_size = sizeof conversion_buffer;

  if (write_glyphs_hook && ! FRAME_TERMCAP_P (f))
    {
      (*write_glyphs_hook) (string, len);
      return;
    }

{
  char *buf;
  struct glyph *glyph = NULL;
  struct frame *f;
  struct tty_display_info *tty;

  if (len <= 0)
    return;

  f = (updating_frame ? updating_frame : XFRAME (selected_frame));

  if (insert_glyphs_hook && ! FRAME_TERMCAP_P (f))
    {
      (*insert_glyphs_hook) (start, len);
      return;
    }

  tty = FRAME_TTY (f);

  if (tty->TS_ins_multi_chars)
    {
      buf = tparam (tty->TS_ins_multi_chars, 0, 0, len);

  else
    {
      turn_off_insert (tty);
      OUTPUT_IF (tty, tty->TS_delete_mode);
    }

  if (tty->TS_del_multi_chars)
    {
      buf = tparam (tty->TS_del_multi_chars, 0, 0, n);
      OUTPUT1 (tty, buf);
      xfree (buf);

    {
      struct tty_display_info *tty = FRAME_TTY (f);
      char *multi = n > 0 ? tty->TS_ins_multi_lines : tty->TS_del_multi_lines;
      char *single = n > 0 ? tty->TS_ins_line : tty->TS_del_line;
      char *scroll = n > 0 ? tty->TS_rev_scroll : tty->TS_fwd_scroll;

      register int i = n > 0 ? n : -n;
      register char *buf;

      /* If the lines below the insertion are being pushed
         into the end of the window, this is the same as clearing;
         and we know the lines are already clear, since the matching
         deletion has already been done.  So can ignore this.  */
      /* If the lines below the deletion are blank lines coming
         out of the end of the window, don't bother,
         as there will be a matching inslines later that will flush them. */
      if (FRAME_SCROLL_REGION_OK (f)
          && vpos + i >= tty->specified_window)
        return;
      if (!FRAME_MEMORY_BELOW_FRAME (f)
          && vpos + i >= FRAME_LINES (f))
        return;

      if (multi)
        {
          raw_cursor_to (vpos, 0);
          background_highlight (tty);
          buf = tparam (multi, 0, 0, i);

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

      if (!FRAME_SCROLL_REGION_OK (f)
          && FRAME_MEMORY_BELOW_FRAME (f)
          && n < 0)
        {
          cursor_to (FRAME_LINES (f) + n, 0);
          clear_to_end ();
        }

void
calculate_costs (frame)
     FRAME_PTR frame;
{
  FRAME_COST_BAUD_RATE (frame) = baud_rate;

  if (FRAME_TERMCAP_P (frame))
    {
      struct tty_display_info *tty = FRAME_TTY (frame);
      register char *f = (tty->TS_set_scroll_region
                          ? tty->TS_set_scroll_region
                          : tty->TS_set_scroll_region_1);

      FRAME_SCROLL_REGION_COST (frame) = string_cost (f);

      tty->costs_set = 1;

      /* These variables are only used for terminal stuff.  They are
         allocated once for the terminal frame of X-windows emacs, but not
         used afterwards.

         char_ins_del_vector (i.e., char_ins_del_cost) isn't used because
         X turns off char_ins_del_ok. */

      max_frame_lines = max (max_frame_lines, FRAME_LINES (frame));
      max_frame_cols = max (max_frame_cols, FRAME_COLS (frame));

      if (char_ins_del_vector != 0)
        char_ins_del_vector
          = (int *) xrealloc (char_ins_del_vector,
                              (sizeof (int)
                               + 2 * max_frame_cols * sizeof (int)));
      else
        char_ins_del_vector
          = (int *) xmalloc (sizeof (int)
                             + 2 * max_frame_cols * sizeof (int));

      bzero (char_ins_del_vector, (sizeof (int)
                                   + 2 * max_frame_cols * sizeof (int)));


      if (f && (!tty->TS_ins_line && !tty->TS_del_line))
        do_line_insertion_deletion_costs (frame,
                                          tty->TS_rev_scroll, tty->TS_ins_multi_lines,
                                          tty->TS_fwd_scroll, tty->TS_del_multi_lines,
                                          f, f, 1);
      else
        do_line_insertion_deletion_costs (frame,
                                          tty->TS_ins_line, tty->TS_ins_multi_lines,
                                          tty->TS_del_line, tty->TS_del_multi_lines,
                                          0, 0, 1);

      calculate_ins_del_char_costs (frame);

      /* Don't use TS_repeat if its padding is worse than sending the chars */
      if (tty->TS_repeat && per_line_cost (tty->TS_repeat) * baud_rate < 9000)
        tty->RPov = string_cost (tty->TS_repeat);
      else
        tty->RPov = FRAME_COLS (frame) * 2;

      cmcostinit (FRAME_TTY (frame)); /* set up cursor motion costs */
    }
}

struct fkey_table {
  char *cap, *name;
};

       doc: /* Return the type of the TTY device that FRAME is displayed on. */)
  (frame)
     Lisp_Object frame;
{
  struct frame *f;

  if (NILP (frame))
    {
      f = XFRAME (selected_frame);
    }
  else

  tty_list = xmalloc (sizeof (struct tty_display_info));
  bzero (tty_list, sizeof (struct tty_display_info));
  tty_list->name = 0;
  tty_list->input = stdin;
  tty_list->output = stdout;
  tty_list->Wcm = (struct cm *) xmalloc (sizeof (struct cm));
  tty_list->display_method = (struct display_method *) xmalloc (sizeof (struct display_method));
  return tty_list;
}


struct tty_display_info *

      tty->next = tty_list;
      tty_list = tty;
    }

  if (! tty->Wcm)
    tty->Wcm = (struct cm *) xmalloc (sizeof (struct cm));

  if (! tty->display_method)
    tty->display_method = (struct display_method *) xmalloc (sizeof (struct display_method));

  /* Initialize the common members in the new display method with our
     predefined template. */
  *tty->display_method = tty_display_method_template;
  f->display_method = tty->display_method;

  /* Termcap-based displays don't support window-based redisplay. */
  f->display_method->rif = 0;

  /* Make sure the frame is live; if an error happens, it must be
     deleted. */
  f->output_method = output_termcap;
  if (! f->output_data.tty)
    abort ();
  f->output_data.tty->display_info = tty;
  if (name)
    {
      int fd;
      FILE *file;
      fd = emacs_open (name, O_RDWR, 0);

    }

  tty->type = xstrdup (terminal_type);

  add_keyboard_wait_descriptor (fileno (tty->input));

#ifdef WINDOWSNT
  initialize_w32_display ();

  Wcm_clear (tty);

  area = (char *) xmalloc (2044);

  FrameRows (tty) = FRAME_LINES (f);
  FrameCols (tty) = FRAME_COLS (f);
  tty->specified_window = FRAME_LINES (f);

  f->display_method->delete_in_insert_mode = 1;

  UseTabs (tty) = 0;
  FRAME_SCROLL_REGION_OK (f) = 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.  */
  FRAME_LINE_INS_DEL_OK (f) = 0;
  FRAME_CHAR_INS_DEL_OK (f) = 1;

  baud_rate = 19200;

  FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none;

  MagicWrap (tty) = tgetflag ("xn");
  /* Since we make MagicWrap terminals look like AutoWrap, we need to have
     the former flag imply the latter.  */
  AutoWrap (tty) = MagicWrap (tty) || tgetflag ("am");
  FRAME_MEMORY_BELOW_FRAME (f) = tgetflag ("db");
  tty->TF_hazeltine = tgetflag ("hz");
  FRAME_MUST_WRITE_SPACES (f) = tgetflag ("in");
  tty->meta_key = tgetflag ("km") || tgetflag ("MT");
  tty->TF_insmode_motion = tgetflag ("mi");
  tty->TF_standout_motion = tgetflag ("ms");
  tty->TF_underscore = tgetflag ("ul");
  tty->TF_teleray = tgetflag ("xt");

                 FrameCols (tty), FrameRows (tty));
        }
    }

#if 0  /* This is not used anywhere. */
  f->display_method->min_padding_speed = tgetnum ("pb");
#endif

  TabWidth (tty) = tgetnum ("tw");

#ifdef VMS

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

  if (!strcmp (terminal_type, "supdup"))
    {
      FRAME_MEMORY_BELOW_FRAME (f) = 1;
      tty->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)
	    tty->TS_set_window = "\033v%C %C %C %C ";
	}
      /* Termcap entry often fails to have :in: flag */
      FRAME_MUST_WRITE_SPACES (f) = 1;
      /* :ti string typically fails to have \E^G! in it */
      /* This limits scope of insert-char to one line.  */
      strcpy (area, tty->TS_termcap_modes);
      strcat (area, "\033\007!");
      tty->TS_termcap_modes = area;

to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.",
             terminal_type);
# endif /* TERMINFO */
#endif /*VMS */
    }

  if (FrameRows (tty) <= 0 || FrameCols (tty) <= 0)
    {
      if (name)
        {
          delete_tty (tty);

              && tty->TS_end_standout_mode
              && !strcmp (tty->TS_standout_mode, tty->TS_end_standout_mode));

  UseTabs (tty) = tabs_safe_p (fileno (TTY_INPUT (tty))) && TabWidth (tty) == 8;

  FRAME_SCROLL_REGION_OK (f)
    = (tty->Wcm->cm_abs
       && (tty->TS_set_window || tty->TS_set_scroll_region || tty->TS_set_scroll_region_1));

  FRAME_LINE_INS_DEL_OK (f)
    = (((tty->TS_ins_line || tty->TS_ins_multi_lines)
        && (tty->TS_del_line || tty->TS_del_multi_lines))
       || (FRAME_SCROLL_REGION_OK (f)
           && tty->TS_fwd_scroll && tty->TS_rev_scroll));

  FRAME_CHAR_INS_DEL_OK (f)
    = ((tty->TS_ins_char || tty->TS_insert_mode
        || tty->TS_pad_inserted_char || tty->TS_ins_multi_chars)
       && (tty->TS_del_char || tty->TS_del_multi_chars));

  FRAME_FAST_CLEAR_END_OF_LINE (f) = tty->TS_clr_line != 0;

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

  FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none;

#ifdef AIXHFT
  /* The HFT system on AIX doesn't optimize for scrolling, so it's
     really ugly at times.  */
  FRAME_LINE_INS_DEL_OK (f) = 0;
  FRAME_CHAR_INS_DEL_OK (f) = 0;
#endif

  /* Don't do this.  I think termcap may still need the buffer. */
  /* xfree (buffer); */

  /* Set the top frame to the first frame on this display. */
  tty->top_frame = frame;

  /* Init system terminal modes (RAW or CBREAK, etc.).  */
  init_sys_modes (tty);

  tty_set_terminal_modes (tty);

  return tty;
#endif /* WINDOWSNT */
}

{
  struct tty_display_info *t;
  char *name = 0;

  CHECK_STRING (tty);

  if (SBYTES (tty) > 0)
    {
      name = (char *) alloca (SBYTES (tty) + 1);
      strncpy (name, SDATA (tty), SBYTES (tty));
      name[SBYTES (tty)] = 0;

  t = get_named_tty (name);

  if (! t)
    error ("No such tty device: %s", name);

  delete_tty (t);
}

static int deleting_tty = 0;

void
delete_tty (struct tty_display_info *tty)
{
  Lisp_Object tail, frame;

  if (deleting_tty)
    /* We get a recursive call when we delete the last frame on this
       tty. */
    return;

  deleting_tty = 1;

  if (tty == tty_list)
    tty_list = tty->next;
  else
    {
      struct tty_display_info *p;

    }

  FOR_EACH_FRAME (tail, frame)
    {
      struct frame *f = XFRAME (frame);
      if (FRAME_TERMCAP_P (f) && FRAME_LIVE_P (f) && FRAME_TTY (f) == tty)
        {
          Fdelete_frame (frame, Qt);
          f->output_data.tty = 0;
        }
    }

  reset_sys_modes (tty);

  if (tty->name)
    xfree (tty->name);
  if (tty->type)
    xfree (tty->type);

  if (tty->input)
    {
      delete_keyboard_wait_descriptor (fileno (tty->input));
      if (tty->input != stdin)
        fclose (tty->input);
    }
  if (tty->output && tty->output != stdout && tty->output != tty->input)
    fclose (tty->output);
  if (tty->termscript)
    fclose (tty->termscript);

  if (tty->old_tty)
    xfree (tty->old_tty);

  if (tty->Wcm)
    xfree (tty->Wcm);

  if (tty->display_method)
    xfree (tty->display_method);

  bzero (tty, sizeof (struct tty_display_info));
  xfree (tty);
  deleting_tty = 0;
}

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
  defsubr (&Sframe_tty_name);
  defsubr (&Sframe_tty_type);
  defsubr (&Sdelete_tty);

  /* XXX tty_display_method_template initialization will go here. */

  Fprovide (intern ("multi-tty"), Qnil);
}