1 /* Cursor motion calculation definitions for GNU Emacs
2 Copyright (C) 1985, 1989, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* Holds the minimum and maximum costs for the parametrized capabilities. */
28 /* This structure holds everything needed to do cursor motion except the pad
29 character (PC) and the output speed of the terminal (ospeed), which
30 termcap wants in global variables. */
34 /* Cursor position. -1 in *both* variables means the cursor
35 position is unknown, in order to force absolute cursor motion. */
37 int cm_curY
; /* Current row */
38 int cm_curX
; /* Current column */
40 /* Capabilities from termcap */
41 char *cm_up
; /* up (up) */
42 char *cm_down
; /* down (do) */
43 char *cm_left
; /* left (le) */
44 char *cm_right
; /* right (nd) */
45 char *cm_home
; /* home (ho) */
46 char *cm_cr
; /* carriage return (cr) */
47 char *cm_ll
; /* last line (ll) */
48 char *cm_tab
; /* tab (ta) */
49 char *cm_backtab
; /* backtab (bt) */
50 char *cm_abs
; /* absolute (cm) */
51 char *cm_habs
; /* horizontal absolute (ch) */
52 char *cm_vabs
; /* vertical absolute (cv) */
54 char *cm_ds
; /* "don't send" string (ds) */
56 char *cm_multiup
; /* multiple up (UP) */
57 char *cm_multidown
; /* multiple down (DO) */
58 char *cm_multileft
; /* multiple left (LE) */
59 char *cm_multiright
; /* multiple right (RI) */
60 int cm_cols
; /* number of cols on screen (co) */
61 int cm_rows
; /* number of rows on screen (li) */
62 int cm_tabwidth
; /* tab width (it) */
63 unsigned int cm_autowrap
:1; /* autowrap flag (am) */
64 unsigned int cm_magicwrap
:1; /* VT-100: cursor stays in last col but
65 will cm_wrap if next char is
67 unsigned int cm_usetabs
:1; /* if set, use tabs */
68 unsigned int cm_losewrap
:1; /* if reach right margin, forget cursor
70 unsigned int cm_autolf
:1; /* \r performs a \r\n (rn) */
72 /* Parametrized capabilities. This needs to be a struct since
73 the costs are accessed through pointers. */
76 struct parmcap cc_abs
; /* absolute (cm) */
77 struct parmcap cc_habs
; /* horizontal absolute (ch) */
78 struct parmcap cc_vabs
; /* vertical absolute (cv) */
79 struct parmcap cc_multiup
; /* multiple up (UP) */
80 struct parmcap cc_multidown
; /* multiple down (DO) */
81 struct parmcap cc_multileft
; /* multiple left (LE) */
82 struct parmcap cc_multiright
; /* multiple right (RI) */
85 /* Costs for the non-parametrized capabilities */
86 int cc_up
; /* cost for up */
87 int cc_down
; /* etc. */
95 /* These are temporary, until the code is installed to use the
96 struct parmcap fields above. */
102 extern char PC
; /* Pad character */
105 #ifndef NoCMShortHand
106 #define curY(tty) (tty)->Wcm->cm_curY
107 #define curX(tty) (tty)->Wcm->cm_curX
108 #define Up(tty) (tty)->Wcm->cm_up
109 #define Down(tty) (tty)->Wcm->cm_down
110 #define Left(tty) (tty)->Wcm->cm_left
111 #define Right(tty) (tty)->Wcm->cm_right
112 #define Tab(tty) (tty)->Wcm->cm_tab
113 #define BackTab(tty) (tty)->Wcm->cm_backtab
114 #define TabWidth(tty) (tty)->Wcm->cm_tabwidth
115 #define CR(tty) (tty)->Wcm->cm_cr
116 #define Home(tty) (tty)->Wcm->cm_home
117 #define LastLine(tty) (tty)->Wcm->cm_ll
118 #define AbsPosition(tty) (tty)->Wcm->cm_abs
119 #define ColPosition(tty) (tty)->Wcm->cm_habs
120 #define RowPosition(tty) (tty)->Wcm->cm_vabs
121 #define MultiUp(tty) (tty)->Wcm->cm_multiup
122 #define MultiDown(tty) (tty)->Wcm->cm_multidown
123 #define MultiLeft(tty) (tty)->Wcm->cm_multileft
124 #define MultiRight(tty) (tty)->Wcm->cm_multiright
125 #define AutoWrap(tty) (tty)->Wcm->cm_autowrap
126 #define MagicWrap(tty) (tty)->Wcm->cm_magicwrap
127 #define UseTabs(tty) (tty)->Wcm->cm_usetabs
128 #define FrameRows(tty) (tty)->Wcm->cm_rows
129 #define FrameCols(tty) (tty)->Wcm->cm_cols
131 #define UpCost(tty) (tty)->Wcm->cc_up
132 #define DownCost(tty) (tty)->Wcm->cc_down
133 #define LeftCost(tty) (tty)->Wcm->cc_left
134 #define RightCost(tty) (tty)->Wcm->cc_right
135 #define HomeCost(tty) (tty)->Wcm->cc_home
136 #define CRCost(tty) (tty)->Wcm->cc_cr
137 #define LastLineCost(tty) (tty)->Wcm->cc_ll
138 #define TabCost(tty) (tty)->Wcm->cc_tab
139 #define BackTabCost(tty) (tty)->Wcm->cc_backtab
140 #define AbsPositionCost(tty) (tty)->Wcm->cc_abs
141 #define ColPositionCost(tty) (tty)->Wcm->cc_habs
142 #define RowPositionCost(tty) (tty)->Wcm->cc_vabs
143 #define MultiUpCost(tty) (tty)->Wcm->cc_multiup
144 #define MultiDownCost(tty) (tty)->Wcm->cc_multidown
145 #define MultiLeftCost(tty) (tty)->Wcm->cc_multileft
146 #define MultiRightCost(tty) (tty)->Wcm->cc_multiright
149 #define cmat(tty,row,col) (curY(tty) = (row), curX(tty) = (col))
150 #define cmplus(tty,n) \
152 if ((curX (tty) += (n)) >= FrameCols (tty) && !MagicWrap (tty)) \
154 if ((tty)->Wcm->cm_losewrap) losecursor (tty); \
155 else if (AutoWrap (tty)) curX (tty) = 0, curY (tty)++; \
160 #define losecursor(tty) (curX(tty) = -1, curY(tty) = -1)
163 extern int evalcost ();
165 #define emacs_tputs(tty, str, affcnt, putc) (current_tty = (tty), tputs (str, affcnt, putc))
167 extern struct tty_display_info
*current_tty
;
168 extern void cmcheckmagic
P_ ((struct tty_display_info
*));
169 extern int cmputc
P_ ((int));
170 extern void cmcostinit
P_ ((struct tty_display_info
*));
171 extern void cmgoto
P_ ((struct tty_display_info
*, int, int));
172 extern void Wcm_clear
P_ ((struct tty_display_info
*));
173 extern int Wcm_init
P_ ((struct tty_display_info
*));
175 /* arch-tag: acc1535a-7136-49d6-b22d-9bc85702251b
176 (do not change this comment) */