Mercurial > hg > xemacs-beta
annotate src/console-tty-impl.h @ 5433:863f16484873
Added copyright notice with year 1998.
| author | Mats Lidell <matsl@xemacs.org> |
|---|---|
| date | Sun, 07 Nov 2010 22:39:20 +0100 |
| parents | 308d34e9f07d |
| children | 248176c74e6b |
| rev | line source |
|---|---|
| 872 | 1 /* Define TTY specific console, device, and frame object for XEmacs. |
| 2 Copyright (C) 1995 Board of Trustees, University of Illinois. | |
| 3 Copyright (C) 1996 Ben Wing. | |
| 4 | |
| 5 This file is part of XEmacs. | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
7 XEmacs is free software: you can redistribute it and/or modify it |
| 872 | 8 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
9 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
10 option) any later version. |
| 872 | 11 |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5127
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 872 | 19 |
| 20 /* Synched up with: Not in FSF. */ | |
| 21 | |
| 22 /* Written by Chuck Thompson and Ben Wing. */ | |
| 23 | |
| 24 /* NOTE: Currently each TTY console can have only one device. | |
| 25 Therefore, all stuff for both input and output is lumped into | |
| 26 the console structure. If it ever becomes meaningful to | |
| 27 have more than one device on a TTY console, the output stuff | |
| 28 will have to get separated out. */ | |
| 29 | |
| 30 #ifndef INCLUDED_console_tty_impl_h_ | |
| 31 #define INCLUDED_console_tty_impl_h_ | |
| 32 | |
| 33 #include "console-impl.h" | |
| 34 #include "console-tty.h" | |
| 35 | |
| 36 DECLARE_CONSOLE_TYPE (tty); | |
| 37 | |
| 38 struct tty_console | |
| 39 { | |
| 3092 | 40 #ifdef NEW_GC |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
41 NORMAL_LISP_OBJECT_HEADER header; |
| 3092 | 42 #endif /* NEW_GC */ |
| 872 | 43 int infd, outfd; |
| 44 Lisp_Object instream, outstream; | |
| 45 Lisp_Object terminal_type; | |
| 46 Lisp_Object controlling_process; | |
| 47 char *term_entry_buffer; | |
| 48 | |
| 49 /* Physical location of cursor on this console. */ | |
| 50 int cursor_x; | |
| 51 int cursor_y; | |
| 52 | |
| 53 /* The real location of the cursor. The above physical location may | |
| 54 be ahead of where we really are. */ | |
| 55 int real_cursor_x; | |
| 56 int real_cursor_y; | |
| 57 | |
| 58 int final_cursor_x; | |
| 59 int final_cursor_y; | |
| 60 | |
| 61 int height; | |
| 62 int width; | |
| 63 | |
| 64 /* The count of frame number. */ | |
| 65 int frame_count; | |
| 66 | |
| 67 /* flags indicating presence, absence or value of various features */ | |
| 68 struct | |
| 69 { | |
| 70 unsigned int must_write_spaces :1; /* terminal inserts nulls, not | |
| 71 spaces to fill whitespace on | |
| 72 screen */ | |
| 73 unsigned int insert_mode_motion :1; /* cursor movement commands | |
| 74 work while in insert mode */ | |
| 75 unsigned int standout_motion :1; /* cursor movement is graceful | |
| 76 in standout or underline mode */ | |
| 77 unsigned int memory_above_frame :1; /* display retained above screen */ | |
| 78 unsigned int memory_below_frame :1; /* display retained below screen */ | |
| 79 unsigned int meta_key :2; /* 0 == mask off top bit; | |
| 80 1 == top bit is meta; | |
| 81 2 == top bit is useful as | |
| 82 character info */ | |
| 83 unsigned int flow_control :1; /* Nonzero means use ^S/^Q as | |
| 84 cretinous flow control. */ | |
| 85 int standout_width; /* # of spaces printed when | |
| 86 change to standout mode */ | |
| 87 int underline_width; /* # of spaces printed when | |
| 88 change to underline mode */ | |
| 89 } flags; | |
| 90 | |
| 91 /* cursor motion entries - each entry is commented with the terminfo | |
| 92 and the termcap entry */ | |
| 93 struct | |
| 94 { | |
| 95 /* local cursor movement */ | |
| 96 const char *up; /* cuu1, up */ | |
| 97 const char *down; /* cud1, do */ | |
| 98 const char *left; /* cub1, le */ | |
| 99 const char *right; /* cuf1, nd */ | |
| 100 const char *home; /* home, ho */ | |
| 101 const char *low_left; /* ll, ll */ | |
| 102 const char *car_return; /* cr, cr */ | |
| 103 | |
| 104 /* parameterized local cursor movement */ | |
| 105 const char *multi_up; /* cuu, UP */ | |
| 106 const char *multi_down; /* cud, DO */ | |
| 107 const char *multi_left; /* cub, LE */ | |
| 108 const char *multi_right; /* cuf, RI */ | |
| 109 | |
| 110 /* absolute cursor motion */ | |
| 111 const char *abs; /* cup, cm */ | |
| 112 const char *hor_abs; /* hpa, ch */ | |
| 113 const char *ver_abs; /* vpa, cv */ | |
| 114 | |
| 115 /* scrolling */ | |
| 116 const char *scroll_forw; /* ind, sf */ | |
| 117 const char *scroll_back; /* ri, sr */ | |
| 118 const char *multi_scroll_forw; /* indn, SF */ | |
| 119 const char *multi_scroll_back; /* rin, SR */ | |
| 120 const char *set_scroll_region; /* csr, cs */ | |
| 121 } cm; | |
| 122 | |
| 123 /* screen editing entries - each entry is commented with the | |
| 124 terminfo and the termcap entry */ | |
| 125 struct | |
| 126 { | |
| 127 /* adding to the screen */ | |
| 128 const char *ins_line; /* il1, al */ | |
| 129 const char *multi_ins_line; /* il, AL */ | |
| 130 const char *repeat; /* rep, rp */ | |
| 131 const char *begin_ins_mode; /* smir, im */ | |
| 132 const char *end_ins_mode; /* rmir, ei */ | |
| 133 const char *ins_char; /* ich1, ic */ | |
| 134 const char *multi_ins_char; /* ich, IC */ | |
| 135 const char *insert_pad; /* ip, ip */ | |
| 136 | |
| 137 /* deleting from the screen */ | |
| 138 const char *clr_frame; /* clear, cl */ | |
| 139 const char *clr_from_cursor; /* ed, cd */ | |
| 140 const char *clr_to_eol; /* el, ce */ | |
| 141 const char *del_line; /* dl1, dl */ | |
| 142 const char *multi_del_line; /* dl, DL */ | |
| 143 const char *del_char; /* dch1, dc */ | |
| 144 const char *multi_del_char; /* dch, DC */ | |
| 145 const char *begin_del_mode; /* smdc, dm */ | |
| 146 const char *end_del_mode; /* rmdc, ed */ | |
| 147 const char *erase_at_cursor; /* ech, ec */ | |
| 148 } se; | |
| 149 | |
| 150 /* screen display entries - each entry is commented with the | |
| 151 terminfo and termcap entry */ | |
| 152 struct | |
| 153 { | |
| 154 const char *begin_standout; /* smso, so */ | |
| 155 const char *end_standout; /* rmso, se */ | |
| 156 const char *begin_underline; /* smul, us */ | |
| 157 const char *end_underline; /* rmul, ue */ | |
| 158 const char *begin_alternate; /* smacs, as */ | |
| 159 const char *end_alternate; /* rmacs, ae */ | |
| 160 | |
| 161 const char *turn_on_reverse; /* rev, mr */ | |
| 162 const char *turn_on_blinking; /* blink, mb */ | |
| 163 const char *turn_on_bold; /* bold, md */ | |
| 164 const char *turn_on_dim; /* dim, mh */ | |
| 165 const char *turn_off_attributes; /* sgr0, me */ | |
| 166 | |
| 167 const char *visual_bell; /* flash, vb */ | |
| 168 const char *audio_bell; /* bel, bl */ | |
| 169 | |
| 170 const char *cursor_visible; /* cvvis, vs */ | |
| 171 const char *cursor_normal; /* cnorm, ve */ | |
| 172 const char *init_motion; /* smcup, ti */ | |
| 173 const char *end_motion; /* rmcup, te */ | |
| 174 const char *keypad_on; /* smkx, ks */ | |
| 175 const char *keypad_off; /* rmkx, ke */ | |
| 176 | |
| 177 const char *orig_pair; /* op, op */ | |
| 178 } sd; | |
| 179 | |
| 180 /* costs of various operations */ | |
| 181 struct | |
| 182 { | |
| 183 int cm_up; | |
| 184 int cm_down; | |
| 185 int cm_left; | |
| 186 int cm_right; | |
| 187 int cm_home; | |
| 188 int cm_low_left; | |
| 189 int cm_car_return; | |
| 190 int cm_abs; | |
| 191 int cm_hor_abs; | |
| 192 int cm_ver_abs; | |
| 193 } cost; | |
| 194 | |
| 195 /* The initial tty mode bits */ | |
| 196 struct emacs_tty old_tty; | |
| 197 | |
| 198 /* Is this TTY our controlling terminal? */ | |
| 199 unsigned int controlling_terminal :1; | |
| 200 unsigned int is_stdio :1; | |
| 3571 | 201 /* Do East Asian chars take up two columns? */ |
| 202 unsigned int multiple_width :1; | |
| 872 | 203 }; |
| 204 | |
| 3092 | 205 #ifdef NEW_GC |
| 206 typedef struct tty_console Lisp_Tty_Console; | |
| 207 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
3571
diff
changeset
|
208 DECLARE_LISP_OBJECT (tty_console, Lisp_Tty_Console); |
| 3092 | 209 |
| 210 #define XTTY_CONSOLE(x) \ | |
| 211 XRECORD (x, tty_console, Lisp_Tty_Console) | |
| 212 #define wrap_tty_console(p) wrap_record (p, tty_console) | |
| 213 #define TTY_CONSOLE_P(x) RECORDP (x, tty_console) | |
| 214 #endif /* NEW_GC */ | |
| 215 | |
| 872 | 216 #define CONSOLE_TTY_DATA(c) CONSOLE_TYPE_DATA (c, tty) |
| 217 #define CONSOLE_TTY_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->cursor_x) | |
| 218 #define CONSOLE_TTY_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->cursor_y) | |
| 219 #define CONSOLE_TTY_REAL_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->real_cursor_x) | |
| 220 #define CONSOLE_TTY_REAL_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->real_cursor_y) | |
| 221 #define CONSOLE_TTY_FINAL_CURSOR_X(c) (CONSOLE_TTY_DATA (c)->final_cursor_x) | |
| 222 #define CONSOLE_TTY_FINAL_CURSOR_Y(c) (CONSOLE_TTY_DATA (c)->final_cursor_y) | |
| 223 | |
| 3571 | 224 /* In a more ideal world where available terminfo files actually included |
| 225 information on whether a given TTY supports double-width characters or | |
| 226 not, oh, and where Mule was not conditional, SUPPORTS_MULTIPLE_WIDTH | |
| 227 would be as console-specific as its syntax implies. | |
| 228 | |
| 229 In this world, this is overengineering more than it is anything. */ | |
| 230 #define CONSOLE_TTY_SUPPORTS_MULTIPLE_WIDTH(c) (1 != MAX_ICHAR_LEN) | |
| 231 #define CONSOLE_TTY_MULTIPLE_WIDTH(c) \ | |
| 232 (CONSOLE_TTY_SUPPORTS_MULTIPLE_WIDTH(c) ? \ | |
| 233 CONSOLE_TTY_DATA (c)->multiple_width : (0)) | |
| 234 | |
| 872 | 235 #define TTY_CM(c) (CONSOLE_TTY_DATA (c)->cm) |
| 236 #define TTY_SE(c) (CONSOLE_TTY_DATA (c)->se) | |
| 237 #define TTY_SD(c) (CONSOLE_TTY_DATA (c)->sd) | |
| 238 #define TTY_FLAGS(c) (CONSOLE_TTY_DATA (c)->flags) | |
| 239 #define TTY_COST(c) (CONSOLE_TTY_DATA (c)->cost) | |
| 240 | |
| 241 #define TTY_INC_CURSOR_X(c, n) do { \ | |
| 242 int TICX_n = (n); \ | |
| 243 assert (CONSOLE_TTY_CURSOR_X (c) == CONSOLE_TTY_REAL_CURSOR_X (c)); \ | |
| 244 CONSOLE_TTY_CURSOR_X (c) += TICX_n; \ | |
| 245 CONSOLE_TTY_REAL_CURSOR_X (c) += TICX_n; \ | |
| 246 } while (0) | |
| 247 | |
| 248 #define TTY_INC_CURSOR_Y(c, n) do { \ | |
| 249 int TICY_n = (n); \ | |
| 250 CONSOLE_TTY_CURSOR_Y (c) += TICY_n; \ | |
| 251 CONSOLE_TTY_REAL_CURSOR_Y (c) += TICY_n; \ | |
| 252 } while (0) | |
| 253 | |
| 254 struct tty_device | |
| 255 { | |
| 3092 | 256 #ifdef NEW_GC |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
257 NORMAL_LISP_OBJECT_HEADER header; |
| 3092 | 258 #endif /* NEW_GC */ |
| 872 | 259 #ifdef HAVE_TERMIOS |
| 260 speed_t ospeed; /* Output speed (from sg_ospeed) */ | |
| 261 #else | |
| 262 short ospeed; /* Output speed (from sg_ospeed) */ | |
| 263 #endif | |
| 264 }; | |
| 265 | |
| 3092 | 266 #ifdef NEW_GC |
| 267 typedef struct tty_device Lisp_Tty_Device; | |
| 268 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
3571
diff
changeset
|
269 DECLARE_LISP_OBJECT (tty_device, Lisp_Tty_Device); |
| 3092 | 270 |
| 271 #define XTTY_DEVICE(x) \ | |
| 272 XRECORD (x, tty_device, Lisp_Tty_Device) | |
| 273 #define wrap_tty_device(p) wrap_record (p, tty_device) | |
| 274 #define TTY_DEVICE_P(x) RECORDP (x, tty_device) | |
| 275 #endif /* NEW_GC */ | |
| 276 | |
| 872 | 277 #define DEVICE_TTY_DATA(d) DEVICE_TYPE_DATA (d, tty) |
| 278 | |
| 279 /* termcap requires this to be global */ | |
| 280 #ifndef HAVE_TERMIOS | |
| 281 extern short ospeed; /* Output speed (from sg_ospeed) */ | |
| 282 #endif | |
| 283 | |
| 284 #endif /* INCLUDED_console_tty_impl_h_ */ |