2 * Copyright (c) 1993, 1994
3 * The Regents of the University of California. All rights reserved.
4 * Copyright (c) 1993, 1994, 1995, 1996
5 * Keith Bostic. All rights reserved.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid
[] = "$Id: vs_relative.c,v 10.17 2001/06/25 15:19:38 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:38 $";
16 #include <sys/types.h>
17 #include <sys/queue.h>
20 #include <bitstring.h>
25 #include "../common/common.h"
30 * Return the logical column of the cursor in the line.
32 * PUBLIC: int vs_column __P((SCR *, size_t *));
35 vs_column(SCR
*sp
, size_t *colp
)
41 *colp
= (O_ISSET(sp
, O_LEFTRIGHT
) ?
42 vip
->sc_smap
->coff
: (vip
->sc_smap
->soff
- 1) * sp
->cols
) +
43 vip
->sc_col
- (O_ISSET(sp
, O_NUMBER
) ? O_NUMBER_LENGTH
: 0);
49 * Return the screens necessary to display the line, or if specified,
50 * the physical character column within the line, including space
51 * required for the O_NUMBER and O_LIST options.
53 * PUBLIC: size_t vs_screens __P((SCR *, db_recno_t, size_t *));
56 vs_screens(SCR
*sp
, db_recno_t lno
, size_t *cnop
)
60 /* Left-right screens are simple, it's always 1. */
61 if (O_ISSET(sp
, O_LEFTRIGHT
))
65 * Check for a cached value. We maintain a cache because, if the
66 * line is large, this routine gets called repeatedly. One other
67 * hack, lots of time the cursor is on column one, which is an easy
71 if (VIP(sp
)->ss_lno
== lno
)
72 return (VIP(sp
)->ss_screens
);
73 } else if (*cnop
== 0)
76 /* Figure out how many columns the line/column needs. */
77 cols
= vs_columns(sp
, NULL
, lno
, cnop
, NULL
);
79 screens
= (cols
/ sp
->cols
+ (cols
% sp
->cols
? 1 : 0));
83 /* Cache the value. */
85 VIP(sp
)->ss_lno
= lno
;
86 VIP(sp
)->ss_screens
= screens
;
93 * Return the screen columns necessary to display the line, or,
94 * if specified, the physical character column within the line.
96 * PUBLIC: size_t vs_columns __P((SCR *, CHAR_T *, db_recno_t, size_t *, size_t *));
99 vs_columns(SCR
*sp
, CHAR_T
*lp
, db_recno_t lno
, size_t *cnop
, size_t *diffp
)
101 size_t chlen
, cno
, curoff
, last
, len
, scno
;
102 int ch
, leftright
, listset
;
105 /* Need the line to go any further. */
107 (void)db_get(sp
, lno
, 0, &lp
, &len
);
112 /* Missing or empty lines are easy. */
114 done
: if (diffp
!= NULL
) /* XXX */
119 /* Store away the values of the list and leftright edit options. */
120 listset
= O_ISSET(sp
, O_LIST
);
121 leftright
= O_ISSET(sp
, O_LEFTRIGHT
);
124 * Initialize the pointer into the buffer and screen and current
130 /* Leading number if O_NUMBER option set. */
131 if (O_ISSET(sp
, O_NUMBER
))
132 scno
+= O_NUMBER_LENGTH
;
134 /* Macro to return the display length of any signal character. */
135 #define CHLEN(val) (ch = *(UCHAR_T *)p++) == '\t' && \
136 !listset ? TAB_OFF(val) : KEY_COL(sp, ch);
139 * If folding screens (the historic vi screen format), past the end
140 * of the current screen, and the character was a tab, reset the
141 * current screen column to 0, and the total screen columns to the
142 * last column of the screen. Otherwise, display the rest of the
143 * character in the next screen.
145 #define TAB_RESET { \
147 if (!leftright && curoff >= sp->cols) \
150 scno -= scno % sp->cols; \
152 curoff -= sp->cols; \
156 chlen
= CHLEN(curoff
);
162 for (cno
= *cnop
;; --cno
) {
163 chlen
= CHLEN(curoff
);
171 /* Add the trailing '$' if the O_LIST option set. */
172 if (listset
&& cnop
== NULL
)
173 scno
+= KEY_LEN(sp
, '$');
176 * The text input screen code needs to know how much additional
177 * room the last two characters required, so that it can handle
178 * tab character displays correctly.
181 *diffp
= scno
- last
;
187 * Return the physical column from the line that will display a
188 * character closest to the currently most attractive character
189 * position (which is stored as a screen column).
191 * PUBLIC: size_t vs_rcm __P((SCR *, db_recno_t, int));
194 vs_rcm(SCR
*sp
, db_recno_t lno
, int islast
)
198 /* Last character is easy, and common. */
200 if (db_get(sp
, lno
, 0, NULL
, &len
) || len
== 0)
205 /* First character is easy, and common. */
209 return (vs_colpos(sp
, lno
, sp
->rcm
));
214 * Return the physical column from the line that will display a
215 * character closest to the specified screen column.
217 * PUBLIC: size_t vs_colpos __P((SCR *, db_recno_t, size_t));
220 vs_colpos(SCR
*sp
, db_recno_t lno
, size_t cno
)
222 size_t chlen
, curoff
, len
, llen
, off
, scno
;
223 int ch
, leftright
, listset
;
226 /* Need the line to go any further. */
227 (void)db_get(sp
, lno
, 0, &lp
, &llen
);
229 /* Missing or empty lines are easy. */
230 if (lp
== NULL
|| llen
== 0)
233 /* Store away the values of the list and leftright edit options. */
234 listset
= O_ISSET(sp
, O_LIST
);
235 leftright
= O_ISSET(sp
, O_LEFTRIGHT
);
237 /* Discard screen (logical) lines. */
238 off
= cno
/ sp
->cols
;
240 for (scno
= 0, p
= lp
, len
= llen
; off
--;) {
241 for (; len
&& scno
< sp
->cols
; --len
)
245 * If reached the end of the physical line, return the last
246 * physical character in the line.
252 * If folding screens (the historic vi screen format), past
253 * the end of the current screen, and the character was a tab,
254 * reset the current screen column to 0. Otherwise, the rest
255 * of the character is displayed in the next screen.
257 if (leftright
&& ch
== '\t')
263 /* Step through the line until reach the right character or EOL. */
264 for (curoff
= scno
; len
--;) {
265 chlen
= CHLEN(curoff
);
268 * If we've reached the specific character, there are three
271 * 1: scno == cno, i.e. the current character ends at the
272 * screen character we care about.
273 * a: off < llen - 1, i.e. not the last character in
274 * the line, return the offset of the next character.
275 * b: else return the offset of the last character.
276 * 2: scno != cno, i.e. this character overruns the character
277 * we care about, return the offset of this character.
279 if ((scno
+= chlen
) >= cno
) {
281 return (scno
== cno
?
282 (off
< llen
- 1 ? off
: llen
- 1) : off
- 1);
288 /* No such character; return the start of the last character. */