1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
/*-
* Copyright (c) 1992, 1993, 1994
* The Regents of the University of California. All rights reserved.
* Copyright (c) 1992, 1993, 1994, 1995, 1996
* Keith Bostic. All rights reserved.
*
* See the LICENSE file for redistribution information.
*/
#include "config.h"
#include <sys/types.h>
#include <sys/queue.h>
#include <sys/time.h>
#include <bitstring.h>
#include <limits.h>
#include <stdlib.h>
#include <stdio.h>
#include "../common/common.h"
#include "vi.h"
enum which {BQMARK, FQMARK};
static int mark(SCR *, VICMD *, int, enum which);
/*
* v_mark -- m[a-z]
* Set a mark.
*
* PUBLIC: int v_mark(SCR *, VICMD *);
*/
int
v_mark(SCR *sp, VICMD *vp)
{
return (mark_set(sp, vp->character, &vp->m_start, 1));
}
/*
* v_bmark -- `['`a-z]
* Move to a mark.
*
* Moves to a mark, setting both row and column.
*
* !!!
* Although not commonly known, the "'`" and "'`" forms are historically
* valid. The behavior is determined by the first character, so "`'" is
* the same as "``". Remember this fact -- you'll be amazed at how many
* people don't know it and will be delighted that you are able to tell
* them.
*
* PUBLIC: int v_bmark(SCR *, VICMD *);
*/
int
v_bmark(SCR *sp, VICMD *vp)
{
return (mark(sp, vp, 1, BQMARK));
}
/*
* v_fmark -- '['`a-z]
* Move to a mark.
*
* Move to the first nonblank character of the line containing the mark.
*
* PUBLIC: int v_fmark(SCR *, VICMD *);
*/
int
v_fmark(SCR *sp, VICMD *vp)
{
return (mark(sp, vp, 1, FQMARK));
}
/*
* v_emark -- <mouse click>
* Mouse mark.
*
* PUBLIC: int v_emark(SCR *, VICMD *);
*/
int
v_emark(SCR *sp, VICMD *vp)
{
SMAP *smp;
smp = HMAP + vp->ev.e_lno;
if (smp > TMAP) {
msgq(sp, M_BERR, "320|Unknown cursor position.");
return (1);
}
vp->m_stop.lno = smp->lno;
vp->m_stop.cno =
vs_colpos(sp, smp->lno, vp->ev.e_cno + (smp->soff - 1) * sp->cols);
return (mark(sp, vp, 0, BQMARK));
}
/*
* mark --
* Mark commands.
*/
static int
mark(SCR *sp, VICMD *vp, int getmark, enum which cmd)
{
dir_t dir;
MARK m;
size_t len;
if (getmark && mark_get(sp, vp->character, &vp->m_stop, M_BERR))
return (1);
/*
* !!!
* Historically, BQMARKS for character positions that no longer
* existed acted as FQMARKS.
*
* FQMARKS move to the first non-blank.
*/
switch (cmd) {
case BQMARK:
if (db_get(sp, vp->m_stop.lno, DBG_FATAL, NULL, &len))
return (1);
if (vp->m_stop.cno < len ||
(vp->m_stop.cno == len && len == 0))
break;
if (ISMOTION(vp))
F_SET(vp, VM_LMODE);
cmd = FQMARK;
/* FALLTHROUGH */
case FQMARK:
vp->m_stop.cno = 0;
if (nonblank(sp, vp->m_stop.lno, &vp->m_stop.cno))
return (1);
break;
default:
abort();
}
/* Non-motion commands move to the end of the range. */
if (!ISMOTION(vp)) {
vp->m_final = vp->m_stop;
return (0);
}
/*
* !!!
* If a motion component to a BQMARK, the cursor has to move.
*/
if (cmd == BQMARK &&
vp->m_stop.lno == vp->m_start.lno &&
vp->m_stop.cno == vp->m_start.cno) {
v_nomove(sp);
return (1);
}
/*
* If the motion is in the reverse direction, switch the start and
* stop MARK's so that it's in a forward direction. (There's no
* reason for this other than to make the tests below easier. The
* code in vi.c:vi() would have done the switch.) Both forward
* and backward motions can happen for any kind of search command.
*/
if (vp->m_start.lno > vp->m_stop.lno ||
(vp->m_start.lno == vp->m_stop.lno &&
vp->m_start.cno > vp->m_stop.cno)) {
m = vp->m_start;
vp->m_start = vp->m_stop;
vp->m_stop = m;
dir = BACKWARD;
} else
dir = FORWARD;
/*
* Yank cursor motion, when associated with marks as motion commands,
* historically behaved as follows:
*
* ` motion ' motion
* Line change? Line change?
* Y N Y N
* -------------- ---------------
* FORWARD: | NM NM | NM NM
* | |
* BACKWARD: | M M | M NM(1)
*
* where NM means the cursor didn't move, and M means the cursor
* moved to the mark.
*
* As the cursor was usually moved for yank commands associated
* with backward motions, this implementation regularizes it by
* changing the NM at position (1) to be an M. This makes mark
* motions match search motions, which is probably A Good Thing.
*
* Delete cursor motion was always to the start of the text region,
* regardless. Ignore other motion commands.
*/
vp->m_final = vp->m_start;
/*
* Forward marks are always line oriented, and it's set in the
* vcmd.c table.
*/
if (cmd == FQMARK)
return (0);
/*
* BQMARK'S moving backward and starting at column 0, and ones moving
* forward and ending at column 0 are corrected to the last column of
* the previous line. Otherwise, adjust the starting/ending point to
* the character before the current one (this is safe because we know
* the search had to move to succeed).
*
* Mark motions become line mode opertions if they start at the first
* nonblank and end at column 0 of another line.
*/
if (vp->m_start.lno < vp->m_stop.lno && vp->m_stop.cno == 0) {
if (db_get(sp, --vp->m_stop.lno, DBG_FATAL, NULL, &len))
return (1);
vp->m_stop.cno = len ? len - 1 : 0;
len = 0;
if (nonblank(sp, vp->m_start.lno, &len))
return (1);
if (vp->m_start.cno <= len)
F_SET(vp, VM_LMODE);
} else
--vp->m_stop.cno;
return (0);
}
|
