+
−/* Define TTY specific console, device, and frame object for XEmacs.
+
−   Copyright (C) 1995 Board of Trustees, University of Illinois.
+
−   Copyright (C) 1996 Ben Wing.
+
−
+
−This file is part of XEmacs.
+
−
+
−XEmacs is free software: you can redistribute it and/or modify it
+
−under the terms of the GNU General Public License as published by the
+
−Free Software Foundation, either version 3 of the License, or (at your
+
−option) any later version.
+
−
+
−XEmacs is distributed in the hope that it will be useful, but WITHOUT
+
−ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+
−FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+
−for more details.
+
−
+
−You should have received a copy of the GNU General Public License
+
−along with XEmacs.  If not, see <http://www.gnu.org/licenses/>. */
+
−
+
−/* Synched up with: Not in FSF. */
+
−
+
−/* Written by Chuck Thompson and Ben Wing. */
+
−
+
−/* NOTE: Currently each TTY console can have only one device.
+
−   Therefore, all stuff for both input and output is lumped into
+
−   the console structure.  If it ever becomes meaningful to
+
−   have more than one device on a TTY console, the output stuff
+
−   will have to get separated out. */
+
−
+
−#ifndef INCLUDED_console_tty_impl_h_
+
−#define INCLUDED_console_tty_impl_h_
+
−
+
−#include "console-impl.h"
+
−#include "console-tty.h"
+
−
+
−DECLARE_CONSOLE_TYPE (tty);
+
−
+
−struct tty_console
+
−{
+
−#ifdef NEW_GC
+
−  NORMAL_LISP_OBJECT_HEADER header;
+
−#endif /* NEW_GC */
+
−  int infd, outfd;
+
−  Lisp_Object instream, outstream;
+
−  Lisp_Object terminal_type;
+
−  Lisp_Object controlling_process;
+
−  char *term_entry_buffer;
+
−
+
−  /* Physical location of cursor on this console. */
+
−  int cursor_x;
+
−  int cursor_y;
+
−
+
−  /* The real location of the cursor.  The above physical location may
+
−     be ahead of where we really are. */
+
−  int real_cursor_x;
+
−  int real_cursor_y;
+
−
+
−  int final_cursor_x;
+
−  int final_cursor_y;
+
−
+
−  int height;
+
−  int width;
+
−
+
−  int colors;
+
−
+
−  /* The count of frame number. */
+
−  int frame_count;
+
−
+
−  /* flags indicating presence, absence or value of various features */
+
−  struct
+
−  {
+
−    unsigned int must_write_spaces :1; /* terminal inserts nulls, not
+
−					  spaces to fill whitespace on
+
−					  screen */
+
−    unsigned int insert_mode_motion :1; /* cursor movement commands
+
−					   work while in insert mode */
+
−    unsigned int standout_motion :1;	/* cursor movement is graceful
+
−					   in standout or underline mode */
+
−    unsigned int memory_above_frame :1; /* display retained above screen */
+
−    unsigned int memory_below_frame :1; /* display retained below screen */
+
−    unsigned int meta_key :2;		/* 0 == mask off top bit;
+
−					   1 == top bit is meta;
+
−					   2 == top bit is useful as
+
−					   character info */
+
−    unsigned int flow_control :1;	/* Nonzero means use ^S/^Q as
+
−					   cretinous flow control.  */
+
−    int standout_width;		        /* # of spaces printed when
+
−				           change to standout mode */
+
−    int underline_width;		/* # of spaces printed when
+
−					   change to underline mode */
+
−  } flags;
+
−
+
−  /* cursor motion entries - each entry is commented with the terminfo
+
−     and the termcap entry */
+
−  struct
+
−  {
+
−    /* local cursor movement */
+
−    const char *up;			/* cuu1, up */
+
−    const char *down;			/* cud1, do */
+
−    const char *left;			/* cub1, le */
+
−    const char *right;			/* cuf1, nd */
+
−    const char *home;			/* home, ho */
+
−    const char *low_left;		/* ll, ll */
+
−    const char *car_return;		/* cr, cr */
+
−
+
−    /* parameterized local cursor movement */
+
−    const char *multi_up;		/* cuu, UP */
+
−    const char *multi_down;		/* cud, DO */
+
−    const char *multi_left;		/* cub, LE */
+
−    const char *multi_right;		/* cuf, RI */
+
−
+
−    /* absolute cursor motion */
+
−    const char *abs;			/* cup, cm */
+
−    const char *hor_abs;		/* hpa, ch */
+
−    const char *ver_abs;		/* vpa, cv */
+
−
+
−    /* scrolling */
+
−    const char *scroll_forw;		/* ind, sf */
+
−    const char *scroll_back;		/* ri, sr */
+
−    const char *multi_scroll_forw;	/* indn, SF */
+
−    const char *multi_scroll_back;	/* rin, SR */
+
−    const char *set_scroll_region;	/* csr, cs */
+
−  } cm;
+
−
+
−  /* screen editing entries - each entry is commented with the
+
−     terminfo and the termcap entry */
+
−  struct
+
−  {
+
−    /* adding to the screen */
+
−    const char *ins_line;		/* il1, al */
+
−    const char *multi_ins_line;		/* il, AL */
+
−    const char *repeat;			/* rep, rp */
+
−    const char *begin_ins_mode;		/* smir, im */
+
−    const char *end_ins_mode;		/* rmir, ei */
+
−    const char *ins_char;		/* ich1, ic */
+
−    const char *multi_ins_char;		/* ich, IC */
+
−    const char *insert_pad;		/* ip, ip */
+
−
+
−    /* deleting from the screen */
+
−    const char *clr_frame;		/* clear, cl */
+
−    const char *clr_from_cursor;	/* ed, cd */
+
−    const char *clr_to_eol;		/* el, ce */
+
−    const char *del_line;		/* dl1, dl */
+
−    const char *multi_del_line;		/* dl, DL */
+
−    const char *del_char;		/* dch1, dc */
+
−    const char *multi_del_char;		/* dch, DC */
+
−    const char *begin_del_mode;		/* smdc, dm */
+
−    const char *end_del_mode;		/* rmdc, ed */
+
−    const char *erase_at_cursor;	/* ech, ec */
+
−  } se;
+
−
+
−  /* screen display entries - each entry is commented with the
+
−     terminfo and termcap entry */
+
−  struct
+
−  {
+
−    const char *begin_standout;		/* smso, so */
+
−    const char *end_standout;		/* rmso, se */
+
−    const char *begin_underline;	/* smul, us */
+
−    const char *end_underline;		/* rmul, ue */
+
−    const char *begin_alternate;	/* smacs, as */
+
−    const char *end_alternate;		/* rmacs, ae */
+
−
+
−    const char *turn_on_reverse;	/* rev, mr */
+
−    const char *turn_on_blinking;	/* blink, mb */
+
−    const char *turn_on_bold;		/* bold, md */
+
−    const char *turn_on_dim;		/* dim, mh */
+
−    const char *turn_off_attributes;	/* sgr0, me */
+
−
+
−    const char *visual_bell;		/* flash, vb */
+
−    const char *audio_bell;		/* bel, bl */
+
−
+
−    const char *cursor_visible;		/* cvvis, vs */
+
−    const char *cursor_normal;		/* cnorm, ve */
+
−    const char *init_motion;		/* smcup, ti */
+
−    const char *end_motion;		/* rmcup, te */
+
−    const char *keypad_on;		/* smkx, ks */
+
−    const char *keypad_off;		/* rmkx, ke */
+
−
+
−    const char *orig_pair;		/* op, op */
+
−  } sd;
+
−
+
−  /* costs of various operations */
+
−  struct
+
−  {
+
−    int cm_up;
+
−    int cm_down;
+
−    int cm_left;
+
−    int cm_right;
+
−    int cm_home;
+
−    int cm_low_left;
+
−    int cm_car_return;
+
−    int cm_abs;
+
−    int cm_hor_abs;
+
−    int cm_ver_abs;
+
−  } cost;
+
−
+
−  /* The initial tty mode bits */
+
−  struct emacs_tty old_tty;
+
−
+
−  /* Is this TTY our controlling terminal? */
+
−  unsigned int controlling_terminal :1;
+
−  unsigned int is_stdio :1;
+
−  /* Do East Asian chars take up two columns? */
+
−  unsigned int multiple_width :1; 
+
−};
+
−
+
−#ifdef NEW_GC
+
−typedef struct tty_console Lisp_Tty_Console;
+
−
+
−DECLARE_LISP_OBJECT (tty_console, Lisp_Tty_Console);
+
−
+
−#define XTTY_CONSOLE(x) \
+
−  XRECORD (x, tty_console, Lisp_Tty_Console)
+
−#define wrap_tty_console(p) wrap_record (p, tty_console)
+
−#define TTY_CONSOLE_P(x) RECORDP (x, tty_console)
+
−#endif /* NEW_GC */
+
−
+
−#define CONSOLE_TTY_DATA(c) CONSOLE_TYPE_DATA (c, tty)
+
−#define CONSOLE_TTY_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->cursor_x)
+
−#define CONSOLE_TTY_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->cursor_y)
+
−#define CONSOLE_TTY_REAL_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->real_cursor_x)
+
−#define CONSOLE_TTY_REAL_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->real_cursor_y)
+
−#define CONSOLE_TTY_FINAL_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->final_cursor_x)
+
−#define CONSOLE_TTY_FINAL_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->final_cursor_y)
+
−
+
−/* In a more ideal world where available terminfo files actually included
+
−   information on whether a given TTY supports double-width characters or
+
−   not, oh, and where Mule was not conditional, SUPPORTS_MULTIPLE_WIDTH
+
−   would be as console-specific as its syntax implies.
+
−
+
−   In this world, this is overengineering more than it is anything. */
+
−#define CONSOLE_TTY_SUPPORTS_MULTIPLE_WIDTH(c) (1 != MAX_ICHAR_LEN)
+
−#define CONSOLE_TTY_MULTIPLE_WIDTH(c)			\
+
−	(CONSOLE_TTY_SUPPORTS_MULTIPLE_WIDTH(c) ?	\
+
−	 CONSOLE_TTY_DATA (c)->multiple_width : (0))
+
−
+
−#define TTY_CM(c) (CONSOLE_TTY_DATA (c)->cm)
+
−#define TTY_SE(c) (CONSOLE_TTY_DATA (c)->se)
+
−#define TTY_SD(c) (CONSOLE_TTY_DATA (c)->sd)
+
−#define TTY_FLAGS(c) (CONSOLE_TTY_DATA (c)->flags)
+
−#define TTY_COST(c) (CONSOLE_TTY_DATA (c)->cost)
+
−
+
−#define TTY_INC_CURSOR_X(c, n) do {					\
+
−  int TICX_n = (n);							\
+
−  assert (CONSOLE_TTY_CURSOR_X (c) == CONSOLE_TTY_REAL_CURSOR_X (c));	\
+
−  CONSOLE_TTY_CURSOR_X (c) += TICX_n;					\
+
−  CONSOLE_TTY_REAL_CURSOR_X (c) += TICX_n;				\
+
−} while (0)
+
−
+
−#define TTY_INC_CURSOR_Y(c, n) do {		\
+
−  int TICY_n = (n);				\
+
−  CONSOLE_TTY_CURSOR_Y (c) += TICY_n;		\
+
−  CONSOLE_TTY_REAL_CURSOR_Y (c) += TICY_n;	\
+
−} while (0)
+
−
+
−struct tty_device
+
−{
+
−#ifdef NEW_GC
+
−  NORMAL_LISP_OBJECT_HEADER header;
+
−#endif /* NEW_GC */
+
−#ifdef HAVE_TERMIOS
+
−  speed_t ospeed;		/* Output speed (from sg_ospeed) */
+
−#else
+
−  short ospeed;			/* Output speed (from sg_ospeed) */
+
−#endif
+
−};
+
−
+
−#ifdef NEW_GC
+
−typedef struct tty_device Lisp_Tty_Device;
+
−
+
−DECLARE_LISP_OBJECT (tty_device, Lisp_Tty_Device);
+
−
+
−#define XTTY_DEVICE(x) \
+
−  XRECORD (x, tty_device, Lisp_Tty_Device)
+
−#define wrap_tty_device(p) wrap_record (p, tty_device)
+
−#define TTY_DEVICE_P(x) RECORDP (x, tty_device)
+
−#endif /* NEW_GC */
+
−
+
−#define DEVICE_TTY_DATA(d) DEVICE_TYPE_DATA (d, tty)
+
−
+
−/* termcap requires this to be global */
+
−#ifndef HAVE_TERMIOS
+
−extern short ospeed;            /* Output speed (from sg_ospeed) */
+
−#endif
+
−
+
−#endif /* INCLUDED_console_tty_impl_h_ */