blob: 63af5eb54b120842ae13c2010567b96b2a74f20a [file] [log] [blame]
Bram Moolenaar071d4272004-06-13 20:20:40 +00001/* vi:set ts=8 sts=4 sw=4:
2 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 * See README.txt for an overview of the Vim source code.
8 */
9
10/*
11 * ex_cmds.c: some functions for command line commands
12 */
13
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014#include "vim.h"
Bram Moolenaar071d4272004-06-13 20:20:40 +000015#include "version.h"
16
Bram Moolenaar17576a12016-01-20 20:05:44 +010017#ifdef FEAT_FLOAT
18# include <float.h>
19#endif
20
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010021static int linelen(int *has_tab);
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010022static void do_filter(linenr_T line1, linenr_T line2, exarg_T *eap, char_u *cmd, int do_in, int do_out);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023#ifdef FEAT_VIMINFO
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010024static char_u *viminfo_filename(char_u *);
25static void do_viminfo(FILE *fp_in, FILE *fp_out, int flags);
26static int viminfo_encoding(vir_T *virp);
27static int read_viminfo_up_to_marks(vir_T *virp, int forceit, int writing);
Bram Moolenaar071d4272004-06-13 20:20:40 +000028#endif
29
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010030static int check_readonly(int *forceit, buf_T *buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000031#ifdef FEAT_AUTOCMD
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010032static void delbuf_msg(char_u *name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000033#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000034static int
35#ifdef __BORLANDC__
36 _RTLENTRYF
37#endif
Bram Moolenaarf28dbce2016-01-29 22:03:47 +010038 help_compare(const void *s1, const void *s2);
39static void prepare_help_buffer(void);
Bram Moolenaar071d4272004-06-13 20:20:40 +000040
41/*
42 * ":ascii" and "ga".
43 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000044 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +010045do_ascii(exarg_T *eap UNUSED)
Bram Moolenaar071d4272004-06-13 20:20:40 +000046{
47 int c;
Bram Moolenaar1418a0d2009-01-13 15:58:01 +000048 int cval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000049 char buf1[20];
50 char buf2[20];
51 char_u buf3[7];
52#ifdef FEAT_MBYTE
Bram Moolenaar362e1a32006-03-06 23:29:24 +000053 int cc[MAX_MCO];
54 int ci = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000055 int len;
56
57 if (enc_utf8)
Bram Moolenaar362e1a32006-03-06 23:29:24 +000058 c = utfc_ptr2char(ml_get_cursor(), cc);
Bram Moolenaar071d4272004-06-13 20:20:40 +000059 else
60#endif
61 c = gchar_cursor();
62 if (c == NUL)
63 {
64 MSG("NUL");
65 return;
66 }
67
68#ifdef FEAT_MBYTE
69 IObuff[0] = NUL;
70 if (!has_mbyte || (enc_dbcs != 0 && c < 0x100) || c < 0x80)
71#endif
72 {
73 if (c == NL) /* NUL is stored as NL */
74 c = NUL;
Bram Moolenaar1418a0d2009-01-13 15:58:01 +000075 if (c == CAR && get_fileformat(curbuf) == EOL_MAC)
76 cval = NL; /* NL is stored as CR */
77 else
78 cval = c;
Bram Moolenaar071d4272004-06-13 20:20:40 +000079 if (vim_isprintc_strict(c) && (c < ' '
80#ifndef EBCDIC
81 || c > '~'
82#endif
83 ))
84 {
85 transchar_nonprint(buf3, c);
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +000086 vim_snprintf(buf1, sizeof(buf1), " <%s>", (char *)buf3);
Bram Moolenaar071d4272004-06-13 20:20:40 +000087 }
88 else
89 buf1[0] = NUL;
90#ifndef EBCDIC
91 if (c >= 0x80)
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +000092 vim_snprintf(buf2, sizeof(buf2), " <M-%s>",
93 (char *)transchar(c & 0x7f));
Bram Moolenaar071d4272004-06-13 20:20:40 +000094 else
95#endif
96 buf2[0] = NUL;
Bram Moolenaar555b2802005-05-19 21:08:39 +000097 vim_snprintf((char *)IObuff, IOSIZE,
98 _("<%s>%s%s %d, Hex %02x, Octal %03o"),
Bram Moolenaar1418a0d2009-01-13 15:58:01 +000099 transchar(c), buf1, buf2, cval, cval, cval);
Bram Moolenaar071d4272004-06-13 20:20:40 +0000100#ifdef FEAT_MBYTE
Bram Moolenaar1f788e72006-09-05 16:30:40 +0000101 if (enc_utf8)
102 c = cc[ci++];
103 else
104 c = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000105#endif
106 }
107
108#ifdef FEAT_MBYTE
109 /* Repeat for combining characters. */
110 while (has_mbyte && (c >= 0x100 || (enc_utf8 && c >= 0x80)))
111 {
112 len = (int)STRLEN(IObuff);
113 /* This assumes every multi-byte char is printable... */
114 if (len > 0)
115 IObuff[len++] = ' ';
116 IObuff[len++] = '<';
Bram Moolenaar1f788e72006-09-05 16:30:40 +0000117 if (enc_utf8 && utf_iscomposing(c)
Bram Moolenaar4770d092006-01-12 23:22:24 +0000118# ifdef USE_GUI
Bram Moolenaar071d4272004-06-13 20:20:40 +0000119 && !gui.in_use
Bram Moolenaar4770d092006-01-12 23:22:24 +0000120# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000121 )
122 IObuff[len++] = ' '; /* draw composing char on top of a space */
Bram Moolenaar555b2802005-05-19 21:08:39 +0000123 len += (*mb_char2bytes)(c, IObuff + len);
124 vim_snprintf((char *)IObuff + len, IOSIZE - len,
Bram Moolenaar071d4272004-06-13 20:20:40 +0000125 c < 0x10000 ? _("> %d, Hex %04x, Octal %o")
126 : _("> %d, Hex %08x, Octal %o"), c, c, c);
Bram Moolenaar362e1a32006-03-06 23:29:24 +0000127 if (ci == MAX_MCO)
128 break;
Bram Moolenaar1f788e72006-09-05 16:30:40 +0000129 if (enc_utf8)
130 c = cc[ci++];
131 else
132 c = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000133 }
134#endif
135
136 msg(IObuff);
137}
138
Bram Moolenaar071d4272004-06-13 20:20:40 +0000139/*
140 * ":left", ":center" and ":right": align text.
141 */
142 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100143ex_align(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000144{
145 pos_T save_curpos;
146 int len;
147 int indent = 0;
148 int new_indent;
149 int has_tab;
150 int width;
151
152#ifdef FEAT_RIGHTLEFT
153 if (curwin->w_p_rl)
154 {
155 /* switch left and right aligning */
156 if (eap->cmdidx == CMD_right)
157 eap->cmdidx = CMD_left;
158 else if (eap->cmdidx == CMD_left)
159 eap->cmdidx = CMD_right;
160 }
161#endif
162
163 width = atoi((char *)eap->arg);
164 save_curpos = curwin->w_cursor;
165 if (eap->cmdidx == CMD_left) /* width is used for new indent */
166 {
167 if (width >= 0)
168 indent = width;
169 }
170 else
171 {
172 /*
173 * if 'textwidth' set, use it
174 * else if 'wrapmargin' set, use it
175 * if invalid value, use 80
176 */
177 if (width <= 0)
178 width = curbuf->b_p_tw;
179 if (width == 0 && curbuf->b_p_wm > 0)
180 width = W_WIDTH(curwin) - curbuf->b_p_wm;
181 if (width <= 0)
182 width = 80;
183 }
184
185 if (u_save((linenr_T)(eap->line1 - 1), (linenr_T)(eap->line2 + 1)) == FAIL)
186 return;
187
188 for (curwin->w_cursor.lnum = eap->line1;
189 curwin->w_cursor.lnum <= eap->line2; ++curwin->w_cursor.lnum)
190 {
191 if (eap->cmdidx == CMD_left) /* left align */
192 new_indent = indent;
193 else
194 {
Bram Moolenaar89d40322006-08-29 15:30:07 +0000195 has_tab = FALSE; /* avoid uninit warnings */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000196 len = linelen(eap->cmdidx == CMD_right ? &has_tab
197 : NULL) - get_indent();
198
199 if (len <= 0) /* skip blank lines */
200 continue;
201
202 if (eap->cmdidx == CMD_center)
203 new_indent = (width - len) / 2;
204 else
205 {
206 new_indent = width - len; /* right align */
207
208 /*
209 * Make sure that embedded TABs don't make the text go too far
210 * to the right.
211 */
212 if (has_tab)
213 while (new_indent > 0)
214 {
215 (void)set_indent(new_indent, 0);
216 if (linelen(NULL) <= width)
217 {
218 /*
219 * Now try to move the line as much as possible to
220 * the right. Stop when it moves too far.
221 */
222 do
223 (void)set_indent(++new_indent, 0);
224 while (linelen(NULL) <= width);
225 --new_indent;
226 break;
227 }
228 --new_indent;
229 }
230 }
231 }
232 if (new_indent < 0)
233 new_indent = 0;
234 (void)set_indent(new_indent, 0); /* set indent */
235 }
236 changed_lines(eap->line1, 0, eap->line2 + 1, 0L);
237 curwin->w_cursor = save_curpos;
238 beginline(BL_WHITE | BL_FIX);
239}
240
241/*
242 * Get the length of the current line, excluding trailing white space.
243 */
244 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100245linelen(int *has_tab)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000246{
247 char_u *line;
248 char_u *first;
249 char_u *last;
250 int save;
251 int len;
252
253 /* find the first non-blank character */
254 line = ml_get_curline();
255 first = skipwhite(line);
256
257 /* find the character after the last non-blank character */
258 for (last = first + STRLEN(first);
259 last > first && vim_iswhite(last[-1]); --last)
260 ;
261 save = *last;
262 *last = NUL;
263 len = linetabsize(line); /* get line length */
264 if (has_tab != NULL) /* check for embedded TAB */
265 *has_tab = (vim_strrchr(first, TAB) != NULL);
266 *last = save;
267
268 return len;
269}
270
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000271/* Buffer for two lines used during sorting. They are allocated to
272 * contain the longest line being sorted. */
273static char_u *sortbuf1;
274static char_u *sortbuf2;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000275
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100276static int sort_ic; /* ignore case */
277static int sort_nr; /* sort on number */
278static int sort_rx; /* sort on regex instead of skipping it */
279#ifdef FEAT_FLOAT
280static int sort_flt; /* sort on floating number */
281#endif
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000282
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100283static int sort_abort; /* flag to indicate if sorting has been interrupted */
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000284
285/* Struct to store info to be sorted. */
286typedef struct
287{
288 linenr_T lnum; /* line number */
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100289 union {
290 struct
291 {
292 long start_col_nr; /* starting column number */
293 long end_col_nr; /* ending column number */
294 } line;
295 long value; /* value if sorting by integer */
296#ifdef FEAT_FLOAT
297 float_T value_flt; /* value if sorting by float */
298#endif
299 } st_u;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000300} sorti_T;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000301
302static int
303#ifdef __BORLANDC__
304_RTLENTRYF
305#endif
Bram Moolenaarf28dbce2016-01-29 22:03:47 +0100306sort_compare(const void *s1, const void *s2);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000307
308 static int
309#ifdef __BORLANDC__
310_RTLENTRYF
311#endif
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100312sort_compare(const void *s1, const void *s2)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000313{
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000314 sorti_T l1 = *(sorti_T *)s1;
315 sorti_T l2 = *(sorti_T *)s2;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000316 int result = 0;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000317
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000318 /* If the user interrupts, there's no way to stop qsort() immediately, but
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000319 * if we return 0 every time, qsort will assume it's done sorting and
320 * exit. */
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000321 if (sort_abort)
322 return 0;
323 fast_breakcheck();
324 if (got_int)
325 sort_abort = TRUE;
326
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000327 /* When sorting numbers "start_col_nr" is the number, not the column
328 * number. */
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000329 if (sort_nr)
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100330 result = l1.st_u.value == l2.st_u.value ? 0
331 : l1.st_u.value > l2.st_u.value ? 1 : -1;
332#ifdef FEAT_FLOAT
333 else if (sort_flt)
334 result = l1.st_u.value_flt == l2.st_u.value_flt ? 0
335 : l1.st_u.value_flt > l2.st_u.value_flt ? 1 : -1;
336#endif
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000337 else
338 {
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000339 /* We need to copy one line into "sortbuf1", because there is no
340 * guarantee that the first pointer becomes invalid when obtaining the
341 * second one. */
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100342 STRNCPY(sortbuf1, ml_get(l1.lnum) + l1.st_u.line.start_col_nr,
343 l1.st_u.line.end_col_nr - l1.st_u.line.start_col_nr + 1);
344 sortbuf1[l1.st_u.line.end_col_nr - l1.st_u.line.start_col_nr] = 0;
345 STRNCPY(sortbuf2, ml_get(l2.lnum) + l2.st_u.line.start_col_nr,
346 l2.st_u.line.end_col_nr - l2.st_u.line.start_col_nr + 1);
347 sortbuf2[l2.st_u.line.end_col_nr - l2.st_u.line.start_col_nr] = 0;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000348
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000349 result = sort_ic ? STRICMP(sortbuf1, sortbuf2)
350 : STRCMP(sortbuf1, sortbuf2);
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000351 }
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000352
353 /* If two lines have the same value, preserve the original line order. */
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000354 if (result == 0)
Bram Moolenaarb21e5842006-04-16 18:30:08 +0000355 return (int)(l1.lnum - l2.lnum);
356 return result;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000357}
358
359/*
360 * ":sort".
361 */
362 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100363ex_sort(exarg_T *eap)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000364{
365 regmatch_T regmatch;
366 int len;
367 linenr_T lnum;
368 long maxlen = 0;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000369 sorti_T *nrs;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +0000370 size_t count = (size_t)(eap->line2 - eap->line1 + 1);
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000371 size_t i;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000372 char_u *p;
373 char_u *s;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000374 char_u *s2;
375 char_u c; /* temporary character storage */
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000376 int unique = FALSE;
377 long deleted;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000378 colnr_T start_col;
379 colnr_T end_col;
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100380 int sort_what = 0;
381 int format_found = 0;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000382
Bram Moolenaar48c99162008-02-18 18:42:52 +0000383 /* Sorting one line is really quick! */
384 if (count <= 1)
385 return;
386
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000387 if (u_save((linenr_T)(eap->line1 - 1), (linenr_T)(eap->line2 + 1)) == FAIL)
388 return;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000389 sortbuf1 = NULL;
390 sortbuf2 = NULL;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000391 regmatch.regprog = NULL;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000392 nrs = (sorti_T *)lalloc((long_u)(count * sizeof(sorti_T)), TRUE);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000393 if (nrs == NULL)
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000394 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000395
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100396 sort_abort = sort_ic = sort_rx = sort_nr = 0;
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100397#ifdef FEAT_FLOAT
398 sort_flt = 0;
399#endif
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000400
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000401 for (p = eap->arg; *p != NUL; ++p)
402 {
403 if (vim_iswhite(*p))
404 ;
405 else if (*p == 'i')
406 sort_ic = TRUE;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000407 else if (*p == 'r')
408 sort_rx = TRUE;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000409 else if (*p == 'n')
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100410 {
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100411 sort_nr = 1;
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100412 ++format_found;
413 }
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100414#ifdef FEAT_FLOAT
415 else if (*p == 'f')
416 {
417 sort_flt = 1;
418 ++format_found;
419 }
420#endif
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100421 else if (*p == 'b')
422 {
423 sort_what = STR2NR_BIN + STR2NR_FORCE;
424 ++format_found;
425 }
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000426 else if (*p == 'o')
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100427 {
428 sort_what = STR2NR_OCT + STR2NR_FORCE;
429 ++format_found;
430 }
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000431 else if (*p == 'x')
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100432 {
433 sort_what = STR2NR_HEX + STR2NR_FORCE;
434 ++format_found;
435 }
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000436 else if (*p == 'u')
437 unique = TRUE;
Bram Moolenaar0e6830e2005-05-27 20:23:44 +0000438 else if (*p == '"') /* comment start */
439 break;
440 else if (check_nextcmd(p) != NULL)
441 {
442 eap->nextcmd = check_nextcmd(p);
443 break;
444 }
445 else if (!ASCII_ISALPHA(*p) && regmatch.regprog == NULL)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000446 {
447 s = skip_regexp(p + 1, *p, TRUE, NULL);
448 if (*s != *p)
449 {
450 EMSG(_(e_invalpat));
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000451 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000452 }
453 *s = NUL;
Bram Moolenaar1256e722007-07-10 15:26:20 +0000454 /* Use last search pattern if sort pattern is empty. */
Bram Moolenaar210f3702013-03-07 16:41:30 +0100455 if (s == p + 1)
456 {
457 if (last_search_pat() == NULL)
458 {
459 EMSG(_(e_noprevre));
460 goto sortend;
461 }
Bram Moolenaar1256e722007-07-10 15:26:20 +0000462 regmatch.regprog = vim_regcomp(last_search_pat(), RE_MAGIC);
Bram Moolenaar210f3702013-03-07 16:41:30 +0100463 }
Bram Moolenaar1256e722007-07-10 15:26:20 +0000464 else
465 regmatch.regprog = vim_regcomp(p + 1, RE_MAGIC);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000466 if (regmatch.regprog == NULL)
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000467 goto sortend;
Bram Moolenaar0e6830e2005-05-27 20:23:44 +0000468 p = s; /* continue after the regexp */
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000469 regmatch.rm_ic = p_ic;
470 }
471 else
472 {
473 EMSG2(_(e_invarg2), p);
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000474 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000475 }
476 }
477
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100478 /* Can only have one of 'n', 'b', 'o' and 'x'. */
479 if (format_found > 1)
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000480 {
481 EMSG(_(e_invarg));
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000482 goto sortend;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000483 }
484
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100485 /* From here on "sort_nr" is used as a flag for any integer number
486 * sorting. */
Bram Moolenaar887c1fe2016-01-02 17:56:35 +0100487 sort_nr += sort_what;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000488
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000489 /*
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000490 * Make an array with all line numbers. This avoids having to copy all
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000491 * the lines into allocated memory.
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000492 * When sorting on strings "start_col_nr" is the offset in the line, for
493 * numbers sorting it's the number to sort on. This means the pattern
494 * matching and number conversion only has to be done once per line.
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000495 * Also get the longest line length for allocating "sortbuf".
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000496 */
497 for (lnum = eap->line1; lnum <= eap->line2; ++lnum)
498 {
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000499 s = ml_get(lnum);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +0000500 len = (int)STRLEN(s);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000501 if (maxlen < len)
502 maxlen = len;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000503
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000504 start_col = 0;
505 end_col = len;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000506 if (regmatch.regprog != NULL && vim_regexec(&regmatch, s, 0))
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000507 {
508 if (sort_rx)
509 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +0000510 start_col = (colnr_T)(regmatch.startp[0] - s);
511 end_col = (colnr_T)(regmatch.endp[0] - s);
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000512 }
513 else
Bram Moolenaara93fa7e2006-04-17 22:14:47 +0000514 start_col = (colnr_T)(regmatch.endp[0] - s);
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000515 }
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000516 else
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000517 if (regmatch.regprog != NULL)
518 end_col = 0;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000519
Bram Moolenaar937204a2016-01-30 23:37:38 +0100520 if (sort_nr
521#ifdef FEAT_FLOAT
522 || sort_flt
523#endif
524 )
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000525 {
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000526 /* Make sure vim_str2nr doesn't read any digits past the end
527 * of the match, by temporarily terminating the string there */
528 s2 = s + end_col;
529 c = *s2;
Bram Moolenaarf75d4982010-10-15 20:20:05 +0200530 *s2 = NUL;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000531 /* Sorting on number: Store the number itself. */
Bram Moolenaar1387a602008-07-24 19:31:11 +0000532 p = s + start_col;
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100533 if (sort_nr)
534 {
535 if (sort_what & STR2NR_HEX)
536 s = skiptohex(p);
537 else if (sort_what & STR2NR_BIN)
538 s = skiptobin(p);
539 else
540 s = skiptodigit(p);
541 if (s > p && s[-1] == '-')
542 --s; /* include preceding negative sign */
543 if (*s == NUL)
544 /* empty line should sort before any number */
545 nrs[lnum - eap->line1].st_u.value = -MAXLNUM;
546 else
547 vim_str2nr(s, NULL, NULL, sort_what,
548 &nrs[lnum - eap->line1].st_u.value, NULL, 0);
549 }
550#ifdef FEAT_FLOAT
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000551 else
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100552 {
553 s = skipwhite(p);
554 if (*s == '+')
555 s = skipwhite(s + 1);
556
557 if (*s == NUL)
558 /* empty line should sort before any number */
559 nrs[lnum - eap->line1].st_u.value_flt = -DBL_MAX;
560 else
561 nrs[lnum - eap->line1].st_u.value_flt =
562 strtod((char *)s, NULL);
563 }
564#endif
Bram Moolenaarf75d4982010-10-15 20:20:05 +0200565 *s2 = c;
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000566 }
567 else
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000568 {
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000569 /* Store the column to sort at. */
Bram Moolenaarf7edf402016-01-19 23:36:15 +0100570 nrs[lnum - eap->line1].st_u.line.start_col_nr = start_col;
571 nrs[lnum - eap->line1].st_u.line.end_col_nr = end_col;
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000572 }
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000573
574 nrs[lnum - eap->line1].lnum = lnum;
Bram Moolenaarae5bce12005-08-15 21:41:48 +0000575
576 if (regmatch.regprog != NULL)
577 fast_breakcheck();
578 if (got_int)
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000579 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000580 }
581
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000582 /* Allocate a buffer that can hold the longest line. */
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000583 sortbuf1 = alloc((unsigned)maxlen + 1);
584 if (sortbuf1 == NULL)
585 goto sortend;
586 sortbuf2 = alloc((unsigned)maxlen + 1);
587 if (sortbuf2 == NULL)
588 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000589
Bram Moolenaarae5bce12005-08-15 21:41:48 +0000590 /* Sort the array of line numbers. Note: can't be interrupted! */
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000591 qsort((void *)nrs, count, sizeof(sorti_T), sort_compare);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000592
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000593 if (sort_abort)
594 goto sortend;
595
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000596 /* Insert the lines in the sorted order below the last one. */
597 lnum = eap->line2;
598 for (i = 0; i < count; ++i)
599 {
600 s = ml_get(nrs[eap->forceit ? count - i - 1 : i].lnum);
601 if (!unique || i == 0
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000602 || (sort_ic ? STRICMP(s, sortbuf1) : STRCMP(s, sortbuf1)) != 0)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000603 {
Bram Moolenaar75e3ad02015-12-17 15:07:32 +0100604 /* Copy the line into a buffer, it may become invalid in
605 * ml_append(). And it's needed for "unique". */
606 STRCPY(sortbuf1, s);
607 if (ml_append(lnum++, sortbuf1, (colnr_T)0, FALSE) == FAIL)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000608 break;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000609 }
Bram Moolenaarae5bce12005-08-15 21:41:48 +0000610 fast_breakcheck();
611 if (got_int)
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000612 goto sortend;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000613 }
614
615 /* delete the original lines if appending worked */
616 if (i == count)
617 for (i = 0; i < count; ++i)
618 ml_delete(eap->line1, FALSE);
619 else
620 count = 0;
621
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000622 /* Adjust marks for deleted (or added) lines and prepare for displaying. */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +0000623 deleted = (long)(count - (lnum - eap->line2));
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000624 if (deleted > 0)
625 mark_adjust(eap->line2 - deleted, eap->line2, (long)MAXLNUM, -deleted);
626 else if (deleted < 0)
627 mark_adjust(eap->line2, MAXLNUM, -deleted, 0L);
628 changed_lines(eap->line1, 0, eap->line2 + 1, -deleted);
Bram Moolenaar54ee7752005-05-31 22:22:17 +0000629
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000630 curwin->w_cursor.lnum = eap->line1;
631 beginline(BL_WHITE | BL_FIX);
632
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000633sortend:
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000634 vim_free(nrs);
Bram Moolenaar4c3f5362006-04-11 21:38:50 +0000635 vim_free(sortbuf1);
636 vim_free(sortbuf2);
Bram Moolenaar473de612013-06-08 18:19:48 +0200637 vim_regfree(regmatch.regprog);
Bram Moolenaarae5bce12005-08-15 21:41:48 +0000638 if (got_int)
639 EMSG(_(e_interr));
Bram Moolenaar67fe1a12005-05-22 22:12:58 +0000640}
641
Bram Moolenaar071d4272004-06-13 20:20:40 +0000642/*
643 * ":retab".
644 */
645 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100646ex_retab(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000647{
648 linenr_T lnum;
649 int got_tab = FALSE;
650 long num_spaces = 0;
651 long num_tabs;
652 long len;
653 long col;
654 long vcol;
655 long start_col = 0; /* For start of white-space string */
656 long start_vcol = 0; /* For start of white-space string */
657 int temp;
658 long old_len;
659 char_u *ptr;
660 char_u *new_line = (char_u *)1; /* init to non-NULL */
661 int did_undo; /* called u_save for current line */
662 int new_ts;
663 int save_list;
664 linenr_T first_line = 0; /* first changed line */
665 linenr_T last_line = 0; /* last changed line */
666
667 save_list = curwin->w_p_list;
668 curwin->w_p_list = 0; /* don't want list mode here */
669
670 new_ts = getdigits(&(eap->arg));
671 if (new_ts < 0)
672 {
673 EMSG(_(e_positive));
674 return;
675 }
676 if (new_ts == 0)
677 new_ts = curbuf->b_p_ts;
678 for (lnum = eap->line1; !got_int && lnum <= eap->line2; ++lnum)
679 {
680 ptr = ml_get(lnum);
681 col = 0;
682 vcol = 0;
683 did_undo = FALSE;
684 for (;;)
685 {
686 if (vim_iswhite(ptr[col]))
687 {
688 if (!got_tab && num_spaces == 0)
689 {
690 /* First consecutive white-space */
691 start_vcol = vcol;
692 start_col = col;
693 }
694 if (ptr[col] == ' ')
695 num_spaces++;
696 else
697 got_tab = TRUE;
698 }
699 else
700 {
701 if (got_tab || (eap->forceit && num_spaces > 1))
702 {
703 /* Retabulate this string of white-space */
704
705 /* len is virtual length of white string */
706 len = num_spaces = vcol - start_vcol;
707 num_tabs = 0;
708 if (!curbuf->b_p_et)
709 {
710 temp = new_ts - (start_vcol % new_ts);
711 if (num_spaces >= temp)
712 {
713 num_spaces -= temp;
714 num_tabs++;
715 }
716 num_tabs += num_spaces / new_ts;
717 num_spaces -= (num_spaces / new_ts) * new_ts;
718 }
719 if (curbuf->b_p_et || got_tab ||
720 (num_spaces + num_tabs < len))
721 {
722 if (did_undo == FALSE)
723 {
724 did_undo = TRUE;
725 if (u_save((linenr_T)(lnum - 1),
726 (linenr_T)(lnum + 1)) == FAIL)
727 {
728 new_line = NULL; /* flag out-of-memory */
729 break;
730 }
731 }
732
733 /* len is actual number of white characters used */
734 len = num_spaces + num_tabs;
735 old_len = (long)STRLEN(ptr);
736 new_line = lalloc(old_len - col + start_col + len + 1,
737 TRUE);
738 if (new_line == NULL)
739 break;
740 if (start_col > 0)
741 mch_memmove(new_line, ptr, (size_t)start_col);
742 mch_memmove(new_line + start_col + len,
743 ptr + col, (size_t)(old_len - col + 1));
744 ptr = new_line + start_col;
745 for (col = 0; col < len; col++)
746 ptr[col] = (col < num_tabs) ? '\t' : ' ';
747 ml_replace(lnum, new_line, FALSE);
748 if (first_line == 0)
749 first_line = lnum;
750 last_line = lnum;
751 ptr = new_line;
752 col = start_col + len;
753 }
754 }
755 got_tab = FALSE;
756 num_spaces = 0;
757 }
758 if (ptr[col] == NUL)
759 break;
760 vcol += chartabsize(ptr + col, (colnr_T)vcol);
761#ifdef FEAT_MBYTE
762 if (has_mbyte)
Bram Moolenaar0fa313a2005-08-10 21:07:57 +0000763 col += (*mb_ptr2len)(ptr + col);
Bram Moolenaar071d4272004-06-13 20:20:40 +0000764 else
765#endif
766 ++col;
767 }
768 if (new_line == NULL) /* out of memory */
769 break;
770 line_breakcheck();
771 }
772 if (got_int)
773 EMSG(_(e_interr));
774
775 if (curbuf->b_p_ts != new_ts)
776 redraw_curbuf_later(NOT_VALID);
777 if (first_line != 0)
778 changed_lines(first_line, 0, last_line + 1, 0L);
779
780 curwin->w_p_list = save_list; /* restore 'list' */
781
782 curbuf->b_p_ts = new_ts;
783 coladvance(curwin->w_curswant);
784
785 u_clearline();
786}
Bram Moolenaar071d4272004-06-13 20:20:40 +0000787
788/*
789 * :move command - move lines line1-line2 to line dest
790 *
791 * return FAIL for failure, OK otherwise
792 */
793 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100794do_move(linenr_T line1, linenr_T line2, linenr_T dest)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000795{
796 char_u *str;
797 linenr_T l;
798 linenr_T extra; /* Num lines added before line1 */
799 linenr_T num_lines; /* Num lines moved */
800 linenr_T last_line; /* Last line in file after adding new text */
Bram Moolenaard5f69332015-04-15 12:43:50 +0200801#ifdef FEAT_FOLDING
802 int isFolded;
803
804 /* Moving lines seems to corrupt the folds, delete folding info now
805 * and recreate it when finished. Don't do this for manual folding, it
806 * would delete all folds. */
807 isFolded = hasAnyFolding(curwin) && !foldmethodIsManual(curwin);
808 if (isFolded)
809 deleteFoldRecurse(&curwin->w_folds);
810#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000811
812 if (dest >= line1 && dest < line2)
813 {
814 EMSG(_("E134: Move lines into themselves"));
815 return FAIL;
816 }
817
818 num_lines = line2 - line1 + 1;
819
820 /*
821 * First we copy the old text to its new location -- webb
822 * Also copy the flag that ":global" command uses.
823 */
824 if (u_save(dest, dest + 1) == FAIL)
825 return FAIL;
826 for (extra = 0, l = line1; l <= line2; l++)
827 {
828 str = vim_strsave(ml_get(l + extra));
829 if (str != NULL)
830 {
831 ml_append(dest + l - line1, str, (colnr_T)0, FALSE);
832 vim_free(str);
833 if (dest < line1)
834 extra++;
835 }
836 }
837
838 /*
839 * Now we must be careful adjusting our marks so that we don't overlap our
840 * mark_adjust() calls.
841 *
842 * We adjust the marks within the old text so that they refer to the
843 * last lines of the file (temporarily), because we know no other marks
844 * will be set there since these line numbers did not exist until we added
845 * our new lines.
846 *
847 * Then we adjust the marks on lines between the old and new text positions
848 * (either forwards or backwards).
849 *
850 * And Finally we adjust the marks we put at the end of the file back to
851 * their final destination at the new text position -- webb
852 */
853 last_line = curbuf->b_ml.ml_line_count;
854 mark_adjust(line1, line2, last_line - line2, 0L);
Bram Moolenaare9ba5162013-05-29 22:02:22 +0200855 changed_lines(last_line - num_lines + 1, 0, last_line + 1, num_lines);
Bram Moolenaar071d4272004-06-13 20:20:40 +0000856 if (dest >= line2)
857 {
858 mark_adjust(line2 + 1, dest, -num_lines, 0L);
859 curbuf->b_op_start.lnum = dest - num_lines + 1;
860 curbuf->b_op_end.lnum = dest;
861 }
862 else
863 {
864 mark_adjust(dest + 1, line1 - 1, num_lines, 0L);
865 curbuf->b_op_start.lnum = dest + 1;
866 curbuf->b_op_end.lnum = dest + num_lines;
867 }
868 curbuf->b_op_start.col = curbuf->b_op_end.col = 0;
869 mark_adjust(last_line - num_lines + 1, last_line,
870 -(last_line - dest - extra), 0L);
Bram Moolenaare9ba5162013-05-29 22:02:22 +0200871 changed_lines(last_line - num_lines + 1, 0, last_line + 1, -extra);
Bram Moolenaar071d4272004-06-13 20:20:40 +0000872
873 /*
874 * Now we delete the original text -- webb
875 */
876 if (u_save(line1 + extra - 1, line2 + extra + 1) == FAIL)
877 return FAIL;
878
879 for (l = line1; l <= line2; l++)
880 ml_delete(line1 + extra, TRUE);
881
882 if (!global_busy && num_lines > p_report)
883 {
884 if (num_lines == 1)
885 MSG(_("1 line moved"));
886 else
887 smsg((char_u *)_("%ld lines moved"), num_lines);
888 }
889
890 /*
891 * Leave the cursor on the last of the moved lines.
892 */
893 if (dest >= line1)
894 curwin->w_cursor.lnum = dest;
895 else
896 curwin->w_cursor.lnum = dest + (line2 - line1) + 1;
897
898 if (line1 < dest)
Bram Moolenaar0612ec82011-11-30 17:01:58 +0100899 {
900 dest += num_lines + 1;
901 last_line = curbuf->b_ml.ml_line_count;
902 if (dest > last_line + 1)
903 dest = last_line + 1;
904 changed_lines(line1, 0, dest, 0L);
905 }
Bram Moolenaar071d4272004-06-13 20:20:40 +0000906 else
907 changed_lines(dest + 1, 0, line1 + num_lines, 0L);
908
Bram Moolenaard5f69332015-04-15 12:43:50 +0200909#ifdef FEAT_FOLDING
910 /* recreate folds */
911 if (isFolded)
912 foldUpdateAll(curwin);
913#endif
914
Bram Moolenaar071d4272004-06-13 20:20:40 +0000915 return OK;
916}
917
918/*
919 * ":copy"
920 */
921 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100922ex_copy(linenr_T line1, linenr_T line2, linenr_T n)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000923{
924 linenr_T count;
925 char_u *p;
926
927 count = line2 - line1 + 1;
928 curbuf->b_op_start.lnum = n + 1;
929 curbuf->b_op_end.lnum = n + count;
930 curbuf->b_op_start.col = curbuf->b_op_end.col = 0;
931
932 /*
933 * there are three situations:
934 * 1. destination is above line1
935 * 2. destination is between line1 and line2
936 * 3. destination is below line2
937 *
938 * n = destination (when starting)
939 * curwin->w_cursor.lnum = destination (while copying)
940 * line1 = start of source (while copying)
941 * line2 = end of source (while copying)
942 */
943 if (u_save(n, n + 1) == FAIL)
944 return;
945
946 curwin->w_cursor.lnum = n;
947 while (line1 <= line2)
948 {
949 /* need to use vim_strsave() because the line will be unlocked within
950 * ml_append() */
951 p = vim_strsave(ml_get(line1));
952 if (p != NULL)
953 {
954 ml_append(curwin->w_cursor.lnum, p, (colnr_T)0, FALSE);
955 vim_free(p);
956 }
957 /* situation 2: skip already copied lines */
958 if (line1 == n)
959 line1 = curwin->w_cursor.lnum;
960 ++line1;
961 if (curwin->w_cursor.lnum < line1)
962 ++line1;
963 if (curwin->w_cursor.lnum < line2)
964 ++line2;
965 ++curwin->w_cursor.lnum;
966 }
967
968 appended_lines_mark(n, count);
969
970 msgmore((long)count);
971}
972
Bram Moolenaarf461c8e2005-06-25 23:04:51 +0000973static char_u *prevcmd = NULL; /* the previous command */
974
975#if defined(EXITFREE) || defined(PROTO)
976 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100977free_prev_shellcmd(void)
Bram Moolenaarf461c8e2005-06-25 23:04:51 +0000978{
979 vim_free(prevcmd);
980}
981#endif
982
Bram Moolenaar071d4272004-06-13 20:20:40 +0000983/*
984 * Handle the ":!cmd" command. Also for ":r !cmd" and ":w !cmd"
985 * Bangs in the argument are replaced with the previously entered command.
986 * Remember the argument.
Bram Moolenaar071d4272004-06-13 20:20:40 +0000987 */
988 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +0100989do_bang(
990 int addr_count,
991 exarg_T *eap,
992 int forceit,
993 int do_in,
994 int do_out)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000995{
996 char_u *arg = eap->arg; /* command */
997 linenr_T line1 = eap->line1; /* start of range */
998 linenr_T line2 = eap->line2; /* end of range */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000999 char_u *newcmd = NULL; /* the new command */
1000 int free_newcmd = FALSE; /* need to free() newcmd */
1001 int ins_prevcmd;
1002 char_u *t;
1003 char_u *p;
1004 char_u *trailarg;
1005 int len;
1006 int scroll_save = msg_scroll;
1007
1008 /*
1009 * Disallow shell commands for "rvim".
1010 * Disallow shell commands from .exrc and .vimrc in current directory for
1011 * security reasons.
1012 */
1013 if (check_restricted() || check_secure())
1014 return;
1015
1016 if (addr_count == 0) /* :! */
1017 {
1018 msg_scroll = FALSE; /* don't scroll here */
1019 autowrite_all();
1020 msg_scroll = scroll_save;
1021 }
1022
1023 /*
1024 * Try to find an embedded bang, like in :!<cmd> ! [args]
1025 * (:!! is indicated by the 'forceit' variable)
1026 */
1027 ins_prevcmd = forceit;
1028 trailarg = arg;
1029 do
1030 {
1031 len = (int)STRLEN(trailarg) + 1;
1032 if (newcmd != NULL)
1033 len += (int)STRLEN(newcmd);
1034 if (ins_prevcmd)
1035 {
1036 if (prevcmd == NULL)
1037 {
1038 EMSG(_(e_noprev));
1039 vim_free(newcmd);
1040 return;
1041 }
1042 len += (int)STRLEN(prevcmd);
1043 }
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001044 if ((t = alloc((unsigned)len)) == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001045 {
1046 vim_free(newcmd);
1047 return;
1048 }
1049 *t = NUL;
1050 if (newcmd != NULL)
1051 STRCAT(t, newcmd);
1052 if (ins_prevcmd)
1053 STRCAT(t, prevcmd);
1054 p = t + STRLEN(t);
1055 STRCAT(t, trailarg);
1056 vim_free(newcmd);
1057 newcmd = t;
1058
1059 /*
1060 * Scan the rest of the argument for '!', which is replaced by the
1061 * previous command. "\!" is replaced by "!" (this is vi compatible).
1062 */
1063 trailarg = NULL;
1064 while (*p)
1065 {
Bram Moolenaare60acc12011-05-10 16:41:25 +02001066 if (*p == '!')
Bram Moolenaar071d4272004-06-13 20:20:40 +00001067 {
1068 if (p > newcmd && p[-1] == '\\')
Bram Moolenaar8c8de832008-06-24 22:58:06 +00001069 STRMOVE(p - 1, p);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001070 else
1071 {
1072 trailarg = p;
1073 *trailarg++ = NUL;
1074 ins_prevcmd = TRUE;
1075 break;
1076 }
1077 }
1078 ++p;
1079 }
1080 } while (trailarg != NULL);
1081
1082 vim_free(prevcmd);
1083 prevcmd = newcmd;
1084
1085 if (bangredo) /* put cmd in redo buffer for ! command */
1086 {
Bram Moolenaar529d2d62014-03-19 17:41:23 +01001087 /* If % or # appears in the command, it must have been escaped.
1088 * Reescape them, so that redoing them does not substitute them by the
1089 * buffername. */
1090 char_u *cmd = vim_strsave_escaped(prevcmd, (char_u *)"%#");
1091
1092 if (cmd != NULL)
1093 {
1094 AppendToRedobuffLit(cmd, -1);
1095 vim_free(cmd);
1096 }
1097 else
1098 AppendToRedobuffLit(prevcmd, -1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001099 AppendToRedobuff((char_u *)"\n");
1100 bangredo = FALSE;
1101 }
1102 /*
1103 * Add quotes around the command, for shells that need them.
1104 */
1105 if (*p_shq != NUL)
1106 {
1107 newcmd = alloc((unsigned)(STRLEN(prevcmd) + 2 * STRLEN(p_shq) + 1));
1108 if (newcmd == NULL)
1109 return;
1110 STRCPY(newcmd, p_shq);
1111 STRCAT(newcmd, prevcmd);
1112 STRCAT(newcmd, p_shq);
1113 free_newcmd = TRUE;
1114 }
1115 if (addr_count == 0) /* :! */
1116 {
1117 /* echo the command */
1118 msg_start();
1119 msg_putchar(':');
1120 msg_putchar('!');
1121 msg_outtrans(newcmd);
1122 msg_clr_eos();
1123 windgoto(msg_row, msg_col);
1124
1125 do_shell(newcmd, 0);
1126 }
1127 else /* :range! */
Bram Moolenaarade00832006-03-10 21:46:58 +00001128 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00001129 /* Careful: This may recursively call do_bang() again! (because of
1130 * autocommands) */
1131 do_filter(line1, line2, eap, newcmd, do_in, do_out);
Bram Moolenaarade00832006-03-10 21:46:58 +00001132#ifdef FEAT_AUTOCMD
1133 apply_autocmds(EVENT_SHELLFILTERPOST, NULL, NULL, FALSE, curbuf);
1134#endif
1135 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001136 if (free_newcmd)
1137 vim_free(newcmd);
1138}
1139
1140/*
1141 * do_filter: filter lines through a command given by the user
1142 *
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001143 * We mostly use temp files and the call_shell() routine here. This would
1144 * normally be done using pipes on a UNIX machine, but this is more portable
1145 * to non-unix machines. The call_shell() routine needs to be able
Bram Moolenaar071d4272004-06-13 20:20:40 +00001146 * to deal with redirection somehow, and should handle things like looking
1147 * at the PATH env. variable, and adding reasonable extensions to the
1148 * command name given by the user. All reasonable versions of call_shell()
1149 * do this.
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001150 * Alternatively, if on Unix and redirecting input or output, but not both,
1151 * and the 'shelltemp' option isn't set, use pipes.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001152 * We use input redirection if do_in is TRUE.
1153 * We use output redirection if do_out is TRUE.
1154 */
1155 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001156do_filter(
1157 linenr_T line1,
1158 linenr_T line2,
1159 exarg_T *eap, /* for forced 'ff' and 'fenc' */
1160 char_u *cmd,
1161 int do_in,
1162 int do_out)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001163{
1164 char_u *itmp = NULL;
1165 char_u *otmp = NULL;
1166 linenr_T linecount;
1167 linenr_T read_linecount;
1168 pos_T cursor_save;
1169 char_u *cmd_buf;
1170#ifdef FEAT_AUTOCMD
1171 buf_T *old_curbuf = curbuf;
1172#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001173 int shell_flags = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001174
1175 if (*cmd == NUL) /* no filter command */
1176 return;
1177
1178#ifdef WIN3264
1179 /*
1180 * Check if external commands are allowed now.
1181 */
1182 if (can_end_termcap_mode(TRUE) == FALSE)
1183 return;
1184#endif
1185
1186 cursor_save = curwin->w_cursor;
1187 linecount = line2 - line1 + 1;
1188 curwin->w_cursor.lnum = line1;
1189 curwin->w_cursor.col = 0;
1190 changed_line_abv_curs();
1191 invalidate_botline();
1192
1193 /*
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001194 * When using temp files:
1195 * 1. * Form temp file names
1196 * 2. * Write the lines to a temp file
1197 * 3. Run the filter command on the temp file
1198 * 4. * Read the output of the command into the buffer
1199 * 5. * Delete the original lines to be filtered
1200 * 6. * Remove the temp files
1201 *
1202 * When writing the input with a pipe or when catching the output with a
1203 * pipe only need to do 3.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001204 */
1205
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001206 if (do_out)
1207 shell_flags |= SHELL_DOOUT;
1208
Bram Moolenaar68a33fc2012-04-25 16:50:48 +02001209#ifdef FEAT_FILTERPIPE
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001210 if (!do_in && do_out && !p_stmp)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001211 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001212 /* Use a pipe to fetch stdout of the command, do not use a temp file. */
1213 shell_flags |= SHELL_READ;
1214 curwin->w_cursor.lnum = line2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001215 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001216 else if (do_in && !do_out && !p_stmp)
1217 {
1218 /* Use a pipe to write stdin of the command, do not use a temp file. */
1219 shell_flags |= SHELL_WRITE;
1220 curbuf->b_op_start.lnum = line1;
1221 curbuf->b_op_end.lnum = line2;
1222 }
1223 else if (do_in && do_out && !p_stmp)
1224 {
1225 /* Use a pipe to write stdin and fetch stdout of the command, do not
1226 * use a temp file. */
1227 shell_flags |= SHELL_READ|SHELL_WRITE;
1228 curbuf->b_op_start.lnum = line1;
1229 curbuf->b_op_end.lnum = line2;
1230 curwin->w_cursor.lnum = line2;
1231 }
1232 else
1233#endif
Bram Moolenaare5c421c2015-03-31 13:33:08 +02001234 if ((do_in && (itmp = vim_tempname('i', FALSE)) == NULL)
1235 || (do_out && (otmp = vim_tempname('o', FALSE)) == NULL))
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001236 {
1237 EMSG(_(e_notmp));
1238 goto filterend;
1239 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001240
1241/*
1242 * The writing and reading of temp files will not be shown.
1243 * Vi also doesn't do this and the messages are not very informative.
1244 */
1245 ++no_wait_return; /* don't call wait_return() while busy */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001246 if (itmp != NULL && buf_write(curbuf, itmp, NULL, line1, line2, eap,
Bram Moolenaar071d4272004-06-13 20:20:40 +00001247 FALSE, FALSE, FALSE, TRUE) == FAIL)
1248 {
1249 msg_putchar('\n'); /* keep message from buf_write() */
1250 --no_wait_return;
1251#if defined(FEAT_AUTOCMD) && defined(FEAT_EVAL)
1252 if (!aborting())
1253#endif
1254 (void)EMSG2(_(e_notcreate), itmp); /* will call wait_return */
1255 goto filterend;
1256 }
1257#ifdef FEAT_AUTOCMD
1258 if (curbuf != old_curbuf)
1259 goto filterend;
1260#endif
1261
1262 if (!do_out)
1263 msg_putchar('\n');
1264
Bram Moolenaara9aafe52008-05-07 11:10:28 +00001265 /* Create the shell command in allocated memory. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001266 cmd_buf = make_filter_cmd(cmd, itmp, otmp);
1267 if (cmd_buf == NULL)
1268 goto filterend;
1269
1270 windgoto((int)Rows - 1, 0);
1271 cursor_on();
1272
1273 /*
1274 * When not redirecting the output the command can write anything to the
1275 * screen. If 'shellredir' is equal to ">", screen may be messed up by
1276 * stderr output of external command. Clear the screen later.
1277 * If do_in is FALSE, this could be something like ":r !cat", which may
1278 * also mess up the screen, clear it later.
1279 */
1280 if (!do_out || STRCMP(p_srr, ">") == 0 || !do_in)
1281 redraw_later_clear();
1282
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001283 if (do_out)
1284 {
1285 if (u_save((linenr_T)(line2), (linenr_T)(line2 + 1)) == FAIL)
Bram Moolenaara9aafe52008-05-07 11:10:28 +00001286 {
1287 vim_free(cmd_buf);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001288 goto error;
Bram Moolenaara9aafe52008-05-07 11:10:28 +00001289 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001290 redraw_curbuf_later(VALID);
1291 }
1292 read_linecount = curbuf->b_ml.ml_line_count;
1293
Bram Moolenaar071d4272004-06-13 20:20:40 +00001294 /*
1295 * When call_shell() fails wait_return() is called to give the user a
1296 * chance to read the error messages. Otherwise errors are ignored, so you
1297 * can see the error messages from the command that appear on stdout; use
1298 * 'u' to fix the text
1299 * Switch to cooked mode when not redirecting stdin, avoids that something
1300 * like ":r !cat" hangs.
1301 * Pass on the SHELL_DOOUT flag when the output is being redirected.
1302 */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001303 if (call_shell(cmd_buf, SHELL_FILTER | SHELL_COOKED | shell_flags))
Bram Moolenaar071d4272004-06-13 20:20:40 +00001304 {
1305 redraw_later_clear();
1306 wait_return(FALSE);
1307 }
1308 vim_free(cmd_buf);
1309
1310 did_check_timestamps = FALSE;
1311 need_check_timestamps = TRUE;
1312
1313 /* When interrupting the shell command, it may still have produced some
1314 * useful output. Reset got_int here, so that readfile() won't cancel
1315 * reading. */
1316 ui_breakcheck();
1317 got_int = FALSE;
1318
1319 if (do_out)
1320 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001321 if (otmp != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001322 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001323 if (readfile(otmp, NULL, line2, (linenr_T)0, (linenr_T)MAXLNUM,
1324 eap, READ_FILTER) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001325 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001326#if defined(FEAT_AUTOCMD) && defined(FEAT_EVAL)
1327 if (!aborting())
Bram Moolenaar071d4272004-06-13 20:20:40 +00001328#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001329 {
1330 msg_putchar('\n');
1331 EMSG2(_(e_notread), otmp);
1332 }
1333 goto error;
1334 }
1335#ifdef FEAT_AUTOCMD
1336 if (curbuf != old_curbuf)
1337 goto filterend;
1338#endif
1339 }
1340
1341 read_linecount = curbuf->b_ml.ml_line_count - read_linecount;
1342
1343 if (shell_flags & SHELL_READ)
1344 {
1345 curbuf->b_op_start.lnum = line2 + 1;
1346 curbuf->b_op_end.lnum = curwin->w_cursor.lnum;
1347 appended_lines_mark(line2, read_linecount);
1348 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001349
1350 if (do_in)
1351 {
1352 if (cmdmod.keepmarks || vim_strchr(p_cpo, CPO_REMMARK) == NULL)
1353 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00001354 if (read_linecount >= linecount)
1355 /* move all marks from old lines to new lines */
1356 mark_adjust(line1, line2, linecount, 0L);
1357 else
1358 {
1359 /* move marks from old lines to new lines, delete marks
1360 * that are in deleted lines */
1361 mark_adjust(line1, line1 + read_linecount - 1,
1362 linecount, 0L);
1363 mark_adjust(line1 + read_linecount, line2, MAXLNUM, 0L);
1364 }
1365 }
1366
1367 /*
1368 * Put cursor on first filtered line for ":range!cmd".
1369 * Adjust '[ and '] (set by buf_write()).
1370 */
1371 curwin->w_cursor.lnum = line1;
1372 del_lines(linecount, TRUE);
1373 curbuf->b_op_start.lnum -= linecount; /* adjust '[ */
1374 curbuf->b_op_end.lnum -= linecount; /* adjust '] */
1375 write_lnum_adjust(-linecount); /* adjust last line
1376 for next write */
Bram Moolenaar8c711452005-01-14 21:53:12 +00001377#ifdef FEAT_FOLDING
1378 foldUpdate(curwin, curbuf->b_op_start.lnum, curbuf->b_op_end.lnum);
1379#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00001380 }
1381 else
1382 {
1383 /*
1384 * Put cursor on last new line for ":r !cmd".
1385 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001386 linecount = curbuf->b_op_end.lnum - curbuf->b_op_start.lnum + 1;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001387 curwin->w_cursor.lnum = curbuf->b_op_end.lnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001388 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00001389
Bram Moolenaar071d4272004-06-13 20:20:40 +00001390 beginline(BL_WHITE | BL_FIX); /* cursor on first non-blank */
1391 --no_wait_return;
1392
1393 if (linecount > p_report)
1394 {
1395 if (do_in)
1396 {
Bram Moolenaar555b2802005-05-19 21:08:39 +00001397 vim_snprintf((char *)msg_buf, sizeof(msg_buf),
1398 _("%ld lines filtered"), (long)linecount);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001399 if (msg(msg_buf) && !msg_scroll)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001400 /* save message to display it after redraw */
Bram Moolenaar238a5642006-02-21 22:12:05 +00001401 set_keep_msg(msg_buf, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001402 }
1403 else
1404 msgmore((long)linecount);
1405 }
1406 }
1407 else
1408 {
1409error:
1410 /* put cursor back in same position for ":w !cmd" */
1411 curwin->w_cursor = cursor_save;
1412 --no_wait_return;
1413 wait_return(FALSE);
1414 }
1415
1416filterend:
1417
1418#ifdef FEAT_AUTOCMD
1419 if (curbuf != old_curbuf)
1420 {
1421 --no_wait_return;
1422 EMSG(_("E135: *Filter* Autocommands must not change current buffer"));
1423 }
1424#endif
1425 if (itmp != NULL)
1426 mch_remove(itmp);
1427 if (otmp != NULL)
1428 mch_remove(otmp);
1429 vim_free(itmp);
1430 vim_free(otmp);
1431}
1432
1433/*
1434 * Call a shell to execute a command.
1435 * When "cmd" is NULL start an interactive shell.
1436 */
1437 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001438do_shell(
1439 char_u *cmd,
1440 int flags) /* may be SHELL_DOOUT when output is redirected */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001441{
1442 buf_T *buf;
1443#ifndef FEAT_GUI_MSWIN
1444 int save_nwr;
1445#endif
1446#ifdef MSWIN
1447 int winstart = FALSE;
1448#endif
1449
1450 /*
1451 * Disallow shell commands for "rvim".
1452 * Disallow shell commands from .exrc and .vimrc in current directory for
1453 * security reasons.
1454 */
1455 if (check_restricted() || check_secure())
1456 {
1457 msg_end();
1458 return;
1459 }
1460
1461#ifdef MSWIN
1462 /*
1463 * Check if external commands are allowed now.
1464 */
1465 if (can_end_termcap_mode(TRUE) == FALSE)
1466 return;
1467
1468 /*
1469 * Check if ":!start" is used.
1470 */
1471 if (cmd != NULL)
1472 winstart = (STRNICMP(cmd, "start ", 6) == 0);
1473#endif
1474
1475 /*
1476 * For autocommands we want to get the output on the current screen, to
1477 * avoid having to type return below.
1478 */
1479 msg_putchar('\r'); /* put cursor at start of line */
1480#ifdef FEAT_AUTOCMD
1481 if (!autocmd_busy)
1482#endif
1483 {
1484#ifdef MSWIN
1485 if (!winstart)
1486#endif
1487 stoptermcap();
1488 }
1489#ifdef MSWIN
1490 if (!winstart)
1491#endif
1492 msg_putchar('\n'); /* may shift screen one line up */
1493
1494 /* warning message before calling the shell */
1495 if (p_warn
1496#ifdef FEAT_AUTOCMD
1497 && !autocmd_busy
1498#endif
1499 && msg_silent == 0)
1500 for (buf = firstbuf; buf; buf = buf->b_next)
1501 if (bufIsChanged(buf))
1502 {
1503#ifdef FEAT_GUI_MSWIN
1504 if (!winstart)
1505 starttermcap(); /* don't want a message box here */
1506#endif
1507 MSG_PUTS(_("[No write since last change]\n"));
1508#ifdef FEAT_GUI_MSWIN
1509 if (!winstart)
1510 stoptermcap();
1511#endif
1512 break;
1513 }
1514
1515 /* This windgoto is required for when the '\n' resulted in a "delete line
1516 * 1" command to the terminal. */
1517 if (!swapping_screen())
1518 windgoto(msg_row, msg_col);
1519 cursor_on();
1520 (void)call_shell(cmd, SHELL_COOKED | flags);
1521 did_check_timestamps = FALSE;
1522 need_check_timestamps = TRUE;
1523
1524 /*
1525 * put the message cursor at the end of the screen, avoids wait_return()
1526 * to overwrite the text that the external command showed
1527 */
1528 if (!swapping_screen())
1529 {
1530 msg_row = Rows - 1;
1531 msg_col = 0;
1532 }
1533
1534#ifdef FEAT_AUTOCMD
1535 if (autocmd_busy)
1536 {
1537 if (msg_silent == 0)
1538 redraw_later_clear();
1539 }
1540 else
1541#endif
1542 {
1543 /*
1544 * For ":sh" there is no need to call wait_return(), just redraw.
1545 * Also for the Win32 GUI (the output is in a console window).
1546 * Otherwise there is probably text on the screen that the user wants
1547 * to read before redrawing, so call wait_return().
1548 */
1549#ifndef FEAT_GUI_MSWIN
1550 if (cmd == NULL
1551# ifdef WIN3264
1552 || (winstart && !need_wait_return)
1553# endif
1554 )
1555 {
1556 if (msg_silent == 0)
1557 redraw_later_clear();
1558 need_wait_return = FALSE;
1559 }
1560 else
1561 {
1562 /*
1563 * If we switch screens when starttermcap() is called, we really
1564 * want to wait for "hit return to continue".
1565 */
1566 save_nwr = no_wait_return;
1567 if (swapping_screen())
1568 no_wait_return = FALSE;
1569# ifdef AMIGA
1570 wait_return(term_console ? -1 : msg_silent == 0); /* see below */
1571# else
1572 wait_return(msg_silent == 0);
1573# endif
1574 no_wait_return = save_nwr;
1575 }
1576#endif /* FEAT_GUI_W32 */
1577
1578#ifdef MSWIN
1579 if (!winstart) /* if winstart==TRUE, never stopped termcap! */
1580#endif
1581 starttermcap(); /* start termcap if not done by wait_return() */
1582
1583 /*
1584 * In an Amiga window redrawing is caused by asking the window size.
1585 * If we got an interrupt this will not work. The chance that the
1586 * window size is wrong is very small, but we need to redraw the
1587 * screen. Don't do this if ':' hit in wait_return(). THIS IS UGLY
1588 * but it saves an extra redraw.
1589 */
1590#ifdef AMIGA
1591 if (skip_redraw) /* ':' hit in wait_return() */
1592 {
1593 if (msg_silent == 0)
1594 redraw_later_clear();
1595 }
1596 else if (term_console)
1597 {
1598 OUT_STR(IF_EB("\033[0 q", ESC_STR "[0 q")); /* get window size */
1599 if (got_int && msg_silent == 0)
1600 redraw_later_clear(); /* if got_int is TRUE, redraw needed */
1601 else
1602 must_redraw = 0; /* no extra redraw needed */
1603 }
1604#endif
1605 }
1606
1607 /* display any error messages now */
1608 display_errors();
Bram Moolenaarade00832006-03-10 21:46:58 +00001609
1610#ifdef FEAT_AUTOCMD
1611 apply_autocmds(EVENT_SHELLCMDPOST, NULL, NULL, FALSE, curbuf);
1612#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00001613}
1614
1615/*
1616 * Create a shell command from a command string, input redirection file and
1617 * output redirection file.
1618 * Returns an allocated string with the shell command, or NULL for failure.
1619 */
1620 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001621make_filter_cmd(
1622 char_u *cmd, /* command */
1623 char_u *itmp, /* NULL or name of input file */
1624 char_u *otmp) /* NULL or name of output file */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001625{
1626 char_u *buf;
1627 long_u len;
1628
Bram Moolenaar53076832015-12-31 19:53:21 +01001629#if defined(UNIX)
Bram Moolenaard442ec72014-05-09 20:33:04 +02001630 int is_fish_shell;
Bram Moolenaar050fe7e2014-05-22 14:00:16 +02001631 char_u *shell_name = get_isolated_shell_name();
Bram Moolenaard442ec72014-05-09 20:33:04 +02001632
Bram Moolenaar75a8d742014-05-07 15:10:21 +02001633 /* Account for fish's different syntax for subshells */
Bram Moolenaar050fe7e2014-05-22 14:00:16 +02001634 is_fish_shell = (fnamecmp(shell_name, "fish") == 0);
1635 vim_free(shell_name);
Bram Moolenaar75a8d742014-05-07 15:10:21 +02001636 if (is_fish_shell)
1637 len = (long_u)STRLEN(cmd) + 13; /* "begin; " + "; end" + NUL */
1638 else
1639#endif
1640 len = (long_u)STRLEN(cmd) + 3; /* "()" + NUL */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001641 if (itmp != NULL)
1642 len += (long_u)STRLEN(itmp) + 9; /* " { < " + " } " */
1643 if (otmp != NULL)
1644 len += (long_u)STRLEN(otmp) + (long_u)STRLEN(p_srr) + 2; /* " " */
1645 buf = lalloc(len, TRUE);
1646 if (buf == NULL)
1647 return NULL;
1648
Bram Moolenaar53076832015-12-31 19:53:21 +01001649#if defined(UNIX)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001650 /*
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001651 * Put braces around the command (for concatenated commands) when
1652 * redirecting input and/or output.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001653 */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001654 if (itmp != NULL || otmp != NULL)
Bram Moolenaar75a8d742014-05-07 15:10:21 +02001655 {
1656 if (is_fish_shell)
1657 vim_snprintf((char *)buf, len, "begin; %s; end", (char *)cmd);
1658 else
1659 vim_snprintf((char *)buf, len, "(%s)", (char *)cmd);
1660 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001661 else
1662 STRCPY(buf, cmd);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001663 if (itmp != NULL)
1664 {
1665 STRCAT(buf, " < ");
1666 STRCAT(buf, itmp);
1667 }
1668#else
1669 /*
Bram Moolenaar75a8d742014-05-07 15:10:21 +02001670 * For shells that don't understand braces around commands, at least allow
Bram Moolenaar071d4272004-06-13 20:20:40 +00001671 * the use of commands in a pipe.
1672 */
1673 STRCPY(buf, cmd);
1674 if (itmp != NULL)
1675 {
1676 char_u *p;
1677
1678 /*
1679 * If there is a pipe, we have to put the '<' in front of it.
1680 * Don't do this when 'shellquote' is not empty, otherwise the
1681 * redirection would be inside the quotes.
1682 */
1683 if (*p_shq == NUL)
1684 {
1685 p = vim_strchr(buf, '|');
1686 if (p != NULL)
1687 *p = NUL;
1688 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001689 STRCAT(buf, " <"); /* " < " causes problems on Amiga */
1690 STRCAT(buf, itmp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001691 if (*p_shq == NUL)
1692 {
1693 p = vim_strchr(cmd, '|');
1694 if (p != NULL)
1695 {
1696 STRCAT(buf, " "); /* insert a space before the '|' for DOS */
1697 STRCAT(buf, p);
1698 }
1699 }
1700 }
1701#endif
1702 if (otmp != NULL)
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001703 append_redir(buf, (int)len, p_srr, otmp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001704
1705 return buf;
1706}
1707
1708/*
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001709 * Append output redirection for file "fname" to the end of string buffer
1710 * "buf[buflen]"
Bram Moolenaar071d4272004-06-13 20:20:40 +00001711 * Works with the 'shellredir' and 'shellpipe' options.
1712 * The caller should make sure that there is enough room:
1713 * STRLEN(opt) + STRLEN(fname) + 3
1714 */
1715 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001716append_redir(
1717 char_u *buf,
1718 int buflen,
1719 char_u *opt,
1720 char_u *fname)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001721{
1722 char_u *p;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001723 char_u *end;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001724
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001725 end = buf + STRLEN(buf);
Bram Moolenaar542805a2013-08-02 14:15:13 +02001726 /* find "%s" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001727 for (p = opt; (p = vim_strchr(p, '%')) != NULL; ++p)
Bram Moolenaar542805a2013-08-02 14:15:13 +02001728 {
1729 if (p[1] == 's') /* found %s */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001730 break;
Bram Moolenaar542805a2013-08-02 14:15:13 +02001731 if (p[1] == '%') /* skip %% */
1732 ++p;
1733 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001734 if (p != NULL)
1735 {
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001736 *end = ' '; /* not really needed? Not with sh, ksh or bash */
1737 vim_snprintf((char *)end + 1, (size_t)(buflen - (end + 1 - buf)),
1738 (char *)opt, (char *)fname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001739 }
1740 else
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00001741 vim_snprintf((char *)end, (size_t)(buflen - (end - buf)),
Bram Moolenaar071d4272004-06-13 20:20:40 +00001742#ifdef FEAT_QUICKFIX
Bram Moolenaar071d4272004-06-13 20:20:40 +00001743 " %s %s",
1744#else
Bram Moolenaar071d4272004-06-13 20:20:40 +00001745 " %s%s", /* " > %s" causes problems on Amiga */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001746#endif
1747 (char *)opt, (char *)fname);
1748}
1749
Bram Moolenaarb20e3342016-01-18 23:29:01 +01001750#if defined(FEAT_VIMINFO) || defined(PROTO)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001751
Bram Moolenaarf28dbce2016-01-29 22:03:47 +01001752static int no_viminfo(void);
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02001753static int read_viminfo_barline(vir_T *virp, int got_encoding, int writing);
1754static void write_viminfo_version(FILE *fp_out);
Bram Moolenaarb20e3342016-01-18 23:29:01 +01001755static void write_viminfo_barlines(vir_T *virp, FILE *fp_out);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001756static int viminfo_errcnt;
1757
1758 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001759no_viminfo(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001760{
1761 /* "vim -i NONE" does not read or write a viminfo file */
1762 return (use_viminfo != NULL && STRCMP(use_viminfo, "NONE") == 0);
1763}
1764
1765/*
1766 * Report an error for reading a viminfo file.
1767 * Count the number of errors. When there are more than 10, return TRUE.
1768 */
1769 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001770viminfo_error(char *errnum, char *message, char_u *line)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001771{
Bram Moolenaar555b2802005-05-19 21:08:39 +00001772 vim_snprintf((char *)IObuff, IOSIZE, _("%sviminfo: %s in line: "),
1773 errnum, message);
Bram Moolenaar6c964832007-12-09 18:38:35 +00001774 STRNCAT(IObuff, line, IOSIZE - STRLEN(IObuff) - 1);
Bram Moolenaar758711c2005-02-02 23:11:38 +00001775 if (IObuff[STRLEN(IObuff) - 1] == '\n')
1776 IObuff[STRLEN(IObuff) - 1] = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001777 emsg(IObuff);
1778 if (++viminfo_errcnt >= 10)
1779 {
1780 EMSG(_("E136: viminfo: Too many errors, skipping rest of file"));
1781 return TRUE;
1782 }
1783 return FALSE;
1784}
1785
1786/*
1787 * read_viminfo() -- Read the viminfo file. Registers etc. which are already
Bram Moolenaard812df62008-11-09 12:46:09 +00001788 * set are not over-written unless "flags" includes VIF_FORCEIT. -- webb
Bram Moolenaar071d4272004-06-13 20:20:40 +00001789 */
1790 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001791read_viminfo(
1792 char_u *file, /* file name or NULL to use default name */
1793 int flags) /* VIF_WANT_INFO et al. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001794{
1795 FILE *fp;
1796 char_u *fname;
1797
1798 if (no_viminfo())
1799 return FAIL;
1800
Bram Moolenaard812df62008-11-09 12:46:09 +00001801 fname = viminfo_filename(file); /* get file name in allocated buffer */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001802 if (fname == NULL)
1803 return FAIL;
1804 fp = mch_fopen((char *)fname, READBIN);
1805
1806 if (p_verbose > 0)
Bram Moolenaar54ee7752005-05-31 22:22:17 +00001807 {
1808 verbose_enter();
Bram Moolenaar555b2802005-05-19 21:08:39 +00001809 smsg((char_u *)_("Reading viminfo file \"%s\"%s%s%s"),
1810 fname,
Bram Moolenaard812df62008-11-09 12:46:09 +00001811 (flags & VIF_WANT_INFO) ? _(" info") : "",
1812 (flags & VIF_WANT_MARKS) ? _(" marks") : "",
1813 (flags & VIF_GET_OLDFILES) ? _(" oldfiles") : "",
Bram Moolenaar555b2802005-05-19 21:08:39 +00001814 fp == NULL ? _(" FAILED") : "");
Bram Moolenaar54ee7752005-05-31 22:22:17 +00001815 verbose_leave();
1816 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001817
1818 vim_free(fname);
1819 if (fp == NULL)
1820 return FAIL;
1821
1822 viminfo_errcnt = 0;
Bram Moolenaard812df62008-11-09 12:46:09 +00001823 do_viminfo(fp, NULL, flags);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001824
1825 fclose(fp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001826 return OK;
1827}
1828
1829/*
Bram Moolenaarff1806f2013-06-15 16:31:47 +02001830 * Write the viminfo file. The old one is read in first so that effectively a
1831 * merge of current info and old info is done. This allows multiple vims to
1832 * run simultaneously, without losing any marks etc.
1833 * If "forceit" is TRUE, then the old file is not read in, and only internal
1834 * info is written to the file.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001835 */
1836 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01001837write_viminfo(char_u *file, int forceit)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001838{
1839 char_u *fname;
1840 FILE *fp_in = NULL; /* input viminfo file, if any */
1841 FILE *fp_out = NULL; /* output viminfo file */
1842 char_u *tempname = NULL; /* name of temp viminfo file */
1843 struct stat st_new; /* mch_stat() of potential new file */
1844 char_u *wp;
1845#if defined(UNIX) || defined(VMS)
1846 mode_t umask_save;
1847#endif
1848#ifdef UNIX
1849 int shortname = FALSE; /* use 8.3 file name */
1850 struct stat st_old; /* mch_stat() of existing viminfo file */
1851#endif
Bram Moolenaarbca84a12005-12-14 22:08:35 +00001852#ifdef WIN3264
Bram Moolenaar8a52ba72015-11-02 14:45:56 +01001853 int hidden = FALSE;
Bram Moolenaarbca84a12005-12-14 22:08:35 +00001854#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00001855
1856 if (no_viminfo())
1857 return;
1858
1859 fname = viminfo_filename(file); /* may set to default if NULL */
1860 if (fname == NULL)
1861 return;
1862
1863 fp_in = mch_fopen((char *)fname, READBIN);
1864 if (fp_in == NULL)
1865 {
1866 /* if it does exist, but we can't read it, don't try writing */
1867 if (mch_stat((char *)fname, &st_new) == 0)
1868 goto end;
1869#if defined(UNIX) || defined(VMS)
1870 /*
1871 * For Unix we create the .viminfo non-accessible for others,
1872 * because it may contain text from non-accessible documents.
1873 */
1874 umask_save = umask(077);
1875#endif
1876 fp_out = mch_fopen((char *)fname, WRITEBIN);
1877#if defined(UNIX) || defined(VMS)
1878 (void)umask(umask_save);
1879#endif
1880 }
1881 else
1882 {
1883 /*
1884 * There is an existing viminfo file. Create a temporary file to
1885 * write the new viminfo into, in the same directory as the
1886 * existing viminfo file, which will be renamed later.
1887 */
1888#ifdef UNIX
1889 /*
1890 * For Unix we check the owner of the file. It's not very nice to
1891 * overwrite a user's viminfo file after a "su root", with a
1892 * viminfo file that the user can't read.
1893 */
Bram Moolenaar0ab2a882009-05-13 10:51:08 +00001894 st_old.st_dev = (dev_t)0;
Bram Moolenaar6f192452007-11-08 19:49:02 +00001895 st_old.st_ino = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001896 st_old.st_mode = 0600;
Bram Moolenaar311d9822007-02-27 15:48:28 +00001897 if (mch_stat((char *)fname, &st_old) == 0
1898 && getuid() != ROOT_UID
Bram Moolenaar12625ca2005-11-25 19:58:47 +00001899 && !(st_old.st_uid == getuid()
Bram Moolenaar071d4272004-06-13 20:20:40 +00001900 ? (st_old.st_mode & 0200)
1901 : (st_old.st_gid == getgid()
1902 ? (st_old.st_mode & 0020)
1903 : (st_old.st_mode & 0002))))
1904 {
Bram Moolenaar89d40322006-08-29 15:30:07 +00001905 int tt = msg_didany;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001906
1907 /* avoid a wait_return for this message, it's annoying */
Bram Moolenaar071d4272004-06-13 20:20:40 +00001908 EMSG2(_("E137: Viminfo file is not writable: %s"), fname);
1909 msg_didany = tt;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00001910 fclose(fp_in);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001911 goto end;
1912 }
1913#endif
Bram Moolenaarbca84a12005-12-14 22:08:35 +00001914#ifdef WIN3264
1915 /* Get the file attributes of the existing viminfo file. */
Bram Moolenaar8a52ba72015-11-02 14:45:56 +01001916 hidden = mch_ishidden(fname);
Bram Moolenaarbca84a12005-12-14 22:08:35 +00001917#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00001918
1919 /*
1920 * Make tempname.
1921 * May try twice: Once normal and once with shortname set, just in
1922 * case somebody puts his viminfo file in an 8.3 filesystem.
1923 */
1924 for (;;)
1925 {
1926 tempname = buf_modname(
1927#ifdef UNIX
1928 shortname,
1929#else
Bram Moolenaar48e330a2016-02-23 14:53:34 +01001930# ifdef FEAT_GUI_W32
Bram Moolenaar071d4272004-06-13 20:20:40 +00001931 gui_is_win32s(),
Bram Moolenaar48e330a2016-02-23 14:53:34 +01001932# else
Bram Moolenaar071d4272004-06-13 20:20:40 +00001933 FALSE,
Bram Moolenaar071d4272004-06-13 20:20:40 +00001934# endif
1935#endif
1936 fname,
1937#ifdef VMS
1938 (char_u *)"-tmp",
1939#else
Bram Moolenaar071d4272004-06-13 20:20:40 +00001940 (char_u *)".tmp",
Bram Moolenaar071d4272004-06-13 20:20:40 +00001941#endif
1942 FALSE);
1943 if (tempname == NULL) /* out of memory */
1944 break;
1945
1946 /*
1947 * Check if tempfile already exists. Never overwrite an
1948 * existing file!
1949 */
1950 if (mch_stat((char *)tempname, &st_new) == 0)
1951 {
1952#ifdef UNIX
1953 /*
1954 * Check if tempfile is same as original file. May happen
1955 * when modname() gave the same file back. E.g. silly
1956 * link, or file name-length reached. Try again with
1957 * shortname set.
1958 */
Bram Moolenaar12625ca2005-11-25 19:58:47 +00001959 if (!shortname && st_new.st_dev == st_old.st_dev
1960 && st_new.st_ino == st_old.st_ino)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001961 {
1962 vim_free(tempname);
1963 tempname = NULL;
1964 shortname = TRUE;
1965 continue;
1966 }
1967#endif
1968 /*
1969 * Try another name. Change one character, just before
1970 * the extension. This should also work for an 8.3
1971 * file name, when after adding the extension it still is
1972 * the same file as the original.
1973 */
1974 wp = tempname + STRLEN(tempname) - 5;
1975 if (wp < gettail(tempname)) /* empty file name? */
1976 wp = gettail(tempname);
1977 for (*wp = 'z'; mch_stat((char *)tempname, &st_new) == 0;
1978 --*wp)
1979 {
1980 /*
1981 * They all exist? Must be something wrong! Don't
1982 * write the viminfo file then.
1983 */
1984 if (*wp == 'a')
1985 {
1986 vim_free(tempname);
1987 tempname = NULL;
1988 break;
1989 }
1990 }
1991 }
1992 break;
1993 }
1994
1995 if (tempname != NULL)
1996 {
Bram Moolenaar114216c2006-03-14 23:08:30 +00001997#ifdef VMS
1998 /* fdopen() fails for some reason */
Bram Moolenaarcf034472006-03-15 23:07:59 +00001999 umask_save = umask(077);
2000 fp_out = mch_fopen((char *)tempname, WRITEBIN);
2001 (void)umask(umask_save);
Bram Moolenaar114216c2006-03-14 23:08:30 +00002002#else
Bram Moolenaara5792f52005-11-23 21:25:05 +00002003 int fd;
2004
2005 /* Use mch_open() to be able to use O_NOFOLLOW and set file
Bram Moolenaarbca84a12005-12-14 22:08:35 +00002006 * protection:
Bram Moolenaar997fb4b2006-02-17 21:53:23 +00002007 * Unix: same as original file, but strip s-bit. Reset umask to
2008 * avoid it getting in the way.
Bram Moolenaarbca84a12005-12-14 22:08:35 +00002009 * Others: r&w for user only. */
Bram Moolenaar114216c2006-03-14 23:08:30 +00002010# ifdef UNIX
Bram Moolenaar997fb4b2006-02-17 21:53:23 +00002011 umask_save = umask(0);
Bram Moolenaara5792f52005-11-23 21:25:05 +00002012 fd = mch_open((char *)tempname,
2013 O_CREAT|O_EXTRA|O_EXCL|O_WRONLY|O_NOFOLLOW,
Bram Moolenaarbba577a2005-11-28 23:05:55 +00002014 (int)((st_old.st_mode & 0777) | 0600));
Bram Moolenaar997fb4b2006-02-17 21:53:23 +00002015 (void)umask(umask_save);
Bram Moolenaar114216c2006-03-14 23:08:30 +00002016# else
Bram Moolenaarbba577a2005-11-28 23:05:55 +00002017 fd = mch_open((char *)tempname,
Bram Moolenaar997fb4b2006-02-17 21:53:23 +00002018 O_CREAT|O_EXTRA|O_EXCL|O_WRONLY|O_NOFOLLOW, 0600);
Bram Moolenaar114216c2006-03-14 23:08:30 +00002019# endif
Bram Moolenaara5792f52005-11-23 21:25:05 +00002020 if (fd < 0)
2021 fp_out = NULL;
2022 else
2023 fp_out = fdopen(fd, WRITEBIN);
Bram Moolenaar114216c2006-03-14 23:08:30 +00002024#endif /* VMS */
Bram Moolenaar071d4272004-06-13 20:20:40 +00002025
2026 /*
2027 * If we can't create in the same directory, try creating a
2028 * "normal" temp file.
2029 */
2030 if (fp_out == NULL)
2031 {
2032 vim_free(tempname);
Bram Moolenaare5c421c2015-03-31 13:33:08 +02002033 if ((tempname = vim_tempname('o', TRUE)) != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002034 fp_out = mch_fopen((char *)tempname, WRITEBIN);
2035 }
Bram Moolenaara5792f52005-11-23 21:25:05 +00002036
2037#if defined(UNIX) && defined(HAVE_FCHOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002038 /*
Bram Moolenaara5792f52005-11-23 21:25:05 +00002039 * Make sure the owner can read/write it. This only works for
2040 * root.
Bram Moolenaar071d4272004-06-13 20:20:40 +00002041 */
2042 if (fp_out != NULL)
Bram Moolenaarfe86f2d2008-11-28 20:29:07 +00002043 ignored = fchown(fileno(fp_out), st_old.st_uid, st_old.st_gid);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002044#endif
2045 }
2046 }
2047
2048 /*
2049 * Check if the new viminfo file can be written to.
2050 */
2051 if (fp_out == NULL)
2052 {
2053 EMSG2(_("E138: Can't write viminfo file %s!"),
Bram Moolenaar75c50c42005-06-04 22:06:24 +00002054 (fp_in == NULL || tempname == NULL) ? fname : tempname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002055 if (fp_in != NULL)
2056 fclose(fp_in);
2057 goto end;
2058 }
2059
2060 if (p_verbose > 0)
Bram Moolenaar54ee7752005-05-31 22:22:17 +00002061 {
2062 verbose_enter();
Bram Moolenaar555b2802005-05-19 21:08:39 +00002063 smsg((char_u *)_("Writing viminfo file \"%s\""), fname);
Bram Moolenaar54ee7752005-05-31 22:22:17 +00002064 verbose_leave();
2065 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00002066
2067 viminfo_errcnt = 0;
Bram Moolenaard812df62008-11-09 12:46:09 +00002068 do_viminfo(fp_in, fp_out, forceit ? 0 : (VIF_WANT_INFO | VIF_WANT_MARKS));
Bram Moolenaar071d4272004-06-13 20:20:40 +00002069
Bram Moolenaar927030a2016-03-15 18:23:55 +01002070 if (fclose(fp_out) == EOF)
2071 ++viminfo_errcnt;
2072
Bram Moolenaar071d4272004-06-13 20:20:40 +00002073 if (fp_in != NULL)
2074 {
2075 fclose(fp_in);
Bram Moolenaarbca84a12005-12-14 22:08:35 +00002076
Bram Moolenaar3ed8b132014-07-09 21:18:04 +02002077 /* In case of an error keep the original viminfo file. Otherwise
2078 * rename the newly written file. Give an error if that fails. */
Bram Moolenaar927030a2016-03-15 18:23:55 +01002079 if (viminfo_errcnt == 0)
Bram Moolenaar3ed8b132014-07-09 21:18:04 +02002080 {
Bram Moolenaar927030a2016-03-15 18:23:55 +01002081 if (vim_rename(tempname, fname) == -1)
2082 {
2083 ++viminfo_errcnt;
2084 EMSG2(_("E886: Can't rename viminfo file to %s!"), fname);
2085 }
2086# ifdef WIN3264
2087 /* If the viminfo file was hidden then also hide the new file. */
2088 else if (hidden)
2089 mch_hide(fname);
2090# endif
Bram Moolenaar3ed8b132014-07-09 21:18:04 +02002091 }
2092 if (viminfo_errcnt > 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002093 mch_remove(tempname);
2094 }
Bram Moolenaarbca84a12005-12-14 22:08:35 +00002095
Bram Moolenaar071d4272004-06-13 20:20:40 +00002096end:
2097 vim_free(fname);
2098 vim_free(tempname);
2099}
2100
2101/*
2102 * Get the viminfo file name to use.
2103 * If "file" is given and not empty, use it (has already been expanded by
2104 * cmdline functions).
2105 * Otherwise use "-i file_name", value from 'viminfo' or the default, and
2106 * expand environment variables.
2107 * Returns an allocated string. NULL when out of memory.
2108 */
2109 static char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002110viminfo_filename(char_u *file)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002111{
2112 if (file == NULL || *file == NUL)
2113 {
2114 if (use_viminfo != NULL)
2115 file = use_viminfo;
2116 else if ((file = find_viminfo_parameter('n')) == NULL || *file == NUL)
2117 {
2118#ifdef VIMINFO_FILE2
2119 /* don't use $HOME when not defined (turned into "c:/"!). */
2120# ifdef VMS
2121 if (mch_getenv((char_u *)"SYS$LOGIN") == NULL)
2122# else
2123 if (mch_getenv((char_u *)"HOME") == NULL)
2124# endif
2125 {
2126 /* don't use $VIM when not available. */
2127 expand_env((char_u *)"$VIM", NameBuff, MAXPATHL);
2128 if (STRCMP("$VIM", NameBuff) != 0) /* $VIM was expanded */
2129 file = (char_u *)VIMINFO_FILE2;
2130 else
2131 file = (char_u *)VIMINFO_FILE;
2132 }
2133 else
2134#endif
2135 file = (char_u *)VIMINFO_FILE;
2136 }
2137 expand_env(file, NameBuff, MAXPATHL);
2138 file = NameBuff;
2139 }
2140 return vim_strsave(file);
2141}
2142
2143/*
2144 * do_viminfo() -- Should only be called from read_viminfo() & write_viminfo().
2145 */
2146 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002147do_viminfo(FILE *fp_in, FILE *fp_out, int flags)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002148{
2149 int count = 0;
2150 int eof = FALSE;
2151 vir_T vir;
Bram Moolenaarff1806f2013-06-15 16:31:47 +02002152 int merge = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002153
2154 if ((vir.vir_line = alloc(LSIZE)) == NULL)
2155 return;
2156 vir.vir_fd = fp_in;
2157#ifdef FEAT_MBYTE
2158 vir.vir_conv.vc_type = CONV_NONE;
2159#endif
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002160 ga_init2(&vir.vir_barlines, (int)sizeof(char_u *), 100);
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002161 vir.vir_version = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002162
2163 if (fp_in != NULL)
2164 {
Bram Moolenaard812df62008-11-09 12:46:09 +00002165 if (flags & VIF_WANT_INFO)
Bram Moolenaarff1806f2013-06-15 16:31:47 +02002166 {
Bram Moolenaard812df62008-11-09 12:46:09 +00002167 eof = read_viminfo_up_to_marks(&vir,
2168 flags & VIF_FORCEIT, fp_out != NULL);
Bram Moolenaarff1806f2013-06-15 16:31:47 +02002169 merge = TRUE;
2170 }
2171 else if (flags != 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002172 /* Skip info, find start of marks */
2173 while (!(eof = viminfo_readline(&vir))
2174 && vir.vir_line[0] != '>')
2175 ;
2176 }
2177 if (fp_out != NULL)
2178 {
2179 /* Write the info: */
2180 fprintf(fp_out, _("# This viminfo file was generated by Vim %s.\n"),
2181 VIM_VERSION_MEDIUM);
Bram Moolenaar2f1e0502010-08-13 11:18:02 +02002182 fputs(_("# You may edit it if you're careful!\n\n"), fp_out);
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002183 write_viminfo_version(fp_out);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002184#ifdef FEAT_MBYTE
Bram Moolenaar2f1e0502010-08-13 11:18:02 +02002185 fputs(_("# Value of 'encoding' when this file was written\n"), fp_out);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002186 fprintf(fp_out, "*encoding=%s\n\n", p_enc);
2187#endif
2188 write_viminfo_search_pattern(fp_out);
2189 write_viminfo_sub_string(fp_out);
2190#ifdef FEAT_CMDHIST
Bram Moolenaarff1806f2013-06-15 16:31:47 +02002191 write_viminfo_history(fp_out, merge);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002192#endif
2193 write_viminfo_registers(fp_out);
2194#ifdef FEAT_EVAL
2195 write_viminfo_varlist(fp_out);
2196#endif
2197 write_viminfo_filemarks(fp_out);
2198 write_viminfo_bufferlist(fp_out);
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002199 write_viminfo_barlines(&vir, fp_out);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002200 count = write_viminfo_marks(fp_out);
2201 }
Bram Moolenaard812df62008-11-09 12:46:09 +00002202 if (fp_in != NULL
2203 && (flags & (VIF_WANT_MARKS | VIF_GET_OLDFILES | VIF_FORCEIT)))
2204 copy_viminfo_marks(&vir, fp_out, count, eof, flags);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002205
2206 vim_free(vir.vir_line);
2207#ifdef FEAT_MBYTE
2208 if (vir.vir_conv.vc_type != CONV_NONE)
2209 convert_setup(&vir.vir_conv, NULL, NULL);
2210#endif
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002211 ga_clear_strings(&vir.vir_barlines);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002212}
2213
2214/*
2215 * read_viminfo_up_to_marks() -- Only called from do_viminfo(). Reads in the
2216 * first part of the viminfo file which contains everything but the marks that
2217 * are local to a file. Returns TRUE when end-of-file is reached. -- webb
2218 */
2219 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002220read_viminfo_up_to_marks(
2221 vir_T *virp,
2222 int forceit,
2223 int writing)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002224{
2225 int eof;
2226 buf_T *buf;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002227 int got_encoding = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002228
2229#ifdef FEAT_CMDHIST
Bram Moolenaar07219f92013-04-14 23:19:36 +02002230 prepare_viminfo_history(forceit ? 9999 : 0, writing);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002231#endif
2232 eof = viminfo_readline(virp);
2233 while (!eof && virp->vir_line[0] != '>')
2234 {
2235 switch (virp->vir_line[0])
2236 {
2237 /* Characters reserved for future expansion, ignored now */
2238 case '+': /* "+40 /path/dir file", for running vim without args */
Bram Moolenaar071d4272004-06-13 20:20:40 +00002239 case '^': /* to be defined */
2240 case '<': /* long line - ignored */
2241 /* A comment or empty line. */
2242 case NUL:
2243 case '\r':
2244 case '\n':
2245 case '#':
2246 eof = viminfo_readline(virp);
2247 break;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002248 case '|':
2249 eof = read_viminfo_barline(virp, got_encoding, writing);
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002250 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002251 case '*': /* "*encoding=value" */
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002252 got_encoding = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002253 eof = viminfo_encoding(virp);
2254 break;
2255 case '!': /* global variable */
2256#ifdef FEAT_EVAL
2257 eof = read_viminfo_varlist(virp, writing);
2258#else
2259 eof = viminfo_readline(virp);
2260#endif
2261 break;
2262 case '%': /* entry for buffer list */
2263 eof = read_viminfo_bufferlist(virp, writing);
2264 break;
2265 case '"':
2266 eof = read_viminfo_register(virp, forceit);
2267 break;
2268 case '/': /* Search string */
2269 case '&': /* Substitute search string */
2270 case '~': /* Last search string, followed by '/' or '&' */
2271 eof = read_viminfo_search_pattern(virp, forceit);
2272 break;
2273 case '$':
2274 eof = read_viminfo_sub_string(virp, forceit);
2275 break;
2276 case ':':
2277 case '?':
2278 case '=':
2279 case '@':
2280#ifdef FEAT_CMDHIST
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002281 /* When history is in bar lines skip the old style history
2282 * lines. */
2283 if (virp->vir_version < VIMINFO_VERSION_WITH_HISTORY)
2284 eof = read_viminfo_history(virp, writing);
2285 else
Bram Moolenaar071d4272004-06-13 20:20:40 +00002286#endif
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002287 eof = viminfo_readline(virp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002288 break;
2289 case '-':
2290 case '\'':
2291 eof = read_viminfo_filemark(virp, forceit);
2292 break;
2293 default:
2294 if (viminfo_error("E575: ", _("Illegal starting char"),
2295 virp->vir_line))
2296 eof = TRUE;
2297 else
2298 eof = viminfo_readline(virp);
2299 break;
2300 }
2301 }
2302
2303#ifdef FEAT_CMDHIST
2304 /* Finish reading history items. */
Bram Moolenaar07219f92013-04-14 23:19:36 +02002305 if (!writing)
Bram Moolenaar1fd99c12016-06-09 20:24:28 +02002306 finish_viminfo_history(virp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002307#endif
2308
2309 /* Change file names to buffer numbers for fmarks. */
2310 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
2311 fmarks_check_names(buf);
2312
2313 return eof;
2314}
2315
2316/*
2317 * Compare the 'encoding' value in the viminfo file with the current value of
2318 * 'encoding'. If different and the 'c' flag is in 'viminfo', setup for
2319 * conversion of text with iconv() in viminfo_readstring().
2320 */
2321 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002322viminfo_encoding(vir_T *virp)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002323{
2324#ifdef FEAT_MBYTE
2325 char_u *p;
2326 int i;
2327
2328 if (get_viminfo_parameter('c') != 0)
2329 {
2330 p = vim_strchr(virp->vir_line, '=');
2331 if (p != NULL)
2332 {
2333 /* remove trailing newline */
2334 ++p;
2335 for (i = 0; vim_isprintc(p[i]); ++i)
2336 ;
2337 p[i] = NUL;
2338
2339 convert_setup(&virp->vir_conv, p, p_enc);
2340 }
2341 }
2342#endif
2343 return viminfo_readline(virp);
2344}
2345
2346/*
2347 * Read a line from the viminfo file.
2348 * Returns TRUE for end-of-file;
2349 */
2350 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002351viminfo_readline(vir_T *virp)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002352{
2353 return vim_fgets(virp->vir_line, LSIZE, virp->vir_fd);
2354}
2355
2356/*
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002357 * Check string read from viminfo file.
2358 * Remove '\n' at the end of the line.
Bram Moolenaar071d4272004-06-13 20:20:40 +00002359 * - replace CTRL-V CTRL-V with CTRL-V
2360 * - replace CTRL-V 'n' with '\n'
2361 *
2362 * Check for a long line as written by viminfo_writestring().
2363 *
2364 * Return the string in allocated memory (NULL when out of memory).
2365 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00002366 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002367viminfo_readstring(
2368 vir_T *virp,
2369 int off, /* offset for virp->vir_line */
2370 int convert UNUSED) /* convert the string */
Bram Moolenaar071d4272004-06-13 20:20:40 +00002371{
2372 char_u *retval;
2373 char_u *s, *d;
2374 long len;
2375
2376 if (virp->vir_line[off] == Ctrl_V && vim_isdigit(virp->vir_line[off + 1]))
2377 {
2378 len = atol((char *)virp->vir_line + off + 1);
2379 retval = lalloc(len, TRUE);
2380 if (retval == NULL)
2381 {
2382 /* Line too long? File messed up? Skip next line. */
2383 (void)vim_fgets(virp->vir_line, 10, virp->vir_fd);
2384 return NULL;
2385 }
2386 (void)vim_fgets(retval, (int)len, virp->vir_fd);
2387 s = retval + 1; /* Skip the leading '<' */
2388 }
2389 else
2390 {
2391 retval = vim_strsave(virp->vir_line + off);
2392 if (retval == NULL)
2393 return NULL;
2394 s = retval;
2395 }
2396
2397 /* Change CTRL-V CTRL-V to CTRL-V and CTRL-V n to \n in-place. */
2398 d = retval;
2399 while (*s != NUL && *s != '\n')
2400 {
2401 if (s[0] == Ctrl_V && s[1] != NUL)
2402 {
2403 if (s[1] == 'n')
2404 *d++ = '\n';
2405 else
2406 *d++ = Ctrl_V;
2407 s += 2;
2408 }
2409 else
2410 *d++ = *s++;
2411 }
2412 *d = NUL;
2413
2414#ifdef FEAT_MBYTE
2415 if (convert && virp->vir_conv.vc_type != CONV_NONE && *retval != NUL)
2416 {
2417 d = string_convert(&virp->vir_conv, retval, NULL);
2418 if (d != NULL)
2419 {
2420 vim_free(retval);
2421 retval = d;
2422 }
2423 }
2424#endif
2425
2426 return retval;
2427}
2428
2429/*
2430 * write string to viminfo file
2431 * - replace CTRL-V with CTRL-V CTRL-V
2432 * - replace '\n' with CTRL-V 'n'
2433 * - add a '\n' at the end
2434 *
2435 * For a long line:
2436 * - write " CTRL-V <length> \n " in first line
2437 * - write " < <string> \n " in second line
2438 */
2439 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002440viminfo_writestring(FILE *fd, char_u *p)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002441{
2442 int c;
2443 char_u *s;
2444 int len = 0;
2445
2446 for (s = p; *s != NUL; ++s)
2447 {
2448 if (*s == Ctrl_V || *s == '\n')
2449 ++len;
2450 ++len;
2451 }
2452
2453 /* If the string will be too long, write its length and put it in the next
2454 * line. Take into account that some room is needed for what comes before
2455 * the string (e.g., variable name). Add something to the length for the
2456 * '<', NL and trailing NUL. */
2457 if (len > LSIZE / 2)
2458 fprintf(fd, IF_EB("\026%d\n<", CTRL_V_STR "%d\n<"), len + 3);
2459
2460 while ((c = *p++) != NUL)
2461 {
2462 if (c == Ctrl_V || c == '\n')
2463 {
2464 putc(Ctrl_V, fd);
2465 if (c == '\n')
2466 c = 'n';
2467 }
2468 putc(c, fd);
2469 }
2470 putc('\n', fd);
2471}
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002472
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002473/*
2474 * Write a string in quotes that barline_parse() can read back.
2475 * Breaks the line in less than LSIZE pieces when needed.
2476 * Returns remaining characters in the line.
2477 */
2478 int
2479barline_writestring(FILE *fd, char_u *s, int remaining_start)
2480{
2481 char_u *p;
2482 int remaining = remaining_start;
2483 int len = 2;
2484
2485 /* Count the number of characters produced, including quotes. */
2486 for (p = s; *p != NUL; ++p)
2487 {
2488 if (*p == NL)
2489 len += 2;
2490 else if (*p == '"' || *p == '\\')
2491 len += 2;
2492 else
2493 ++len;
2494 }
2495 if (len > remaining)
2496 {
2497 fprintf(fd, ">%d\n|<", len);
2498 remaining = LSIZE - 20;
2499 }
2500
2501 putc('"', fd);
2502 for (p = s; *p != NUL; ++p)
2503 {
2504 if (*p == NL)
2505 {
2506 putc('\\', fd);
2507 putc('n', fd);
2508 --remaining;
2509 }
2510 else if (*p == '"' || *p == '\\')
2511 {
2512 putc('\\', fd);
2513 putc(*p, fd);
2514 --remaining;
2515 }
2516 else
2517 putc(*p, fd);
2518 --remaining;
2519
2520 if (remaining < 3)
2521 {
2522 putc('\n', fd);
2523 putc('|', fd);
2524 putc('<', fd);
2525 /* Leave enough space for another continuation. */
2526 remaining = LSIZE - 20;
2527 }
2528 }
2529 putc('"', fd);
2530 return remaining;
2531}
2532
2533/*
2534 * Parse a viminfo line starting with '|'.
2535 * Put each decoded value in "values" and return the number of values found.
2536 */
2537 static int
2538barline_parse(vir_T *virp, char_u *text, bval_T *values)
2539{
2540 char_u *p = text;
2541 char_u *nextp = NULL;
Bram Moolenaarfdd82fe2016-06-06 21:38:44 +02002542 char_u *buf = NULL;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002543 int count = 0;
2544 int i;
2545 int allocated = FALSE;
Bram Moolenaar01227092016-06-11 14:47:40 +02002546#ifdef FEAT_MBYTE
2547 char_u *sconv;
2548 int converted;
2549#endif
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002550
2551 while (*p == ',')
2552 {
2553 if (count == BVAL_MAX)
2554 {
2555 EMSG2(e_intern2, "barline_parse()");
2556 break;
2557 }
2558 ++p;
2559
2560 if (*p == '>')
2561 {
2562 /* Need to read a continuation line. Need to put strings in
2563 * allocated memory, because virp->vir_line is overwritten. */
2564 if (!allocated)
2565 {
2566 for (i = 0; i < count; ++i)
Bram Moolenaar01227092016-06-11 14:47:40 +02002567 if (values[i].bv_type == BVAL_STRING
2568 && !values[i].bv_allocated)
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002569 {
2570 values[i].bv_string = vim_strnsave(
2571 values[i].bv_string, values[i].bv_len);
2572 values[i].bv_allocated = TRUE;
2573 }
2574 allocated = TRUE;
2575 }
2576
2577 if (vim_isdigit(p[1]))
2578 {
Bram Moolenaar1d5f1d02016-06-07 22:50:01 +02002579 size_t len;
2580 size_t todo;
2581 size_t n;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002582
2583 /* String value was split into lines that are each shorter
2584 * than LSIZE:
2585 * |{bartype},>{length of "{text}{text2}"}
2586 * |<"{text1}
2587 * |<{text2}",{value}
2588 */
2589 ++p;
2590 len = getdigits(&p);
Bram Moolenaar1d5f1d02016-06-07 22:50:01 +02002591 buf = alloc((int)(len + 1));
Bram Moolenaar62f8b4e2016-06-11 15:31:47 +02002592 if (buf == NULL)
2593 return count;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002594 p = buf;
2595 for (todo = len; todo > 0; todo -= n)
2596 {
2597 if (viminfo_readline(virp) || virp->vir_line[0] != '|'
2598 || virp->vir_line[1] != '<')
Bram Moolenaar62f8b4e2016-06-11 15:31:47 +02002599 {
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002600 /* file was truncated or garbled */
Bram Moolenaar62f8b4e2016-06-11 15:31:47 +02002601 vim_free(buf);
2602 return count;
2603 }
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002604 /* Get length of text, excluding |< and NL chars. */
2605 n = STRLEN(virp->vir_line);
2606 while (n > 0 && (virp->vir_line[n - 1] == NL
2607 || virp->vir_line[n - 1] == CAR))
2608 --n;
2609 n -= 2;
2610 if (n > todo)
2611 {
2612 /* more values follow after the string */
2613 nextp = virp->vir_line + 2 + todo;
2614 n = todo;
2615 }
2616 mch_memmove(p, virp->vir_line + 2, n);
2617 p += n;
2618 }
2619 *p = NUL;
2620 p = buf;
2621 }
2622 else
2623 {
2624 /* Line ending in ">" continues in the next line:
2625 * |{bartype},{lots of values},>
2626 * |<{value},{value}
2627 */
2628 if (viminfo_readline(virp) || virp->vir_line[0] != '|'
2629 || virp->vir_line[1] != '<')
2630 /* file was truncated or garbled */
Bram Moolenaar62f8b4e2016-06-11 15:31:47 +02002631 return count;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002632 p = virp->vir_line + 2;
2633 }
2634 }
2635
2636 if (isdigit(*p))
2637 {
2638 values[count].bv_type = BVAL_NR;
2639 values[count].bv_nr = getdigits(&p);
2640 ++count;
2641 }
2642 else if (*p == '"')
2643 {
2644 int len = 0;
2645 char_u *s = p;
2646
2647 /* Unescape special characters in-place. */
2648 ++p;
2649 while (*p != '"')
2650 {
2651 if (*p == NL || *p == NUL)
2652 return count; /* syntax error, drop the value */
2653 if (*p == '\\')
2654 {
2655 ++p;
2656 if (*p == 'n')
2657 s[len++] = '\n';
2658 else
2659 s[len++] = *p;
2660 ++p;
2661 }
2662 else
2663 s[len++] = *p++;
2664 }
2665 s[len] = NUL;
2666
Bram Moolenaar01227092016-06-11 14:47:40 +02002667#ifdef FEAT_MBYTE
2668 converted = FALSE;
2669 if (virp->vir_conv.vc_type != CONV_NONE && *s != NUL)
2670 {
2671 sconv = string_convert(&virp->vir_conv, s, NULL);
2672 if (sconv != NULL)
2673 {
2674 if (s == buf)
2675 vim_free(s);
2676 s = sconv;
2677 buf = s;
2678 converted = TRUE;
2679 }
2680 }
2681#endif
2682 /* Need to copy in allocated memory if the string wasn't allocated
2683 * above and we did allocate before, thus vir_line may change. */
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002684 if (s != buf && allocated)
2685 s = vim_strsave(s);
2686 values[count].bv_string = s;
2687 values[count].bv_type = BVAL_STRING;
2688 values[count].bv_len = len;
Bram Moolenaar01227092016-06-11 14:47:40 +02002689 values[count].bv_allocated = allocated
2690#ifdef FEAT_MBYTE
2691 || converted
2692#endif
2693 ;
Bram Moolenaar45d2eea2016-06-06 21:07:52 +02002694 ++count;
2695 if (nextp != NULL)
2696 {
2697 /* values following a long string */
2698 p = nextp;
2699 nextp = NULL;
2700 }
2701 }
2702 else if (*p == ',')
2703 {
2704 values[count].bv_type = BVAL_EMPTY;
2705 ++count;
2706 }
2707 else
2708 break;
2709 }
2710
2711 return count;
2712}
2713
2714 static int
2715read_viminfo_barline(vir_T *virp, int got_encoding, int writing)
2716{
2717 char_u *p = virp->vir_line + 1;
2718 int bartype;
2719 bval_T values[BVAL_MAX];
2720 int count = 0;
2721 int i;
2722
2723 /* The format is: |{bartype},{value},...
2724 * For a very long string:
2725 * |{bartype},>{length of "{text}{text2}"}
2726 * |<{text1}
2727 * |<{text2},{value}
2728 * For a long line not using a string
2729 * |{bartype},{lots of values},>
2730 * |<{value},{value}
2731 */
2732 if (*p == '<')
2733 {
2734 /* Continuation line of an unrecognized item. */
2735 if (writing)
2736 ga_add_string(&virp->vir_barlines, virp->vir_line);
2737 }
2738 else
2739 {
2740 bartype = getdigits(&p);
2741 switch (bartype)
2742 {
2743 case BARTYPE_VERSION:
2744 /* Only use the version when it comes before the encoding.
2745 * If it comes later it was copied by a Vim version that
2746 * doesn't understand the version. */
2747 if (!got_encoding)
2748 {
2749 count = barline_parse(virp, p, values);
2750 if (count > 0 && values[0].bv_type == BVAL_NR)
2751 virp->vir_version = values[0].bv_nr;
2752 }
2753 break;
2754
2755 case BARTYPE_HISTORY:
2756 count = barline_parse(virp, p, values);
2757 handle_viminfo_history(values, count, writing);
2758 break;
2759
2760 default:
2761 /* copy unrecognized line (for future use) */
2762 if (writing)
2763 ga_add_string(&virp->vir_barlines, virp->vir_line);
2764 }
2765 }
2766
2767 for (i = 0; i < count; ++i)
2768 if (values[i].bv_type == BVAL_STRING && values[i].bv_allocated)
2769 vim_free(values[i].bv_string);
2770
2771 return viminfo_readline(virp);
2772}
2773
2774 static void
2775write_viminfo_version(FILE *fp_out)
2776{
2777 fprintf(fp_out, "# Viminfo version\n|%d,%d\n\n",
2778 BARTYPE_VERSION, VIMINFO_VERSION);
2779}
2780
Bram Moolenaarb20e3342016-01-18 23:29:01 +01002781 static void
2782write_viminfo_barlines(vir_T *virp, FILE *fp_out)
2783{
2784 int i;
2785 garray_T *gap = &virp->vir_barlines;
2786
2787 if (gap->ga_len > 0)
2788 {
2789 fputs(_("\n# Bar lines, copied verbatim:\n"), fp_out);
2790
2791 for (i = 0; i < gap->ga_len; ++i)
2792 fputs(((char **)(gap->ga_data))[i], fp_out);
2793 }
2794}
Bram Moolenaar071d4272004-06-13 20:20:40 +00002795#endif /* FEAT_VIMINFO */
2796
2797/*
2798 * Implementation of ":fixdel", also used by get_stty().
2799 * <BS> resulting <Del>
2800 * ^? ^H
2801 * not ^? ^?
2802 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00002803 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002804do_fixdel(exarg_T *eap UNUSED)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002805{
2806 char_u *p;
2807
2808 p = find_termcode((char_u *)"kb");
2809 add_termcode((char_u *)"kD", p != NULL
2810 && *p == DEL ? (char_u *)CTRL_H_STR : DEL_STR, FALSE);
2811}
2812
2813 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002814print_line_no_prefix(
2815 linenr_T lnum,
2816 int use_number,
2817 int list)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002818{
Bram Moolenaar592e0a22004-07-03 16:05:59 +00002819 char_u numbuf[30];
Bram Moolenaar071d4272004-06-13 20:20:40 +00002820
2821 if (curwin->w_p_nu || use_number)
2822 {
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00002823 vim_snprintf((char *)numbuf, sizeof(numbuf),
2824 "%*ld ", number_width(curwin), (long)lnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002825 msg_puts_attr(numbuf, hl_attr(HLF_N)); /* Highlight line nrs */
2826 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00002827 msg_prt_line(ml_get(lnum), list);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002828}
2829
2830/*
2831 * Print a text line. Also in silent mode ("ex -s").
2832 */
2833 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002834print_line(linenr_T lnum, int use_number, int list)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002835{
2836 int save_silent = silent_mode;
2837
Bram Moolenaar071d4272004-06-13 20:20:40 +00002838 msg_start();
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00002839 silent_mode = FALSE;
2840 info_message = TRUE; /* use mch_msg(), not mch_errmsg() */
2841 print_line_no_prefix(lnum, use_number, list);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002842 if (save_silent)
2843 {
2844 msg_putchar('\n');
2845 cursor_on(); /* msg_start() switches it off */
2846 out_flush();
2847 silent_mode = save_silent;
2848 }
Bram Moolenaar65b9a6a2009-02-04 12:14:51 +00002849 info_message = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002850}
2851
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002852 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002853rename_buffer(char_u *new_fname)
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002854{
2855 char_u *fname, *sfname, *xfname;
Bram Moolenaar7e283842013-05-30 11:43:15 +02002856 buf_T *buf;
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002857
Bram Moolenaar7e283842013-05-30 11:43:15 +02002858#ifdef FEAT_AUTOCMD
2859 buf = curbuf;
2860 apply_autocmds(EVENT_BUFFILEPRE, NULL, NULL, FALSE, curbuf);
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002861 /* buffer changed, don't change name now */
2862 if (buf != curbuf)
2863 return FAIL;
2864# ifdef FEAT_EVAL
2865 if (aborting()) /* autocmds may abort script processing */
2866 return FAIL;
2867# endif
2868#endif
2869 /*
2870 * The name of the current buffer will be changed.
2871 * A new (unlisted) buffer entry needs to be made to hold the old file
2872 * name, which will become the alternate file name.
2873 * But don't set the alternate file name if the buffer didn't have a
2874 * name.
2875 */
Bram Moolenaar7e283842013-05-30 11:43:15 +02002876 fname = curbuf->b_ffname;
2877 sfname = curbuf->b_sfname;
2878 xfname = curbuf->b_fname;
2879 curbuf->b_ffname = NULL;
2880 curbuf->b_sfname = NULL;
2881 if (setfname(curbuf, new_fname, NULL, TRUE) == FAIL)
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002882 {
Bram Moolenaar7e283842013-05-30 11:43:15 +02002883 curbuf->b_ffname = fname;
2884 curbuf->b_sfname = sfname;
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002885 return FAIL;
2886 }
Bram Moolenaar7e283842013-05-30 11:43:15 +02002887 curbuf->b_flags |= BF_NOTEDITED;
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002888 if (xfname != NULL && *xfname != NUL)
2889 {
2890 buf = buflist_new(fname, xfname, curwin->w_cursor.lnum, 0);
2891 if (buf != NULL && !cmdmod.keepalt)
2892 curwin->w_alt_fnum = buf->b_fnum;
2893 }
2894 vim_free(fname);
2895 vim_free(sfname);
2896#ifdef FEAT_AUTOCMD
Bram Moolenaar7e283842013-05-30 11:43:15 +02002897 apply_autocmds(EVENT_BUFFILEPOST, NULL, NULL, FALSE, curbuf);
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002898#endif
2899 /* Change directories when the 'acd' option is set. */
2900 DO_AUTOCHDIR
2901 return OK;
2902}
2903
Bram Moolenaar071d4272004-06-13 20:20:40 +00002904/*
2905 * ":file[!] [fname]".
2906 */
2907 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002908ex_file(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002909{
Bram Moolenaar325b7a22004-07-05 15:58:32 +00002910 /* ":0file" removes the file name. Check for illegal uses ":3file",
2911 * "0file name", etc. */
2912 if (eap->addr_count > 0
2913 && (*eap->arg != NUL
2914 || eap->line2 > 0
2915 || eap->addr_count > 1))
2916 {
2917 EMSG(_(e_invarg));
2918 return;
2919 }
2920
2921 if (*eap->arg != NUL || eap->addr_count == 1)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002922 {
Bram Moolenaare9ba5162013-05-29 22:02:22 +02002923 if (rename_buffer(eap->arg) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002924 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00002925 }
2926 /* print full file name if :cd used */
Bram Moolenaar426dd022016-03-15 15:09:29 +01002927 if (!shortmess(SHM_FILEINFO))
2928 fileinfo(FALSE, FALSE, eap->forceit);
Bram Moolenaar071d4272004-06-13 20:20:40 +00002929}
2930
2931/*
2932 * ":update".
2933 */
2934 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002935ex_update(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002936{
2937 if (curbufIsChanged())
2938 (void)do_write(eap);
2939}
2940
2941/*
2942 * ":write" and ":saveas".
2943 */
2944 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002945ex_write(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002946{
2947 if (eap->usefilter) /* input lines to shell command */
2948 do_bang(1, eap, FALSE, TRUE, FALSE);
2949 else
2950 (void)do_write(eap);
2951}
2952
2953/*
2954 * write current buffer to file 'eap->arg'
2955 * if 'eap->append' is TRUE, append to the file
2956 *
2957 * if *eap->arg == NUL write to current file
2958 *
2959 * return FAIL for failure, OK otherwise
2960 */
2961 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01002962do_write(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00002963{
2964 int other;
2965 char_u *fname = NULL; /* init to shut up gcc */
2966 char_u *ffname;
2967 int retval = FAIL;
2968 char_u *free_fname = NULL;
2969#ifdef FEAT_BROWSE
2970 char_u *browse_file = NULL;
2971#endif
2972 buf_T *alt_buf = NULL;
2973
2974 if (not_writing()) /* check 'write' option */
2975 return FAIL;
2976
2977 ffname = eap->arg;
2978#ifdef FEAT_BROWSE
2979 if (cmdmod.browse)
2980 {
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00002981 browse_file = do_browse(BROWSE_SAVE, (char_u *)_("Save As"), ffname,
Bram Moolenaar071d4272004-06-13 20:20:40 +00002982 NULL, NULL, NULL, curbuf);
2983 if (browse_file == NULL)
2984 goto theend;
2985 ffname = browse_file;
2986 }
2987#endif
2988 if (*ffname == NUL)
2989 {
2990 if (eap->cmdidx == CMD_saveas)
2991 {
2992 EMSG(_(e_argreq));
2993 goto theend;
2994 }
2995 other = FALSE;
2996 }
2997 else
2998 {
2999 fname = ffname;
3000 free_fname = fix_fname(ffname);
3001 /*
3002 * When out-of-memory, keep unexpanded file name, because we MUST be
3003 * able to write the file in this situation.
3004 */
3005 if (free_fname != NULL)
3006 ffname = free_fname;
3007 other = otherfile(ffname);
3008 }
3009
3010 /*
3011 * If we have a new file, put its name in the list of alternate file names.
3012 */
3013 if (other)
3014 {
3015 if (vim_strchr(p_cpo, CPO_ALTWRITE) != NULL
3016 || eap->cmdidx == CMD_saveas)
3017 alt_buf = setaltfname(ffname, fname, (linenr_T)1);
3018 else
3019 alt_buf = buflist_findname(ffname);
3020 if (alt_buf != NULL && alt_buf->b_ml.ml_mfp != NULL)
3021 {
3022 /* Overwriting a file that is loaded in another buffer is not a
3023 * good idea. */
Bram Moolenaar0e4d8772005-06-07 21:12:49 +00003024 EMSG(_(e_bufloaded));
Bram Moolenaar071d4272004-06-13 20:20:40 +00003025 goto theend;
3026 }
3027 }
3028
3029 /*
3030 * Writing to the current file is not allowed in readonly mode
3031 * and a file name is required.
3032 * "nofile" and "nowrite" buffers cannot be written implicitly either.
3033 */
3034 if (!other && (
3035#ifdef FEAT_QUICKFIX
3036 bt_dontwrite_msg(curbuf) ||
3037#endif
3038 check_fname() == FAIL || check_readonly(&eap->forceit, curbuf)))
3039 goto theend;
3040
3041 if (!other)
3042 {
3043 ffname = curbuf->b_ffname;
3044 fname = curbuf->b_fname;
3045 /*
3046 * Not writing the whole file is only allowed with '!'.
3047 */
3048 if ( (eap->line1 != 1
3049 || eap->line2 != curbuf->b_ml.ml_line_count)
3050 && !eap->forceit
3051 && !eap->append
3052 && !p_wa)
3053 {
3054#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3055 if (p_confirm || cmdmod.confirm)
3056 {
3057 if (vim_dialog_yesno(VIM_QUESTION, NULL,
3058 (char_u *)_("Write partial file?"), 2) != VIM_YES)
3059 goto theend;
3060 eap->forceit = TRUE;
3061 }
3062 else
3063#endif
3064 {
3065 EMSG(_("E140: Use ! to write partial buffer"));
3066 goto theend;
3067 }
3068 }
3069 }
3070
3071 if (check_overwrite(eap, curbuf, fname, ffname, other) == OK)
3072 {
3073 if (eap->cmdidx == CMD_saveas && alt_buf != NULL)
3074 {
3075#ifdef FEAT_AUTOCMD
3076 buf_T *was_curbuf = curbuf;
3077
3078 apply_autocmds(EVENT_BUFFILEPRE, NULL, NULL, FALSE, curbuf);
Bram Moolenaar269ec652004-07-29 08:43:53 +00003079 apply_autocmds(EVENT_BUFFILEPRE, NULL, NULL, FALSE, alt_buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003080# ifdef FEAT_EVAL
3081 if (curbuf != was_curbuf || aborting())
3082# else
3083 if (curbuf != was_curbuf)
3084# endif
3085 {
3086 /* buffer changed, don't change name now */
3087 retval = FAIL;
3088 goto theend;
3089 }
3090#endif
3091 /* Exchange the file names for the current and the alternate
3092 * buffer. This makes it look like we are now editing the buffer
3093 * under the new name. Must be done before buf_write(), because
3094 * if there is no file name and 'cpo' contains 'F', it will set
3095 * the file name. */
3096 fname = alt_buf->b_fname;
3097 alt_buf->b_fname = curbuf->b_fname;
3098 curbuf->b_fname = fname;
3099 fname = alt_buf->b_ffname;
3100 alt_buf->b_ffname = curbuf->b_ffname;
3101 curbuf->b_ffname = fname;
3102 fname = alt_buf->b_sfname;
3103 alt_buf->b_sfname = curbuf->b_sfname;
3104 curbuf->b_sfname = fname;
3105 buf_name_changed(curbuf);
3106#ifdef FEAT_AUTOCMD
3107 apply_autocmds(EVENT_BUFFILEPOST, NULL, NULL, FALSE, curbuf);
Bram Moolenaar269ec652004-07-29 08:43:53 +00003108 apply_autocmds(EVENT_BUFFILEPOST, NULL, NULL, FALSE, alt_buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003109 if (!alt_buf->b_p_bl)
3110 {
3111 alt_buf->b_p_bl = TRUE;
3112 apply_autocmds(EVENT_BUFADD, NULL, NULL, FALSE, alt_buf);
3113 }
3114# ifdef FEAT_EVAL
3115 if (curbuf != was_curbuf || aborting())
3116# else
3117 if (curbuf != was_curbuf)
3118# endif
3119 {
3120 /* buffer changed, don't write the file */
3121 retval = FAIL;
3122 goto theend;
3123 }
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00003124
3125 /* If 'filetype' was empty try detecting it now. */
3126 if (*curbuf->b_p_ft == NUL)
3127 {
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003128 if (au_has_group((char_u *)"filetypedetect"))
3129 (void)do_doautocmd((char_u *)"filetypedetect BufRead",
Bram Moolenaar1610d052016-06-09 22:53:01 +02003130 TRUE, NULL);
Bram Moolenaara3227e22006-03-08 21:32:40 +00003131 do_modelines(0);
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00003132 }
Bram Moolenaarf666f0e2010-11-24 17:59:32 +01003133
3134 /* Autocommands may have changed buffer names, esp. when
3135 * 'autochdir' is set. */
3136 fname = curbuf->b_sfname;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003137#endif
3138 }
3139
3140 retval = buf_write(curbuf, ffname, fname, eap->line1, eap->line2,
3141 eap, eap->append, eap->forceit, TRUE, FALSE);
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00003142
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003143 /* After ":saveas fname" reset 'readonly'. */
Bram Moolenaar498efdb2006-09-05 14:31:54 +00003144 if (eap->cmdidx == CMD_saveas)
3145 {
3146 if (retval == OK)
Bram Moolenaar4352f132009-02-11 15:03:45 +00003147 {
Bram Moolenaar498efdb2006-09-05 14:31:54 +00003148 curbuf->b_p_ro = FALSE;
Bram Moolenaar4352f132009-02-11 15:03:45 +00003149#ifdef FEAT_WINDOWS
3150 redraw_tabline = TRUE;
3151#endif
3152 }
Bram Moolenaar498efdb2006-09-05 14:31:54 +00003153 /* Change directories when the 'acd' option is set. */
3154 DO_AUTOCHDIR
3155 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003156 }
3157
3158theend:
3159#ifdef FEAT_BROWSE
3160 vim_free(browse_file);
3161#endif
3162 vim_free(free_fname);
3163 return retval;
3164}
3165
3166/*
3167 * Check if it is allowed to overwrite a file. If b_flags has BF_NOTEDITED,
3168 * BF_NEW or BF_READERR, check for overwriting current file.
3169 * May set eap->forceit if a dialog says it's OK to overwrite.
3170 * Return OK if it's OK, FAIL if it is not.
3171 */
Bram Moolenaar8218f602012-04-25 17:32:18 +02003172 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003173check_overwrite(
3174 exarg_T *eap,
3175 buf_T *buf,
3176 char_u *fname, /* file name to be used (can differ from
Bram Moolenaar071d4272004-06-13 20:20:40 +00003177 buf->ffname) */
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003178 char_u *ffname, /* full path version of fname */
3179 int other) /* writing under other name */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003180{
3181 /*
3182 * write to other file or b_flags set or not writing the whole file:
3183 * overwriting only allowed with '!'
3184 */
3185 if ( (other
3186 || (buf->b_flags & BF_NOTEDITED)
3187 || ((buf->b_flags & BF_NEW)
3188 && vim_strchr(p_cpo, CPO_OVERNEW) == NULL)
3189 || (buf->b_flags & BF_READERR))
Bram Moolenaar071d4272004-06-13 20:20:40 +00003190 && !p_wa
Bram Moolenaar11717bb2007-12-08 21:21:18 +00003191#ifdef FEAT_QUICKFIX
3192 && !bt_nofile(buf)
3193#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003194 && vim_fexists(ffname))
3195 {
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003196 if (!eap->forceit && !eap->append)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003197 {
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003198#ifdef UNIX
Bram Moolenaar0ac93792006-01-21 22:16:51 +00003199 /* with UNIX it is possible to open a directory */
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003200 if (mch_isdir(ffname))
3201 {
3202 EMSG2(_(e_isadir2), ffname);
3203 return FAIL;
3204 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003205#endif
3206#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003207 if (p_confirm || cmdmod.confirm)
3208 {
Bram Moolenaard9462e32011-04-11 21:35:11 +02003209 char_u buff[DIALOG_MSG_SIZE];
Bram Moolenaar071d4272004-06-13 20:20:40 +00003210
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003211 dialog_msg(buff, _("Overwrite existing file \"%s\"?"), fname);
3212 if (vim_dialog_yesno(VIM_QUESTION, NULL, buff, 2) != VIM_YES)
3213 return FAIL;
3214 eap->forceit = TRUE;
3215 }
3216 else
Bram Moolenaar071d4272004-06-13 20:20:40 +00003217#endif
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003218 {
3219 EMSG(_(e_exists));
3220 return FAIL;
3221 }
3222 }
3223
3224 /* For ":w! filename" check that no swap file exists for "filename". */
3225 if (other && !emsg_silent)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003226 {
Bram Moolenaard9462e32011-04-11 21:35:11 +02003227 char_u *dir;
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003228 char_u *p;
3229 int r;
3230 char_u *swapname;
3231
3232 /* We only try the first entry in 'directory', without checking if
3233 * it's writable. If the "." directory is not writable the write
3234 * will probably fail anyway.
3235 * Use 'shortname' of the current buffer, since there is no buffer
3236 * for the written file. */
3237 if (*p_dir == NUL)
Bram Moolenaard9462e32011-04-11 21:35:11 +02003238 {
3239 dir = alloc(5);
3240 if (dir == NULL)
3241 return FAIL;
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003242 STRCPY(dir, ".");
Bram Moolenaard9462e32011-04-11 21:35:11 +02003243 }
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003244 else
3245 {
Bram Moolenaard9462e32011-04-11 21:35:11 +02003246 dir = alloc(MAXPATHL);
3247 if (dir == NULL)
3248 return FAIL;
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003249 p = p_dir;
3250 copy_option_part(&p, dir, MAXPATHL, ",");
3251 }
3252 swapname = makeswapname(fname, ffname, curbuf, dir);
Bram Moolenaard9462e32011-04-11 21:35:11 +02003253 vim_free(dir);
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003254 r = vim_fexists(swapname);
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003255 if (r)
3256 {
3257#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3258 if (p_confirm || cmdmod.confirm)
3259 {
Bram Moolenaard9462e32011-04-11 21:35:11 +02003260 char_u buff[DIALOG_MSG_SIZE];
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003261
3262 dialog_msg(buff,
3263 _("Swap file \"%s\" exists, overwrite anyway?"),
3264 swapname);
3265 if (vim_dialog_yesno(VIM_QUESTION, NULL, buff, 2)
3266 != VIM_YES)
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003267 {
3268 vim_free(swapname);
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003269 return FAIL;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003270 }
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003271 eap->forceit = TRUE;
3272 }
3273 else
3274#endif
3275 {
3276 EMSG2(_("E768: Swap file exists: %s (:silent! overrides)"),
3277 swapname);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003278 vim_free(swapname);
Bram Moolenaar04a09c12005-08-01 22:02:32 +00003279 return FAIL;
3280 }
3281 }
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003282 vim_free(swapname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003283 }
3284 }
3285 return OK;
3286}
3287
3288/*
3289 * Handle ":wnext", ":wNext" and ":wprevious" commands.
3290 */
3291 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003292ex_wnext(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003293{
3294 int i;
3295
3296 if (eap->cmd[1] == 'n')
3297 i = curwin->w_arg_idx + (int)eap->line2;
3298 else
3299 i = curwin->w_arg_idx - (int)eap->line2;
3300 eap->line1 = 1;
3301 eap->line2 = curbuf->b_ml.ml_line_count;
3302 if (do_write(eap) != FAIL)
3303 do_argfile(eap, i);
3304}
3305
3306/*
3307 * ":wall", ":wqall" and ":xall": Write all changed files (and exit).
3308 */
3309 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003310do_wqall(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003311{
3312 buf_T *buf;
3313 int error = 0;
3314 int save_forceit = eap->forceit;
3315
3316 if (eap->cmdidx == CMD_xall || eap->cmdidx == CMD_wqall)
3317 exiting = TRUE;
3318
3319 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
3320 {
3321 if (bufIsChanged(buf))
3322 {
3323 /*
3324 * Check if there is a reason the buffer cannot be written:
3325 * 1. if the 'write' option is set
3326 * 2. if there is no file name (even after browsing)
3327 * 3. if the 'readonly' is set (even after a dialog)
3328 * 4. if overwriting is allowed (even after a dialog)
3329 */
3330 if (not_writing())
3331 {
3332 ++error;
3333 break;
3334 }
3335#ifdef FEAT_BROWSE
3336 /* ":browse wall": ask for file name if there isn't one */
3337 if (buf->b_ffname == NULL && cmdmod.browse)
3338 browse_save_fname(buf);
3339#endif
3340 if (buf->b_ffname == NULL)
3341 {
3342 EMSGN(_("E141: No file name for buffer %ld"), (long)buf->b_fnum);
3343 ++error;
3344 }
3345 else if (check_readonly(&eap->forceit, buf)
3346 || check_overwrite(eap, buf, buf->b_fname, buf->b_ffname,
3347 FALSE) == FAIL)
3348 {
3349 ++error;
3350 }
3351 else
3352 {
3353 if (buf_write_all(buf, eap->forceit) == FAIL)
3354 ++error;
3355#ifdef FEAT_AUTOCMD
3356 /* an autocommand may have deleted the buffer */
3357 if (!buf_valid(buf))
3358 buf = firstbuf;
3359#endif
3360 }
3361 eap->forceit = save_forceit; /* check_overwrite() may set it */
3362 }
3363 }
3364 if (exiting)
3365 {
3366 if (!error)
3367 getout(0); /* exit Vim */
3368 not_exiting();
3369 }
3370}
3371
3372/*
3373 * Check the 'write' option.
3374 * Return TRUE and give a message when it's not st.
3375 */
3376 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003377not_writing(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003378{
3379 if (p_write)
3380 return FALSE;
3381 EMSG(_("E142: File not written: Writing is disabled by 'write' option"));
3382 return TRUE;
3383}
3384
3385/*
Bram Moolenaar5386a122007-06-28 20:02:32 +00003386 * Check if a buffer is read-only (either 'readonly' option is set or file is
3387 * read-only). Ask for overruling in a dialog. Return TRUE and give an error
3388 * message when the buffer is readonly.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003389 */
3390 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003391check_readonly(int *forceit, buf_T *buf)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003392{
Bram Moolenaar5386a122007-06-28 20:02:32 +00003393 struct stat st;
3394
3395 /* Handle a file being readonly when the 'readonly' option is set or when
3396 * the file exists and permissions are read-only.
3397 * We will send 0777 to check_file_readonly(), as the "perm" variable is
3398 * important for device checks but not here. */
3399 if (!*forceit && (buf->b_p_ro
3400 || (mch_stat((char *)buf->b_ffname, &st) >= 0
3401 && check_file_readonly(buf->b_ffname, 0777))))
Bram Moolenaar071d4272004-06-13 20:20:40 +00003402 {
3403#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3404 if ((p_confirm || cmdmod.confirm) && buf->b_fname != NULL)
3405 {
Bram Moolenaard9462e32011-04-11 21:35:11 +02003406 char_u buff[DIALOG_MSG_SIZE];
Bram Moolenaar071d4272004-06-13 20:20:40 +00003407
Bram Moolenaar5386a122007-06-28 20:02:32 +00003408 if (buf->b_p_ro)
3409 dialog_msg(buff, _("'readonly' option is set for \"%s\".\nDo you wish to write anyway?"),
3410 buf->b_fname);
3411 else
3412 dialog_msg(buff, _("File permissions of \"%s\" are read-only.\nIt may still be possible to write it.\nDo you wish to try?"),
Bram Moolenaar071d4272004-06-13 20:20:40 +00003413 buf->b_fname);
3414
3415 if (vim_dialog_yesno(VIM_QUESTION, NULL, buff, 2) == VIM_YES)
3416 {
3417 /* Set forceit, to force the writing of a readonly file */
3418 *forceit = TRUE;
3419 return FALSE;
3420 }
3421 else
3422 return TRUE;
3423 }
3424 else
3425#endif
Bram Moolenaar5386a122007-06-28 20:02:32 +00003426 if (buf->b_p_ro)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003427 EMSG(_(e_readonly));
Bram Moolenaar5386a122007-06-28 20:02:32 +00003428 else
3429 EMSG2(_("E505: \"%s\" is read-only (add ! to override)"),
3430 buf->b_fname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003431 return TRUE;
3432 }
Bram Moolenaar5386a122007-06-28 20:02:32 +00003433
Bram Moolenaar071d4272004-06-13 20:20:40 +00003434 return FALSE;
3435}
3436
3437/*
Bram Moolenaar8ada17c2006-01-19 22:16:24 +00003438 * Try to abandon current file and edit a new or existing file.
3439 * 'fnum' is the number of the file, if zero use ffname/sfname.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003440 *
Bram Moolenaar8ada17c2006-01-19 22:16:24 +00003441 * Return 1 for "normal" error, 2 for "not written" error, 0 for success
Bram Moolenaareb1b6792007-08-21 13:29:28 +00003442 * -1 for successfully opening another file.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003443 * 'lnum' is the line number for the cursor in the new file (if non-zero).
3444 */
3445 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003446getfile(
3447 int fnum,
3448 char_u *ffname,
3449 char_u *sfname,
3450 int setpm,
3451 linenr_T lnum,
3452 int forceit)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003453{
3454 int other;
3455 int retval;
3456 char_u *free_me = NULL;
3457
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00003458 if (text_locked())
Bram Moolenaar071d4272004-06-13 20:20:40 +00003459 return 1;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003460#ifdef FEAT_AUTOCMD
3461 if (curbuf_locked())
3462 return 1;
3463#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003464
3465 if (fnum == 0)
3466 {
3467 /* make ffname full path, set sfname */
3468 fname_expand(curbuf, &ffname, &sfname);
3469 other = otherfile(ffname);
3470 free_me = ffname; /* has been allocated, free() later */
3471 }
3472 else
3473 other = (fnum != curbuf->b_fnum);
3474
3475 if (other)
3476 ++no_wait_return; /* don't wait for autowrite message */
3477 if (other && !forceit && curbuf->b_nwindows == 1 && !P_HID(curbuf)
3478 && curbufIsChanged() && autowrite(curbuf, forceit) == FAIL)
3479 {
3480#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3481 if (p_confirm && p_write)
3482 dialog_changed(curbuf, FALSE);
3483 if (curbufIsChanged())
3484#endif
3485 {
3486 if (other)
3487 --no_wait_return;
3488 EMSG(_(e_nowrtmsg));
3489 retval = 2; /* file has been changed */
3490 goto theend;
3491 }
3492 }
3493 if (other)
3494 --no_wait_return;
3495 if (setpm)
3496 setpcmark();
3497 if (!other)
3498 {
3499 if (lnum != 0)
3500 curwin->w_cursor.lnum = lnum;
3501 check_cursor_lnum();
3502 beginline(BL_SOL | BL_FIX);
3503 retval = 0; /* it's in the same file */
3504 }
3505 else if (do_ecmd(fnum, ffname, sfname, NULL, lnum,
Bram Moolenaar701f7af2008-11-15 13:12:07 +00003506 (P_HID(curbuf) ? ECMD_HIDE : 0) + (forceit ? ECMD_FORCEIT : 0),
3507 curwin) == OK)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003508 retval = -1; /* opened another file */
3509 else
3510 retval = 1; /* error encountered */
3511
3512theend:
3513 vim_free(free_me);
3514 return retval;
3515}
3516
3517/*
3518 * start editing a new file
3519 *
3520 * fnum: file number; if zero use ffname/sfname
3521 * ffname: the file name
3522 * - full path if sfname used,
3523 * - any file name if sfname is NULL
3524 * - empty string to re-edit with the same file name (but may be
3525 * in a different directory)
3526 * - NULL to start an empty buffer
3527 * sfname: the short file name (or NULL)
3528 * eap: contains the command to be executed after loading the file and
3529 * forced 'ff' and 'fenc'
3530 * newlnum: if > 0: put cursor on this line number (if possible)
3531 * if ECMD_LASTL: use last position in loaded file
3532 * if ECMD_LAST: use last position in all files
3533 * if ECMD_ONE: use first line
3534 * flags:
3535 * ECMD_HIDE: if TRUE don't free the current buffer
3536 * ECMD_SET_HELP: set b_help flag of (new) buffer before opening file
3537 * ECMD_OLDBUF: use existing buffer if it exists
3538 * ECMD_FORCEIT: ! used for Ex command
3539 * ECMD_ADDBUF: don't edit, just add to buffer list
Bram Moolenaar701f7af2008-11-15 13:12:07 +00003540 * oldwin: Should be "curwin" when editing a new buffer in the current
Bram Moolenaarcc448b32010-07-14 16:52:17 +02003541 * window, NULL when splitting the window first. When not NULL info
3542 * of the previous buffer for "oldwin" is stored.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003543 *
3544 * return FAIL for failure, OK otherwise
3545 */
3546 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01003547do_ecmd(
3548 int fnum,
3549 char_u *ffname,
3550 char_u *sfname,
3551 exarg_T *eap, /* can be NULL! */
3552 linenr_T newlnum,
3553 int flags,
3554 win_T *oldwin)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003555{
3556 int other_file; /* TRUE if editing another file */
3557 int oldbuf; /* TRUE if using existing buffer */
3558#ifdef FEAT_AUTOCMD
3559 int auto_buf = FALSE; /* TRUE if autocommands brought us
3560 into the buffer unexpectedly */
3561 char_u *new_name = NULL;
Bram Moolenaar1f35bf92006-03-07 22:38:47 +00003562 int did_set_swapcommand = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003563#endif
3564 buf_T *buf;
3565#if defined(FEAT_AUTOCMD) || defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3566 buf_T *old_curbuf = curbuf;
3567#endif
3568 char_u *free_fname = NULL;
3569#ifdef FEAT_BROWSE
3570 char_u *browse_file = NULL;
3571#endif
3572 int retval = FAIL;
3573 long n;
Bram Moolenaareab316b2015-03-24 11:46:30 +01003574 pos_T orig_pos;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003575 linenr_T topline = 0;
3576 int newcol = -1;
3577 int solcol = -1;
3578 pos_T *pos;
3579#ifdef FEAT_SUN_WORKSHOP
3580 char_u *cp;
3581#endif
3582 char_u *command = NULL;
Bram Moolenaar706cdeb2007-05-06 21:55:31 +00003583#ifdef FEAT_SPELL
3584 int did_get_winopts = FALSE;
3585#endif
Bram Moolenaar59f931e2010-07-24 20:27:03 +02003586 int readfile_flags = 0;
Bram Moolenaarab9fc7e2016-02-06 15:29:40 +01003587 int did_inc_redrawing_disabled = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003588
3589 if (eap != NULL)
3590 command = eap->do_ecmd_cmd;
3591
3592 if (fnum != 0)
3593 {
3594 if (fnum == curbuf->b_fnum) /* file is already being edited */
3595 return OK; /* nothing to do */
3596 other_file = TRUE;
3597 }
3598 else
3599 {
3600#ifdef FEAT_BROWSE
3601 if (cmdmod.browse)
3602 {
Bram Moolenaar15bfa092008-07-24 16:45:38 +00003603# ifdef FEAT_AUTOCMD
Bram Moolenaar0be6e642005-08-04 21:32:22 +00003604 if (
Bram Moolenaar15bfa092008-07-24 16:45:38 +00003605# ifdef FEAT_GUI
Bram Moolenaar0be6e642005-08-04 21:32:22 +00003606 !gui.in_use &&
Bram Moolenaar15bfa092008-07-24 16:45:38 +00003607# endif
Bram Moolenaar0be6e642005-08-04 21:32:22 +00003608 au_has_group((char_u *)"FileExplorer"))
3609 {
3610 /* No browsing supported but we do have the file explorer:
3611 * Edit the directory. */
3612 if (ffname == NULL || !mch_isdir(ffname))
3613 ffname = (char_u *)".";
3614 }
3615 else
Bram Moolenaar15bfa092008-07-24 16:45:38 +00003616# endif
Bram Moolenaar0be6e642005-08-04 21:32:22 +00003617 {
3618 browse_file = do_browse(0, (char_u *)_("Edit File"), ffname,
Bram Moolenaar071d4272004-06-13 20:20:40 +00003619 NULL, NULL, NULL, curbuf);
Bram Moolenaar0be6e642005-08-04 21:32:22 +00003620 if (browse_file == NULL)
3621 goto theend;
3622 ffname = browse_file;
3623 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003624 }
3625#endif
3626 /* if no short name given, use ffname for short name */
3627 if (sfname == NULL)
3628 sfname = ffname;
3629#ifdef USE_FNAME_CASE
3630# ifdef USE_LONG_FNAME
3631 if (USE_LONG_FNAME)
3632# endif
Bram Moolenaar342337a2005-07-21 21:11:17 +00003633 if (sfname != NULL)
3634 fname_case(sfname, 0); /* set correct case for sfname */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003635#endif
3636
3637#ifdef FEAT_LISTCMDS
3638 if ((flags & ECMD_ADDBUF) && (ffname == NULL || *ffname == NUL))
3639 goto theend;
3640#endif
3641
3642 if (ffname == NULL)
3643 other_file = TRUE;
3644 /* there is no file name */
3645 else if (*ffname == NUL && curbuf->b_ffname == NULL)
3646 other_file = FALSE;
3647 else
3648 {
3649 if (*ffname == NUL) /* re-edit with same file name */
3650 {
3651 ffname = curbuf->b_ffname;
3652 sfname = curbuf->b_fname;
3653 }
3654 free_fname = fix_fname(ffname); /* may expand to full path name */
3655 if (free_fname != NULL)
3656 ffname = free_fname;
3657 other_file = otherfile(ffname);
3658#ifdef FEAT_SUN_WORKSHOP
3659 if (usingSunWorkShop && p_acd
3660 && (cp = vim_strrchr(sfname, '/')) != NULL)
3661 sfname = ++cp;
3662#endif
3663 }
3664 }
3665
3666 /*
3667 * if the file was changed we may not be allowed to abandon it
3668 * - if we are going to re-edit the same file
3669 * - or if we are the only window on this file and if ECMD_HIDE is FALSE
3670 */
3671 if ( ((!other_file && !(flags & ECMD_OLDBUF))
3672 || (curbuf->b_nwindows == 1
3673 && !(flags & (ECMD_HIDE | ECMD_ADDBUF))))
Bram Moolenaar45d3b142013-11-09 03:31:51 +01003674 && check_changed(curbuf, (p_awa ? CCGD_AW : 0)
3675 | (other_file ? 0 : CCGD_MULTWIN)
3676 | ((flags & ECMD_FORCEIT) ? CCGD_FORCEIT : 0)
3677 | (eap == NULL ? 0 : CCGD_EXCMD)))
Bram Moolenaar071d4272004-06-13 20:20:40 +00003678 {
3679 if (fnum == 0 && other_file && ffname != NULL)
3680 (void)setaltfname(ffname, sfname, newlnum < 0 ? 0 : newlnum);
3681 goto theend;
3682 }
3683
Bram Moolenaar071d4272004-06-13 20:20:40 +00003684 /*
3685 * End Visual mode before switching to another buffer, so the text can be
3686 * copied into the GUI selection buffer.
3687 */
3688 reset_VIsual();
Bram Moolenaar071d4272004-06-13 20:20:40 +00003689
Bram Moolenaar1f35bf92006-03-07 22:38:47 +00003690#ifdef FEAT_AUTOCMD
3691 if ((command != NULL || newlnum > (linenr_T)0)
3692 && *get_vim_var_str(VV_SWAPCOMMAND) == NUL)
3693 {
3694 int len;
3695 char_u *p;
3696
3697 /* Set v:swapcommand for the SwapExists autocommands. */
3698 if (command != NULL)
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00003699 len = (int)STRLEN(command) + 3;
Bram Moolenaar1f35bf92006-03-07 22:38:47 +00003700 else
3701 len = 30;
3702 p = alloc((unsigned)len);
3703 if (p != NULL)
3704 {
3705 if (command != NULL)
3706 vim_snprintf((char *)p, len, ":%s\r", command);
3707 else
3708 vim_snprintf((char *)p, len, "%ldG", (long)newlnum);
3709 set_vim_var_string(VV_SWAPCOMMAND, p, -1);
3710 did_set_swapcommand = TRUE;
3711 vim_free(p);
3712 }
3713 }
3714#endif
3715
Bram Moolenaar071d4272004-06-13 20:20:40 +00003716 /*
3717 * If we are starting to edit another file, open a (new) buffer.
3718 * Otherwise we re-use the current buffer.
3719 */
3720 if (other_file)
3721 {
3722#ifdef FEAT_LISTCMDS
3723 if (!(flags & ECMD_ADDBUF))
3724#endif
3725 {
Bram Moolenaard4755bb2004-09-02 19:12:26 +00003726 if (!cmdmod.keepalt)
3727 curwin->w_alt_fnum = curbuf->b_fnum;
Bram Moolenaar701f7af2008-11-15 13:12:07 +00003728 if (oldwin != NULL)
3729 buflist_altfpos(oldwin);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003730 }
3731
3732 if (fnum)
3733 buf = buflist_findnr(fnum);
3734 else
3735 {
3736#ifdef FEAT_LISTCMDS
3737 if (flags & ECMD_ADDBUF)
3738 {
3739 linenr_T tlnum = 1L;
3740
3741 if (command != NULL)
3742 {
3743 tlnum = atol((char *)command);
3744 if (tlnum <= 0)
3745 tlnum = 1L;
3746 }
3747 (void)buflist_new(ffname, sfname, tlnum, BLN_LISTED);
3748 goto theend;
3749 }
3750#endif
3751 buf = buflist_new(ffname, sfname, 0L,
3752 BLN_CURBUF | ((flags & ECMD_SET_HELP) ? 0 : BLN_LISTED));
Bram Moolenaar4c7ab1b2014-04-06 20:45:43 +02003753#ifdef FEAT_AUTOCMD
3754 /* autocommands may change curwin and curbuf */
3755 if (oldwin != NULL)
3756 oldwin = curwin;
3757 old_curbuf = curbuf;
3758#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003759 }
3760 if (buf == NULL)
3761 goto theend;
3762 if (buf->b_ml.ml_mfp == NULL) /* no memfile yet */
3763 {
3764 oldbuf = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003765 }
3766 else /* existing memfile */
3767 {
3768 oldbuf = TRUE;
3769 (void)buf_check_timestamp(buf, FALSE);
3770 /* Check if autocommands made buffer invalid or changed the current
3771 * buffer. */
3772 if (!buf_valid(buf)
3773#ifdef FEAT_AUTOCMD
3774 || curbuf != old_curbuf
3775#endif
3776 )
3777 goto theend;
3778#ifdef FEAT_EVAL
3779 if (aborting()) /* autocmds may abort script processing */
3780 goto theend;
3781#endif
3782 }
3783
3784 /* May jump to last used line number for a loaded buffer or when asked
3785 * for explicitly */
3786 if ((oldbuf && newlnum == ECMD_LASTL) || newlnum == ECMD_LAST)
3787 {
3788 pos = buflist_findfpos(buf);
3789 newlnum = pos->lnum;
3790 solcol = pos->col;
3791 }
3792
3793 /*
3794 * Make the (new) buffer the one used by the current window.
3795 * If the old buffer becomes unused, free it if ECMD_HIDE is FALSE.
3796 * If the current buffer was empty and has no file name, curbuf
Bram Moolenaar8da9bbf2015-02-27 19:34:56 +01003797 * is returned by buflist_new(), nothing to do here.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003798 */
3799 if (buf != curbuf)
3800 {
3801#ifdef FEAT_AUTOCMD
3802 /*
3803 * Be careful: The autocommands may delete any buffer and change
3804 * the current buffer.
3805 * - If the buffer we are going to edit is deleted, give up.
3806 * - If the current buffer is deleted, prefer to load the new
3807 * buffer when loading a buffer is required. This avoids
3808 * loading another buffer which then must be closed again.
3809 * - If we ended up in the new buffer already, need to skip a few
3810 * things, set auto_buf.
3811 */
3812 if (buf->b_fname != NULL)
3813 new_name = vim_strsave(buf->b_fname);
3814 au_new_curbuf = buf;
3815 apply_autocmds(EVENT_BUFLEAVE, NULL, NULL, FALSE, curbuf);
3816 if (!buf_valid(buf)) /* new buffer has been deleted */
3817 {
3818 delbuf_msg(new_name); /* frees new_name */
3819 goto theend;
3820 }
3821# ifdef FEAT_EVAL
3822 if (aborting()) /* autocmds may abort script processing */
3823 {
3824 vim_free(new_name);
3825 goto theend;
3826 }
3827# endif
3828 if (buf == curbuf) /* already in new buffer */
3829 auto_buf = TRUE;
3830 else
3831 {
3832 if (curbuf == old_curbuf)
3833#endif
3834 buf_copy_options(buf, BCO_ENTER);
3835
3836 /* close the link to the current buffer */
Bram Moolenaar779b74b2006-04-10 14:55:34 +00003837 u_sync(FALSE);
Bram Moolenaar701f7af2008-11-15 13:12:07 +00003838 close_buffer(oldwin, curbuf,
Bram Moolenaar42ec6562012-02-22 14:58:37 +01003839 (flags & ECMD_HIDE) ? 0 : DOBUF_UNLOAD, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003840
3841#ifdef FEAT_AUTOCMD
Bram Moolenaarfc573802011-12-30 15:01:59 +01003842 /* Autocommands may open a new window and leave oldwin open
3843 * which leads to crashes since the above call sets
3844 * oldwin->w_buffer to NULL. */
3845 if (curwin != oldwin && oldwin != aucmd_win
3846 && win_valid(oldwin) && oldwin->w_buffer == NULL)
3847 win_close(oldwin, FALSE);
3848
Bram Moolenaar071d4272004-06-13 20:20:40 +00003849# ifdef FEAT_EVAL
3850 if (aborting()) /* autocmds may abort script processing */
3851 {
3852 vim_free(new_name);
3853 goto theend;
3854 }
3855# endif
3856 /* Be careful again, like above. */
3857 if (!buf_valid(buf)) /* new buffer has been deleted */
3858 {
3859 delbuf_msg(new_name); /* frees new_name */
3860 goto theend;
3861 }
3862 if (buf == curbuf) /* already in new buffer */
3863 auto_buf = TRUE;
3864 else
3865#endif
3866 {
Bram Moolenaar860cae12010-06-05 23:22:07 +02003867#ifdef FEAT_SYN_HL
3868 /*
3869 * <VN> We could instead free the synblock
3870 * and re-attach to buffer, perhaps.
3871 */
3872 if (curwin->w_s == &(curwin->w_buffer->b_s))
Bram Moolenaar720ce532012-04-25 12:57:28 +02003873 curwin->w_s = &(buf->b_s);
Bram Moolenaar860cae12010-06-05 23:22:07 +02003874#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003875 curwin->w_buffer = buf;
3876 curbuf = buf;
3877 ++curbuf->b_nwindows;
Bram Moolenaarad875fb2013-07-24 15:02:03 +02003878
3879 /* Set 'fileformat', 'binary' and 'fenc' when forced. */
3880 if (!oldbuf && eap != NULL)
3881 {
3882 set_file_options(TRUE, eap);
Bram Moolenaara2320f42013-07-28 15:16:19 +02003883#ifdef FEAT_MBYTE
Bram Moolenaarad875fb2013-07-24 15:02:03 +02003884 set_forced_fenc(eap);
Bram Moolenaara2320f42013-07-28 15:16:19 +02003885#endif
Bram Moolenaarad875fb2013-07-24 15:02:03 +02003886 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003887 }
3888
3889 /* May get the window options from the last time this buffer
3890 * was in this window (or another window). If not used
3891 * before, reset the local window options to the global
3892 * values. Also restores old folding stuff. */
Bram Moolenaarb1269f12007-06-19 09:51:25 +00003893 get_winopts(curbuf);
Bram Moolenaar706cdeb2007-05-06 21:55:31 +00003894#ifdef FEAT_SPELL
3895 did_get_winopts = TRUE;
3896#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003897
3898#ifdef FEAT_AUTOCMD
3899 }
3900 vim_free(new_name);
3901 au_new_curbuf = NULL;
3902#endif
3903 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003904
3905 curwin->w_pcmark.lnum = 1;
3906 curwin->w_pcmark.col = 0;
3907 }
3908 else /* !other_file */
3909 {
3910 if (
3911#ifdef FEAT_LISTCMDS
3912 (flags & ECMD_ADDBUF) ||
3913#endif
3914 check_fname() == FAIL)
3915 goto theend;
Bram Moolenaardf5caa02015-01-27 11:26:15 +01003916
Bram Moolenaar071d4272004-06-13 20:20:40 +00003917 oldbuf = (flags & ECMD_OLDBUF);
3918 }
3919
Bram Moolenaarab9fc7e2016-02-06 15:29:40 +01003920 /* Don't redraw until the cursor is in the right line, otherwise
3921 * autocommands may cause ml_get errors. */
3922 ++RedrawingDisabled;
3923 did_inc_redrawing_disabled = TRUE;
3924
Bram Moolenaar54fb4382014-11-12 19:28:16 +01003925#ifdef FEAT_AUTOCMD
3926 buf = curbuf;
3927#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003928 if ((flags & ECMD_SET_HELP) || keep_help_flag)
3929 {
Bram Moolenaar54fb4382014-11-12 19:28:16 +01003930 prepare_help_buffer();
Bram Moolenaar071d4272004-06-13 20:20:40 +00003931 }
3932 else
3933 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00003934 /* Don't make a buffer listed if it's a help buffer. Useful when
3935 * using CTRL-O to go back to a help file. */
3936 if (!curbuf->b_help)
3937 set_buflisted(TRUE);
3938 }
3939
3940#ifdef FEAT_AUTOCMD
3941 /* If autocommands change buffers under our fingers, forget about
3942 * editing the file. */
3943 if (buf != curbuf)
3944 goto theend;
3945# ifdef FEAT_EVAL
3946 if (aborting()) /* autocmds may abort script processing */
3947 goto theend;
3948# endif
3949
3950 /* Since we are starting to edit a file, consider the filetype to be
3951 * unset. Helps for when an autocommand changes files and expects syntax
3952 * highlighting to work in the other file. */
3953 did_filetype = FALSE;
3954#endif
3955
3956/*
3957 * other_file oldbuf
3958 * FALSE FALSE re-edit same file, buffer is re-used
3959 * FALSE TRUE re-edit same file, nothing changes
3960 * TRUE FALSE start editing new file, new buffer
3961 * TRUE TRUE start editing in existing buffer (nothing to do)
3962 */
3963 if (!other_file && !oldbuf) /* re-use the buffer */
3964 {
3965 set_last_cursor(curwin); /* may set b_last_cursor */
3966 if (newlnum == ECMD_LAST || newlnum == ECMD_LASTL)
3967 {
3968 newlnum = curwin->w_cursor.lnum;
3969 solcol = curwin->w_cursor.col;
3970 }
3971#ifdef FEAT_AUTOCMD
3972 buf = curbuf;
3973 if (buf->b_fname != NULL)
3974 new_name = vim_strsave(buf->b_fname);
3975 else
3976 new_name = NULL;
3977#endif
Bram Moolenaar59f931e2010-07-24 20:27:03 +02003978 if (p_ur < 0 || curbuf->b_ml.ml_line_count <= p_ur)
3979 {
3980 /* Save all the text, so that the reload can be undone.
3981 * Sync first so that this is a separate undo-able action. */
3982 u_sync(FALSE);
3983 if (u_savecommon(0, curbuf->b_ml.ml_line_count + 1, 0, TRUE)
3984 == FAIL)
3985 goto theend;
3986 u_unchanged(curbuf);
3987 buf_freeall(curbuf, BFA_KEEP_UNDO);
3988
3989 /* tell readfile() not to clear or reload undo info */
3990 readfile_flags = READ_KEEP_UNDO;
3991 }
3992 else
3993 buf_freeall(curbuf, 0); /* free all things for buffer */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003994#ifdef FEAT_AUTOCMD
3995 /* If autocommands deleted the buffer we were going to re-edit, give
3996 * up and jump to the end. */
3997 if (!buf_valid(buf))
3998 {
3999 delbuf_msg(new_name); /* frees new_name */
4000 goto theend;
4001 }
4002 vim_free(new_name);
4003
4004 /* If autocommands change buffers under our fingers, forget about
4005 * re-editing the file. Should do the buf_clear_file(), but perhaps
4006 * the autocommands changed the buffer... */
4007 if (buf != curbuf)
4008 goto theend;
4009# ifdef FEAT_EVAL
4010 if (aborting()) /* autocmds may abort script processing */
4011 goto theend;
4012# endif
4013#endif
4014 buf_clear_file(curbuf);
4015 curbuf->b_op_start.lnum = 0; /* clear '[ and '] marks */
4016 curbuf->b_op_end.lnum = 0;
4017 }
4018
4019/*
4020 * If we get here we are sure to start editing
4021 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004022 /* Assume success now */
4023 retval = OK;
4024
4025 /*
4026 * Reset cursor position, could be used by autocommands.
4027 */
4028 check_cursor();
4029
4030 /*
4031 * Check if we are editing the w_arg_idx file in the argument list.
4032 */
4033 check_arg_idx(curwin);
4034
4035#ifdef FEAT_AUTOCMD
4036 if (!auto_buf)
4037#endif
4038 {
4039 /*
4040 * Set cursor and init window before reading the file and executing
4041 * autocommands. This allows for the autocommands to position the
4042 * cursor.
4043 */
Bram Moolenaarfaa959a2006-02-20 21:37:40 +00004044 curwin_init();
Bram Moolenaar071d4272004-06-13 20:20:40 +00004045
4046#ifdef FEAT_FOLDING
Bram Moolenaareb1b6792007-08-21 13:29:28 +00004047 /* It's possible that all lines in the buffer changed. Need to update
4048 * automatic folding for all windows where it's used. */
4049# ifdef FEAT_WINDOWS
4050 {
4051 win_T *win;
4052 tabpage_T *tp;
4053
4054 FOR_ALL_TAB_WINDOWS(tp, win)
4055 if (win->w_buffer == curbuf)
4056 foldUpdateAll(win);
4057 }
4058# else
Bram Moolenaar071d4272004-06-13 20:20:40 +00004059 foldUpdateAll(curwin);
Bram Moolenaareb1b6792007-08-21 13:29:28 +00004060# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004061#endif
4062
Bram Moolenaar498efdb2006-09-05 14:31:54 +00004063 /* Change directories when the 'acd' option is set. */
4064 DO_AUTOCHDIR
4065
Bram Moolenaar071d4272004-06-13 20:20:40 +00004066 /*
4067 * Careful: open_buffer() and apply_autocmds() may change the current
4068 * buffer and window.
4069 */
Bram Moolenaareab316b2015-03-24 11:46:30 +01004070 orig_pos = curwin->w_cursor;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004071 topline = curwin->w_topline;
4072 if (!oldbuf) /* need to read the file */
4073 {
Bram Moolenaard5bc83f2005-12-07 21:07:59 +00004074#if defined(HAS_SWAP_EXISTS_ACTION)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004075 swap_exists_action = SEA_DIALOG;
4076#endif
4077 curbuf->b_flags |= BF_CHECK_RO; /* set/reset 'ro' flag */
4078
4079 /*
4080 * Open the buffer and read the file.
4081 */
4082#if defined(FEAT_AUTOCMD) && defined(FEAT_EVAL)
Bram Moolenaar59f931e2010-07-24 20:27:03 +02004083 if (should_abort(open_buffer(FALSE, eap, readfile_flags)))
Bram Moolenaar071d4272004-06-13 20:20:40 +00004084 retval = FAIL;
4085#else
Bram Moolenaar59f931e2010-07-24 20:27:03 +02004086 (void)open_buffer(FALSE, eap, readfile_flags);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004087#endif
4088
Bram Moolenaard5bc83f2005-12-07 21:07:59 +00004089#if defined(HAS_SWAP_EXISTS_ACTION)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004090 if (swap_exists_action == SEA_QUIT)
4091 retval = FAIL;
4092 handle_swap_exists(old_curbuf);
4093#endif
4094 }
4095#ifdef FEAT_AUTOCMD
4096 else
4097 {
Bram Moolenaar15d0a8c2004-09-06 17:44:46 +00004098 /* Read the modelines, but only to set window-local options. Any
4099 * buffer-local options have already been set and may have been
4100 * changed by the user. */
Bram Moolenaara3227e22006-03-08 21:32:40 +00004101 do_modelines(OPT_WINONLY);
Bram Moolenaar15d0a8c2004-09-06 17:44:46 +00004102
Bram Moolenaar071d4272004-06-13 20:20:40 +00004103 apply_autocmds_retval(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf,
4104 &retval);
4105 apply_autocmds_retval(EVENT_BUFWINENTER, NULL, NULL, FALSE, curbuf,
4106 &retval);
4107 }
4108 check_arg_idx(curwin);
4109#endif
4110
Bram Moolenaareab316b2015-03-24 11:46:30 +01004111 /* If autocommands change the cursor position or topline, we should
4112 * keep it. Also when it moves within a line. */
4113 if (!equalpos(curwin->w_cursor, orig_pos))
Bram Moolenaar071d4272004-06-13 20:20:40 +00004114 {
4115 newlnum = curwin->w_cursor.lnum;
4116 newcol = curwin->w_cursor.col;
4117 }
4118 if (curwin->w_topline == topline)
4119 topline = 0;
4120
4121 /* Even when cursor didn't move we need to recompute topline. */
4122 changed_line_abv_curs();
4123
4124#ifdef FEAT_TITLE
4125 maketitle();
4126#endif
4127 }
4128
4129#ifdef FEAT_DIFF
4130 /* Tell the diff stuff that this buffer is new and/or needs updating.
4131 * Also needed when re-editing the same buffer, because unloading will
4132 * have removed it as a diff buffer. */
Bram Moolenaar997fb4b2006-02-17 21:53:23 +00004133 if (curwin->w_p_diff)
4134 {
4135 diff_buf_add(curbuf);
4136 diff_invalidate(curbuf);
4137 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004138#endif
4139
Bram Moolenaar706cdeb2007-05-06 21:55:31 +00004140#ifdef FEAT_SPELL
4141 /* If the window options were changed may need to set the spell language.
4142 * Can only do this after the buffer has been properly setup. */
Bram Moolenaar860cae12010-06-05 23:22:07 +02004143 if (did_get_winopts && curwin->w_p_spell && *curwin->w_s->b_p_spl != NUL)
4144 (void)did_set_spelllang(curwin);
Bram Moolenaar706cdeb2007-05-06 21:55:31 +00004145#endif
4146
Bram Moolenaar071d4272004-06-13 20:20:40 +00004147 if (command == NULL)
4148 {
4149 if (newcol >= 0) /* position set by autocommands */
4150 {
4151 curwin->w_cursor.lnum = newlnum;
4152 curwin->w_cursor.col = newcol;
4153 check_cursor();
4154 }
4155 else if (newlnum > 0) /* line number from caller or old position */
4156 {
4157 curwin->w_cursor.lnum = newlnum;
4158 check_cursor_lnum();
4159 if (solcol >= 0 && !p_sol)
4160 {
4161 /* 'sol' is off: Use last known column. */
4162 curwin->w_cursor.col = solcol;
4163 check_cursor_col();
4164#ifdef FEAT_VIRTUALEDIT
4165 curwin->w_cursor.coladd = 0;
4166#endif
4167 curwin->w_set_curswant = TRUE;
4168 }
4169 else
4170 beginline(BL_SOL | BL_FIX);
4171 }
4172 else /* no line number, go to last line in Ex mode */
4173 {
4174 if (exmode_active)
4175 curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count;
4176 beginline(BL_WHITE | BL_FIX);
4177 }
4178 }
4179
4180#ifdef FEAT_WINDOWS
4181 /* Check if cursors in other windows on the same buffer are still valid */
4182 check_lnums(FALSE);
4183#endif
4184
4185 /*
4186 * Did not read the file, need to show some info about the file.
4187 * Do this after setting the cursor.
4188 */
4189 if (oldbuf
4190#ifdef FEAT_AUTOCMD
4191 && !auto_buf
4192#endif
4193 )
4194 {
4195 int msg_scroll_save = msg_scroll;
4196
4197 /* Obey the 'O' flag in 'cpoptions': overwrite any previous file
4198 * message. */
4199 if (shortmess(SHM_OVERALL) && !exiting && p_verbose == 0)
4200 msg_scroll = FALSE;
4201 if (!msg_scroll) /* wait a bit when overwriting an error msg */
4202 check_for_delay(FALSE);
4203 msg_start();
4204 msg_scroll = msg_scroll_save;
4205 msg_scrolled_ign = TRUE;
4206
Bram Moolenaar426dd022016-03-15 15:09:29 +01004207 if (!shortmess(SHM_FILEINFO))
4208 fileinfo(FALSE, TRUE, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004209
4210 msg_scrolled_ign = FALSE;
4211 }
4212
4213 if (command != NULL)
4214 do_cmdline(command, NULL, NULL, DOCMD_VERBOSE);
4215
4216#ifdef FEAT_KEYMAP
4217 if (curbuf->b_kmap_state & KEYMAP_INIT)
Bram Moolenaar0ab2a882009-05-13 10:51:08 +00004218 (void)keymap_init();
Bram Moolenaar071d4272004-06-13 20:20:40 +00004219#endif
4220
4221 --RedrawingDisabled;
Bram Moolenaarab9fc7e2016-02-06 15:29:40 +01004222 did_inc_redrawing_disabled = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004223 if (!skip_redraw)
4224 {
4225 n = p_so;
4226 if (topline == 0 && command == NULL)
4227 p_so = 999; /* force cursor halfway the window */
4228 update_topline();
4229#ifdef FEAT_SCROLLBIND
4230 curwin->w_scbind_pos = curwin->w_topline;
4231#endif
4232 p_so = n;
4233 redraw_curbuf_later(NOT_VALID); /* redraw this buffer later */
4234 }
4235
4236 if (p_im)
4237 need_start_insertmode = TRUE;
4238
Bram Moolenaar498efdb2006-09-05 14:31:54 +00004239 /* Change directories when the 'acd' option is set. */
4240 DO_AUTOCHDIR
Bram Moolenaar071d4272004-06-13 20:20:40 +00004241
Bram Moolenaar7b89edc2006-04-06 20:21:51 +00004242#if defined(FEAT_SUN_WORKSHOP) || defined(FEAT_NETBEANS_INTG)
Bram Moolenaar67c53842010-05-22 18:28:27 +02004243 if (curbuf->b_ffname != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004244 {
4245# ifdef FEAT_SUN_WORKSHOP
Bram Moolenaar67c53842010-05-22 18:28:27 +02004246 if (gui.in_use && usingSunWorkShop)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004247 workshop_file_opened((char *)curbuf->b_ffname, curbuf->b_p_ro);
4248# endif
4249# ifdef FEAT_NETBEANS_INTG
Bram Moolenaarb26e6322010-05-22 21:34:09 +02004250 if ((flags & ECMD_SET_HELP) != ECMD_SET_HELP)
Bram Moolenaar35a9aaa2004-10-24 19:23:07 +00004251 netbeans_file_opened(curbuf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004252# endif
4253 }
4254#endif
4255
4256theend:
Bram Moolenaarab9fc7e2016-02-06 15:29:40 +01004257 if (did_inc_redrawing_disabled)
4258 --RedrawingDisabled;
Bram Moolenaar1f35bf92006-03-07 22:38:47 +00004259#ifdef FEAT_AUTOCMD
4260 if (did_set_swapcommand)
4261 set_vim_var_string(VV_SWAPCOMMAND, NULL, -1);
4262#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004263#ifdef FEAT_BROWSE
4264 vim_free(browse_file);
4265#endif
4266 vim_free(free_fname);
4267 return retval;
4268}
4269
4270#ifdef FEAT_AUTOCMD
4271 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004272delbuf_msg(char_u *name)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004273{
4274 EMSG2(_("E143: Autocommands unexpectedly deleted new buffer %s"),
4275 name == NULL ? (char_u *)"" : name);
4276 vim_free(name);
4277 au_new_curbuf = NULL;
4278}
4279#endif
4280
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004281static int append_indent = 0; /* autoindent for first line */
4282
Bram Moolenaar071d4272004-06-13 20:20:40 +00004283/*
4284 * ":insert" and ":append", also used by ":change"
4285 */
4286 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004287ex_append(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004288{
4289 char_u *theline;
4290 int did_undo = FALSE;
4291 linenr_T lnum = eap->line2;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004292 int indent = 0;
4293 char_u *p;
4294 int vcol;
4295 int empty = (curbuf->b_ml.ml_flags & ML_EMPTY);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004296
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004297 /* the ! flag toggles autoindent */
4298 if (eap->forceit)
4299 curbuf->b_p_ai = !curbuf->b_p_ai;
4300
4301 /* First autoindent comes from the line we start on */
4302 if (eap->cmdidx != CMD_change && curbuf->b_p_ai && lnum > 0)
4303 append_indent = get_indent_lnum(lnum);
4304
Bram Moolenaar071d4272004-06-13 20:20:40 +00004305 if (eap->cmdidx != CMD_append)
4306 --lnum;
4307
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004308 /* when the buffer is empty append to line 0 and delete the dummy line */
4309 if (empty && lnum == 1)
4310 lnum = 0;
4311
Bram Moolenaar071d4272004-06-13 20:20:40 +00004312 State = INSERT; /* behave like in Insert mode */
4313 if (curbuf->b_p_iminsert == B_IMODE_LMAP)
4314 State |= LANGMAP;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004315
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00004316 for (;;)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004317 {
4318 msg_scroll = TRUE;
4319 need_wait_return = FALSE;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004320 if (curbuf->b_p_ai)
4321 {
4322 if (append_indent >= 0)
4323 {
4324 indent = append_indent;
4325 append_indent = -1;
4326 }
4327 else if (lnum > 0)
4328 indent = get_indent_lnum(lnum);
4329 }
4330 ex_keep_indent = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004331 if (eap->getline == NULL)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004332 {
4333 /* No getline() function, use the lines that follow. This ends
4334 * when there is no more. */
4335 if (eap->nextcmd == NULL || *eap->nextcmd == NUL)
4336 break;
4337 p = vim_strchr(eap->nextcmd, NL);
4338 if (p == NULL)
4339 p = eap->nextcmd + STRLEN(eap->nextcmd);
4340 theline = vim_strnsave(eap->nextcmd, (int)(p - eap->nextcmd));
4341 if (*p != NUL)
4342 ++p;
4343 eap->nextcmd = p;
4344 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004345 else
Bram Moolenaar26f08b02014-08-29 09:02:27 +02004346 {
4347 int save_State = State;
4348
4349 /* Set State to avoid the cursor shape to be set to INSERT mode
4350 * when getline() returns. */
4351 State = CMDLINE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004352 theline = eap->getline(
4353#ifdef FEAT_EVAL
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00004354 eap->cstack->cs_looplevel > 0 ? -1 :
Bram Moolenaar071d4272004-06-13 20:20:40 +00004355#endif
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004356 NUL, eap->cookie, indent);
Bram Moolenaar26f08b02014-08-29 09:02:27 +02004357 State = save_State;
4358 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004359 lines_left = Rows - 1;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004360 if (theline == NULL)
4361 break;
4362
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004363 /* Using ^ CTRL-D in getexmodeline() makes us repeat the indent. */
4364 if (ex_keep_indent)
4365 append_indent = indent;
4366
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004367 /* Look for the "." after automatic indent. */
4368 vcol = 0;
4369 for (p = theline; indent > vcol; ++p)
4370 {
4371 if (*p == ' ')
4372 ++vcol;
4373 else if (*p == TAB)
4374 vcol += 8 - vcol % 8;
4375 else
4376 break;
4377 }
4378 if ((p[0] == '.' && p[1] == NUL)
Bram Moolenaareaa48e72005-06-08 22:07:37 +00004379 || (!did_undo && u_save(lnum, lnum + 1 + (empty ? 1 : 0))
4380 == FAIL))
Bram Moolenaar071d4272004-06-13 20:20:40 +00004381 {
4382 vim_free(theline);
4383 break;
4384 }
4385
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004386 /* don't use autoindent if nothing was typed. */
4387 if (p[0] == NUL)
4388 theline[0] = NUL;
4389
Bram Moolenaar071d4272004-06-13 20:20:40 +00004390 did_undo = TRUE;
4391 ml_append(lnum, theline, (colnr_T)0, FALSE);
4392 appended_lines_mark(lnum, 1L);
4393
4394 vim_free(theline);
4395 ++lnum;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004396
4397 if (empty)
4398 {
4399 ml_delete(2L, FALSE);
4400 empty = FALSE;
4401 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004402 }
4403 State = NORMAL;
4404
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004405 if (eap->forceit)
4406 curbuf->b_p_ai = !curbuf->b_p_ai;
4407
Bram Moolenaar071d4272004-06-13 20:20:40 +00004408 /* "start" is set to eap->line2+1 unless that position is invalid (when
Bram Moolenaar45667512007-05-10 19:24:43 +00004409 * eap->line2 pointed to the end of the buffer and nothing was appended)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004410 * "end" is set to lnum when something has been appended, otherwise
4411 * it is the same than "start" -- Acevedo */
4412 curbuf->b_op_start.lnum = (eap->line2 < curbuf->b_ml.ml_line_count) ?
4413 eap->line2 + 1 : curbuf->b_ml.ml_line_count;
4414 if (eap->cmdidx != CMD_append)
4415 --curbuf->b_op_start.lnum;
4416 curbuf->b_op_end.lnum = (eap->line2 < lnum)
4417 ? lnum : curbuf->b_op_start.lnum;
4418 curbuf->b_op_start.col = curbuf->b_op_end.col = 0;
4419 curwin->w_cursor.lnum = lnum;
4420 check_cursor_lnum();
4421 beginline(BL_SOL | BL_FIX);
4422
4423 need_wait_return = FALSE; /* don't use wait_return() now */
4424 ex_no_reprint = TRUE;
4425}
4426
4427/*
4428 * ":change"
4429 */
4430 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004431ex_change(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004432{
4433 linenr_T lnum;
4434
4435 if (eap->line2 >= eap->line1
4436 && u_save(eap->line1 - 1, eap->line2 + 1) == FAIL)
4437 return;
4438
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004439 /* the ! flag toggles autoindent */
4440 if (eap->forceit ? !curbuf->b_p_ai : curbuf->b_p_ai)
4441 append_indent = get_indent_lnum(eap->line1);
4442
Bram Moolenaar071d4272004-06-13 20:20:40 +00004443 for (lnum = eap->line2; lnum >= eap->line1; --lnum)
4444 {
4445 if (curbuf->b_ml.ml_flags & ML_EMPTY) /* nothing to delete */
4446 break;
4447 ml_delete(eap->line1, FALSE);
4448 }
Bram Moolenaarcdcaa582009-07-09 18:06:49 +00004449
4450 /* make sure the cursor is not beyond the end of the file now */
4451 check_cursor_lnum();
Bram Moolenaar071d4272004-06-13 20:20:40 +00004452 deleted_lines_mark(eap->line1, (long)(eap->line2 - lnum));
4453
4454 /* ":append" on the line above the deleted lines. */
4455 eap->line2 = eap->line1;
4456 ex_append(eap);
4457}
4458
4459 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004460ex_z(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004461{
4462 char_u *x;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004463 int bigness;
4464 char_u *kind;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004465 int minus = 0;
4466 linenr_T start, end, curs, i;
4467 int j;
4468 linenr_T lnum = eap->line2;
4469
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004470 /* Vi compatible: ":z!" uses display height, without a count uses
4471 * 'scroll' */
4472 if (eap->forceit)
4473 bigness = curwin->w_height;
Bram Moolenaar78a15312009-05-15 19:33:18 +00004474#ifdef FEAT_WINDOWS
Bram Moolenaar631abc32014-02-22 22:27:47 +01004475 else if (firstwin != lastwin)
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004476 bigness = curwin->w_height - 3;
Bram Moolenaar78a15312009-05-15 19:33:18 +00004477#endif
Bram Moolenaar631abc32014-02-22 22:27:47 +01004478 else
4479 bigness = curwin->w_p_scr * 2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004480 if (bigness < 1)
4481 bigness = 1;
4482
4483 x = eap->arg;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004484 kind = x;
4485 if (*kind == '-' || *kind == '+' || *kind == '='
4486 || *kind == '^' || *kind == '.')
4487 ++x;
4488 while (*x == '-' || *x == '+')
Bram Moolenaar071d4272004-06-13 20:20:40 +00004489 ++x;
4490
4491 if (*x != 0)
4492 {
4493 if (!VIM_ISDIGIT(*x))
4494 {
4495 EMSG(_("E144: non-numeric argument to :z"));
4496 return;
4497 }
4498 else
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004499 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00004500 bigness = atoi((char *)x);
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004501 p_window = bigness;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004502 if (*kind == '=')
4503 bigness += 2;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004504 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004505 }
4506
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004507 /* the number of '-' and '+' multiplies the distance */
4508 if (*kind == '-' || *kind == '+')
4509 for (x = kind + 1; *x == *kind; ++x)
4510 ;
4511
4512 switch (*kind)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004513 {
4514 case '-':
Bram Moolenaard9758e32011-06-12 22:03:23 +02004515 start = lnum - bigness * (linenr_T)(x - kind) + 1;
4516 end = start + bigness - 1;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004517 curs = end;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004518 break;
4519
4520 case '=':
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00004521 start = lnum - (bigness + 1) / 2 + 1;
4522 end = lnum + (bigness + 1) / 2 - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004523 curs = lnum;
4524 minus = 1;
4525 break;
4526
4527 case '^':
4528 start = lnum - bigness * 2;
4529 end = lnum - bigness;
4530 curs = lnum - bigness;
4531 break;
4532
4533 case '.':
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00004534 start = lnum - (bigness + 1) / 2 + 1;
4535 end = lnum + (bigness + 1) / 2 - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004536 curs = end;
4537 break;
4538
4539 default: /* '+' */
4540 start = lnum;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004541 if (*kind == '+')
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00004542 start += bigness * (linenr_T)(x - kind - 1) + 1;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004543 else if (eap->addr_count == 0)
4544 ++start;
4545 end = start + bigness - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004546 curs = end;
4547 break;
4548 }
4549
4550 if (start < 1)
4551 start = 1;
4552
4553 if (end > curbuf->b_ml.ml_line_count)
4554 end = curbuf->b_ml.ml_line_count;
4555
4556 if (curs > curbuf->b_ml.ml_line_count)
4557 curs = curbuf->b_ml.ml_line_count;
4558
4559 for (i = start; i <= end; i++)
4560 {
4561 if (minus && i == lnum)
4562 {
4563 msg_putchar('\n');
4564
4565 for (j = 1; j < Columns; j++)
4566 msg_putchar('-');
4567 }
4568
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004569 print_line(i, eap->flags & EXFLAG_NR, eap->flags & EXFLAG_LIST);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004570
4571 if (minus && i == lnum)
4572 {
4573 msg_putchar('\n');
4574
4575 for (j = 1; j < Columns; j++)
4576 msg_putchar('-');
4577 }
4578 }
4579
4580 curwin->w_cursor.lnum = curs;
4581 ex_no_reprint = TRUE;
4582}
4583
4584/*
4585 * Check if the restricted flag is set.
4586 * If so, give an error message and return TRUE.
4587 * Otherwise, return FALSE.
4588 */
4589 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004590check_restricted(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004591{
4592 if (restricted)
4593 {
4594 EMSG(_("E145: Shell commands not allowed in rvim"));
4595 return TRUE;
4596 }
4597 return FALSE;
4598}
4599
4600/*
4601 * Check if the secure flag is set (.exrc or .vimrc in current directory).
4602 * If so, give an error message and return TRUE.
4603 * Otherwise, return FALSE.
4604 */
4605 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004606check_secure(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004607{
4608 if (secure)
4609 {
4610 secure = 2;
4611 EMSG(_(e_curdir));
4612 return TRUE;
4613 }
4614#ifdef HAVE_SANDBOX
4615 /*
4616 * In the sandbox more things are not allowed, including the things
4617 * disallowed in secure mode.
4618 */
4619 if (sandbox != 0)
4620 {
4621 EMSG(_(e_sandbox));
4622 return TRUE;
4623 }
4624#endif
4625 return FALSE;
4626}
4627
4628static char_u *old_sub = NULL; /* previous substitute pattern */
4629static int global_need_beginline; /* call beginline() after ":g" */
4630
Bram Moolenaar071d4272004-06-13 20:20:40 +00004631/* do_sub()
4632 *
4633 * Perform a substitution from line eap->line1 to line eap->line2 using the
4634 * command pointed to by eap->arg which should be of the form:
4635 *
4636 * /pattern/substitution/{flags}
4637 *
4638 * The usual escapes are supported as described in the regexp docs.
4639 */
4640 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01004641do_sub(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004642{
4643 linenr_T lnum;
4644 long i = 0;
4645 regmmatch_T regmatch;
4646 static int do_all = FALSE; /* do multiple substitutions per line */
4647 static int do_ask = FALSE; /* ask for confirmation */
Bram Moolenaar05159a02005-02-26 23:04:13 +00004648 static int do_count = FALSE; /* count only */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004649 static int do_error = TRUE; /* if false, ignore errors */
4650 static int do_print = FALSE; /* print last line with subs. */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004651 static int do_list = FALSE; /* list last line with subs. */
4652 static int do_number = FALSE; /* list last line with line nr*/
Bram Moolenaar071d4272004-06-13 20:20:40 +00004653 static int do_ic = 0; /* ignore case flag */
Bram Moolenaarcad2fc92015-05-04 10:46:03 +02004654 int save_do_all; /* remember user specified 'g' flag */
4655 int save_do_ask; /* remember user specified 'c' flag */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004656 char_u *pat = NULL, *sub = NULL; /* init for GCC */
4657 int delimiter;
4658 int sublen;
4659 int got_quit = FALSE;
4660 int got_match = FALSE;
4661 int temp;
4662 int which_pat;
4663 char_u *cmd;
4664 int save_State;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004665 linenr_T first_line = 0; /* first changed line */
4666 linenr_T last_line= 0; /* below last changed line AFTER the
Bram Moolenaar071d4272004-06-13 20:20:40 +00004667 * change */
4668 linenr_T old_line_count = curbuf->b_ml.ml_line_count;
4669 linenr_T line2;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004670 long nmatch; /* number of lines in match */
Bram Moolenaar81bf7082005-02-12 14:31:42 +00004671 char_u *sub_firstline; /* allocated copy of first sub line */
4672 int endcolumn = FALSE; /* cursor in last column when done */
Bram Moolenaar05159a02005-02-26 23:04:13 +00004673 pos_T old_cursor = curwin->w_cursor;
Bram Moolenaar46475522010-03-23 17:36:29 +01004674 int start_nsubs;
Bram Moolenaar07e31c52012-08-08 16:51:15 +02004675#ifdef FEAT_EVAL
Bram Moolenaar75a8d742014-05-07 15:10:21 +02004676 int save_ma = 0;
Bram Moolenaar07e31c52012-08-08 16:51:15 +02004677#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004678
4679 cmd = eap->arg;
4680 if (!global_busy)
4681 {
4682 sub_nsubs = 0;
4683 sub_nlines = 0;
4684 }
Bram Moolenaar46475522010-03-23 17:36:29 +01004685 start_nsubs = sub_nsubs;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004686
Bram Moolenaar071d4272004-06-13 20:20:40 +00004687 if (eap->cmdidx == CMD_tilde)
4688 which_pat = RE_LAST; /* use last used regexp */
4689 else
4690 which_pat = RE_SUBST; /* use last substitute regexp */
4691
4692 /* new pattern and substitution */
4693 if (eap->cmd[0] == 's' && *cmd != NUL && !vim_iswhite(*cmd)
4694 && vim_strchr((char_u *)"0123456789cegriIp|\"", *cmd) == NULL)
4695 {
4696 /* don't accept alphanumeric for separator */
4697 if (isalpha(*cmd))
4698 {
4699 EMSG(_("E146: Regular expressions can't be delimited by letters"));
4700 return;
4701 }
4702 /*
4703 * undocumented vi feature:
4704 * "\/sub/" and "\?sub?" use last used search pattern (almost like
4705 * //sub/r). "\&sub&" use last substitute pattern (like //sub/).
4706 */
4707 if (*cmd == '\\')
4708 {
4709 ++cmd;
4710 if (vim_strchr((char_u *)"/?&", *cmd) == NULL)
4711 {
4712 EMSG(_(e_backslash));
4713 return;
4714 }
4715 if (*cmd != '&')
4716 which_pat = RE_SEARCH; /* use last '/' pattern */
4717 pat = (char_u *)""; /* empty search pattern */
4718 delimiter = *cmd++; /* remember delimiter character */
4719 }
4720 else /* find the end of the regexp */
4721 {
Bram Moolenaar3a169c32008-01-02 12:59:21 +00004722#ifdef FEAT_FKMAP /* reverse the flow of the Farsi characters */
4723 if (p_altkeymap && curwin->w_p_rl)
4724 lrF_sub(cmd);
4725#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004726 which_pat = RE_LAST; /* use last used regexp */
4727 delimiter = *cmd++; /* remember delimiter character */
4728 pat = cmd; /* remember start of search pat */
4729 cmd = skip_regexp(cmd, delimiter, p_magic, &eap->arg);
4730 if (cmd[0] == delimiter) /* end delimiter found */
4731 *cmd++ = NUL; /* replace it with a NUL */
4732 }
4733
4734 /*
4735 * Small incompatibility: vi sees '\n' as end of the command, but in
4736 * Vim we want to use '\n' to find/substitute a NUL.
4737 */
4738 sub = cmd; /* remember the start of the substitution */
4739
4740 while (cmd[0])
4741 {
4742 if (cmd[0] == delimiter) /* end delimiter found */
4743 {
4744 *cmd++ = NUL; /* replace it with a NUL */
4745 break;
4746 }
4747 if (cmd[0] == '\\' && cmd[1] != 0) /* skip escaped characters */
4748 ++cmd;
Bram Moolenaar1cd871b2004-12-19 22:46:22 +00004749 mb_ptr_adv(cmd);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004750 }
4751
4752 if (!eap->skip)
4753 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004754 /* In POSIX vi ":s/pat/%/" uses the previous subst. string. */
4755 if (STRCMP(sub, "%") == 0
4756 && vim_strchr(p_cpo, CPO_SUBPERCENT) != NULL)
4757 {
4758 if (old_sub == NULL) /* there is no previous command */
4759 {
4760 EMSG(_(e_nopresub));
4761 return;
4762 }
4763 sub = old_sub;
4764 }
4765 else
4766 {
4767 vim_free(old_sub);
4768 old_sub = vim_strsave(sub);
4769 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004770 }
4771 }
4772 else if (!eap->skip) /* use previous pattern and substitution */
4773 {
4774 if (old_sub == NULL) /* there is no previous command */
4775 {
4776 EMSG(_(e_nopresub));
4777 return;
4778 }
4779 pat = NULL; /* search_regcomp() will use previous pattern */
4780 sub = old_sub;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00004781
4782 /* Vi compatibility quirk: repeating with ":s" keeps the cursor in the
4783 * last column after using "$". */
4784 endcolumn = (curwin->w_curswant == MAXCOL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004785 }
4786
Bram Moolenaarfd3fe982014-04-01 17:49:44 +02004787 /* Recognize ":%s/\n//" and turn it into a join command, which is much
4788 * more efficient.
4789 * TODO: find a generic solution to make line-joining operations more
4790 * efficient, avoid allocating a string that grows in size.
4791 */
Bram Moolenaar21e854e2014-04-04 19:00:48 +02004792 if (pat != NULL && STRCMP(pat, "\\n") == 0
Bram Moolenaarfd3fe982014-04-01 17:49:44 +02004793 && *sub == NUL
4794 && (*cmd == NUL || (cmd[1] == NUL && (*cmd == 'g' || *cmd == 'l'
4795 || *cmd == 'p' || *cmd == '#'))))
4796 {
Bram Moolenaarcc2b9d52014-12-13 03:17:11 +01004797 linenr_T joined_lines_count;
4798
Bram Moolenaarfd3fe982014-04-01 17:49:44 +02004799 curwin->w_cursor.lnum = eap->line1;
4800 if (*cmd == 'l')
4801 eap->flags = EXFLAG_LIST;
4802 else if (*cmd == '#')
4803 eap->flags = EXFLAG_NR;
4804 else if (*cmd == 'p')
4805 eap->flags = EXFLAG_PRINT;
4806
Bram Moolenaarcc2b9d52014-12-13 03:17:11 +01004807 /* The number of lines joined is the number of lines in the range plus
4808 * one. One less when the last line is included. */
4809 joined_lines_count = eap->line2 - eap->line1 + 1;
4810 if (eap->line2 < curbuf->b_ml.ml_line_count)
4811 ++joined_lines_count;
4812 if (joined_lines_count > 1)
4813 {
4814 (void)do_join(joined_lines_count, FALSE, TRUE, FALSE, TRUE);
4815 sub_nsubs = joined_lines_count - 1;
4816 sub_nlines = 1;
4817 (void)do_sub_msg(FALSE);
4818 ex_may_print(eap);
4819 }
4820
4821 if (!cmdmod.keeppatterns)
4822 save_re_pat(RE_SUBST, pat, p_magic);
4823#ifdef FEAT_CMDHIST
4824 /* put pattern in history */
4825 add_to_history(HIST_SEARCH, pat, TRUE, NUL);
4826#endif
4827
Bram Moolenaarfd3fe982014-04-01 17:49:44 +02004828 return;
4829 }
4830
Bram Moolenaar071d4272004-06-13 20:20:40 +00004831 /*
4832 * Find trailing options. When '&' is used, keep old options.
4833 */
4834 if (*cmd == '&')
4835 ++cmd;
4836 else
4837 {
4838 if (!p_ed)
4839 {
4840 if (p_gd) /* default is global on */
4841 do_all = TRUE;
4842 else
4843 do_all = FALSE;
4844 do_ask = FALSE;
4845 }
4846 do_error = TRUE;
4847 do_print = FALSE;
Bram Moolenaarcc016f52005-12-10 20:23:46 +00004848 do_count = FALSE;
Bram Moolenaarfe40d1a2007-07-24 09:16:38 +00004849 do_number = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004850 do_ic = 0;
4851 }
4852 while (*cmd)
4853 {
4854 /*
4855 * Note that 'g' and 'c' are always inverted, also when p_ed is off.
4856 * 'r' is never inverted.
4857 */
4858 if (*cmd == 'g')
4859 do_all = !do_all;
4860 else if (*cmd == 'c')
4861 do_ask = !do_ask;
Bram Moolenaar05159a02005-02-26 23:04:13 +00004862 else if (*cmd == 'n')
4863 do_count = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004864 else if (*cmd == 'e')
4865 do_error = !do_error;
4866 else if (*cmd == 'r') /* use last used regexp */
4867 which_pat = RE_LAST;
4868 else if (*cmd == 'p')
4869 do_print = TRUE;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00004870 else if (*cmd == '#')
4871 {
4872 do_print = TRUE;
4873 do_number = TRUE;
4874 }
4875 else if (*cmd == 'l')
4876 {
4877 do_print = TRUE;
4878 do_list = TRUE;
4879 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004880 else if (*cmd == 'i') /* ignore case */
4881 do_ic = 'i';
4882 else if (*cmd == 'I') /* don't ignore case */
4883 do_ic = 'I';
4884 else
4885 break;
4886 ++cmd;
4887 }
Bram Moolenaar05159a02005-02-26 23:04:13 +00004888 if (do_count)
4889 do_ask = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004890
Bram Moolenaarcad2fc92015-05-04 10:46:03 +02004891 save_do_all = do_all;
4892 save_do_ask = do_ask;
4893
Bram Moolenaar071d4272004-06-13 20:20:40 +00004894 /*
4895 * check for a trailing count
4896 */
4897 cmd = skipwhite(cmd);
4898 if (VIM_ISDIGIT(*cmd))
4899 {
4900 i = getdigits(&cmd);
4901 if (i <= 0 && !eap->skip && do_error)
4902 {
4903 EMSG(_(e_zerocount));
4904 return;
4905 }
4906 eap->line1 = eap->line2;
4907 eap->line2 += i - 1;
4908 if (eap->line2 > curbuf->b_ml.ml_line_count)
4909 eap->line2 = curbuf->b_ml.ml_line_count;
4910 }
4911
4912 /*
4913 * check for trailing command or garbage
4914 */
4915 cmd = skipwhite(cmd);
4916 if (*cmd && *cmd != '"') /* if not end-of-line or comment */
4917 {
4918 eap->nextcmd = check_nextcmd(cmd);
4919 if (eap->nextcmd == NULL)
4920 {
4921 EMSG(_(e_trailing));
4922 return;
4923 }
4924 }
4925
4926 if (eap->skip) /* not executing commands, only parsing */
4927 return;
4928
Bram Moolenaar61660ea2006-04-07 21:40:07 +00004929 if (!do_count && !curbuf->b_p_ma)
4930 {
Bram Moolenaar779b74b2006-04-10 14:55:34 +00004931 /* Substitution is not allowed in non-'modifiable' buffer */
Bram Moolenaar61660ea2006-04-07 21:40:07 +00004932 EMSG(_(e_modifiable));
4933 return;
4934 }
4935
Bram Moolenaar071d4272004-06-13 20:20:40 +00004936 if (search_regcomp(pat, RE_SUBST, which_pat, SEARCH_HIS, &regmatch) == FAIL)
4937 {
4938 if (do_error)
4939 EMSG(_(e_invcmd));
4940 return;
4941 }
4942
4943 /* the 'i' or 'I' flag overrules 'ignorecase' and 'smartcase' */
4944 if (do_ic == 'i')
4945 regmatch.rmm_ic = TRUE;
4946 else if (do_ic == 'I')
4947 regmatch.rmm_ic = FALSE;
4948
4949 sub_firstline = NULL;
4950
4951 /*
4952 * ~ in the substitute pattern is replaced with the old pattern.
4953 * We do it here once to avoid it to be replaced over and over again.
4954 * But don't do it when it starts with "\=", then it's an expression.
4955 */
4956 if (!(sub[0] == '\\' && sub[1] == '='))
4957 sub = regtilde(sub, p_magic);
4958
4959 /*
4960 * Check for a match on each line.
4961 */
4962 line2 = eap->line2;
4963 for (lnum = eap->line1; lnum <= line2 && !(got_quit
4964#if defined(FEAT_EVAL) && defined(FEAT_AUTOCMD)
4965 || aborting()
4966#endif
4967 ); ++lnum)
4968 {
Bram Moolenaar91a4e822008-01-19 14:59:58 +00004969 nmatch = vim_regexec_multi(&regmatch, curwin, curbuf, lnum,
4970 (colnr_T)0, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004971 if (nmatch)
4972 {
4973 colnr_T copycol;
4974 colnr_T matchcol;
4975 colnr_T prev_matchcol = MAXCOL;
4976 char_u *new_end, *new_start = NULL;
4977 unsigned new_start_len = 0;
4978 char_u *p1;
4979 int did_sub = FALSE;
4980 int lastone;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00004981 int len, copy_len, needed_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004982 long nmatch_tl = 0; /* nr of lines matched below lnum */
4983 int do_again; /* do it again after joining lines */
Bram Moolenaar8299df92004-07-10 09:47:34 +00004984 int skip_match = FALSE;
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00004985 linenr_T sub_firstlnum; /* nr of first sub line */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004986
4987 /*
4988 * The new text is build up step by step, to avoid too much
4989 * copying. There are these pieces:
Bram Moolenaara9aafe52008-05-07 11:10:28 +00004990 * sub_firstline The old text, unmodified.
Bram Moolenaar071d4272004-06-13 20:20:40 +00004991 * copycol Column in the old text where we started
4992 * looking for a match; from here old text still
4993 * needs to be copied to the new text.
4994 * matchcol Column number of the old text where to look
4995 * for the next match. It's just after the
4996 * previous match or one further.
4997 * prev_matchcol Column just after the previous match (if any).
4998 * Mostly equal to matchcol, except for the first
4999 * match and after skipping an empty match.
5000 * regmatch.*pos Where the pattern matched in the old text.
5001 * new_start The new text, all that has been produced so
5002 * far.
5003 * new_end The new text, where to append new text.
5004 *
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005005 * lnum The line number where we found the start of
5006 * the match. Can be below the line we searched
5007 * when there is a \n before a \zs in the
5008 * pattern.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005009 * sub_firstlnum The line number in the buffer where to look
5010 * for a match. Can be different from "lnum"
5011 * when the pattern or substitute string contains
5012 * line breaks.
5013 *
5014 * Special situations:
5015 * - When the substitute string contains a line break, the part up
5016 * to the line break is inserted in the text, but the copy of
5017 * the original line is kept. "sub_firstlnum" is adjusted for
5018 * the inserted lines.
5019 * - When the matched pattern contains a line break, the old line
5020 * is taken from the line at the end of the pattern. The lines
5021 * in the match are deleted later, "sub_firstlnum" is adjusted
5022 * accordingly.
5023 *
5024 * The new text is built up in new_start[]. It has some extra
5025 * room to avoid using alloc()/free() too often. new_start_len is
Bram Moolenaar61abfd12007-09-13 16:26:47 +00005026 * the length of the allocated memory at new_start.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005027 *
5028 * Make a copy of the old line, so it won't be taken away when
5029 * updating the screen or handling a multi-line match. The "old_"
5030 * pointers point into this copy.
5031 */
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005032 sub_firstlnum = lnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005033 copycol = 0;
5034 matchcol = 0;
5035
5036 /* At first match, remember current cursor position. */
5037 if (!got_match)
5038 {
5039 setpcmark();
5040 got_match = TRUE;
5041 }
5042
5043 /*
5044 * Loop until nothing more to replace in this line.
5045 * 1. Handle match with empty string.
5046 * 2. If do_ask is set, ask for confirmation.
5047 * 3. substitute the string.
5048 * 4. if do_all is set, find next match
5049 * 5. break if there isn't another match in this line
5050 */
5051 for (;;)
5052 {
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005053 /* Advance "lnum" to the line where the match starts. The
5054 * match does not start in the first line when there is a line
5055 * break before \zs. */
5056 if (regmatch.startpos[0].lnum > 0)
5057 {
5058 lnum += regmatch.startpos[0].lnum;
5059 sub_firstlnum += regmatch.startpos[0].lnum;
5060 nmatch -= regmatch.startpos[0].lnum;
5061 vim_free(sub_firstline);
5062 sub_firstline = NULL;
5063 }
5064
5065 if (sub_firstline == NULL)
5066 {
5067 sub_firstline = vim_strsave(ml_get(sub_firstlnum));
5068 if (sub_firstline == NULL)
5069 {
5070 vim_free(new_start);
5071 goto outofmem;
5072 }
5073 }
5074
Bram Moolenaar071d4272004-06-13 20:20:40 +00005075 /* Save the line number of the last change for the final
5076 * cursor position (just like Vi). */
5077 curwin->w_cursor.lnum = lnum;
5078 do_again = FALSE;
5079
5080 /*
5081 * 1. Match empty string does not count, except for first
5082 * match. This reproduces the strange vi behaviour.
5083 * This also catches endless loops.
5084 */
5085 if (matchcol == prev_matchcol
5086 && regmatch.endpos[0].lnum == 0
5087 && matchcol == regmatch.endpos[0].col)
5088 {
Bram Moolenaar8299df92004-07-10 09:47:34 +00005089 if (sub_firstline[matchcol] == NUL)
5090 /* We already were at the end of the line. Don't look
5091 * for a match in this line again. */
5092 skip_match = TRUE;
5093 else
Bram Moolenaar0df11022011-05-19 14:30:16 +02005094 {
5095 /* search for a match at next column */
5096#ifdef FEAT_MBYTE
5097 if (has_mbyte)
5098 matchcol += mb_ptr2len(sub_firstline + matchcol);
5099 else
5100#endif
5101 ++matchcol;
5102 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005103 goto skip;
5104 }
5105
5106 /* Normally we continue searching for a match just after the
5107 * previous match. */
5108 matchcol = regmatch.endpos[0].col;
5109 prev_matchcol = matchcol;
5110
5111 /*
Bram Moolenaar05159a02005-02-26 23:04:13 +00005112 * 2. If do_count is set only increase the counter.
5113 * If do_ask is set, ask for confirmation.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005114 */
Bram Moolenaar05159a02005-02-26 23:04:13 +00005115 if (do_count)
5116 {
5117 /* For a multi-line match, put matchcol at the NUL at
5118 * the end of the line and set nmatch to one, so that
5119 * we continue looking for a match on the next line.
5120 * Avoids that ":s/\nB\@=//gc" get stuck. */
5121 if (nmatch > 1)
5122 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00005123 matchcol = (colnr_T)STRLEN(sub_firstline);
Bram Moolenaar05159a02005-02-26 23:04:13 +00005124 nmatch = 1;
Bram Moolenaar12ddc3e2008-01-04 13:53:09 +00005125 skip_match = TRUE;
Bram Moolenaar05159a02005-02-26 23:04:13 +00005126 }
5127 sub_nsubs++;
5128 did_sub = TRUE;
Bram Moolenaar07e31c52012-08-08 16:51:15 +02005129#ifdef FEAT_EVAL
5130 /* Skip the substitution, unless an expression is used,
5131 * then it is evaluated in the sandbox. */
5132 if (!(sub[0] == '\\' && sub[1] == '='))
5133#endif
5134 goto skip;
Bram Moolenaar05159a02005-02-26 23:04:13 +00005135 }
5136
Bram Moolenaar071d4272004-06-13 20:20:40 +00005137 if (do_ask)
5138 {
Bram Moolenaar985cb442009-05-14 19:51:46 +00005139 int typed = 0;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005140
Bram Moolenaar071d4272004-06-13 20:20:40 +00005141 /* change State to CONFIRM, so that the mouse works
5142 * properly */
5143 save_State = State;
5144 State = CONFIRM;
5145#ifdef FEAT_MOUSE
5146 setmouse(); /* disable mouse in xterm */
5147#endif
5148 curwin->w_cursor.col = regmatch.startpos[0].col;
5149
5150 /* When 'cpoptions' contains "u" don't sync undo when
5151 * asking for confirmation. */
5152 if (vim_strchr(p_cpo, CPO_UNDO) != NULL)
5153 ++no_u_sync;
5154
5155 /*
5156 * Loop until 'y', 'n', 'q', CTRL-E or CTRL-Y typed.
5157 */
5158 while (do_ask)
5159 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005160 if (exmode_active)
5161 {
5162 char_u *resp;
5163 colnr_T sc, ec;
5164
Bram Moolenaar3eead7c2013-10-02 18:43:06 +02005165 print_line_no_prefix(lnum, do_number, do_list);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005166
5167 getvcol(curwin, &curwin->w_cursor, &sc, NULL, NULL);
5168 curwin->w_cursor.col = regmatch.endpos[0].col - 1;
5169 getvcol(curwin, &curwin->w_cursor, NULL, NULL, &ec);
Bram Moolenaar3eead7c2013-10-02 18:43:06 +02005170 if (do_number || curwin->w_p_nu)
5171 {
5172 int numw = number_width(curwin) + 1;
5173 sc += numw;
5174 ec += numw;
5175 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005176 msg_start();
Bram Moolenaar05159a02005-02-26 23:04:13 +00005177 for (i = 0; i < (long)sc; ++i)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005178 msg_putchar(' ');
Bram Moolenaar05159a02005-02-26 23:04:13 +00005179 for ( ; i <= (long)ec; ++i)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005180 msg_putchar('^');
5181
5182 resp = getexmodeline('?', NULL, 0);
5183 if (resp != NULL)
5184 {
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005185 typed = *resp;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005186 vim_free(resp);
5187 }
5188 }
5189 else
5190 {
Bram Moolenaar4bc8cf02013-01-30 16:30:26 +01005191 char_u *orig_line = NULL;
5192 int len_change = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005193#ifdef FEAT_FOLDING
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005194 int save_p_fen = curwin->w_p_fen;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005195
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005196 curwin->w_p_fen = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005197#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005198 /* Invert the matched string.
5199 * Remove the inversion afterwards. */
5200 temp = RedrawingDisabled;
5201 RedrawingDisabled = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005202
Bram Moolenaar4bc8cf02013-01-30 16:30:26 +01005203 if (new_start != NULL)
5204 {
5205 /* There already was a substitution, we would
5206 * like to show this to the user. We cannot
5207 * really update the line, it would change
5208 * what matches. Temporarily replace the line
5209 * and change it back afterwards. */
5210 orig_line = vim_strsave(ml_get(lnum));
5211 if (orig_line != NULL)
5212 {
5213 char_u *new_line = concat_str(new_start,
5214 sub_firstline + copycol);
5215
5216 if (new_line == NULL)
5217 {
5218 vim_free(orig_line);
5219 orig_line = NULL;
5220 }
5221 else
5222 {
5223 /* Position the cursor relative to the
5224 * end of the line, the previous
5225 * substitute may have inserted or
5226 * deleted characters before the
5227 * cursor. */
Bram Moolenaar04e5b5a2013-01-30 21:56:21 +01005228 len_change = (int)STRLEN(new_line)
5229 - (int)STRLEN(orig_line);
Bram Moolenaar4bc8cf02013-01-30 16:30:26 +01005230 curwin->w_cursor.col += len_change;
5231 ml_replace(lnum, new_line, FALSE);
5232 }
5233 }
5234 }
5235
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005236 search_match_lines = regmatch.endpos[0].lnum
5237 - regmatch.startpos[0].lnum;
Bram Moolenaar4bc8cf02013-01-30 16:30:26 +01005238 search_match_endcol = regmatch.endpos[0].col
5239 + len_change;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005240 highlight_match = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005241
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005242 update_topline();
5243 validate_cursor();
Bram Moolenaara1956f62006-03-12 22:18:00 +00005244 update_screen(SOME_VALID);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005245 highlight_match = FALSE;
Bram Moolenaara1956f62006-03-12 22:18:00 +00005246 redraw_later(SOME_VALID);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005247
5248#ifdef FEAT_FOLDING
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005249 curwin->w_p_fen = save_p_fen;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005250#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005251 if (msg_row == Rows - 1)
5252 msg_didout = FALSE; /* avoid a scroll-up */
5253 msg_starthere();
5254 i = msg_scroll;
5255 msg_scroll = 0; /* truncate msg when
5256 needed */
5257 msg_no_more = TRUE;
5258 /* write message same highlighting as for
5259 * wait_return */
5260 smsg_attr(hl_attr(HLF_R),
5261 (char_u *)_("replace with %s (y/n/a/q/l/^E/^Y)?"), sub);
5262 msg_no_more = FALSE;
5263 msg_scroll = i;
5264 showruler(TRUE);
5265 windgoto(msg_row, msg_col);
5266 RedrawingDisabled = temp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005267
5268#ifdef USE_ON_FLY_SCROLL
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005269 dont_scroll = FALSE; /* allow scrolling here */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005270#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005271 ++no_mapping; /* don't map this key */
5272 ++allow_keys; /* allow special keys */
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005273 typed = plain_vgetc();
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005274 --allow_keys;
5275 --no_mapping;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005276
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005277 /* clear the question */
5278 msg_didout = FALSE; /* don't scroll up */
5279 msg_col = 0;
5280 gotocmdline(TRUE);
Bram Moolenaar4bc8cf02013-01-30 16:30:26 +01005281
5282 /* restore the line */
5283 if (orig_line != NULL)
5284 ml_replace(lnum, orig_line, FALSE);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005285 }
5286
Bram Moolenaar071d4272004-06-13 20:20:40 +00005287 need_wait_return = FALSE; /* no hit-return prompt */
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005288 if (typed == 'q' || typed == ESC || typed == Ctrl_C
Bram Moolenaar071d4272004-06-13 20:20:40 +00005289#ifdef UNIX
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005290 || typed == intr_char
Bram Moolenaar071d4272004-06-13 20:20:40 +00005291#endif
5292 )
5293 {
5294 got_quit = TRUE;
5295 break;
5296 }
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005297 if (typed == 'n')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005298 break;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005299 if (typed == 'y')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005300 break;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005301 if (typed == 'l')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005302 {
5303 /* last: replace and then stop */
5304 do_all = FALSE;
5305 line2 = lnum;
5306 break;
5307 }
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005308 if (typed == 'a')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005309 {
5310 do_ask = FALSE;
5311 break;
5312 }
5313#ifdef FEAT_INS_EXPAND
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005314 if (typed == Ctrl_E)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005315 scrollup_clamp();
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005316 else if (typed == Ctrl_Y)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005317 scrolldown_clamp();
5318#endif
5319 }
5320 State = save_State;
5321#ifdef FEAT_MOUSE
5322 setmouse();
5323#endif
5324 if (vim_strchr(p_cpo, CPO_UNDO) != NULL)
5325 --no_u_sync;
5326
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005327 if (typed == 'n')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005328 {
5329 /* For a multi-line match, put matchcol at the NUL at
5330 * the end of the line and set nmatch to one, so that
5331 * we continue looking for a match on the next line.
Bram Moolenaarc432b502007-03-15 20:38:26 +00005332 * Avoids that ":%s/\nB\@=//gc" and ":%s/\n/,\r/gc"
5333 * get stuck when pressing 'n'. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005334 if (nmatch > 1)
5335 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00005336 matchcol = (colnr_T)STRLEN(sub_firstline);
Bram Moolenaarc432b502007-03-15 20:38:26 +00005337 skip_match = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005338 }
5339 goto skip;
5340 }
5341 if (got_quit)
Bram Moolenaar11cb6e62013-02-06 18:24:02 +01005342 goto skip;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005343 }
5344
5345 /* Move the cursor to the start of the match, so that we can
5346 * use "\=col("."). */
5347 curwin->w_cursor.col = regmatch.startpos[0].col;
5348
5349 /*
5350 * 3. substitute the string.
5351 */
Bram Moolenaar07e31c52012-08-08 16:51:15 +02005352#ifdef FEAT_EVAL
5353 if (do_count)
5354 {
Bram Moolenaar7c0a86b2012-09-05 15:15:07 +02005355 /* prevent accidentally changing the buffer by a function */
Bram Moolenaar07e31c52012-08-08 16:51:15 +02005356 save_ma = curbuf->b_p_ma;
5357 curbuf->b_p_ma = FALSE;
5358 sandbox++;
5359 }
5360#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005361 /* get length of substitution part */
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005362 sublen = vim_regsub_multi(&regmatch,
5363 sub_firstlnum - regmatch.startpos[0].lnum,
Bram Moolenaar071d4272004-06-13 20:20:40 +00005364 sub, sub_firstline, FALSE, p_magic, TRUE);
Bram Moolenaar07e31c52012-08-08 16:51:15 +02005365#ifdef FEAT_EVAL
5366 if (do_count)
5367 {
5368 curbuf->b_p_ma = save_ma;
5369 sandbox--;
5370 goto skip;
5371 }
5372#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005373
Bram Moolenaar4463f292005-09-25 22:20:24 +00005374 /* When the match included the "$" of the last line it may
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005375 * go beyond the last line of the buffer. */
Bram Moolenaar4463f292005-09-25 22:20:24 +00005376 if (nmatch > curbuf->b_ml.ml_line_count - sub_firstlnum + 1)
5377 {
5378 nmatch = curbuf->b_ml.ml_line_count - sub_firstlnum + 1;
5379 skip_match = TRUE;
5380 }
5381
Bram Moolenaar071d4272004-06-13 20:20:40 +00005382 /* Need room for:
5383 * - result so far in new_start (not for first sub in line)
5384 * - original text up to match
5385 * - length of substituted part
5386 * - original text after match
5387 */
5388 if (nmatch == 1)
5389 p1 = sub_firstline;
5390 else
5391 {
5392 p1 = ml_get(sub_firstlnum + nmatch - 1);
5393 nmatch_tl += nmatch - 1;
5394 }
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005395 copy_len = regmatch.startpos[0].col - copycol;
5396 needed_len = copy_len + ((unsigned)STRLEN(p1)
5397 - regmatch.endpos[0].col) + sublen + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005398 if (new_start == NULL)
5399 {
5400 /*
5401 * Get some space for a temporary buffer to do the
5402 * substitution into (and some extra space to avoid
5403 * too many calls to alloc()/free()).
5404 */
5405 new_start_len = needed_len + 50;
5406 if ((new_start = alloc_check(new_start_len)) == NULL)
5407 goto outofmem;
5408 *new_start = NUL;
5409 new_end = new_start;
5410 }
5411 else
5412 {
5413 /*
5414 * Check if the temporary buffer is long enough to do the
5415 * substitution into. If not, make it larger (with a bit
5416 * extra to avoid too many calls to alloc()/free()).
5417 */
5418 len = (unsigned)STRLEN(new_start);
5419 needed_len += len;
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005420 if (needed_len > (int)new_start_len)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005421 {
5422 new_start_len = needed_len + 50;
5423 if ((p1 = alloc_check(new_start_len)) == NULL)
5424 {
5425 vim_free(new_start);
5426 goto outofmem;
5427 }
5428 mch_memmove(p1, new_start, (size_t)(len + 1));
5429 vim_free(new_start);
5430 new_start = p1;
5431 }
5432 new_end = new_start + len;
5433 }
5434
5435 /*
5436 * copy the text up to the part that matched
5437 */
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00005438 mch_memmove(new_end, sub_firstline + copycol, (size_t)copy_len);
5439 new_end += copy_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005440
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005441 (void)vim_regsub_multi(&regmatch,
5442 sub_firstlnum - regmatch.startpos[0].lnum,
Bram Moolenaar071d4272004-06-13 20:20:40 +00005443 sub, new_end, TRUE, p_magic, TRUE);
5444 sub_nsubs++;
5445 did_sub = TRUE;
5446
5447 /* Move the cursor to the start of the line, to avoid that it
5448 * is beyond the end of the line after the substitution. */
5449 curwin->w_cursor.col = 0;
5450
5451 /* For a multi-line match, make a copy of the last matched
5452 * line and continue in that one. */
5453 if (nmatch > 1)
5454 {
5455 sub_firstlnum += nmatch - 1;
5456 vim_free(sub_firstline);
5457 sub_firstline = vim_strsave(ml_get(sub_firstlnum));
5458 /* When going beyond the last line, stop substituting. */
5459 if (sub_firstlnum <= line2)
5460 do_again = TRUE;
5461 else
5462 do_all = FALSE;
5463 }
5464
5465 /* Remember next character to be copied. */
5466 copycol = regmatch.endpos[0].col;
5467
Bram Moolenaar910f66f2006-04-05 20:41:53 +00005468 if (skip_match)
5469 {
5470 /* Already hit end of the buffer, sub_firstlnum is one
5471 * less than what it ought to be. */
5472 vim_free(sub_firstline);
5473 sub_firstline = vim_strsave((char_u *)"");
5474 copycol = 0;
5475 }
5476
Bram Moolenaar071d4272004-06-13 20:20:40 +00005477 /*
5478 * Now the trick is to replace CTRL-M chars with a real line
5479 * break. This would make it impossible to insert a CTRL-M in
5480 * the text. The line break can be avoided by preceding the
5481 * CTRL-M with a backslash. To be able to insert a backslash,
5482 * they must be doubled in the string and are halved here.
5483 * That is Vi compatible.
5484 */
5485 for (p1 = new_end; *p1; ++p1)
5486 {
5487 if (p1[0] == '\\' && p1[1] != NUL) /* remove backslash */
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005488 STRMOVE(p1, p1 + 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005489 else if (*p1 == CAR)
5490 {
5491 if (u_inssub(lnum) == OK) /* prepare for undo */
5492 {
5493 *p1 = NUL; /* truncate up to the CR */
5494 ml_append(lnum - 1, new_start,
5495 (colnr_T)(p1 - new_start + 1), FALSE);
5496 mark_adjust(lnum + 1, (linenr_T)MAXLNUM, 1L, 0L);
5497 if (do_ask)
5498 appended_lines(lnum - 1, 1L);
5499 else
5500 {
5501 if (first_line == 0)
5502 first_line = lnum;
5503 last_line = lnum + 1;
5504 }
5505 /* All line numbers increase. */
5506 ++sub_firstlnum;
5507 ++lnum;
5508 ++line2;
5509 /* move the cursor to the new line, like Vi */
5510 ++curwin->w_cursor.lnum;
Bram Moolenaarf9ffd182007-11-20 17:04:29 +00005511 /* copy the rest */
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005512 STRMOVE(new_start, p1 + 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005513 p1 = new_start - 1;
5514 }
5515 }
5516#ifdef FEAT_MBYTE
5517 else if (has_mbyte)
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00005518 p1 += (*mb_ptr2len)(p1) - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005519#endif
5520 }
5521
5522 /*
5523 * 4. If do_all is set, find next match.
5524 * Prevent endless loop with patterns that match empty
5525 * strings, e.g. :s/$/pat/g or :s/[a-z]* /(&)/g.
5526 * But ":s/\n/#/" is OK.
5527 */
5528skip:
5529 /* We already know that we did the last subst when we are at
5530 * the end of the line, except that a pattern like
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005531 * "bar\|\nfoo" may match at the NUL. "lnum" can be below
5532 * "line2" when there is a \zs in the pattern after a line
5533 * break. */
Bram Moolenaar8299df92004-07-10 09:47:34 +00005534 lastone = (skip_match
5535 || got_int
5536 || got_quit
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005537 || lnum > line2
Bram Moolenaar8299df92004-07-10 09:47:34 +00005538 || !(do_all || do_again)
5539 || (sub_firstline[matchcol] == NUL && nmatch <= 1
5540 && !re_multiline(regmatch.regprog)));
Bram Moolenaar071d4272004-06-13 20:20:40 +00005541 nmatch = -1;
5542
5543 /*
5544 * Replace the line in the buffer when needed. This is
5545 * skipped when there are more matches.
5546 * The check for nmatch_tl is needed for when multi-line
5547 * matching must replace the lines before trying to do another
5548 * match, otherwise "\@<=" won't work.
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005549 * When the match starts below where we start searching also
5550 * need to replace the line first (using \zs after \n).
Bram Moolenaar071d4272004-06-13 20:20:40 +00005551 */
5552 if (lastone
Bram Moolenaar071d4272004-06-13 20:20:40 +00005553 || nmatch_tl > 0
5554 || (nmatch = vim_regexec_multi(&regmatch, curwin,
Bram Moolenaar91a4e822008-01-19 14:59:58 +00005555 curbuf, sub_firstlnum,
5556 matchcol, NULL)) == 0
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005557 || regmatch.startpos[0].lnum > 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005558 {
5559 if (new_start != NULL)
5560 {
5561 /*
5562 * Copy the rest of the line, that didn't match.
5563 * "matchcol" has to be adjusted, we use the end of
5564 * the line as reference, because the substitute may
5565 * have changed the number of characters. Same for
5566 * "prev_matchcol".
5567 */
5568 STRCAT(new_start, sub_firstline + copycol);
5569 matchcol = (colnr_T)STRLEN(sub_firstline) - matchcol;
5570 prev_matchcol = (colnr_T)STRLEN(sub_firstline)
5571 - prev_matchcol;
5572
5573 if (u_savesub(lnum) != OK)
5574 break;
5575 ml_replace(lnum, new_start, TRUE);
5576
5577 if (nmatch_tl > 0)
5578 {
5579 /*
5580 * Matched lines have now been substituted and are
5581 * useless, delete them. The part after the match
5582 * has been appended to new_start, we don't need
5583 * it in the buffer.
5584 */
5585 ++lnum;
5586 if (u_savedel(lnum, nmatch_tl) != OK)
5587 break;
5588 for (i = 0; i < nmatch_tl; ++i)
5589 ml_delete(lnum, (int)FALSE);
5590 mark_adjust(lnum, lnum + nmatch_tl - 1,
5591 (long)MAXLNUM, -nmatch_tl);
5592 if (do_ask)
5593 deleted_lines(lnum, nmatch_tl);
5594 --lnum;
5595 line2 -= nmatch_tl; /* nr of lines decreases */
5596 nmatch_tl = 0;
5597 }
5598
5599 /* When asking, undo is saved each time, must also set
5600 * changed flag each time. */
5601 if (do_ask)
5602 changed_bytes(lnum, 0);
5603 else
5604 {
5605 if (first_line == 0)
5606 first_line = lnum;
5607 last_line = lnum + 1;
5608 }
5609
5610 sub_firstlnum = lnum;
5611 vim_free(sub_firstline); /* free the temp buffer */
5612 sub_firstline = new_start;
5613 new_start = NULL;
5614 matchcol = (colnr_T)STRLEN(sub_firstline) - matchcol;
5615 prev_matchcol = (colnr_T)STRLEN(sub_firstline)
5616 - prev_matchcol;
5617 copycol = 0;
5618 }
5619 if (nmatch == -1 && !lastone)
5620 nmatch = vim_regexec_multi(&regmatch, curwin, curbuf,
Bram Moolenaar91a4e822008-01-19 14:59:58 +00005621 sub_firstlnum, matchcol, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005622
5623 /*
5624 * 5. break if there isn't another match in this line
5625 */
5626 if (nmatch <= 0)
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005627 {
5628 /* If the match found didn't start where we were
5629 * searching, do the next search in the line where we
5630 * found the match. */
5631 if (nmatch == -1)
5632 lnum -= regmatch.startpos[0].lnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005633 break;
Bram Moolenaarbd7cc032008-01-09 21:40:50 +00005634 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005635 }
5636
5637 line_breakcheck();
5638 }
5639
5640 if (did_sub)
5641 ++sub_nlines;
Bram Moolenaarda2bd6f2008-09-14 19:41:30 +00005642 vim_free(new_start); /* for when substitute was cancelled */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005643 vim_free(sub_firstline); /* free the copy of the original line */
5644 sub_firstline = NULL;
5645 }
5646
5647 line_breakcheck();
5648 }
5649
5650 if (first_line != 0)
5651 {
5652 /* Need to subtract the number of added lines from "last_line" to get
5653 * the line number before the change (same as adding the number of
5654 * deleted lines). */
5655 i = curbuf->b_ml.ml_line_count - old_line_count;
5656 changed_lines(first_line, 0, last_line - i, i);
5657 }
5658
5659outofmem:
5660 vim_free(sub_firstline); /* may have to free allocated copy of the line */
Bram Moolenaar05159a02005-02-26 23:04:13 +00005661
5662 /* ":s/pat//n" doesn't move the cursor */
5663 if (do_count)
5664 curwin->w_cursor = old_cursor;
5665
Bram Moolenaar46475522010-03-23 17:36:29 +01005666 if (sub_nsubs > start_nsubs)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005667 {
5668 /* Set the '[ and '] marks. */
5669 curbuf->b_op_start.lnum = eap->line1;
5670 curbuf->b_op_end.lnum = line2;
5671 curbuf->b_op_start.col = curbuf->b_op_end.col = 0;
5672
5673 if (!global_busy)
5674 {
Bram Moolenaar0faaeb82012-03-07 14:57:52 +01005675 if (!do_ask) /* when interactive leave cursor on the match */
5676 {
5677 if (endcolumn)
5678 coladvance((colnr_T)MAXCOL);
5679 else
5680 beginline(BL_WHITE | BL_FIX);
5681 }
Bram Moolenaar05159a02005-02-26 23:04:13 +00005682 if (!do_sub_msg(do_count) && do_ask)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005683 MSG("");
5684 }
5685 else
5686 global_need_beginline = TRUE;
5687 if (do_print)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00005688 print_line(curwin->w_cursor.lnum, do_number, do_list);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005689 }
5690 else if (!global_busy)
5691 {
5692 if (got_int) /* interrupted */
5693 EMSG(_(e_interr));
5694 else if (got_match) /* did find something but nothing substituted */
5695 MSG("");
5696 else if (do_error) /* nothing found */
5697 EMSG2(_(e_patnotf2), get_search_pat());
5698 }
5699
Bram Moolenaar8c4fbd12013-01-17 18:34:05 +01005700#ifdef FEAT_FOLDING
5701 if (do_ask && hasAnyFolding(curwin))
5702 /* Cursor position may require updating */
5703 changed_window_setting();
5704#endif
5705
Bram Moolenaar473de612013-06-08 18:19:48 +02005706 vim_regfree(regmatch.regprog);
Bram Moolenaarcad2fc92015-05-04 10:46:03 +02005707
5708 /* Restore the flag values, they can be used for ":&&". */
5709 do_all = save_do_all;
5710 do_ask = save_do_ask;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005711}
5712
5713/*
5714 * Give message for number of substitutions.
5715 * Can also be used after a ":global" command.
5716 * Return TRUE if a message was given.
5717 */
Bram Moolenaar8aff23a2005-08-19 20:40:30 +00005718 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005719do_sub_msg(
5720 int count_only) /* used 'n' flag for ":s" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005721{
5722 /*
5723 * Only report substitutions when:
5724 * - more than 'report' substitutions
5725 * - command was typed by user, or number of changed lines > 'report'
5726 * - giving messages is not disabled by 'lazyredraw'
5727 */
Bram Moolenaar05159a02005-02-26 23:04:13 +00005728 if (((sub_nsubs > p_report && (KeyTyped || sub_nlines > 1 || p_report < 1))
5729 || count_only)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005730 && messaging())
5731 {
5732 if (got_int)
5733 STRCPY(msg_buf, _("(Interrupted) "));
Bram Moolenaar0bc380a2010-07-10 13:52:13 +02005734 else
5735 *msg_buf = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005736 if (sub_nsubs == 1)
Bram Moolenaara800b422010-06-27 01:15:55 +02005737 vim_snprintf_add((char *)msg_buf, sizeof(msg_buf),
Bram Moolenaar555b2802005-05-19 21:08:39 +00005738 "%s", count_only ? _("1 match") : _("1 substitution"));
Bram Moolenaar071d4272004-06-13 20:20:40 +00005739 else
Bram Moolenaara800b422010-06-27 01:15:55 +02005740 vim_snprintf_add((char *)msg_buf, sizeof(msg_buf),
Bram Moolenaar05159a02005-02-26 23:04:13 +00005741 count_only ? _("%ld matches") : _("%ld substitutions"),
Bram Moolenaar071d4272004-06-13 20:20:40 +00005742 sub_nsubs);
5743 if (sub_nlines == 1)
Bram Moolenaara800b422010-06-27 01:15:55 +02005744 vim_snprintf_add((char *)msg_buf, sizeof(msg_buf),
Bram Moolenaar555b2802005-05-19 21:08:39 +00005745 "%s", _(" on 1 line"));
Bram Moolenaar071d4272004-06-13 20:20:40 +00005746 else
Bram Moolenaara800b422010-06-27 01:15:55 +02005747 vim_snprintf_add((char *)msg_buf, sizeof(msg_buf),
Bram Moolenaar555b2802005-05-19 21:08:39 +00005748 _(" on %ld lines"), (long)sub_nlines);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005749 if (msg(msg_buf))
Bram Moolenaar071d4272004-06-13 20:20:40 +00005750 /* save message to display it after redraw */
Bram Moolenaar238a5642006-02-21 22:12:05 +00005751 set_keep_msg(msg_buf, 0);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005752 return TRUE;
5753 }
5754 if (got_int)
5755 {
5756 EMSG(_(e_interr));
5757 return TRUE;
5758 }
5759 return FALSE;
5760}
5761
5762/*
5763 * Execute a global command of the form:
5764 *
5765 * g/pattern/X : execute X on all lines where pattern matches
5766 * v/pattern/X : execute X on all lines where pattern does not match
5767 *
5768 * where 'X' is an EX command
5769 *
5770 * The command character (as well as the trailing slash) is optional, and
5771 * is assumed to be 'p' if missing.
5772 *
5773 * This is implemented in two passes: first we scan the file for the pattern and
Bram Moolenaar7c0a86b2012-09-05 15:15:07 +02005774 * set a mark for each line that (not) matches. Secondly we execute the command
Bram Moolenaar071d4272004-06-13 20:20:40 +00005775 * for each line that has a mark. This is required because after deleting
5776 * lines we do not know where to search for the next match.
5777 */
5778 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005779ex_global(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005780{
5781 linenr_T lnum; /* line number according to old situation */
Bram Moolenaar05159a02005-02-26 23:04:13 +00005782 int ndone = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005783 int type; /* first char of cmd: 'v' or 'g' */
5784 char_u *cmd; /* command argument */
5785
5786 char_u delim; /* delimiter, normally '/' */
5787 char_u *pat;
5788 regmmatch_T regmatch;
5789 int match;
5790 int which_pat;
5791
5792 if (global_busy)
5793 {
5794 EMSG(_("E147: Cannot do :global recursive")); /* will increment global_busy */
5795 return;
5796 }
5797
5798 if (eap->forceit) /* ":global!" is like ":vglobal" */
5799 type = 'v';
5800 else
5801 type = *eap->cmd;
5802 cmd = eap->arg;
5803 which_pat = RE_LAST; /* default: use last used regexp */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005804
5805 /*
5806 * undocumented vi feature:
5807 * "\/" and "\?": use previous search pattern.
5808 * "\&": use previous substitute pattern.
5809 */
5810 if (*cmd == '\\')
5811 {
5812 ++cmd;
5813 if (vim_strchr((char_u *)"/?&", *cmd) == NULL)
5814 {
5815 EMSG(_(e_backslash));
5816 return;
5817 }
5818 if (*cmd == '&')
5819 which_pat = RE_SUBST; /* use previous substitute pattern */
5820 else
5821 which_pat = RE_SEARCH; /* use previous search pattern */
5822 ++cmd;
5823 pat = (char_u *)"";
5824 }
5825 else if (*cmd == NUL)
5826 {
5827 EMSG(_("E148: Regular expression missing from global"));
5828 return;
5829 }
5830 else
5831 {
5832 delim = *cmd; /* get the delimiter */
5833 if (delim)
5834 ++cmd; /* skip delimiter if there is one */
5835 pat = cmd; /* remember start of pattern */
5836 cmd = skip_regexp(cmd, delim, p_magic, &eap->arg);
5837 if (cmd[0] == delim) /* end delimiter found */
5838 *cmd++ = NUL; /* replace it with a NUL */
5839 }
5840
5841#ifdef FEAT_FKMAP /* when in Farsi mode, reverse the character flow */
5842 if (p_altkeymap && curwin->w_p_rl)
5843 lrFswap(pat,0);
5844#endif
5845
5846 if (search_regcomp(pat, RE_BOTH, which_pat, SEARCH_HIS, &regmatch) == FAIL)
5847 {
5848 EMSG(_(e_invcmd));
5849 return;
5850 }
5851
5852 /*
5853 * pass 1: set marks for each (not) matching line
5854 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005855 for (lnum = eap->line1; lnum <= eap->line2 && !got_int; ++lnum)
5856 {
5857 /* a match on this line? */
Bram Moolenaar91a4e822008-01-19 14:59:58 +00005858 match = vim_regexec_multi(&regmatch, curwin, curbuf, lnum,
5859 (colnr_T)0, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005860 if ((type == 'g' && match) || (type == 'v' && !match))
5861 {
5862 ml_setmarked(lnum);
5863 ndone++;
5864 }
5865 line_breakcheck();
5866 }
5867
5868 /*
5869 * pass 2: execute the command for each line that has been marked
5870 */
5871 if (got_int)
5872 MSG(_(e_interr));
5873 else if (ndone == 0)
5874 {
5875 if (type == 'v')
Bram Moolenaar555b2802005-05-19 21:08:39 +00005876 smsg((char_u *)_("Pattern found in every line: %s"), pat);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005877 else
Bram Moolenaarc389fd32013-03-07 16:08:35 +01005878 smsg((char_u *)_("Pattern not found: %s"), pat);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005879 }
5880 else
Bram Moolenaar6b1ee342014-08-06 18:17:11 +02005881 {
5882#ifdef FEAT_CLIPBOARD
5883 start_global_changes();
5884#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00005885 global_exe(cmd);
Bram Moolenaar6b1ee342014-08-06 18:17:11 +02005886#ifdef FEAT_CLIPBOARD
5887 end_global_changes();
5888#endif
5889 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005890
5891 ml_clearmarked(); /* clear rest of the marks */
Bram Moolenaar473de612013-06-08 18:19:48 +02005892 vim_regfree(regmatch.regprog);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005893}
5894
5895/*
5896 * Execute "cmd" on lines marked with ml_setmarked().
5897 */
5898 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005899global_exe(char_u *cmd)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005900{
Bram Moolenaarbb993222011-05-10 16:00:47 +02005901 linenr_T old_lcount; /* b_ml.ml_line_count before the command */
5902 buf_T *old_buf = curbuf; /* remember what buffer we started in */
5903 linenr_T lnum; /* line number according to old situation */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005904
5905 /*
5906 * Set current position only once for a global command.
5907 * If global_busy is set, setpcmark() will not do anything.
5908 * If there is an error, global_busy will be incremented.
5909 */
5910 setpcmark();
5911
5912 /* When the command writes a message, don't overwrite the command. */
5913 msg_didout = TRUE;
5914
Bram Moolenaard25bc232010-03-23 17:49:24 +01005915 sub_nsubs = 0;
5916 sub_nlines = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005917 global_need_beginline = FALSE;
5918 global_busy = 1;
5919 old_lcount = curbuf->b_ml.ml_line_count;
5920 while (!got_int && (lnum = ml_firstmarked()) != 0 && global_busy == 1)
5921 {
5922 curwin->w_cursor.lnum = lnum;
5923 curwin->w_cursor.col = 0;
5924 if (*cmd == NUL || *cmd == '\n')
5925 do_cmdline((char_u *)"p", NULL, NULL, DOCMD_NOWAIT);
5926 else
5927 do_cmdline(cmd, NULL, NULL, DOCMD_NOWAIT);
5928 ui_breakcheck();
5929 }
5930
5931 global_busy = 0;
5932 if (global_need_beginline)
5933 beginline(BL_WHITE | BL_FIX);
5934 else
5935 check_cursor(); /* cursor may be beyond the end of the line */
5936
Bram Moolenaar1cd871b2004-12-19 22:46:22 +00005937 /* the cursor may not have moved in the text but a change in a previous
5938 * line may move it on the screen */
5939 changed_line_abv_curs();
5940
Bram Moolenaar071d4272004-06-13 20:20:40 +00005941 /* If it looks like no message was written, allow overwriting the
5942 * command with the report for number of changes. */
5943 if (msg_col == 0 && msg_scrolled == 0)
5944 msg_didout = FALSE;
5945
Bram Moolenaar45667512007-05-10 19:24:43 +00005946 /* If substitutes done, report number of substitutes, otherwise report
Bram Moolenaarbb993222011-05-10 16:00:47 +02005947 * number of extra or deleted lines.
5948 * Don't report extra or deleted lines in the edge case where the buffer
5949 * we are in after execution is different from the buffer we started in. */
5950 if (!do_sub_msg(FALSE) && curbuf == old_buf)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005951 msgmore(curbuf->b_ml.ml_line_count - old_lcount);
5952}
5953
5954#ifdef FEAT_VIMINFO
5955 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005956read_viminfo_sub_string(vir_T *virp, int force)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005957{
Bram Moolenaar3c2d6532011-02-01 13:48:53 +01005958 if (force)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005959 vim_free(old_sub);
5960 if (force || old_sub == NULL)
5961 old_sub = viminfo_readstring(virp, 1, TRUE);
5962 return viminfo_readline(virp);
5963}
5964
5965 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005966write_viminfo_sub_string(FILE *fp)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005967{
5968 if (get_viminfo_parameter('/') != 0 && old_sub != NULL)
5969 {
Bram Moolenaar2f1e0502010-08-13 11:18:02 +02005970 fputs(_("\n# Last Substitute String:\n$"), fp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005971 viminfo_writestring(fp, old_sub);
5972 }
5973}
5974#endif /* FEAT_VIMINFO */
5975
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00005976#if defined(EXITFREE) || defined(PROTO)
5977 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005978free_old_sub(void)
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00005979{
5980 vim_free(old_sub);
5981}
5982#endif
5983
Bram Moolenaar071d4272004-06-13 20:20:40 +00005984#if (defined(FEAT_WINDOWS) && defined(FEAT_QUICKFIX)) || defined(PROTO)
5985/*
5986 * Set up for a tagpreview.
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00005987 * Return TRUE when it was created.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005988 */
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00005989 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01005990prepare_tagpreview(
5991 int undo_sync) /* sync undo when leaving the window */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005992{
5993 win_T *wp;
5994
5995# ifdef FEAT_GUI
5996 need_mouse_correct = TRUE;
5997# endif
5998
5999 /*
6000 * If there is already a preview window open, use that one.
6001 */
6002 if (!curwin->w_p_pvw)
6003 {
6004 for (wp = firstwin; wp != NULL; wp = wp->w_next)
6005 if (wp->w_p_pvw)
6006 break;
6007 if (wp != NULL)
Bram Moolenaard2cec5b2006-03-28 21:08:56 +00006008 win_enter(wp, undo_sync);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006009 else
6010 {
6011 /*
6012 * There is no preview window open yet. Create one.
6013 */
6014 if (win_split(g_do_tagpreview > 0 ? g_do_tagpreview : 0, 0)
6015 == FAIL)
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00006016 return FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006017 curwin->w_p_pvw = TRUE;
6018 curwin->w_p_wfh = TRUE;
Bram Moolenaar3368ea22010-09-21 16:56:35 +02006019 RESET_BINDING(curwin); /* don't take over 'scrollbind'
6020 and 'cursorbind' */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006021# ifdef FEAT_DIFF
6022 curwin->w_p_diff = FALSE; /* no 'diff' */
6023# endif
6024# ifdef FEAT_FOLDING
6025 curwin->w_p_fdc = 0; /* no 'foldcolumn' */
6026# endif
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00006027 return TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006028 }
6029 }
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00006030 return FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006031}
6032
6033#endif
6034
6035
6036/*
6037 * ":help": open a read-only window on a help file
6038 */
6039 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006040ex_help(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006041{
6042 char_u *arg;
6043 char_u *tag;
6044 FILE *helpfd; /* file descriptor of help file */
6045 int n;
6046 int i;
6047#ifdef FEAT_WINDOWS
6048 win_T *wp;
6049#endif
6050 int num_matches;
6051 char_u **matches;
6052 char_u *p;
6053 int empty_fnum = 0;
6054 int alt_fnum = 0;
6055 buf_T *buf;
6056#ifdef FEAT_MULTI_LANG
6057 int len;
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00006058 char_u *lang;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006059#endif
Bram Moolenaar8f535582011-09-30 17:30:31 +02006060#ifdef FEAT_FOLDING
6061 int old_KeyTyped = KeyTyped;
6062#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00006063
6064 if (eap != NULL)
6065 {
6066 /*
6067 * A ":help" command ends at the first LF, or at a '|' that is
6068 * followed by some text. Set nextcmd to the following command.
6069 */
6070 for (arg = eap->arg; *arg; ++arg)
6071 {
6072 if (*arg == '\n' || *arg == '\r'
6073 || (*arg == '|' && arg[1] != NUL && arg[1] != '|'))
6074 {
6075 *arg++ = NUL;
6076 eap->nextcmd = arg;
6077 break;
6078 }
6079 }
6080 arg = eap->arg;
6081
Bram Moolenaar3dbde622012-04-05 16:05:05 +02006082 if (eap->forceit && *arg == NUL && !curbuf->b_help)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006083 {
6084 EMSG(_("E478: Don't panic!"));
6085 return;
6086 }
6087
6088 if (eap->skip) /* not executing commands */
6089 return;
6090 }
6091 else
6092 arg = (char_u *)"";
6093
6094 /* remove trailing blanks */
6095 p = arg + STRLEN(arg) - 1;
6096 while (p > arg && vim_iswhite(*p) && p[-1] != '\\')
6097 *p-- = NUL;
6098
6099#ifdef FEAT_MULTI_LANG
6100 /* Check for a specified language */
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00006101 lang = check_help_lang(arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006102#endif
6103
6104 /* When no argument given go to the index. */
6105 if (*arg == NUL)
6106 arg = (char_u *)"help.txt";
6107
6108 /*
6109 * Check if there is a match for the argument.
6110 */
6111 n = find_help_tags(arg, &num_matches, &matches,
6112 eap != NULL && eap->forceit);
6113
6114 i = 0;
6115#ifdef FEAT_MULTI_LANG
6116 if (n != FAIL && lang != NULL)
6117 /* Find first item with the requested language. */
6118 for (i = 0; i < num_matches; ++i)
6119 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006120 len = (int)STRLEN(matches[i]);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006121 if (len > 3 && matches[i][len - 3] == '@'
6122 && STRICMP(matches[i] + len - 2, lang) == 0)
6123 break;
6124 }
6125#endif
6126 if (i >= num_matches || n == FAIL)
6127 {
6128#ifdef FEAT_MULTI_LANG
6129 if (lang != NULL)
6130 EMSG3(_("E661: Sorry, no '%s' help for %s"), lang, arg);
6131 else
6132#endif
6133 EMSG2(_("E149: Sorry, no help for %s"), arg);
6134 if (n != FAIL)
6135 FreeWild(num_matches, matches);
6136 return;
6137 }
6138
6139 /* The first match (in the requested language) is the best match. */
6140 tag = vim_strsave(matches[i]);
6141 FreeWild(num_matches, matches);
6142
6143#ifdef FEAT_GUI
6144 need_mouse_correct = TRUE;
6145#endif
6146
6147 /*
6148 * Re-use an existing help window or open a new one.
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006149 * Always open a new one for ":tab help".
Bram Moolenaar071d4272004-06-13 20:20:40 +00006150 */
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006151 if (!curwin->w_buffer->b_help
6152#ifdef FEAT_WINDOWS
6153 || cmdmod.tab != 0
6154#endif
6155 )
Bram Moolenaar071d4272004-06-13 20:20:40 +00006156 {
6157#ifdef FEAT_WINDOWS
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006158 if (cmdmod.tab != 0)
6159 wp = NULL;
6160 else
6161 for (wp = firstwin; wp != NULL; wp = wp->w_next)
6162 if (wp->w_buffer != NULL && wp->w_buffer->b_help)
6163 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006164 if (wp != NULL && wp->w_buffer->b_nwindows > 0)
6165 win_enter(wp, TRUE);
6166 else
6167#endif
6168 {
6169 /*
6170 * There is no help window yet.
6171 * Try to open the file specified by the "helpfile" option.
6172 */
6173 if ((helpfd = mch_fopen((char *)p_hf, READBIN)) == NULL)
6174 {
Bram Moolenaar555b2802005-05-19 21:08:39 +00006175 smsg((char_u *)_("Sorry, help file \"%s\" not found"), p_hf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006176 goto erret;
6177 }
6178 fclose(helpfd);
6179
6180#ifdef FEAT_WINDOWS
6181 /* Split off help window; put it at far top if no position
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006182 * specified, the current window is vertically split and
6183 * narrow. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006184 n = WSP_HELP;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006185 if (cmdmod.split == 0 && curwin->w_width != Columns
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006186 && curwin->w_width < 80)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006187 n |= WSP_TOP;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006188 if (win_split(0, n) == FAIL)
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006189 goto erret;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006190#else
6191 /* use current window */
6192 if (!can_abandon(curbuf, FALSE))
Bram Moolenaar071d4272004-06-13 20:20:40 +00006193 goto erret;
Bram Moolenaar2a3f7ee2006-02-23 21:34:44 +00006194#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00006195
6196#ifdef FEAT_WINDOWS
6197 if (curwin->w_height < p_hh)
6198 win_setheight((int)p_hh);
6199#endif
6200
6201 /*
6202 * Open help file (do_ecmd() will set b_help flag, readfile() will
6203 * set b_p_ro flag).
6204 * Set the alternate file to the previously edited file.
6205 */
6206 alt_fnum = curbuf->b_fnum;
6207 (void)do_ecmd(0, NULL, NULL, NULL, ECMD_LASTL,
Bram Moolenaar701f7af2008-11-15 13:12:07 +00006208 ECMD_HIDE + ECMD_SET_HELP,
6209#ifdef FEAT_WINDOWS
6210 NULL /* buffer is still open, don't store info */
6211#else
6212 curwin
6213#endif
6214 );
Bram Moolenaard4755bb2004-09-02 19:12:26 +00006215 if (!cmdmod.keepalt)
6216 curwin->w_alt_fnum = alt_fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006217 empty_fnum = curbuf->b_fnum;
6218 }
6219 }
6220
6221 if (!p_im)
6222 restart_edit = 0; /* don't want insert mode in help file */
6223
Bram Moolenaar8f535582011-09-30 17:30:31 +02006224#ifdef FEAT_FOLDING
6225 /* Restore KeyTyped, setting 'filetype=help' may reset it.
6226 * It is needed for do_tag top open folds under the cursor. */
6227 KeyTyped = old_KeyTyped;
6228#endif
6229
Bram Moolenaar071d4272004-06-13 20:20:40 +00006230 if (tag != NULL)
6231 do_tag(tag, DT_HELP, 1, FALSE, TRUE);
6232
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006233 /* Delete the empty buffer if we're not using it. Careful: autocommands
6234 * may have jumped to another window, check that the buffer is not in a
6235 * window. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006236 if (empty_fnum != 0 && curbuf->b_fnum != empty_fnum)
6237 {
6238 buf = buflist_findnr(empty_fnum);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006239 if (buf != NULL && buf->b_nwindows == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006240 wipe_buffer(buf, TRUE);
6241 }
6242
6243 /* keep the previous alternate file */
Bram Moolenaard4755bb2004-09-02 19:12:26 +00006244 if (alt_fnum != 0 && curwin->w_alt_fnum == empty_fnum && !cmdmod.keepalt)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006245 curwin->w_alt_fnum = alt_fnum;
6246
6247erret:
6248 vim_free(tag);
6249}
6250
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006251/*
Bram Moolenaareb21e4c2014-09-19 22:05:53 +02006252 * ":helpclose": Close one help window
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006253 */
6254 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006255ex_helpclose(exarg_T *eap UNUSED)
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006256{
Bram Moolenaar3fa57e02014-09-19 22:23:26 +02006257#if defined(FEAT_WINDOWS)
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006258 win_T *win;
6259
6260 FOR_ALL_WINDOWS(win)
6261 {
6262 if (win->w_buffer->b_help)
6263 {
6264 win_close(win, FALSE);
Bram Moolenaareb21e4c2014-09-19 22:05:53 +02006265 return;
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006266 }
6267 }
Bram Moolenaar3fa57e02014-09-19 22:23:26 +02006268#endif
Bram Moolenaar5bfa2ed2014-09-19 19:39:34 +02006269}
Bram Moolenaar071d4272004-06-13 20:20:40 +00006270
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00006271#if defined(FEAT_MULTI_LANG) || defined(PROTO)
6272/*
6273 * In an argument search for a language specifiers in the form "@xx".
6274 * Changes the "@" to NUL if found, and returns a pointer to "xx".
6275 * Returns NULL if not found.
6276 */
6277 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006278check_help_lang(char_u *arg)
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00006279{
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006280 int len = (int)STRLEN(arg);
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00006281
6282 if (len >= 3 && arg[len - 3] == '@' && ASCII_ISALPHA(arg[len - 2])
6283 && ASCII_ISALPHA(arg[len - 1]))
6284 {
6285 arg[len - 3] = NUL; /* remove the '@' */
6286 return arg + len - 2;
6287 }
6288 return NULL;
6289}
6290#endif
6291
Bram Moolenaar071d4272004-06-13 20:20:40 +00006292/*
6293 * Return a heuristic indicating how well the given string matches. The
6294 * smaller the number, the better the match. This is the order of priorities,
6295 * from best match to worst match:
6296 * - Match with least alpha-numeric characters is better.
6297 * - Match with least total characters is better.
6298 * - Match towards the start is better.
6299 * - Match starting with "+" is worse (feature instead of command)
6300 * Assumption is made that the matched_string passed has already been found to
6301 * match some string for which help is requested. webb.
6302 */
6303 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006304help_heuristic(
6305 char_u *matched_string,
6306 int offset, /* offset for match */
6307 int wrong_case) /* no matching case */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006308{
6309 int num_letters;
6310 char_u *p;
6311
6312 num_letters = 0;
6313 for (p = matched_string; *p; p++)
6314 if (ASCII_ISALNUM(*p))
6315 num_letters++;
6316
6317 /*
6318 * Multiply the number of letters by 100 to give it a much bigger
6319 * weighting than the number of characters.
6320 * If there only is a match while ignoring case, add 5000.
6321 * If the match starts in the middle of a word, add 10000 to put it
6322 * somewhere in the last half.
6323 * If the match is more than 2 chars from the start, multiply by 200 to
6324 * put it after matches at the start.
6325 */
6326 if (ASCII_ISALNUM(matched_string[offset]) && offset > 0
6327 && ASCII_ISALNUM(matched_string[offset - 1]))
6328 offset += 10000;
6329 else if (offset > 2)
6330 offset *= 200;
6331 if (wrong_case)
6332 offset += 5000;
6333 /* Features are less interesting than the subjects themselves, but "+"
6334 * alone is not a feature. */
6335 if (matched_string[0] == '+' && matched_string[1] != NUL)
6336 offset += 100;
6337 return (int)(100 * num_letters + STRLEN(matched_string) + offset);
6338}
6339
6340/*
6341 * Compare functions for qsort() below, that checks the help heuristics number
6342 * that has been put after the tagname by find_tags().
6343 */
6344 static int
6345#ifdef __BORLANDC__
6346_RTLENTRYF
6347#endif
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006348help_compare(const void *s1, const void *s2)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006349{
6350 char *p1;
6351 char *p2;
6352
6353 p1 = *(char **)s1 + strlen(*(char **)s1) + 1;
6354 p2 = *(char **)s2 + strlen(*(char **)s2) + 1;
6355 return strcmp(p1, p2);
6356}
6357
6358/*
6359 * Find all help tags matching "arg", sort them and return in matches[], with
6360 * the number of matches in num_matches.
6361 * The matches will be sorted with a "best" match algorithm.
6362 * When "keep_lang" is TRUE try keeping the language of the current buffer.
6363 */
6364 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006365find_help_tags(
6366 char_u *arg,
6367 int *num_matches,
6368 char_u ***matches,
6369 int keep_lang)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006370{
6371 char_u *s, *d;
6372 int i;
6373 static char *(mtable[]) = {"*", "g*", "[*", "]*", ":*",
Bram Moolenaar231334e2005-07-25 20:46:57 +00006374 "/*", "/\\*", "\"*", "**",
Bram Moolenaarc528b1d2013-08-03 13:41:15 +02006375 "cpo-*", "/\\(\\)", "/\\%(\\)",
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00006376 "?", ":?", "?<CR>", "g?", "g?g?", "g??", "z?",
Bram Moolenaarf4630b62005-05-20 21:31:17 +00006377 "/\\?", "/\\z(\\)", "\\=", ":s\\=",
Bram Moolenaar071d4272004-06-13 20:20:40 +00006378 "[count]", "[quotex]", "[range]",
Bram Moolenaarc467d9b2014-02-11 12:15:43 +01006379 "[pattern]", "\\|", "\\%$",
6380 "s/\\~", "s/\\U", "s/\\L",
6381 "s/\\1", "s/\\2", "s/\\3", "s/\\9"};
Bram Moolenaar071d4272004-06-13 20:20:40 +00006382 static char *(rtable[]) = {"star", "gstar", "[star", "]star", ":star",
Bram Moolenaar231334e2005-07-25 20:46:57 +00006383 "/star", "/\\\\star", "quotestar", "starstar",
Bram Moolenaarc528b1d2013-08-03 13:41:15 +02006384 "cpo-star", "/\\\\(\\\\)", "/\\\\%(\\\\)",
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00006385 "?", ":?", "?<CR>", "g?", "g?g?", "g??", "z?",
Bram Moolenaarf4630b62005-05-20 21:31:17 +00006386 "/\\\\?", "/\\\\z(\\\\)", "\\\\=", ":s\\\\=",
Bram Moolenaar071d4272004-06-13 20:20:40 +00006387 "\\[count]", "\\[quotex]", "\\[range]",
Bram Moolenaarc467d9b2014-02-11 12:15:43 +01006388 "\\[pattern]", "\\\\bar", "/\\\\%\\$",
Bram Moolenaar75a8d742014-05-07 15:10:21 +02006389 "s/\\\\\\~", "s/\\\\U", "s/\\\\L",
Bram Moolenaarc467d9b2014-02-11 12:15:43 +01006390 "s/\\\\1", "s/\\\\2", "s/\\\\3", "s/\\\\9"};
Bram Moolenaar071d4272004-06-13 20:20:40 +00006391 int flags;
6392
6393 d = IObuff; /* assume IObuff is long enough! */
6394
6395 /*
6396 * Recognize a few exceptions to the rule. Some strings that contain '*'
6397 * with "star". Otherwise '*' is recognized as a wildcard.
6398 */
Bram Moolenaar5fd0ca72009-05-13 16:56:33 +00006399 for (i = (int)(sizeof(mtable) / sizeof(char *)); --i >= 0; )
Bram Moolenaar071d4272004-06-13 20:20:40 +00006400 if (STRCMP(arg, mtable[i]) == 0)
6401 {
6402 STRCPY(d, rtable[i]);
6403 break;
6404 }
6405
6406 if (i < 0) /* no match in table */
6407 {
6408 /* Replace "\S" with "/\\S", etc. Otherwise every tag is matched.
6409 * Also replace "\%^" and "\%(", they match every tag too.
6410 * Also "\zs", "\z1", etc.
6411 * Also "\@<", "\@=", "\@<=", etc.
6412 * And also "\_$" and "\_^". */
6413 if (arg[0] == '\\'
6414 && ((arg[1] != NUL && arg[2] == NUL)
6415 || (vim_strchr((char_u *)"%_z@", arg[1]) != NULL
6416 && arg[2] != NUL)))
6417 {
6418 STRCPY(d, "/\\\\");
6419 STRCPY(d + 3, arg + 1);
6420 /* Check for "/\\_$", should be "/\\_\$" */
6421 if (d[3] == '_' && d[4] == '$')
6422 STRCPY(d + 4, "\\$");
6423 }
6424 else
6425 {
Bram Moolenaar7c0a86b2012-09-05 15:15:07 +02006426 /* Replace:
6427 * "[:...:]" with "\[:...:]"
6428 * "[++...]" with "\[++...]"
Bram Moolenaar75a8d742014-05-07 15:10:21 +02006429 * "\{" with "\\{" -- matching "} \}"
Bram Moolenaar7c0a86b2012-09-05 15:15:07 +02006430 */
6431 if ((arg[0] == '[' && (arg[1] == ':'
6432 || (arg[1] == '+' && arg[2] == '+')))
6433 || (arg[0] == '\\' && arg[1] == '{'))
Bram Moolenaar071d4272004-06-13 20:20:40 +00006434 *d++ = '\\';
6435
Bram Moolenaar00f9e0d2016-03-15 13:44:12 +01006436 /*
6437 * If tag starts with "('", skip the "(". Fixes CTRL-] on ('option'.
6438 */
6439 if (*arg == '(' && arg[1] == '\'')
6440 arg++;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006441 for (s = arg; *s; ++s)
6442 {
6443 /*
6444 * Replace "|" with "bar" and '"' with "quote" to match the name of
6445 * the tags for these commands.
6446 * Replace "*" with ".*" and "?" with "." to match command line
6447 * completion.
6448 * Insert a backslash before '~', '$' and '.' to avoid their
6449 * special meaning.
6450 */
6451 if (d - IObuff > IOSIZE - 10) /* getting too long!? */
6452 break;
6453 switch (*s)
6454 {
6455 case '|': STRCPY(d, "bar");
6456 d += 3;
6457 continue;
6458 case '"': STRCPY(d, "quote");
6459 d += 5;
6460 continue;
6461 case '*': *d++ = '.';
6462 break;
6463 case '?': *d++ = '.';
6464 continue;
6465 case '$':
6466 case '.':
6467 case '~': *d++ = '\\';
6468 break;
6469 }
6470
6471 /*
6472 * Replace "^x" by "CTRL-X". Don't do this for "^_" to make
6473 * ":help i_^_CTRL-D" work.
6474 * Insert '-' before and after "CTRL-X" when applicable.
6475 */
6476 if (*s < ' ' || (*s == '^' && s[1] && (ASCII_ISALPHA(s[1])
6477 || vim_strchr((char_u *)"?@[\\]^", s[1]) != NULL)))
6478 {
Bram Moolenaard82db602013-08-07 15:24:41 +02006479 if (d > IObuff && d[-1] != '_' && d[-1] != '\\')
6480 *d++ = '_'; /* prepend a '_' to make x_CTRL-x */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006481 STRCPY(d, "CTRL-");
6482 d += 5;
6483 if (*s < ' ')
6484 {
6485#ifdef EBCDIC
6486 *d++ = CtrlChar(*s);
6487#else
6488 *d++ = *s + '@';
6489#endif
6490 if (d[-1] == '\\')
6491 *d++ = '\\'; /* double a backslash */
6492 }
6493 else
6494 *d++ = *++s;
6495 if (s[1] != NUL && s[1] != '_')
6496 *d++ = '_'; /* append a '_' */
6497 continue;
6498 }
6499 else if (*s == '^') /* "^" or "CTRL-^" or "^_" */
6500 *d++ = '\\';
6501
6502 /*
6503 * Insert a backslash before a backslash after a slash, for search
6504 * pattern tags: "/\|" --> "/\\|".
6505 */
6506 else if (s[0] == '\\' && s[1] != '\\'
6507 && *arg == '/' && s == arg + 1)
6508 *d++ = '\\';
6509
6510 /* "CTRL-\_" -> "CTRL-\\_" to avoid the special meaning of "\_" in
6511 * "CTRL-\_CTRL-N" */
6512 if (STRNICMP(s, "CTRL-\\_", 7) == 0)
6513 {
6514 STRCPY(d, "CTRL-\\\\");
6515 d += 7;
6516 s += 6;
6517 }
6518
6519 *d++ = *s;
6520
6521 /*
Bram Moolenaar81edd172016-04-14 13:51:37 +02006522 * If tag contains "({" or "([", tag terminates at the "(".
6523 * This is for help on functions, e.g.: abs({expr}).
6524 */
6525 if (*s == '(' && (s[1] == '{' || s[1] =='['))
6526 break;
6527
6528 /*
Bram Moolenaar071d4272004-06-13 20:20:40 +00006529 * If tag starts with ', toss everything after a second '. Fixes
6530 * CTRL-] on 'option'. (would include the trailing '.').
6531 */
6532 if (*s == '\'' && s > arg && *arg == '\'')
6533 break;
Bram Moolenaar28b942a2016-06-04 22:31:27 +02006534 /* Also '{' and '}'. */
6535 if (*s == '}' && s > arg && *arg == '{')
6536 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006537 }
6538 *d = NUL;
Bram Moolenaar720ce532012-04-25 12:57:28 +02006539
6540 if (*IObuff == '`')
6541 {
6542 if (d > IObuff + 2 && d[-1] == '`')
6543 {
6544 /* remove the backticks from `command` */
6545 mch_memmove(IObuff, IObuff + 1, STRLEN(IObuff));
6546 d[-2] = NUL;
6547 }
6548 else if (d > IObuff + 3 && d[-2] == '`' && d[-1] == ',')
6549 {
6550 /* remove the backticks and comma from `command`, */
6551 mch_memmove(IObuff, IObuff + 1, STRLEN(IObuff));
6552 d[-3] = NUL;
6553 }
6554 else if (d > IObuff + 4 && d[-3] == '`'
6555 && d[-2] == '\\' && d[-1] == '.')
6556 {
6557 /* remove the backticks and dot from `command`\. */
6558 mch_memmove(IObuff, IObuff + 1, STRLEN(IObuff));
6559 d[-4] = NUL;
6560 }
6561 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006562 }
6563 }
6564
6565 *matches = (char_u **)"";
6566 *num_matches = 0;
6567 flags = TAG_HELP | TAG_REGEXP | TAG_NAMES | TAG_VERBOSE;
6568 if (keep_lang)
6569 flags |= TAG_KEEP_LANG;
Bram Moolenaarc62e2fe2008-08-06 13:03:07 +00006570 if (find_tags(IObuff, num_matches, matches, flags, (int)MAXCOL, NULL) == OK
Bram Moolenaar071d4272004-06-13 20:20:40 +00006571 && *num_matches > 0)
Bram Moolenaarc62e2fe2008-08-06 13:03:07 +00006572 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00006573 /* Sort the matches found on the heuristic number that is after the
6574 * tag name. */
6575 qsort((void *)*matches, (size_t)*num_matches,
6576 sizeof(char_u *), help_compare);
Bram Moolenaarc62e2fe2008-08-06 13:03:07 +00006577 /* Delete more than TAG_MANY to reduce the size of the listing. */
6578 while (*num_matches > TAG_MANY)
6579 vim_free((*matches)[--*num_matches]);
6580 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006581 return OK;
6582}
6583
6584/*
Bram Moolenaar54fb4382014-11-12 19:28:16 +01006585 * Called when starting to edit a buffer for a help file.
6586 */
6587 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006588prepare_help_buffer(void)
Bram Moolenaar54fb4382014-11-12 19:28:16 +01006589{
6590 char_u *p;
6591
6592 curbuf->b_help = TRUE;
6593#ifdef FEAT_QUICKFIX
6594 set_string_option_direct((char_u *)"buftype", -1,
6595 (char_u *)"help", OPT_FREE|OPT_LOCAL, 0);
6596#endif
6597
6598 /*
6599 * Always set these options after jumping to a help tag, because the
6600 * user may have an autocommand that gets in the way.
6601 * Accept all ASCII chars for keywords, except ' ', '*', '"', '|', and
6602 * latin1 word characters (for translated help files).
6603 * Only set it when needed, buf_init_chartab() is some work.
6604 */
6605 p =
6606#ifdef EBCDIC
6607 (char_u *)"65-255,^*,^|,^\"";
6608#else
6609 (char_u *)"!-~,^*,^|,^\",192-255";
6610#endif
6611 if (STRCMP(curbuf->b_p_isk, p) != 0)
6612 {
6613 set_string_option_direct((char_u *)"isk", -1, p, OPT_FREE|OPT_LOCAL, 0);
6614 check_buf_options(curbuf);
6615 (void)buf_init_chartab(curbuf, FALSE);
6616 }
6617
Bram Moolenaar0b105412014-11-30 13:34:23 +01006618#ifdef FEAT_FOLDING
Bram Moolenaar54fb4382014-11-12 19:28:16 +01006619 /* Don't use the global foldmethod.*/
6620 set_string_option_direct((char_u *)"fdm", -1, (char_u *)"manual",
6621 OPT_FREE|OPT_LOCAL, 0);
Bram Moolenaar0b105412014-11-30 13:34:23 +01006622#endif
Bram Moolenaar54fb4382014-11-12 19:28:16 +01006623
6624 curbuf->b_p_ts = 8; /* 'tabstop' is 8 */
6625 curwin->w_p_list = FALSE; /* no list mode */
6626
6627 curbuf->b_p_ma = FALSE; /* not modifiable */
6628 curbuf->b_p_bin = FALSE; /* reset 'bin' before reading file */
6629 curwin->w_p_nu = 0; /* no line numbers */
6630 curwin->w_p_rnu = 0; /* no relative line numbers */
6631 RESET_BINDING(curwin); /* no scroll or cursor binding */
6632#ifdef FEAT_ARABIC
6633 curwin->w_p_arab = FALSE; /* no arabic mode */
6634#endif
6635#ifdef FEAT_RIGHTLEFT
6636 curwin->w_p_rl = FALSE; /* help window is left-to-right */
6637#endif
6638#ifdef FEAT_FOLDING
6639 curwin->w_p_fen = FALSE; /* No folding in the help window */
6640#endif
6641#ifdef FEAT_DIFF
6642 curwin->w_p_diff = FALSE; /* No 'diff' */
6643#endif
6644#ifdef FEAT_SPELL
6645 curwin->w_p_spell = FALSE; /* No spell checking */
6646#endif
6647
6648 set_buflisted(FALSE);
6649}
6650
6651/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00006652 * After reading a help file: May cleanup a help buffer when syntax
6653 * highlighting is not used.
6654 */
6655 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006656fix_help_buffer(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006657{
6658 linenr_T lnum;
6659 char_u *line;
6660 int in_example = FALSE;
6661 int len;
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006662 char_u *fname;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006663 char_u *p;
6664 char_u *rt;
6665 int mustfree;
6666
6667 /* set filetype to "help". */
6668 set_option_value((char_u *)"ft", 0L, (char_u *)"help", OPT_LOCAL);
6669
6670#ifdef FEAT_SYN_HL
Bram Moolenaar860cae12010-06-05 23:22:07 +02006671 if (!syntax_present(curwin))
Bram Moolenaar071d4272004-06-13 20:20:40 +00006672#endif
6673 {
6674 for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum)
6675 {
6676 line = ml_get_buf(curbuf, lnum, FALSE);
6677 len = (int)STRLEN(line);
6678 if (in_example && len > 0 && !vim_iswhite(line[0]))
6679 {
6680 /* End of example: non-white or '<' in first column. */
6681 if (line[0] == '<')
6682 {
6683 /* blank-out a '<' in the first column */
6684 line = ml_get_buf(curbuf, lnum, TRUE);
6685 line[0] = ' ';
6686 }
6687 in_example = FALSE;
6688 }
6689 if (!in_example && len > 0)
6690 {
6691 if (line[len - 1] == '>' && (len == 1 || line[len - 2] == ' '))
6692 {
6693 /* blank-out a '>' in the last column (start of example) */
6694 line = ml_get_buf(curbuf, lnum, TRUE);
6695 line[len - 1] = ' ';
6696 in_example = TRUE;
6697 }
6698 else if (line[len - 1] == '~')
6699 {
6700 /* blank-out a '~' at the end of line (header marker) */
6701 line = ml_get_buf(curbuf, lnum, TRUE);
6702 line[len - 1] = ' ';
6703 }
6704 }
6705 }
6706 }
6707
6708 /*
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006709 * In the "help.txt" and "help.abx" file, add the locally added help
6710 * files. This uses the very first line in the help file.
Bram Moolenaar071d4272004-06-13 20:20:40 +00006711 */
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006712 fname = gettail(curbuf->b_fname);
6713 if (fnamecmp(fname, "help.txt") == 0
6714#ifdef FEAT_MULTI_LANG
6715 || (fnamencmp(fname, "help.", 5) == 0
6716 && ASCII_ISALPHA(fname[5])
6717 && ASCII_ISALPHA(fname[6])
6718 && TOLOWER_ASC(fname[7]) == 'x'
6719 && fname[8] == NUL)
6720#endif
6721 )
Bram Moolenaar071d4272004-06-13 20:20:40 +00006722 {
6723 for (lnum = 1; lnum < curbuf->b_ml.ml_line_count; ++lnum)
6724 {
6725 line = ml_get_buf(curbuf, lnum, FALSE);
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006726 if (strstr((char *)line, "*local-additions*") == NULL)
6727 continue;
6728
6729 /* Go through all directories in 'runtimepath', skipping
6730 * $VIMRUNTIME. */
6731 p = p_rtp;
6732 while (*p != NUL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006733 {
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006734 copy_option_part(&p, NameBuff, MAXPATHL, ",");
6735 mustfree = FALSE;
6736 rt = vim_getenv((char_u *)"VIMRUNTIME", &mustfree);
6737 if (fullpathcmp(rt, NameBuff, FALSE) != FPC_SAME)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006738 {
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006739 int fcount;
6740 char_u **fnames;
6741 FILE *fd;
6742 char_u *s;
6743 int fi;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006744#ifdef FEAT_MBYTE
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006745 vimconv_T vc;
6746 char_u *cp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006747#endif
6748
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006749 /* Find all "doc/ *.txt" files in this directory. */
6750 add_pathsep(NameBuff);
6751#ifdef FEAT_MULTI_LANG
6752 STRCAT(NameBuff, "doc/*.??[tx]");
Bram Moolenaar071d4272004-06-13 20:20:40 +00006753#else
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006754 STRCAT(NameBuff, "doc/*.txt");
Bram Moolenaar071d4272004-06-13 20:20:40 +00006755#endif
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006756 if (gen_expand_wildcards(1, &NameBuff, &fcount,
6757 &fnames, EW_FILE|EW_SILENT) == OK
6758 && fcount > 0)
6759 {
6760#ifdef FEAT_MULTI_LANG
6761 int i1;
6762 int i2;
6763 char_u *f1;
6764 char_u *f2;
6765 char_u *t1;
6766 char_u *e1;
6767 char_u *e2;
6768
6769 /* If foo.abx is found use it instead of foo.txt in
6770 * the same directory. */
6771 for (i1 = 0; i1 < fcount; ++i1)
6772 {
6773 for (i2 = 0; i2 < fcount; ++i2)
6774 {
6775 if (i1 == i2)
6776 continue;
6777 if (fnames[i1] == NULL || fnames[i2] == NULL)
6778 continue;
6779 f1 = fnames[i1];
6780 f2 = fnames[i2];
6781 t1 = gettail(f1);
6782 if (fnamencmp(f1, f2, t1 - f1) != 0)
6783 continue;
6784 e1 = vim_strrchr(t1, '.');
6785 e2 = vim_strrchr(gettail(f2), '.');
6786 if (e1 == NUL || e2 == NUL)
6787 continue;
6788 if (fnamecmp(e1, ".txt") != 0
6789 && fnamecmp(e1, fname + 4) != 0)
6790 {
6791 /* Not .txt and not .abx, remove it. */
6792 vim_free(fnames[i1]);
6793 fnames[i1] = NULL;
6794 continue;
6795 }
6796 if (fnamencmp(f1, f2, e1 - f1) != 0)
6797 continue;
6798 if (fnamecmp(e1, ".txt") == 0
6799 && fnamecmp(e2, fname + 4) == 0)
6800 {
6801 /* use .abx instead of .txt */
6802 vim_free(fnames[i1]);
6803 fnames[i1] = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006804 }
6805 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006806 }
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006807#endif
6808 for (fi = 0; fi < fcount; ++fi)
6809 {
6810 if (fnames[fi] == NULL)
6811 continue;
6812 fd = mch_fopen((char *)fnames[fi], "r");
6813 if (fd != NULL)
6814 {
6815 vim_fgets(IObuff, IOSIZE, fd);
6816 if (IObuff[0] == '*'
6817 && (s = vim_strchr(IObuff + 1, '*'))
6818 != NULL)
6819 {
6820#ifdef FEAT_MBYTE
6821 int this_utf = MAYBE;
6822#endif
6823 /* Change tag definition to a
6824 * reference and remove <CR>/<NL>. */
6825 IObuff[0] = '|';
6826 *s = '|';
6827 while (*s != NUL)
6828 {
6829 if (*s == '\r' || *s == '\n')
6830 *s = NUL;
6831#ifdef FEAT_MBYTE
6832 /* The text is utf-8 when a byte
6833 * above 127 is found and no
6834 * illegal byte sequence is found.
6835 */
6836 if (*s >= 0x80 && this_utf != FALSE)
6837 {
6838 int l;
6839
6840 this_utf = TRUE;
6841 l = utf_ptr2len(s);
6842 if (l == 1)
6843 this_utf = FALSE;
6844 s += l - 1;
6845 }
6846#endif
6847 ++s;
6848 }
6849#ifdef FEAT_MBYTE
6850 /* The help file is latin1 or utf-8;
6851 * conversion to the current
6852 * 'encoding' may be required. */
6853 vc.vc_type = CONV_NONE;
6854 convert_setup(&vc, (char_u *)(
6855 this_utf == TRUE ? "utf-8"
6856 : "latin1"), p_enc);
6857 if (vc.vc_type == CONV_NONE)
6858 /* No conversion needed. */
6859 cp = IObuff;
6860 else
6861 {
6862 /* Do the conversion. If it fails
6863 * use the unconverted text. */
6864 cp = string_convert(&vc, IObuff,
6865 NULL);
6866 if (cp == NULL)
6867 cp = IObuff;
6868 }
6869 convert_setup(&vc, NULL, NULL);
6870
6871 ml_append(lnum, cp, (colnr_T)0, FALSE);
6872 if (cp != IObuff)
6873 vim_free(cp);
6874#else
6875 ml_append(lnum, IObuff, (colnr_T)0,
6876 FALSE);
6877#endif
6878 ++lnum;
6879 }
6880 fclose(fd);
6881 }
6882 }
6883 FreeWild(fcount, fnames);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006884 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00006885 }
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006886 if (mustfree)
6887 vim_free(rt);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006888 }
Bram Moolenaar667b4d22011-10-20 18:17:42 +02006889 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006890 }
6891 }
6892}
6893
Bram Moolenaarb5bf5b82004-12-24 14:35:23 +00006894/*
6895 * ":exusage"
6896 */
Bram Moolenaarb5bf5b82004-12-24 14:35:23 +00006897 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006898ex_exusage(exarg_T *eap UNUSED)
Bram Moolenaarb5bf5b82004-12-24 14:35:23 +00006899{
6900 do_cmdline_cmd((char_u *)"help ex-cmd-index");
6901}
6902
6903/*
6904 * ":viusage"
6905 */
Bram Moolenaarb5bf5b82004-12-24 14:35:23 +00006906 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006907ex_viusage(exarg_T *eap UNUSED)
Bram Moolenaarb5bf5b82004-12-24 14:35:23 +00006908{
6909 do_cmdline_cmd((char_u *)"help normal-index");
6910}
6911
Bram Moolenaar071d4272004-06-13 20:20:40 +00006912/*
Bram Moolenaar6bef5302016-03-12 21:28:26 +01006913 * Generate tags in one help directory.
Bram Moolenaar071d4272004-06-13 20:20:40 +00006914 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006915 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01006916helptags_one(
6917 char_u *dir, /* doc directory */
6918 char_u *ext, /* suffix, ".txt", ".itx", ".frx", etc. */
6919 char_u *tagfname, /* "tags" for English, "tags-fr" for French. */
6920 int add_help_tags) /* add "help-tags" tag */
Bram Moolenaar071d4272004-06-13 20:20:40 +00006921{
6922 FILE *fd_tags;
6923 FILE *fd;
6924 garray_T ga;
6925 int filecount;
6926 char_u **files;
6927 char_u *p1, *p2;
6928 int fi;
6929 char_u *s;
6930 int i;
6931 char_u *fname;
Bram Moolenaar442b5c42012-11-28 16:06:22 +01006932 int dirlen;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006933# ifdef FEAT_MBYTE
6934 int utf8 = MAYBE;
6935 int this_utf8;
6936 int firstline;
6937 int mix = FALSE; /* detected mixed encodings */
6938# endif
6939
6940 /*
6941 * Find all *.txt files.
6942 */
Bram Moolenaar862cfa32012-11-29 20:10:00 +01006943 dirlen = (int)STRLEN(dir);
Bram Moolenaar071d4272004-06-13 20:20:40 +00006944 STRCPY(NameBuff, dir);
Bram Moolenaar442b5c42012-11-28 16:06:22 +01006945 STRCAT(NameBuff, "/**/*");
Bram Moolenaar071d4272004-06-13 20:20:40 +00006946 STRCAT(NameBuff, ext);
6947 if (gen_expand_wildcards(1, &NameBuff, &filecount, &files,
6948 EW_FILE|EW_SILENT) == FAIL
6949 || filecount == 0)
6950 {
6951 if (!got_int)
6952 EMSG2("E151: No match: %s", NameBuff);
6953 return;
6954 }
6955
6956 /*
6957 * Open the tags file for writing.
6958 * Do this before scanning through all the files.
6959 */
6960 STRCPY(NameBuff, dir);
6961 add_pathsep(NameBuff);
6962 STRCAT(NameBuff, tagfname);
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +00006963 fd_tags = mch_fopen((char *)NameBuff, "w");
Bram Moolenaar071d4272004-06-13 20:20:40 +00006964 if (fd_tags == NULL)
6965 {
6966 EMSG2(_("E152: Cannot open %s for writing"), NameBuff);
6967 FreeWild(filecount, files);
6968 return;
6969 }
6970
6971 /*
Bram Moolenaar426e5c92008-01-11 20:02:02 +00006972 * If using the "++t" argument or generating tags for "$VIMRUNTIME/doc"
6973 * add the "help-tags" tag.
Bram Moolenaar071d4272004-06-13 20:20:40 +00006974 */
6975 ga_init2(&ga, (int)sizeof(char_u *), 100);
Bram Moolenaar426e5c92008-01-11 20:02:02 +00006976 if (add_help_tags || fullpathcmp((char_u *)"$VIMRUNTIME/doc",
6977 dir, FALSE) == FPC_SAME)
Bram Moolenaar071d4272004-06-13 20:20:40 +00006978 {
6979 if (ga_grow(&ga, 1) == FAIL)
6980 got_int = TRUE;
6981 else
6982 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006983 s = alloc(18 + (unsigned)STRLEN(tagfname));
Bram Moolenaar071d4272004-06-13 20:20:40 +00006984 if (s == NULL)
6985 got_int = TRUE;
6986 else
6987 {
6988 sprintf((char *)s, "help-tags\t%s\t1\n", tagfname);
6989 ((char_u **)ga.ga_data)[ga.ga_len] = s;
6990 ++ga.ga_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +00006991 }
6992 }
6993 }
6994
6995 /*
6996 * Go over all the files and extract the tags.
6997 */
6998 for (fi = 0; fi < filecount && !got_int; ++fi)
6999 {
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +00007000 fd = mch_fopen((char *)files[fi], "r");
Bram Moolenaar071d4272004-06-13 20:20:40 +00007001 if (fd == NULL)
7002 {
7003 EMSG2(_("E153: Unable to open %s for reading"), files[fi]);
7004 continue;
7005 }
Bram Moolenaar442b5c42012-11-28 16:06:22 +01007006 fname = files[fi] + dirlen + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007007
7008# ifdef FEAT_MBYTE
7009 firstline = TRUE;
7010# endif
7011 while (!vim_fgets(IObuff, IOSIZE, fd) && !got_int)
7012 {
7013# ifdef FEAT_MBYTE
7014 if (firstline)
7015 {
7016 /* Detect utf-8 file by a non-ASCII char in the first line. */
7017 this_utf8 = MAYBE;
7018 for (s = IObuff; *s != NUL; ++s)
7019 if (*s >= 0x80)
7020 {
7021 int l;
7022
7023 this_utf8 = TRUE;
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00007024 l = utf_ptr2len(s);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007025 if (l == 1)
7026 {
7027 /* Illegal UTF-8 byte sequence. */
7028 this_utf8 = FALSE;
7029 break;
7030 }
7031 s += l - 1;
7032 }
7033 if (this_utf8 == MAYBE) /* only ASCII characters found */
7034 this_utf8 = FALSE;
7035 if (utf8 == MAYBE) /* first file */
7036 utf8 = this_utf8;
7037 else if (utf8 != this_utf8)
7038 {
7039 EMSG2(_("E670: Mix of help file encodings within a language: %s"), files[fi]);
7040 mix = !got_int;
7041 got_int = TRUE;
7042 }
7043 firstline = FALSE;
7044 }
7045# endif
7046 p1 = vim_strchr(IObuff, '*'); /* find first '*' */
7047 while (p1 != NULL)
7048 {
Bram Moolenaara0149c72012-05-18 16:24:11 +02007049 /* Use vim_strbyte() instead of vim_strchr() so that when
7050 * 'encoding' is dbcs it still works, don't find '*' in the
7051 * second byte. */
7052 p2 = vim_strbyte(p1 + 1, '*'); /* find second '*' */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007053 if (p2 != NULL && p2 > p1 + 1) /* skip "*" and "**" */
7054 {
7055 for (s = p1 + 1; s < p2; ++s)
7056 if (*s == ' ' || *s == '\t' || *s == '|')
7057 break;
7058
7059 /*
7060 * Only accept a *tag* when it consists of valid
7061 * characters, there is white space before it and is
7062 * followed by a white character or end-of-line.
7063 */
7064 if (s == p2
7065 && (p1 == IObuff || p1[-1] == ' ' || p1[-1] == '\t')
7066 && (vim_strchr((char_u *)" \t\n\r", s[1]) != NULL
7067 || s[1] == '\0'))
7068 {
7069 *p2 = '\0';
7070 ++p1;
7071 if (ga_grow(&ga, 1) == FAIL)
7072 {
7073 got_int = TRUE;
7074 break;
7075 }
7076 s = alloc((unsigned)(p2 - p1 + STRLEN(fname) + 2));
7077 if (s == NULL)
7078 {
7079 got_int = TRUE;
7080 break;
7081 }
7082 ((char_u **)ga.ga_data)[ga.ga_len] = s;
7083 ++ga.ga_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007084 sprintf((char *)s, "%s\t%s", p1, fname);
7085
7086 /* find next '*' */
7087 p2 = vim_strchr(p2 + 1, '*');
7088 }
7089 }
7090 p1 = p2;
7091 }
7092 line_breakcheck();
7093 }
7094
7095 fclose(fd);
7096 }
7097
7098 FreeWild(filecount, files);
7099
7100 if (!got_int)
7101 {
7102 /*
7103 * Sort the tags.
7104 */
Bram Moolenaarcde88542015-08-11 19:14:00 +02007105 if (ga.ga_data != NULL)
7106 sort_strings((char_u **)ga.ga_data, ga.ga_len);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007107
7108 /*
7109 * Check for duplicates.
7110 */
7111 for (i = 1; i < ga.ga_len; ++i)
7112 {
7113 p1 = ((char_u **)ga.ga_data)[i - 1];
7114 p2 = ((char_u **)ga.ga_data)[i];
7115 while (*p1 == *p2)
7116 {
7117 if (*p2 == '\t')
7118 {
7119 *p2 = NUL;
Bram Moolenaar555b2802005-05-19 21:08:39 +00007120 vim_snprintf((char *)NameBuff, MAXPATHL,
Bram Moolenaar071d4272004-06-13 20:20:40 +00007121 _("E154: Duplicate tag \"%s\" in file %s/%s"),
7122 ((char_u **)ga.ga_data)[i], dir, p2 + 1);
7123 EMSG(NameBuff);
7124 *p2 = '\t';
7125 break;
7126 }
7127 ++p1;
7128 ++p2;
7129 }
7130 }
7131
7132# ifdef FEAT_MBYTE
7133 if (utf8 == TRUE)
7134 fprintf(fd_tags, "!_TAG_FILE_ENCODING\tutf-8\t//\n");
7135# endif
7136
7137 /*
7138 * Write the tags into the file.
7139 */
7140 for (i = 0; i < ga.ga_len; ++i)
7141 {
7142 s = ((char_u **)ga.ga_data)[i];
Bram Moolenaarf6210482007-07-25 20:56:39 +00007143 if (STRNCMP(s, "help-tags\t", 10) == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007144 /* help-tags entry was added in formatted form */
Bram Moolenaarf6210482007-07-25 20:56:39 +00007145 fputs((char *)s, fd_tags);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007146 else
7147 {
7148 fprintf(fd_tags, "%s\t/*", s);
7149 for (p1 = s; *p1 != '\t'; ++p1)
7150 {
7151 /* insert backslash before '\\' and '/' */
7152 if (*p1 == '\\' || *p1 == '/')
7153 putc('\\', fd_tags);
7154 putc(*p1, fd_tags);
7155 }
7156 fprintf(fd_tags, "*\n");
7157 }
7158 }
7159 }
7160#ifdef FEAT_MBYTE
7161 if (mix)
7162 got_int = FALSE; /* continue with other languages */
7163#endif
7164
7165 for (i = 0; i < ga.ga_len; ++i)
7166 vim_free(((char_u **)ga.ga_data)[i]);
7167 ga_clear(&ga);
7168 fclose(fd_tags); /* there is no check for an error... */
7169}
Bram Moolenaar071d4272004-06-13 20:20:40 +00007170
Bram Moolenaar6bef5302016-03-12 21:28:26 +01007171/*
7172 * Generate tags in one help directory, taking care of translations.
7173 */
7174 static void
7175do_helptags(char_u *dirname, int add_help_tags)
7176{
7177#ifdef FEAT_MULTI_LANG
7178 int len;
7179 int i, j;
7180 garray_T ga;
7181 char_u lang[2];
7182 char_u ext[5];
7183 char_u fname[8];
7184 int filecount;
7185 char_u **files;
7186
7187 /* Get a list of all files in the help directory and in subdirectories. */
7188 STRCPY(NameBuff, dirname);
7189 add_pathsep(NameBuff);
7190 STRCAT(NameBuff, "**");
7191 if (gen_expand_wildcards(1, &NameBuff, &filecount, &files,
7192 EW_FILE|EW_SILENT) == FAIL
7193 || filecount == 0)
7194 {
7195 EMSG2("E151: No match: %s", NameBuff);
Bram Moolenaar6bef5302016-03-12 21:28:26 +01007196 return;
7197 }
7198
7199 /* Go over all files in the directory to find out what languages are
7200 * present. */
7201 ga_init2(&ga, 1, 10);
7202 for (i = 0; i < filecount; ++i)
7203 {
7204 len = (int)STRLEN(files[i]);
7205 if (len > 4)
7206 {
7207 if (STRICMP(files[i] + len - 4, ".txt") == 0)
7208 {
7209 /* ".txt" -> language "en" */
7210 lang[0] = 'e';
7211 lang[1] = 'n';
7212 }
7213 else if (files[i][len - 4] == '.'
7214 && ASCII_ISALPHA(files[i][len - 3])
7215 && ASCII_ISALPHA(files[i][len - 2])
7216 && TOLOWER_ASC(files[i][len - 1]) == 'x')
7217 {
7218 /* ".abx" -> language "ab" */
7219 lang[0] = TOLOWER_ASC(files[i][len - 3]);
7220 lang[1] = TOLOWER_ASC(files[i][len - 2]);
7221 }
7222 else
7223 continue;
7224
7225 /* Did we find this language already? */
7226 for (j = 0; j < ga.ga_len; j += 2)
7227 if (STRNCMP(lang, ((char_u *)ga.ga_data) + j, 2) == 0)
7228 break;
7229 if (j == ga.ga_len)
7230 {
7231 /* New language, add it. */
7232 if (ga_grow(&ga, 2) == FAIL)
7233 break;
7234 ((char_u *)ga.ga_data)[ga.ga_len++] = lang[0];
7235 ((char_u *)ga.ga_data)[ga.ga_len++] = lang[1];
7236 }
7237 }
7238 }
7239
7240 /*
7241 * Loop over the found languages to generate a tags file for each one.
7242 */
7243 for (j = 0; j < ga.ga_len; j += 2)
7244 {
7245 STRCPY(fname, "tags-xx");
7246 fname[5] = ((char_u *)ga.ga_data)[j];
7247 fname[6] = ((char_u *)ga.ga_data)[j + 1];
7248 if (fname[5] == 'e' && fname[6] == 'n')
7249 {
7250 /* English is an exception: use ".txt" and "tags". */
7251 fname[4] = NUL;
7252 STRCPY(ext, ".txt");
7253 }
7254 else
7255 {
7256 /* Language "ab" uses ".abx" and "tags-ab". */
7257 STRCPY(ext, ".xxx");
7258 ext[1] = fname[5];
7259 ext[2] = fname[6];
7260 }
7261 helptags_one(dirname, ext, fname, add_help_tags);
7262 }
7263
7264 ga_clear(&ga);
7265 FreeWild(filecount, files);
7266
7267#else
7268 /* No language support, just use "*.txt" and "tags". */
7269 helptags_one(dirname, (char_u *)".txt", (char_u *)"tags", add_help_tags);
7270#endif
7271}
7272
7273 static void
7274helptags_cb(char_u *fname, void *cookie)
7275{
7276 do_helptags(fname, *(int *)cookie);
7277}
7278
7279/*
7280 * ":helptags"
7281 */
7282 void
7283ex_helptags(exarg_T *eap)
7284{
7285 expand_T xpc;
7286 char_u *dirname;
7287 int add_help_tags = FALSE;
7288
7289 /* Check for ":helptags ++t {dir}". */
7290 if (STRNCMP(eap->arg, "++t", 3) == 0 && vim_iswhite(eap->arg[3]))
7291 {
7292 add_help_tags = TRUE;
7293 eap->arg = skipwhite(eap->arg + 3);
7294 }
7295
7296 if (STRCMP(eap->arg, "ALL") == 0)
7297 {
7298 do_in_path(p_rtp, (char_u *)"doc", DIP_ALL + DIP_DIR,
7299 helptags_cb, &add_help_tags);
7300 }
7301 else
7302 {
7303 ExpandInit(&xpc);
7304 xpc.xp_context = EXPAND_DIRECTORIES;
7305 dirname = ExpandOne(&xpc, eap->arg, NULL,
7306 WILD_LIST_NOTFOUND|WILD_SILENT, WILD_EXPAND_FREE);
7307 if (dirname == NULL || !mch_isdir(dirname))
7308 EMSG2(_("E150: Not a directory: %s"), eap->arg);
7309 else
7310 do_helptags(dirname, add_help_tags);
7311 vim_free(dirname);
7312 }
7313}
7314
Bram Moolenaar071d4272004-06-13 20:20:40 +00007315#if defined(FEAT_SIGNS) || defined(PROTO)
7316
7317/*
7318 * Struct to hold the sign properties.
7319 */
7320typedef struct sign sign_T;
7321
7322struct sign
7323{
7324 sign_T *sn_next; /* next sign in list */
Bram Moolenaarf75d4982010-10-15 20:20:05 +02007325 int sn_typenr; /* type number of sign */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007326 char_u *sn_name; /* name of sign */
7327 char_u *sn_icon; /* name of pixmap */
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007328# ifdef FEAT_SIGN_ICONS
Bram Moolenaar071d4272004-06-13 20:20:40 +00007329 void *sn_image; /* icon image */
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007330# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007331 char_u *sn_text; /* text used instead of pixmap */
7332 int sn_line_hl; /* highlight ID for line */
7333 int sn_text_hl; /* highlight ID for text */
7334};
7335
Bram Moolenaar071d4272004-06-13 20:20:40 +00007336static sign_T *first_sign = NULL;
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007337static int next_sign_typenr = 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007338
Bram Moolenaarf28dbce2016-01-29 22:03:47 +01007339static int sign_cmd_idx(char_u *begin_cmd, char_u *end_cmd);
7340static void sign_list_defined(sign_T *sp);
7341static void sign_undefine(sign_T *sp, sign_T *sp_prev);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007342
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007343static char *cmds[] = {
7344 "define",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007345# define SIGNCMD_DEFINE 0
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007346 "undefine",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007347# define SIGNCMD_UNDEFINE 1
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007348 "list",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007349# define SIGNCMD_LIST 2
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007350 "place",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007351# define SIGNCMD_PLACE 3
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007352 "unplace",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007353# define SIGNCMD_UNPLACE 4
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007354 "jump",
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007355# define SIGNCMD_JUMP 5
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007356 NULL
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007357# define SIGNCMD_LAST 6
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007358};
7359
7360/*
7361 * Find index of a ":sign" subcmd from its name.
7362 * "*end_cmd" must be writable.
7363 */
7364 static int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007365sign_cmd_idx(
7366 char_u *begin_cmd, /* begin of sign subcmd */
7367 char_u *end_cmd) /* just after sign subcmd */
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007368{
7369 int idx;
7370 char save = *end_cmd;
7371
7372 *end_cmd = NUL;
7373 for (idx = 0; ; ++idx)
7374 if (cmds[idx] == NULL || STRCMP(begin_cmd, cmds[idx]) == 0)
7375 break;
7376 *end_cmd = save;
7377 return idx;
7378}
7379
Bram Moolenaar071d4272004-06-13 20:20:40 +00007380/*
7381 * ":sign" command
7382 */
7383 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007384ex_sign(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007385{
7386 char_u *arg = eap->arg;
7387 char_u *p;
7388 int idx;
7389 sign_T *sp;
7390 sign_T *sp_prev;
7391 buf_T *buf;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007392
7393 /* Parse the subcommand. */
7394 p = skiptowhite(arg);
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007395 idx = sign_cmd_idx(arg, p);
7396 if (idx == SIGNCMD_LAST)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007397 {
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007398 EMSG2(_("E160: Unknown sign command: %s"), arg);
7399 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007400 }
7401 arg = skipwhite(p);
7402
7403 if (idx <= SIGNCMD_LIST)
7404 {
7405 /*
7406 * Define, undefine or list signs.
7407 */
7408 if (idx == SIGNCMD_LIST && *arg == NUL)
7409 {
7410 /* ":sign list": list all defined signs */
Bram Moolenaar1c0b03e2012-03-16 14:32:15 +01007411 for (sp = first_sign; sp != NULL && !got_int; sp = sp->sn_next)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007412 sign_list_defined(sp);
7413 }
7414 else if (*arg == NUL)
7415 EMSG(_("E156: Missing sign name"));
7416 else
7417 {
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007418 /* Isolate the sign name. If it's a number skip leading zeroes,
7419 * so that "099" and "99" are the same sign. But keep "0". */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007420 p = skiptowhite(arg);
7421 if (*p != NUL)
7422 *p++ = NUL;
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007423 while (arg[0] == '0' && arg[1] != NUL)
7424 ++arg;
7425
Bram Moolenaar071d4272004-06-13 20:20:40 +00007426 sp_prev = NULL;
7427 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7428 {
7429 if (STRCMP(sp->sn_name, arg) == 0)
7430 break;
7431 sp_prev = sp;
7432 }
7433 if (idx == SIGNCMD_DEFINE)
7434 {
7435 /* ":sign define {name} ...": define a sign */
7436 if (sp == NULL)
7437 {
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007438 sign_T *lp;
7439 int start = next_sign_typenr;
7440
Bram Moolenaar071d4272004-06-13 20:20:40 +00007441 /* Allocate a new sign. */
7442 sp = (sign_T *)alloc_clear((unsigned)sizeof(sign_T));
7443 if (sp == NULL)
7444 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007445
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007446 /* Check that next_sign_typenr is not already being used.
7447 * This only happens after wrapping around. Hopefully
7448 * another one got deleted and we can use its number. */
7449 for (lp = first_sign; lp != NULL; )
Bram Moolenaar071d4272004-06-13 20:20:40 +00007450 {
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007451 if (lp->sn_typenr == next_sign_typenr)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007452 {
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007453 ++next_sign_typenr;
7454 if (next_sign_typenr == MAX_TYPENR)
7455 next_sign_typenr = 1;
7456 if (next_sign_typenr == start)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007457 {
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007458 vim_free(sp);
7459 EMSG(_("E612: Too many signs defined"));
7460 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007461 }
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007462 lp = first_sign; /* start all over */
7463 continue;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007464 }
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007465 lp = lp->sn_next;
7466 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00007467
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007468 sp->sn_typenr = next_sign_typenr;
7469 if (++next_sign_typenr == MAX_TYPENR)
7470 next_sign_typenr = 1; /* wrap around */
7471
7472 sp->sn_name = vim_strsave(arg);
7473 if (sp->sn_name == NULL) /* out of memory */
7474 {
7475 vim_free(sp);
7476 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007477 }
Bram Moolenaara4f332b2010-10-13 16:44:23 +02007478
7479 /* add the new sign to the list of signs */
7480 if (sp_prev == NULL)
7481 first_sign = sp;
7482 else
7483 sp_prev->sn_next = sp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007484 }
7485
7486 /* set values for a defined sign. */
7487 for (;;)
7488 {
7489 arg = skipwhite(p);
7490 if (*arg == NUL)
7491 break;
7492 p = skiptowhite_esc(arg);
7493 if (STRNCMP(arg, "icon=", 5) == 0)
7494 {
7495 arg += 5;
7496 vim_free(sp->sn_icon);
7497 sp->sn_icon = vim_strnsave(arg, (int)(p - arg));
7498 backslash_halve(sp->sn_icon);
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007499# ifdef FEAT_SIGN_ICONS
Bram Moolenaar071d4272004-06-13 20:20:40 +00007500 if (gui.in_use)
7501 {
7502 out_flush();
7503 if (sp->sn_image != NULL)
7504 gui_mch_destroy_sign(sp->sn_image);
7505 sp->sn_image = gui_mch_register_sign(sp->sn_icon);
7506 }
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007507# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007508 }
7509 else if (STRNCMP(arg, "text=", 5) == 0)
7510 {
7511 char_u *s;
7512 int cells;
7513 int len;
7514
7515 arg += 5;
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007516# ifdef FEAT_MBYTE
Bram Moolenaar071d4272004-06-13 20:20:40 +00007517 /* Count cells and check for non-printable chars */
7518 if (has_mbyte)
7519 {
7520 cells = 0;
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00007521 for (s = arg; s < p; s += (*mb_ptr2len)(s))
Bram Moolenaar071d4272004-06-13 20:20:40 +00007522 {
7523 if (!vim_isprintc((*mb_ptr2char)(s)))
7524 break;
7525 cells += (*mb_ptr2cells)(s);
7526 }
7527 }
7528 else
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007529# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007530 {
7531 for (s = arg; s < p; ++s)
7532 if (!vim_isprintc(*s))
7533 break;
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007534 cells = (int)(s - arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007535 }
7536 /* Currently must be one or two display cells */
7537 if (s != p || cells < 1 || cells > 2)
7538 {
7539 *p = NUL;
7540 EMSG2(_("E239: Invalid sign text: %s"), arg);
7541 return;
7542 }
7543
7544 vim_free(sp->sn_text);
7545 /* Allocate one byte more if we need to pad up
7546 * with a space. */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007547 len = (int)(p - arg + ((cells == 1) ? 1 : 0));
Bram Moolenaar071d4272004-06-13 20:20:40 +00007548 sp->sn_text = vim_strnsave(arg, len);
7549
7550 if (sp->sn_text != NULL && cells == 1)
7551 STRCPY(sp->sn_text + len - 1, " ");
7552 }
7553 else if (STRNCMP(arg, "linehl=", 7) == 0)
7554 {
7555 arg += 7;
7556 sp->sn_line_hl = syn_check_group(arg, (int)(p - arg));
7557 }
7558 else if (STRNCMP(arg, "texthl=", 7) == 0)
7559 {
7560 arg += 7;
7561 sp->sn_text_hl = syn_check_group(arg, (int)(p - arg));
7562 }
7563 else
7564 {
7565 EMSG2(_(e_invarg2), arg);
7566 return;
7567 }
7568 }
7569 }
7570 else if (sp == NULL)
7571 EMSG2(_("E155: Unknown sign: %s"), arg);
7572 else if (idx == SIGNCMD_LIST)
7573 /* ":sign list {name}" */
7574 sign_list_defined(sp);
7575 else
Bram Moolenaar071d4272004-06-13 20:20:40 +00007576 /* ":sign undefine {name}" */
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007577 sign_undefine(sp, sp_prev);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007578 }
7579 }
7580 else
7581 {
7582 int id = -1;
7583 linenr_T lnum = -1;
7584 char_u *sign_name = NULL;
7585 char_u *arg1;
7586
7587 if (*arg == NUL)
7588 {
7589 if (idx == SIGNCMD_PLACE)
7590 {
7591 /* ":sign place": list placed signs in all buffers */
7592 sign_list_placed(NULL);
7593 }
7594 else if (idx == SIGNCMD_UNPLACE)
7595 {
7596 /* ":sign unplace": remove placed sign at cursor */
7597 id = buf_findsign_id(curwin->w_buffer, curwin->w_cursor.lnum);
7598 if (id > 0)
7599 {
7600 buf_delsign(curwin->w_buffer, id);
7601 update_debug_sign(curwin->w_buffer, curwin->w_cursor.lnum);
7602 }
7603 else
7604 EMSG(_("E159: Missing sign number"));
7605 }
7606 else
7607 EMSG(_(e_argreq));
7608 return;
7609 }
7610
7611 if (idx == SIGNCMD_UNPLACE && arg[0] == '*' && arg[1] == NUL)
7612 {
7613 /* ":sign unplace *": remove all placed signs */
7614 buf_delete_all_signs();
7615 return;
7616 }
7617
7618 /* first arg could be placed sign id */
7619 arg1 = arg;
7620 if (VIM_ISDIGIT(*arg))
7621 {
7622 id = getdigits(&arg);
7623 if (!vim_iswhite(*arg) && *arg != NUL)
7624 {
7625 id = -1;
7626 arg = arg1;
7627 }
7628 else
7629 {
7630 arg = skipwhite(arg);
7631 if (idx == SIGNCMD_UNPLACE && *arg == NUL)
7632 {
7633 /* ":sign unplace {id}": remove placed sign by number */
7634 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
7635 if ((lnum = buf_delsign(buf, id)) != 0)
7636 update_debug_sign(buf, lnum);
7637 return;
7638 }
7639 }
7640 }
7641
7642 /*
7643 * Check for line={lnum} name={name} and file={fname} or buffer={nr}.
7644 * Leave "arg" pointing to {fname}.
7645 */
7646 for (;;)
7647 {
7648 if (STRNCMP(arg, "line=", 5) == 0)
7649 {
7650 arg += 5;
7651 lnum = atoi((char *)arg);
7652 arg = skiptowhite(arg);
7653 }
Bram Moolenaarf65e5662012-07-10 15:18:22 +02007654 else if (STRNCMP(arg, "*", 1) == 0 && idx == SIGNCMD_UNPLACE)
7655 {
7656 if (id != -1)
7657 {
7658 EMSG(_(e_invarg));
7659 return;
7660 }
7661 id = -2;
7662 arg = skiptowhite(arg + 1);
7663 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00007664 else if (STRNCMP(arg, "name=", 5) == 0)
7665 {
7666 arg += 5;
7667 sign_name = arg;
7668 arg = skiptowhite(arg);
7669 if (*arg != NUL)
7670 *arg++ = NUL;
Bram Moolenaarb60574b2010-10-14 21:29:37 +02007671 while (sign_name[0] == '0' && sign_name[1] != NUL)
7672 ++sign_name;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007673 }
7674 else if (STRNCMP(arg, "file=", 5) == 0)
7675 {
7676 arg += 5;
7677 buf = buflist_findname(arg);
7678 break;
7679 }
7680 else if (STRNCMP(arg, "buffer=", 7) == 0)
7681 {
7682 arg += 7;
7683 buf = buflist_findnr((int)getdigits(&arg));
7684 if (*skipwhite(arg) != NUL)
7685 EMSG(_(e_trailing));
7686 break;
7687 }
7688 else
7689 {
7690 EMSG(_(e_invarg));
7691 return;
7692 }
7693 arg = skipwhite(arg);
7694 }
7695
7696 if (buf == NULL)
7697 {
7698 EMSG2(_("E158: Invalid buffer name: %s"), arg);
7699 }
Bram Moolenaarf65e5662012-07-10 15:18:22 +02007700 else if (id <= 0 && !(idx == SIGNCMD_UNPLACE && id == -2))
Bram Moolenaar071d4272004-06-13 20:20:40 +00007701 {
7702 if (lnum >= 0 || sign_name != NULL)
7703 EMSG(_(e_invarg));
7704 else
7705 /* ":sign place file={fname}": list placed signs in one file */
7706 sign_list_placed(buf);
7707 }
7708 else if (idx == SIGNCMD_JUMP)
7709 {
7710 /* ":sign jump {id} file={fname}" */
7711 if (lnum >= 0 || sign_name != NULL)
7712 EMSG(_(e_invarg));
7713 else if ((lnum = buf_findsign(buf, id)) > 0)
7714 { /* goto a sign ... */
7715 if (buf_jump_open_win(buf) != NULL)
7716 { /* ... in a current window */
7717 curwin->w_cursor.lnum = lnum;
7718 check_cursor_lnum();
7719 beginline(BL_WHITE);
7720 }
7721 else
7722 { /* ... not currently in a window */
7723 char_u *cmd;
7724
7725 cmd = alloc((unsigned)STRLEN(buf->b_fname) + 25);
7726 if (cmd == NULL)
7727 return;
7728 sprintf((char *)cmd, "e +%ld %s", (long)lnum, buf->b_fname);
7729 do_cmdline_cmd(cmd);
7730 vim_free(cmd);
7731 }
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007732# ifdef FEAT_FOLDING
Bram Moolenaar071d4272004-06-13 20:20:40 +00007733 foldOpenCursor();
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007734# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007735 }
7736 else
7737 EMSGN(_("E157: Invalid sign ID: %ld"), id);
7738 }
7739 else if (idx == SIGNCMD_UNPLACE)
7740 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00007741 if (lnum >= 0 || sign_name != NULL)
7742 EMSG(_(e_invarg));
Bram Moolenaarf65e5662012-07-10 15:18:22 +02007743 else if (id == -2)
7744 {
7745 /* ":sign unplace * file={fname}" */
7746 redraw_buf_later(buf, NOT_VALID);
7747 buf_delete_signs(buf);
7748 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00007749 else
7750 {
Bram Moolenaarf65e5662012-07-10 15:18:22 +02007751 /* ":sign unplace {id} file={fname}" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007752 lnum = buf_delsign(buf, id);
7753 update_debug_sign(buf, lnum);
7754 }
7755 }
7756 /* idx == SIGNCMD_PLACE */
7757 else if (sign_name != NULL)
7758 {
7759 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7760 if (STRCMP(sp->sn_name, sign_name) == 0)
7761 break;
7762 if (sp == NULL)
7763 {
7764 EMSG2(_("E155: Unknown sign: %s"), sign_name);
7765 return;
7766 }
7767 if (lnum > 0)
7768 /* ":sign place {id} line={lnum} name={name} file={fname}":
7769 * place a sign */
7770 buf_addsign(buf, id, lnum, sp->sn_typenr);
7771 else
7772 /* ":sign place {id} file={fname}": change sign type */
7773 lnum = buf_change_sign_type(buf, id, sp->sn_typenr);
Bram Moolenaarf4d7f162014-05-07 14:38:44 +02007774 if (lnum > 0)
7775 update_debug_sign(buf, lnum);
7776 else
7777 EMSG2(_("E885: Not possible to change sign %s"), sign_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007778 }
7779 else
7780 EMSG(_(e_invarg));
7781 }
7782}
7783
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007784# if defined(FEAT_SIGN_ICONS) || defined(PROTO)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007785/*
7786 * Allocate the icons. Called when the GUI has started. Allows defining
7787 * signs before it starts.
7788 */
7789 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007790sign_gui_started(void)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007791{
7792 sign_T *sp;
7793
7794 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7795 if (sp->sn_icon != NULL)
7796 sp->sn_image = gui_mch_register_sign(sp->sn_icon);
7797}
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007798# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007799
7800/*
7801 * List one sign.
7802 */
7803 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007804sign_list_defined(sign_T *sp)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007805{
7806 char_u *p;
7807
Bram Moolenaar555b2802005-05-19 21:08:39 +00007808 smsg((char_u *)"sign %s", sp->sn_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007809 if (sp->sn_icon != NULL)
7810 {
7811 MSG_PUTS(" icon=");
7812 msg_outtrans(sp->sn_icon);
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007813# ifdef FEAT_SIGN_ICONS
Bram Moolenaar071d4272004-06-13 20:20:40 +00007814 if (sp->sn_image == NULL)
7815 MSG_PUTS(_(" (NOT FOUND)"));
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007816# else
Bram Moolenaar071d4272004-06-13 20:20:40 +00007817 MSG_PUTS(_(" (not supported)"));
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007818# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007819 }
7820 if (sp->sn_text != NULL)
7821 {
7822 MSG_PUTS(" text=");
7823 msg_outtrans(sp->sn_text);
7824 }
7825 if (sp->sn_line_hl > 0)
7826 {
7827 MSG_PUTS(" linehl=");
7828 p = get_highlight_name(NULL, sp->sn_line_hl - 1);
7829 if (p == NULL)
7830 MSG_PUTS("NONE");
7831 else
7832 msg_puts(p);
7833 }
7834 if (sp->sn_text_hl > 0)
7835 {
7836 MSG_PUTS(" texthl=");
7837 p = get_highlight_name(NULL, sp->sn_text_hl - 1);
7838 if (p == NULL)
7839 MSG_PUTS("NONE");
7840 else
7841 msg_puts(p);
7842 }
7843}
7844
7845/*
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007846 * Undefine a sign and free its memory.
7847 */
7848 static void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007849sign_undefine(sign_T *sp, sign_T *sp_prev)
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007850{
7851 vim_free(sp->sn_name);
7852 vim_free(sp->sn_icon);
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007853# ifdef FEAT_SIGN_ICONS
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007854 if (sp->sn_image != NULL)
7855 {
7856 out_flush();
7857 gui_mch_destroy_sign(sp->sn_image);
7858 }
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007859# endif
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007860 vim_free(sp->sn_text);
7861 if (sp_prev == NULL)
7862 first_sign = sp->sn_next;
7863 else
7864 sp_prev->sn_next = sp->sn_next;
7865 vim_free(sp);
7866}
7867
7868/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00007869 * Get highlighting attribute for sign "typenr".
7870 * If "line" is TRUE: line highl, if FALSE: text highl.
7871 */
7872 int
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007873sign_get_attr(int typenr, int line)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007874{
7875 sign_T *sp;
7876
7877 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7878 if (sp->sn_typenr == typenr)
7879 {
7880 if (line)
7881 {
7882 if (sp->sn_line_hl > 0)
7883 return syn_id2attr(sp->sn_line_hl);
7884 }
7885 else
7886 {
7887 if (sp->sn_text_hl > 0)
7888 return syn_id2attr(sp->sn_text_hl);
7889 }
7890 break;
7891 }
7892 return 0;
7893}
7894
7895/*
7896 * Get text mark for sign "typenr".
7897 * Returns NULL if there isn't one.
7898 */
7899 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007900sign_get_text(int typenr)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007901{
7902 sign_T *sp;
7903
7904 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7905 if (sp->sn_typenr == typenr)
7906 return sp->sn_text;
7907 return NULL;
7908}
7909
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007910# if defined(FEAT_SIGN_ICONS) || defined(PROTO)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007911 void *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007912sign_get_image(
7913 int typenr) /* the attribute which may have a sign */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007914{
7915 sign_T *sp;
7916
7917 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7918 if (sp->sn_typenr == typenr)
7919 return sp->sn_image;
7920 return NULL;
7921}
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007922# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007923
7924/*
7925 * Get the name of a sign by its typenr.
7926 */
7927 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007928sign_typenr2name(int typenr)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007929{
7930 sign_T *sp;
7931
7932 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7933 if (sp->sn_typenr == typenr)
7934 return sp->sn_name;
7935 return (char_u *)_("[Deleted]");
7936}
7937
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007938# if defined(EXITFREE) || defined(PROTO)
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007939/*
7940 * Undefine/free all signs.
7941 */
7942 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007943free_signs(void)
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007944{
7945 while (first_sign != NULL)
7946 sign_undefine(first_sign, NULL);
7947}
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007948# endif
Bram Moolenaarde0dfed2009-02-24 03:30:14 +00007949
Bram Moolenaar86e179d2015-12-31 16:10:23 +01007950# if defined(FEAT_CMDL_COMPL) || defined(PROTO)
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007951static enum
7952{
7953 EXP_SUBCMD, /* expand :sign sub-commands */
7954 EXP_DEFINE, /* expand :sign define {name} args */
7955 EXP_PLACE, /* expand :sign place {id} args */
7956 EXP_UNPLACE, /* expand :sign unplace" */
7957 EXP_SIGN_NAMES /* expand with name of placed signs */
7958} expand_what;
7959
7960/*
7961 * Function given to ExpandGeneric() to obtain the sign command
7962 * expansion.
7963 */
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007964 char_u *
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01007965get_sign_name(expand_T *xp UNUSED, int idx)
Bram Moolenaar3c65e312009-04-29 16:47:23 +00007966{
7967 sign_T *sp;
7968 int current_idx;
7969
7970 switch (expand_what)
7971 {
7972 case EXP_SUBCMD:
7973 return (char_u *)cmds[idx];
7974 case EXP_DEFINE:
7975 {
7976 char *define_arg[] =
7977 {
7978 "icon=", "linehl=", "text=", "texthl=", NULL
7979 };
7980 return (char_u *)define_arg[idx];
7981 }
7982 case EXP_PLACE:
7983 {
7984 char *place_arg[] =
7985 {
7986 "line=", "name=", "file=", "buffer=", NULL
7987 };
7988 return (char_u *)place_arg[idx];
7989 }
7990 case EXP_UNPLACE:
7991 {
7992 char *unplace_arg[] = { "file=", "buffer=", NULL };
7993 return (char_u *)unplace_arg[idx];
7994 }
7995 case EXP_SIGN_NAMES:
7996 /* Complete with name of signs already defined */
7997 current_idx = 0;
7998 for (sp = first_sign; sp != NULL; sp = sp->sn_next)
7999 if (current_idx++ == idx)
8000 return sp->sn_name;
8001 return NULL;
8002 default:
8003 return NULL;
8004 }
8005}
8006
8007/*
8008 * Handle command line completion for :sign command.
8009 */
8010 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01008011set_context_in_sign_cmd(expand_T *xp, char_u *arg)
Bram Moolenaar3c65e312009-04-29 16:47:23 +00008012{
8013 char_u *p;
8014 char_u *end_subcmd;
8015 char_u *last;
8016 int cmd_idx;
8017 char_u *begin_subcmd_args;
8018
8019 /* Default: expand subcommands. */
8020 xp->xp_context = EXPAND_SIGN;
8021 expand_what = EXP_SUBCMD;
8022 xp->xp_pattern = arg;
8023
8024 end_subcmd = skiptowhite(arg);
8025 if (*end_subcmd == NUL)
8026 /* expand subcmd name
8027 * :sign {subcmd}<CTRL-D>*/
8028 return;
8029
8030 cmd_idx = sign_cmd_idx(arg, end_subcmd);
8031
8032 /* :sign {subcmd} {subcmd_args}
Bram Moolenaarcc448b32010-07-14 16:52:17 +02008033 * |
8034 * begin_subcmd_args */
Bram Moolenaar3c65e312009-04-29 16:47:23 +00008035 begin_subcmd_args = skipwhite(end_subcmd);
8036 p = skiptowhite(begin_subcmd_args);
8037 if (*p == NUL)
8038 {
8039 /*
8040 * Expand first argument of subcmd when possible.
8041 * For ":jump {id}" and ":unplace {id}", we could
8042 * possibly expand the ids of all signs already placed.
8043 */
8044 xp->xp_pattern = begin_subcmd_args;
8045 switch (cmd_idx)
8046 {
8047 case SIGNCMD_LIST:
8048 case SIGNCMD_UNDEFINE:
8049 /* :sign list <CTRL-D>
8050 * :sign undefine <CTRL-D> */
8051 expand_what = EXP_SIGN_NAMES;
8052 break;
8053 default:
8054 xp->xp_context = EXPAND_NOTHING;
8055 }
8056 return;
8057 }
8058
8059 /* expand last argument of subcmd */
8060
8061 /* :sign define {name} {args}...
Bram Moolenaarcc448b32010-07-14 16:52:17 +02008062 * |
8063 * p */
Bram Moolenaar3c65e312009-04-29 16:47:23 +00008064
8065 /* Loop until reaching last argument. */
8066 do
8067 {
8068 p = skipwhite(p);
8069 last = p;
8070 p = skiptowhite(p);
8071 } while (*p != NUL);
8072
8073 p = vim_strchr(last, '=');
8074
8075 /* :sign define {name} {args}... {last}=
Bram Moolenaarcc448b32010-07-14 16:52:17 +02008076 * | |
8077 * last p */
Bram Moolenaar3c65e312009-04-29 16:47:23 +00008078 if (p == NUL)
8079 {
8080 /* Expand last argument name (before equal sign). */
8081 xp->xp_pattern = last;
8082 switch (cmd_idx)
8083 {
8084 case SIGNCMD_DEFINE:
8085 expand_what = EXP_DEFINE;
8086 break;
8087 case SIGNCMD_PLACE:
8088 expand_what = EXP_PLACE;
8089 break;
8090 case SIGNCMD_JUMP:
8091 case SIGNCMD_UNPLACE:
8092 expand_what = EXP_UNPLACE;
8093 break;
8094 default:
8095 xp->xp_context = EXPAND_NOTHING;
8096 }
8097 }
8098 else
8099 {
8100 /* Expand last argument value (after equal sign). */
8101 xp->xp_pattern = p + 1;
8102 switch (cmd_idx)
8103 {
8104 case SIGNCMD_DEFINE:
8105 if (STRNCMP(last, "texthl", p - last) == 0 ||
8106 STRNCMP(last, "linehl", p - last) == 0)
8107 xp->xp_context = EXPAND_HIGHLIGHT;
8108 else if (STRNCMP(last, "icon", p - last) == 0)
8109 xp->xp_context = EXPAND_FILES;
8110 else
8111 xp->xp_context = EXPAND_NOTHING;
8112 break;
8113 case SIGNCMD_PLACE:
8114 if (STRNCMP(last, "name", p - last) == 0)
8115 expand_what = EXP_SIGN_NAMES;
8116 else
8117 xp->xp_context = EXPAND_NOTHING;
8118 break;
8119 default:
8120 xp->xp_context = EXPAND_NOTHING;
8121 }
8122 }
8123}
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008124# endif
Bram Moolenaar3c65e312009-04-29 16:47:23 +00008125#endif
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008126
8127/*
8128 * Make the user happy.
8129 */
8130 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01008131ex_smile(exarg_T *eap UNUSED)
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008132{
Bram Moolenaar700eefe2016-04-13 21:14:37 +02008133 static char *code[] = {
8134 "\34 \4o\14$\4ox\30 \2o\30$\1ox\25 \2o\36$\1o\11 \1o\1$\3 \2$\1 \1o\1$x\5 \1o\1 \1$\1 \2o\10 \1o\44$\1o\7 \2$\1 \2$\1 \2$\1o\1$x\2 \2o\1 \1$\1 \1$\1 \1\"\1$\6 \1o\11$\4 \15$\4 \11$\1o\7 \3$\1o\2$\1o\1$x\2 \1\"\6$\1o\1$\5 \1o\11$\6 \13$\6 \12$\1o\4 \10$x\4 \7$\4 \13$\6 \13$\6 \27$x\4 \27$\4 \15$\4 \16$\2 \3\"\3$x\5 \1\"\3$\4\"\61$\5 \1\"\3$x\6 \3$\3 \1o\62$\5 \1\"\3$\1ox\5 \1o\2$\1\"\3 \63$\7 \3$\1ox\5 \3$\4 \55$\1\"\1 \1\"\6$",
8135 "\5o\4$\1ox\4 \1o\3$\4o\5$\2 \45$\3 \1o\21$x\4 \10$\1\"\4$\3 \42$\5 \4$\10\"x\3 \4\"\7 \4$\4 \1\"\34$\1\"\6 \1o\3$x\16 \1\"\3$\1o\5 \3\"\22$\1\"\2$\1\"\11 \3$x\20 \3$\1o\12 \1\"\2$\2\"\6$\4\"\13 \1o\3$x\21 \4$\1o\40 \1o\3$\1\"x\22 \1\"\4$\1o\6 \1o\6$\1o\1\"\4$\1o\10 \1o\4$x\24 \1\"\5$\2o\5 \2\"\4$\1o\5$\1o\3 \1o\4$\2\"x\27 \2\"\5$\4o\2 \1\"\3$\1o\11$\3\"x\32 \2\"\7$\2o\1 \12$x\42 \4\"\13$x\46 \14$x\47 \12$\1\"x\50 \1\"\3$\4\"x"
8136 };
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008137 char *p;
8138 int n;
Bram Moolenaar700eefe2016-04-13 21:14:37 +02008139 int i;
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008140
8141 msg_start();
8142 msg_putchar('\n');
Bram Moolenaar700eefe2016-04-13 21:14:37 +02008143 for (i = 0; i < 2; ++i)
8144 for (p = code[i]; *p != NUL; ++p)
8145 if (*p == 'x')
8146 msg_putchar('\n');
8147 else
8148 for (n = *p++; n > 0; --n)
8149 if (*p == 'o' || *p == '$')
8150 msg_putchar_attr(*p, hl_attr(HLF_L));
8151 else
8152 msg_putchar(*p);
Bram Moolenaar86e179d2015-12-31 16:10:23 +01008153 msg_clr_eos();
8154}
Bram Moolenaar071d4272004-06-13 20:20:40 +00008155
8156#if defined(FEAT_GUI) || defined(FEAT_CLIENTSERVER) || defined(PROTO)
8157/*
8158 * ":drop"
8159 * Opens the first argument in a window. When there are two or more arguments
8160 * the argument list is redefined.
8161 */
8162 void
Bram Moolenaar78c0b7d2016-01-30 15:52:46 +01008163ex_drop(exarg_T *eap)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008164{
8165 int split = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008166 win_T *wp;
8167 buf_T *buf;
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008168# ifdef FEAT_WINDOWS
8169 tabpage_T *tp;
8170# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008171
8172 /*
8173 * Check if the first argument is already being edited in a window. If
8174 * so, jump to that window.
8175 * We would actually need to check all arguments, but that's complicated
8176 * and mostly only one file is dropped.
8177 * This also ignores wildcards, since it is very unlikely the user is
8178 * editing a file name with a wildcard character.
8179 */
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008180 set_arglist(eap->arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008181
Bram Moolenaarb01a8b72007-02-13 02:47:22 +00008182 /*
8183 * Expanding wildcards may result in an empty argument list. E.g. when
8184 * editing "foo.pyc" and ".pyc" is in 'wildignore'. Assume that we
8185 * already did an error message for this.
8186 */
8187 if (ARGCOUNT == 0)
8188 return;
8189
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008190# ifdef FEAT_WINDOWS
8191 if (cmdmod.tab)
8192 {
8193 /* ":tab drop file ...": open a tab for each argument that isn't
8194 * edited in a window yet. It's like ":tab all" but without closing
8195 * windows or tabs. */
8196 ex_all(eap);
8197 }
8198 else
8199# endif
8200 {
8201 /* ":drop file ...": Edit the first argument. Jump to an existing
8202 * window if possible, edit in current window if the current buffer
8203 * can be abandoned, otherwise open a new window. */
8204 buf = buflist_findnr(ARGLIST[0].ae_fnum);
8205
8206 FOR_ALL_TAB_WINDOWS(tp, wp)
8207 {
8208 if (wp->w_buffer == buf)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008209 {
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008210# ifdef FEAT_WINDOWS
Bram Moolenaar779b74b2006-04-10 14:55:34 +00008211 goto_tabpage_win(tp, wp);
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008212# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008213 curwin->w_arg_idx = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008214 return;
8215 }
8216 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00008217
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008218 /*
8219 * Check whether the current buffer is changed. If so, we will need
8220 * to split the current window or data could be lost.
8221 * Skip the check if the 'hidden' option is set, as in this case the
8222 * buffer won't be lost.
8223 */
8224 if (!P_HID(curbuf))
8225 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00008226# ifdef FEAT_WINDOWS
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008227 ++emsg_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008228# endif
Bram Moolenaar45d3b142013-11-09 03:31:51 +01008229 split = check_changed(curbuf, CCGD_AW | CCGD_EXCMD);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008230# ifdef FEAT_WINDOWS
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008231 --emsg_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008232# else
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008233 if (split)
8234 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008235# endif
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008236 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00008237
Bram Moolenaara5b6ad12006-03-11 21:36:59 +00008238 /* Fake a ":sfirst" or ":first" command edit the first argument. */
8239 if (split)
8240 {
8241 eap->cmdidx = CMD_sfirst;
8242 eap->cmd[0] = 's';
8243 }
8244 else
8245 eap->cmdidx = CMD_first;
8246 ex_rewind(eap);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008247 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00008248}
8249#endif