Mercurial > vim

annotate src/ex_cmds2.c @ 17447:c8bdaff91140

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.1.1721 for changeset dcc4120f841294dfadbc2c59e479a669410474b5
author Bram Moolenaar <Bram@vim.org>
date Sat, 20 Jul 2019 19:15:05 +0200
parents 8f44c630c366
children 892b4ea3bad6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 9812
diff changeset
1 /* vi:set ts=8 sts=4 sw=4 noet:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 * Do ":help uganda" in Vim to read copying and usage conditions.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 * Do ":help credits" in Vim to see a list of people who contributed.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 * See README.txt for an overview of the Vim source code.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 * ex_cmds2.c: some more functions for command line commands
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 #include "version.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16
7799
af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a
Christian Brabandt <cb@256bit.org>
parents: 7726
diff changeset
17 static void cmd_source(char_u *fname, exarg_T *eap);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 #if defined(FEAT_EVAL) || defined(PROTO)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
20 # if defined(FEAT_TIMERS) || defined(PROTO)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
21 static timer_T *first_timer = NULL;
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
22 static long last_timer_id = 0;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
23
16594
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
24 /*
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
25 * Return time left until "due". Negative if past "due".
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
26 */
13878
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode
Christian Brabandt <cb@256bit.org>
parents: 13802
diff changeset
27 long
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
28 proftime_time_left(proftime_T *due, proftime_T *now)
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
29 {
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
30 # ifdef MSWIN
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
31 LARGE_INTEGER fr;
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
32
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
33 if (now->QuadPart > due->QuadPart)
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
34 return 0;
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
35 QueryPerformanceFrequency(&fr);
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
36 return (long)(((double)(due->QuadPart - now->QuadPart)
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
37 / (double)fr.QuadPart) * 1000);
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
38 # else
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
39 if (now->tv_sec > due->tv_sec)
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
40 return 0;
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
41 return (due->tv_sec - now->tv_sec) * 1000
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
42 + (due->tv_usec - now->tv_usec) / 1000;
12495
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
43 # endif
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
44 }
10066
dc1610dc910f commit https://github.com/vim/vim/commit/417ccd7138d4d230d328de8b0d3892dd82ff1bee
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
45
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
46 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
47 * Insert a timer in the list of timers.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
48 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
49 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
50 insert_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
51 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
52 timer->tr_next = first_timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
53 timer->tr_prev = NULL;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
54 if (first_timer != NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
55 first_timer->tr_prev = timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
56 first_timer = timer;
9179
5e18efdad322 commit https://github.com/vim/vim/commit/4231da403e3c879dd6ac261e51f4ca60813935e3
Christian Brabandt <cb@256bit.org>
parents: 9155
diff changeset
57 did_add_timer = TRUE;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
58 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
59
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
60 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
61 * Take a timer out of the list of timers.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
62 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
63 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
64 remove_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
65 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
66 if (timer->tr_prev == NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
67 first_timer = timer->tr_next;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
68 else
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
69 timer->tr_prev->tr_next = timer->tr_next;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
70 if (timer->tr_next != NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
71 timer->tr_next->tr_prev = timer->tr_prev;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
72 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
73
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
74 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
75 free_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
76 {
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
77 free_callback(&timer->tr_callback);
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
78 vim_free(timer);
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
79 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
80
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
81 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
82 * Create a timer and return it. NULL if out of memory.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
83 * Caller should set the callback.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
84 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
85 timer_T *
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
86 create_timer(long msec, int repeat)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
87 {
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
88 timer_T *timer = ALLOC_CLEAR_ONE(timer_T);
10182
40f6ce4fe30e commit https://github.com/vim/vim/commit/ee39ef0b93d31763d05e54ba99801e3f1a254c0d
Christian Brabandt <cb@256bit.org>
parents: 10122
diff changeset
89 long prev_id = last_timer_id;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
90
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
91 if (timer == NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
92 return NULL;
10182
40f6ce4fe30e commit https://github.com/vim/vim/commit/ee39ef0b93d31763d05e54ba99801e3f1a254c0d
Christian Brabandt <cb@256bit.org>
parents: 10122
diff changeset
93 if (++last_timer_id <= prev_id)
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
94 /* Overflow! Might cause duplicates... */
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
95 last_timer_id = 0;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
96 timer->tr_id = last_timer_id;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
97 insert_timer(timer);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
98 if (repeat != 0)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
99 timer->tr_repeat = repeat - 1;
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
100 timer->tr_interval = msec;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
101
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
102 profile_setlimit(msec, &timer->tr_due);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
103 return timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
104 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
105
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
106 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
107 * Invoke the callback of "timer".
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
108 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
109 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
110 timer_callback(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
111 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
112 typval_T rettv;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
113 int dummy;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
114 typval_T argv[2];
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
115
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
116 argv[0].v_type = VAR_NUMBER;
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
117 argv[0].vval.v_number = (varnumber_T)timer->tr_id;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
118 argv[1].v_type = VAR_UNKNOWN;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
119
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
120 call_callback(&timer->tr_callback, -1,
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
121 &rettv, 1, argv, NULL, 0L, 0L, &dummy, TRUE, NULL);
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
122 clear_tv(&rettv);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
123 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
124
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
125 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
126 * Call timers that are due.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
127 * Return the time in msec until the next timer is due.
11631
3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer.
Christian Brabandt <cb@256bit.org>
parents: 11595
diff changeset
128 * Returns -1 if there are no pending timers.
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
129 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
130 long
9282
9f97a6290c63 commit https://github.com/vim/vim/commit/cf089463492fab53b2a5d81517829d22f882f82e
Christian Brabandt <cb@256bit.org>
parents: 9179
diff changeset
131 check_due_timer(void)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
132 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
133 timer_T *timer;
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
134 timer_T *timer_next;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
135 long this_due;
8587
fb8d7086e99d commit https://github.com/vim/vim/commit/597385ab43093ba27adcb86cdc1b46aba86a0093
Christian Brabandt <cb@256bit.org>
parents: 8577
diff changeset
136 long next_due = -1;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
137 proftime_T now;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
138 int did_one = FALSE;
12244
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
139 int need_update_screen = FALSE;
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
140 long current_id = last_timer_id;
11639
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
141
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
142 /* Don't run any timers while exiting or dealing with an error. */
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
143 if (exiting || aborting())
11631
3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer.
Christian Brabandt <cb@256bit.org>
parents: 11595
diff changeset
144 return next_due;
3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer.
Christian Brabandt <cb@256bit.org>
parents: 11595
diff changeset
145
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
146 profile_start(&now);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
147 for (timer = first_timer; timer != NULL && !got_int; timer = timer_next)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
148 {
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
149 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
150
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
151 if (timer->tr_id == -1 || timer->tr_firing || timer->tr_paused)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
152 continue;
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
153 this_due = proftime_time_left(&timer->tr_due, &now);
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
154 if (this_due <= 1)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
155 {
13892
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly
Christian Brabandt <cb@256bit.org>
parents: 13878
diff changeset
156 /* Save and restore a lot of flags, because the timer fires while
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly
Christian Brabandt <cb@256bit.org>
parents: 13878
diff changeset
157 * waiting for a character, which might be halfway a command. */
11575
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
158 int save_timer_busy = timer_busy;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
159 int save_vgetc_busy = vgetc_busy;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
160 int save_did_emsg = did_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
161 int save_called_emsg = called_emsg;
17184
a5c3d374e1d3 patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents: 17178
diff changeset
162 int save_must_redraw = must_redraw;
a5c3d374e1d3 patch 8.1.1591: on error garbage collection may free memory in use
Bram Moolenaar <Bram@vim.org>
parents: 17178
diff changeset
163 int save_trylevel = trylevel;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
164 int save_did_throw = did_throw;
12459
937356f8f8d6 patch 8.0.1109: timer causes error on exit from Ex mode
Christian Brabandt <cb@256bit.org>
parents: 12375
diff changeset
165 int save_ex_pressedreturn = get_pressedreturn();
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
166 int save_may_garbage_collect = may_garbage_collect;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
167 except_T *save_current_exception = current_exception;
13892
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly
Christian Brabandt <cb@256bit.org>
parents: 13878
diff changeset
168 vimvars_save_T vvsave;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
169
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
170 /* Create a scope for running the timer callback, ignoring most of
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
171 * the current scope, such as being inside a try/catch. */
11575
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
172 timer_busy = timer_busy > 0 || vgetc_busy > 0;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
173 vgetc_busy = 0;
11639
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
174 called_emsg = FALSE;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
175 did_emsg = FALSE;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
176 did_uncaught_emsg = FALSE;
12244
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
177 must_redraw = 0;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
178 trylevel = 0;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
179 did_throw = FALSE;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
180 current_exception = NULL;
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
181 may_garbage_collect = FALSE;
13892
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly
Christian Brabandt <cb@256bit.org>
parents: 13878
diff changeset
182 save_vimvars(&vvsave);
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
183
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
184 timer->tr_firing = TRUE;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
185 timer_callback(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
186 timer->tr_firing = FALSE;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
187
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
188 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
189 did_one = TRUE;
11575
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
190 timer_busy = save_timer_busy;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback
Christian Brabandt <cb@256bit.org>
parents: 11457
diff changeset
191 vgetc_busy = save_vgetc_busy;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
192 if (did_uncaught_emsg)
11639
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
193 ++timer->tr_emsg_count;
12375
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
194 did_emsg = save_did_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
195 called_emsg = save_called_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
196 trylevel = save_trylevel;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
197 did_throw = save_did_throw;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped
Christian Brabandt <cb@256bit.org>
parents: 12244
diff changeset
198 current_exception = save_current_exception;
13892
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly
Christian Brabandt <cb@256bit.org>
parents: 13878
diff changeset
199 restore_vimvars(&vvsave);
12244
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
200 if (must_redraw != 0)
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
201 need_update_screen = TRUE;
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
202 must_redraw = must_redraw > save_must_redraw
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
203 ? must_redraw : save_must_redraw;
12459
937356f8f8d6 patch 8.0.1109: timer causes error on exit from Ex mode
Christian Brabandt <cb@256bit.org>
parents: 12375
diff changeset
204 set_pressedreturn(save_ex_pressedreturn);
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
205 may_garbage_collect = save_may_garbage_collect;
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
206
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
207 /* Only fire the timer again if it repeats and stop_timer() wasn't
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
208 * called while inside the callback (tr_id == -1). */
11639
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
209 if (timer->tr_repeat != 0 && timer->tr_id != -1
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable
Christian Brabandt <cb@256bit.org>
parents: 11631
diff changeset
210 && timer->tr_emsg_count < 3)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
211 {
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
212 profile_setlimit(timer->tr_interval, &timer->tr_due);
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
213 this_due = proftime_time_left(&timer->tr_due, &now);
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
214 if (this_due < 1)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
215 this_due = 1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
216 if (timer->tr_repeat > 0)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
217 --timer->tr_repeat;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
218 }
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
219 else
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
220 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
221 this_due = -1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
222 remove_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
223 free_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
224 }
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
225 }
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
226 if (this_due > 0 && (next_due == -1 || next_due > this_due))
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
227 next_due = this_due;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
228 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
229
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
230 if (did_one)
12244
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback
Christian Brabandt <cb@256bit.org>
parents: 12206
diff changeset
231 redraw_after_callback(need_update_screen);
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
232
12871
1a450ce6980c patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents: 12865
diff changeset
233 #ifdef FEAT_BEVAL_TERM
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
234 if (bevalexpr_due_set)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
235 {
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
236 this_due = proftime_time_left(&bevalexpr_due, &now);
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
237 if (this_due <= 1)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
238 {
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
239 bevalexpr_due_set = FALSE;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
240 if (balloonEval == NULL)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
241 {
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
242 balloonEval = ALLOC_CLEAR_ONE(BalloonEval);
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
243 balloonEvalForTerm = TRUE;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
244 }
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
245 if (balloonEval != NULL)
16594
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
246 {
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
247 general_beval_cb(balloonEval, 0);
16594
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
248 setcursor();
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
249 out_flush();
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away
Bram Moolenaar <Bram@vim.org>
parents: 16515
diff changeset
250 }
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
251 }
13762
9de2b25932eb patch 8.0.1753: various warnings from a static analyser
Christian Brabandt <cb@256bit.org>
parents: 13736
diff changeset
252 else if (next_due == -1 || next_due > this_due)
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
253 next_due = this_due;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
254 }
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
255 #endif
13878
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode
Christian Brabandt <cb@256bit.org>
parents: 13802
diff changeset
256 #ifdef FEAT_TERMINAL
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode
Christian Brabandt <cb@256bit.org>
parents: 13802
diff changeset
257 /* Some terminal windows may need their buffer updated. */
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode
Christian Brabandt <cb@256bit.org>
parents: 13802
diff changeset
258 next_due = term_check_timers(next_due, &now);
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode
Christian Brabandt <cb@256bit.org>
parents: 13802
diff changeset
259 #endif
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
260
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
261 return current_id != last_timer_id ? 1 : next_due;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
262 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
263
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
264 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
265 * Find a timer by ID. Returns NULL if not found;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
266 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
267 timer_T *
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
268 find_timer(long id)
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
269 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
270 timer_T *timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
271
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
272 if (id >= 0)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
273 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
274 for (timer = first_timer; timer != NULL; timer = timer->tr_next)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
275 if (timer->tr_id == id)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
276 return timer;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
277 }
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
278 return NULL;
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
279 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
280
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
281
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
282 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
283 * Stop a timer and delete it.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
284 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
285 void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
286 stop_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
287 {
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
288 if (timer->tr_firing)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
289 /* Free the timer after the callback returns. */
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
290 timer->tr_id = -1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
291 else
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
292 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
293 remove_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
294 free_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
295 }
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
296 }
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
297
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
298 void
9810
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87
Christian Brabandt <cb@256bit.org>
parents: 9792
diff changeset
299 stop_all_timers(void)
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87
Christian Brabandt <cb@256bit.org>
parents: 9792
diff changeset
300 {
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
301 timer_T *timer;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
302 timer_T *timer_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
303
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
304 for (timer = first_timer; timer != NULL; timer = timer_next)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
305 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
306 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
307 stop_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
308 }
9810
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87
Christian Brabandt <cb@256bit.org>
parents: 9792
diff changeset
309 }
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87
Christian Brabandt <cb@256bit.org>
parents: 9792
diff changeset
310
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87
Christian Brabandt <cb@256bit.org>
parents: 9792
diff changeset
311 void
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
312 add_timer_info(typval_T *rettv, timer_T *timer)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
313 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
314 list_T *list = rettv->vval.v_list;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
315 dict_T *dict = dict_alloc();
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
316 dictitem_T *di;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
317 long remaining;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
318 proftime_T now;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
319
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
320 if (dict == NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
321 return;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
322 list_append_dict(list, dict);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
323
14301
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
324 dict_add_number(dict, "id", timer->tr_id);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
325 dict_add_number(dict, "time", (long)timer->tr_interval);
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
326
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
327 profile_start(&now);
12865
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal
Christian Brabandt <cb@256bit.org>
parents: 12678
diff changeset
328 remaining = proftime_time_left(&timer->tr_due, &now);
14301
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
329 dict_add_number(dict, "remaining", (long)remaining);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
330
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
331 dict_add_number(dict, "repeat",
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
332 (long)(timer->tr_repeat < 0 ? -1 : timer->tr_repeat + 1));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents: 14208
diff changeset
333 dict_add_number(dict, "paused", (long)(timer->tr_paused));
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
334
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
335 di = dictitem_alloc((char_u *)"callback");
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
336 if (di != NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
337 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
338 if (dict_add(dict, di) == FAIL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
339 vim_free(di);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
340 else
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
341 put_callback(&timer->tr_callback, &di->di_tv);
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
342 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
343 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
344
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
345 void
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
346 add_timer_info_all(typval_T *rettv)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
347 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
348 timer_T *timer;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
349
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
350 for (timer = first_timer; timer != NULL; timer = timer->tr_next)
10122
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
351 if (timer->tr_id != -1)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983
Christian Brabandt <cb@256bit.org>
parents: 10078
diff changeset
352 add_timer_info(rettv, timer);
9790
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
353 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd
Christian Brabandt <cb@256bit.org>
parents: 9778
diff changeset
354
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
355 /*
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
356 * Mark references in partials of timers.
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
357 */
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
358 int
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
359 set_ref_in_timer(int copyID)
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
360 {
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
361 int abort = FALSE;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
362 timer_T *timer;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
363 typval_T tv;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
364
17151
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17111
diff changeset
365 for (timer = first_timer; !abort && timer != NULL; timer = timer->tr_next)
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
366 {
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
367 if (timer->tr_callback.cb_partial != NULL)
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
368 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
369 tv.v_type = VAR_PARTIAL;
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
370 tv.vval.v_partial = timer->tr_callback.cb_partial;
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
371 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
372 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
373 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
374 tv.v_type = VAR_FUNC;
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
375 tv.vval.v_string = timer->tr_callback.cb_name;
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
376 }
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
377 abort = abort || set_ref_in_item(&tv, copyID, NULL, NULL);
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
378 }
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
379 return abort;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9112
diff changeset
380 }
9709
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
381
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
382 # if defined(EXITFREE) || defined(PROTO)
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
383 void
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
384 timer_free_all()
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
385 {
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
386 timer_T *timer;
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
387
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
388 while (first_timer != NULL)
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
389 {
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
390 timer = first_timer;
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
391 remove_timer(timer);
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
392 free_timer(timer);
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
393 }
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
394 }
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1
Christian Brabandt <cb@256bit.org>
parents: 9686
diff changeset
395 # endif
8577
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
396 # endif
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Christian Brabandt <cb@256bit.org>
parents: 8526
diff changeset
397
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
398 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
399
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
400 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
401 * If 'autowrite' option set, try to write the file.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 * Careful: autocommands may make "buf" invalid!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 * return FAIL for failure, OK otherwise
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
407 autowrite(buf_T *buf, int forceit)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
408 {
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
409 int r;
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
410 bufref_T bufref;
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
411
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 if (!(p_aw || p_awa) || !p_write
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413 #ifdef FEAT_QUICKFIX
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
414 /* never autowrite a "nofile" or "nowrite" buffer */
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
415 || bt_dontwrite(buf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 #endif
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
417 || (!forceit && buf->b_p_ro) || buf->b_ffname == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 return FAIL;
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
419 set_bufref(&bufref, buf);
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
420 r = buf_write_all(buf, forceit);
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
421
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
422 /* Writing may succeed but the buffer still changed, e.g., when there is a
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
423 * conversion error. We do want to return FAIL then. */
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
424 if (bufref_valid(&bufref) && bufIsChanged(buf))
1069
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
425 r = FAIL;
f628d19361d9 updated for version 7.0-195
vimboss
parents: 1061
diff changeset
426 return r;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
427 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429 /*
14642
96858d612aff patch 8.1.0334: 'autowrite' takes effect when buffer is not to be written
Christian Brabandt <cb@256bit.org>
parents: 14303
diff changeset
430 * Flush all buffers, except the ones that are readonly or are never written.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
431 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
432 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
433 autowrite_all(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437 if (!(p_aw || p_awa) || !p_write)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 return;
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
439 FOR_ALL_BUFFERS(buf)
14642
96858d612aff patch 8.1.0334: 'autowrite' takes effect when buffer is not to be written
Christian Brabandt <cb@256bit.org>
parents: 14303
diff changeset
440 if (bufIsChanged(buf) && !buf->b_p_ro && !bt_dontwrite(buf))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 {
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
442 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
443
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
444 set_bufref(&bufref, buf);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
445
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
446 (void)buf_write_all(buf, FALSE);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
447
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
448 /* an autocommand may have deleted the buffer */
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
449 if (!bufref_valid(&bufref))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
450 buf = firstbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
454 /*
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
455 * Return TRUE if buffer was changed and cannot be abandoned.
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
456 * For flags use the CCGD_ values.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
459 check_changed(buf_T *buf, int flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
460 {
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
461 int forceit = (flags & CCGD_FORCEIT);
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
462 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
463
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
464 set_bufref(&bufref, buf);
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
465
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
466 if ( !forceit
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
467 && bufIsChanged(buf)
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
468 && ((flags & CCGD_MULTWIN) || buf->b_nwindows <= 1)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
469 && (!(flags & CCGD_AW) || autowrite(buf, forceit) == FAIL))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
470 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
471 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
472 if ((p_confirm || cmdmod.confirm) && p_write)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
473 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 buf_T *buf2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475 int count = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
477 if (flags & CCGD_ALLBUF)
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
478 FOR_ALL_BUFFERS(buf2)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479 if (bufIsChanged(buf2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 && (buf2->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
481 # ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
482 || cmdmod.browse
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
484 ))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 ++count;
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
486 if (!bufref_valid(&bufref))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487 /* Autocommand deleted buffer, oops! It's not changed now. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 return FALSE;
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
489
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
490 dialog_changed(buf, count > 1);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
491
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
492 if (!bufref_valid(&bufref))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
493 /* Autocommand deleted buffer, oops! It's not changed now. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
494 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
495 return bufIsChanged(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
496 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
497 #endif
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
498 if (flags & CCGD_EXCMD)
12146
59c1e09cf1a9 patch 8.0.0953: get "no write since last change" error in terminal window
Christian Brabandt <cb@256bit.org>
parents: 12039
diff changeset
499 no_write_message();
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
500 else
13302
b5806be0b36d patch 8.0.1525: using :wqa exits even if a job runs in a terminal window
Christian Brabandt <cb@256bit.org>
parents: 13274
diff changeset
501 no_write_message_nobang(curbuf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
502 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
503 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
504 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
505 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
506
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
507 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
508
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
509 #if defined(FEAT_BROWSE) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
510 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
511 * When wanting to write a file without a file name, ask the user for a name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
512 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
513 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
514 browse_save_fname(buf_T *buf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
515 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516 if (buf->b_fname == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
517 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
518 char_u *fname;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
519
29
ac33b7c03fac updated for version 7.0018
vimboss
parents: 22
diff changeset
520 fname = do_browse(BROWSE_SAVE, (char_u *)_("Save As"),
ac33b7c03fac updated for version 7.0018
vimboss
parents: 22
diff changeset
521 NULL, NULL, NULL, NULL, buf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522 if (fname != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
524 if (setfname(buf, fname, NULL, TRUE) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525 buf->b_flags |= BF_NOTEDITED;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526 vim_free(fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
531
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532 /*
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
533 * Ask the user what to do when abandoning a changed buffer.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
534 * Must check 'write' option first!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
537 dialog_changed(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
538 buf_T *buf,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
539 int checkall) /* may abandon all changed buffers */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
540 {
2770
25672ad7f377 updated for version 7.3.161
Bram Moolenaar <bram@vim.org>
parents: 2711
diff changeset
541 char_u buff[DIALOG_MSG_SIZE];
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 int ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 buf_T *buf2;
3486
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
544 exarg_T ea;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545
12206
bd8d767fb36f patch 8.0.0983: unnecessary check for NULL pointer
Christian Brabandt <cb@256bit.org>
parents: 12146
diff changeset
546 dialog_msg(buff, _("Save changes to \"%s\"?"), buf->b_fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 if (checkall)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 ret = vim_dialog_yesnoallcancel(VIM_QUESTION, NULL, buff, 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 ret = vim_dialog_yesnocancel(VIM_QUESTION, NULL, buff, 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551
16619
8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents: 16594
diff changeset
552 // Init ea pseudo-structure, this is needed for the check_overwrite()
8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents: 16594
diff changeset
553 // function.
8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents: 16594
diff changeset
554 vim_memset(&ea, 0, sizeof(ea));
3486
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
555
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 if (ret == VIM_YES)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 /* May get file name, when there is none */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 browse_save_fname(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 #endif
3486
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
562 if (buf->b_fname != NULL && check_overwrite(&ea, buf,
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
563 buf->b_fname, buf->b_ffname, FALSE) == OK)
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
564 /* didn't hit Cancel */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 (void)buf_write_all(buf, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 else if (ret == VIM_NO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 {
16996
d5e1e09a829f patch 8.1.1498: ":write" increments b:changedtick even though nothing changed
Bram Moolenaar <Bram@vim.org>
parents: 16874
diff changeset
569 unchanged(buf, TRUE, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 else if (ret == VIM_ALL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574 * Write all modified files that can be written.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 * Skip readonly buffers, these need to be confirmed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 * individually.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
578 FOR_ALL_BUFFERS(buf2)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
580 if (bufIsChanged(buf2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 && (buf2->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 || cmdmod.browse
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586 && !buf2->b_p_ro)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 {
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
588 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
589
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
590 set_bufref(&bufref, buf2);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 /* May get file name, when there is none */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593 browse_save_fname(buf2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 #endif
3486
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
595 if (buf2->b_fname != NULL && check_overwrite(&ea, buf2,
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
596 buf2->b_fname, buf2->b_ffname, FALSE) == OK)
f9a865d97614 updated for version 7.3.507
Bram Moolenaar <bram@vim.org>
parents: 3429
diff changeset
597 /* didn't hit Cancel */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598 (void)buf_write_all(buf2, FALSE);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
599
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 /* an autocommand may have deleted the buffer */
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
601 if (!bufref_valid(&bufref))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602 buf2 = firstbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 else if (ret == VIM_DISCARDALL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 * mark all buffers as unchanged
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
611 FOR_ALL_BUFFERS(buf2)
16996
d5e1e09a829f patch 8.1.1498: ":write" increments b:changedtick even though nothing changed
Bram Moolenaar <Bram@vim.org>
parents: 16874
diff changeset
612 unchanged(buf2, TRUE, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
613 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 * Return TRUE if the buffer "buf" can be abandoned, either by making it
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 * hidden, autowriting it or unloading it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
622 can_abandon(buf_T *buf, int forceit)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623 {
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
624 return ( buf_hide(buf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 || !bufIsChanged(buf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626 || buf->b_nwindows > 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
627 || autowrite(buf, forceit) == OK
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
628 || forceit);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
629 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
631 /*
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
632 * Add a buffer number to "bufnrs", unless it's already there.
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
633 */
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
634 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
635 add_bufnum(int *bufnrs, int *bufnump, int nr)
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
636 {
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
637 int i;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
638
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
639 for (i = 0; i < *bufnump; ++i)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
640 if (bufnrs[i] == nr)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
641 return;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
642 bufnrs[*bufnump] = nr;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
643 *bufnump = *bufnump + 1;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
644 }
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
645
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647 * Return TRUE if any buffer was changed and cannot be abandoned.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
648 * That changed buffer becomes the current buffer.
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
649 * When "unload" is TRUE the current buffer is unloaded instead of making it
7469
15eefe1b0dad commit https://github.com/vim/vim/commit/027387f70c671f62e3e08e0bdd09ec05b0232735
Christian Brabandt <cb@256bit.org>
parents: 7107
diff changeset
650 * hidden. This is used for ":q!".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
651 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
652 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
653 check_changed_any(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
654 int hidden, /* Only check hidden buffers */
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
655 int unload)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 {
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
657 int ret = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
658 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659 int save;
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
660 int i;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
661 int bufnum = 0;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
662 int bufcount = 0;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
663 int *bufnrs;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
664 tabpage_T *tp;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
665 win_T *wp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
666
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
667 /* Make a list of all buffers, with the most important ones first. */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
668 FOR_ALL_BUFFERS(buf)
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
669 ++bufcount;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
670
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
671 if (bufcount == 0)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
672 return FALSE;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
673
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
674 bufnrs = ALLOC_MULT(int, bufcount);
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
675 if (bufnrs == NULL)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
676 return FALSE;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
677
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
678 /* curbuf */
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
679 bufnrs[bufnum++] = curbuf->b_fnum;
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
680
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
681 /* buffers in current tab */
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
682 FOR_ALL_WINDOWS(wp)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
683 if (wp->w_buffer != curbuf)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
684 add_bufnum(bufnrs, &bufnum, wp->w_buffer->b_fnum);
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
685
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
686 /* buffers in other tabs */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
687 FOR_ALL_TABPAGES(tp)
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
688 if (tp != curtab)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
689 for (wp = tp->tp_firstwin; wp != NULL; wp = wp->w_next)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
690 add_bufnum(bufnrs, &bufnum, wp->w_buffer->b_fnum);
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
691
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
692 /* any other buffer */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
693 FOR_ALL_BUFFERS(buf)
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
694 add_bufnum(bufnrs, &bufnum, buf->b_fnum);
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
695
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
696 for (i = 0; i < bufnum; ++i)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
697 {
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
698 buf = buflist_findnr(bufnrs[i]);
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
699 if (buf == NULL)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
700 continue;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
701 if ((!hidden || buf->b_nwindows == 0) && bufIsChanged(buf))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
702 {
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
703 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
704
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
705 set_bufref(&bufref, buf);
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
706 #ifdef FEAT_TERMINAL
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
707 if (term_job_running(buf->b_term))
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
708 {
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
709 if (term_try_stop_job(buf) == FAIL)
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
710 break;
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
711 }
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
712 else
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
713 #endif
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
714 /* Try auto-writing the buffer. If this fails but the buffer no
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
715 * longer exists it's not changed, that's OK. */
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
716 if (check_changed(buf, (p_awa ? CCGD_AW : 0)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
717 | CCGD_MULTWIN
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
718 | CCGD_ALLBUF) && bufref_valid(&bufref))
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
719 break; /* didn't save - still changes */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
720 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
721 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
722
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
723 if (i >= bufnum)
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
724 goto theend;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
725
13438
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
726 /* Get here if "buf" cannot be abandoned. */
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
727 ret = TRUE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
728 exiting = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
729 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
730 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731 * When ":confirm" used, don't give an error message.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
732 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
733 if (!(p_confirm || cmdmod.confirm))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
734 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736 /* There must be a wait_return for this message, do_buffer()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 * may cause a redraw. But wait_return() is a no-op when vgetc()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 * is busy (Quit used from window menu), then make sure we don't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 * cause a scroll up. */
823
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
740 if (vgetc_busy > 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
741 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
742 msg_row = cmdline_row;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743 msg_col = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 msg_didout = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 }
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
746 if (
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
747 #ifdef FEAT_TERMINAL
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
748 term_job_running(buf->b_term)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
749 ? semsg(_("E947: Job still running in buffer \"%s\""),
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
750 buf->b_fname)
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
751 :
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
752 #endif
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
753 semsg(_("E162: No write since last change for buffer \"%s\""),
3839
8115f449a574 updated for version 7.3.677
Bram Moolenaar <bram@vim.org>
parents: 3620
diff changeset
754 buf_spname(buf) != NULL ? buf_spname(buf) : buf->b_fname))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
755 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
756 save = no_wait_return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
757 no_wait_return = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 wait_return(FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
759 no_wait_return = save;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
762
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
763 /* Try to find a window that contains the buffer. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
764 if (buf != curbuf)
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
765 FOR_ALL_TAB_WINDOWS(tp, wp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
766 if (wp->w_buffer == buf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 {
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
768 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
769
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
770 set_bufref(&bufref, buf);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
771
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
772 goto_tabpage_win(tp, wp);
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
773
15967
ddd82b1c9e9d patch 8.1.0989: various small code ugliness
Bram Moolenaar <Bram@vim.org>
parents: 15868
diff changeset
774 // Paranoia: did autocmd wipe out the buffer with changes?
9487
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents: 9410
diff changeset
775 if (!bufref_valid(&bufref))
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
776 goto theend;
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
777 goto buf_found;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
778 }
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
779 buf_found:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
780
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
781 /* Open the changed buffer in the current window. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
782 if (buf != curbuf)
7469
15eefe1b0dad commit https://github.com/vim/vim/commit/027387f70c671f62e3e08e0bdd09ec05b0232735
Christian Brabandt <cb@256bit.org>
parents: 7107
diff changeset
783 set_curbuf(buf, unload ? DOBUF_UNLOAD : DOBUF_GOTO);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
785 theend:
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
786 vim_free(bufnrs);
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
787 return ret;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
790 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
791 * return FAIL if there is no file name, OK if there is one
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
792 * give error message for FAIL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
793 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
794 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
795 check_fname(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
796 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
797 if (curbuf->b_ffname == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
798 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
799 emsg(_(e_noname));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
800 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
801 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
802 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
803 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
804
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
805 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
806 * flush the contents of a buffer, unless it has no file name
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
807 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
808 * return FAIL for failure, OK otherwise
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
809 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
810 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
811 buf_write_all(buf_T *buf, int forceit)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
812 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
813 int retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
814 buf_T *old_curbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
815
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
816 retval = (buf_write(buf, buf->b_ffname, buf->b_fname,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
817 (linenr_T)1, buf->b_ml.ml_line_count, NULL,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
818 FALSE, forceit, TRUE, FALSE));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
819 if (curbuf != old_curbuf)
16
3ba373b54370 updated for version 7.0008
vimboss
parents: 15
diff changeset
820 {
11158
501f46f7644c patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
821 msg_source(HL_ATTR(HLF_W));
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
822 msg(_("Warning: Entered other buffer unexpectedly (check autocommands)"));
16
3ba373b54370 updated for version 7.0008
vimboss
parents: 15
diff changeset
823 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
824 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
825 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
826
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
827 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
828 * Code to handle the argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
829 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
830
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
831 static int do_arglist(char_u *str, int what, int after, int will_edit);
7799
af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a
Christian Brabandt <cb@256bit.org>
parents: 7726
diff changeset
832 static void alist_check_arg_idx(void);
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
833 static void alist_add_list(int count, char_u **files, int after, int will_edit);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
834 #define AL_SET 1
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
835 #define AL_ADD 2
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
836 #define AL_DEL 3
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
837
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
838 /*
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
839 * Isolate one argument, taking backticks.
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
840 * Changes the argument in-place, puts a NUL after it. Backticks remain.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
841 * Return a pointer to the start of the next argument.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
842 */
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
843 static char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
844 do_one_arg(char_u *str)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
845 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
846 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
847 int inbacktick;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
848
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
849 inbacktick = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
850 for (p = str; *str; ++str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
851 {
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
852 /* When the backslash is used for escaping the special meaning of a
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
853 * character we need to keep it until wildcard expansion. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
854 if (rem_backslash(str))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
855 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
856 *p++ = *str++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
857 *p++ = *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
858 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
859 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
860 {
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
861 /* An item ends at a space not in backticks */
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
862 if (!inbacktick && vim_isspace(*str))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
863 break;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
864 if (*str == '`')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
865 inbacktick ^= TRUE;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
866 *p++ = *str;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
867 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
868 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
869 str = skipwhite(str);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
870 *p = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
871
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
872 return str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
873 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
874
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
875 /*
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
876 * Separate the arguments in "str" and return a list of pointers in the
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
877 * growarray "gap".
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
878 */
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
879 static int
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
880 get_arglist(garray_T *gap, char_u *str, int escaped)
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
881 {
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
882 ga_init2(gap, (int)sizeof(char_u *), 20);
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
883 while (*str != NUL)
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
884 {
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
885 if (ga_grow(gap, 1) == FAIL)
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
886 {
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
887 ga_clear(gap);
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
888 return FAIL;
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
889 }
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
890 ((char_u **)gap->ga_data)[gap->ga_len++] = str;
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
891
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
892 /* If str is escaped, don't handle backslashes or spaces */
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
893 if (!escaped)
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
894 return OK;
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
895
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
896 /* Isolate one argument, change it in-place, put a NUL after it. */
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
897 str = do_one_arg(str);
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
898 }
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
899 return OK;
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
900 }
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
901
642
2392a6da4aa4 updated for version 7.0186
vimboss
parents: 574
diff changeset
902 #if defined(FEAT_QUICKFIX) || defined(FEAT_SYN_HL) || defined(PROTO)
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
903 /*
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
904 * Parse a list of arguments (file names), expand them and return in
3620
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
905 * "fnames[fcountp]". When "wig" is TRUE, removes files matching 'wildignore'.
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
906 * Return FAIL or OK.
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
907 */
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
908 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
909 get_arglist_exp(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
910 char_u *str,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
911 int *fcountp,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
912 char_u ***fnamesp,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
913 int wig)
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
914 {
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
915 garray_T ga;
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
916 int i;
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
917
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
918 if (get_arglist(&ga, str, TRUE) == FAIL)
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
919 return FAIL;
3620
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
920 if (wig == TRUE)
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
921 i = expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
922 fcountp, fnamesp, EW_FILE|EW_NOTFOUND);
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
923 else
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
924 i = gen_expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
925 fcountp, fnamesp, EW_FILE|EW_NOTFOUND);
4f1c511e71f8 updated for version 7.3.570
Bram Moolenaar <bram@vim.org>
parents: 3604
diff changeset
926
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
927 ga_clear(&ga);
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
928 return i;
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
929 }
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
930 #endif
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
931
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
932 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
933 * Redefine the argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
934 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
935 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
936 set_arglist(char_u *str)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
937 {
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
938 do_arglist(str, AL_SET, 0, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
939 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
940
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
941 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
942 * "what" == AL_SET: Redefine the argument list to 'str'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
943 * "what" == AL_ADD: add files in 'str' to the argument list after "after".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
944 * "what" == AL_DEL: remove files in 'str' from the argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
945 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
946 * Return FAIL for failure, OK otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
947 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
948 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
949 do_arglist(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
950 char_u *str,
8368
db2a07b710ed commit https://github.com/vim/vim/commit/f1d2501ebe33e148886c2914acd33140e20ee222
Christian Brabandt <cb@256bit.org>
parents: 8281
diff changeset
951 int what,
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
952 int after UNUSED, // 0 means before first one
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
953 int will_edit) // will edit added argument
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
954 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
955 garray_T new_ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
956 int exp_count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
957 char_u **exp_files;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
958 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
959 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
960 int match;
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
961 int arg_escaped = TRUE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
962
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
963 /*
7726
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
964 * Set default argument for ":argadd" command.
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
965 */
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
966 if (what == AL_ADD && *str == NUL)
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
967 {
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
968 if (curbuf->b_ffname == NULL)
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
969 return FAIL;
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
970 str = curbuf->b_fname;
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
971 arg_escaped = FALSE;
7726
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
972 }
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
973
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8
Christian Brabandt <cb@256bit.org>
parents: 7647
diff changeset
974 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
975 * Collect all file name arguments in "new_ga".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
976 */
11935
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name
Christian Brabandt <cb@256bit.org>
parents: 11676
diff changeset
977 if (get_arglist(&new_ga, str, arg_escaped) == FAIL)
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
978 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
979
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
980 if (what == AL_DEL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
981 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
982 regmatch_T regmatch;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
983 int didone;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
984
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
985 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
986 * Delete the items: use each item as a regexp and find a match in the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
987 * argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
988 */
4242
edd0bc1f26bd updated for version 7.3.872
Bram Moolenaar <bram@vim.org>
parents: 3839
diff changeset
989 regmatch.rm_ic = p_fic; /* ignore case when 'fileignorecase' is set */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
990 for (i = 0; i < new_ga.ga_len && !got_int; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
991 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
992 p = ((char_u **)new_ga.ga_data)[i];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
993 p = file_pat_to_reg_pat(p, NULL, NULL, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
994 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
995 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
996 regmatch.regprog = vim_regcomp(p, p_magic ? RE_MAGIC : 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
997 if (regmatch.regprog == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
998 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
999 vim_free(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1000 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1001 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1002
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1003 didone = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1004 for (match = 0; match < ARGCOUNT; ++match)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1005 if (vim_regexec(&regmatch, alist_name(&ARGLIST[match]),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1006 (colnr_T)0))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1007 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1008 didone = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1009 vim_free(ARGLIST[match].ae_fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1010 mch_memmove(ARGLIST + match, ARGLIST + match + 1,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1011 (ARGCOUNT - match - 1) * sizeof(aentry_T));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1012 --ALIST(curwin)->al_ga.ga_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1013 if (curwin->w_arg_idx > match)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1014 --curwin->w_arg_idx;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1015 --match;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1016 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1017
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4764
diff changeset
1018 vim_regfree(regmatch.regprog);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1019 vim_free(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1020 if (!didone)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1021 semsg(_(e_nomatch2), ((char_u **)new_ga.ga_data)[i]);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1022 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1023 ga_clear(&new_ga);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1024 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1025 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1026 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1027 i = expand_wildcards(new_ga.ga_len, (char_u **)new_ga.ga_data,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1028 &exp_count, &exp_files, EW_DIR|EW_FILE|EW_ADDSLASH|EW_NOTFOUND);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1029 ga_clear(&new_ga);
7625
b4384c581806 commit https://github.com/vim/vim/commit/2db5c3b3ceeaded7fb5a64dc5cb22b0cb95b78a1
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
1030 if (i == FAIL || exp_count == 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1031 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1032 emsg(_(e_nomatch));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1033 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1034 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1035
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1036 if (what == AL_ADD)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1037 {
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1038 alist_add_list(exp_count, exp_files, after, will_edit);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1039 vim_free(exp_files);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1040 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1041 else /* what == AL_SET */
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1042 alist_set(ALIST(curwin), exp_count, exp_files, will_edit, NULL, 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1043 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1044
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1045 alist_check_arg_idx();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1046
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1047 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1048 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1049
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1050 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1051 * Check the validity of the arg_idx for each other window.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1052 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1053 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1054 alist_check_arg_idx(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1055 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1056 win_T *win;
671
83a006f81bac updated for version 7.0199
vimboss
parents: 642
diff changeset
1057 tabpage_T *tp;
83a006f81bac updated for version 7.0199
vimboss
parents: 642
diff changeset
1058
83a006f81bac updated for version 7.0199
vimboss
parents: 642
diff changeset
1059 FOR_ALL_TAB_WINDOWS(tp, win)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1060 if (win->w_alist == curwin->w_alist)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1061 check_arg_idx(win);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1062 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1063
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1064 /*
3312
b7811ab264bf updated for version 7.3.423
Bram Moolenaar <bram@vim.org>
parents: 3149
diff changeset
1065 * Return TRUE if window "win" is editing the file at the current argument
22
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1066 * index.
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1067 */
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1068 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1069 editing_arg_idx(win_T *win)
22
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1070 {
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1071 return !(win->w_arg_idx >= WARGCOUNT(win)
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1072 || (win->w_buffer->b_fnum
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1073 != WARGLIST(win)[win->w_arg_idx].ae_fnum
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1074 && (win->w_buffer->b_ffname == NULL
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1075 || !(fullpathcmp(
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1076 alist_name(&WARGLIST(win)[win->w_arg_idx]),
16738
b52ea9c5f1db patch 8.1.1371: cannot recover from a swap file
Bram Moolenaar <Bram@vim.org>
parents: 16722
diff changeset
1077 win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))));
22
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1078 }
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1079
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1080 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1081 * Check if window "win" is editing the w_arg_idx file in its argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1082 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1083 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1084 check_arg_idx(win_T *win)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1085 {
22
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1086 if (WARGCOUNT(win) > 1 && !editing_arg_idx(win))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1087 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1088 /* We are not editing the current entry in the argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1089 * Set "arg_had_last" if we are editing the last one. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1090 win->w_arg_idx_invalid = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1091 if (win->w_arg_idx != WARGCOUNT(win) - 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1092 && arg_had_last == FALSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1093 && ALIST(win) == &global_alist
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1094 && GARGCOUNT > 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1095 && win->w_arg_idx < GARGCOUNT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1096 && (win->w_buffer->b_fnum == GARGLIST[GARGCOUNT - 1].ae_fnum
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1097 || (win->w_buffer->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1098 && (fullpathcmp(alist_name(&GARGLIST[GARGCOUNT - 1]),
16738
b52ea9c5f1db patch 8.1.1371: cannot recover from a swap file
Bram Moolenaar <Bram@vim.org>
parents: 16722
diff changeset
1099 win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1100 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1101 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1102 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1103 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1104 /* We are editing the current entry in the argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1105 * Set "arg_had_last" if it's also the last one */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1106 win->w_arg_idx_invalid = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1107 if (win->w_arg_idx == WARGCOUNT(win) - 1
12477
68d7bc045dbe patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 12459
diff changeset
1108 && win->w_alist == &global_alist)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1109 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1110 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1111 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1112
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1113 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1114 * ":args", ":argslocal" and ":argsglobal".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1115 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1116 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1117 ex_args(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1118 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1119 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1120
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1121 if (eap->cmdidx != CMD_args)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1122 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1123 alist_unlink(ALIST(curwin));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1124 if (eap->cmdidx == CMD_argglobal)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1125 ALIST(curwin) = &global_alist;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1126 else /* eap->cmdidx == CMD_arglocal */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1127 alist_new();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1128 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1129
15286
d2a162896a2a patch 8.1.0651: :args "foo works like :args without argument
Bram Moolenaar <Bram@vim.org>
parents: 15085
diff changeset
1130 if (*eap->arg != NUL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1131 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1132 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1133 * ":args file ..": define new argument list, handle like ":next"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1134 * Also for ":argslocal file .." and ":argsglobal file ..".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1135 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1136 ex_next(eap);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1137 }
13553
04019fc3de93 patch 8.0.1650: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13551
diff changeset
1138 else if (eap->cmdidx == CMD_args)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1139 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1140 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1141 * ":args": list arguments.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1142 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1143 if (ARGCOUNT > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1144 {
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
1145 char_u **items = ALLOC_MULT(char_u *, ARGCOUNT);
13732
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1146
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1147 if (items != NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1148 {
13732
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1149 /* Overwrite the command, for a short list there is no
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1150 * scrolling required and no wait_return(). */
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1151 gotocmdline(TRUE);
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1152
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1153 for (i = 0; i < ARGCOUNT; ++i)
13736
f340b53422c2 patch 8.0.1740: warning for signed-unsigned incompatibility
Christian Brabandt <cb@256bit.org>
parents: 13732
diff changeset
1154 items[i] = alist_name(&ARGLIST[i]);
13732
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1155 list_in_columns(items, ARGCOUNT, curwin->w_arg_idx);
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read
Christian Brabandt <cb@256bit.org>
parents: 13724
diff changeset
1156 vim_free(items);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1157 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1158 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1159 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1160 else if (eap->cmdidx == CMD_arglocal)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1161 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1162 garray_T *gap = &curwin->w_alist->al_ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1163
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1164 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1165 * ":argslocal": make a local copy of the global argument list.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1166 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1167 if (ga_grow(gap, GARGCOUNT) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1168 for (i = 0; i < GARGCOUNT; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1169 if (GARGLIST[i].ae_fname != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1170 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1171 AARGLIST(curwin->w_alist)[gap->ga_len].ae_fname =
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1172 vim_strsave(GARGLIST[i].ae_fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1173 AARGLIST(curwin->w_alist)[gap->ga_len].ae_fnum =
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1174 GARGLIST[i].ae_fnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1175 ++gap->ga_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1176 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1177 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1178 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1179
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1180 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1181 * ":previous", ":sprevious", ":Next" and ":sNext".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1182 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1183 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1184 ex_previous(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1185 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1186 /* If past the last one already, go to the last one. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1187 if (curwin->w_arg_idx - (int)eap->line2 >= ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1188 do_argfile(eap, ARGCOUNT - 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1189 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1190 do_argfile(eap, curwin->w_arg_idx - (int)eap->line2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1191 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1192
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1193 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1194 * ":rewind", ":first", ":sfirst" and ":srewind".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1195 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1196 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1197 ex_rewind(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1198 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1199 do_argfile(eap, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1200 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1201
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1202 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1203 * ":last" and ":slast".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1204 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1205 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1206 ex_last(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1207 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1208 do_argfile(eap, ARGCOUNT - 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1209 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1210
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1211 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1212 * ":argument" and ":sargument".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1213 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1214 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1215 ex_argument(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1216 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1217 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1218
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1219 if (eap->addr_count > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1220 i = eap->line2 - 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1221 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1222 i = curwin->w_arg_idx;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1223 do_argfile(eap, i);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1224 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1225
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1226 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1227 * Edit file "argn" of the argument lists.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1228 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1229 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1230 do_argfile(exarg_T *eap, int argn)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1231 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1232 int other;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1233 char_u *p;
271
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1234 int old_arg_idx = curwin->w_arg_idx;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1235
17111
af861fccc309 patch 8.1.1555: NOT_IN_POPUP_WINDOW is confusing
Bram Moolenaar <Bram@vim.org>
parents: 16996
diff changeset
1236 if (ERROR_IF_POPUP_WINDOW)
16874
da5f5836e90c patch 8.1.1438: some commands cause trouble in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 16872
diff changeset
1237 return;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1238 if (argn < 0 || argn >= ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1239 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1240 if (ARGCOUNT <= 1)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1241 emsg(_("E163: There is only one file to edit"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1242 else if (argn < 0)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1243 emsg(_("E164: Cannot go before first file"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1244 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1245 emsg(_("E165: Cannot go beyond last file"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1246 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1247 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1248 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1249 setpcmark();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1250 #ifdef FEAT_GUI
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1251 need_mouse_correct = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1252 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1253
683
a39b8af64334 updated for version 7.0205
vimboss
parents: 681
diff changeset
1254 /* split window or create new tab page first */
a39b8af64334 updated for version 7.0205
vimboss
parents: 681
diff changeset
1255 if (*eap->cmd == 's' || cmdmod.tab != 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1256 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1257 if (win_split(0, 0) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1258 return;
2583
7c2e6ba1d702 updated for version 7.3.008
Bram Moolenaar <bram@vim.org>
parents: 2419
diff changeset
1259 RESET_BINDING(curwin);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1260 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1261 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1262 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1263 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1264 * if 'hidden' set, only check for changed file when re-editing
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1265 * the same buffer
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1266 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1267 other = TRUE;
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
1268 if (buf_hide(curbuf))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1269 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1270 p = fix_fname(alist_name(&ARGLIST[argn]));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1271 other = otherfile(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1272 vim_free(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1273 }
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
1274 if ((!buf_hide(curbuf) || !other)
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1275 && check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1276 | (other ? 0 : CCGD_MULTWIN)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1277 | (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1278 | CCGD_EXCMD))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1279 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1280 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1281
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1282 curwin->w_arg_idx = argn;
12477
68d7bc045dbe patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 12459
diff changeset
1283 if (argn == ARGCOUNT - 1 && curwin->w_alist == &global_alist)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1284 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1285
271
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1286 /* Edit the file; always use the last known line number.
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1287 * When it fails (e.g. Abort for already edited file) restore the
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1288 * argument index. */
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1289 if (do_ecmd(0, alist_name(&ARGLIST[curwin->w_arg_idx]), NULL,
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1290 eap, ECMD_LAST,
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
1291 (buf_hide(curwin->w_buffer) ? ECMD_HIDE : 0)
1743
734d5bdae499 updated for version 7.2-041
vimboss
parents: 1714
diff changeset
1292 + (eap->forceit ? ECMD_FORCEIT : 0), curwin) == FAIL)
271
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1293 curwin->w_arg_idx = old_arg_idx;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1294 /* like Vi: set the mark where the cursor is in the file. */
271
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1295 else if (eap->cmdidx != CMD_argdo)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1296 setmark('\'');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1297 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1298 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1299
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1300 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1301 * ":next", and commands that behave like it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1302 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1303 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1304 ex_next(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1305 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1306 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1307
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1308 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1309 * check for changed buffer now, if this fails the argument list is not
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1310 * redefined.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1311 */
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
1312 if ( buf_hide(curbuf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1313 || eap->cmdidx == CMD_snext
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1314 || !check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1315 | (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1316 | CCGD_EXCMD))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1317 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1318 if (*eap->arg != NUL) /* redefine file list */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1319 {
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1320 if (do_arglist(eap->arg, AL_SET, 0, TRUE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1321 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1322 i = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1323 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1324 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1325 i = curwin->w_arg_idx + (int)eap->line2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1326 do_argfile(eap, i);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1327 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1328 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1329
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1330 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1331 * ":argedit"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1332 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1333 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1334 ex_argedit(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1335 {
11676
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1336 int i = eap->addr_count ? (int)eap->line2 : curwin->w_arg_idx + 1;
13782
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer
Christian Brabandt <cb@256bit.org>
parents: 13762
diff changeset
1337 // Whether curbuf will be reused, curbuf->b_ffname will be set.
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer
Christian Brabandt <cb@256bit.org>
parents: 13762
diff changeset
1338 int curbuf_is_reusable = curbuf_reusable();
11676
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1339
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1340 if (do_arglist(eap->arg, AL_ADD, i, TRUE) == FAIL)
11676
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1341 return;
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1342 #ifdef FEAT_TITLE
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1343 maketitle();
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1344 #endif
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1345
13782
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer
Christian Brabandt <cb@256bit.org>
parents: 13762
diff changeset
1346 if (curwin->w_arg_idx == 0
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer
Christian Brabandt <cb@256bit.org>
parents: 13762
diff changeset
1347 && (curbuf->b_ml.ml_flags & ML_EMPTY)
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer
Christian Brabandt <cb@256bit.org>
parents: 13762
diff changeset
1348 && (curbuf->b_ffname == NULL || curbuf_is_reusable))
11676
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1349 i = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1350 /* Edit the argument. */
11676
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1351 if (i < ARGCOUNT)
f87c43fca41d patch 8.0.0721: :argedit can only have one argument
Christian Brabandt <cb@256bit.org>
parents: 11645
diff changeset
1352 do_argfile(eap, i);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1353 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1354
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1355 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1356 * ":argadd"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1357 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1358 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1359 ex_argadd(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1360 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1361 do_arglist(eap->arg, AL_ADD,
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1362 eap->addr_count > 0 ? (int)eap->line2 : curwin->w_arg_idx + 1,
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1363 FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1364 #ifdef FEAT_TITLE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1365 maketitle();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1366 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1367 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1368
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1369 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1370 * ":argdelete"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1371 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1372 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1373 ex_argdelete(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1374 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1375 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1376 int n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1377
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1378 if (eap->addr_count > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1379 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1380 /* ":1,4argdel": Delete all arguments in the range. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1381 if (eap->line2 > ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1382 eap->line2 = ARGCOUNT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1383 n = eap->line2 - eap->line1 + 1;
11103
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1384 if (*eap->arg != NUL)
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1385 /* Can't have both a range and an argument. */
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1386 emsg(_(e_invarg));
11103
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1387 else if (n <= 0)
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1388 {
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1389 /* Don't give an error for ":%argdel" if the list is empty. */
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1390 if (eap->line1 != 1 || eap->line2 != 0)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1391 emsg(_(e_invrange));
11103
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist
Christian Brabandt <cb@256bit.org>
parents: 10837
diff changeset
1392 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1393 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1394 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1395 for (i = eap->line1; i <= eap->line2; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1396 vim_free(ARGLIST[i - 1].ae_fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1397 mch_memmove(ARGLIST + eap->line1 - 1, ARGLIST + eap->line2,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1398 (size_t)((ARGCOUNT - eap->line2) * sizeof(aentry_T)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1399 ALIST(curwin)->al_ga.ga_len -= n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1400 if (curwin->w_arg_idx >= eap->line2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1401 curwin->w_arg_idx -= n;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1402 else if (curwin->w_arg_idx > eap->line1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1403 curwin->w_arg_idx = eap->line1;
7639
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e
Christian Brabandt <cb@256bit.org>
parents: 7625
diff changeset
1404 if (ARGCOUNT == 0)
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e
Christian Brabandt <cb@256bit.org>
parents: 7625
diff changeset
1405 curwin->w_arg_idx = 0;
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e
Christian Brabandt <cb@256bit.org>
parents: 7625
diff changeset
1406 else if (curwin->w_arg_idx >= ARGCOUNT)
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e
Christian Brabandt <cb@256bit.org>
parents: 7625
diff changeset
1407 curwin->w_arg_idx = ARGCOUNT - 1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1408 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1409 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1410 else if (*eap->arg == NUL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1411 emsg(_(e_argreq));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1412 else
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1413 do_arglist(eap->arg, AL_DEL, 0, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1414 #ifdef FEAT_TITLE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1415 maketitle();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1416 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1417 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1418
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1419 /*
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1420 * ":argdo", ":windo", ":bufdo", ":tabdo", ":cdo", ":ldo", ":cfdo" and ":lfdo"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1421 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1422 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1423 ex_listdo(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1424 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1425 int i;
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1426 win_T *wp;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1427 tabpage_T *tp;
6641
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1428 buf_T *buf = curbuf;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1429 int next_fnum = 0;
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
1430 #if defined(FEAT_SYN_HL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1431 char_u *save_ei = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1432 #endif
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1433 char_u *p_shm_save;
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1434 #ifdef FEAT_QUICKFIX
7107
84efaf06f195 commit https://github.com/vim/vim/commit/ed84b76021df763619cabaedddc44eb5ee849136
Christian Brabandt <cb@256bit.org>
parents: 7092
diff changeset
1435 int qf_size = 0;
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1436 int qf_idx;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1437 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1438
8220
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1439 #ifndef FEAT_QUICKFIX
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1440 if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo ||
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1441 eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1442 {
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1443 ex_ni(eap);
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1444 return;
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1445 }
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1446 #endif
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
1447
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
1448 #if defined(FEAT_SYN_HL)
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
1449 if (eap->cmdidx != CMD_windo && eap->cmdidx != CMD_tabdo)
123
f67f8a8d81ba updated for version 7.0043
vimboss
parents: 45
diff changeset
1450 /* Don't do syntax HL autocommands. Skipping the syntax file is a
f67f8a8d81ba updated for version 7.0043
vimboss
parents: 45
diff changeset
1451 * great speed improvement. */
f67f8a8d81ba updated for version 7.0043
vimboss
parents: 45
diff changeset
1452 save_ei = au_event_disable(",Syntax");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1453 #endif
6116
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1454 #ifdef FEAT_CLIPBOARD
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1455 start_global_changes();
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1456 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1457
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1458 if (eap->cmdidx == CMD_windo
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1459 || eap->cmdidx == CMD_tabdo
11957
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job
Christian Brabandt <cb@256bit.org>
parents: 11935
diff changeset
1460 || buf_hide(curbuf)
5464
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1461 || !check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1462 | (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082
Bram Moolenaar <bram@vim.org>
parents: 5027
diff changeset
1463 | CCGD_EXCMD))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1464 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1465 i = 0;
6474
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1466 /* start at the eap->line1 argument/window/buffer */
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1467 wp = firstwin;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1468 tp = first_tabpage;
6474
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1469 switch (eap->cmdidx)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1470 {
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1471 case CMD_windo:
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1472 for ( ; wp != NULL && i + 1 < eap->line1; wp = wp->w_next)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1473 i++;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1474 break;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1475 case CMD_tabdo:
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1476 for( ; tp != NULL && i + 1 < eap->line1; tp = tp->tp_next)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1477 i++;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1478 break;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1479 case CMD_argdo:
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1480 i = eap->line1 - 1;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1481 break;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1482 default:
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1483 break;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1484 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1485 /* set pcmark now */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1486 if (eap->cmdidx == CMD_bufdo)
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1487 {
6641
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1488 /* Advance to the first listed buffer after "eap->line1". */
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1489 for (buf = firstbuf; buf != NULL && (buf->b_fnum < eap->line1
6641
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1490 || !buf->b_p_bl); buf = buf->b_next)
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1491 if (buf->b_fnum > eap->line2)
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1492 {
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1493 buf = NULL;
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1494 break;
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1495 }
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1496 if (buf != NULL)
6641
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1497 goto_buffer(eap, DOBUF_FIRST, FORWARD, buf->b_fnum);
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1498 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1499 #ifdef FEAT_QUICKFIX
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1500 else if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1501 || eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1502 {
16515
6e87a69b8e0c patch 8.1.1261: no error for quickfix commands with negative range
Bram Moolenaar <Bram@vim.org>
parents: 16381
diff changeset
1503 qf_size = qf_get_valid_size(eap);
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1504 if (qf_size <= 0 || eap->line1 > qf_size)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1505 buf = NULL;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1506 else
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1507 {
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1508 ex_cc(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1509
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1510 buf = curbuf;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1511 i = eap->line1 - 1;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1512 if (eap->addr_count <= 0)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1513 /* default is all the quickfix/location list entries */
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1514 eap->line2 = qf_size;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1515 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1516 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1517 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1518 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1519 setpcmark();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1520 listcmd_busy = TRUE; /* avoids setting pcmark below */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1521
6641
ceda6d8af447 updated for version 7.4.646
Bram Moolenaar <bram@vim.org>
parents: 6474
diff changeset
1522 while (!got_int && buf != NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1523 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1524 if (eap->cmdidx == CMD_argdo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1525 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1526 /* go to argument "i" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1527 if (i == ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1528 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1529 /* Don't call do_argfile() when already there, it will try
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1530 * reloading the file. */
22
cc049b00ee70 updated for version 7.0014
vimboss
parents: 20
diff changeset
1531 if (curwin->w_arg_idx != i || !editing_arg_idx(curwin))
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1532 {
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1533 /* Clear 'shm' to avoid that the file message overwrites
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1534 * any output from the command. */
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1535 p_shm_save = vim_strsave(p_shm);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1536 set_option_value((char_u *)"shm", 0L, (char_u *)"", 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1537 do_argfile(eap, i);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1538 set_option_value((char_u *)"shm", 0L, p_shm_save, 0);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1539 vim_free(p_shm_save);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1540 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1541 if (curwin->w_arg_idx != i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1542 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1543 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1544 else if (eap->cmdidx == CMD_windo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1545 {
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1546 /* go to window "wp" */
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1547 if (!win_valid(wp))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1548 break;
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1549 win_goto(wp);
1115
11c004cc1a4d updated for version 7.0-241
vimboss
parents: 1069
diff changeset
1550 if (curwin != wp)
11c004cc1a4d updated for version 7.0-241
vimboss
parents: 1069
diff changeset
1551 break; /* something must be wrong */
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1552 wp = curwin->w_next;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1553 }
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1554 else if (eap->cmdidx == CMD_tabdo)
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1555 {
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1556 /* go to window "tp" */
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1557 if (!valid_tabpage(tp))
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1558 break;
4354
c80838526eeb updated for version 7.3.926
Bram Moolenaar <bram@vim.org>
parents: 4352
diff changeset
1559 goto_tabpage_tp(tp, TRUE, TRUE);
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 683
diff changeset
1560 tp = tp->tp_next;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1561 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1562 else if (eap->cmdidx == CMD_bufdo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1563 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1564 /* Remember the number of the next listed buffer, in case
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1565 * ":bwipe" is used or autocommands do something strange. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1566 next_fnum = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1567 for (buf = curbuf->b_next; buf != NULL; buf = buf->b_next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1568 if (buf->b_p_bl)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1569 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1570 next_fnum = buf->b_fnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1571 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1572 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1573 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1574
6474
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1575 ++i;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1576
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1577 /* execute the command */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1578 do_cmdline(eap->arg, eap->getline, eap->cookie,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1579 DOCMD_VERBOSE + DOCMD_NOWAIT);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1580
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1581 if (eap->cmdidx == CMD_bufdo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1582 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1583 /* Done? */
6474
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1584 if (next_fnum < 0 || next_fnum > eap->line2)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1585 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1586 /* Check if the buffer still exists. */
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
1587 FOR_ALL_BUFFERS(buf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1588 if (buf->b_fnum == next_fnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1589 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1590 if (buf == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1591 break;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1592
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1593 /* Go to the next buffer. Clear 'shm' to avoid that the file
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1594 * message overwrites any output from the command. */
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1595 p_shm_save = vim_strsave(p_shm);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1596 set_option_value((char_u *)"shm", 0L, (char_u *)"", 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1597 goto_buffer(eap, DOBUF_FIRST, FORWARD, next_fnum);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1598 set_option_value((char_u *)"shm", 0L, p_shm_save, 0);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1599 vim_free(p_shm_save);
410fa1a31baf updated for version 7.0023
vimboss
parents: 29
diff changeset
1600
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1601 /* If autocommands took us elsewhere, quit here. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1602 if (curbuf->b_fnum != next_fnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1603 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1604 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1605
7092
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1606 #ifdef FEAT_QUICKFIX
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1607 if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1608 || eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1609 {
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1610 if (i >= qf_size || i >= eap->line2)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1611 break;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1612
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1613 qf_idx = qf_get_cur_idx(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1614
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1615 ex_cnext(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1616
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1617 /* If jumping to the next quickfix entry fails, quit here */
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1618 if (qf_get_cur_idx(eap) == qf_idx)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1619 break;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1620 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1621 #endif
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents: 7009
diff changeset
1622
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1623 if (eap->cmdidx == CMD_windo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1624 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1625 validate_cursor(); /* cursor may have moved */
13384
6740c499de13 patch 8.0.1566: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13380
diff changeset
1626
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1627 /* required when 'scrollbind' has been set */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1628 if (curwin->w_p_scb)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1629 do_check_scrollbind(TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1630 }
6474
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1631
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1632 if (eap->cmdidx == CMD_windo || eap->cmdidx == CMD_tabdo)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1633 if (i+1 > eap->line2)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1634 break;
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1635 if (eap->cmdidx == CMD_argdo && i >= eap->line2)
a88d4dc02bf4 updated for version 7.4.566
Bram Moolenaar <bram@vim.org>
parents: 6375
diff changeset
1636 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1637 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1638 listcmd_busy = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1639 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1640
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
1641 #if defined(FEAT_SYN_HL)
154
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1642 if (save_ei != NULL)
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1643 {
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1644 au_event_restore(save_ei);
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1645 apply_autocmds(EVENT_SYNTAX, curbuf->b_p_syn,
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1646 curbuf->b_fname, TRUE, curbuf);
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
1647 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1648 #endif
6116
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1649 #ifdef FEAT_CLIPBOARD
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1650 end_global_changes();
7766142fc7d3 updated for version 7.4.396
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
1651 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1652 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1653
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1654 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1655 * Add files[count] to the arglist of the current window after arg "after".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1656 * The file names in files[count] must have been allocated and are taken over.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1657 * Files[] itself is not taken over.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1658 */
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1659 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1660 alist_add_list(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1661 int count,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1662 char_u **files,
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1663 int after, // where to add: 0 = before first one
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1664 int will_edit) // will edit adding argument
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1665 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1666 int i;
7647
65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec
Christian Brabandt <cb@256bit.org>
parents: 7639
diff changeset
1667 int old_argcount = ARGCOUNT;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1668
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1669 if (ga_grow(&ALIST(curwin)->al_ga, count) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1670 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1671 if (after < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1672 after = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1673 if (after > ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1674 after = ARGCOUNT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1675 if (after < ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1676 mch_memmove(&(ARGLIST[after + count]), &(ARGLIST[after]),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1677 (ARGCOUNT - after) * sizeof(aentry_T));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1678 for (i = 0; i < count; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1679 {
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1680 int flags = BLN_LISTED | (will_edit ? BLN_CURBUF : 0);
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1681
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1682 ARGLIST[after + i].ae_fname = files[i];
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1683 ARGLIST[after + i].ae_fnum = buflist_add(files[i], flags);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1684 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1685 ALIST(curwin)->al_ga.ga_len += count;
7647
65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec
Christian Brabandt <cb@256bit.org>
parents: 7639
diff changeset
1686 if (old_argcount > 0 && curwin->w_arg_idx >= after)
65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec
Christian Brabandt <cb@256bit.org>
parents: 7639
diff changeset
1687 curwin->w_arg_idx += count;
14656
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name
Christian Brabandt <cb@256bit.org>
parents: 14642
diff changeset
1688 return;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1689 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1690
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1691 for (i = 0; i < count; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1692 vim_free(files[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1693 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1694
13551
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1695 #if defined(FEAT_CMDL_COMPL) || defined(PROTO)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1696 /*
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1697 * Function given to ExpandGeneric() to obtain the possible arguments of the
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1698 * argedit and argdelete commands.
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1699 */
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1700 char_u *
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1701 get_arglist_name(expand_T *xp UNUSED, int idx)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1702 {
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1703 if (idx >= ARGCOUNT)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1704 return NULL;
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1705
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1706 return alist_name(&ARGLIST[idx]);
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1707 }
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1708 #endif
1fd0f8392946 patch 8.0.1649: no completion for argument list commands
Christian Brabandt <cb@256bit.org>
parents: 13438
diff changeset
1709
13553
04019fc3de93 patch 8.0.1650: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13551
diff changeset
1710
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1711 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1712 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1713 * ":compiler[!] {name}"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1714 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1715 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1716 ex_compiler(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1717 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1718 char_u *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1719 char_u *old_cur_comp = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1720 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1721
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1722 if (*eap->arg == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1723 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1724 /* List all compiler scripts. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1725 do_cmdline_cmd((char_u *)"echo globpath(&rtp, 'compiler/*.vim')");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1726 /* ) keep the indenter happy... */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1727 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1728 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1729 {
16764
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16738
diff changeset
1730 buf = alloc(STRLEN(eap->arg) + 14);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1731 if (buf != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1732 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1733 if (eap->forceit)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1734 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1735 /* ":compiler! {name}" sets global options */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1736 do_cmdline_cmd((char_u *)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1737 "command -nargs=* CompilerSet set <args>");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1738 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1739 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1740 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1741 /* ":compiler! {name}" sets local options.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1742 * To remain backwards compatible "current_compiler" is always
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1743 * used. A user's compiler plugin may set it, the distributed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1744 * plugin will then skip the settings. Afterwards set
2051
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1745 * "b:current_compiler" and restore "current_compiler".
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1746 * Explicitly prepend "g:" to make it work in a function. */
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1747 old_cur_comp = get_var_value((char_u *)"g:current_compiler");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1748 if (old_cur_comp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1749 old_cur_comp = vim_strsave(old_cur_comp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1750 do_cmdline_cmd((char_u *)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1751 "command -nargs=* CompilerSet setlocal <args>");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1752 }
2051
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1753 do_unlet((char_u *)"g:current_compiler", TRUE);
148
72aefd4c1e0d updated for version 7.0046
vimboss
parents: 123
diff changeset
1754 do_unlet((char_u *)"b:current_compiler", TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1755
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1756 sprintf((char *)buf, "compiler/%s.vim", eap->arg);
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1757 if (source_runtime(buf, DIP_ALL) == FAIL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1758 semsg(_("E666: compiler not supported: %s"), eap->arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1759 vim_free(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1760
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1761 do_cmdline_cmd((char_u *)":delcommand CompilerSet");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1762
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1763 /* Set "b:current_compiler" from "current_compiler". */
2051
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1764 p = get_var_value((char_u *)"g:current_compiler");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1765 if (p != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1766 set_internal_string_var((char_u *)"b:current_compiler", p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1767
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1768 /* Restore "current_compiler" for ":compiler {name}". */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1769 if (!eap->forceit)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1770 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1771 if (old_cur_comp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1772 {
2051
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1773 set_internal_string_var((char_u *)"g:current_compiler",
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1774 old_cur_comp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1775 vim_free(old_cur_comp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1776 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1777 else
2051
ef2890033e88 updated for version 7.2.337
Bram Moolenaar <bram@zimbu.org>
parents: 1882
diff changeset
1778 do_unlet((char_u *)"g:current_compiler", TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1779 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1780 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1781 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1782 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1783 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1784
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1785 /*
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1786 * ":runtime [what] {name}"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1787 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1788 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1789 ex_runtime(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1790 {
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1791 char_u *arg = eap->arg;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1792 char_u *p = skiptowhite(arg);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1793 int len = (int)(p - arg);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1794 int flags = eap->forceit ? DIP_ALL : 0;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1795
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1796 if (STRNCMP(arg, "START", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1797 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1798 flags += DIP_START + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1799 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1800 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1801 else if (STRNCMP(arg, "OPT", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1802 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1803 flags += DIP_OPT + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1804 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1805 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1806 else if (STRNCMP(arg, "PACK", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1807 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1808 flags += DIP_START + DIP_OPT + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1809 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1810 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1811 else if (STRNCMP(arg, "ALL", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1812 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1813 flags += DIP_START + DIP_OPT;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1814 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1815 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1816
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1817 source_runtime(arg, flags);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1818 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1819
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1820 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1821 source_callback(char_u *fname, void *cookie UNUSED)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1822 {
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
1823 (void)do_source(fname, FALSE, DOSO_NONE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1824 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1825
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1826 /*
8416
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1827 * Find the file "name" in all directories in "path" and invoke
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1828 * "callback(fname, cookie)".
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1829 * "name" can contain wildcards.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1830 * When "flags" has DIP_ALL: source all files, otherwise only the first one.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1831 * When "flags" has DIP_DIR: find directories instead of files.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1832 * When "flags" has DIP_ERR: give an error message if there is no match.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1833 *
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1834 * return FAIL when no file could be sourced, OK otherwise.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1835 */
8522
721e8d6cb7b5 commit https://github.com/vim/vim/commit/6bef5306e4f2cacb3a93667992c2312d4b293c9d
Christian Brabandt <cb@256bit.org>
parents: 8520
diff changeset
1836 int
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1837 do_in_path(
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1838 char_u *path,
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1839 char_u *name,
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
1840 int flags,
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1841 void (*callback)(char_u *fname, void *ck),
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
1842 void *cookie)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1843 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1844 char_u *rtp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1845 char_u *np;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1846 char_u *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1847 char_u *rtp_copy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1848 char_u *tail;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1849 int num_files;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1850 char_u **files;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1851 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1852 int did_one = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1853 #ifdef AMIGA
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1854 struct Process *proc = (struct Process *)FindTask(0L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1855 APTR save_winptr = proc->pr_WindowPtr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1856
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1857 /* Avoid a requester here for a volume that doesn't exist. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1858 proc->pr_WindowPtr = (APTR)-1L;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1859 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1860
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1861 /* Make a copy of 'runtimepath'. Invoking the callback may change the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1862 * value. */
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1863 rtp_copy = vim_strsave(path);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1864 buf = alloc(MAXPATHL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1865 if (buf != NULL && rtp_copy != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1866 {
4833
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1867 if (p_verbose > 1 && name != NULL)
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1868 {
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1869 verbose_enter();
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1870 smsg(_("Searching for \"%s\" in \"%s\""),
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1871 (char *)name, (char *)path);
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1872 verbose_leave();
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1873 }
271
8d34af900bae updated for version 7.0072
vimboss
parents: 253
diff changeset
1874
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1875 /* Loop over all entries in 'runtimepath'. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1876 rtp = rtp_copy;
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
1877 while (*rtp != NUL && ((flags & DIP_ALL) || !did_one))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1878 {
9778
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1879 size_t buflen;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1880
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1881 /* Copy the path from 'runtimepath' to buf[]. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1882 copy_option_part(&rtp, buf, MAXPATHL, ",");
9778
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1883 buflen = STRLEN(buf);
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1884
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1885 /* Skip after or non-after directories. */
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1886 if (flags & (DIP_NOAFTER | DIP_AFTER))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1887 {
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1888 int is_after = buflen >= 5
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1889 && STRCMP(buf + buflen - 5, "after") == 0;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1890
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1891 if ((is_after && (flags & DIP_NOAFTER))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1892 || (!is_after && (flags & DIP_AFTER)))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1893 continue;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1894 }
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1895
4833
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1896 if (name == NULL)
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1897 {
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1898 (*callback)(buf, (void *) &cookie);
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1899 if (!did_one)
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1900 did_one = (cookie == NULL);
70b1178dec79 updated for version 7.3.1163
Bram Moolenaar <bram@vim.org>
parents: 4825
diff changeset
1901 }
9778
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359
Christian Brabandt <cb@256bit.org>
parents: 9709
diff changeset
1902 else if (buflen + STRLEN(name) + 2 < MAXPATHL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1903 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1904 add_pathsep(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1905 tail = buf + STRLEN(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1906
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1907 /* Loop over all patterns in "name" */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1908 np = name;
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
1909 while (*np != NUL && ((flags & DIP_ALL) || !did_one))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1910 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1911 /* Append the pattern from "name" to buf[]. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1912 copy_option_part(&np, tail, (int)(MAXPATHL - (tail - buf)),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1913 "\t ");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1914
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1915 if (p_verbose > 2)
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1916 {
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1917 verbose_enter();
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1918 smsg(_("Searching for \"%s\""), buf);
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1919 verbose_leave();
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1920 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1921
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1922 /* Expand wildcards, invoke the callback for each match. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1923 if (gen_expand_wildcards(1, &buf, &num_files, &files,
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
1924 (flags & DIP_DIR) ? EW_DIR : EW_FILE) == OK)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1925 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1926 for (i = 0; i < num_files; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1927 {
237
73354c21f1e4 updated for version 7.0066
vimboss
parents: 205
diff changeset
1928 (*callback)(files[i], cookie);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1929 did_one = TRUE;
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
1930 if (!(flags & DIP_ALL))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1931 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1932 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1933 FreeWild(num_files, files);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1934 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1935 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1936 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1937 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1938 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1939 vim_free(buf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1940 vim_free(rtp_copy);
8416
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1941 if (!did_one && name != NULL)
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1942 {
8416
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1943 char *basepath = path == p_rtp ? "runtimepath" : "packpath";
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1944
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1945 if (flags & DIP_ERR)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1946 semsg(_(e_dirnotf), basepath, name);
8416
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1947 else if (p_verbose > 0)
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1948 {
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1949 verbose_enter();
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
1950 smsg(_("not found in '%s': \"%s\""), basepath, name);
8416
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1951 verbose_leave();
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0
Christian Brabandt <cb@256bit.org>
parents: 8388
diff changeset
1952 }
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
1953 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1954
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1955 #ifdef AMIGA
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1956 proc->pr_WindowPtr = save_winptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1957 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1958
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1959 return did_one ? OK : FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1960 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1961
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1962 /*
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1963 * Find "name" in "path". When found, invoke the callback function for
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1964 * it: callback(fname, "cookie")
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1965 * When "flags" has DIP_ALL repeat for all matches, otherwise only the first
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1966 * one is used.
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1967 * Returns OK when at least one match found, FAIL otherwise.
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1968 *
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1969 * If "name" is NULL calls callback for each entry in "path". Cookie is
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1970 * passed by reference in this case, setting it to NULL indicates that callback
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1971 * has done its job.
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1972 */
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1973 static int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1974 do_in_path_and_pp(
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1975 char_u *path,
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1976 char_u *name,
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1977 int flags,
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1978 void (*callback)(char_u *fname, void *ck),
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1979 void *cookie)
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
1980 {
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1981 int done = FAIL;
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1982 char_u *s;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1983 int len;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1984 char *start_dir = "pack/*/start/*/%s";
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1985 char *opt_dir = "pack/*/opt/*/%s";
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1986
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1987 if ((flags & DIP_NORTP) == 0)
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
1988 done = do_in_path(path, name, flags, callback, cookie);
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1989
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
1990 if ((done == FAIL || (flags & DIP_ALL)) && (flags & DIP_START))
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1991 {
8595
887b378f29d1 commit https://github.com/vim/vim/commit/1c8b4edb9b6cd5248925f3f06ec82486be9fb4ea
Christian Brabandt <cb@256bit.org>
parents: 8587
diff changeset
1992 len = (int)(STRLEN(start_dir) + STRLEN(name));
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1993 s = alloc(len);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1994 if (s == NULL)
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1995 return FAIL;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1996 vim_snprintf((char *)s, len, start_dir, name);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1997 done = do_in_path(p_pp, s, flags, callback, cookie);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1998 vim_free(s);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
1999 }
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2000
8526
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9
Christian Brabandt <cb@256bit.org>
parents: 8524
diff changeset
2001 if ((done == FAIL || (flags & DIP_ALL)) && (flags & DIP_OPT))
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2002 {
8595
887b378f29d1 commit https://github.com/vim/vim/commit/1c8b4edb9b6cd5248925f3f06ec82486be9fb4ea
Christian Brabandt <cb@256bit.org>
parents: 8587
diff changeset
2003 len = (int)(STRLEN(opt_dir) + STRLEN(name));
8524
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2004 s = alloc(len);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2005 if (s == NULL)
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2006 return FAIL;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2007 vim_snprintf((char *)s, len, opt_dir, name);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2008 done = do_in_path(p_pp, s, flags, callback, cookie);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2009 vim_free(s);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2010 }
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2011
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents: 8522
diff changeset
2012 return done;
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2013 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2014
8372
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2015 /*
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2016 * Just like do_in_path_and_pp(), using 'runtimepath' for "path".
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2017 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2018 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2019 do_in_runtimepath(
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2020 char_u *name,
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2021 int flags,
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2022 void (*callback)(char_u *fname, void *ck),
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2023 void *cookie)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2024 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2025 return do_in_path_and_pp(p_rtp, name, flags, callback, cookie);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2026 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2027
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2028 /*
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2029 * Source the file "name" from all directories in 'runtimepath'.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2030 * "name" can contain wildcards.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2031 * When "flags" has DIP_ALL: source all files, otherwise only the first one.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2032 *
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2033 * return FAIL when no file could be sourced, OK otherwise.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2034 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2035 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2036 source_runtime(char_u *name, int flags)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2037 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2038 return source_in_path(p_rtp, name, flags);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2039 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2040
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2041 /*
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2042 * Just like source_runtime(), but use "path" instead of 'runtimepath'.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2043 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2044 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2045 source_in_path(char_u *path, char_u *name, int flags)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2046 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2047 return do_in_path_and_pp(path, name, flags, source_callback, NULL);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2048 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2049
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2050
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2051 #if defined(FEAT_EVAL) || defined(PROTO)
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2052
11595
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice
Christian Brabandt <cb@256bit.org>
parents: 11575
diff changeset
2053 /*
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2054 * Expand wildcards in "pat" and invoke do_source() for each match.
8372
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2055 */
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2056 static void
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2057 source_all_matches(char_u *pat)
8372
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2058 {
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2059 int num_files;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2060 char_u **files;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2061 int i;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2062
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2063 if (gen_expand_wildcards(1, &pat, &num_files, &files, EW_FILE) == OK)
8372
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2064 {
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2065 for (i = 0; i < num_files; ++i)
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2066 (void)do_source(files[i], FALSE, DOSO_NONE);
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2067 FreeWild(num_files, files);
8372
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2068 }
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2069 }
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5
Christian Brabandt <cb@256bit.org>
parents: 8368
diff changeset
2070
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2071 /*
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2072 * Add the package directory to 'runtimepath'.
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2073 */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2074 static int
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2075 add_pack_dir_to_rtp(char_u *fname)
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2076 {
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2077 char_u *p4, *p3, *p2, *p1, *p;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2078 char_u *entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2079 char_u *insp = NULL;
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2080 int c;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2081 char_u *new_rtp;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2082 int keep;
9155
e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
2083 size_t oldlen;
e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
2084 size_t addlen;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2085 size_t new_rtp_len;
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2086 char_u *afterdir = NULL;
9155
e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
2087 size_t afterlen = 0;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2088 char_u *after_insp = NULL;
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2089 char_u *ffname = NULL;
9410
5a095f9e77ed commit https://github.com/vim/vim/commit/fef524bbff9aa186838c35212b2f89f61d627cf8
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
2090 size_t fname_len;
10837
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link
Christian Brabandt <cb@256bit.org>
parents: 10722
diff changeset
2091 char_u *buf = NULL;
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link
Christian Brabandt <cb@256bit.org>
parents: 10722
diff changeset
2092 char_u *rtp_ffname;
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link
Christian Brabandt <cb@256bit.org>
parents: 10722
diff changeset
2093 int match;
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2094 int retval = FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2095
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2096 p4 = p3 = p2 = p1 = get_past_head(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2097 for (p = p1; *p; MB_PTR_ADV(p))
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2098 if (vim_ispathsep_nocolon(*p))
9383
2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b
Christian Brabandt <cb@256bit.org>
parents: 9282
diff changeset
2099 {
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2100 p4 = p3; p3 = p2; p2 = p1; p1 = p;
9383
2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b
Christian Brabandt <cb@256bit.org>
parents: 9282
diff changeset
2101 }
2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b
Christian Brabandt <cb@256bit.org>
parents: 9282
diff changeset
2102
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2103 /* now we have:
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2104 * rtp/pack/name/start/name
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2105 * p4 p3 p2 p1
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2106 *
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2107 * find the part up to "pack" in 'runtimepath' */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2108 c = *++p4; /* append pathsep in order to expand symlink */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2109 *p4 = NUL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2110 ffname = fix_fname(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2111 *p4 = c;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2112 if (ffname == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2113 return FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2114
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2115 // Find "ffname" in "p_rtp", ignoring '/' vs '\' differences.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2116 // Also stop at the first "after" directory.
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2117 fname_len = STRLEN(ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2118 buf = alloc(MAXPATHL);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2119 if (buf == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2120 goto theend;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2121 for (entry = p_rtp; *entry != NUL; )
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2122 {
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2123 char_u *cur_entry = entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2124
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2125 copy_option_part(&entry, buf, MAXPATHL, ",");
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2126 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2127 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2128 add_pathsep(buf);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2129 rtp_ffname = fix_fname(buf);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2130 if (rtp_ffname == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2131 goto theend;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2132 match = vim_fnamencmp(rtp_ffname, ffname, fname_len) == 0;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2133 vim_free(rtp_ffname);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2134 if (match)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2135 // Insert "ffname" after this entry (and comma).
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2136 insp = entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2137 }
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2138
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2139 if ((p = (char_u *)strstr((char *)buf, "after")) != NULL
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2140 && p > buf
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2141 && vim_ispathsep(p[-1])
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2142 && (vim_ispathsep(p[5]) || p[5] == NUL || p[5] == ','))
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2143 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2144 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2145 // Did not find "ffname" before the first "after" directory,
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2146 // insert it before this entry.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2147 insp = cur_entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2148 after_insp = cur_entry;
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2149 break;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2150 }
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2151 }
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2152
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2153 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2154 // Both "fname" and "after" not found, append at the end.
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2155 insp = p_rtp + STRLEN(p_rtp);
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2156
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2157 // check if rtp/pack/name/start/name/after exists
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2158 afterdir = concat_fnames(fname, (char_u *)"after", TRUE);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2159 if (afterdir != NULL && mch_isdir(afterdir))
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2160 afterlen = STRLEN(afterdir) + 1; // add one for comma
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2161
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2162 oldlen = STRLEN(p_rtp);
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2163 addlen = STRLEN(fname) + 1; // add one for comma
16782
fc58fee685e2 patch 8.1.1393: unnecessary type casts
Bram Moolenaar <Bram@vim.org>
parents: 16764
diff changeset
2164 new_rtp = alloc(oldlen + addlen + afterlen + 1); // add one for NUL
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2165 if (new_rtp == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2166 goto theend;
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2167
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2168 // We now have 'rtp' parts: {keep}{keep_after}{rest}.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2169 // Create new_rtp, first: {keep},{fname}
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2170 keep = (int)(insp - p_rtp);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2171 mch_memmove(new_rtp, p_rtp, keep);
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2172 new_rtp_len = keep;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2173 if (*insp == NUL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2174 new_rtp[new_rtp_len++] = ','; // add comma before
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2175 mch_memmove(new_rtp + new_rtp_len, fname, addlen - 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2176 new_rtp_len += addlen - 1;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2177 if (*insp != NUL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2178 new_rtp[new_rtp_len++] = ','; // add comma after
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2179
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2180 if (afterlen > 0 && after_insp != NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2181 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2182 int keep_after = (int)(after_insp - p_rtp);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2183
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2184 // Add to new_rtp: {keep},{fname}{keep_after},{afterdir}
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2185 mch_memmove(new_rtp + new_rtp_len, p_rtp + keep,
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2186 keep_after - keep);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2187 new_rtp_len += keep_after - keep;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2188 mch_memmove(new_rtp + new_rtp_len, afterdir, afterlen - 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2189 new_rtp_len += afterlen - 1;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2190 new_rtp[new_rtp_len++] = ',';
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2191 keep = keep_after;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2192 }
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2193
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2194 if (p_rtp[keep] != NUL)
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2195 // Append rest: {keep},{fname}{keep_after},{afterdir}{rest}
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2196 mch_memmove(new_rtp + new_rtp_len, p_rtp + keep, oldlen - keep + 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2197 else
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2198 new_rtp[new_rtp_len] = NUL;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2199
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2200 if (afterlen > 0 && after_insp == NULL)
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2201 {
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2202 // Append afterdir when "after" was not found:
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2203 // {keep},{fname}{rest},{afterdir}
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2204 STRCAT(new_rtp, ",");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2205 STRCAT(new_rtp, afterdir);
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2206 }
14681
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp'
Christian Brabandt <cb@256bit.org>
parents: 14656
diff changeset
2207
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2208 set_option_value((char_u *)"rtp", 0L, new_rtp, 0);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2209 vim_free(new_rtp);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2210 retval = OK;
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2211
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2212 theend:
10837
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link
Christian Brabandt <cb@256bit.org>
parents: 10722
diff changeset
2213 vim_free(buf);
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2214 vim_free(ffname);
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2215 vim_free(afterdir);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2216 return retval;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2217 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2218
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2219 /*
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2220 * Load scripts in "plugin" and "ftdetect" directories of the package.
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2221 */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2222 static int
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2223 load_pack_plugin(char_u *fname)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2224 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2225 static char *plugpat = "%s/plugin/**/*.vim";
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2226 static char *ftpat = "%s/ftdetect/*.vim";
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2227 int len;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2228 char_u *ffname = fix_fname(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2229 char_u *pat = NULL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2230 int retval = FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2231
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2232 if (ffname == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2233 return FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2234 len = (int)STRLEN(ffname) + (int)STRLEN(ftpat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2235 pat = alloc(len);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2236 if (pat == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2237 goto theend;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2238 vim_snprintf((char *)pat, len, plugpat, ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2239 source_all_matches(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2240
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2241 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2242 char_u *cmd = vim_strsave((char_u *)"g:did_load_filetypes");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2243
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2244 /* If runtime/filetype.vim wasn't loaded yet, the scripts will be
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2245 * found when it loads. */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2246 if (cmd != NULL && eval_to_number(cmd) > 0)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2247 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2248 do_cmdline_cmd((char_u *)"augroup filetypedetect");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2249 vim_snprintf((char *)pat, len, ftpat, ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2250 source_all_matches(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2251 do_cmdline_cmd((char_u *)"augroup END");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2252 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2253 vim_free(cmd);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2254 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2255 vim_free(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2256 retval = OK;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2257
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2258 theend:
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2259 vim_free(ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2260 return retval;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2261 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2262
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2263 /* used for "cookie" of add_pack_plugin() */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2264 static int APP_ADD_DIR;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2265 static int APP_LOAD;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2266 static int APP_BOTH;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2267
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2268 static void
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2269 add_pack_plugin(char_u *fname, void *cookie)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2270 {
13724
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2271 if (cookie != &APP_LOAD)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2272 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2273 char_u *buf = alloc(MAXPATHL);
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2274 char_u *p;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2275 int found = FALSE;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2276
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2277 if (buf == NULL)
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2278 return;
13724
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2279 p = p_rtp;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2280 while (*p != NUL)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2281 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2282 copy_option_part(&p, buf, MAXPATHL, ",");
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2283 if (pathcmp((char *)buf, (char *)fname, -1) == 0)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2284 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2285 found = TRUE;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2286 break;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2287 }
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2288 }
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2289 vim_free(buf);
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2290 if (!found)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2291 /* directory is not yet in 'runtimepath', add it */
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2292 if (add_pack_dir_to_rtp(fname) == FAIL)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2293 return;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches
Christian Brabandt <cb@256bit.org>
parents: 13553
diff changeset
2294 }
13190
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2295
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2296 if (cookie != &APP_ADD_DIR)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong
Christian Brabandt <cb@256bit.org>
parents: 13045
diff changeset
2297 load_pack_plugin(fname);
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2298 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2299
11457
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2300 /*
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2301 * Add all packages in the "start" directory to 'runtimepath'.
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2302 */
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2303 void
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2304 add_pack_start_dirs(void)
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2305 {
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2306 do_in_path(p_pp, (char_u *)"pack/*/start/*", DIP_ALL + DIP_DIR,
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2307 add_pack_plugin, &APP_ADD_DIR);
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2308 }
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2309
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2310 /*
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2311 * Load plugins from all packages in the "start" directory.
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2312 */
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2313 void
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2314 load_start_packages(void)
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2315 {
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2316 did_source_packages = TRUE;
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2317 do_in_path(p_pp, (char_u *)"pack/*/start/*", DIP_ALL + DIP_DIR,
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2318 add_pack_plugin, &APP_LOAD);
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2319 }
8520
b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15
Christian Brabandt <cb@256bit.org>
parents: 8475
diff changeset
2320
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2321 /*
8520
b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15
Christian Brabandt <cb@256bit.org>
parents: 8475
diff changeset
2322 * ":packloadall"
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2323 * Find plugins in the package directories and source them.
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2324 */
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2325 void
8520
b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15
Christian Brabandt <cb@256bit.org>
parents: 8475
diff changeset
2326 ex_packloadall(exarg_T *eap)
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2327 {
11457
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2328 if (!did_source_packages || eap->forceit)
8520
b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15
Christian Brabandt <cb@256bit.org>
parents: 8475
diff changeset
2329 {
8849
9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086
Christian Brabandt <cb@256bit.org>
parents: 8823
diff changeset
2330 /* First do a round to add all directories to 'runtimepath', then load
9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086
Christian Brabandt <cb@256bit.org>
parents: 8823
diff changeset
2331 * the plugins. This allows for plugins to use an autoload directory
9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086
Christian Brabandt <cb@256bit.org>
parents: 8823
diff changeset
2332 * of another plugin. */
11457
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2333 add_pack_start_dirs();
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
2334 load_start_packages();
8520
b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15
Christian Brabandt <cb@256bit.org>
parents: 8475
diff changeset
2335 }
8182
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2336 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2337
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf
Christian Brabandt <cb@256bit.org>
parents: 8080
diff changeset
2338 /*
8388
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02
Christian Brabandt <cb@256bit.org>
parents: 8378
diff changeset
2339 * ":packadd[!] {name}"
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2340 */
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2341 void
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2342 ex_packadd(exarg_T *eap)
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2343 {
13045
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2344 static char *plugpat = "pack/*/%s/%s";
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2345 int len;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2346 char *pat;
13045
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2347 int round;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2348 int res = OK;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2349
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2350 /* Round 1: use "start", round 2: use "opt". */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2351 for (round = 1; round <= 2; ++round)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2352 {
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2353 /* Only look under "start" when loading packages wasn't done yet. */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2354 if (round == 1 && did_source_packages)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2355 continue;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2356
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2357 len = (int)STRLEN(plugpat) + (int)STRLEN(eap->arg) + 5;
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
2358 pat = alloc(len);
13045
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2359 if (pat == NULL)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2360 return;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2361 vim_snprintf(pat, len, plugpat, round == 1 ? "start" : "opt", eap->arg);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2362 /* The first round don't give a "not found" error, in the second round
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2363 * only when nothing was found in the first round. */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2364 res = do_in_path(p_pp, (char_u *)pat,
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2365 DIP_ALL + DIP_DIR + (round == 2 && res == FAIL ? DIP_ERR : 0),
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2366 add_pack_plugin, eap->forceit ? &APP_ADD_DIR : &APP_BOTH);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2367 vim_free(pat);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory
Christian Brabandt <cb@256bit.org>
parents: 12992
diff changeset
2368 }
8376
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd
Christian Brabandt <cb@256bit.org>
parents: 8374
diff changeset
2369 }
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2370 #endif
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2371
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2372 #if defined(FEAT_EVAL) || defined(PROTO)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2373 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2374 * ":options"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2375 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2376 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2377 ex_options(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2378 exarg_T *eap UNUSED)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2379 {
16722
19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split
Bram Moolenaar <Bram@vim.org>
parents: 16634
diff changeset
2380 vim_setenv((char_u *)"OPTWIN_CMD",
19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split
Bram Moolenaar <Bram@vim.org>
parents: 16634
diff changeset
2381 (char_u *)(cmdmod.tab ? "tab"
19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split
Bram Moolenaar <Bram@vim.org>
parents: 16634
diff changeset
2382 : (cmdmod.split & WSP_VERT) ? "vert" : ""));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2383 cmd_source((char_u *)SYS_OPTWIN_FILE, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2384 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2385 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2386
10722
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2387 #if defined(FEAT_PYTHON3) || defined(FEAT_PYTHON) || defined(PROTO)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2388
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2389 # if (defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)) || defined(PROTO)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2390 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2391 * Detect Python 3 or 2, and initialize 'pyxversion'.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2392 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2393 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2394 init_pyxversion(void)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2395 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2396 if (p_pyx == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2397 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2398 if (python3_enabled(FALSE))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2399 p_pyx = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2400 else if (python_enabled(FALSE))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2401 p_pyx = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2402 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2403 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2404 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2405
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2406 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2407 * Does a file contain one of the following strings at the beginning of any
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2408 * line?
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2409 * "#!(any string)python2" => returns 2
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2410 * "#!(any string)python3" => returns 3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2411 * "# requires python 2.x" => returns 2
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2412 * "# requires python 3.x" => returns 3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2413 * otherwise return 0.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2414 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2415 static int
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2416 requires_py_version(char_u *filename)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2417 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2418 FILE *file;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2419 int requires_py_version = 0;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2420 int i, lines;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2421
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2422 lines = (int)p_mls;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2423 if (lines < 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2424 lines = 5;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2425
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2426 file = mch_fopen((char *)filename, "r");
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2427 if (file != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2428 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2429 for (i = 0; i < lines; i++)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2430 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2431 if (vim_fgets(IObuff, IOSIZE, file))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2432 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2433 if (i == 0 && IObuff[0] == '#' && IObuff[1] == '!')
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2434 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2435 /* Check shebang. */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2436 if (strstr((char *)IObuff + 2, "python2") != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2437 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2438 requires_py_version = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2439 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2440 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2441 if (strstr((char *)IObuff + 2, "python3") != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2442 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2443 requires_py_version = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2444 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2445 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2446 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2447 IObuff[21] = '\0';
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2448 if (STRCMP("# requires python 2.x", IObuff) == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2449 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2450 requires_py_version = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2451 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2452 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2453 if (STRCMP("# requires python 3.x", IObuff) == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2454 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2455 requires_py_version = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2456 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2457 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2458 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2459 fclose(file);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2460 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2461 return requires_py_version;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2462 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2463
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2464
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2465 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2466 * Source a python file using the requested python version.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2467 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2468 static void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2469 source_pyx_file(exarg_T *eap, char_u *fname)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2470 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2471 exarg_T ex;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2472 int v = requires_py_version(fname);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2473
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2474 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2475 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2476 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2477 if (v == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2478 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2479 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2480 /* user didn't choose a preference, 'pyx' is used */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2481 v = p_pyx;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2482 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2483 v = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2484 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2485 v = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2486 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2487 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2488
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2489 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2490 * now source, if required python version is not supported show
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2491 * unobtrusive message.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2492 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2493 if (eap == NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2494 vim_memset(&ex, 0, sizeof(ex));
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2495 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2496 ex = *eap;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2497 ex.arg = fname;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2498 ex.cmd = (char_u *)(v == 2 ? "pyfile" : "pyfile3");
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2499
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2500 if (v == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2501 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2502 # ifdef FEAT_PYTHON
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2503 ex_pyfile(&ex);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2504 # else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2505 vim_snprintf((char *)IObuff, IOSIZE,
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2506 _("W20: Required python version 2.x not supported, ignoring file: %s"),
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2507 fname);
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
2508 msg((char *)IObuff);
10722
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2509 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2510 return;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2511 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2512 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2513 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2514 # ifdef FEAT_PYTHON3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2515 ex_py3file(&ex);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2516 # else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2517 vim_snprintf((char *)IObuff, IOSIZE,
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2518 _("W21: Required python version 3.x not supported, ignoring file: %s"),
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2519 fname);
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
2520 msg((char *)IObuff);
10722
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2521 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2522 return;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2523 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2524 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2525
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2526 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2527 * ":pyxfile {fname}"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2528 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2529 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2530 ex_pyxfile(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2531 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2532 source_pyx_file(eap, eap->arg);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2533 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2534
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2535 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2536 * ":pyx"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2537 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2538 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2539 ex_pyx(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2540 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2541 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2542 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2543 if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2544 ex_python(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2545 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2546 ex_py3(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2547 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2548 ex_python(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2549 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2550 ex_py3(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2551 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2552 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2553
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2554 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2555 * ":pyxdo"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2556 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2557 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2558 ex_pyxdo(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2559 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2560 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2561 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2562 if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2563 ex_pydo(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2564 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2565 ex_py3do(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2566 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2567 ex_pydo(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2568 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2569 ex_py3do(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2570 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2571 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2572
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2573 #endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3
Christian Brabandt <cb@256bit.org>
parents: 10569
diff changeset
2574
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2575 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2576 * ":source {fname}"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2577 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2578 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2579 ex_source(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2580 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2581 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2582 if (cmdmod.browse)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2583 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2584 char_u *fname = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2585
29
ac33b7c03fac updated for version 7.0018
vimboss
parents: 22
diff changeset
2586 fname = do_browse(0, (char_u *)_("Source Vim script"), eap->arg,
13802
378f9f8e6d8f patch 8.0.1773: dialog messages are not translated
Christian Brabandt <cb@256bit.org>
parents: 13782
diff changeset
2587 NULL, NULL,
378f9f8e6d8f patch 8.0.1773: dialog messages are not translated
Christian Brabandt <cb@256bit.org>
parents: 13782
diff changeset
2588 (char_u *)_(BROWSE_FILTER_MACROS), NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2589 if (fname != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2590 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2591 cmd_source(fname, eap);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2592 vim_free(fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2593 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2594 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2595 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2596 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2597 cmd_source(eap->arg, eap);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2598 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2599
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2600 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2601 cmd_source(char_u *fname, exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2602 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2603 if (*fname == NUL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2604 emsg(_(e_argreq));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2605
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2606 else if (eap != NULL && eap->forceit)
4352
04736b4030ec updated for version 7.3.925
Bram Moolenaar <bram@vim.org>
parents: 4242
diff changeset
2607 /* ":source!": read Normal mode commands
716
8ae24f338cab updated for version 7.0217
vimboss
parents: 714
diff changeset
2608 * Need to execute the commands directly. This is required at least
8ae24f338cab updated for version 7.0217
vimboss
parents: 714
diff changeset
2609 * for:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2610 * - ":g" command busy
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2611 * - after ":argdo", ":windo" or ":bufdo"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2612 * - another command follows
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2613 * - inside a loop
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2614 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2615 openscript(fname, global_busy || listcmd_busy || eap->nextcmd != NULL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2616 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2617 || eap->cstack->cs_idx >= 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2618 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2619 );
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2620
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2621 /* ":source" read ex commands */
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
2622 else if (do_source(fname, FALSE, DOSO_NONE) == FAIL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2623 semsg(_(e_notopen), fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2624 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2625
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2626 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2627 * ":source" and associated commands.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2628 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2629 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2630 * Structure used to store info for each sourced file.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2631 * It is shared between do_source() and getsourceline().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2632 * This is required, because it needs to be handed to do_cmdline() and
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2633 * sourcing can be done recursively.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2634 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2635 struct source_cookie
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2636 {
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2637 FILE *fp; // opened file for sourcing
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2638 char_u *nextline; // if not NULL: line that was read ahead
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2639 linenr_T sourcing_lnum; // line number of the source file
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2640 int finished; // ":finish" used
15840
734b1928a5aa patch 8.1.0927: USE_CR is never defined
Bram Moolenaar <Bram@vim.org>
parents: 15597
diff changeset
2641 #ifdef USE_CRNL
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2642 int fileformat; // EOL_UNKNOWN, EOL_UNIX or EOL_DOS
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2643 int error; // TRUE if LF found after CR-LF
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2644 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2645 #ifdef FEAT_EVAL
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2646 linenr_T breakpoint; // next line with breakpoint or zero
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2647 char_u *fname; // name of sourced file
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2648 int dbg_tick; // debug_tick when breakpoint was set
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2649 int level; // top nesting level of sourced file
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2650 #endif
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2651 vimconv_T conv; // type of conversion
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2652 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2653
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2654 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2655 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2656 * Return the address holding the next breakpoint line for a source cookie.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2657 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2658 linenr_T *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2659 source_breakpoint(void *cookie)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2660 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2661 return &((struct source_cookie *)cookie)->breakpoint;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2662 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2663
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2664 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2665 * Return the address holding the debug tick for a source cookie.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2666 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2667 int *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2668 source_dbg_tick(void *cookie)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2669 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2670 return &((struct source_cookie *)cookie)->dbg_tick;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2671 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2672
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2673 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2674 * Return the nesting level for a source cookie.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2675 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2676 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2677 source_level(void *cookie)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2678 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2679 return ((struct source_cookie *)cookie)->level;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2680 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2681 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2682
7799
af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a
Christian Brabandt <cb@256bit.org>
parents: 7726
diff changeset
2683 static char_u *get_one_sourceline(struct source_cookie *sp);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2684
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
2685 #if (defined(MSWIN) && defined(FEAT_CSCOPE)) || defined(HAVE_FD_CLOEXEC)
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2686 # define USE_FOPEN_NOINH
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2687 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2688 * Special function to open a file without handle inheritance.
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2689 * When possible the handle is closed on exec().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2690 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2691 static FILE *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2692 fopen_noinh_readbin(char *filename)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2693 {
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
2694 # ifdef MSWIN
2058
fb1222c880fc updated for version 7.2.344
Bram Moolenaar <bram@zimbu.org>
parents: 2057
diff changeset
2695 int fd_tmp = mch_open(filename, O_RDONLY | O_BINARY | O_NOINHERIT, 0);
fb1222c880fc updated for version 7.2.344
Bram Moolenaar <bram@zimbu.org>
parents: 2057
diff changeset
2696 # else
fb1222c880fc updated for version 7.2.344
Bram Moolenaar <bram@zimbu.org>
parents: 2057
diff changeset
2697 int fd_tmp = mch_open(filename, O_RDONLY, 0);
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2698 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2699
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2700 if (fd_tmp == -1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2701 return NULL;
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2702
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2703 # ifdef HAVE_FD_CLOEXEC
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2704 {
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2705 int fdflags = fcntl(fd_tmp, F_GETFD);
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2706 if (fdflags >= 0 && (fdflags & FD_CLOEXEC) == 0)
7009
286fd54c7ae3 patch 7.4.822
Bram Moolenaar <bram@vim.org>
parents: 6749
diff changeset
2707 (void)fcntl(fd_tmp, F_SETFD, fdflags | FD_CLOEXEC);
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2708 }
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2709 # endif
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2710
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2711 return fdopen(fd_tmp, READBIN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2712 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2713 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2714
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2715 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2716 * do_source: Read the file "fname" and execute its lines as EX commands.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2717 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2718 * This function may be called recursively!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2719 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2720 * return FAIL if file could not be opened, OK otherwise
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2721 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2722 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2723 do_source(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2724 char_u *fname,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2725 int check_other, /* check for .vimrc and _vimrc */
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
2726 int is_vimrc) /* DOSO_ value */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2727 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2728 struct source_cookie cookie;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2729 char_u *save_sourcing_name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2730 linenr_T save_sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2731 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2732 char_u *fname_exp;
1802
8978513bb5e3 updated for version 7.2-100
vimboss
parents: 1743
diff changeset
2733 char_u *firstline = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2734 int retval = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2735 #ifdef FEAT_EVAL
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2736 sctx_T save_current_sctx;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2737 static scid_T last_current_SID = 0;
15008
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15002
diff changeset
2738 static int last_current_SID_seq = 0;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14862
diff changeset
2739 funccal_entry_T funccalp_entry;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2740 int save_debug_break_level = debug_break_level;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2741 scriptitem_T *si = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2742 # ifdef UNIX
9387
f094d4085014 commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents: 9383
diff changeset
2743 stat_T st;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2744 int stat_ok;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2745 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2746 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2747 #ifdef STARTUPTIME
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2748 struct timeval tv_rel;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2749 struct timeval tv_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2750 #endif
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2751 #ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2752 proftime_T wait_start;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2753 #endif
15442
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
2754 int trigger_source_post = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2755
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2756 p = expand_env_save(fname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2757 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2758 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2759 fname_exp = fix_fname(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2760 vim_free(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2761 if (fname_exp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2762 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2763 if (mch_isdir(fname_exp))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2764 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2765 smsg(_("Cannot source a directory: \"%s\""), fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2766 goto theend;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2767 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2768
1061
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2769 /* Apply SourceCmd autocommands, they should get the file and source it. */
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2770 if (has_autocmd(EVENT_SOURCECMD, fname_exp, NULL)
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2771 && apply_autocmds(EVENT_SOURCECMD, fname_exp, fname_exp,
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2772 FALSE, curbuf))
1515
8d8dc7e07999 updated for version 7.1-230
vimboss
parents: 1496
diff changeset
2773 {
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2774 #ifdef FEAT_EVAL
1515
8d8dc7e07999 updated for version 7.1-230
vimboss
parents: 1496
diff changeset
2775 retval = aborting() ? FAIL : OK;
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2776 #else
1515
8d8dc7e07999 updated for version 7.1-230
vimboss
parents: 1496
diff changeset
2777 retval = OK;
13380
69517d67421f patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 13302
diff changeset
2778 #endif
15442
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
2779 if (retval == OK)
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
2780 // Apply SourcePost autocommands.
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
2781 apply_autocmds(EVENT_SOURCEPOST, fname_exp, fname_exp,
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
2782 FALSE, curbuf);
1515
8d8dc7e07999 updated for version 7.1-230
vimboss
parents: 1496
diff changeset
2783 goto theend;
8d8dc7e07999 updated for version 7.1-230
vimboss
parents: 1496
diff changeset
2784 }
1061
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2785
b4d11ddb7303 updated for version 7.0-187
vimboss
parents: 944
diff changeset
2786 /* Apply SourcePre autocommands, they may get the file. */
716
8ae24f338cab updated for version 7.0217
vimboss
parents: 714
diff changeset
2787 apply_autocmds(EVENT_SOURCEPRE, fname_exp, fname_exp, FALSE, curbuf);
8ae24f338cab updated for version 7.0217
vimboss
parents: 714
diff changeset
2788
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2789 #ifdef USE_FOPEN_NOINH
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2790 cookie.fp = fopen_noinh_readbin((char *)fname_exp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2791 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2792 cookie.fp = mch_fopen((char *)fname_exp, READBIN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2793 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2794 if (cookie.fp == NULL && check_other)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2795 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2796 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2797 * Try again, replacing file name ".vimrc" by "_vimrc" or vice versa,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2798 * and ".exrc" by "_exrc" or vice versa.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2799 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2800 p = gettail(fname_exp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2801 if ((*p == '.' || *p == '_')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2802 && (STRICMP(p + 1, "vimrc") == 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2803 || STRICMP(p + 1, "gvimrc") == 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2804 || STRICMP(p + 1, "exrc") == 0))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2805 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2806 if (*p == '_')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2807 *p = '.';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2808 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2809 *p = '_';
2052
057029bf3470 updated for version 7.2.338
Bram Moolenaar <bram@zimbu.org>
parents: 2051
diff changeset
2810 #ifdef USE_FOPEN_NOINH
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2811 cookie.fp = fopen_noinh_readbin((char *)fname_exp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2812 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2813 cookie.fp = mch_fopen((char *)fname_exp, READBIN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2814 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2815 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2816 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2817
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2818 if (cookie.fp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2819 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2820 if (p_verbose > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2821 {
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
2822 verbose_enter();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2823 if (sourcing_name == NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2824 smsg(_("could not source \"%s\""), fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2825 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2826 smsg(_("line %ld: could not source \"%s\""),
274
8fa8d7964cf1 updated for version 7.0073
vimboss
parents: 271
diff changeset
2827 sourcing_lnum, fname);
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
2828 verbose_leave();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2829 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2830 goto theend;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2831 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2832
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2833 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2834 * The file exists.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2835 * - In verbose mode, give a message.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2836 * - For a vimrc file, may want to set 'compatible', call vimrc_found().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2837 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2838 if (p_verbose > 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2839 {
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
2840 verbose_enter();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2841 if (sourcing_name == NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2842 smsg(_("sourcing \"%s\""), fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2843 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
2844 smsg(_("line %ld: sourcing \"%s\""),
274
8fa8d7964cf1 updated for version 7.0073
vimboss
parents: 271
diff changeset
2845 sourcing_lnum, fname);
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
2846 verbose_leave();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2847 }
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
2848 if (is_vimrc == DOSO_VIMRC)
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
2849 vimrc_found(fname_exp, (char_u *)"MYVIMRC");
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
2850 else if (is_vimrc == DOSO_GVIMRC)
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 794
diff changeset
2851 vimrc_found(fname_exp, (char_u *)"MYGVIMRC");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2852
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2853 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2854 /* If no automatic file format: Set default to CR-NL. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2855 if (*p_ffs == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2856 cookie.fileformat = EOL_DOS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2857 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2858 cookie.fileformat = EOL_UNKNOWN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2859 cookie.error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2860 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2861
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2862 cookie.nextline = NULL;
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
2863 cookie.sourcing_lnum = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2864 cookie.finished = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2865
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2866 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2867 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2868 * Check if this script has a breakpoint.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2869 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2870 cookie.breakpoint = dbg_find_breakpoint(TRUE, fname_exp, (linenr_T)0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2871 cookie.fname = fname_exp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2872 cookie.dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2873
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2874 cookie.level = ex_nesting_level;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2875 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2876
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2877 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2878 * Keep the sourcing name/lnum, for recursive calls.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2879 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2880 save_sourcing_name = sourcing_name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2881 sourcing_name = fname_exp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2882 save_sourcing_lnum = sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2883 sourcing_lnum = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2884
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2885 #ifdef STARTUPTIME
2053
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
2886 if (time_fd != NULL)
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
2887 time_push(&tv_rel, &tv_start);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2888 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2889
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2890 #ifdef FEAT_EVAL
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2891 # ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
2892 if (do_profiling == PROF_YES)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2893 prof_child_enter(&wait_start); /* entering a child now */
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2894 # endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2895
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2896 /* Don't use local function variables, if called from a function.
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2897 * Also starts profiling timer for nested script. */
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14862
diff changeset
2898 save_funccal(&funccalp_entry);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2899
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
2900 save_current_sctx = current_sctx;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
2901 current_sctx.sc_lnum = 0;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
2902 current_sctx.sc_version = 1;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
2903
15008
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15002
diff changeset
2904 // Check if this script was sourced before to finds its SID.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15002
diff changeset
2905 // If it's new, generate a new SID.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15002
diff changeset
2906 // Always use a new sequence number.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions
Bram Moolenaar <Bram@vim.org>
parents: 15002
diff changeset
2907 current_sctx.sc_seq = ++last_current_SID_seq;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2908 # ifdef UNIX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2909 stat_ok = (mch_stat((char *)fname_exp, &st) >= 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2910 # endif
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2911 for (current_sctx.sc_sid = script_items.ga_len; current_sctx.sc_sid > 0;
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2912 --current_sctx.sc_sid)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2913 {
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2914 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2915 if (si->sn_name != NULL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2916 && (
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2917 # ifdef UNIX
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 154
diff changeset
2918 /* Compare dev/ino when possible, it catches symbolic
6df0106fc595 updated for version 7.0049
vimboss
parents: 154
diff changeset
2919 * links. Also compare file names, the inode may change
6df0106fc595 updated for version 7.0049
vimboss
parents: 154
diff changeset
2920 * when the file was edited. */
1882
c8b87fa14d27 updated for version 7.2-179
vimboss
parents: 1876
diff changeset
2921 ((stat_ok && si->sn_dev_valid)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2922 && (si->sn_dev == st.st_dev
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2923 && si->sn_ino == st.st_ino)) ||
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2924 # endif
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2925 fnamecmp(si->sn_name, fname_exp) == 0))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2926 break;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2927 }
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2928 if (current_sctx.sc_sid == 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2929 {
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2930 current_sctx.sc_sid = ++last_current_SID;
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2931 if (ga_grow(&script_items,
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2932 (int)(current_sctx.sc_sid - script_items.ga_len)) == FAIL)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2933 goto almosttheend;
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2934 while (script_items.ga_len < current_sctx.sc_sid)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2935 {
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2936 ++script_items.ga_len;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2937 SCRIPT_ITEM(script_items.ga_len).sn_name = NULL;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2938 # ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2939 SCRIPT_ITEM(script_items.ga_len).sn_prof_on = FALSE;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2940 # endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2941 }
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2942 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2943 si->sn_name = fname_exp;
15448
4880dc2ccc3f patch 8.1.0732: cannot build without the eval feature
Bram Moolenaar <Bram@vim.org>
parents: 15442
diff changeset
2944 fname_exp = vim_strsave(si->sn_name); // used for autocmd
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2945 # ifdef UNIX
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2946 if (stat_ok)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2947 {
1882
c8b87fa14d27 updated for version 7.2-179
vimboss
parents: 1876
diff changeset
2948 si->sn_dev_valid = TRUE;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2949 si->sn_dev = st.st_dev;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2950 si->sn_ino = st.st_ino;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2951 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2952 else
1882
c8b87fa14d27 updated for version 7.2-179
vimboss
parents: 1876
diff changeset
2953 si->sn_dev_valid = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2954 # endif
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2955
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2956 /* Allocate the local script variables to use for this script. */
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
2957 new_script_vars(current_sctx.sc_sid);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2958 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2959
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2960 # ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
2961 if (do_profiling == PROF_YES)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2962 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2963 int forceit;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2964
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2965 /* Check if we do profiling for this script. */
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2966 if (!si->sn_prof_on && has_profiling(TRUE, si->sn_name, &forceit))
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2967 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2968 script_do_profile(si);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2969 si->sn_pr_force = forceit;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2970 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2971 if (si->sn_prof_on)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2972 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2973 ++si->sn_pr_count;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2974 profile_start(&si->sn_pr_start);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2975 profile_zero(&si->sn_pr_children);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2976 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2977 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
2978 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2979 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2980
12658
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2981 cookie.conv.vc_type = CONV_NONE; /* no conversion */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2982
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2983 /* Read the first line so we can check for a UTF-8 BOM. */
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
2984 firstline = getsourceline(0, (void *)&cookie, 0, TRUE);
12658
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2985 if (firstline != NULL && STRLEN(firstline) >= 3 && firstline[0] == 0xef
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2986 && firstline[1] == 0xbb && firstline[2] == 0xbf)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2987 {
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2988 /* Found BOM; setup conversion, skip over BOM and recode the line. */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2989 convert_setup(&cookie.conv, (char_u *)"utf-8", p_enc);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2990 p = string_convert(&cookie.conv, firstline + 3, NULL);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2991 if (p == NULL)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2992 p = vim_strsave(firstline + 3);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2993 if (p != NULL)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2994 {
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2995 vim_free(firstline);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2996 firstline = p;
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2997 }
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2998 }
20aacdca367d patch 8.0.1207: profiling skips the first and last script line
Christian Brabandt <cb@256bit.org>
parents: 12495
diff changeset
2999
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3000 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3001 * Call do_cmdline, which will call getsourceline() to get the lines.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3002 */
1802
8978513bb5e3 updated for version 7.2-100
vimboss
parents: 1743
diff changeset
3003 do_cmdline(firstline, getsourceline, (void *)&cookie,
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3004 DOCMD_VERBOSE|DOCMD_NOWAIT|DOCMD_REPEAT);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3005 retval = OK;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3006
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3007 #ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
3008 if (do_profiling == PROF_YES)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3009 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3010 /* Get "si" again, "script_items" may have been reallocated. */
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
3011 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3012 if (si->sn_prof_on)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3013 {
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3014 profile_end(&si->sn_pr_start);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3015 profile_sub_wait(&wait_start, &si->sn_pr_start);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3016 profile_add(&si->sn_pr_total, &si->sn_pr_start);
720
e180933b876a updated for version 7.0219
vimboss
parents: 716
diff changeset
3017 profile_self(&si->sn_pr_self, &si->sn_pr_start,
e180933b876a updated for version 7.0219
vimboss
parents: 716
diff changeset
3018 &si->sn_pr_children);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3019 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3020 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3021 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3022
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3023 if (got_int)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3024 emsg(_(e_interr));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3025 sourcing_name = save_sourcing_name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3026 sourcing_lnum = save_sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3027 if (p_verbose > 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3028 {
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
3029 verbose_enter();
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3030 smsg(_("finished sourcing %s"), fname);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3031 if (sourcing_name != NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3032 smsg(_("continuing in %s"), sourcing_name);
294
1c1cbdc42f75 updated for version 7.0077
vimboss
parents: 274
diff changeset
3033 verbose_leave();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3034 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3035 #ifdef STARTUPTIME
2053
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3036 if (time_fd != NULL)
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3037 {
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3038 vim_snprintf((char *)IObuff, IOSIZE, "sourcing %s", fname);
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3039 time_msg((char *)IObuff, &tv_start);
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3040 time_pop(&tv_rel);
94f44da44d2e updated for version 7.2.339
Bram Moolenaar <bram@zimbu.org>
parents: 2052
diff changeset
3041 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3042 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3043
15442
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
3044 if (!got_int)
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
3045 trigger_source_post = TRUE;
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
3046
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3047 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3048 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3049 * After a "finish" in debug mode, need to break at first command of next
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3050 * sourced file.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3051 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3052 if (save_debug_break_level > ex_nesting_level
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3053 && debug_break_level == ex_nesting_level)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3054 ++debug_break_level;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3055 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3056
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3057 #ifdef FEAT_EVAL
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3058 almosttheend:
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14681
diff changeset
3059 current_sctx = save_current_sctx;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14862
diff changeset
3060 restore_funccal();
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3061 # ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
3062 if (do_profiling == PROF_YES)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3063 prof_child_exit(&wait_start); /* leaving a child now */
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3064 # endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3065 #endif
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3066 fclose(cookie.fp);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3067 vim_free(cookie.nextline);
1802
8978513bb5e3 updated for version 7.2-100
vimboss
parents: 1743
diff changeset
3068 vim_free(firstline);
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3069 convert_setup(&cookie.conv, NULL, NULL);
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3070
15442
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
3071 if (trigger_source_post)
15448
4880dc2ccc3f patch 8.1.0732: cannot build without the eval feature
Bram Moolenaar <Bram@vim.org>
parents: 15442
diff changeset
3072 apply_autocmds(EVENT_SOURCEPOST, fname_exp, fname_exp, FALSE, curbuf);
15442
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost
Bram Moolenaar <Bram@vim.org>
parents: 15286
diff changeset
3073
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3074 theend:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3075 vim_free(fname_exp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3076 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3077 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3078
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3079 #if defined(FEAT_EVAL) || defined(PROTO)
356
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3080
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3081 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3082 * ":scriptnames"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3083 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3084 void
15085
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3085 ex_scriptnames(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3086 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3087 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3088
15085
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3089 if (eap->addr_count > 0)
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3090 {
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3091 // :script {scriptId}: edit the script
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3092 if (eap->line2 < 1 || eap->line2 > script_items.ga_len)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3093 emsg(_(e_invarg));
15085
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3094 else
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3095 {
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3096 eap->arg = SCRIPT_ITEM(eap->line2).sn_name;
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3097 do_exedit(eap, NULL);
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3098 }
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3099 return;
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3100 }
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced
Bram Moolenaar <Bram@vim.org>
parents: 15008
diff changeset
3101
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3102 for (i = 1; i <= script_items.ga_len && !got_int; ++i)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3103 if (SCRIPT_ITEM(i).sn_name != NULL)
2921
69b90e43b728 updated for version 7.3.233
Bram Moolenaar <bram@vim.org>
parents: 2849
diff changeset
3104 {
69b90e43b728 updated for version 7.3.233
Bram Moolenaar <bram@vim.org>
parents: 2849
diff changeset
3105 home_replace(NULL, SCRIPT_ITEM(i).sn_name,
69b90e43b728 updated for version 7.3.233
Bram Moolenaar <bram@vim.org>
parents: 2849
diff changeset
3106 NameBuff, MAXPATHL, TRUE);
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3107 smsg("%3d: %s", i, NameBuff);
3429
b35844f3eb49 updated for version 7.3.480
Bram Moolenaar <bram@vim.org>
parents: 3378
diff changeset
3108 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3109 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3110
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3111 # if defined(BACKSLASH_IN_FILENAME) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3112 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3113 * Fix slashes in the list of script names for 'shellslash'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3114 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3115 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3116 scriptnames_slash_adjust(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3117 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3118 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3119
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3120 for (i = 1; i <= script_items.ga_len; ++i)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3121 if (SCRIPT_ITEM(i).sn_name != NULL)
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3122 slash_adjust(SCRIPT_ITEM(i).sn_name);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3123 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3124 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3125
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3126 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3127 * Get a pointer to a script name. Used for ":verbose set".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3128 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3129 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3130 get_scriptname(scid_T id)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3131 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3132 if (id == SID_MODELINE)
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3133 return (char_u *)_("modeline");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3134 if (id == SID_CMDARG)
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3135 return (char_u *)_("--cmd argument");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3136 if (id == SID_CARG)
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3137 return (char_u *)_("-c argument");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3138 if (id == SID_ENV)
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3139 return (char_u *)_("environment variable");
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3140 if (id == SID_ERROR)
9364d114ed8d updated for version 7.0204
vimboss
parents: 673
diff changeset
3141 return (char_u *)_("error handler");
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3142 return SCRIPT_ITEM(id).sn_name;
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3143 }
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3144
356
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3145 # if defined(EXITFREE) || defined(PROTO)
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3146 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3147 free_scriptnames(void)
356
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3148 {
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3149 int i;
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3150
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3151 for (i = script_items.ga_len; i > 0; --i)
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3152 vim_free(SCRIPT_ITEM(i).sn_name);
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3153 ga_clear(&script_items);
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3154 }
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3155 # endif
0f2b5d1b8117 updated for version 7.0092
vimboss
parents: 314
diff changeset
3156
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3157 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3158
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3159 linenr_T
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3160 get_sourced_lnum(char_u *(*fgetline)(int, void *, int, int), void *cookie)
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3161 {
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3162 return fgetline == getsourceline
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3163 ? ((struct source_cookie *)cookie)->sourcing_lnum
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3164 : sourcing_lnum;
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3165 }
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3166
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3167 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3168 * Get one full line from a sourced file.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3169 * Called by do_cmdline() when it's called from do_source().
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3170 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3171 * Return a pointer to the line in allocated memory.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3172 * Return NULL for end-of-file or some error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3173 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3174 char_u *
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
3175 getsourceline(int c UNUSED, void *cookie, int indent UNUSED, int do_concat)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3176 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3177 struct source_cookie *sp = (struct source_cookie *)cookie;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3178 char_u *line;
3336
afbf45d85496 updated for version 7.3.435
Bram Moolenaar <bram@vim.org>
parents: 3332
diff changeset
3179 char_u *p;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3180
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3181 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3182 /* If breakpoints have been added/deleted need to check for it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3183 if (sp->dbg_tick < debug_tick)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3184 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3185 sp->breakpoint = dbg_find_breakpoint(TRUE, sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3186 sp->dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3187 }
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3188 # ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
3189 if (do_profiling == PROF_YES)
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3190 script_line_end();
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3191 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3192 #endif
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3193
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3194 // Set the current sourcing line number.
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3195 sourcing_lnum = sp->sourcing_lnum + 1;
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3196
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3197 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3198 * Get current line. If there is a read-ahead line, use it, otherwise get
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3199 * one now.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3200 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3201 if (sp->finished)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3202 line = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3203 else if (sp->nextline == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3204 line = get_one_sourceline(sp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3205 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3206 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3207 line = sp->nextline;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3208 sp->nextline = NULL;
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3209 ++sp->sourcing_lnum;
205
d292c40ca788 updated for version 7.0060
vimboss
parents: 177
diff changeset
3210 }
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 161
diff changeset
3211 #ifdef FEAT_PROFILE
790
c8680debe1cc updated for version 7.0230
vimboss
parents: 720
diff changeset
3212 if (line != NULL && do_profiling == PROF_YES)
205
d292c40ca788 updated for version 7.0060
vimboss
parents: 177
diff changeset
3213 script_line_start();
d292c40ca788 updated for version 7.0060
vimboss
parents: 177
diff changeset
3214 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3215
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3216 /* Only concatenate lines starting with a \ when 'cpoptions' doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3217 * contain the 'C' flag. */
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
3218 if (line != NULL && do_concat && vim_strchr(p_cpo, CPO_CONCAT) == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3219 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3220 /* compensate for the one line read-ahead */
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3221 --sp->sourcing_lnum;
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3222
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3223 // Get the next line and concatenate it when it starts with a
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3224 // backslash. We always need to read the next line, keep it in
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3225 // sp->nextline.
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3226 /* Also check for a comment in between continuation lines: "\ */
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3227 sp->nextline = get_one_sourceline(sp);
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3228 if (sp->nextline != NULL
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3229 && (*(p = skipwhite(sp->nextline)) == '\\'
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3230 || (p[0] == '"' && p[1] == '\\' && p[2] == ' ')))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3231 {
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3232 garray_T ga;
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3233
3378
e6392f2aed4c updated for version 7.3.455
Bram Moolenaar <bram@vim.org>
parents: 3336
diff changeset
3234 ga_init2(&ga, (int)sizeof(char_u), 400);
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3235 ga_concat(&ga, line);
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3236 if (*p == '\\')
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3237 ga_concat(&ga, p + 1);
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3238 for (;;)
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3239 {
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3240 vim_free(sp->nextline);
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3241 sp->nextline = get_one_sourceline(sp);
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3242 if (sp->nextline == NULL)
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3243 break;
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3244 p = skipwhite(sp->nextline);
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3245 if (*p == '\\')
3378
e6392f2aed4c updated for version 7.3.455
Bram Moolenaar <bram@vim.org>
parents: 3336
diff changeset
3246 {
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3247 // Adjust the growsize to the current length to speed up
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3248 // concatenating many lines.
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3249 if (ga.ga_len > 400)
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3250 {
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3251 if (ga.ga_len > 8000)
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3252 ga.ga_growsize = 8000;
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3253 else
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3254 ga.ga_growsize = ga.ga_len;
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3255 }
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3256 ga_concat(&ga, p + 1);
3378
e6392f2aed4c updated for version 7.3.455
Bram Moolenaar <bram@vim.org>
parents: 3336
diff changeset
3257 }
14714
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3258 else if (p[0] != '"' || p[1] != '\\' || p[2] != ' ')
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments
Christian Brabandt <cb@256bit.org>
parents: 14700
diff changeset
3259 break;
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3260 }
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3261 ga_append(&ga, NUL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3262 vim_free(line);
3332
8a731d7f0664 updated for version 7.3.433
Bram Moolenaar <bram@vim.org>
parents: 3312
diff changeset
3263 line = ga.ga_data;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3264 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3265 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3266
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3267 if (line != NULL && sp->conv.vc_type != CONV_NONE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3268 {
3336
afbf45d85496 updated for version 7.3.435
Bram Moolenaar <bram@vim.org>
parents: 3332
diff changeset
3269 char_u *s;
afbf45d85496 updated for version 7.3.435
Bram Moolenaar <bram@vim.org>
parents: 3332
diff changeset
3270
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3271 /* Convert the encoding of the script line. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3272 s = string_convert(&sp->conv, line, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3273 if (s != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3274 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3275 vim_free(line);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3276 line = s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3277 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3278 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3279
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3280 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3281 /* Did we encounter a breakpoint? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3282 if (sp->breakpoint != 0 && sp->breakpoint <= sourcing_lnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3283 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3284 dbg_breakpoint(sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3285 /* Find next breakpoint. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3286 sp->breakpoint = dbg_find_breakpoint(TRUE, sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3287 sp->dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3288 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3289 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3290
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3291 return line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3292 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3293
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3294 static char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3295 get_one_sourceline(struct source_cookie *sp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3296 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3297 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3298 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3299 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3300 char_u *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3301 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3302 int has_cr; /* CR-LF found */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3303 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3304 int have_read = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3305
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3306 /* use a growarray to store the sourced line */
154
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
3307 ga_init2(&ga, 1, 250);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3308
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3309 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3310 * Loop until there is a finished line (or end-of-file).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3311 */
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3312 ++sp->sourcing_lnum;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3313 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3314 {
154
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
3315 /* make room to read at least 120 (more) characters */
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
3316 if (ga_grow(&ga, 120) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3317 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3318 buf = (char_u *)ga.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3319
15840
734b1928a5aa patch 8.1.0927: USE_CR is never defined
Bram Moolenaar <Bram@vim.org>
parents: 15597
diff changeset
3320 if (fgets((char *)buf + ga.ga_len, ga.ga_maxlen - ga.ga_len,
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
3321 sp->fp) == NULL)
15840
734b1928a5aa patch 8.1.0927: USE_CR is never defined
Bram Moolenaar <Bram@vim.org>
parents: 15597
diff changeset
3322 break;
154
1a145815483e updated for version 7.0047
vimboss
parents: 148
diff changeset
3323 len = ga.ga_len + (int)STRLEN(buf + ga.ga_len);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3324 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3325 /* Ignore a trailing CTRL-Z, when in Dos mode. Only recognize the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3326 * CTRL-Z by its own, or after a NL. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3327 if ( (len == 1 || (len >= 2 && buf[len - 2] == '\n'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3328 && sp->fileformat == EOL_DOS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3329 && buf[len - 1] == Ctrl_Z)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3330 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3331 buf[len - 1] = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3332 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3333 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3334 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3335
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3336 have_read = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3337 ga.ga_len = len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3338
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3339 /* If the line was longer than the buffer, read more. */
41
f529edb9bab3 updated for version 7.0025
vimboss
parents: 40
diff changeset
3340 if (ga.ga_maxlen - ga.ga_len == 1 && buf[len - 1] != '\n')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3341 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3342
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3343 if (len >= 1 && buf[len - 1] == '\n') /* remove trailing NL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3344 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3345 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3346 has_cr = (len >= 2 && buf[len - 2] == '\r');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3347 if (sp->fileformat == EOL_UNKNOWN)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3348 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3349 if (has_cr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3350 sp->fileformat = EOL_DOS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3351 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3352 sp->fileformat = EOL_UNIX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3353 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3354
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3355 if (sp->fileformat == EOL_DOS)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3356 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3357 if (has_cr) /* replace trailing CR */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3358 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3359 buf[len - 2] = '\n';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3360 --len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3361 --ga.ga_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3362 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3363 else /* lines like ":map xx yy^M" will have failed */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3364 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3365 if (!sp->error)
16
3ba373b54370 updated for version 7.0008
vimboss
parents: 15
diff changeset
3366 {
11158
501f46f7644c patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
3367 msg_source(HL_ATTR(HLF_W));
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3368 emsg(_("W15: Warning: Wrong line separator, ^M may be missing"));
16
3ba373b54370 updated for version 7.0008
vimboss
parents: 15
diff changeset
3369 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3370 sp->error = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3371 sp->fileformat = EOL_UNIX;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3372 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3373 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3374 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3375 /* The '\n' is escaped if there is an odd number of ^V's just
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3376 * before it, first set "c" just before the 'V's and then check
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3377 * len&c parities (is faster than ((len-c)%2 == 0)) -- Acevedo */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3378 for (c = len - 2; c >= 0 && buf[c] == Ctrl_V; c--)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3379 ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3380 if ((len & 1) != (c & 1)) /* escaped NL, read more */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3381 {
17251
984eef966002 patch 8.1.1625: script line numbers are not exactly right
Bram Moolenaar <Bram@vim.org>
parents: 17184
diff changeset
3382 ++sp->sourcing_lnum;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3383 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3384 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3385
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3386 buf[len - 1] = NUL; /* remove the NL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3387 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3388
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3389 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3390 * Check for ^C here now and then, so recursive :so can be broken.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3391 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3392 line_breakcheck();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3393 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3394 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3395
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3396 if (have_read)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3397 return (char_u *)ga.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3398
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3399 vim_free(ga.ga_data);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3400 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3401 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3402
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3403 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3404 * ":scriptencoding": Set encoding conversion for a sourced script.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3406 void
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3407 ex_scriptencoding(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3408 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3409 struct source_cookie *sp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3410 char_u *name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3411
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3412 if (!getline_equal(eap->getline, eap->cookie, getsourceline))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3413 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3414 emsg(_("E167: :scriptencoding used outside of a sourced file"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3415 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3416 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3417
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3418 if (*eap->arg != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3419 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3420 name = enc_canonize(eap->arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3421 if (name == NULL) /* out of memory */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3422 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3423 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3424 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3425 name = eap->arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3426
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3427 /* Setup for conversion from the specified encoding to 'encoding'. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3428 sp = (struct source_cookie *)getline_cookie(eap->getline, eap->cookie);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3429 convert_setup(&sp->conv, name, p_enc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3430
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3431 if (name != eap->arg)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3432 vim_free(name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3433 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3434
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3435 /*
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3436 * ":scriptversion": Set Vim script version for a sourced script.
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3437 */
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3438 void
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3439 ex_scriptversion(exarg_T *eap UNUSED)
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3440 {
16225
9cbc5ff516ee patch 8.1.1117: build failure without the +eval feature
Bram Moolenaar <Bram@vim.org>
parents: 16223
diff changeset
3441 #ifdef FEAT_EVAL
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3442 int nr;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3443
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3444 if (!getline_equal(eap->getline, eap->cookie, getsourceline))
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3445 {
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3446 emsg(_("E984: :scriptversion used outside of a sourced file"));
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3447 return;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3448 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3449
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3450 nr = getdigits(&eap->arg);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3451 if (nr == 0 || *eap->arg != NUL)
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3452 emsg(_(e_invarg));
16366
6ee80f3b5ea9 patch 8.1.1188: not all Vim variables require the v: prefix
Bram Moolenaar <Bram@vim.org>
parents: 16225
diff changeset
3453 else if (nr > 3)
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3454 semsg(_("E999: scriptversion not supported: %d"), nr);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3455 else
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3456 current_sctx.sc_version = nr;
16225
9cbc5ff516ee patch 8.1.1117: build failure without the +eval feature
Bram Moolenaar <Bram@vim.org>
parents: 16223
diff changeset
3457 #endif
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3458 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 15967
diff changeset
3459
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3460 #if defined(FEAT_EVAL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3461 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3462 * ":finish": Mark a sourced file as finished.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3463 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3464 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3465 ex_finish(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3466 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3467 if (getline_equal(eap->getline, eap->cookie, getsourceline))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3468 do_finish(eap, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3469 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3470 emsg(_("E168: :finish used outside of a sourced file"));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3471 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3472
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3473 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3474 * Mark a sourced file as finished. Possibly makes the ":finish" pending.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3475 * Also called for a pending finish at the ":endtry" or after returning from
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3476 * an extra do_cmdline(). "reanimate" is used in the latter case.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3477 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3478 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3479 do_finish(exarg_T *eap, int reanimate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3480 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3481 int idx;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3482
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3483 if (reanimate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3484 ((struct source_cookie *)getline_cookie(eap->getline,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3485 eap->cookie))->finished = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3486
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3487 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3488 * Cleanup (and inactivate) conditionals, but stop when a try conditional
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3489 * not in its finally clause (which then is to be executed next) is found.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3490 * In this case, make the ":finish" pending for execution at the ":endtry".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3491 * Otherwise, finish normally.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3492 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3493 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3494 if (idx >= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3495 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3496 eap->cstack->cs_pending[idx] = CSTP_FINISH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3497 report_make_pending(CSTP_FINISH, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3498 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3499 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3500 ((struct source_cookie *)getline_cookie(eap->getline,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3501 eap->cookie))->finished = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3502 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3503
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3504
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3505 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3506 * Return TRUE when a sourced file had the ":finish" command: Don't give error
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3507 * message for missing ":endif".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3508 * Return FALSE when not sourcing a file.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3509 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3510 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3511 source_finished(
17178
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
3512 char_u *(*fgetline)(int, void *, int, int),
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3513 void *cookie)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3514 {
944
b2dcb8457067 updated for version 7.0-070
vimboss
parents: 835
diff changeset
3515 return (getline_equal(fgetline, cookie, getsourceline)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3516 && ((struct source_cookie *)getline_cookie(
944
b2dcb8457067 updated for version 7.0-070
vimboss
parents: 835
diff changeset
3517 fgetline, cookie))->finished);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3518 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3519 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3520
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3521 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3522 * ":checktime [buffer]"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3523 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3524 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3525 ex_checktime(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3526 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3527 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3528 int save_no_check_timestamps = no_check_timestamps;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3529
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3530 no_check_timestamps = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3531 if (eap->addr_count == 0) /* default is all buffers */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3532 check_timestamps(FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3533 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3534 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3535 buf = buflist_findnr((int)eap->line2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3536 if (buf != NULL) /* cannot happen? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3537 (void)buf_check_timestamp(buf, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3538 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3539 no_check_timestamps = save_no_check_timestamps;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3540 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3541
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3542 #if (defined(HAVE_LOCALE_H) || defined(X_LOCALE)) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3543 && (defined(FEAT_EVAL) || defined(FEAT_MULTI_LANG))
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3544 # define HAVE_GET_LOCALE_VAL
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3545 static char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3546 get_locale_val(int what)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3547 {
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3548 char_u *loc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3549
8212
05b88224cea1 commit https://github.com/vim/vim/commit/48e330aff911be1c798c88a973af6437a8141fce
Christian Brabandt <cb@256bit.org>
parents: 8206
diff changeset
3550 /* Obtain the locale value from the libraries. */
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3551 loc = (char_u *)setlocale(what, NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3552
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3553 # ifdef MSWIN
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3554 if (loc != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3555 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3556 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3557
823
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3558 /* setocale() returns something like "LC_COLLATE=<name>;LC_..." when
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3559 * one of the values (e.g., LC_CTYPE) differs. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3560 p = vim_strchr(loc, '=');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3561 if (p != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3562 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3563 loc = ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3564 while (*p != NUL) /* remove trailing newline */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3565 {
823
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3566 if (*p < ' ' || *p == ';')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3567 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3568 *p = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3569 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3570 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3571 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3572 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3573 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3574 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3575 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3576
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3577 return loc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3578 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3579 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3580
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3581
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3582 #ifdef MSWIN
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3583 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3584 * On MS-Windows locale names are strings like "German_Germany.1252", but
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3585 * gettext expects "de". Try to translate one into another here for a few
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3586 * supported languages.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3587 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3588 static char_u *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3589 gettext_lang(char_u *name)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3590 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3591 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3592 static char *(mtable[]) = {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3593 "afrikaans", "af",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3594 "czech", "cs",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3595 "dutch", "nl",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3596 "german", "de",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3597 "english_united kingdom", "en_GB",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3598 "spanish", "es",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3599 "french", "fr",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3600 "italian", "it",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3601 "japanese", "ja",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3602 "korean", "ko",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3603 "norwegian", "no",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3604 "polish", "pl",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3605 "russian", "ru",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3606 "slovak", "sk",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3607 "swedish", "sv",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3608 "ukrainian", "uk",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3609 "chinese_china", "zh_CN",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3610 "chinese_taiwan", "zh_TW",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3611 NULL};
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3612
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3613 for (i = 0; mtable[i] != NULL; i += 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3614 if (STRNICMP(mtable[i], name, STRLEN(mtable[i])) == 0)
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3615 return (char_u *)mtable[i + 1];
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3616 return name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3617 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3618 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3619
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3620 #if defined(FEAT_MULTI_LANG) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3621 /*
15002
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3622 * Return TRUE when "lang" starts with a valid language name.
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3623 * Rejects NULL, empty string, "C", "C.UTF-8" and others.
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3624 */
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3625 static int
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3626 is_valid_mess_lang(char_u *lang)
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3627 {
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3628 return lang != NULL && ASCII_ISALPHA(lang[0]) && ASCII_ISALPHA(lang[1]);
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3629 }
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3630
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3631 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3632 * Obtain the current messages language. Used to set the default for
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3633 * 'helplang'. May return NULL or an empty string.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3634 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3635 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3636 get_mess_lang(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3637 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3638 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3639
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3640 # ifdef HAVE_GET_LOCALE_VAL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3641 # if defined(LC_MESSAGES)
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3642 p = get_locale_val(LC_MESSAGES);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3643 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3644 /* This is necessary for Win32, where LC_MESSAGES is not defined and $LANG
823
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3645 * may be set to the LCID number. LC_COLLATE is the best guess, LC_TIME
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3646 * and LC_MONETARY may be set differently for a Japanese working in the
9ab23f1e137f updated for version 7.0c12
vimboss
parents: 819
diff changeset
3647 * US. */
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3648 p = get_locale_val(LC_COLLATE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3649 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3650 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3651 p = mch_getenv((char_u *)"LC_ALL");
15002
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3652 if (!is_valid_mess_lang(p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3653 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3654 p = mch_getenv((char_u *)"LC_MESSAGES");
15002
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3655 if (!is_valid_mess_lang(p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3656 p = mch_getenv((char_u *)"LANG");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3657 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3658 # endif
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3659 # ifdef MSWIN
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3660 p = gettext_lang(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3661 # endif
15002
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8
Bram Moolenaar <Bram@vim.org>
parents: 14927
diff changeset
3662 return is_valid_mess_lang(p) ? p : NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3663 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3664 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3665
45
e474bae3795f updated for version 7.0027
vimboss
parents: 41
diff changeset
3666 /* Complicated #if; matches with where get_mess_env() is used below. */
e474bae3795f updated for version 7.0027
vimboss
parents: 41
diff changeset
3667 #if (defined(FEAT_EVAL) && !((defined(HAVE_LOCALE_H) || defined(X_LOCALE)) \
e474bae3795f updated for version 7.0027
vimboss
parents: 41
diff changeset
3668 && defined(LC_MESSAGES))) \
e474bae3795f updated for version 7.0027
vimboss
parents: 41
diff changeset
3669 || ((defined(HAVE_LOCALE_H) || defined(X_LOCALE)) \
e474bae3795f updated for version 7.0027
vimboss
parents: 41
diff changeset
3670 && !defined(LC_MESSAGES))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3671 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3672 * Get the language used for messages from the environment.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3673 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3674 static char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3675 get_mess_env(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3676 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3677 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3678
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3679 p = mch_getenv((char_u *)"LC_ALL");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3680 if (p == NULL || *p == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3681 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3682 p = mch_getenv((char_u *)"LC_MESSAGES");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3683 if (p == NULL || *p == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3684 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3685 p = mch_getenv((char_u *)"LANG");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3686 if (p != NULL && VIM_ISDIGIT(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3687 p = NULL; /* ignore something like "1043" */
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3688 # ifdef HAVE_GET_LOCALE_VAL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3689 if (p == NULL || *p == NUL)
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3690 p = get_locale_val(LC_CTYPE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3691 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3692 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3693 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3694 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3695 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3696 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3697
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3698 #if defined(FEAT_EVAL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3699
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3700 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3701 * Set the "v:lang" variable according to the current locale setting.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3702 * Also do "v:lc_time"and "v:ctype".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3703 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3704 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3705 set_lang_var(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3706 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3707 char_u *loc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3708
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3709 # ifdef HAVE_GET_LOCALE_VAL
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3710 loc = get_locale_val(LC_CTYPE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3711 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3712 /* setlocale() not supported: use the default value */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3713 loc = (char_u *)"C";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3714 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3715 set_vim_var_string(VV_CTYPE, loc, -1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3716
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3717 /* When LC_MESSAGES isn't defined use the value from $LC_MESSAGES, fall
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3718 * back to LC_CTYPE if it's empty. */
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3719 # if defined(HAVE_GET_LOCALE_VAL) && defined(LC_MESSAGES)
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3720 loc = get_locale_val(LC_MESSAGES);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3721 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3722 loc = get_mess_env();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3723 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3724 set_vim_var_string(VV_LANG, loc, -1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3725
2419
f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams)
Bram Moolenaar <bram@vim.org>
parents: 2250
diff changeset
3726 # ifdef HAVE_GET_LOCALE_VAL
8080
b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents: 7979
diff changeset
3727 loc = get_locale_val(LC_TIME);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3728 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3729 set_vim_var_string(VV_LC_TIME, loc, -1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3730 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3731 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3732
15597
536dd2bc5ac9 patch 8.1.0806: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15595
diff changeset
3733 #if defined(HAVE_LOCALE_H) || defined(X_LOCALE) \
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3734 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3735 * ":language": Set the language (locale).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3736 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3737 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3738 ex_language(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3739 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3740 char *loc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3741 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3742 char_u *name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3743 int what = LC_ALL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3744 char *whatstr = "";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3745 #ifdef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3746 # define VIM_LC_MESSAGES LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3747 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3748 # define VIM_LC_MESSAGES 6789
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3749 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3750
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3751 name = eap->arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3752
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3753 /* Check for "messages {name}", "ctype {name}" or "time {name}" argument.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3754 * Allow abbreviation, but require at least 3 characters to avoid
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3755 * confusion with a two letter language name "me" or "ct". */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3756 p = skiptowhite(eap->arg);
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
3757 if ((*p == NUL || VIM_ISWHITE(*p)) && p - eap->arg >= 3)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3758 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3759 if (STRNICMP(eap->arg, "messages", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3760 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3761 what = VIM_LC_MESSAGES;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3762 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3763 whatstr = "messages ";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3764 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3765 else if (STRNICMP(eap->arg, "ctype", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3766 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3767 what = LC_CTYPE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3768 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3769 whatstr = "ctype ";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3770 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3771 else if (STRNICMP(eap->arg, "time", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3772 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3773 what = LC_TIME;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3774 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3775 whatstr = "time ";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3776 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3777 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3778
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3779 if (*name == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3780 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3781 #ifndef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3782 if (what == VIM_LC_MESSAGES)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3783 p = get_mess_env();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3784 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3785 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3786 p = (char_u *)setlocale(what, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3787 if (p == NULL || *p == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3788 p = (char_u *)"Unknown";
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3789 smsg(_("Current %slanguage: \"%s\""), whatstr, p);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3790 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3791 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3792 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3793 #ifndef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3794 if (what == VIM_LC_MESSAGES)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3795 loc = "";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3796 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3797 #endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3798 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3799 loc = setlocale(what, (char *)name);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3800 #if defined(FEAT_FLOAT) && defined(LC_NUMERIC)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3801 /* Make sure strtod() uses a decimal point, not a comma. */
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3802 setlocale(LC_NUMERIC, "C");
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3803 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1517
diff changeset
3804 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3805 if (loc == NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15448
diff changeset
3806 semsg(_("E197: Cannot set language to \"%s\""), name);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3807 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3808 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3809 #ifdef HAVE_NL_MSG_CAT_CNTR
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3810 /* Need to do this for GNU gettext, otherwise cached translations
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3811 * will be used again. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3812 extern int _nl_msg_cat_cntr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3813
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3814 ++_nl_msg_cat_cntr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3815 #endif
1222
756bed568f5d updated for version 7.1b
vimboss
parents: 1115
diff changeset
3816 /* Reset $LC_ALL, otherwise it would overrule everything. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3817 vim_setenv((char_u *)"LC_ALL", (char_u *)"");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3818
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3819 if (what != LC_TIME)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3820 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3821 /* Tell gettext() what to translate to. It apparently doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3822 * use the currently effective locale. Also do this when
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3823 * FEAT_GETTEXT isn't defined, so that shell commands use this
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3824 * value. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3825 if (what == LC_ALL)
534
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3826 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3827 vim_setenv((char_u *)"LANG", name);
5027
5751284311f3 updated for version 7.3.1257
Bram Moolenaar <bram@vim.org>
parents: 4833
diff changeset
3828
5751284311f3 updated for version 7.3.1257
Bram Moolenaar <bram@vim.org>
parents: 4833
diff changeset
3829 /* Clear $LANGUAGE because GNU gettext uses it. */
5751284311f3 updated for version 7.3.1257
Bram Moolenaar <bram@vim.org>
parents: 4833
diff changeset
3830 vim_setenv((char_u *)"LANGUAGE", (char_u *)"");
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3831 # ifdef MSWIN
534
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3832 /* Apparently MS-Windows printf() may cause a crash when
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3833 * we give it 8-bit text while it's expecting text in the
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3834 * current locale. This call avoids that. */
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3835 setlocale(LC_CTYPE, "C");
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3836 # endif
c6296b0ad9ea updated for version 7.0151
vimboss
parents: 531
diff changeset
3837 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3838 if (what != LC_CTYPE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3839 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3840 char_u *mname;
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3841 #ifdef MSWIN
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3842 mname = gettext_lang(name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3843 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3844 mname = name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3845 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3846 vim_setenv((char_u *)"LC_MESSAGES", mname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3847 #ifdef FEAT_MULTI_LANG
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3848 set_helplang_default(mname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3849 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3850 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3851 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3852
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3853 # ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3854 /* Set v:lang, v:lc_time and v:ctype to the final result. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3855 set_lang_var();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3856 # endif
3149
35f098371af6 updated for version 7.3.345
Bram Moolenaar <bram@vim.org>
parents: 2921
diff changeset
3857 # ifdef FEAT_TITLE
35f098371af6 updated for version 7.3.345
Bram Moolenaar <bram@vim.org>
parents: 2921
diff changeset
3858 maketitle();
35f098371af6 updated for version 7.3.345
Bram Moolenaar <bram@vim.org>
parents: 2921
diff changeset
3859 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3860 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3861 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3862 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3863
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3864 # if defined(FEAT_CMDL_COMPL) || defined(PROTO)
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3865
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3866 static char_u **locales = NULL; /* Array of all available locales */
10569
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3867
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3868 # ifndef MSWIN
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3869 static int did_init_locales = FALSE;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3870
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3871 /* Return an array of strings for all available locales + NULL for the
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3872 * last element. Return NULL in case of error. */
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3873 static char_u **
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3874 find_locales(void)
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3875 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3876 garray_T locales_ga;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3877 char_u *loc;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3878
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3879 /* Find all available locales by running command "locale -a". If this
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3880 * doesn't work we won't have completion. */
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3881 char_u *locale_a = get_cmd_output((char_u *)"locale -a",
5808
e5f1f2ea0b4a updated for version 7.4.248
Bram Moolenaar <bram@vim.org>
parents: 5464
diff changeset
3882 NULL, SHELL_SILENT, NULL);
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3883 if (locale_a == NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3884 return NULL;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3885 ga_init2(&locales_ga, sizeof(char_u *), 20);
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3886
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3887 /* Transform locale_a string where each locale is separated by "\n"
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3888 * into an array of locale strings. */
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3889 loc = (char_u *)strtok((char *)locale_a, "\n");
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3890
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3891 while (loc != NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3892 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3893 if (ga_grow(&locales_ga, 1) == FAIL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3894 break;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3895 loc = vim_strsave(loc);
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3896 if (loc == NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3897 break;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3898
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3899 ((char_u **)locales_ga.ga_data)[locales_ga.ga_len++] = loc;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3900 loc = (char_u *)strtok(NULL, "\n");
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3901 }
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3902 vim_free(locale_a);
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3903 if (ga_grow(&locales_ga, 1) == FAIL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3904 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3905 ga_clear(&locales_ga);
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3906 return NULL;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3907 }
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3908 ((char_u **)locales_ga.ga_data)[locales_ga.ga_len] = NULL;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3909 return (char_u **)locales_ga.ga_data;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3910 }
10569
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3911 # endif
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3912
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3913 /*
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3914 * Lazy initialization of all available locales.
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3915 */
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3916 static void
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3917 init_locales(void)
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3918 {
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15842
diff changeset
3919 # ifndef MSWIN
10569
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3920 if (!did_init_locales)
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3921 {
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3922 did_init_locales = TRUE;
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3923 locales = find_locales();
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3924 }
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3925 # endif
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly
Christian Brabandt <cb@256bit.org>
parents: 10262
diff changeset
3926 }
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3927
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3928 # if defined(EXITFREE) || defined(PROTO)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3929 void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3930 free_locales(void)
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3931 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3932 int i;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3933 if (locales != NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3934 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3935 for (i = 0; locales[i] != NULL; i++)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3936 vim_free(locales[i]);
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13190
diff changeset
3937 VIM_CLEAR(locales);
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3938 }
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3939 }
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3940 # endif
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3941
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3942 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3943 * Function given to ExpandGeneric() to obtain the possible arguments of the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3944 * ":language" command.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3945 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3946 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3947 get_lang_arg(expand_T *xp UNUSED, int idx)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3948 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3949 if (idx == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3950 return (char_u *)"messages";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3951 if (idx == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3952 return (char_u *)"ctype";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3953 if (idx == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3954 return (char_u *)"time";
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3955
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3956 init_locales();
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3957 if (locales == NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3958 return NULL;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3959 return locales[idx - 3];
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3960 }
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3961
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3962 /*
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3963 * Function given to ExpandGeneric() to obtain the available locales.
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3964 */
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3965 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7807
diff changeset
3966 get_locales(expand_T *xp UNUSED, int idx)
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3967 {
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3968 init_locales();
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3969 if (locales == NULL)
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3970 return NULL;
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2823
diff changeset
3971 return locales[idx];
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3972 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3973 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3974
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3975 #endif