annotate src/eval.c @ 20059:de756b3f4dee v8.2.0585

patch 8.2.0585: Vim9: # comment not recognized after :vim9script Commit: https://github.com/vim/vim/commit/7a09224583b2ad0d9d0648b53cc2d989d45ae96e Author: Bram Moolenaar <Bram@vim.org> Date: Thu Apr 16 22:10:49 2020 +0200 patch 8.2.0585: Vim9: # comment not recognized after :vim9script Problem: Vim9: # comment not recognized after :vim9script. Solution: Check script type. Make comment after ":echo" work. And in several other places.
author Bram Moolenaar <Bram@vim.org>
date Thu, 16 Apr 2020 22:15:04 +0200
parents aadd1cae2ff5
children 6e6a75800884
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: 10000
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 * eval.c: Expression evaluation.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 */
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8291
diff changeset
13 #define USING_FLOAT_STUFF
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
17 #if defined(FEAT_EVAL) || defined(PROTO)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
18
2529
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
19 #ifdef VMS
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
20 # include <float.h>
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
21 #endif
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
22
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
23 static char *e_dictrange = N_("E719: Cannot use [:] with a Dictionary");
4936
ae05437a744a updated for version 7.3.1213
Bram Moolenaar <bram@vim.org>
parents: 4918
diff changeset
24 #ifdef FEAT_FLOAT
4870
b7bb20390111 updated for version 7.3.1181
Bram Moolenaar <bram@vim.org>
parents: 4859
diff changeset
25 static char *e_float_as_string = N_("E806: using Float as a String");
4936
ae05437a744a updated for version 7.3.1213
Bram Moolenaar <bram@vim.org>
parents: 4918
diff changeset
26 #endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
27
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
28 #define NAMESPACE_CHAR (char_u *)"abglstvw"
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
29
142
0ef5b70c3eaf updated for version 7.0045
vimboss
parents: 137
diff changeset
30 /*
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
31 * When recursively copying lists and dicts we need to remember which ones we
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
32 * have done to avoid endless recursiveness. This unique ID is used for that.
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
33 * The last bit is used for previous_funccal, ignored when comparing.
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
34 */
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
35 static int current_copyID = 0;
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
36
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
37 static int echo_attr = 0; // attributes used for ":echo"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
38
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
39 /*
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
40 * Info used by a ":for" loop.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
41 */
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
42 typedef struct
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
43 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
44 int fi_semicolon; // TRUE if ending in '; var]'
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
45 int fi_varcount; // nr of variables in the list
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
46 listwatch_T fi_lw; // keep an eye on the item used.
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
47 list_T *fi_list; // list being used
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
48 int fi_bi; // index of blob
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
49 blob_T *fi_blob; // blob being used
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
50 } forinfo_T;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
51
7720
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
52 static int tv_op(typval_T *tv1, typval_T *tv2, char_u *op);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
53 static int eval2(char_u **arg, typval_T *rettv, int evaluate);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
54 static int eval3(char_u **arg, typval_T *rettv, int evaluate);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
55 static int eval4(char_u **arg, typval_T *rettv, int evaluate);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
56 static int eval5(char_u **arg, typval_T *rettv, int evaluate);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
57 static int eval6(char_u **arg, typval_T *rettv, int evaluate, int want_string);
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
58 static int eval7(char_u **arg, typval_T *rettv, int evaluate, int want_string);
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
59 static int eval7_leader(typval_T *rettv, char_u *start_leader, char_u **end_leaderp);
7720
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
60
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
61 static int free_unref_items(int copyID);
17789
0f7ae8010787 patch 8.1.1891: functions used in one file are global
Bram Moolenaar <Bram@vim.org>
parents: 17781
diff changeset
62 static char_u *make_expanded_name(char_u *in_start, char_u *expr_start, char_u *expr_end, char_u *in_end);
15780
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
63 static int tv_check_lock(typval_T *tv, char_u *name, int use_gettext);
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
64
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
65 /*
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
66 * Return "n1" divided by "n2", taking care of dividing by zero.
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
67 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
68 varnumber_T
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
69 num_divide(varnumber_T n1, varnumber_T n2)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
70 {
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
71 varnumber_T result;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
72
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
73 if (n2 == 0) // give an error message?
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
74 {
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
75 if (n1 == 0)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
76 result = VARNUM_MIN; // similar to NaN
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
77 else if (n1 < 0)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
78 result = -VARNUM_MAX;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
79 else
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
80 result = VARNUM_MAX;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
81 }
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
82 else
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
83 result = n1 / n2;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
84
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
85 return result;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
86 }
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
87
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
88 /*
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
89 * Return "n1" modulus "n2", taking care of dividing by zero.
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
90 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
91 varnumber_T
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
92 num_modulus(varnumber_T n1, varnumber_T n2)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
93 {
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
94 // Give an error when n2 is 0?
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
95 return (n2 == 0) ? 0 : (n1 % n2);
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
96 }
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
97
10567
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
98 #if defined(EBCDIC) || defined(PROTO)
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
99 /*
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
100 * Compare struct fst by function name.
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
101 */
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
102 static int
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
103 compare_func_name(const void *s1, const void *s2)
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
104 {
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
105 struct fst *p1 = (struct fst *)s1;
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
106 struct fst *p2 = (struct fst *)s2;
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
107
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
108 return STRCMP(p1->f_name, p2->f_name);
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
109 }
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
110
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
111 /*
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
112 * Sort the function table by function name.
15490
98c35d312987 patch 8.1.0753: printf format not checked for semsg()
Bram Moolenaar <Bram@vim.org>
parents: 15482
diff changeset
113 * The sorting of the table above is ASCII dependent.
10567
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
114 * On machines using EBCDIC we have to sort it.
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
115 */
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
116 static void
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
117 sortFunctions(void)
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
118 {
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
119 int funcCnt = (int)(sizeof(functions) / sizeof(struct fst)) - 1;
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
120
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
121 qsort(functions, (size_t)funcCnt, sizeof(struct fst), compare_func_name);
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
122 }
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
123 #endif
82c2c450dad0 patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents: 10540
diff changeset
124
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
125 /*
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
126 * Initialize the global and v: variables.
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
127 */
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
128 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
129 eval_init(void)
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
130 {
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
131 evalvars_init();
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
132 func_init();
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
133
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
134 #ifdef EBCDIC
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
135 /*
3178
b7f0f23bf906 updated for version 7.3.359
Bram Moolenaar <bram@vim.org>
parents: 3160
diff changeset
136 * Sort the function table, to enable binary search.
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
137 */
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
138 sortFunctions();
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
139 #endif
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
140 }
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
141
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
142 #if defined(EXITFREE) || defined(PROTO)
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
143 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
144 eval_clear(void)
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
145 {
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
146 evalvars_clear();
19108
44c6498535c9 patch 8.2.0114: info about sourced scripts is scattered
Bram Moolenaar <Bram@vim.org>
parents: 19102
diff changeset
147 free_scriptnames(); // must come after evalvars_clear().
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2845
diff changeset
148 free_locales();
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
149
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
150 // autoloaded script names
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
151 free_autoload_scriptnames();
855
d2a4f08396fe updated for version 7.0f05
vimboss
parents: 846
diff changeset
152
16967
586d625e21b4 patch 8.1.1484: some tests are slow
Bram Moolenaar <Bram@vim.org>
parents: 16872
diff changeset
153 // unreferenced lists and dicts
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
154 (void)garbage_collect(FALSE);
16969
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 16967
diff changeset
155
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 16967
diff changeset
156 // functions not garbage collected
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 16967
diff changeset
157 free_all_functions();
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
158 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
159 #endif
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
160
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 * Top level evaluation function, returning a boolean.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 * Sets "error" to TRUE if there was an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 * Return TRUE or FALSE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
167 eval_to_bool(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
168 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
169 int *error,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
170 char_u **nextcmd,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
171 int skip) // only parse, don't execute
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
173 typval_T tv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
174 varnumber_T retval = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 ++emsg_skip;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
178 if (eval0(arg, &tv, nextcmd, !skip) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 *error = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 *error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 if (!skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
185 retval = (tv_get_number_chk(&tv, error) != 0);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
186 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
191
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
192 return (int)retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194
15478
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
195 /*
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
196 * Call eval1() and give an error message if not done at a lower level.
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
197 */
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
198 static int
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
199 eval1_emsg(char_u **arg, typval_T *rettv, int evaluate)
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
200 {
15482
18dd04f7c4a1 patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents: 15478
diff changeset
201 char_u *start = *arg;
15478
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
202 int ret;
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
203 int did_emsg_before = did_emsg;
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
204 int called_emsg_before = called_emsg;
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
205
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
206 ret = eval1(arg, rettv, evaluate);
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
207 if (ret == FAIL)
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
208 {
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
209 // Report the invalid expression unless the expression evaluation has
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
210 // been cancelled due to an aborting error, an interrupt, or an
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
211 // exception, or we already gave a more specific error.
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
212 // Also check called_emsg for when using assert_fails().
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
213 if (!aborting() && did_emsg == did_emsg_before
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
214 && called_emsg == called_emsg_before)
15482
18dd04f7c4a1 patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents: 15478
diff changeset
215 semsg(_(e_invexpr2), start);
15478
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
216 }
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
217 return ret;
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
218 }
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
219
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
220 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
221 * Evaluate an expression, which can be a function, partial or string.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
222 * Pass arguments "argv[argc]".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
223 * Return the result in "rettv" and OK or FAIL.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
224 */
16231
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16223
diff changeset
225 int
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
226 eval_expr_typval(typval_T *expr, typval_T *argv, int argc, typval_T *rettv)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
227 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
228 char_u *s;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
229 char_u buf[NUMBUFLEN];
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
230 funcexe_T funcexe;
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
231
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
232 if (expr->v_type == VAR_FUNC)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
233 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
234 s = expr->vval.v_string;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
235 if (s == NULL || *s == NUL)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
236 return FAIL;
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
237 CLEAR_FIELD(funcexe);
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
238 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
239 if (call_func(s, -1, rettv, argc, argv, &funcexe) == FAIL)
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
240 return FAIL;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
241 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
242 else if (expr->v_type == VAR_PARTIAL)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
243 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
244 partial_T *partial = expr->vval.v_partial;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
245
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
246 if (partial->pt_func != NULL && partial->pt_func->uf_dfunc_idx >= 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
247 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
248 if (call_def_function(partial->pt_func, argc, argv, rettv) == FAIL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
249 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
250 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
251 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
252 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
253 s = partial_name(partial);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
254 if (s == NULL || *s == NUL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
255 return FAIL;
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
256 CLEAR_FIELD(funcexe);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
257 funcexe.evaluate = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
258 funcexe.partial = partial;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
259 if (call_func(s, -1, rettv, argc, argv, &funcexe) == FAIL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
260 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
261 }
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
262 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
263 else
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
264 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
265 s = tv_get_string_buf_chk(expr, buf);
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
266 if (s == NULL)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
267 return FAIL;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
268 s = skipwhite(s);
15478
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
269 if (eval1_emsg(&s, rettv, TRUE) == FAIL)
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
270 return FAIL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
271 if (*s != NUL) // check for trailing chars after expr
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
272 {
14331
f8280e1bfc84 patch 8.1.0181: memory leak with trailing characters in skip expression
Christian Brabandt <cb@256bit.org>
parents: 14071
diff changeset
273 clear_tv(rettv);
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
274 semsg(_(e_invexpr2), s);
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
275 return FAIL;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
276 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
277 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
278 return OK;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
279 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
280
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
281 /*
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
282 * Like eval_to_bool() but using a typval_T instead of a string.
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
283 * Works for string, funcref and partial.
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
284 */
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
285 int
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
286 eval_expr_to_bool(typval_T *expr, int *error)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
287 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
288 typval_T rettv;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
289 int res;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
290
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
291 if (eval_expr_typval(expr, NULL, 0, &rettv) == FAIL)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
292 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
293 *error = TRUE;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
294 return FALSE;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
295 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
296 res = (tv_get_number_chk(&rettv, error) != 0);
12722
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
297 clear_tv(&rettv);
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
298 return res;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
299 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
300
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 * Top level evaluation function, returning a string. If "skip" is TRUE,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 * only parsing to "nextcmd" is done, without reporting errors. Return
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304 * pointer to allocated memory, or NULL for failure or when "skip" is TRUE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
306 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
307 eval_to_string_skip(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
308 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
309 char_u **nextcmd,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
310 int skip) // only parse, don't execute
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
312 typval_T tv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 char_u *retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
316 ++emsg_skip;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
317 if (eval0(arg, &tv, nextcmd, !skip) == FAIL || skip)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
318 retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
319 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
321 retval = vim_strsave(tv_get_string(&tv));
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
322 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 /*
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
331 * Skip over an expression at "*pp".
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
332 * Return FAIL for an error, OK otherwise.
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
333 */
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
334 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
335 skip_expr(char_u **pp)
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
336 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
337 typval_T rettv;
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
338
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
339 *pp = skipwhite(*pp);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
340 return eval1(pp, &rettv, FALSE);
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
341 }
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
342
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
343 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 * Top level evaluation function, returning a string.
1713
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
345 * When "convert" is TRUE convert a List into a sequence of lines and convert
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
346 * a Float to a String.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347 * Return pointer to allocated memory, or NULL for failure.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
349 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
350 eval_to_string(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
351 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
352 char_u **nextcmd,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
353 int convert)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
355 typval_T tv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 char_u *retval;
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
357 garray_T ga;
1851
e7f6ca5594cf updated for version 7.2-149
vimboss
parents: 1800
diff changeset
358 #ifdef FEAT_FLOAT
1713
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
359 char_u numbuf[NUMBUFLEN];
1851
e7f6ca5594cf updated for version 7.2-149
vimboss
parents: 1800
diff changeset
360 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
361
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
362 if (eval0(arg, &tv, nextcmd, TRUE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
363 retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
364 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
365 {
1713
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
366 if (convert && tv.v_type == VAR_LIST)
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
367 {
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
368 ga_init2(&ga, (int)sizeof(char), 80);
1690
c6b06a4a8f92 updated for version 7.2b-023
vimboss
parents: 1683
diff changeset
369 if (tv.vval.v_list != NULL)
3000
02f5abca10ae updated for version 7.3.272
Bram Moolenaar <bram@vim.org>
parents: 2963
diff changeset
370 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
371 list_join(&ga, tv.vval.v_list, (char_u *)"\n", TRUE, FALSE, 0);
3000
02f5abca10ae updated for version 7.3.272
Bram Moolenaar <bram@vim.org>
parents: 2963
diff changeset
372 if (tv.vval.v_list->lv_len > 0)
02f5abca10ae updated for version 7.3.272
Bram Moolenaar <bram@vim.org>
parents: 2963
diff changeset
373 ga_append(&ga, NL);
02f5abca10ae updated for version 7.3.272
Bram Moolenaar <bram@vim.org>
parents: 2963
diff changeset
374 }
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
375 ga_append(&ga, NUL);
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
376 retval = (char_u *)ga.ga_data;
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
377 }
1713
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
378 #ifdef FEAT_FLOAT
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
379 else if (convert && tv.v_type == VAR_FLOAT)
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
380 {
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
381 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv.vval.v_float);
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
382 retval = vim_strsave(numbuf);
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
383 }
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
384 #endif
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
385 else
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
386 retval = vim_strsave(tv_get_string(&tv));
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
387 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
388 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
389
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
390 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
392
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
393 /*
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
394 * Call eval_to_string() without using current local variables and using
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
395 * textlock. When "use_sandbox" is TRUE use the sandbox.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
396 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
397 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
398 eval_to_string_safe(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
399 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
400 char_u **nextcmd,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
401 int use_sandbox)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 char_u *retval;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
404 funccal_entry_T funccal_entry;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
405
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
406 save_funccal(&funccal_entry);
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
407 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
408 ++sandbox;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
409 ++textlock;
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
410 retval = eval_to_string(arg, nextcmd, FALSE);
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
411 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
412 --sandbox;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
413 --textlock;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
414 restore_funccal();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
419 * Top level evaluation function, returning a number.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
420 * Evaluates "expr" silently.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
421 * Returns -1 for an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
422 */
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
423 varnumber_T
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
424 eval_to_number(char_u *expr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
426 typval_T rettv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
427 varnumber_T retval;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
428 char_u *p = skipwhite(expr);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
430 ++emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
431
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
432 if (eval1(&p, &rettv, TRUE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
433 retval = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
436 retval = tv_get_number_chk(&rettv, NULL);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
437 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 --emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
444 /*
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
445 * Top level evaluation function.
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
446 * Returns an allocated typval_T with the result.
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
447 * Returns NULL when there is an error.
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
448 */
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
449 typval_T *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
450 eval_expr(char_u *arg, char_u **nextcmd)
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
451 {
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
452 typval_T *tv;
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
453
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16796
diff changeset
454 tv = ALLOC_ONE(typval_T);
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
455 if (tv != NULL && eval0(arg, tv, nextcmd, TRUE) == FAIL)
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13037
diff changeset
456 VIM_CLEAR(tv);
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
457
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
458 return tv;
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
459 }
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
460
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
461 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
462 * Call some Vim script function and return the result in "*rettv".
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
463 * Uses argv[0] to argv[argc - 1] for the function arguments. argv[argc]
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
464 * should have type VAR_UNKNOWN.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
465 * Returns OK or FAIL.
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
466 */
3078
2cbde6bcc623 updated for version 7.3.311
Bram Moolenaar <bram@vim.org>
parents: 3066
diff changeset
467 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
468 call_vim_function(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
469 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
470 int argc,
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
471 typval_T *argv,
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
472 typval_T *rettv)
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
473 {
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
474 int ret;
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
475 funcexe_T funcexe;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
477 rettv->v_type = VAR_UNKNOWN; // clear_tv() uses this
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
478 CLEAR_FIELD(funcexe);
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
479 funcexe.firstline = curwin->w_cursor.lnum;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
480 funcexe.lastline = curwin->w_cursor.lnum;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
481 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
482 ret = call_func(func, -1, rettv, argc, argv, &funcexe);
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
483 if (ret == FAIL)
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
484 clear_tv(rettv);
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
485
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
486 return ret;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
487 }
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
488
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
489 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
490 * Call Vim script function "func" and return the result as a number.
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
491 * Returns -1 when calling the function fails.
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
492 * Uses argv[0] to argv[argc - 1] for the function arguments. argv[argc] should
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
493 * have type VAR_UNKNOWN.
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
494 */
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
495 varnumber_T
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
496 call_func_retnr(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
497 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
498 int argc,
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
499 typval_T *argv)
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
500 {
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
501 typval_T rettv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
502 varnumber_T retval;
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
503
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
504 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
505 return -1;
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
506
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
507 retval = tv_get_number_chk(&rettv, NULL);
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
508 clear_tv(&rettv);
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
509 return retval;
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
510 }
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
511
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
512 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
513 * Call Vim script function "func" and return the result as a string.
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
514 * Returns NULL when calling the function fails.
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
515 * Uses argv[0] to argv[argc - 1] for the function arguments. argv[argc] should
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
516 * have type VAR_UNKNOWN.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
517 */
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
518 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
519 call_func_retstr(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
520 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
521 int argc,
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
522 typval_T *argv)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
523 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
524 typval_T rettv;
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
525 char_u *retval;
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
526
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
527 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
528 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
529
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
530 retval = vim_strsave(tv_get_string(&rettv));
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
531 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533 }
1322
4ce0a7e4c6b3 updated for version 7.1-036
vimboss
parents: 1320
diff changeset
534
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
535 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
536 * Call Vim script function "func" and return the result as a List.
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
537 * Uses argv[0] to argv[argc - 1] for the function arguments. argv[argc] should
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
538 * have type VAR_UNKNOWN.
1690
c6b06a4a8f92 updated for version 7.2b-023
vimboss
parents: 1683
diff changeset
539 * Returns NULL when there is something wrong.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
540 */
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
541 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
542 call_func_retlist(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
543 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
544 int argc,
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
545 typval_T *argv)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
546 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
547 typval_T rettv;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
548
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
549 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
550 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
551
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
552 if (rettv.v_type != VAR_LIST)
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
553 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
554 clear_tv(&rettv);
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
555 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
556 }
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
557
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
558 return rettv.vval.v_list;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
559 }
1322
4ce0a7e4c6b3 updated for version 7.1-036
vimboss
parents: 1320
diff changeset
560
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 #ifdef FEAT_FOLDING
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
562 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 * Evaluate 'foldexpr'. Returns the foldlevel, and any character preceding
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 * it in "*cp". Doesn't give error messages.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
567 eval_foldexpr(char_u *arg, int *cp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
569 typval_T tv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
570 varnumber_T retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 char_u *s;
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 680
diff changeset
572 int use_sandbox = was_set_insecurely((char_u *)"foldexpr",
9364d114ed8d updated for version 7.0204
vimboss
parents: 680
diff changeset
573 OPT_LOCAL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 ++emsg_off;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
576 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
577 ++sandbox;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
578 ++textlock;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 *cp = NUL;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
580 if (eval0(arg, &tv, NULL, TRUE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
584 // If the result is a number, just return the number.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
585 if (tv.v_type == VAR_NUMBER)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
586 retval = tv.vval.v_number;
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
587 else if (tv.v_type != VAR_STRING || tv.vval.v_string == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
591 // If the result is a string, check if there is a non-digit before
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
592 // the number.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
593 s = tv.vval.v_string;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 if (!VIM_ISDIGIT(*s) && *s != '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 *cp = *s++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596 retval = atol((char *)s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
598 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 --emsg_off;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
601 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
602 --sandbox;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
603 --textlock;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
605 return (int)retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 /*
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
610 * Get an lval: variable, Dict item or List item that can be assigned a value
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
611 * to: "name", "na{me}", "name[expr]", "name[expr:expr]", "name[expr][expr]",
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
612 * "name.key", "name.key[expr]" etc.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
613 * Indexing only works if "name" is an existing List or Dictionary.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
614 * "name" points to the start of the name.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
615 * If "rettv" is not NULL it points to the value to be assigned.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
616 * "unlet" is TRUE for ":unlet": slightly different behavior when something is
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
617 * wrong; must end in space or cmd separator.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
618 *
5604
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
619 * flags:
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
620 * GLV_QUIET: do not give error messages
10912
fd1760f8c215 patch 8.0.0345: islocked('d.changedtick') does not work
Christian Brabandt <cb@256bit.org>
parents: 10910
diff changeset
621 * GLV_READ_ONLY: will not change the variable
5604
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
622 * GLV_NO_AUTOLOAD: do not use script autoloading
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
623 *
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
624 * Returns a pointer to just after the name, including indexes.
124
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
625 * When an evaluation error occurs "lp->ll_name" is NULL;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
626 * Returns NULL for a parsing error. Still need to free items in "lp"!
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
627 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
628 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
629 get_lval(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
630 char_u *name,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
631 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
632 lval_T *lp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
633 int unlet,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
634 int skip,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
635 int flags, // GLV_ values
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
636 int fne_flags) // flags for find_name_end()
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
637 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
638 char_u *p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
639 char_u *expr_start, *expr_end;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
640 int cc;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
641 dictitem_T *v;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
642 typval_T var1;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
643 typval_T var2;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
644 int empty1 = FALSE;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
645 listitem_T *ni;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
646 char_u *key = NULL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
647 int len;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
648 hashtab_T *ht;
5604
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
649 int quiet = flags & GLV_QUIET;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
650
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
651 // Clear everything in "lp".
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
652 CLEAR_POINTER(lp);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
653
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
654 if (skip)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
655 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
656 // When skipping just find the end of the name.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
657 lp->ll_name = name;
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
658 return find_name_end(name, NULL, NULL, FNE_INCL_BR | fne_flags);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
659 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
660
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
661 // Find the end of the name.
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
662 p = find_name_end(name, &expr_start, &expr_end, fne_flags);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
663 lp->ll_name_end = p;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
664 if (expr_start != NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
665 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
666 // Don't expand the name when we already know there is an error.
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
667 if (unlet && !VIM_ISWHITE(*p) && !ends_excmd(*p)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
668 && *p != '[' && *p != '.')
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
669 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
670 emsg(_(e_trailing));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
671 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
672 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
673
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
674 lp->ll_exp_name = make_expanded_name(name, expr_start, expr_end, p);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
675 if (lp->ll_exp_name == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
676 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
677 // Report an invalid expression in braces, unless the
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
678 // expression evaluation has been cancelled due to an
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
679 // aborting error, an interrupt, or an exception.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
680 if (!aborting() && !quiet)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
681 {
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
682 emsg_severe = TRUE;
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
683 semsg(_(e_invarg2), name);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
684 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
685 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
686 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
687 lp->ll_name = lp->ll_exp_name;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
688 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
689 else
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
690 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
691 lp->ll_name = name;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
692
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
693 if (current_sctx.sc_version == SCRIPT_VERSION_VIM9 && *p == ':')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
694 {
19191
133ef7ba4e4e patch 8.2.0154: reallocating the list of scripts is inefficient
Bram Moolenaar <Bram@vim.org>
parents: 19181
diff changeset
695 scriptitem_T *si = SCRIPT_ITEM(current_sctx.sc_sid);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
696 char_u *tp = skipwhite(p + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
697
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
698 // parse the type after the name
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
699 lp->ll_type = parse_type(&tp, &si->sn_type_list);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
700 lp->ll_name_end = tp;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
701 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
702 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
703
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
704 // Without [idx] or .key we are done.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
705 if ((*p != '[' && *p != '.') || lp->ll_name == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
706 return p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
707
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
708 cc = *p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
709 *p = NUL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
710 // Only pass &ht when we would write to the variable, it prevents autoload
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
711 // as well.
13002
f7b2ecaeb79c patch 8.0.1377: cannot call a dict function in autoloaded dict
Christian Brabandt <cb@256bit.org>
parents: 12728
diff changeset
712 v = find_var(lp->ll_name, (flags & GLV_READ_ONLY) ? NULL : &ht,
f7b2ecaeb79c patch 8.0.1377: cannot call a dict function in autoloaded dict
Christian Brabandt <cb@256bit.org>
parents: 12728
diff changeset
713 flags & GLV_NO_AUTOLOAD);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
714 if (v == NULL && !quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
715 semsg(_(e_undefvar), lp->ll_name);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
716 *p = cc;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
717 if (v == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
718 return NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
719
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
720 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
721 * Loop until no more [idx] or .key is following.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
722 */
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
723 lp->ll_tv = &v->di_tv;
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
724 var1.v_type = VAR_UNKNOWN;
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
725 var2.v_type = VAR_UNKNOWN;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
726 while (*p == '[' || (*p == '.' && lp->ll_tv->v_type == VAR_DICT))
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
727 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
728 if (!(lp->ll_tv->v_type == VAR_LIST && lp->ll_tv->vval.v_list != NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
729 && !(lp->ll_tv->v_type == VAR_DICT
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
730 && lp->ll_tv->vval.v_dict != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
731 && !(lp->ll_tv->v_type == VAR_BLOB
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
732 && lp->ll_tv->vval.v_blob != NULL))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
733 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
734 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
735 emsg(_("E689: Can only index a List, Dictionary or Blob"));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
736 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
737 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
738 if (lp->ll_range)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
739 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
740 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
741 emsg(_("E708: [:] must come last"));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
742 return NULL;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
743 }
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
744
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
745 len = -1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
746 if (*p == '.')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
747 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
748 key = p + 1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
749 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
750 ;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
751 if (len == 0)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
752 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
753 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
754 emsg(_(e_emptykey));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
755 return NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
756 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
757 p = key + len;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
758 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
759 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
760 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
761 // Get the index [expr] or the first index [expr: ].
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
762 p = skipwhite(p + 1);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
763 if (*p == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
764 empty1 = TRUE;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
765 else
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
766 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
767 empty1 = FALSE;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
768 if (eval1(&p, &var1, TRUE) == FAIL) // recursive!
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
769 return NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
770 if (tv_get_string_chk(&var1) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
771 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
772 // not a number or string
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
773 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
774 return NULL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
775 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
776 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
777
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
778 // Optionally get the second index [ :expr].
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
779 if (*p == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
780 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
781 if (lp->ll_tv->v_type == VAR_DICT)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
782 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
783 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
784 emsg(_(e_dictrange));
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
785 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
786 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
787 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
788 if (rettv != NULL
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
789 && !(rettv->v_type == VAR_LIST
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
790 && rettv->vval.v_list != NULL)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
791 && !(rettv->v_type == VAR_BLOB
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
792 && rettv->vval.v_blob != NULL))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
793 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
794 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
795 emsg(_("E709: [:] requires a List or Blob value"));
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
796 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
797 return NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
798 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
799 p = skipwhite(p + 1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
800 if (*p == ']')
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
801 lp->ll_empty2 = TRUE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
802 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
803 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
804 lp->ll_empty2 = FALSE;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
805 if (eval1(&p, &var2, TRUE) == FAIL) // recursive!
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
806 {
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
807 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
808 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
809 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
810 if (tv_get_string_chk(&var2) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
811 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
812 // not a number or string
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
813 clear_tv(&var1);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
814 clear_tv(&var2);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
815 return NULL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
816 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
817 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
818 lp->ll_range = TRUE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
819 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
820 else
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
821 lp->ll_range = FALSE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
822
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
823 if (*p != ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
824 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
825 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
826 emsg(_(e_missbrac));
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
827 clear_tv(&var1);
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
828 clear_tv(&var2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
829 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
830 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
831
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
832 // Skip to past ']'.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
833 ++p;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
834 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
835
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
836 if (lp->ll_tv->v_type == VAR_DICT)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
837 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
838 if (len == -1)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
839 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
840 // "[key]": get key from "var1"
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
841 key = tv_get_string_chk(&var1); // is number or string
8839
9fa567d13551 commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents: 8831
diff changeset
842 if (key == NULL)
9fa567d13551 commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents: 8831
diff changeset
843 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
844 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
845 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
846 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
847 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
848 lp->ll_list = NULL;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
849 lp->ll_dict = lp->ll_tv->vval.v_dict;
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
850 lp->ll_di = dict_find(lp->ll_dict, key, len);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
851
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
852 // When assigning to a scope dictionary check that a function and
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
853 // variable name is valid (only variable name unless it is l: or
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
854 // g: dictionary). Disallow overwriting a builtin function.
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
855 if (rettv != NULL && lp->ll_dict->dv_scope != 0)
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
856 {
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
857 int prevval;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
858 int wrong;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
859
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
860 if (len != -1)
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
861 {
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
862 prevval = key[len];
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
863 key[len] = NUL;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
864 }
4819
8c4324e6f477 updated for version 7.3.1156
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
865 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
866 prevval = 0; // avoid compiler warning
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
867 wrong = (lp->ll_dict->dv_scope == VAR_DEF_SCOPE
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
868 && rettv->v_type == VAR_FUNC
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
869 && var_check_func_name(key, lp->ll_di == NULL))
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
870 || !valid_varname(key);
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
871 if (len != -1)
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
872 key[len] = prevval;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
873 if (wrong)
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
874 return NULL;
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
875 }
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
876
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
877 if (lp->ll_di == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
878 {
15762
dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
879 // Can't add "v:" or "a:" variable.
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
880 if (lp->ll_dict == get_vimvar_dict()
15762
dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
881 || &lp->ll_dict->dv_hashtab == get_funccal_args_ht())
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
882 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
883 semsg(_(e_illvar), name);
16013
93b08b92a049 patch 8.1.1012: memory leak with E461
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
884 clear_tv(&var1);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
885 return NULL;
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
886 }
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
887
15762
dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
888 // Key does not exist in dict: may need to add it.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
889 if (*p == '[' || *p == '.' || unlet)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
890 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
891 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
892 semsg(_(e_dictkey), key);
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
893 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
894 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
895 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
896 if (len == -1)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
897 lp->ll_newkey = vim_strsave(key);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
898 else
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
899 lp->ll_newkey = vim_strnsave(key, len);
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
900 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
901 if (lp->ll_newkey == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
902 p = NULL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
903 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
904 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
905 // existing variable, need to check if it can be changed
10912
fd1760f8c215 patch 8.0.0345: islocked('d.changedtick') does not work
Christian Brabandt <cb@256bit.org>
parents: 10910
diff changeset
906 else if ((flags & GLV_READ_ONLY) == 0
fd1760f8c215 patch 8.0.0345: islocked('d.changedtick') does not work
Christian Brabandt <cb@256bit.org>
parents: 10910
diff changeset
907 && var_check_ro(lp->ll_di->di_flags, name, FALSE))
10910
8bff367672a4 patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents: 10908
diff changeset
908 {
8bff367672a4 patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents: 10908
diff changeset
909 clear_tv(&var1);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
910 return NULL;
10910
8bff367672a4 patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents: 10908
diff changeset
911 }
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
912
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
913 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
914 lp->ll_tv = &lp->ll_di->di_tv;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
915 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
916 else if (lp->ll_tv->v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
917 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
918 long bloblen = blob_len(lp->ll_tv->vval.v_blob);
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
919
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
920 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
921 * Get the number and item for the only or first index of the List.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
922 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
923 if (empty1)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
924 lp->ll_n1 = 0;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
925 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
926 // is number or string
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
927 lp->ll_n1 = (long)tv_get_number(&var1);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
928 clear_tv(&var1);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
929
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
930 if (lp->ll_n1 < 0
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
931 || lp->ll_n1 > bloblen
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
932 || (lp->ll_range && lp->ll_n1 == bloblen))
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
933 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
934 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
935 semsg(_(e_blobidx), lp->ll_n1);
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
936 clear_tv(&var2);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
937 return NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
938 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
939 if (lp->ll_range && !lp->ll_empty2)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
940 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
941 lp->ll_n2 = (long)tv_get_number(&var2);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
942 clear_tv(&var2);
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
943 if (lp->ll_n2 < 0
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
944 || lp->ll_n2 >= bloblen
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
945 || lp->ll_n2 < lp->ll_n1)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
946 {
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
947 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
948 semsg(_(e_blobidx), lp->ll_n2);
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
949 return NULL;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
950 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
951 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
952 lp->ll_blob = lp->ll_tv->vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
953 lp->ll_tv = NULL;
16036
89fb86821b4a patch 8.1.1023: may use NULL pointer when indexing a blob
Bram Moolenaar <Bram@vim.org>
parents: 16013
diff changeset
954 break;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
955 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
956 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
957 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
958 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
959 * Get the number and item for the only or first index of the List.
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
960 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
961 if (empty1)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
962 lp->ll_n1 = 0;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
963 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
964 // is number or string
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
965 lp->ll_n1 = (long)tv_get_number(&var1);
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
966 clear_tv(&var1);
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
967
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
968 lp->ll_dict = NULL;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
969 lp->ll_list = lp->ll_tv->vval.v_list;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
970 lp->ll_li = list_find(lp->ll_list, lp->ll_n1);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
971 if (lp->ll_li == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
972 {
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
973 if (lp->ll_n1 < 0)
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
974 {
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
975 lp->ll_n1 = 0;
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
976 lp->ll_li = list_find(lp->ll_list, lp->ll_n1);
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
977 }
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
978 }
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
979 if (lp->ll_li == NULL)
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
980 {
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
981 clear_tv(&var2);
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
982 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
983 semsg(_(e_listidx), lp->ll_n1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
984 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
985 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
986
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
987 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
988 * May need to find the item or absolute index for the second
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
989 * index of a range.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
990 * When no index given: "lp->ll_empty2" is TRUE.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
991 * Otherwise "lp->ll_n2" is set to the second index.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
992 */
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
993 if (lp->ll_range && !lp->ll_empty2)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
994 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
995 lp->ll_n2 = (long)tv_get_number(&var2);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
996 // is number or string
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
997 clear_tv(&var2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
998 if (lp->ll_n2 < 0)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
999 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1000 ni = list_find(lp->ll_list, lp->ll_n2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1001 if (ni == NULL)
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1002 {
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1003 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1004 semsg(_(e_listidx), lp->ll_n2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1005 return NULL;
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1006 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1007 lp->ll_n2 = list_idx_of_item(lp->ll_list, ni);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1008 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1009
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1010 // Check that lp->ll_n2 isn't before lp->ll_n1.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1011 if (lp->ll_n1 < 0)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1012 lp->ll_n1 = list_idx_of_item(lp->ll_list, lp->ll_li);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1013 if (lp->ll_n2 < lp->ll_n1)
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1014 {
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1015 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1016 semsg(_(e_listidx), lp->ll_n2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1017 return NULL;
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1018 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1019 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1020
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1021 lp->ll_tv = &lp->ll_li->li_tv;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1022 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1023 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1024
10926
7dab3a9cb933 patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents: 10912
diff changeset
1025 clear_tv(&var1);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1026 lp->ll_name_end = p;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1027 return p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1028 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1029
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1030 /*
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1031 * Clear lval "lp" that was filled by get_lval().
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1032 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1033 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1034 clear_lval(lval_T *lp)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1035 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1036 vim_free(lp->ll_exp_name);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1037 vim_free(lp->ll_newkey);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1038 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1039
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1040 /*
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1041 * Set a variable that was parsed by get_lval() to "rettv".
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1042 * "endp" points to just after the parsed name.
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1043 * "op" is NULL, "+" for "+=", "-" for "-=", "*" for "*=", "/" for "/=",
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1044 * "%" for "%=", "." for ".=" or "=" for "=".
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1045 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
1046 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1047 set_var_lval(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1048 lval_T *lp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1049 char_u *endp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1050 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1051 int copy,
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1052 int flags, // LET_IS_CONST and/or LET_NO_COMMAND
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1053 char_u *op)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1054 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1055 int cc;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1056 listitem_T *ri;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1057 dictitem_T *di;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1058
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1059 if (lp->ll_tv == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1060 {
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1061 cc = *endp;
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1062 *endp = NUL;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1063 if (lp->ll_blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1064 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1065 int error = FALSE, val;
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1066
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1067 if (op != NULL && *op != '=')
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1068 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1069 semsg(_(e_letwrong), op);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1070 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1071 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1072
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1073 if (lp->ll_range && rettv->v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1074 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1075 int il, ir;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1076
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1077 if (lp->ll_empty2)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1078 lp->ll_n2 = blob_len(lp->ll_blob) - 1;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1079
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1080 if (lp->ll_n2 - lp->ll_n1 + 1 != blob_len(rettv->vval.v_blob))
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1081 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1082 emsg(_("E972: Blob value does not have the right number of bytes"));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1083 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1084 }
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1085 if (lp->ll_empty2)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1086 lp->ll_n2 = blob_len(lp->ll_blob);
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1087
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1088 ir = 0;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1089 for (il = lp->ll_n1; il <= lp->ll_n2; il++)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1090 blob_set(lp->ll_blob, il,
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1091 blob_get(rettv->vval.v_blob, ir++));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1092 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1093 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1094 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1095 val = (int)tv_get_number_chk(rettv, &error);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1096 if (!error)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1097 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1098 garray_T *gap = &lp->ll_blob->bv_ga;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1099
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1100 // Allow for appending a byte. Setting a byte beyond
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1101 // the end is an error otherwise.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1102 if (lp->ll_n1 < gap->ga_len
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1103 || (lp->ll_n1 == gap->ga_len
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1104 && ga_grow(&lp->ll_blob->bv_ga, 1) == OK))
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1105 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1106 blob_set(lp->ll_blob, lp->ll_n1, val);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1107 if (lp->ll_n1 == gap->ga_len)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1108 ++gap->ga_len;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1109 }
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1110 // error for invalid range was already given in get_lval()
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1111 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1112 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1113 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1114 else if (op != NULL && *op != '=')
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1115 {
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1116 typval_T tv;
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1117
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1118 if (flags & LET_IS_CONST)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1119 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1120 emsg(_(e_cannot_mod));
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1121 *endp = cc;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1122 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1123 }
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1124
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1125 // handle +=, -=, *=, /=, %= and .=
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1126 di = NULL;
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1127 if (get_var_tv(lp->ll_name, (int)STRLEN(lp->ll_name),
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1128 &tv, &di, TRUE, FALSE) == OK)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1129 {
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1130 if ((di == NULL
15780
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
1131 || (!var_check_ro(di->di_flags, lp->ll_name, FALSE)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
1132 && !tv_check_lock(&di->di_tv, lp->ll_name, FALSE)))
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1133 && tv_op(&tv, rettv, op) == OK)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1134 set_var(lp->ll_name, &tv, FALSE);
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1135 clear_tv(&tv);
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1136 }
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1137 }
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1138 else
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1139 set_var_const(lp->ll_name, lp->ll_type, rettv, copy, flags);
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1140 *endp = cc;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1141 }
15780
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
1142 else if (var_check_lock(lp->ll_newkey == NULL
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1143 ? lp->ll_tv->v_lock
6773
eb4b705a5d6a patch 7.4.708
Bram Moolenaar <bram@vim.org>
parents: 6761
diff changeset
1144 : lp->ll_tv->vval.v_dict->dv_lock, lp->ll_name, FALSE))
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1145 ;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1146 else if (lp->ll_range)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1147 {
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1148 listitem_T *ll_li = lp->ll_li;
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1149 int ll_n1 = lp->ll_n1;
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1150
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1151 if (flags & LET_IS_CONST)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1152 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1153 emsg(_("E996: Cannot lock a range"));
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1154 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1155 }
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1156
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1157 /*
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1158 * Check whether any of the list items is locked
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1159 */
6422
9fbb9c60ab41 updated for version 7.4.541
Bram Moolenaar <bram@vim.org>
parents: 6388
diff changeset
1160 for (ri = rettv->vval.v_list->lv_first; ri != NULL && ll_li != NULL; )
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1161 {
15780
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
1162 if (var_check_lock(ll_li->li_tv.v_lock, lp->ll_name, FALSE))
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1163 return;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1164 ri = ri->li_next;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1165 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == ll_n1))
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1166 break;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1167 ll_li = ll_li->li_next;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1168 ++ll_n1;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1169 }
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1170
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1171 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1172 * Assign the List values to the list items.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1173 */
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1174 for (ri = rettv->vval.v_list->lv_first; ri != NULL; )
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1175 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1176 if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1177 tv_op(&lp->ll_li->li_tv, &ri->li_tv, op);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1178 else
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1179 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1180 clear_tv(&lp->ll_li->li_tv);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1181 copy_tv(&ri->li_tv, &lp->ll_li->li_tv);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1182 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1183 ri = ri->li_next;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1184 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == lp->ll_n1))
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1185 break;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1186 if (lp->ll_li->li_next == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1187 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1188 // Need to add an empty item.
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
1189 if (list_append_number(lp->ll_list, 0) == FAIL)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1190 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1191 ri = NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
1192 break;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1193 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1194 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1195 lp->ll_li = lp->ll_li->li_next;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1196 ++lp->ll_n1;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1197 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1198 if (ri != NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1199 emsg(_("E710: List value has more items than target"));
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1200 else if (lp->ll_empty2
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1201 ? (lp->ll_li != NULL && lp->ll_li->li_next != NULL)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1202 : lp->ll_n1 != lp->ll_n2)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1203 emsg(_("E711: List value has not enough items"));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1204 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1205 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1206 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1207 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1208 * Assign to a List or Dictionary item.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1209 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1210 if (flags & LET_IS_CONST)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1211 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1212 emsg(_("E996: Cannot lock a list or dict"));
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1213 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1214 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1215 if (lp->ll_newkey != NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1216 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1217 if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1218 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1219 semsg(_(e_letwrong), op);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1220 return;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1221 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1222
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1223 // Need to add an item to the Dictionary.
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1224 di = dictitem_alloc(lp->ll_newkey);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1225 if (di == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1226 return;
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1227 if (dict_add(lp->ll_tv->vval.v_dict, di) == FAIL)
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1228 {
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1229 vim_free(di);
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1230 return;
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1231 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1232 lp->ll_tv = &di->di_tv;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1233 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1234 else if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1235 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1236 tv_op(lp->ll_tv, rettv, op);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1237 return;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1238 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1239 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1240 clear_tv(lp->ll_tv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1241
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1242 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1243 * Assign the value to the variable or list item.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1244 */
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1245 if (copy)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1246 copy_tv(rettv, lp->ll_tv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1247 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1248 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1249 *lp->ll_tv = *rettv;
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
1250 lp->ll_tv->v_lock = 0;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1251 init_tv(rettv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1252 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1253 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1254 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1255
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1256 /*
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1257 * Handle "tv1 += tv2", "tv1 -= tv2", "tv1 *= tv2", "tv1 /= tv2", "tv1 %= tv2"
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1258 * and "tv1 .= tv2"
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1259 * Returns OK or FAIL.
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1260 */
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1261 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1262 tv_op(typval_T *tv1, typval_T *tv2, char_u *op)
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1263 {
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
1264 varnumber_T n;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1265 char_u numbuf[NUMBUFLEN];
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1266 char_u *s;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1267
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1268 // Can't do anything with a Funcref, Dict, v:true on the right.
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
1269 if (tv2->v_type != VAR_FUNC && tv2->v_type != VAR_DICT
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
1270 && tv2->v_type != VAR_BOOL && tv2->v_type != VAR_SPECIAL)
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1271 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1272 switch (tv1->v_type)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1273 {
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
1274 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
1275 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1276 case VAR_VOID:
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1277 case VAR_DICT:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1278 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
1279 case VAR_PARTIAL:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
1280 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
1281 case VAR_SPECIAL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
1282 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
1283 case VAR_CHANNEL:
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1284 break;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1285
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1286 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1287 if (*op != '+' || tv2->v_type != VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1288 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1289 // BLOB += BLOB
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1290 if (tv1->vval.v_blob != NULL && tv2->vval.v_blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1291 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1292 blob_T *b1 = tv1->vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1293 blob_T *b2 = tv2->vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1294 int i, len = blob_len(b2);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1295 for (i = 0; i < len; i++)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1296 ga_append(&b1->bv_ga, blob_get(b2, i));
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1297 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1298 return OK;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1299
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1300 case VAR_LIST:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1301 if (*op != '+' || tv2->v_type != VAR_LIST)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1302 break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1303 // List += List
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1304 if (tv1->vval.v_list != NULL && tv2->vval.v_list != NULL)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1305 list_extend(tv1->vval.v_list, tv2->vval.v_list, NULL);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1306 return OK;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1307
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1308 case VAR_NUMBER:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1309 case VAR_STRING:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1310 if (tv2->v_type == VAR_LIST)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1311 break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1312 if (vim_strchr((char_u *)"+-*/%", *op) != NULL)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1313 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1314 // nr += nr , nr -= nr , nr *=nr , nr /= nr , nr %= nr
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1315 n = tv_get_number(tv1);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1316 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1317 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1318 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1319 float_T f = n;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1320
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1321 if (*op == '%')
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1322 break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1323 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1324 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1325 case '+': f += tv2->vval.v_float; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1326 case '-': f -= tv2->vval.v_float; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1327 case '*': f *= tv2->vval.v_float; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1328 case '/': f /= tv2->vval.v_float; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1329 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1330 clear_tv(tv1);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1331 tv1->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1332 tv1->vval.v_float = f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1333 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1334 else
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1335 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1336 {
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1337 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1338 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1339 case '+': n += tv_get_number(tv2); break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1340 case '-': n -= tv_get_number(tv2); break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1341 case '*': n *= tv_get_number(tv2); break;
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
1342 case '/': n = num_divide(n, tv_get_number(tv2)); break;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
1343 case '%': n = num_modulus(n, tv_get_number(tv2)); break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1344 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1345 clear_tv(tv1);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1346 tv1->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1347 tv1->vval.v_number = n;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1348 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1349 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1350 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1351 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1352 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1353 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1354
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1355 // str .= str
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1356 s = tv_get_string(tv1);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1357 s = concat_str(s, tv_get_string_buf(tv2, numbuf));
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1358 clear_tv(tv1);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1359 tv1->v_type = VAR_STRING;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1360 tv1->vval.v_string = s;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1361 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1362 return OK;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1363
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1364 case VAR_FLOAT:
8364
991d8fd4d841 commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents: 8350
diff changeset
1365 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1366 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1367 float_T f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1368
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1369 if (*op == '%' || *op == '.'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1370 || (tv2->v_type != VAR_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1371 && tv2->v_type != VAR_NUMBER
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1372 && tv2->v_type != VAR_STRING))
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1373 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1374 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1375 f = tv2->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1376 else
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1377 f = tv_get_number(tv2);
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1378 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1379 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1380 case '+': tv1->vval.v_float += f; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1381 case '-': tv1->vval.v_float -= f; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1382 case '*': tv1->vval.v_float *= f; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1383 case '/': tv1->vval.v_float /= f; break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1384 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1385 }
8364
991d8fd4d841 commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents: 8350
diff changeset
1386 #endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1387 return OK;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1388 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1389 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1390
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1391 semsg(_(e_letwrong), op);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1392 return FAIL;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1393 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1394
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1395 /*
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1396 * Evaluate the expression used in a ":for var in expr" command.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1397 * "arg" points to "var".
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1398 * Set "*errp" to TRUE for an error, FALSE otherwise;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1399 * Return a pointer that holds the info. Null when there is an error.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1400 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1401 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1402 eval_for_line(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1403 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1404 int *errp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1405 char_u **nextcmdp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1406 int skip)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1407 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1408 forinfo_T *fi;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1409 char_u *expr;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1410 typval_T tv;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1411 list_T *l;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1412
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1413 *errp = TRUE; // default: there is an error
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1414
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16796
diff changeset
1415 fi = ALLOC_CLEAR_ONE(forinfo_T);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1416 if (fi == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1417 return NULL;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1418
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1419 expr = skip_var_list(arg, TRUE, &fi->fi_varcount, &fi->fi_semicolon);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1420 if (expr == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1421 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1422
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1423 expr = skipwhite(expr);
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
1424 if (expr[0] != 'i' || expr[1] != 'n' || !VIM_ISWHITE(expr[2]))
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1425 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1426 emsg(_(e_missing_in));
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1427 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1428 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1429
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1430 if (skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1431 ++emsg_skip;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1432 if (eval0(skipwhite(expr + 2), &tv, nextcmdp, !skip) == OK)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1433 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1434 *errp = FALSE;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1435 if (!skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1436 {
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1437 if (tv.v_type == VAR_LIST)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1438 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1439 l = tv.vval.v_list;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1440 if (l == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1441 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1442 // a null list is like an empty list: do nothing
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1443 clear_tv(&tv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1444 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1445 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1446 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1447 // Need a real list here.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1448 range_list_materialize(l);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1449
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1450 // No need to increment the refcount, it's already set for
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1451 // the list being used in "tv".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1452 fi->fi_list = l;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1453 list_add_watch(l, &fi->fi_lw);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1454 fi->fi_lw.lw_item = l->lv_first;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1455 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1456 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1457 else if (tv.v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1458 {
15581
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1459 fi->fi_bi = 0;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1460 if (tv.vval.v_blob != NULL)
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1461 {
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1462 typval_T btv;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1463
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1464 // Make a copy, so that the iteration still works when the
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1465 // blob is changed.
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1466 blob_copy(tv.vval.v_blob, &btv);
15581
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1467 fi->fi_blob = btv.vval.v_blob;
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1468 }
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1469 clear_tv(&tv);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1470 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1471 else
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1472 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1473 emsg(_(e_listreq));
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1474 clear_tv(&tv);
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1475 }
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1476 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1477 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1478 if (skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1479 --emsg_skip;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1480
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1481 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1482 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1483
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1484 /*
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1485 * Use the first item in a ":for" list. Advance to the next.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1486 * Assign the values to the variable (list). "arg" points to the first one.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1487 * Return TRUE when a valid item was found, FALSE when at end of list or
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1488 * something wrong.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1489 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1490 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1491 next_for_item(void *fi_void, char_u *arg)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1492 {
4974
a594ce86b5ea updated for version 7.3.1232
Bram Moolenaar <bram@vim.org>
parents: 4936
diff changeset
1493 forinfo_T *fi = (forinfo_T *)fi_void;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1494 int result;
19568
c0749ad6c699 patch 8.2.0341: using ":for" in Vim9 script gives an error
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1495 int flag = current_sctx.sc_version == SCRIPT_VERSION_VIM9 ?
c0749ad6c699 patch 8.2.0341: using ":for" in Vim9 script gives an error
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1496 LET_NO_COMMAND : 0;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1497 listitem_T *item;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1498
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1499 if (fi->fi_blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1500 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1501 typval_T tv;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1502
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1503 if (fi->fi_bi >= blob_len(fi->fi_blob))
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1504 return FALSE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1505 tv.v_type = VAR_NUMBER;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1506 tv.v_lock = VAR_FIXED;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1507 tv.vval.v_number = blob_get(fi->fi_blob, fi->fi_bi);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1508 ++fi->fi_bi;
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1509 return ex_let_vars(arg, &tv, TRUE, fi->fi_semicolon,
19568
c0749ad6c699 patch 8.2.0341: using ":for" in Vim9 script gives an error
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1510 fi->fi_varcount, flag, NULL) == OK;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1511 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1512
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1513 item = fi->fi_lw.lw_item;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1514 if (item == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1515 result = FALSE;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1516 else
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1517 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1518 fi->fi_lw.lw_item = item->li_next;
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1519 result = (ex_let_vars(arg, &item->li_tv, TRUE, fi->fi_semicolon,
19568
c0749ad6c699 patch 8.2.0341: using ":for" in Vim9 script gives an error
Bram Moolenaar <Bram@vim.org>
parents: 19554
diff changeset
1520 fi->fi_varcount, flag, NULL) == OK);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1521 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1522 return result;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1523 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1524
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1525 /*
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1526 * Free the structure used to store info used by ":for".
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1527 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1528 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1529 free_for_info(void *fi_void)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1530 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1531 forinfo_T *fi = (forinfo_T *)fi_void;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1532
92
a9e90b3356b6 updated for version 7.0036
vimboss
parents: 88
diff changeset
1533 if (fi != NULL && fi->fi_list != NULL)
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1534 {
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1535 list_rem_watch(fi->fi_list, &fi->fi_lw);
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1536 list_unref(fi->fi_list);
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1537 }
15460
543cff56dd3f patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents: 15458
diff changeset
1538 if (fi != NULL && fi->fi_blob != NULL)
543cff56dd3f patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents: 15458
diff changeset
1539 blob_unref(fi->fi_blob);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1540 vim_free(fi);
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1541 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1542
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1543 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1544 set_context_for_expression(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1545 expand_T *xp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1546 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1547 cmdidx_T cmdidx)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1548 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1549 int got_eq = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1550 int c;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1551 char_u *p;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1552
18713
baf890fa1621 patch 8.1.2348: :const cannot be followed by "| endif"
Bram Moolenaar <Bram@vim.org>
parents: 18301
diff changeset
1553 if (cmdidx == CMD_let || cmdidx == CMD_const)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1554 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1555 xp->xp_context = EXPAND_USER_VARS;
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
1556 if (vim_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1557 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1558 // ":let var1 var2 ...": find last space.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
1559 for (p = arg + STRLEN(arg); p >= arg; )
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1560 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1561 xp->xp_pattern = p;
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
1562 MB_PTR_BACK(arg, p);
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
1563 if (VIM_ISWHITE(*p))
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1564 break;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1565 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1566 return;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1567 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1568 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1569 else
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1570 xp->xp_context = cmdidx == CMD_call ? EXPAND_FUNCTIONS
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1571 : EXPAND_EXPRESSION;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1572 while ((xp->xp_pattern = vim_strpbrk(arg,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1573 (char_u *)"\"'+-*/%.=!?~|&$([<>,#")) != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1574 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1575 c = *xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1576 if (c == '&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1577 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1578 c = xp->xp_pattern[1];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1579 if (c == '&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1580 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1581 ++xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1582 xp->xp_context = cmdidx != CMD_let || got_eq
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1583 ? EXPAND_EXPRESSION : EXPAND_NOTHING;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1584 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1585 else if (c != ' ')
201
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1586 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1587 xp->xp_context = EXPAND_SETTINGS;
201
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1588 if ((c == 'l' || c == 'g') && xp->xp_pattern[2] == ':')
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1589 xp->xp_pattern += 2;
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1590
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1591 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1592 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1593 else if (c == '$')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1594 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1595 // environment variable
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1596 xp->xp_context = EXPAND_ENV_VARS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1597 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1598 else if (c == '=')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1599 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1600 got_eq = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1601 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1602 }
8763
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1603 else if (c == '#'
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1604 && xp->xp_context == EXPAND_EXPRESSION)
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1605 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1606 // Autoload function/variable contains '#'.
8763
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1607 break;
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1608 }
6367
81c9b19ee0fb updated for version 7.4.516
Bram Moolenaar <bram@vim.org>
parents: 6361
diff changeset
1609 else if ((c == '<' || c == '#')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1610 && xp->xp_context == EXPAND_FUNCTIONS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1611 && vim_strchr(xp->xp_pattern, '(') == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1612 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1613 // Function name can start with "<SNR>" and contain '#'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1614 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1615 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1616 else if (cmdidx != CMD_let || got_eq)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1617 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1618 if (c == '"') // string
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1619 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1620 while ((c = *++xp->xp_pattern) != NUL && c != '"')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1621 if (c == '\\' && xp->xp_pattern[1] != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1622 ++xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1623 xp->xp_context = EXPAND_NOTHING;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1624 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1625 else if (c == '\'') // literal string
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1626 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1627 // Trick: '' is like stopping and starting a literal string.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1628 while ((c = *++xp->xp_pattern) != NUL && c != '\'')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1629 /* skip */ ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1630 xp->xp_context = EXPAND_NOTHING;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1631 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1632 else if (c == '|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1633 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1634 if (xp->xp_pattern[1] == '|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1635 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1636 ++xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1637 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1638 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1639 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1640 xp->xp_context = EXPAND_COMMANDS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1641 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1642 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1643 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1644 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1645 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1646 // Doesn't look like something valid, expand as an expression
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1647 // anyway.
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1648 xp->xp_context = EXPAND_EXPRESSION;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1649 arg = xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1650 if (*arg != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1651 while ((c = *++arg) != NUL && (c == ' ' || c == '\t'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1652 /* skip */ ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1653 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1654 xp->xp_pattern = arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1655 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1656
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1657 /*
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1658 * Return TRUE if "pat" matches "text".
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1659 * Does not use 'cpo' and always uses 'magic'.
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1660 */
17377
cb008de2a6ec patch 8.1.1687: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17375
diff changeset
1661 int
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1662 pattern_match(char_u *pat, char_u *text, int ic)
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1663 {
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1664 int matches = FALSE;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1665 char_u *save_cpo;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1666 regmatch_T regmatch;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1667
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1668 // avoid 'l' flag in 'cpoptions'
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1669 save_cpo = p_cpo;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1670 p_cpo = (char_u *)"";
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1671 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1672 if (regmatch.regprog != NULL)
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1673 {
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1674 regmatch.rm_ic = ic;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1675 matches = vim_regexec_nl(&regmatch, text, (colnr_T)0);
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1676 vim_regfree(regmatch.regprog);
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1677 }
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1678 p_cpo = save_cpo;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1679 return matches;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1680 }
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1681
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1682 /*
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1683 * Handle a name followed by "(". Both for just "name(arg)" and for
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1684 * "expr->name(arg)".
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1685 * Returns OK or FAIL.
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1686 */
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1687 static int
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1688 eval_func(
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1689 char_u **arg, // points to "(", will be advanced
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1690 char_u *name,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1691 int name_len,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1692 typval_T *rettv,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1693 int evaluate,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1694 typval_T *basetv) // "expr" for "expr->name(arg)"
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1695 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1696 char_u *s = name;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1697 int len = name_len;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1698 partial_T *partial;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1699 int ret = OK;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1700
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1701 if (!evaluate)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1702 check_vars(s, len);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1703
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1704 // If "s" is the name of a variable of type VAR_FUNC
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1705 // use its contents.
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1706 s = deref_func_name(s, &len, &partial, !evaluate);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1707
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1708 // Need to make a copy, in case evaluating the arguments makes
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1709 // the name invalid.
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1710 s = vim_strsave(s);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1711 if (s == NULL)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1712 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1713 else
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1714 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1715 funcexe_T funcexe;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1716
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1717 // Invoke the function.
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
1718 CLEAR_FIELD(funcexe);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1719 funcexe.firstline = curwin->w_cursor.lnum;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1720 funcexe.lastline = curwin->w_cursor.lnum;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1721 funcexe.evaluate = evaluate;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1722 funcexe.partial = partial;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1723 funcexe.basetv = basetv;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1724 ret = get_func_tv(s, len, rettv, arg, &funcexe);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1725 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1726 vim_free(s);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1727
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1728 // If evaluate is FALSE rettv->v_type was not set in
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1729 // get_func_tv, but it's needed in handle_subscript() to parse
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1730 // what follows. So set it here.
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1731 if (rettv->v_type == VAR_UNKNOWN && !evaluate && **arg == '(')
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1732 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1733 rettv->vval.v_string = NULL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1734 rettv->v_type = VAR_FUNC;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1735 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1736
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1737 // Stop the expression evaluation when immediately
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1738 // aborting on error, or when an interrupt occurred or
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1739 // an exception was thrown but not caught.
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1740 if (evaluate && aborting())
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1741 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1742 if (ret == OK)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1743 clear_tv(rettv);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1744 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1745 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1746 return ret;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1747 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1748
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1749 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1750 * The "evaluate" argument: When FALSE, the argument is only parsed but not
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1751 * executed. The function may return OK, but the rettv will be of type
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1752 * VAR_UNKNOWN. The function still returns FAIL for a syntax error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1753 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1754
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1755 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1756 * Handle zero level expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1757 * This calls eval1() and handles error message and nextcmd.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1758 * Put the result in "rettv" when returning OK and "evaluate" is TRUE.
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
1759 * Note: "rettv.v_lock" is not set.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1760 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1761 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1762 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1763 eval0(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1764 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1765 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1766 char_u **nextcmd,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1767 int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1768 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1769 int ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1770 char_u *p;
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1771 int did_emsg_before = did_emsg;
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1772 int called_emsg_before = called_emsg;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1773
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1774 p = skipwhite(arg);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1775 ret = eval1(&p, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1776 if (ret == FAIL || !ends_excmd(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1777 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1778 if (ret != FAIL)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1779 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1780 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1781 * Report the invalid expression unless the expression evaluation has
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1782 * been cancelled due to an aborting error, an interrupt, or an
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1783 * exception, or we already gave a more specific error.
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1784 * Also check called_emsg for when using assert_fails().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1785 */
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1786 if (!aborting() && did_emsg == did_emsg_before
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1787 && called_emsg == called_emsg_before)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1788 semsg(_(e_invexpr2), arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1789 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1790 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1791 if (nextcmd != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1792 *nextcmd = check_nextcmd(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1793
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1794 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1795 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1796
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1797 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1798 * Handle top level expression:
1800
e7633eb32cfd updated for version 7.2-098
vimboss
parents: 1794
diff changeset
1799 * expr2 ? expr1 : expr1
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1800 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1801 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1802 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1803 *
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
1804 * Note: "rettv.v_lock" is not set.
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
1805 *
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1806 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1807 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
1808 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1809 eval1(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1810 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1811 int result;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1812 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1813
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1814 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1815 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1816 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1817 if (eval2(arg, rettv, evaluate) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1818 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1819
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1820 if ((*arg)[0] == '?')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1821 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1822 result = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1823 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1824 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1825 int error = FALSE;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1826
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1827 if (tv_get_number_chk(rettv, &error) != 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1828 result = TRUE;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1829 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1830 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1831 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1832 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1833
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1834 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1835 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1836 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1837 *arg = skipwhite(*arg + 1);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1838 if (eval1(arg, rettv, evaluate && result) == FAIL) // recursive!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1839 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1840
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1841 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1842 * Check for the ":".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1843 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1844 if ((*arg)[0] != ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1845 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1846 emsg(_(e_missing_colon));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1847 if (evaluate && result)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1848 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1849 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1850 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1851
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1852 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1853 * Get the third variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1854 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1855 *arg = skipwhite(*arg + 1);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1856 if (eval1(arg, &var2, evaluate && !result) == FAIL) // recursive!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1857 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1858 if (evaluate && result)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1859 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1860 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1861 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1862 if (evaluate && !result)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1863 *rettv = var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1864 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1865
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1866 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1867 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1868
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1869 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1870 * Handle first level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1871 * expr2 || expr2 || expr2 logical OR
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1872 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1873 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1874 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1875 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1876 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1877 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1878 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1879 eval2(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1880 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1881 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1882 long result;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1883 int first;
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1884 int error = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1885
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1886 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1887 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1888 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1889 if (eval3(arg, rettv, evaluate) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1890 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1891
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1892 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1893 * Repeat until there is no following "||".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1894 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1895 first = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1896 result = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1897 while ((*arg)[0] == '|' && (*arg)[1] == '|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1898 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1899 if (evaluate && first)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1900 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1901 if (tv_get_number_chk(rettv, &error) != 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1902 result = TRUE;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1903 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1904 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1905 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1906 first = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1907 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1908
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1909 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1910 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1911 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1912 *arg = skipwhite(*arg + 2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1913 if (eval3(arg, &var2, evaluate && !result) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1914 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1915
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1916 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1917 * Compute the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1918 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1919 if (evaluate && !result)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1920 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1921 if (tv_get_number_chk(&var2, &error) != 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1922 result = TRUE;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1923 clear_tv(&var2);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1924 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1925 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1926 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1927 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1928 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1929 rettv->v_type = VAR_NUMBER;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1930 rettv->vval.v_number = result;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1931 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1932 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1933
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1934 return OK;
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 * Handle second level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1939 * expr3 && expr3 && expr3 logical AND
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1940 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1941 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1942 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1943 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1944 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1945 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1946 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1947 eval3(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1948 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1949 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1950 long result;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1951 int first;
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1952 int error = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1953
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1954 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1955 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1956 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1957 if (eval4(arg, rettv, evaluate) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1958 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1959
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1960 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1961 * Repeat until there is no following "&&".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1962 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1963 first = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1964 result = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1965 while ((*arg)[0] == '&' && (*arg)[1] == '&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1966 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1967 if (evaluate && first)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1968 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1969 if (tv_get_number_chk(rettv, &error) == 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1970 result = FALSE;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1971 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1972 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1973 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1974 first = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1975 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1976
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1977 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1978 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1979 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1980 *arg = skipwhite(*arg + 2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1981 if (eval4(arg, &var2, evaluate && result) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1982 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1983
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1984 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1985 * Compute the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1986 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1987 if (evaluate && result)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1988 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1989 if (tv_get_number_chk(&var2, &error) == 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1990 result = FALSE;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1991 clear_tv(&var2);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1992 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1993 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1994 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1995 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1996 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1997 rettv->v_type = VAR_NUMBER;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
1998 rettv->vval.v_number = result;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1999 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2000 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2001
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2002 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2003 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2004
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2005 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2006 * Handle third level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2007 * var1 == var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2008 * var1 =~ var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2009 * var1 != var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2010 * var1 !~ var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2011 * var1 > var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2012 * var1 >= var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2013 * var1 < var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2014 * var1 <= var2
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2015 * var1 is var2
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2016 * var1 isnot var2
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2017 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2018 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2019 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2020 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2021 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2022 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2023 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2024 eval4(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2025 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
2026 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2027 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2028 int i;
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2029 exptype_T type = EXPR_UNKNOWN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2030 int len = 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2031 int ic;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2032
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2033 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2034 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2035 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2036 if (eval5(arg, rettv, evaluate) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2037 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2038
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2039 p = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2040 switch (p[0])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2041 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2042 case '=': if (p[1] == '=')
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2043 type = EXPR_EQUAL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2044 else if (p[1] == '~')
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2045 type = EXPR_MATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2046 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2047 case '!': if (p[1] == '=')
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2048 type = EXPR_NEQUAL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2049 else if (p[1] == '~')
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2050 type = EXPR_NOMATCH;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2051 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2052 case '>': if (p[1] != '=')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2053 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2054 type = EXPR_GREATER;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2055 len = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2056 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2057 else
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2058 type = EXPR_GEQUAL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2059 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2060 case '<': if (p[1] != '=')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2061 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2062 type = EXPR_SMALLER;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2063 len = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2064 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2065 else
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2066 type = EXPR_SEQUAL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2067 break;
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2068 case 'i': if (p[1] == 's')
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2069 {
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2070 if (p[2] == 'n' && p[3] == 'o' && p[4] == 't')
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2071 len = 5;
7064
5fc5c5bf2233 commit https://github.com/vim/vim/commit/37a8de17d4dfd3d463960c38a204ce399c8e19d4
Christian Brabandt <cb@256bit.org>
parents: 7046
diff changeset
2072 i = p[len];
5fc5c5bf2233 commit https://github.com/vim/vim/commit/37a8de17d4dfd3d463960c38a204ce399c8e19d4
Christian Brabandt <cb@256bit.org>
parents: 7046
diff changeset
2073 if (!isalnum(i) && i != '_')
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2074 type = len == 2 ? EXPR_IS : EXPR_ISNOT;
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2075 }
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2076 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2077 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2078
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2079 /*
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2080 * If there is a comparative operator, use it.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2081 */
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2082 if (type != EXPR_UNKNOWN)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2083 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2084 // extra question mark appended: ignore case
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2085 if (p[len] == '?')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2086 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2087 ic = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2088 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2089 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2090 // extra '#' appended: match case
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2091 else if (p[len] == '#')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2092 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2093 ic = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2094 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2095 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2096 // nothing appended: use 'ignorecase'
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2097 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2098 ic = p_ic;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2099
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2100 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2101 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2102 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2103 *arg = skipwhite(p + len);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2104 if (eval5(arg, &var2, evaluate) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2105 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2106 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2107 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2108 }
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2109 if (evaluate)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2110 {
18966
6bd715870e32 patch 8.2.0044: expression type is used inconsistently
Bram Moolenaar <Bram@vim.org>
parents: 18939
diff changeset
2111 int ret = typval_compare(rettv, &var2, type, ic);
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2112
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2113 clear_tv(&var2);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2114 return ret;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2115 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2116 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2117
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2118 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2119 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2120
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2121 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2122 eval_addblob(typval_T *tv1, typval_T *tv2)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2123 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2124 blob_T *b1 = tv1->vval.v_blob;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2125 blob_T *b2 = tv2->vval.v_blob;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2126 blob_T *b = blob_alloc();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2127 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2128
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2129 if (b != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2130 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2131 for (i = 0; i < blob_len(b1); i++)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2132 ga_append(&b->bv_ga, blob_get(b1, i));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2133 for (i = 0; i < blob_len(b2); i++)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2134 ga_append(&b->bv_ga, blob_get(b2, i));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2135
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2136 clear_tv(tv1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2137 rettv_blob_set(tv1, b);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2138 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2139 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2140
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2141 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2142 eval_addlist(typval_T *tv1, typval_T *tv2)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2143 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2144 typval_T var3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2145
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2146 // concatenate Lists
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2147 if (list_concat(tv1->vval.v_list, tv2->vval.v_list, &var3) == FAIL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2148 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2149 clear_tv(tv1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2150 clear_tv(tv2);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2151 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2152 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2153 clear_tv(tv1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2154 *tv1 = var3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2155 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2156 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2157
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2158 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2159 * Handle fourth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2160 * + number addition
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2161 * - number subtraction
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2162 * . string concatenation (if script version is 1)
16219
bd49e1656c72 patch 8.1.1114: confusing overloaded operator "." for string concatenation
Bram Moolenaar <Bram@vim.org>
parents: 16170
diff changeset
2163 * .. string concatenation
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2164 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2165 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2166 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2167 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2168 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2169 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2170 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2171 eval5(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2172 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
2173 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2174 int op;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
2175 varnumber_T n1, n2;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2176 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2177 float_T f1 = 0, f2 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2178 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2179 char_u *s1, *s2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2180 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2181 char_u *p;
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2182 int concat;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2183
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2184 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2185 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2186 */
1655
6412b0befebc updated for version 7.2a-007
vimboss
parents: 1653
diff changeset
2187 if (eval6(arg, rettv, evaluate, FALSE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2188 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2189
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2190 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2191 * Repeat computing, until no '+', '-' or '.' is following.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2192 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2193 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2194 {
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2195 // "." is only string concatenation when scriptversion is 1
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2196 op = **arg;
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2197 concat = op == '.'
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2198 && (*(*arg + 1) == '.' || current_sctx.sc_version < 2);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2199 if (op != '+' && op != '-' && !concat)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2200 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2201
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2202 if ((op != '+' || (rettv->v_type != VAR_LIST
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2203 && rettv->v_type != VAR_BLOB))
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2204 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2205 && (op == '.' || rettv->v_type != VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2206 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2207 )
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2208 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2209 // For "list + ...", an illegal use of the first operand as
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2210 // a number cannot be determined before evaluating the 2nd
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2211 // operand: if this is also a list, all is ok.
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2212 // For "something . ...", "something - ..." or "non-list + ...",
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2213 // we know that the first operand needs to be a string or number
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2214 // without evaluating the 2nd operand. So check before to avoid
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2215 // side effects after an error.
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2216 if (evaluate && tv_get_string_chk(rettv) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2217 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2218 clear_tv(rettv);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2219 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2220 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2221 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2222
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2223 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2224 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2225 */
16219
bd49e1656c72 patch 8.1.1114: confusing overloaded operator "." for string concatenation
Bram Moolenaar <Bram@vim.org>
parents: 16170
diff changeset
2226 if (op == '.' && *(*arg + 1) == '.') // .. string concatenation
bd49e1656c72 patch 8.1.1114: confusing overloaded operator "." for string concatenation
Bram Moolenaar <Bram@vim.org>
parents: 16170
diff changeset
2227 ++*arg;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2228 *arg = skipwhite(*arg + 1);
1655
6412b0befebc updated for version 7.2a-007
vimboss
parents: 1653
diff changeset
2229 if (eval6(arg, &var2, evaluate, op == '.') == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2230 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2231 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2232 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2233 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2234
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2235 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2236 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2237 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2238 * Compute the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2239 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2240 if (op == '.')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2241 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2242 s1 = tv_get_string_buf(rettv, buf1); // already checked
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2243 s2 = tv_get_string_buf_chk(&var2, buf2);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2244 if (s2 == NULL) // type error ?
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2245 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2246 clear_tv(rettv);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2247 clear_tv(&var2);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2248 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2249 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
2250 p = concat_str(s1, s2);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2251 clear_tv(rettv);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2252 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2253 rettv->vval.v_string = p;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2254 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2255 else if (op == '+' && rettv->v_type == VAR_BLOB
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2256 && var2.v_type == VAR_BLOB)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2257 eval_addblob(rettv, &var2);
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2258 else if (op == '+' && rettv->v_type == VAR_LIST
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2259 && var2.v_type == VAR_LIST)
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2260 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2261 if (eval_addlist(rettv, &var2) == FAIL)
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2262 return FAIL;
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2263 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2264 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2265 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2266 int error = FALSE;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2267
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2268 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2269 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2270 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2271 f1 = rettv->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2272 n1 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2273 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2274 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2275 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2276 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2277 n1 = tv_get_number_chk(rettv, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2278 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2279 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2280 // This can only happen for "list + non-list". For
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2281 // "non-list + ..." or "something - ...", we returned
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2282 // before evaluating the 2nd operand.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2283 clear_tv(rettv);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2284 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2285 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2286 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2287 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2288 f1 = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2289 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2290 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2291 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2292 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2293 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2294 f2 = var2.vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2295 n2 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2296 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2297 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2298 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2299 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2300 n2 = tv_get_number_chk(&var2, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2301 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2302 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2303 clear_tv(rettv);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2304 clear_tv(&var2);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2305 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2306 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2307 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2308 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2309 f2 = n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2310 #endif
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2311 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2312 clear_tv(rettv);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2313
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2314 #ifdef FEAT_FLOAT
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2315 // If there is a float on either side the result is a float.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2316 if (rettv->v_type == VAR_FLOAT || var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2317 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2318 if (op == '+')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2319 f1 = f1 + f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2320 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2321 f1 = f1 - f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2322 rettv->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2323 rettv->vval.v_float = f1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2324 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2325 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2326 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2327 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2328 if (op == '+')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2329 n1 = n1 + n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2330 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2331 n1 = n1 - n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2332 rettv->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2333 rettv->vval.v_number = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2334 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2335 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2336 clear_tv(&var2);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2337 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2338 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2339 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2340 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2341
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2342 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2343 * Handle fifth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2344 * * number multiplication
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2345 * / number division
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2346 * % number modulo
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2347 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2348 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2349 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2350 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2351 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2352 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2353 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2354 eval6(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2355 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2356 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2357 int evaluate,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2358 int want_string) // after "." operator
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2359 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
2360 typval_T var2;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2361 int op;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
2362 varnumber_T n1, n2;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2363 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2364 int use_float = FALSE;
16405
840fa633ad64 patch 8.1.1207: some compilers give warning messages
Bram Moolenaar <Bram@vim.org>
parents: 16366
diff changeset
2365 float_T f1 = 0, f2 = 0;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2366 #endif
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2367 int error = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2368
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2369 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2370 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2371 */
1655
6412b0befebc updated for version 7.2a-007
vimboss
parents: 1653
diff changeset
2372 if (eval7(arg, rettv, evaluate, want_string) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2373 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2374
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2375 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2376 * Repeat computing, until no '*', '/' or '%' is following.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2377 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2378 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2379 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2380 op = **arg;
17387
2558f90045e5 patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents: 17377
diff changeset
2381 if (op != '*' && op != '/' && op != '%')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2382 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2383
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2384 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2385 {
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2386 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2387 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2388 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2389 f1 = rettv->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2390 use_float = TRUE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2391 n1 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2392 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2393 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2394 #endif
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2395 n1 = tv_get_number_chk(rettv, &error);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2396 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2397 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2398 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2399 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2400 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2401 n1 = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2402
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2403 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2404 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2406 *arg = skipwhite(*arg + 1);
1655
6412b0befebc updated for version 7.2a-007
vimboss
parents: 1653
diff changeset
2407 if (eval7(arg, &var2, evaluate, FALSE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2408 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2409
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2410 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2411 {
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2412 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2413 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2414 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2415 if (!use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2416 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2417 f1 = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2418 use_float = TRUE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2419 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2420 f2 = var2.vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2421 n2 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2422 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2423 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2424 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2425 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
2426 n2 = tv_get_number_chk(&var2, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2427 clear_tv(&var2);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2428 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2429 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2430 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2431 if (use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2432 f2 = n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2433 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2434 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2435
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2436 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2437 * Compute the result.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2438 * When either side is a float the result is a float.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2439 */
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2440 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2441 if (use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2442 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2443 if (op == '*')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2444 f1 = f1 * f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2445 else if (op == '/')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2446 {
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2447 # ifdef VMS
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2448 // VMS crashes on divide by zero, work around it
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2449 if (f2 == 0.0)
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2450 {
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2451 if (f1 == 0)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2452 f1 = -1 * __F_FLT_MAX - 1L; // similar to NaN
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2453 else if (f1 < 0)
2529
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
2454 f1 = -1 * __F_FLT_MAX;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2455 else
2529
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
2456 f1 = __F_FLT_MAX;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2457 }
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2458 else
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2459 f1 = f1 / f2;
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2460 # else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2461 // We rely on the floating point library to handle divide
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2462 // by zero to result in "inf" and not a crash.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2463 f1 = f1 / f2;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
2464 # endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2465 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2466 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2467 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2468 emsg(_(e_modulus));
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2469 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2470 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2471 rettv->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2472 rettv->vval.v_float = f1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2473 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2474 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2475 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2476 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2477 if (op == '*')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2478 n1 = n1 * n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2479 else if (op == '/')
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
2480 n1 = num_divide(n1, n2);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2481 else
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
2482 n1 = num_modulus(n1, n2);
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
2483
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2484 rettv->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2485 rettv->vval.v_number = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2486 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2487 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2488 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2489
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2490 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2491 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2492
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2493 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2494 * Handle sixth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2495 * number number constant
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2496 * 0zFFFFFFFF Blob constant
1228
5eb1ac6f92ad updated for version 7.1b
vimboss
parents: 1109
diff changeset
2497 * "string" string constant
5eb1ac6f92ad updated for version 7.1b
vimboss
parents: 1109
diff changeset
2498 * 'string' literal string constant
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2499 * &option-name option value
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2500 * @r register contents
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2501 * identifier variable value
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2502 * function() function call
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2503 * $VAR environment variable
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2504 * (expression) nested expression
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
2505 * [expr, expr] List
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2506 * {arg, arg -> expr} Lambda
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2507 * {key: val, key: val} Dictionary
17413
40417757dffd patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents: 17387
diff changeset
2508 * #{key: val, key: val} Dictionary with literal keys
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2509 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2510 * Also handle:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2511 * ! in front logical NOT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2512 * - in front unary minus
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2513 * + in front unary plus (ignored)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2514 * trailing [] subscript in String or List
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2515 * trailing .name entry in Dictionary
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2516 * trailing ->name() method call
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2517 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2518 * "arg" must point to the first non-white of the expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2519 * "arg" is advanced to the next non-white after the recognized expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2520 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2521 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2522 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2523 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2524 eval7(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2525 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2526 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2527 int evaluate,
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2528 int want_string) // after "." operator
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2529 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2530 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2531 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2532 char_u *start_leader, *end_leader;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2533 int ret = OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2534 char_u *alias;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2535
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2536 /*
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2537 * Initialise variable so that clear_tv() can't mistake this for a
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2538 * string and free a string that isn't there.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2539 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2540 rettv->v_type = VAR_UNKNOWN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2541
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2542 /*
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 10000
diff changeset
2543 * Skip '!', '-' and '+' characters. They are handled later.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2544 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2545 start_leader = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2546 while (**arg == '!' || **arg == '-' || **arg == '+')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2547 *arg = skipwhite(*arg + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2548 end_leader = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2549
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2550 if (**arg == '.' && (!isdigit(*(*arg + 1))
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2551 #ifdef FEAT_FLOAT
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2552 || current_sctx.sc_version < 2
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2553 #endif
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2554 ))
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2555 {
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2556 semsg(_(e_invexpr2), *arg);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2557 ++*arg;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2558 return FAIL;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2559 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2560
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2561 switch (**arg)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2562 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2563 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2564 * Number constant.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2565 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2566 case '0':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2567 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2568 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2569 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2570 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2571 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2572 case '6':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2573 case '7':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2574 case '8':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2575 case '9':
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2576 case '.': ret = get_number_tv(arg, rettv, evaluate, want_string);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2577 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2578
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2579 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2580 * String constant: "string".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2581 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2582 case '"': ret = get_string_tv(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2583 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2584
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2585 /*
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2586 * Literal string constant: 'str''ing'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2587 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2588 case '\'': ret = get_lit_string_tv(arg, rettv, evaluate);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2589 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2590
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2591 /*
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2592 * List: [expr, expr]
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2593 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2594 case '[': ret = get_list_tv(arg, rettv, evaluate, TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2595 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2596
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2597 /*
17413
40417757dffd patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents: 17387
diff changeset
2598 * Dictionary: #{key: val, key: val}
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2599 */
17413
40417757dffd patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents: 17387
diff changeset
2600 case '#': if ((*arg)[1] == '{')
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2601 {
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2602 ++*arg;
19047
a3fce2763e83 patch 8.2.0084: complete item "user_data" can only be a string
Bram Moolenaar <Bram@vim.org>
parents: 19017
diff changeset
2603 ret = eval_dict(arg, rettv, evaluate, TRUE);
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2604 }
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2605 else
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2606 ret = NOTDONE;
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2607 break;
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2608
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2609 /*
9527
e8b3db8e2d30 commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents: 9525
diff changeset
2610 * Lambda: {arg, arg -> expr}
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
2611 * Dictionary: {'key': val, 'key': val}
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2612 */
9527
e8b3db8e2d30 commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents: 9525
diff changeset
2613 case '{': ret = get_lambda_tv(arg, rettv, evaluate);
e8b3db8e2d30 commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents: 9525
diff changeset
2614 if (ret == NOTDONE)
19047
a3fce2763e83 patch 8.2.0084: complete item "user_data" can only be a string
Bram Moolenaar <Bram@vim.org>
parents: 19017
diff changeset
2615 ret = eval_dict(arg, rettv, evaluate, FALSE);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2616 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2617
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2618 /*
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2619 * Option value: &name
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2620 */
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2621 case '&': ret = get_option_tv(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2622 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2623
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2624 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2625 * Environment variable: $VAR.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2626 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2627 case '$': ret = get_env_tv(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2628 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2629
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2630 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2631 * Register contents: @r.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2632 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2633 case '@': ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2634 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2635 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2636 rettv->v_type = VAR_STRING;
5796
f084024c0ddb updated for version 7.4.242
Bram Moolenaar <bram@vim.org>
parents: 5794
diff changeset
2637 rettv->vval.v_string = get_reg_contents(**arg,
f084024c0ddb updated for version 7.4.242
Bram Moolenaar <bram@vim.org>
parents: 5794
diff changeset
2638 GREG_EXPR_SRC);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2639 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2640 if (**arg != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2641 ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2642 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2643
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2644 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2645 * nested expression: (expression).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2646 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2647 case '(': *arg = skipwhite(*arg + 1);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2648 ret = eval1(arg, rettv, evaluate); // recursive!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2649 if (**arg == ')')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2650 ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2651 else if (ret == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2652 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2653 emsg(_(e_missing_close));
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2654 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2655 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2656 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2657 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2658
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2659 default: ret = NOTDONE;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2660 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2661 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2662
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2663 if (ret == NOTDONE)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2664 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2665 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2666 * Must be a variable or function name.
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2667 * Can also be a curly-braces kind of name: {expr}.
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2668 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2669 s = *arg;
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
2670 len = get_name_len(arg, &alias, evaluate, TRUE);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2671 if (alias != NULL)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2672 s = alias;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2673
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
2674 if (len <= 0)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2675 ret = FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2676 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2677 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2678 if (**arg == '(') // recursive!
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2679 ret = eval_func(arg, s, len, rettv, evaluate, NULL);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2680 else if (evaluate)
6791
1805e45ce4d6 patch 7.4.717
Bram Moolenaar <bram@vim.org>
parents: 6773
diff changeset
2681 ret = get_var_tv(s, len, rettv, NULL, TRUE, FALSE);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
2682 else
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
2683 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
2684 check_vars(s, len);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
2685 ret = OK;
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
2686 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2687 }
2690
3ea3dcbf2cd6 updated for version 7.3.108
Bram Moolenaar <bram@vim.org>
parents: 2687
diff changeset
2688 vim_free(alias);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2689 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2690
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2691 *arg = skipwhite(*arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2692
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2693 // Handle following '[', '(' and '.' for expr[expr], expr.name,
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2694 // expr(expr), expr->name(expr)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
2695 if (ret == OK)
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2696 ret = handle_subscript(arg, rettv, evaluate, TRUE,
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2697 start_leader, &end_leader);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2698
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2699 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2700 * Apply logical NOT and unary '-', from right to left, ignore '+'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2701 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2702 if (ret == OK && evaluate && end_leader > start_leader)
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2703 ret = eval7_leader(rettv, start_leader, &end_leader);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2704 return ret;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2705 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2706
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2707 /*
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2708 * Apply the leading "!" and "-" before an eval7 expression to "rettv".
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2709 * Adjusts "end_leaderp" until it is at "start_leader".
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2710 */
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2711 static int
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2712 eval7_leader(typval_T *rettv, char_u *start_leader, char_u **end_leaderp)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2713 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2714 char_u *end_leader = *end_leaderp;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2715 int ret = OK;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2716 int error = FALSE;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2717 varnumber_T val = 0;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2718 #ifdef FEAT_FLOAT
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2719 float_T f = 0.0;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2720
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2721 if (rettv->v_type == VAR_FLOAT)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2722 f = rettv->vval.v_float;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2723 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2724 #endif
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2725 val = tv_get_number_chk(rettv, &error);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2726 if (error)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2727 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2728 clear_tv(rettv);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2729 ret = FAIL;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2730 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2731 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2732 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2733 while (end_leader > start_leader)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2734 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2735 --end_leader;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2736 if (*end_leader == '!')
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2737 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2738 #ifdef FEAT_FLOAT
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2739 if (rettv->v_type == VAR_FLOAT)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2740 f = !f;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2741 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2742 #endif
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2743 val = !val;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2744 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2745 else if (*end_leader == '-')
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2746 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2747 #ifdef FEAT_FLOAT
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2748 if (rettv->v_type == VAR_FLOAT)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2749 f = -f;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2750 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2751 #endif
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2752 val = -val;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2753 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2754 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2755 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2756 if (rettv->v_type == VAR_FLOAT)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2757 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2758 clear_tv(rettv);
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2759 rettv->vval.v_float = f;
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2760 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2761 else
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2762 #endif
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2763 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2764 clear_tv(rettv);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2765 rettv->v_type = VAR_NUMBER;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2766 rettv->vval.v_number = val;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2767 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2768 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
2769 *end_leaderp = end_leader;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2770 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2771 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2772
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2773 /*
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2774 * Call the function referred to in "rettv".
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2775 */
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2776 static int
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2777 call_func_rettv(
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2778 char_u **arg,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2779 typval_T *rettv,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2780 int evaluate,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2781 dict_T *selfdict,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2782 typval_T *basetv)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2783 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2784 partial_T *pt = NULL;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2785 funcexe_T funcexe;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2786 typval_T functv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2787 char_u *s;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2788 int ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2789
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2790 // need to copy the funcref so that we can clear rettv
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2791 if (evaluate)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2792 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2793 functv = *rettv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2794 rettv->v_type = VAR_UNKNOWN;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2795
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2796 // Invoke the function. Recursive!
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2797 if (functv.v_type == VAR_PARTIAL)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2798 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2799 pt = functv.vval.v_partial;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2800 s = partial_name(pt);
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2801 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2802 else
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2803 s = functv.vval.v_string;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2804 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2805 else
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2806 s = (char_u *)"";
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2807
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
2808 CLEAR_FIELD(funcexe);
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2809 funcexe.firstline = curwin->w_cursor.lnum;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2810 funcexe.lastline = curwin->w_cursor.lnum;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2811 funcexe.evaluate = evaluate;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2812 funcexe.partial = pt;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2813 funcexe.selfdict = selfdict;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2814 funcexe.basetv = basetv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2815 ret = get_func_tv(s, -1, rettv, arg, &funcexe);
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2816
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2817 // Clear the funcref afterwards, so that deleting it while
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2818 // evaluating the arguments is possible (see test55).
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2819 if (evaluate)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2820 clear_tv(&functv);
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2821
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2822 return ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2823 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2824
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2825 /*
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2826 * Evaluate "->method()".
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2827 * "*arg" points to the '-'.
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2828 * Returns FAIL or OK. "*arg" is advanced to after the ')'.
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2829 */
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2830 static int
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2831 eval_lambda(
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2832 char_u **arg,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2833 typval_T *rettv,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2834 int evaluate,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2835 int verbose) // give error messages
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2836 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2837 typval_T base = *rettv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2838 int ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2839
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2840 // Skip over the ->.
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2841 *arg += 2;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2842 rettv->v_type = VAR_UNKNOWN;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2843
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2844 ret = get_lambda_tv(arg, rettv, evaluate);
18851
3cf9529b3a4a patch 8.1.2412: crash when evaluating expression with error
Bram Moolenaar <Bram@vim.org>
parents: 18777
diff changeset
2845 if (ret != OK)
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2846 return FAIL;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2847 else if (**arg != '(')
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2848 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2849 if (verbose)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2850 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2851 if (*skipwhite(*arg) == '(')
19760
9daed26b788b patch 8.2.0436: no warnings for incorrect printf arguments
Bram Moolenaar <Bram@vim.org>
parents: 19568
diff changeset
2852 emsg(_(e_nowhitespace));
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2853 else
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2854 semsg(_(e_missing_paren), "lambda");
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2855 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2856 clear_tv(rettv);
18225
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2857 ret = FAIL;
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2858 }
18225
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2859 else
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2860 ret = call_func_rettv(arg, rettv, evaluate, NULL, &base);
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2861
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2862 // Clear the funcref afterwards, so that deleting it while
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2863 // evaluating the arguments is possible (see test55).
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2864 if (evaluate)
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2865 clear_tv(&base);
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2866
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
2867 return ret;
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2868 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2869
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2870 /*
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2871 * Evaluate "->method()".
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2872 * "*arg" points to the '-'.
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2873 * Returns FAIL or OK. "*arg" is advanced to after the ')'.
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2874 */
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2875 static int
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2876 eval_method(
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2877 char_u **arg,
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2878 typval_T *rettv,
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2879 int evaluate,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2880 int verbose) // give error messages
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2881 {
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2882 char_u *name;
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2883 long len;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2884 char_u *alias;
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2885 typval_T base = *rettv;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2886 int ret;
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2887
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2888 // Skip over the ->.
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2889 *arg += 2;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2890 rettv->v_type = VAR_UNKNOWN;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2891
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2892 name = *arg;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2893 len = get_name_len(arg, &alias, evaluate, TRUE);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2894 if (alias != NULL)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2895 name = alias;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2896
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2897 if (len <= 0)
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2898 {
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2899 if (verbose)
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2900 emsg(_("E260: Missing name after ->"));
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2901 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2902 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2903 else
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2904 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2905 if (**arg != '(')
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2906 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2907 if (verbose)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2908 semsg(_(e_missing_paren), name);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2909 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2910 }
17661
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
2911 else if (VIM_ISWHITE((*arg)[-1]))
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
2912 {
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
2913 if (verbose)
19760
9daed26b788b patch 8.2.0436: no warnings for incorrect printf arguments
Bram Moolenaar <Bram@vim.org>
parents: 19568
diff changeset
2914 emsg(_(e_nowhitespace));
17661
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
2915 ret = FAIL;
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
2916 }
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2917 else
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2918 ret = eval_func(arg, name, len, rettv, evaluate, &base);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2919 }
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2920
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2921 // Clear the funcref afterwards, so that deleting it while
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
2922 // evaluating the arguments is possible (see test55).
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2923 if (evaluate)
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2924 clear_tv(&base);
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2925
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2926 return ret;
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2927 }
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2928
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
2929 /*
829
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
2930 * Evaluate an "[expr]" or "[expr:expr]" index. Also "dict.key".
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
2931 * "*arg" points to the '[' or '.'.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2932 * Returns FAIL or OK. "*arg" is advanced to after the ']'.
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2933 */
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2934 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2935 eval_index(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2936 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2937 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2938 int evaluate,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2939 int verbose) // give error messages
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2940 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2941 int empty1 = FALSE, empty2 = FALSE;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
2942 typval_T var1, var2;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2943 long i;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2944 long n1, n2 = 0;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2945 long len = -1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2946 int range = FALSE;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2947 char_u *s;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2948 char_u *key = NULL;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2949
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2950 switch (rettv->v_type)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2951 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2952 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
2953 case VAR_PARTIAL:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2954 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
2955 emsg(_("E695: Cannot index a Funcref"));
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2956 return FAIL;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2957 case VAR_FLOAT:
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2958 #ifdef FEAT_FLOAT
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2959 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
2960 emsg(_(e_float_as_string));
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2961 return FAIL;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2962 #endif
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
2963 case VAR_BOOL:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2964 case VAR_SPECIAL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
2965 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
2966 case VAR_CHANNEL:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2967 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
2968 emsg(_("E909: Cannot index a special variable"));
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2969 return FAIL;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2970 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
2971 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2972 case VAR_VOID:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2973 if (evaluate)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2974 return FAIL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2975 // FALLTHROUGH
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2976
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2977 case VAR_STRING:
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2978 case VAR_NUMBER:
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2979 case VAR_LIST:
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2980 case VAR_DICT:
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2981 case VAR_BLOB:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
2982 break;
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
2983 }
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
2984
7046
fd409a0800fd commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents: 7042
diff changeset
2985 init_tv(&var1);
fd409a0800fd commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents: 7042
diff changeset
2986 init_tv(&var2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2987 if (**arg == '.')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2988 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2989 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2990 * dict.name
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2991 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2992 key = *arg + 1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2993 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2994 ;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2995 if (len == 0)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2996 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2997 *arg = skipwhite(key + len);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2998 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
2999 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3000 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3001 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3002 * something[idx]
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3003 *
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3004 * Get the (first) variable from inside the [].
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3005 */
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3006 *arg = skipwhite(*arg + 1);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3007 if (**arg == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3008 empty1 = TRUE;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3009 else if (eval1(arg, &var1, evaluate) == FAIL) // recursive!
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3010 return FAIL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3011 else if (evaluate && tv_get_string_chk(&var1) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3012 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3013 // not a number or string
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3014 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3015 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3016 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3017
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3018 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3019 * Get the second variable from inside the [:].
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3020 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3021 if (**arg == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3022 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3023 range = TRUE;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3024 *arg = skipwhite(*arg + 1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3025 if (**arg == ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3026 empty2 = TRUE;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3027 else if (eval1(arg, &var2, evaluate) == FAIL) // recursive!
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3028 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3029 if (!empty1)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3030 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3031 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3032 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3033 else if (evaluate && tv_get_string_chk(&var2) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3034 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3035 // not a number or string
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3036 if (!empty1)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3037 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3038 clear_tv(&var2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3039 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3040 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3041 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3042
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3043 // Check for the ']'.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3044 if (**arg != ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3045 {
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3046 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3047 emsg(_(e_missbrac));
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3048 clear_tv(&var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3049 if (range)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3050 clear_tv(&var2);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3051 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3052 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3053 *arg = skipwhite(*arg + 1); // skip the ']'
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3054 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3055
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3056 if (evaluate)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3057 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3058 n1 = 0;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3059 if (!empty1 && rettv->v_type != VAR_DICT)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3060 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3061 n1 = tv_get_number(&var1);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3062 clear_tv(&var1);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3063 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3064 if (range)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3065 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3066 if (empty2)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3067 n2 = -1;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3068 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3069 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3070 n2 = tv_get_number(&var2);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3071 clear_tv(&var2);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3072 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3073 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3074
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3075 switch (rettv->v_type)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3076 {
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3077 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
3078 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3079 case VAR_VOID:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
3080 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
3081 case VAR_PARTIAL:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
3082 case VAR_FLOAT:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
3083 case VAR_BOOL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3084 case VAR_SPECIAL:
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3085 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
3086 case VAR_CHANNEL:
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3087 break; // not evaluating, skipping over subscript
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
3088
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3089 case VAR_NUMBER:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3090 case VAR_STRING:
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3091 s = tv_get_string(rettv);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3092 len = (long)STRLEN(s);
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3093 if (range)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3094 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3095 // The resulting variable is a substring. If the indexes
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3096 // are out of range the result is empty.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3097 if (n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3098 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3099 n1 = len + n1;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3100 if (n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3101 n1 = 0;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3102 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3103 if (n2 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3104 n2 = len + n2;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3105 else if (n2 >= len)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3106 n2 = len;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3107 if (n1 >= len || n2 < 0 || n1 > n2)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3108 s = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3109 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3110 s = vim_strnsave(s + n1, (int)(n2 - n1 + 1));
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3111 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3112 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3113 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3114 // The resulting variable is a string of a single
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3115 // character. If the index is too big or negative the
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3116 // result is empty.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3117 if (n1 >= len || n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3118 s = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3119 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3120 s = vim_strnsave(s + n1, 1);
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3121 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3122 clear_tv(rettv);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3123 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3124 rettv->vval.v_string = s;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3125 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3126
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3127 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3128 len = blob_len(rettv->vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3129 if (range)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3130 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
3131 // The resulting variable is a sub-blob. If the indexes
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3132 // are out of range the result is empty.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3133 if (n1 < 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3134 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3135 n1 = len + n1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3136 if (n1 < 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3137 n1 = 0;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3138 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3139 if (n2 < 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3140 n2 = len + n2;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3141 else if (n2 >= len)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3142 n2 = len - 1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3143 if (n1 >= len || n2 < 0 || n1 > n2)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3144 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3145 clear_tv(rettv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3146 rettv->v_type = VAR_BLOB;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3147 rettv->vval.v_blob = NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3148 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3149 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3150 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3151 blob_T *blob = blob_alloc();
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3152
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3153 if (blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3154 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3155 if (ga_grow(&blob->bv_ga, n2 - n1 + 1) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3156 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3157 blob_free(blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3158 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3159 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3160 blob->bv_ga.ga_len = n2 - n1 + 1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3161 for (i = n1; i <= n2; i++)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3162 blob_set(blob, i - n1,
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3163 blob_get(rettv->vval.v_blob, i));
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3164
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3165 clear_tv(rettv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3166 rettv_blob_set(rettv, blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3167 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3168 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3169 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3170 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3171 {
15589
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents: 15581
diff changeset
3172 // The resulting variable is a byte value.
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents: 15581
diff changeset
3173 // If the index is too big or negative that is an error.
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents: 15581
diff changeset
3174 if (n1 < 0)
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents: 15581
diff changeset
3175 n1 = len + n1;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3176 if (n1 < len && n1 >= 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3177 {
15589
44ea60ca593b patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents: 15581
diff changeset
3178 int v = blob_get(rettv->vval.v_blob, n1);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3179
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3180 clear_tv(rettv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3181 rettv->v_type = VAR_NUMBER;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3182 rettv->vval.v_number = v;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3183 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3184 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3185 semsg(_(e_blobidx), n1);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3186 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3187 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3188
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3189 case VAR_LIST:
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3190 len = list_len(rettv->vval.v_list);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3191 if (n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3192 n1 = len + n1;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3193 if (!empty1 && (n1 < 0 || n1 >= len))
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3194 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3195 // For a range we allow invalid values and return an empty
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3196 // list. A list index out of range is an error.
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3197 if (!range)
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3198 {
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3199 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3200 semsg(_(e_listidx), n1);
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3201 return FAIL;
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3202 }
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3203 n1 = len;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3204 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3205 if (range)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3206 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
3207 list_T *l;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
3208 listitem_T *item;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3209
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3210 if (n2 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3211 n2 = len + n2;
829
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
3212 else if (n2 >= len)
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
3213 n2 = len - 1;
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
3214 if (!empty2 && (n2 < 0 || n2 + 1 < n1))
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3215 n2 = -1;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3216 l = list_alloc();
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3217 if (l == NULL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3218 return FAIL;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3219 for (item = list_find(rettv->vval.v_list, n1);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3220 n1 <= n2; ++n1)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3221 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3222 if (list_append_tv(l, &item->li_tv) == FAIL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3223 {
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
3224 list_free(l);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3225 return FAIL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3226 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3227 item = item->li_next;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3228 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3229 clear_tv(rettv);
11418
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 11412
diff changeset
3230 rettv_list_set(rettv, l);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3231 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3232 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3233 {
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
3234 copy_tv(&list_find(rettv->vval.v_list, n1)->li_tv, &var1);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3235 clear_tv(rettv);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3236 *rettv = var1;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3237 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3238 break;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3239
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3240 case VAR_DICT:
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3241 if (range)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3242 {
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3243 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3244 emsg(_(e_dictrange));
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3245 if (len == -1)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3246 clear_tv(&var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3247 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3248 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3249 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
3250 dictitem_T *item;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3251
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3252 if (len == -1)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3253 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3254 key = tv_get_string_chk(&var1);
8839
9fa567d13551 commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents: 8831
diff changeset
3255 if (key == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3256 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3257 clear_tv(&var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3258 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3259 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3260 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3261
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
3262 item = dict_find(rettv->vval.v_dict, key, (int)len);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3263
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3264 if (item == NULL && verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3265 semsg(_(e_dictkey), key);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3266 if (len == -1)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3267 clear_tv(&var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3268 if (item == NULL)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3269 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3270
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3271 copy_tv(&item->di_tv, &var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3272 clear_tv(rettv);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3273 *rettv = var1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3274 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3275 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3276 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3277 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3278
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3279 return OK;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3280 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3281
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3282 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3283 * Get an option value.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3284 * "arg" points to the '&' or '+' before the option name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3285 * "arg" is advanced to character after the option name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3286 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3287 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
3288 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3289 get_option_tv(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3290 char_u **arg,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3291 typval_T *rettv, // when NULL, only check if option exists
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3292 int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3293 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3294 char_u *option_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3295 long numval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3296 char_u *stringval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3297 int opt_type;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3298 int c;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3299 int working = (**arg == '+'); // has("+option")
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3300 int ret = OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3301 int opt_flags;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3302
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3303 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3304 * Isolate the option name and find its value.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3305 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3306 option_end = find_option_end(arg, &opt_flags);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3307 if (option_end == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3308 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3309 if (rettv != NULL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3310 semsg(_("E112: Option name missing: %s"), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3311 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3312 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3313
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3314 if (!evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3315 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3316 *arg = option_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3317 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3318 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3319
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3320 c = *option_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3321 *option_end = NUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3322 opt_type = get_option_value(*arg, &numval,
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3323 rettv == NULL ? NULL : &stringval, opt_flags);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3324
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3325 if (opt_type == -3) // invalid name
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3326 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3327 if (rettv != NULL)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3328 semsg(_(e_unknown_option), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3329 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3330 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3331 else if (rettv != NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3332 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3333 if (opt_type == -2) // hidden string option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3334 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3335 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3336 rettv->vval.v_string = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3337 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3338 else if (opt_type == -1) // hidden number option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3339 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3340 rettv->v_type = VAR_NUMBER;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3341 rettv->vval.v_number = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3342 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3343 else if (opt_type == 1) // number option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3344 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3345 rettv->v_type = VAR_NUMBER;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3346 rettv->vval.v_number = numval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3347 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3348 else // string option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3349 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3350 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3351 rettv->vval.v_string = stringval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3352 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3353 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3354 else if (working && (opt_type == -2 || opt_type == -1))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3355 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3356
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3357 *option_end = c; // put back for error messages
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3358 *arg = option_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3359
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3360 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3361 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3362
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3363 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3364 * Allocate a variable for a number constant. Also deals with "0z" for blob.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3365 * Return OK or FAIL.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3366 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3367 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3368 get_number_tv(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3369 char_u **arg,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3370 typval_T *rettv,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3371 int evaluate,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3372 int want_string UNUSED)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3373 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3374 int len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3375 #ifdef FEAT_FLOAT
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3376 char_u *p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3377 int get_float = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3378
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3379 // We accept a float when the format matches
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3380 // "[0-9]\+\.[0-9]\+\([eE][+-]\?[0-9]\+\)\?". This is very
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3381 // strict to avoid backwards compatibility problems.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3382 // With script version 2 and later the leading digit can be
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3383 // omitted.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3384 // Don't look for a float after the "." operator, so that
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3385 // ":let vers = 1.2.3" doesn't fail.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3386 if (**arg == '.')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3387 p = *arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3388 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3389 p = skipdigits(*arg + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3390 if (!want_string && p[0] == '.' && vim_isdigit(p[1]))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3391 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3392 get_float = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3393 p = skipdigits(p + 2);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3394 if (*p == 'e' || *p == 'E')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3395 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3396 ++p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3397 if (*p == '-' || *p == '+')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3398 ++p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3399 if (!vim_isdigit(*p))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3400 get_float = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3401 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3402 p = skipdigits(p + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3403 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3404 if (ASCII_ISALPHA(*p) || *p == '.')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3405 get_float = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3406 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3407 if (get_float)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3408 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3409 float_T f;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3410
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3411 *arg += string2float(*arg, &f);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3412 if (evaluate)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3413 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3414 rettv->v_type = VAR_FLOAT;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3415 rettv->vval.v_float = f;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3416 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3417 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3418 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3419 #endif
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3420 if (**arg == '0' && ((*arg)[1] == 'z' || (*arg)[1] == 'Z'))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3421 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3422 char_u *bp;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3423 blob_T *blob = NULL; // init for gcc
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3424
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3425 // Blob constant: 0z0123456789abcdef
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3426 if (evaluate)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3427 blob = blob_alloc();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3428 for (bp = *arg + 2; vim_isxdigit(bp[0]); bp += 2)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3429 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3430 if (!vim_isxdigit(bp[1]))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3431 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3432 if (blob != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3433 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3434 emsg(_("E973: Blob literal should have an even number of hex characters"));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3435 ga_clear(&blob->bv_ga);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3436 VIM_CLEAR(blob);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3437 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3438 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3439 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3440 if (blob != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3441 ga_append(&blob->bv_ga,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3442 (hex2nr(*bp) << 4) + hex2nr(*(bp+1)));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3443 if (bp[2] == '.' && vim_isxdigit(bp[3]))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3444 ++bp;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3445 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3446 if (blob != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3447 rettv_blob_set(rettv, blob);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3448 *arg = bp;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3449 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3450 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3451 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3452 varnumber_T n;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3453
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3454 // decimal, hex or octal number
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3455 vim_str2nr(*arg, NULL, &len, current_sctx.sc_version >= 4
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3456 ? STR2NR_NO_OCT + STR2NR_QUOTE
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3457 : STR2NR_ALL, &n, NULL, 0, TRUE);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3458 if (len == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3459 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3460 semsg(_(e_invexpr2), *arg);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3461 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3462 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3463 *arg += len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3464 if (evaluate)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3465 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3466 rettv->v_type = VAR_NUMBER;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3467 rettv->vval.v_number = n;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3468 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3469 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3470 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3471 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3472
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3473 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3474 * Allocate a variable for a string constant.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3475 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3476 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3477 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3478 get_string_tv(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3479 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3480 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3481 char_u *name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3482 int extra = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3483
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3484 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3485 * Find the end of the string, skipping backslashed characters.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3486 */
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
3487 for (p = *arg + 1; *p != NUL && *p != '"'; MB_PTR_ADV(p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3488 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3489 if (*p == '\\' && p[1] != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3490 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3491 ++p;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3492 // A "\<x>" form occupies at least 4 characters, and produces up
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3493 // to 6 characters: reserve space for 2 extra
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3494 if (*p == '<')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3495 extra += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3496 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3497 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3498
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3499 if (*p != '"')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3500 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3501 semsg(_("E114: Missing quote: %s"), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3502 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3503 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3504
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3505 // If only parsing, set *arg and return here
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3506 if (!evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3507 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3508 *arg = p + 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3509 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3510 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3511
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3512 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3513 * Copy the string into allocated memory, handling backslashed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3514 * characters.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3515 */
16764
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16706
diff changeset
3516 name = alloc(p - *arg + extra);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3517 if (name == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3518 return FAIL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3519 rettv->v_type = VAR_STRING;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3520 rettv->vval.v_string = name;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3521
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3522 for (p = *arg + 1; *p != NUL && *p != '"'; )
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3523 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3524 if (*p == '\\')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3525 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3526 switch (*++p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3527 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3528 case 'b': *name++ = BS; ++p; break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3529 case 'e': *name++ = ESC; ++p; break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3530 case 'f': *name++ = FF; ++p; break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3531 case 'n': *name++ = NL; ++p; break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3532 case 'r': *name++ = CAR; ++p; break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3533 case 't': *name++ = TAB; ++p; break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3534
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3535 case 'X': // hex: "\x1", "\x12"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3536 case 'x':
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3537 case 'u': // Unicode: "\u0023"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3538 case 'U':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3539 if (vim_isxdigit(p[1]))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3540 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3541 int n, nr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3542 int c = toupper(*p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3543
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3544 if (c == 'X')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3545 n = 2;
6836
541abe8d5f55 patch 7.4.739
Bram Moolenaar <bram@vim.org>
parents: 6828
diff changeset
3546 else if (*p == 'u')
541abe8d5f55 patch 7.4.739
Bram Moolenaar <bram@vim.org>
parents: 6828
diff changeset
3547 n = 4;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3548 else
6836
541abe8d5f55 patch 7.4.739
Bram Moolenaar <bram@vim.org>
parents: 6828
diff changeset
3549 n = 8;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3550 nr = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3551 while (--n >= 0 && vim_isxdigit(p[1]))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3552 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3553 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3554 nr = (nr << 4) + hex2nr(*p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3555 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3556 ++p;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3557 // For "\u" store the number according to
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3558 // 'encoding'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3559 if (c != 'X')
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3560 name += (*mb_char2bytes)(nr, name);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3561 else
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3562 *name++ = nr;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3563 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3564 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3565
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3566 // octal: "\1", "\12", "\123"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3567 case '0':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3568 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3569 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3570 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3571 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3572 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3573 case '6':
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3574 case '7': *name = *p++ - '0';
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3575 if (*p >= '0' && *p <= '7')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3576 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3577 *name = (*name << 3) + *p++ - '0';
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3578 if (*p >= '0' && *p <= '7')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3579 *name = (*name << 3) + *p++ - '0';
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3580 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3581 ++name;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3582 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3583
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3584 // Special key, e.g.: "\<C-W>"
18301
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18251
diff changeset
3585 case '<': extra = trans_special(&p, name, TRUE, TRUE,
506bf60a30a0 patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents: 18251
diff changeset
3586 TRUE, NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3587 if (extra != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3588 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3589 name += extra;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3590 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3591 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3592 // FALLTHROUGH
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3593
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3594 default: MB_COPY_CHAR(p, name);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3595 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3596 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3597 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3598 else
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3599 MB_COPY_CHAR(p, name);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3600
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3601 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3602 *name = NUL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3603 if (*p != NUL) // just in case
9965
b329e3ca0dcb commit https://github.com/vim/vim/commit/db249f26edf7a5f88d1f4468d08ec5b84f5ab7ad
Christian Brabandt <cb@256bit.org>
parents: 9915
diff changeset
3604 ++p;
b329e3ca0dcb commit https://github.com/vim/vim/commit/db249f26edf7a5f88d1f4468d08ec5b84f5ab7ad
Christian Brabandt <cb@256bit.org>
parents: 9915
diff changeset
3605 *arg = p;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3606
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3607 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3608 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3609
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3610 /*
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3611 * Allocate a variable for a 'str''ing' constant.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3612 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3613 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3614 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3615 get_lit_string_tv(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3616 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3617 char_u *p;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3618 char_u *str;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3619 int reduce = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3620
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3621 /*
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3622 * Find the end of the string, skipping ''.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3623 */
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
3624 for (p = *arg + 1; *p != NUL; MB_PTR_ADV(p))
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3625 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3626 if (*p == '\'')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3627 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3628 if (p[1] != '\'')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3629 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3630 ++reduce;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3631 ++p;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3632 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3633 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3634
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3635 if (*p != '\'')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3636 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
3637 semsg(_("E115: Missing quote: %s"), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3638 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3639 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3640
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3641 // If only parsing return after setting "*arg"
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3642 if (!evaluate)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3643 {
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3644 *arg = p + 1;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3645 return OK;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3646 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3647
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3648 /*
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3649 * Copy the string into allocated memory, handling '' to ' reduction.
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3650 */
16764
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16706
diff changeset
3651 str = alloc((p - *arg) - reduce);
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3652 if (str == NULL)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3653 return FAIL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3654 rettv->v_type = VAR_STRING;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3655 rettv->vval.v_string = str;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3656
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3657 for (p = *arg + 1; *p != NUL; )
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3658 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3659 if (*p == '\'')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3660 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3661 if (p[1] != '\'')
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3662 break;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3663 ++p;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3664 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3665 MB_COPY_CHAR(p, str);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3666 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3667 *str = NUL;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3668 *arg = p + 1;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3669
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3670 return OK;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3671 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
3672
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3673 /*
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
3674 * Return the function name of partial "pt".
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3675 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3676 char_u *
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3677 partial_name(partial_T *pt)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3678 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3679 if (pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3680 return pt->pt_name;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3681 return pt->pt_func->uf_name;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3682 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3683
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3684 static void
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
3685 partial_free(partial_T *pt)
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3686 {
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3687 int i;
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3688
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3689 for (i = 0; i < pt->pt_argc; ++i)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
3690 clear_tv(&pt->pt_argv[i]);
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3691 vim_free(pt->pt_argv);
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
3692 dict_unref(pt->pt_dict);
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3693 if (pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3694 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3695 func_unref(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3696 vim_free(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3697 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3698 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3699 func_ptr_unref(pt->pt_func);
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3700 vim_free(pt);
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3701 }
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3702
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3703 /*
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3704 * Unreference a closure: decrement the reference count and free it when it
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3705 * becomes zero.
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3706 */
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3707 void
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3708 partial_unref(partial_T *pt)
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3709 {
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3710 if (pt != NULL && --pt->pt_refcount <= 0)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
3711 partial_free(pt);
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3712 }
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
3713
2634
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3714 static int tv_equal_recurse_limit;
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3715
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3716 static int
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3717 func_equal(
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3718 typval_T *tv1,
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3719 typval_T *tv2,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3720 int ic) // ignore case
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3721 {
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3722 char_u *s1, *s2;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3723 dict_T *d1, *d2;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3724 int a1, a2;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3725 int i;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3726
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3727 // empty and NULL function name considered the same
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3728 s1 = tv1->v_type == VAR_FUNC ? tv1->vval.v_string
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3729 : partial_name(tv1->vval.v_partial);
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3730 if (s1 != NULL && *s1 == NUL)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3731 s1 = NULL;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3732 s2 = tv2->v_type == VAR_FUNC ? tv2->vval.v_string
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
3733 : partial_name(tv2->vval.v_partial);
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3734 if (s2 != NULL && *s2 == NUL)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3735 s2 = NULL;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3736 if (s1 == NULL || s2 == NULL)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3737 {
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3738 if (s1 != s2)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3739 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3740 }
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3741 else if (STRCMP(s1, s2) != 0)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3742 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3743
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3744 // empty dict and NULL dict is different
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3745 d1 = tv1->v_type == VAR_FUNC ? NULL : tv1->vval.v_partial->pt_dict;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3746 d2 = tv2->v_type == VAR_FUNC ? NULL : tv2->vval.v_partial->pt_dict;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3747 if (d1 == NULL || d2 == NULL)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3748 {
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3749 if (d1 != d2)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3750 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3751 }
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3752 else if (!dict_equal(d1, d2, ic, TRUE))
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3753 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3754
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3755 // empty list and no list considered the same
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3756 a1 = tv1->v_type == VAR_FUNC ? 0 : tv1->vval.v_partial->pt_argc;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3757 a2 = tv2->v_type == VAR_FUNC ? 0 : tv2->vval.v_partial->pt_argc;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3758 if (a1 != a2)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3759 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3760 for (i = 0; i < a1; ++i)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3761 if (!tv_equal(tv1->vval.v_partial->pt_argv + i,
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3762 tv2->vval.v_partial->pt_argv + i, ic, TRUE))
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3763 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3764
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3765 return TRUE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3766 }
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3767
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
3768 /*
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3769 * Return TRUE if "tv1" and "tv2" have the same value.
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3770 * Compares the items just like "==" would compare them, but strings and
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3771 * numbers are different. Floats and numbers are also different.
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3772 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
3773 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3774 tv_equal(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3775 typval_T *tv1,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3776 typval_T *tv2,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3777 int ic, // ignore case
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3778 int recursive) // TRUE when used recursively
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3779 {
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3780 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3781 char_u *s1, *s2;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3782 static int recursive_cnt = 0; // catch recursive loops
1008
58059676e24a updated for version 7.0-134
vimboss
parents: 998
diff changeset
3783 int r;
58059676e24a updated for version 7.0-134
vimboss
parents: 998
diff changeset
3784
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3785 // Catch lists and dicts that have an endless loop by limiting
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3786 // recursiveness to a limit. We guess they are equal then.
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3787 // A fixed limit has the problem of still taking an awful long time.
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3788 // Reduce the limit every time running into it. That should work fine for
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3789 // deeply linked structures that are not recursively linked and catch
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3790 // recursiveness quickly.
2634
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3791 if (!recursive)
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3792 tv_equal_recurse_limit = 1000;
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3793 if (recursive_cnt >= tv_equal_recurse_limit)
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3794 {
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3795 --tv_equal_recurse_limit;
1014
2651e7d07cd6 updated for version 7.0-140
vimboss
parents: 1009
diff changeset
3796 return TRUE;
2634
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3797 }
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3798
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3799 // For VAR_FUNC and VAR_PARTIAL compare the function name, bound dict and
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3800 // arguments.
9183
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3801 if ((tv1->v_type == VAR_FUNC
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3802 || (tv1->v_type == VAR_PARTIAL && tv1->vval.v_partial != NULL))
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3803 && (tv2->v_type == VAR_FUNC
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3804 || (tv2->v_type == VAR_PARTIAL && tv2->vval.v_partial != NULL)))
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3805 {
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3806 ++recursive_cnt;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3807 r = func_equal(tv1, tv2, ic);
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3808 --recursive_cnt;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3809 return r;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3810 }
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3811
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3812 if (tv1->v_type != tv2->v_type)
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3813 return FALSE;
988c8ab557bf commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents: 9169
diff changeset
3814
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3815 switch (tv1->v_type)
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3816 {
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3817 case VAR_LIST:
2634
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3818 ++recursive_cnt;
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3819 r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic, TRUE);
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3820 --recursive_cnt;
1008
58059676e24a updated for version 7.0-134
vimboss
parents: 998
diff changeset
3821 return r;
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3822
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3823 case VAR_DICT:
2634
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3824 ++recursive_cnt;
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3825 r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, TRUE);
fcb916bed51a updated for version 7.3.055
Bram Moolenaar <bram@vim.org>
parents: 2610
diff changeset
3826 --recursive_cnt;
1008
58059676e24a updated for version 7.0-134
vimboss
parents: 998
diff changeset
3827 return r;
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3828
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3829 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3830 return blob_equal(tv1->vval.v_blob, tv2->vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3831
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3832 case VAR_NUMBER:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3833 case VAR_BOOL:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3834 case VAR_SPECIAL:
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3835 return tv1->vval.v_number == tv2->vval.v_number;
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3836
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3837 case VAR_STRING:
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3838 s1 = tv_get_string_buf(tv1, buf1);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3839 s2 = tv_get_string_buf(tv2, buf2);
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3840 return ((ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2)) == 0);
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3841
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3842 case VAR_FLOAT:
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3843 #ifdef FEAT_FLOAT
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3844 return tv1->vval.v_float == tv2->vval.v_float;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3845 #endif
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3846 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
3847 #ifdef FEAT_JOB_CHANNEL
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3848 return tv1->vval.v_job == tv2->vval.v_job;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3849 #endif
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
3850 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
3851 #ifdef FEAT_JOB_CHANNEL
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
3852 return tv1->vval.v_channel == tv2->vval.v_channel;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
3853 #endif
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3854
19874
f92435f0f449 patch 8.2.0493: Vim9: some error messages not tested
Bram Moolenaar <Bram@vim.org>
parents: 19760
diff changeset
3855 case VAR_PARTIAL:
f92435f0f449 patch 8.2.0493: Vim9: some error messages not tested
Bram Moolenaar <Bram@vim.org>
parents: 19760
diff changeset
3856 return tv1->vval.v_partial == tv2->vval.v_partial;
f92435f0f449 patch 8.2.0493: Vim9: some error messages not tested
Bram Moolenaar <Bram@vim.org>
parents: 19760
diff changeset
3857
8635
3a38d465f731 commit https://github.com/vim/vim/commit/f0e86a0dbddc18568910e9e4aaae0cd88ca8087a
Christian Brabandt <cb@256bit.org>
parents: 8633
diff changeset
3858 case VAR_FUNC:
19874
f92435f0f449 patch 8.2.0493: Vim9: some error messages not tested
Bram Moolenaar <Bram@vim.org>
parents: 19760
diff changeset
3859 return tv1->vval.v_string == tv2->vval.v_string;
f92435f0f449 patch 8.2.0493: Vim9: some error messages not tested
Bram Moolenaar <Bram@vim.org>
parents: 19760
diff changeset
3860
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3861 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
3862 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3863 case VAR_VOID:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
3864 break;
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3865 }
f92bb1845823 updated for version 7.0101
vimboss
parents: 387
diff changeset
3866
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3867 // VAR_UNKNOWN can be the result of a invalid expression, let's say it
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3868 // does not equal anything, not even itself.
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
3869 return FALSE;
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3870 }
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3871
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
3872 /*
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3873 * Return the next (unique) copy ID.
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3874 * Used for serializing nested structures.
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3875 */
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3876 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3877 get_copyID(void)
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3878 {
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3879 current_copyID += COPYID_INC;
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3880 return current_copyID;
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3881 }
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3882
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3883 /*
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3884 * Garbage collection for lists and dictionaries.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3885 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3886 * We use reference counts to be able to free most items right away when they
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3887 * are no longer used. But for composite items it's possible that it becomes
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3888 * unused while the reference count is > 0: When there is a recursive
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3889 * reference. Example:
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3890 * :let l = [1, 2, 3]
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3891 * :let d = {9: l}
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3892 * :let l[1] = d
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3893 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3894 * Since this is quite unusual we handle this with garbage collection: every
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3895 * once in a while find out which lists and dicts are not referenced from any
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3896 * variable.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3897 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3898 * Here is a good reference text about garbage collection (refers to Python
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3899 * but it applies to all reference-counting mechanisms):
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3900 * http://python.ca/nas/python/gc/
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3901 */
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3902
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3903 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3904 * Do garbage collection for lists and dicts.
9108
d319453f62b3 commit https://github.com/vim/vim/commit/574860b5ee9da281c875dad07a607454e135eaee
Christian Brabandt <cb@256bit.org>
parents: 9104
diff changeset
3905 * When "testing" is TRUE this is called from test_garbagecollect_now().
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3906 * Return TRUE if some memory was freed.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3907 */
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3908 int
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3909 garbage_collect(int testing)
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3910 {
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
3911 int copyID;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3912 int abort = FALSE;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3913 buf_T *buf;
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3914 win_T *wp;
6588
1ffe91b5e514 updated for version 7.4.620
Bram Moolenaar <bram@vim.org>
parents: 6577
diff changeset
3915 int did_free = FALSE;
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 818
diff changeset
3916 tabpage_T *tp;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3917
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3918 if (!testing)
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3919 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3920 // Only do this once.
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3921 want_garbage_collect = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3922 may_garbage_collect = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3923 garbage_collect_at_exit = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
3924 }
958
e88950f0d4f6 updated for version 7.0-084
vimboss
parents: 956
diff changeset
3925
19001
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3926 // The execution stack can grow big, limit the size.
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3927 if (exestack.ga_maxlen - exestack.ga_len > 500)
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3928 {
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3929 size_t new_len;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3930 char_u *pp;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3931 int n;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3932
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3933 // Keep 150% of the current size, with a minimum of the growth size.
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3934 n = exestack.ga_len / 2;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3935 if (n < exestack.ga_growsize)
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3936 n = exestack.ga_growsize;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3937
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3938 // Don't make it bigger though.
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3939 if (exestack.ga_len + n < exestack.ga_maxlen)
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3940 {
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3941 new_len = exestack.ga_itemsize * (exestack.ga_len + n);
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3942 pp = vim_realloc(exestack.ga_data, new_len);
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3943 if (pp == NULL)
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3944 return FAIL;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3945 exestack.ga_maxlen = exestack.ga_len + n;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3946 exestack.ga_data = pp;
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3947 }
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3948 }
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
3949
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3950 // We advance by two because we add one for items referenced through
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3951 // previous_funccal.
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
3952 copyID = get_copyID();
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
3953
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3954 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3955 * 1. Go through all accessible variables and mark all lists and dicts
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3956 * with copyID.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3957 */
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
3958
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3959 // Don't free variables in the previous_funccal list unless they are only
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3960 // referenced through previous_funccal. This must be first, because if
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3961 // the item is referenced elsewhere the funccal must not be freed.
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
3962 abort = abort || set_ref_in_previous_funccal(copyID);
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
3963
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3964 // script-local variables
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
3965 abort = abort || garbage_collect_scriptvars(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3966
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3967 // buffer-local variables
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9636
diff changeset
3968 FOR_ALL_BUFFERS(buf)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3969 abort = abort || set_ref_in_item(&buf->b_bufvar.di_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3970 NULL, NULL);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3971
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3972 // window-local variables
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 818
diff changeset
3973 FOR_ALL_TAB_WINDOWS(tp, wp)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3974 abort = abort || set_ref_in_item(&wp->w_winvar.di_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3975 NULL, NULL);
4309
bdab73bf24a8 updated for version 7.3.904
Bram Moolenaar <bram@vim.org>
parents: 4297
diff changeset
3976 if (aucmd_win != NULL)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3977 abort = abort || set_ref_in_item(&aucmd_win->w_winvar.di_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3978 NULL, NULL);
18763
49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents: 18713
diff changeset
3979 #ifdef FEAT_PROP_POPUP
19888
435726a03481 patch 8.2.0500: using the same loop in many places
Bram Moolenaar <Bram@vim.org>
parents: 19874
diff changeset
3980 FOR_ALL_POPUPWINS(wp)
16778
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3981 abort = abort || set_ref_in_item(&wp->w_winvar.di_tv, copyID,
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3982 NULL, NULL);
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3983 FOR_ALL_TABPAGES(tp)
19888
435726a03481 patch 8.2.0500: using the same loop in many places
Bram Moolenaar <Bram@vim.org>
parents: 19874
diff changeset
3984 FOR_ALL_POPUPWINS_IN_TAB(tp, wp)
16778
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3985 abort = abort || set_ref_in_item(&wp->w_winvar.di_tv, copyID,
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3986 NULL, NULL);
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
3987 #endif
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3988
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3989 // tabpage-local variables
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9636
diff changeset
3990 FOR_ALL_TABPAGES(tp)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3991 abort = abort || set_ref_in_item(&tp->tp_winvar.di_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
3992 NULL, NULL);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3993 // global variables
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
3994 abort = abort || garbage_collect_globvars(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3995
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3996 // function-local variables
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
3997 abort = abort || set_ref_in_call_stack(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
3998
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3999 // named functions (matters for closures)
9735
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4
Christian Brabandt <cb@256bit.org>
parents: 9731
diff changeset
4000 abort = abort || set_ref_in_functions(copyID);
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4
Christian Brabandt <cb@256bit.org>
parents: 9731
diff changeset
4001
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4002 // function call arguments, if v:testing is set.
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4003 abort = abort || set_ref_in_func_args(copyID);
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4004
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4005 // v: vars
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
4006 abort = abort || garbage_collect_vimvars(copyID);
1733
5a7384b9ca66 updated for version 7.2-031
vimboss
parents: 1730
diff changeset
4007
17151
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4008 // callbacks in buffers
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4009 abort = abort || set_ref_in_buffers(copyID);
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4010
3450
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4011 #ifdef FEAT_LUA
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4012 abort = abort || set_ref_in_lua(copyID);
3450
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4013 #endif
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4014
3618
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4015 #ifdef FEAT_PYTHON
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4016 abort = abort || set_ref_in_python(copyID);
3618
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4017 #endif
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4018
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4019 #ifdef FEAT_PYTHON3
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4020 abort = abort || set_ref_in_python3(copyID);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4021 #endif
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4022
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
4023 #ifdef FEAT_JOB_CHANNEL
8877
50e40f322e78 commit https://github.com/vim/vim/commit/3780bb923a688e0051a9a23474eeb38a8acb695a
Christian Brabandt <cb@256bit.org>
parents: 8870
diff changeset
4024 abort = abort || set_ref_in_channel(copyID);
9058
87c2e43a4a12 commit https://github.com/vim/vim/commit/b8d4905592fc26fcd09180d7d6bfefd899f2f6c6
Christian Brabandt <cb@256bit.org>
parents: 9052
diff changeset
4025 abort = abort || set_ref_in_job(copyID);
7931
2679e636e862 commit https://github.com/vim/vim/commit/4b6a6dcbe7bd13170c4884cc17acb1eac2c633d1
Christian Brabandt <cb@256bit.org>
parents: 7895
diff changeset
4026 #endif
9052
3a6b66c02d6d commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents: 9027
diff changeset
4027 #ifdef FEAT_NETBEANS_INTG
3a6b66c02d6d commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents: 9027
diff changeset
4028 abort = abort || set_ref_in_nb_channel(copyID);
3a6b66c02d6d commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents: 9027
diff changeset
4029 #endif
7931
2679e636e862 commit https://github.com/vim/vim/commit/4b6a6dcbe7bd13170c4884cc17acb1eac2c633d1
Christian Brabandt <cb@256bit.org>
parents: 7895
diff changeset
4030
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4031 #ifdef FEAT_TIMERS
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4032 abort = abort || set_ref_in_timer(copyID);
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4033 #endif
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4034
11412
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4035 #ifdef FEAT_QUICKFIX
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4036 abort = abort || set_ref_in_quickfix(copyID);
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4037 #endif
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4038
11804
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4039 #ifdef FEAT_TERMINAL
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4040 abort = abort || set_ref_in_term(copyID);
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4041 #endif
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4042
18763
49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents: 18713
diff changeset
4043 #ifdef FEAT_PROP_POPUP
17151
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4044 abort = abort || set_ref_in_popups(copyID);
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4045 #endif
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4046
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4047 if (!abort)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4048 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4049 /*
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4050 * 2. Free lists and dictionaries that are not referenced.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4051 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4052 did_free = free_unref_items(copyID);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4053
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4054 /*
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4055 * 3. Check if any funccal can be freed now.
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4056 * This may call us back recursively.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4057 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4058 free_unref_funccal(copyID, testing);
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4059 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4060 else if (p_verbose > 0)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4061 {
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
4062 verb_msg(_("Not enough memory to set references, garbage collection aborted!"));
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4063 }
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4064
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4065 return did_free;
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4066 }
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4067
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4068 /*
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4069 * Free lists, dictionaries, channels and jobs that are no longer referenced.
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4070 */
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4071 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4072 free_unref_items(int copyID)
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4073 {
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4074 int did_free = FALSE;
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4075
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4076 // Let all "free" functions know that we are here. This means no
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4077 // dictionaries, lists, channels or jobs are to be freed, because we will
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4078 // do that here.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4079 in_free_unref_items = TRUE;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4080
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4081 /*
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4082 * PASS 1: free the contents of the items. We don't free the items
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4083 * themselves yet, so that it is possible to decrement refcount counters
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4084 */
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4085
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4086 // Go through the list of dicts and free items without the copyID.
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4087 did_free |= dict_free_nonref(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4088
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4089 // Go through the list of lists and free items without the copyID.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents: 9556
diff changeset
4090 did_free |= list_free_nonref(copyID);
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4091
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4092 #ifdef FEAT_JOB_CHANNEL
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4093 // Go through the list of jobs and free items without the copyID. This
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4094 // must happen before doing channels, because jobs refer to channels, but
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4095 // the reference from the channel to the job isn't tracked.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4096 did_free |= free_unused_jobs_contents(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4097
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4098 // Go through the list of channels and free items without the copyID.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4099 did_free |= free_unused_channels_contents(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4100 #endif
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4101
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4102 /*
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4103 * PASS 2: free the items themselves.
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4104 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4105 dict_free_items(copyID);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents: 9556
diff changeset
4106 list_free_items(copyID);
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4107
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4108 #ifdef FEAT_JOB_CHANNEL
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4109 // Go through the list of jobs and free items without the copyID. This
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4110 // must happen before doing channels, because jobs refer to channels, but
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4111 // the reference from the channel to the job isn't tracked.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4112 free_unused_jobs(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4113
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4114 // Go through the list of channels and free items without the copyID.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4115 free_unused_channels(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4116 #endif
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4117
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4118 in_free_unref_items = FALSE;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
4119
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4120 return did_free;
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4121 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4122
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4123 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4124 * Mark all lists and dicts referenced through hashtab "ht" with "copyID".
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4125 * "list_stack" is used to add lists to be marked. Can be NULL.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4126 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4127 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4128 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4129 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4130 set_ref_in_ht(hashtab_T *ht, int copyID, list_stack_T **list_stack)
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4131 {
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4132 int todo;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4133 int abort = FALSE;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4134 hashitem_T *hi;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4135 hashtab_T *cur_ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4136 ht_stack_T *ht_stack = NULL;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4137 ht_stack_T *tempitem;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4138
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4139 cur_ht = ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4140 for (;;)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4141 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4142 if (!abort)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4143 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4144 // Mark each item in the hashtab. If the item contains a hashtab
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4145 // it is added to ht_stack, if it contains a list it is added to
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4146 // list_stack.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4147 todo = (int)cur_ht->ht_used;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4148 for (hi = cur_ht->ht_array; todo > 0; ++hi)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4149 if (!HASHITEM_EMPTY(hi))
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4150 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4151 --todo;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4152 abort = abort || set_ref_in_item(&HI2DI(hi)->di_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4153 &ht_stack, list_stack);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4154 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4155 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4156
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4157 if (ht_stack == NULL)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4158 break;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4159
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4160 // take an item from the stack
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4161 cur_ht = ht_stack->ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4162 tempitem = ht_stack;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4163 ht_stack = ht_stack->prev;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4164 free(tempitem);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4165 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4166
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4167 return abort;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4168 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4169
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4170 /*
17168
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4171 * Mark a dict and its items with "copyID".
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4172 * Returns TRUE if setting references failed somehow.
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4173 */
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4174 int
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4175 set_ref_in_dict(dict_T *d, int copyID)
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4176 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4177 if (d != NULL && d->dv_copyID != copyID)
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4178 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4179 d->dv_copyID = copyID;
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4180 return set_ref_in_ht(&d->dv_hashtab, copyID, NULL);
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4181 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4182 return FALSE;
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4183 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4184
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4185 /*
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4186 * Mark a list and its items with "copyID".
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4187 * Returns TRUE if setting references failed somehow.
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4188 */
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4189 int
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4190 set_ref_in_list(list_T *ll, int copyID)
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4191 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4192 if (ll != NULL && ll->lv_copyID != copyID)
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4193 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4194 ll->lv_copyID = copyID;
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4195 return set_ref_in_list_items(ll, copyID, NULL);
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4196 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4197 return FALSE;
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4198 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4199
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4200 /*
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4201 * Mark all lists and dicts referenced through list "l" with "copyID".
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4202 * "ht_stack" is used to add hashtabs to be marked. Can be NULL.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4203 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4204 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4205 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4206 int
17168
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4207 set_ref_in_list_items(list_T *l, int copyID, ht_stack_T **ht_stack)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4208 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4209 listitem_T *li;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4210 int abort = FALSE;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4211 list_T *cur_l;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4212 list_stack_T *list_stack = NULL;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4213 list_stack_T *tempitem;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4214
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4215 cur_l = l;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4216 for (;;)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4217 {
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 19191
diff changeset
4218 if (!abort && cur_l->lv_first != &range_list_item)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4219 // Mark each item in the list. If the item contains a hashtab
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4220 // it is added to ht_stack, if it contains a list it is added to
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4221 // list_stack.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4222 for (li = cur_l->lv_first; !abort && li != NULL; li = li->li_next)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4223 abort = abort || set_ref_in_item(&li->li_tv, copyID,
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4224 ht_stack, &list_stack);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4225 if (list_stack == NULL)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4226 break;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4227
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4228 // take an item from the stack
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4229 cur_l = list_stack->list;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4230 tempitem = list_stack;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4231 list_stack = list_stack->prev;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4232 free(tempitem);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4233 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4234
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4235 return abort;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4236 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4237
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4238 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4239 * Mark all lists and dicts referenced through typval "tv" with "copyID".
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4240 * "list_stack" is used to add lists to be marked. Can be NULL.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4241 * "ht_stack" is used to add hashtabs to be marked. Can be NULL.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4242 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4243 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4244 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4245 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4246 set_ref_in_item(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4247 typval_T *tv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4248 int copyID,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4249 ht_stack_T **ht_stack,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4250 list_stack_T **list_stack)
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4251 {
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4252 int abort = FALSE;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4253
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4254 if (tv->v_type == VAR_DICT)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4255 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4256 dict_T *dd = tv->vval.v_dict;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4257
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4258 if (dd != NULL && dd->dv_copyID != copyID)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4259 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4260 // Didn't see this dict yet.
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4261 dd->dv_copyID = copyID;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4262 if (ht_stack == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4263 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4264 abort = set_ref_in_ht(&dd->dv_hashtab, copyID, list_stack);
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4265 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4266 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4267 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4268 ht_stack_T *newitem = (ht_stack_T*)malloc(sizeof(ht_stack_T));
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4269 if (newitem == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4270 abort = TRUE;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4271 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4272 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4273 newitem->ht = &dd->dv_hashtab;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4274 newitem->prev = *ht_stack;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4275 *ht_stack = newitem;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4276 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4277 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4278 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4279 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4280 else if (tv->v_type == VAR_LIST)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4281 {
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4282 list_T *ll = tv->vval.v_list;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4283
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4284 if (ll != NULL && ll->lv_copyID != copyID)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4285 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4286 // Didn't see this list yet.
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4287 ll->lv_copyID = copyID;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4288 if (list_stack == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4289 {
17168
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4290 abort = set_ref_in_list_items(ll, copyID, ht_stack);
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4291 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4292 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4293 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4294 list_stack_T *newitem = (list_stack_T*)malloc(
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4295 sizeof(list_stack_T));
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4296 if (newitem == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4297 abort = TRUE;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4298 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4299 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4300 newitem->list = ll;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4301 newitem->prev = *list_stack;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4302 *list_stack = newitem;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4303 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4304 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4305 }
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4306 }
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
4307 else if (tv->v_type == VAR_FUNC)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
4308 {
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4309 abort = set_ref_in_func(tv->vval.v_string, NULL, copyID);
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
4310 }
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4311 else if (tv->v_type == VAR_PARTIAL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4312 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4313 partial_T *pt = tv->vval.v_partial;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4314 int i;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4315
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4316 // A partial does not have a copyID, because it cannot contain itself.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4317 if (pt != NULL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4318 {
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4319 abort = set_ref_in_func(pt->pt_name, pt->pt_func, copyID);
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
4320
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4321 if (pt->pt_dict != NULL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4322 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4323 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4324
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4325 dtv.v_type = VAR_DICT;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4326 dtv.vval.v_dict = pt->pt_dict;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4327 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4328 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4329
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4330 for (i = 0; i < pt->pt_argc; ++i)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4331 abort = abort || set_ref_in_item(&pt->pt_argv[i], copyID,
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4332 ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4333 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4334 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4335 #ifdef FEAT_JOB_CHANNEL
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4336 else if (tv->v_type == VAR_JOB)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4337 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4338 job_T *job = tv->vval.v_job;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4339 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4340
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4341 if (job != NULL && job->jv_copyID != copyID)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4342 {
8870
30988ffb7498 commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
4343 job->jv_copyID = copyID;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4344 if (job->jv_channel != NULL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4345 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4346 dtv.v_type = VAR_CHANNEL;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4347 dtv.vval.v_channel = job->jv_channel;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4348 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4349 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4350 if (job->jv_exit_cb.cb_partial != NULL)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4351 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4352 dtv.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
4353 dtv.vval.v_partial = job->jv_exit_cb.cb_partial;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4354 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4355 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4356 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4357 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4358 else if (tv->v_type == VAR_CHANNEL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4359 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4360 channel_T *ch =tv->vval.v_channel;
10259
a09db7a4afe0 commit https://github.com/vim/vim/commit/dc0ccaee68ca24d10050117fbec757ad33590a17
Christian Brabandt <cb@256bit.org>
parents: 10235
diff changeset
4361 ch_part_T part;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4362 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4363 jsonq_T *jq;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4364 cbq_T *cq;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4365
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4366 if (ch != NULL && ch->ch_copyID != copyID)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4367 {
8870
30988ffb7498 commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
4368 ch->ch_copyID = copyID;
10259
a09db7a4afe0 commit https://github.com/vim/vim/commit/dc0ccaee68ca24d10050117fbec757ad33590a17
Christian Brabandt <cb@256bit.org>
parents: 10235
diff changeset
4369 for (part = PART_SOCK; part < PART_COUNT; ++part)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4370 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4371 for (jq = ch->ch_part[part].ch_json_head.jq_next; jq != NULL;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4372 jq = jq->jq_next)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4373 set_ref_in_item(jq->jq_value, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4374 for (cq = ch->ch_part[part].ch_cb_head.cq_next; cq != NULL;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4375 cq = cq->cq_next)
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4376 if (cq->cq_callback.cb_partial != NULL)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4377 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4378 dtv.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
4379 dtv.vval.v_partial = cq->cq_callback.cb_partial;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4380 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4381 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4382 if (ch->ch_part[part].ch_callback.cb_partial != NULL)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4383 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4384 dtv.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
4385 dtv.vval.v_partial =
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4386 ch->ch_part[part].ch_callback.cb_partial;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4387 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4388 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4389 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4390 if (ch->ch_callback.cb_partial != NULL)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4391 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4392 dtv.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
4393 dtv.vval.v_partial = ch->ch_callback.cb_partial;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4394 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4395 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4396 if (ch->ch_close_cb.cb_partial != NULL)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4397 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4398 dtv.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
4399 dtv.vval.v_partial = ch->ch_close_cb.cb_partial;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4400 set_ref_in_item(&dtv, copyID, ht_stack, list_stack);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4401 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4402 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4403 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4404 #endif
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4405 return abort;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4406 }
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4407
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4408 /*
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4409 * Return a string with the string representation of a variable.
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4410 * If the memory is allocated "tofree" is set to it, otherwise NULL.
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
4411 * "numbuf" is used for a number.
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4412 * When "copyID" is not NULL replace recursive lists and dicts with "...".
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4413 * When both "echo_style" and "composite_val" are FALSE, put quotes around
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4414 * stings as "string()", otherwise does not put quotes around strings, as
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4415 * ":echo" displays values.
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4416 * When "restore_copyID" is FALSE, repeated items in dictionaries and lists
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4417 * are replaced with "...".
1360
8d09c1eed8a5 updated for version 7.1-074
vimboss
parents: 1341
diff changeset
4418 * May return NULL.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4419 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4420 char_u *
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4421 echo_string_core(
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4422 typval_T *tv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4423 char_u **tofree,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4424 char_u *numbuf,
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4425 int copyID,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4426 int echo_style,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4427 int restore_copyID,
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4428 int composite_val)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4429 {
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4430 static int recurse = 0;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4431 char_u *r = NULL;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4432
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4433 if (recurse >= DICT_MAXNEST)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4434 {
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4435 if (!did_echo_string_emsg)
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4436 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4437 // Only give this message once for a recursive call to avoid
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4438 // flooding the user with errors. And stop iterating over lists
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4439 // and dicts.
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4440 did_echo_string_emsg = TRUE;
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
4441 emsg(_("E724: variable nested too deep for displaying"));
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4442 }
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4443 *tofree = NULL;
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4444 return (char_u *)"{E724}";
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4445 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4446 ++recurse;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4447
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4448 switch (tv->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4449 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4450 case VAR_STRING:
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4451 if (echo_style && !composite_val)
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4452 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4453 *tofree = NULL;
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4454 r = tv->vval.v_string;
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4455 if (r == NULL)
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4456 r = (char_u *)"";
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4457 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4458 else
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4459 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4460 *tofree = string_quote(tv->vval.v_string, FALSE);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4461 r = *tofree;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4462 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4463 break;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4464
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4465 case VAR_FUNC:
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4466 if (echo_style)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4467 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4468 *tofree = NULL;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4469 r = tv->vval.v_string;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4470 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4471 else
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4472 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4473 *tofree = string_quote(tv->vval.v_string, TRUE);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4474 r = *tofree;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4475 }
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4476 break;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4477
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
4478 case VAR_PARTIAL:
8710
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4479 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4480 partial_T *pt = tv->vval.v_partial;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4481 char_u *fname = string_quote(pt == NULL ? NULL
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4482 : partial_name(pt), FALSE);
8710
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4483 garray_T ga;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4484 int i;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4485 char_u *tf;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4486
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4487 ga_init2(&ga, 1, 100);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4488 ga_concat(&ga, (char_u *)"function(");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4489 if (fname != NULL)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4490 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4491 ga_concat(&ga, fname);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4492 vim_free(fname);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4493 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4494 if (pt != NULL && pt->pt_argc > 0)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4495 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4496 ga_concat(&ga, (char_u *)", [");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4497 for (i = 0; i < pt->pt_argc; ++i)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4498 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4499 if (i > 0)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4500 ga_concat(&ga, (char_u *)", ");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4501 ga_concat(&ga,
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4502 tv2string(&pt->pt_argv[i], &tf, numbuf, copyID));
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4503 vim_free(tf);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4504 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4505 ga_concat(&ga, (char_u *)"]");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4506 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4507 if (pt != NULL && pt->pt_dict != NULL)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4508 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4509 typval_T dtv;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4510
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4511 ga_concat(&ga, (char_u *)", ");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4512 dtv.v_type = VAR_DICT;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4513 dtv.vval.v_dict = pt->pt_dict;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4514 ga_concat(&ga, tv2string(&dtv, &tf, numbuf, copyID));
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4515 vim_free(tf);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4516 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4517 ga_concat(&ga, (char_u *)")");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4518
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4519 *tofree = ga.ga_data;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4520 r = *tofree;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4521 break;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4522 }
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
4523
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
4524 case VAR_BLOB:
15466
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15464
diff changeset
4525 r = blob2string(tv->vval.v_blob, tofree, numbuf);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
4526 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
4527
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4528 case VAR_LIST:
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4529 if (tv->vval.v_list == NULL)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4530 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4531 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4532 r = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4533 }
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4534 else if (copyID != 0 && tv->vval.v_list->lv_copyID == copyID
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4535 && tv->vval.v_list->lv_len > 0)
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4536 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4537 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4538 r = (char_u *)"[...]";
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4539 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4540 else
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4541 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4542 int old_copyID = tv->vval.v_list->lv_copyID;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4543
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4544 tv->vval.v_list->lv_copyID = copyID;
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4545 *tofree = list2string(tv, copyID, restore_copyID);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4546 if (restore_copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4547 tv->vval.v_list->lv_copyID = old_copyID;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4548 r = *tofree;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4549 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4550 break;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4551
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4552 case VAR_DICT:
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4553 if (tv->vval.v_dict == NULL)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4554 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4555 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4556 r = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4557 }
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4558 else if (copyID != 0 && tv->vval.v_dict->dv_copyID == copyID
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4559 && tv->vval.v_dict->dv_hashtab.ht_used != 0)
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4560 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4561 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4562 r = (char_u *)"{...}";
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4563 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4564 else
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4565 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4566 int old_copyID = tv->vval.v_dict->dv_copyID;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4567 tv->vval.v_dict->dv_copyID = copyID;
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4568 *tofree = dict2string(tv, copyID, restore_copyID);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4569 if (restore_copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4570 tv->vval.v_dict->dv_copyID = old_copyID;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4571 r = *tofree;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4572 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4573 break;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4574
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4575 case VAR_NUMBER:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4576 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
4577 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
4578 case VAR_VOID:
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4579 *tofree = NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
4580 r = tv_get_string_buf(tv, numbuf);
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4581 break;
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4582
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
4583 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
4584 case VAR_CHANNEL:
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4585 *tofree = NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
4586 r = tv_get_string_buf(tv, numbuf);
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4587 if (composite_val)
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4588 {
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4589 *tofree = string_quote(r, FALSE);
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4590 r = *tofree;
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4591 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4592 break;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4593
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4594 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
4595 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4596 *tofree = NULL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4597 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4598 r = numbuf;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4599 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4600 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4601
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
4602 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4603 case VAR_SPECIAL:
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4604 *tofree = NULL;
7730
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
4605 r = (char_u *)get_var_special_name(tv->vval.v_number);
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4606 break;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4607 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4608
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4609 if (--recurse == 0)
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4610 did_echo_string_emsg = FALSE;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4611 return r;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4612 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4613
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4614 /*
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4615 * Return a string with the string representation of a variable.
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4616 * If the memory is allocated "tofree" is set to it, otherwise NULL.
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4617 * "numbuf" is used for a number.
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4618 * Does not put quotes around strings, as ":echo" displays values.
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4619 * When "copyID" is not NULL replace recursive lists and dicts with "...".
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4620 * May return NULL.
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4621 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4622 char_u *
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4623 echo_string(
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4624 typval_T *tv,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4625 char_u **tofree,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4626 char_u *numbuf,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4627 int copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4628 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4629 return echo_string_core(tv, tofree, numbuf, copyID, TRUE, FALSE, FALSE);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4630 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4631
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4632 /*
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4633 * Return a string with the string representation of a variable.
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4634 * If the memory is allocated "tofree" is set to it, otherwise NULL.
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4635 * "numbuf" is used for a number.
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4636 * Puts quotes around strings, so that they can be parsed back by eval().
1360
8d09c1eed8a5 updated for version 7.1-074
vimboss
parents: 1341
diff changeset
4637 * May return NULL.
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4638 */
8889
8755d57debaa commit https://github.com/vim/vim/commit/8110a091bc749d8748a20807a724a3af3ca6d509
Christian Brabandt <cb@256bit.org>
parents: 8887
diff changeset
4639 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4640 tv2string(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4641 typval_T *tv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4642 char_u **tofree,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4643 char_u *numbuf,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4644 int copyID)
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4645 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4646 return echo_string_core(tv, tofree, numbuf, copyID, FALSE, TRUE, FALSE);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4647 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4648
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4649 /*
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4650 * Return string "str" in ' quotes, doubling ' characters.
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4651 * If "str" is NULL an empty string is assumed.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4652 * If "function" is TRUE make it function('string').
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4653 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4654 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4655 string_quote(char_u *str, int function)
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4656 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4657 unsigned len;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4658 char_u *p, *r, *s;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4659
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4660 len = (function ? 13 : 3);
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4661 if (str != NULL)
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4662 {
835
8bebcabccc2c updated for version 7.0e01
vimboss
parents: 833
diff changeset
4663 len += (unsigned)STRLEN(str);
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
4664 for (p = str; *p != NUL; MB_PTR_ADV(p))
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4665 if (*p == '\'')
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4666 ++len;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4667 }
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4668 s = r = alloc(len);
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4669 if (r != NULL)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4670 {
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4671 if (function)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4672 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4673 STRCPY(r, "function('");
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4674 r += 10;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4675 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4676 else
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4677 *r++ = '\'';
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4678 if (str != NULL)
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4679 for (p = str; *p != NUL; )
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4680 {
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4681 if (*p == '\'')
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4682 *r++ = '\'';
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4683 MB_COPY_CHAR(p, r);
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4684 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4685 *r++ = '\'';
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4686 if (function)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4687 *r++ = ')';
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4688 *r++ = NUL;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4689 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4690 return s;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4691 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4692
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4693 #if defined(FEAT_FLOAT) || defined(PROTO)
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4694 /*
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4695 * Convert the string "text" to a floating point number.
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4696 * This uses strtod(). setlocale(LC_NUMERIC, "C") has been used to make sure
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4697 * this always uses a decimal point.
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4698 * Returns the length of the text that was consumed.
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4699 */
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4700 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4701 string2float(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4702 char_u *text,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4703 float_T *value) // result stored here
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4704 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4705 char *s = (char *)text;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4706 float_T f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4707
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4708 // MS-Windows does not deal with "inf" and "nan" properly.
10536
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4709 if (STRNICMP(text, "inf", 3) == 0)
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4710 {
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4711 *value = INFINITY;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4712 return 3;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4713 }
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4714 if (STRNICMP(text, "-inf", 3) == 0)
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4715 {
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4716 *value = -INFINITY;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4717 return 4;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4718 }
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4719 if (STRNICMP(text, "nan", 3) == 0)
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4720 {
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4721 *value = NAN;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4722 return 3;
6ddf322ff7cf patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 10386
diff changeset
4723 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4724 f = strtod(s, &s);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4725 *value = f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4726 return (int)((char_u *)s - text);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4727 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4728 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
4729
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
4730 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4731 * Get the value of an environment variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4732 * "arg" is pointing to the '$'. It is advanced to after the name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4733 * If the environment variable was not set, silently assume it is empty.
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4734 * Return FAIL if the name is invalid.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4735 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
4736 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4737 get_env_tv(char_u **arg, typval_T *rettv, int evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4738 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4739 char_u *string = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4740 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4741 int cc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4742 char_u *name;
170
8c60f65311fa updated for version 7.0052
vimboss
parents: 169
diff changeset
4743 int mustfree = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4744
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4745 ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4746 name = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4747 len = get_env_len(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4748 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4749 {
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4750 if (len == 0)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4751 return FAIL; // invalid empty name
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4752
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4753 cc = name[len];
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4754 name[len] = NUL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4755 // first try vim_getenv(), fast for normal environment vars
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4756 string = vim_getenv(name, &mustfree);
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4757 if (string != NULL && *string != NUL)
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4758 {
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4759 if (!mustfree)
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4760 string = vim_strsave(string);
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4761 }
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4762 else
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4763 {
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4764 if (mustfree)
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4765 vim_free(string);
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4766
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4767 // next try expanding things like $VIM and ${HOME}
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4768 string = expand_env_save(name - 1);
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4769 if (string != NULL && *string == '$')
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13037
diff changeset
4770 VIM_CLEAR(string);
5858
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4771 }
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4772 name[len] = cc;
00228400629e updated for version 7.4.272
Bram Moolenaar <bram@vim.org>
parents: 5850
diff changeset
4773
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4774 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4775 rettv->vval.v_string = string;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4776 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4777
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4778 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4779 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4780
3214
cd145cc2f2c9 updated for version 7.3.377
Bram Moolenaar <bram@vim.org>
parents: 3180
diff changeset
4781 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4782 * Translate a String variable into a position.
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4783 * Returns NULL when there is an error.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4784 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
4785 pos_T *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4786 var2fpos(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4787 typval_T *varp,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4788 int dollar_lnum, // TRUE when $ is last line
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4789 int *fnum) // set to fnum for '0, 'A, etc.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4790 {
700
c78d973dce9e updated for version 7.0211
vimboss
parents: 697
diff changeset
4791 char_u *name;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4792 static pos_T pos;
700
c78d973dce9e updated for version 7.0211
vimboss
parents: 697
diff changeset
4793 pos_T *pp;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4794
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4795 // Argument can be [lnum, col, coladd].
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4796 if (varp->v_type == VAR_LIST)
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4797 {
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4798 list_T *l;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4799 int len;
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4800 int error = FALSE;
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4801 listitem_T *li;
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4802
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4803 l = varp->vval.v_list;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4804 if (l == NULL)
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4805 return NULL;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4806
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4807 // Get the line number
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4808 pos.lnum = list_find_nr(l, 0L, &error);
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4809 if (error || pos.lnum <= 0 || pos.lnum > curbuf->b_ml.ml_line_count)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4810 return NULL; // invalid line number
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4811
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4812 // Get the column number
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4813 pos.col = list_find_nr(l, 1L, &error);
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4814 if (error)
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4815 return NULL;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4816 len = (long)STRLEN(ml_get(pos.lnum));
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4817
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4818 // We accept "$" for the column number: last column.
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4819 li = list_find(l, 1L);
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4820 if (li != NULL && li->li_tv.v_type == VAR_STRING
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4821 && li->li_tv.vval.v_string != NULL
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4822 && STRCMP(li->li_tv.vval.v_string, "$") == 0)
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4823 pos.col = len + 1;
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4824
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4825 // Accept a position up to the NUL after the line.
826
1cdd2661f34c updated for version 7.0d01
vimboss
parents: 819
diff changeset
4826 if (pos.col == 0 || (int)pos.col > len + 1)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4827 return NULL; // invalid column number
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4828 --pos.col;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4829
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4830 // Get the virtual offset. Defaults to zero.
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4831 pos.coladd = list_find_nr(l, 2L, &error);
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4832 if (error)
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4833 pos.coladd = 0;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4834
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4835 return &pos;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4836 }
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
4837
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
4838 name = tv_get_string_chk(varp);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4839 if (name == NULL)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4840 return NULL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4841 if (name[0] == '.') // cursor
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4842 return &curwin->w_cursor;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4843 if (name[0] == 'v' && name[1] == NUL) // Visual start
1609
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
4844 {
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
4845 if (VIsual_active)
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
4846 return &VIsual;
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
4847 return &curwin->w_cursor;
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
4848 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4849 if (name[0] == '\'') // mark
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4850 {
4043
80b041b994d1 updated for version 7.3.776
Bram Moolenaar <bram@vim.org>
parents: 3986
diff changeset
4851 pp = getmark_buf_fnum(curbuf, name[1], FALSE, fnum);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4852 if (pp == NULL || pp == (pos_T *)-1 || pp->lnum <= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4853 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4854 return pp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4855 }
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4856
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4857 pos.coladd = 0;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
4858
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4859 if (name[0] == 'w' && dollar_lnum)
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4860 {
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4861 pos.col = 0;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4862 if (name[1] == '0') // "w0": first visible line
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4863 {
671
83a006f81bac updated for version 7.0199
vimboss
parents: 667
diff changeset
4864 update_topline();
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4865 // In silent Ex mode topline is zero, but that's not a valid line
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4866 // number; use one instead.
11313
327a04a762f6 patch 8.0.0542: getpos() can return a negative line number
Christian Brabandt <cb@256bit.org>
parents: 11181
diff changeset
4867 pos.lnum = curwin->w_topline > 0 ? curwin->w_topline : 1;
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4868 return &pos;
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4869 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4870 else if (name[1] == '$') // "w$": last visible line
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4871 {
671
83a006f81bac updated for version 7.0199
vimboss
parents: 667
diff changeset
4872 validate_botline();
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4873 // In silent Ex mode botline is zero, return zero then.
11313
327a04a762f6 patch 8.0.0542: getpos() can return a negative line number
Christian Brabandt <cb@256bit.org>
parents: 11181
diff changeset
4874 pos.lnum = curwin->w_botline > 0 ? curwin->w_botline - 1 : 0;
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4875 return &pos;
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4876 }
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
4877 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4878 else if (name[0] == '$') // last column or line
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4879 {
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
4880 if (dollar_lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4881 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4882 pos.lnum = curbuf->b_ml.ml_line_count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4883 pos.col = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4884 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4885 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4886 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4887 pos.lnum = curwin->w_cursor.lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4888 pos.col = (colnr_T)STRLEN(ml_get_curline());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4889 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4890 return &pos;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4891 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4892 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4893 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4894
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4895 /*
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4896 * Convert list in "arg" into a position and optional file number.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4897 * When "fnump" is NULL there is no file number, only 3 items.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4898 * Note that the column is passed on as-is, the caller may want to decrement
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4899 * it to use 1 for the first column.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4900 * Return FAIL when conversion is not possible, doesn't check the position for
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4901 * validity.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4902 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
4903 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4904 list2fpos(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4905 typval_T *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4906 pos_T *posp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4907 int *fnump,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4908 colnr_T *curswantp)
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4909 {
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4910 list_T *l = arg->vval.v_list;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4911 long i = 0;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4912 long n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4913
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4914 // List must be: [fnum, lnum, col, coladd, curswant], where "fnum" is only
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4915 // there when "fnump" isn't NULL; "coladd" and "curswant" are optional.
915
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4916 if (arg->v_type != VAR_LIST
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4917 || l == NULL
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4918 || l->lv_len < (fnump == NULL ? 2 : 3)
5938
ccac0aa34eea updated for version 7.4.310
Bram Moolenaar <bram@vim.org>
parents: 5930
diff changeset
4919 || l->lv_len > (fnump == NULL ? 4 : 5))
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4920 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4921
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4922 if (fnump != NULL)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4923 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4924 n = list_find_nr(l, i++, NULL); // fnum
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4925 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4926 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4927 if (n == 0)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4928 n = curbuf->b_fnum; // current buffer
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4929 *fnump = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4930 }
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4931
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4932 n = list_find_nr(l, i++, NULL); // lnum
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4933 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4934 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4935 posp->lnum = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4936
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4937 n = list_find_nr(l, i++, NULL); // col
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4938 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4939 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4940 posp->col = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4941
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4942 n = list_find_nr(l, i, NULL); // off
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4943 if (n < 0)
915
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4944 posp->coladd = 0;
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4945 else
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
4946 posp->coladd = n;
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4947
5938
ccac0aa34eea updated for version 7.4.310
Bram Moolenaar <bram@vim.org>
parents: 5930
diff changeset
4948 if (curswantp != NULL)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4949 *curswantp = list_find_nr(l, i + 1, NULL); // curswant
5938
ccac0aa34eea updated for version 7.4.310
Bram Moolenaar <bram@vim.org>
parents: 5930
diff changeset
4950
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4951 return OK;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4952 }
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4953
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
4954 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4955 * Get the length of an environment variable name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4956 * Advance "arg" to the first character after the name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4957 * Return 0 for error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4958 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
4959 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4960 get_env_len(char_u **arg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4961 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4962 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4963 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4964
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4965 for (p = *arg; vim_isIDc(*p); ++p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4966 ;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4967 if (p == *arg) // no name found
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4968 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4969
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4970 len = (int)(p - *arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4971 *arg = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4972 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4973 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4974
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4975 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4976 * Get the length of the name of a function or internal variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4977 * "arg" is advanced to the first non-white character after the name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4978 * Return 0 if something is wrong.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4979 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4980 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4981 get_id_len(char_u **arg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4982 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4983 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4984 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4985
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4986 // Find the end of the name.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4987 for (p = *arg; eval_isnamec(*p); ++p)
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4988 {
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4989 if (*p == ':')
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4990 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4991 // "s:" is start of "s:var", but "n:" is not and can be used in
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4992 // slice "[n:]". Also "xx:" is not a namespace.
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4993 len = (int)(p - *arg);
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4994 if ((len == 1 && vim_strchr(NAMESPACE_CHAR, **arg) == NULL)
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4995 || len > 1)
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4996 break;
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4997 }
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
4998 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4999 if (p == *arg) // no name found
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5000 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5001
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5002 len = (int)(p - *arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5003 *arg = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5004
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5005 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5006 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5007
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5008 /*
124
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
5009 * Get the length of the name of a variable or function.
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
5010 * Only the name is recognized, does not handle ".key" or "[idx]".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5011 * "arg" is advanced to the first non-white character after the name.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5012 * Return -1 if curly braces expansion failed.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5013 * Return 0 if something else is wrong.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5014 * If the name contains 'magic' {}'s, expand them and return the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5015 * expanded name in an allocated string via 'alias' - caller must free.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5016 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
5017 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5018 get_name_len(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5019 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5020 char_u **alias,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5021 int evaluate,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5022 int verbose)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5023 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5024 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5025 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5026 char_u *expr_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5027 char_u *expr_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5028
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5029 *alias = NULL; // default to no alias
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5030
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5031 if ((*arg)[0] == K_SPECIAL && (*arg)[1] == KS_EXTRA
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5032 && (*arg)[2] == (int)KE_SNR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5033 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5034 // hard coded <SNR>, already translated
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5035 *arg += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5036 return get_id_len(arg) + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5037 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5038 len = eval_fname_script(*arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5039 if (len > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5040 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5041 // literal "<SID>", "s:" or "<SNR>"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5042 *arg += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5043 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5044
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5045 /*
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5046 * Find the end of the name; check for {} construction.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5047 */
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5048 p = find_name_end(*arg, &expr_start, &expr_end,
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5049 len > 0 ? 0 : FNE_CHECK_START);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5050 if (expr_start != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5051 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5052 char_u *temp_string;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5053
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5054 if (!evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5055 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5056 len += (int)(p - *arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5057 *arg = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5058 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5059 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5060
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5061 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5062 * Include any <SID> etc in the expanded string:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5063 * Thus the -len here.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5064 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5065 temp_string = make_expanded_name(*arg - len, expr_start, expr_end, p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5066 if (temp_string == NULL)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5067 return -1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5068 *alias = temp_string;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5069 *arg = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5070 return (int)STRLEN(temp_string);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5071 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5072
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5073 len += get_id_len(arg);
15464
3faa7cc8207c patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents: 15460
diff changeset
5074 // Only give an error when there is something, otherwise it will be
3faa7cc8207c patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents: 15460
diff changeset
5075 // reported at a higher level.
3faa7cc8207c patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents: 15460
diff changeset
5076 if (len == 0 && verbose && **arg != NUL)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5077 semsg(_(e_invexpr2), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5078
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5079 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5080 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5081
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5082 /*
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5083 * Find the end of a variable or function name, taking care of magic braces.
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5084 * If "expr_start" is not NULL then "expr_start" and "expr_end" are set to the
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5085 * start and end of the first magic braces item.
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5086 * "flags" can have FNE_INCL_BR and FNE_CHECK_START.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5087 * Return a pointer to just after the name. Equal to "arg" if there is no
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5088 * valid name.
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5089 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5090 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5091 find_name_end(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5092 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5093 char_u **expr_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5094 char_u **expr_end,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5095 int flags)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5096 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5097 int mb_nest = 0;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5098 int br_nest = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5099 char_u *p;
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5100 int len;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5101
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5102 if (expr_start != NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5103 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5104 *expr_start = NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5105 *expr_end = NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5106 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5107
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5108 // Quick check for valid starting character.
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5109 if ((flags & FNE_CHECK_START) && !eval_isnamec1(*arg) && *arg != '{')
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5110 return arg;
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5111
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5112 for (p = arg; *p != NUL
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5113 && (eval_isnamec(*p)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5114 || *p == '{'
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5115 || ((flags & FNE_INCL_BR) && (*p == '[' || *p == '.'))
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5116 || mb_nest != 0
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
5117 || br_nest != 0); MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5118 {
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5119 if (*p == '\'')
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5120 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5121 // skip over 'string' to avoid counting [ and ] inside it.
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
5122 for (p = p + 1; *p != NUL && *p != '\''; MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5123 ;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5124 if (*p == NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5125 break;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5126 }
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5127 else if (*p == '"')
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5128 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5129 // skip over "str\"ing" to avoid counting [ and ] inside it.
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
5130 for (p = p + 1; *p != NUL && *p != '"'; MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5131 if (*p == '\\' && p[1] != NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5132 ++p;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5133 if (*p == NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5134 break;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5135 }
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5136 else if (br_nest == 0 && mb_nest == 0 && *p == ':')
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5137 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5138 // "s:" is start of "s:var", but "n:" is not and can be used in
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5139 // slice "[n:]". Also "xx:" is not a namespace. But {ns}: is.
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5140 len = (int)(p - arg);
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5141 if ((len == 1 && vim_strchr(NAMESPACE_CHAR, *arg) == NULL)
7627
d9ec7d22494d commit https://github.com/vim/vim/commit/4119cf80e1e534057680f9543e73edf7967c2440
Christian Brabandt <cb@256bit.org>
parents: 7615
diff changeset
5142 || (len > 1 && p[-1] != '}'))
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5143 break;
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5144 }
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5145
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5146 if (mb_nest == 0)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5147 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5148 if (*p == '[')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5149 ++br_nest;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5150 else if (*p == ']')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5151 --br_nest;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5152 }
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5153
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5154 if (br_nest == 0)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5155 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5156 if (*p == '{')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5157 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5158 mb_nest++;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5159 if (expr_start != NULL && *expr_start == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5160 *expr_start = p;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5161 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5162 else if (*p == '}')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5163 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5164 mb_nest--;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5165 if (expr_start != NULL && mb_nest == 0 && *expr_end == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5166 *expr_end = p;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5167 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5168 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5169 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5170
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5171 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5172 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5173
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5174 /*
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5175 * Expands out the 'magic' {}'s in a variable/function name.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5176 * Note that this can call itself recursively, to deal with
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5177 * constructs like foo{bar}{baz}{bam}
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5178 * The four pointer arguments point to "foo{expre}ss{ion}bar"
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5179 * "in_start" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5180 * "expr_start" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5181 * "expr_end" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5182 * "in_end" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5183 *
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5184 * Returns a new allocated string, which the caller must free.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5185 * Returns NULL for failure.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5186 */
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5187 static char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5188 make_expanded_name(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5189 char_u *in_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5190 char_u *expr_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5191 char_u *expr_end,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5192 char_u *in_end)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5193 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5194 char_u c1;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5195 char_u *retval = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5196 char_u *temp_result;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5197 char_u *nextcmd = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5198
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5199 if (expr_end == NULL || in_end == NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5200 return NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5201 *expr_start = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5202 *expr_end = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5203 c1 = *in_end;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5204 *in_end = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5205
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 713
diff changeset
5206 temp_result = eval_to_string(expr_start + 1, &nextcmd, FALSE);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5207 if (temp_result != NULL && nextcmd == NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5208 {
16764
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16706
diff changeset
5209 retval = alloc(STRLEN(temp_result) + (expr_start - in_start)
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16706
diff changeset
5210 + (in_end - expr_end) + 1);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5211 if (retval != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5212 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5213 STRCPY(retval, in_start);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5214 STRCAT(retval, temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5215 STRCAT(retval, expr_end + 1);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5216 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5217 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5218 vim_free(temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5219
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5220 *in_end = c1; // put char back for error messages
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5221 *expr_start = '{';
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5222 *expr_end = '}';
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5223
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5224 if (retval != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5225 {
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5226 temp_result = find_name_end(retval, &expr_start, &expr_end, 0);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5227 if (expr_start != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5228 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5229 // Further expansion!
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5230 temp_result = make_expanded_name(retval, expr_start,
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5231 expr_end, temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5232 vim_free(retval);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5233 retval = temp_result;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5234 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5235 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5236
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5237 return retval;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5238 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5239
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5240 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5241 * Return TRUE if character "c" can be used in a variable or function name.
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5242 * Does not include '{' or '}' for magic braces.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5243 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5244 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5245 eval_isnamec(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5246 {
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5247 return (ASCII_ISALNUM(c) || c == '_' || c == ':' || c == AUTOLOAD_CHAR);
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5248 }
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5249
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5250 /*
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5251 * Return TRUE if character "c" can be used as the first character in a
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5252 * variable or function name (excluding '{' and '}').
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5253 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5254 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5255 eval_isnamec1(int c)
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5256 {
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5257 return (ASCII_ISALPHA(c) || c == '_');
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5258 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5259
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5260 /*
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5261 * Handle:
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5262 * - expr[expr], expr[expr:expr] subscript
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5263 * - ".name" lookup
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5264 * - function call with Funcref variable: func(expr)
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5265 * - method call: var->method()
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5266 *
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5267 * Can all be combined in any order: dict.func(expr)[idx]['func'](expr)->len()
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5268 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5269 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5270 handle_subscript(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5271 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5272 typval_T *rettv,
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5273 int evaluate, // do more than finding the end
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5274 int verbose, // give error messages
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5275 char_u *start_leader, // start of '!' and '-' prefixes
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5276 char_u **end_leaderp) // end of '!' and '-' prefixes
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5277 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5278 int ret = OK;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5279 dict_T *selfdict = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5280
17448
f8cd16838434 patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents: 17413
diff changeset
5281 // "." is ".name" lookup when we found a dict or when evaluating and
f8cd16838434 patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents: 17413
diff changeset
5282 // scriptversion is at least 2, where string concatenation is "..".
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5283 while (ret == OK
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5284 && (((**arg == '['
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5285 || (**arg == '.' && (rettv->v_type == VAR_DICT
17448
f8cd16838434 patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents: 17413
diff changeset
5286 || (!evaluate
f8cd16838434 patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents: 17413
diff changeset
5287 && (*arg)[1] != '.'
f8cd16838434 patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents: 17413
diff changeset
5288 && current_sctx.sc_version >= 2)))
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5289 || (**arg == '(' && (!evaluate || rettv->v_type == VAR_FUNC
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5290 || rettv->v_type == VAR_PARTIAL)))
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5291 && !VIM_ISWHITE(*(*arg - 1)))
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5292 || (**arg == '-' && (*arg)[1] == '>')))
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5293 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5294 if (**arg == '(')
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5295 {
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5296 ret = call_func_rettv(arg, rettv, evaluate, selfdict, NULL);
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5297
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5298 // Stop the expression evaluation when immediately aborting on
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5299 // error, or when an interrupt occurred or an exception was thrown
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5300 // but not caught.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5301 if (aborting())
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5302 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5303 if (ret == OK)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5304 clear_tv(rettv);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5305 ret = FAIL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5306 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5307 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5308 selfdict = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5309 }
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5310 else if (**arg == '-')
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5311 {
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5312 // Expression "-1.0->method()" applies the leader "-" before
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5313 // applying ->.
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5314 if (evaluate && *end_leaderp > start_leader)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5315 ret = eval7_leader(rettv, start_leader, end_leaderp);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5316 if (ret == OK)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5317 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5318 if ((*arg)[2] == '{')
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5319 // expr->{lambda}()
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5320 ret = eval_lambda(arg, rettv, evaluate, verbose);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5321 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5322 // expr->name()
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5323 ret = eval_method(arg, rettv, evaluate, verbose);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5324 }
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5325 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5326 else // **arg == '[' || **arg == '.'
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5327 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5328 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5329 if (rettv->v_type == VAR_DICT)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5330 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5331 selfdict = rettv->vval.v_dict;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5332 if (selfdict != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5333 ++selfdict->dv_refcount;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5334 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5335 else
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5336 selfdict = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5337 if (eval_index(arg, rettv, evaluate, verbose) == FAIL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5338 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5339 clear_tv(rettv);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5340 ret = FAIL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5341 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5342 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5343 }
8575
b5209a4e5baf commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents: 8554
diff changeset
5344
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5345 // Turn "dict.Func" into a partial for "Func" bound to "dict".
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5346 // Don't do this when "Func" is already a partial that was bound
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5347 // explicitly (pt_auto is FALSE).
9104
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5348 if (selfdict != NULL
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5349 && (rettv->v_type == VAR_FUNC
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5350 || (rettv->v_type == VAR_PARTIAL
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5351 && (rettv->vval.v_partial->pt_auto
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5352 || rettv->vval.v_partial->pt_dict == NULL))))
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5353 selfdict = make_partial(selfdict, rettv);
8575
b5209a4e5baf commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents: 8554
diff changeset
5354
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5355 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5356 return ret;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5357 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5358
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5359 /*
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5360 * Allocate memory for a variable type-value, and make it empty (0 or NULL
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5361 * value).
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5362 */
7877
7fbd2de703a9 commit https://github.com/vim/vim/commit/11e0afa00a8e6c0aa1d50f760b5d5cb62dade038
Christian Brabandt <cb@256bit.org>
parents: 7864
diff changeset
5363 typval_T *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5364 alloc_tv(void)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5365 {
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16796
diff changeset
5366 return ALLOC_CLEAR_ONE(typval_T);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5367 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5368
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5369 /*
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5370 * Allocate memory for a variable type-value, and assign a string to it.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5371 * The string "s" must have been allocated, it is consumed.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5372 * Return NULL for out of memory, the variable otherwise.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5373 */
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
5374 typval_T *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5375 alloc_string_tv(char_u *s)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5376 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5377 typval_T *rettv;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5378
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5379 rettv = alloc_tv();
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5380 if (rettv != NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5381 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5382 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5383 rettv->vval.v_string = s;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5384 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5385 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5386 vim_free(s);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5387 return rettv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5388 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5389
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5390 /*
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5391 * Free the memory for a variable type-value.
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5392 */
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
5393 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5394 free_tv(typval_T *varp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5395 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5396 if (varp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5397 {
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5398 switch (varp->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5399 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5400 case VAR_FUNC:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5401 func_unref(varp->vval.v_string);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5402 // FALLTHROUGH
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5403 case VAR_STRING:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5404 vim_free(varp->vval.v_string);
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5405 break;
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5406 case VAR_PARTIAL:
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5407 partial_unref(varp->vval.v_partial);
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5408 break;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5409 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5410 blob_unref(varp->vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5411 break;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5412 case VAR_LIST:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5413 list_unref(varp->vval.v_list);
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5414 break;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5415 case VAR_DICT:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5416 dict_unref(varp->vval.v_dict);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5417 break;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5418 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5419 #ifdef FEAT_JOB_CHANNEL
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5420 job_unref(varp->vval.v_job);
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5421 break;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5422 #endif
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5423 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5424 #ifdef FEAT_JOB_CHANNEL
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5425 channel_unref(varp->vval.v_channel);
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5426 break;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5427 #endif
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
5428 case VAR_NUMBER:
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5429 case VAR_FLOAT:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5430 case VAR_ANY:
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
5431 case VAR_UNKNOWN:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5432 case VAR_VOID:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5433 case VAR_BOOL:
7768
3d8e4e0d7127 commit https://github.com/vim/vim/commit/6650a694547eb744afa060ec62dd8270e99db9f2
Christian Brabandt <cb@256bit.org>
parents: 7765
diff changeset
5434 case VAR_SPECIAL:
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
5435 break;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5436 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5437 vim_free(varp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5438 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5439 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5440
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5441 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5442 * Free the memory for a variable value and set the value to NULL or 0.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5443 */
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
5444 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5445 clear_tv(typval_T *varp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5446 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5447 if (varp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5448 {
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5449 switch (varp->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5450 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5451 case VAR_FUNC:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5452 func_unref(varp->vval.v_string);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5453 // FALLTHROUGH
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5454 case VAR_STRING:
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13037
diff changeset
5455 VIM_CLEAR(varp->vval.v_string);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5456 break;
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5457 case VAR_PARTIAL:
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5458 partial_unref(varp->vval.v_partial);
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5459 varp->vval.v_partial = NULL;
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5460 break;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5461 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5462 blob_unref(varp->vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5463 varp->vval.v_blob = NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5464 break;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5465 case VAR_LIST:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5466 list_unref(varp->vval.v_list);
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
5467 varp->vval.v_list = NULL;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5468 break;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5469 case VAR_DICT:
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5470 dict_unref(varp->vval.v_dict);
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
5471 varp->vval.v_dict = NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5472 break;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5473 case VAR_NUMBER:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5474 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
5475 case VAR_SPECIAL:
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5476 varp->vval.v_number = 0;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5477 break;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5478 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5479 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5480 varp->vval.v_float = 0.0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5481 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5482 #endif
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5483 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5484 #ifdef FEAT_JOB_CHANNEL
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5485 job_unref(varp->vval.v_job);
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5486 varp->vval.v_job = NULL;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5487 #endif
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5488 break;
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5489 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5490 #ifdef FEAT_JOB_CHANNEL
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5491 channel_unref(varp->vval.v_channel);
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5492 varp->vval.v_channel = NULL;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5493 #endif
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5494 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5495 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5496 case VAR_VOID:
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5497 break;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5498 }
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
5499 varp->v_lock = 0;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5500 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5501 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5502
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5503 /*
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5504 * Set the value of a variable to NULL without freeing items.
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5505 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
5506 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5507 init_tv(typval_T *varp)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5508 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5509 if (varp != NULL)
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
5510 CLEAR_POINTER(varp);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5511 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5512
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5513 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5514 * Get the number value of a variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5515 * If it is a String variable, uses vim_str2nr().
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5516 * For incompatible types, return 0.
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5517 * tv_get_number_chk() is similar to tv_get_number(), but informs the
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5518 * caller of incompatible types: it sets *denote to TRUE if "denote"
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5519 * is not NULL or returns -1 otherwise.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5520 */
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
5521 varnumber_T
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5522 tv_get_number(typval_T *varp)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5523 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5524 int error = FALSE;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5525
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5526 return tv_get_number_chk(varp, &error); // return 0L on error
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5527 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5528
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
5529 varnumber_T
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5530 tv_get_number_chk(typval_T *varp, int *denote)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5531 {
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
5532 varnumber_T n = 0L;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5533
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5534 switch (varp->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5535 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5536 case VAR_NUMBER:
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
5537 return varp->vval.v_number;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5538 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5539 #ifdef FEAT_FLOAT
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5540 emsg(_("E805: Using a Float as a Number"));
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5541 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5542 #endif
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5543 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5544 case VAR_PARTIAL:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5545 emsg(_("E703: Using a Funcref as a Number"));
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5546 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5547 case VAR_STRING:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5548 if (varp->vval.v_string != NULL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5549 vim_str2nr(varp->vval.v_string, NULL, NULL,
16706
77bcb5055fec patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents: 16704
diff changeset
5550 STR2NR_ALL, &n, NULL, 0, FALSE);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5551 return n;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5552 case VAR_LIST:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5553 emsg(_("E745: Using a List as a Number"));
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5554 break;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5555 case VAR_DICT:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5556 emsg(_("E728: Using a Dictionary as a Number"));
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5557 break;
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5558 case VAR_BOOL:
7730
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5559 case VAR_SPECIAL:
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5560 return varp->vval.v_number == VVAL_TRUE ? 1 : 0;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5561 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5562 #ifdef FEAT_JOB_CHANNEL
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5563 emsg(_("E910: Using a Job as a Number"));
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5564 break;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5565 #endif
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5566 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5567 #ifdef FEAT_JOB_CHANNEL
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5568 emsg(_("E913: Using a Channel as a Number"));
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5569 break;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5570 #endif
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5571 case VAR_BLOB:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5572 emsg(_("E974: Using a Blob as a Number"));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5573 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5574 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5575 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5576 case VAR_VOID:
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19477
diff changeset
5577 internal_error_no_abort("tv_get_number(UNKNOWN)");
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5578 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5579 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5580 if (denote == NULL) // useful for values that must be unsigned
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5581 n = -1;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5582 else
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5583 *denote = TRUE;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5584 return n;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5585 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5586
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5587 #ifdef FEAT_FLOAT
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
5588 float_T
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5589 tv_get_float(typval_T *varp)
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5590 {
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5591 switch (varp->v_type)
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5592 {
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5593 case VAR_NUMBER:
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5594 return (float_T)(varp->vval.v_number);
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5595 case VAR_FLOAT:
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5596 return varp->vval.v_float;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5597 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5598 case VAR_PARTIAL:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5599 emsg(_("E891: Using a Funcref as a Float"));
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5600 break;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5601 case VAR_STRING:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5602 emsg(_("E892: Using a String as a Float"));
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5603 break;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5604 case VAR_LIST:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5605 emsg(_("E893: Using a List as a Float"));
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5606 break;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5607 case VAR_DICT:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5608 emsg(_("E894: Using a Dictionary as a Float"));
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5609 break;
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5610 case VAR_BOOL:
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5611 emsg(_("E362: Using a boolean value as a Float"));
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5612 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5613 case VAR_SPECIAL:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5614 emsg(_("E907: Using a special value as a Float"));
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5615 break;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5616 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5617 # ifdef FEAT_JOB_CHANNEL
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5618 emsg(_("E911: Using a Job as a Float"));
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5619 break;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5620 # endif
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5621 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5622 # ifdef FEAT_JOB_CHANNEL
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5623 emsg(_("E914: Using a Channel as a Float"));
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5624 break;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5625 # endif
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5626 case VAR_BLOB:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5627 emsg(_("E975: Using a Blob as a Float"));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5628 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5629 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5630 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5631 case VAR_VOID:
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19477
diff changeset
5632 internal_error_no_abort("tv_get_float(UNKNOWN)");
7689
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5633 break;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5634 }
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5635 return 0;
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5636 }
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5637 #endif
20dc2763a3b9 commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents: 7683
diff changeset
5638
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5639 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5640 * Get the string value of a variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5641 * If it is a Number variable, the number is converted into a string.
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5642 * tv_get_string() uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5643 * tv_get_string_buf() uses a given buffer.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5644 * If the String variable has never been set, return an empty string.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5645 * Never returns NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5646 * tv_get_string_chk() and tv_get_string_buf_chk() are similar, but return
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5647 * NULL on error.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5648 */
8498
42277980a76d commit https://github.com/vim/vim/commit/8e2c942ce49f2555d7dc2088cf3aa856820c5e32
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
5649 char_u *
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5650 tv_get_string(typval_T *varp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5651 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5652 static char_u mybuf[NUMBUFLEN];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5653
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5654 return tv_get_string_buf(varp, mybuf);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5655 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5656
8498
42277980a76d commit https://github.com/vim/vim/commit/8e2c942ce49f2555d7dc2088cf3aa856820c5e32
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
5657 char_u *
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5658 tv_get_string_buf(typval_T *varp, char_u *buf)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5659 {
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5660 char_u *res = tv_get_string_buf_chk(varp, buf);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5661
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5662 return res != NULL ? res : (char_u *)"";
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5663 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5664
5810
0b9a66ea49f4 updated for version 7.4.249
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
5665 /*
0b9a66ea49f4 updated for version 7.4.249
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
5666 * Careful: This uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
0b9a66ea49f4 updated for version 7.4.249
Bram Moolenaar <bram@vim.org>
parents: 5808
diff changeset
5667 */
449
3709cf52b9b5 updated for version 7.0119
vimboss
parents: 448
diff changeset
5668 char_u *
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5669 tv_get_string_chk(typval_T *varp)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5670 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5671 static char_u mybuf[NUMBUFLEN];
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5672
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5673 return tv_get_string_buf_chk(varp, mybuf);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5674 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5675
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
5676 char_u *
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5677 tv_get_string_buf_chk(typval_T *varp, char_u *buf)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5678 {
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5679 switch (varp->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5680 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5681 case VAR_NUMBER:
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
5682 vim_snprintf((char *)buf, NUMBUFLEN, "%lld",
19477
2bb0e80fcd32 patch 8.2.0296: mixing up "long long" and __int64 may cause problems
Bram Moolenaar <Bram@vim.org>
parents: 19201
diff changeset
5683 (varnumber_T)varp->vval.v_number);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5684 return buf;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5685 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5686 case VAR_PARTIAL:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5687 emsg(_("E729: using Funcref as a String"));
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5688 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5689 case VAR_LIST:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5690 emsg(_("E730: using List as a String"));
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5691 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5692 case VAR_DICT:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5693 emsg(_("E731: using Dictionary as a String"));
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5694 break;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5695 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5696 #ifdef FEAT_FLOAT
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5697 emsg(_(e_float_as_string));
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5698 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5699 #endif
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5700 case VAR_STRING:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5701 if (varp->vval.v_string != NULL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5702 return varp->vval.v_string;
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5703 return (char_u *)"";
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5704 case VAR_BOOL:
7730
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5705 case VAR_SPECIAL:
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5706 STRCPY(buf, get_var_special_name(varp->vval.v_number));
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5707 return buf;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5708 case VAR_BLOB:
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5709 emsg(_("E976: using Blob as a String"));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5710 break;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5711 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5712 #ifdef FEAT_JOB_CHANNEL
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5713 {
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5714 job_T *job = varp->vval.v_job;
8424
be45d4921f1f commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents: 8386
diff changeset
5715 char *status;
be45d4921f1f commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents: 8386
diff changeset
5716
be45d4921f1f commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents: 8386
diff changeset
5717 if (job == NULL)
be45d4921f1f commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents: 8386
diff changeset
5718 return (char_u *)"no process";
be45d4921f1f commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents: 8386
diff changeset
5719 status = job->jv_status == JOB_FAILED ? "fail"
10386
d3f0946b4a80 commit https://github.com/vim/vim/commit/7df915d113ac1981792c50e8b000c9f5f784b78b
Christian Brabandt <cb@256bit.org>
parents: 10381
diff changeset
5720 : job->jv_status >= JOB_ENDED ? "dead"
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5721 : "run";
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5722 # ifdef UNIX
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5723 vim_snprintf((char *)buf, NUMBUFLEN,
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5724 "process %ld %s", (long)job->jv_pid, status);
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
5725 # elif defined(MSWIN)
8001
e5dbeb923ce6 commit https://github.com/vim/vim/commit/4d8747cdfc13843a5680dc8340fbeb6d32e7b626
Christian Brabandt <cb@256bit.org>
parents: 7995
diff changeset
5726 vim_snprintf((char *)buf, NUMBUFLEN,
8023
75e0831549f1 commit https://github.com/vim/vim/commit/76467dfcafcf295fd987f712730774c6f55317d3
Christian Brabandt <cb@256bit.org>
parents: 8019
diff changeset
5727 "process %ld %s",
75e0831549f1 commit https://github.com/vim/vim/commit/76467dfcafcf295fd987f712730774c6f55317d3
Christian Brabandt <cb@256bit.org>
parents: 8019
diff changeset
5728 (long)job->jv_proc_info.dwProcessId,
8001
e5dbeb923ce6 commit https://github.com/vim/vim/commit/4d8747cdfc13843a5680dc8340fbeb6d32e7b626
Christian Brabandt <cb@256bit.org>
parents: 7995
diff changeset
5729 status);
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5730 # else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5731 // fall-back
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5732 vim_snprintf((char *)buf, NUMBUFLEN, "process ? %s", status);
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5733 # endif
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5734 return buf;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5735 }
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5736 #endif
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5737 break;
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5738 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5739 #ifdef FEAT_JOB_CHANNEL
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5740 {
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5741 channel_T *channel = varp->vval.v_channel;
10235
ad6851687158 commit https://github.com/vim/vim/commit/0e77b7691ee7c477facb4c9d9162c8603ada2d84
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
5742 char *status = channel_status(channel, -1);
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5743
8070
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5744 if (channel == NULL)
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5745 vim_snprintf((char *)buf, NUMBUFLEN, "channel %s", status);
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5746 else
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5747 vim_snprintf((char *)buf, NUMBUFLEN,
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5748 "channel %d %s", channel->ch_id, status);
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5749 return buf;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5750 }
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5751 #endif
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5752 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5753 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5754 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5755 case VAR_VOID:
19085
fd1070ff696b patch 8.2.0103: using null object with execute() has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19081
diff changeset
5756 emsg(_(e_inval_string));
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5757 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5758 }
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5759 return NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5760 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5761
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5762 /*
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5763 * Turn a typeval into a string. Similar to tv_get_string_buf() but uses
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5764 * string() on Dict, List, etc.
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5765 */
17789
0f7ae8010787 patch 8.1.1891: functions used in one file are global
Bram Moolenaar <Bram@vim.org>
parents: 17781
diff changeset
5766 static char_u *
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5767 tv_stringify(typval_T *varp, char_u *buf)
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5768 {
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5769 if (varp->v_type == VAR_LIST
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5770 || varp->v_type == VAR_DICT
19081
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
5771 || varp->v_type == VAR_BLOB
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5772 || varp->v_type == VAR_FUNC
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5773 || varp->v_type == VAR_PARTIAL
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5774 || varp->v_type == VAR_FLOAT)
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5775 {
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5776 typval_T tmp;
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5777
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5778 f_string(varp, &tmp);
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5779 tv_get_string_buf(&tmp, buf);
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5780 clear_tv(varp);
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5781 *varp = tmp;
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5782 return tmp.vval.v_string;
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5783 }
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5784 return tv_get_string_buf(varp, buf);
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5785 }
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5786
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
5787 /*
15780
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5788 * Return TRUE if typeval "tv" and its value are set to be locked (immutable).
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5789 * Also give an error message, using "name" or _("name") when use_gettext is
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5790 * TRUE.
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5791 */
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5792 static int
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5793 tv_check_lock(typval_T *tv, char_u *name, int use_gettext)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5794 {
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5795 int lock = 0;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5796
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5797 switch (tv->v_type)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5798 {
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5799 case VAR_BLOB:
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5800 if (tv->vval.v_blob != NULL)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5801 lock = tv->vval.v_blob->bv_lock;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5802 break;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5803 case VAR_LIST:
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5804 if (tv->vval.v_list != NULL)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5805 lock = tv->vval.v_list->lv_lock;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5806 break;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5807 case VAR_DICT:
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5808 if (tv->vval.v_dict != NULL)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5809 lock = tv->vval.v_dict->dv_lock;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5810 break;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5811 default:
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5812 break;
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5813 }
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5814 return var_check_lock(tv->v_lock, name, use_gettext)
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5815 || (lock != 0 && var_check_lock(lock, name, use_gettext));
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5816 }
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5817
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents: 15770
diff changeset
5818 /*
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5819 * Copy the values from typval_T "from" to typval_T "to".
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5820 * When needed allocates string or increases reference count.
15581
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
5821 * Does not make a copy of a list, blob or dict but copies the reference!
1772
42ac369bd824 updated for version 7.2-070
vimboss
parents: 1768
diff changeset
5822 * It is OK for "from" and "to" to point to the same item. This is used to
42ac369bd824 updated for version 7.2-070
vimboss
parents: 1768
diff changeset
5823 * make a copy later.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5824 */
2050
afcf9db31561 updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents: 2045
diff changeset
5825 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5826 copy_tv(typval_T *from, typval_T *to)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5827 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5828 to->v_type = from->v_type;
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
5829 to->v_lock = 0;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5830 switch (from->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5831 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5832 case VAR_NUMBER:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5833 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
5834 case VAR_SPECIAL:
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5835 to->vval.v_number = from->vval.v_number;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5836 break;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5837 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5838 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5839 to->vval.v_float = from->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5840 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5841 #endif
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5842 case VAR_JOB:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5843 #ifdef FEAT_JOB_CHANNEL
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5844 to->vval.v_job = from->vval.v_job;
8174
f2286ff0c102 commit https://github.com/vim/vim/commit/ee1cffc07a42441924c5353af7fd7ab6e97e5aae
Christian Brabandt <cb@256bit.org>
parents: 8170
diff changeset
5845 if (to->vval.v_job != NULL)
f2286ff0c102 commit https://github.com/vim/vim/commit/ee1cffc07a42441924c5353af7fd7ab6e97e5aae
Christian Brabandt <cb@256bit.org>
parents: 8170
diff changeset
5846 ++to->vval.v_job->jv_refcount;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5847 break;
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5848 #endif
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5849 case VAR_CHANNEL:
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
5850 #ifdef FEAT_JOB_CHANNEL
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5851 to->vval.v_channel = from->vval.v_channel;
8070
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5852 if (to->vval.v_channel != NULL)
e4c3f6720b03 commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents: 8062
diff changeset
5853 ++to->vval.v_channel->ch_refcount;
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5854 break;
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5855 #endif
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5856 case VAR_STRING:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5857 case VAR_FUNC:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5858 if (from->vval.v_string == NULL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5859 to->vval.v_string = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5860 else
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5861 {
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5862 to->vval.v_string = vim_strsave(from->vval.v_string);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5863 if (from->v_type == VAR_FUNC)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5864 func_ref(to->vval.v_string);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
5865 }
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5866 break;
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5867 case VAR_PARTIAL:
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5868 if (from->vval.v_partial == NULL)
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5869 to->vval.v_partial = NULL;
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5870 else
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5871 {
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5872 to->vval.v_partial = from->vval.v_partial;
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5873 ++to->vval.v_partial->pt_refcount;
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5874 }
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5875 break;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5876 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5877 if (from->vval.v_blob == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5878 to->vval.v_blob = NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5879 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5880 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5881 to->vval.v_blob = from->vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5882 ++to->vval.v_blob->bv_refcount;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5883 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5884 break;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5885 case VAR_LIST:
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5886 if (from->vval.v_list == NULL)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5887 to->vval.v_list = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5888 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5889 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5890 to->vval.v_list = from->vval.v_list;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5891 ++to->vval.v_list->lv_refcount;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5892 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5893 break;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5894 case VAR_DICT:
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5895 if (from->vval.v_dict == NULL)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5896 to->vval.v_dict = NULL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5897 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5898 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5899 to->vval.v_dict = from->vval.v_dict;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5900 ++to->vval.v_dict->dv_refcount;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5901 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5902 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5903 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5904 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5905 case VAR_VOID:
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19477
diff changeset
5906 internal_error_no_abort("copy_tv(UNKNOWN)");
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5907 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5908 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5909 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5910
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5911 /*
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5912 * Make a copy of an item.
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5913 * Lists and Dictionaries are also copied. A deep copy if "deep" is set.
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5914 * For deepcopy() "copyID" is zero for a full copy or the ID for when a
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5915 * reference to an already copied list/dict can be used.
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5916 * Returns FAIL or OK.
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5917 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
5918 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5919 item_copy(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5920 typval_T *from,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5921 typval_T *to,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5922 int deep,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5923 int copyID)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5924 {
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5925 static int recurse = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5926 int ret = OK;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5927
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5928 if (recurse >= DICT_MAXNEST)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5929 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5930 emsg(_("E698: variable nested too deep for making a copy"));
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5931 return FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5932 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5933 ++recurse;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5934
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5935 switch (from->v_type)
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5936 {
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5937 case VAR_NUMBER:
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5938 case VAR_FLOAT:
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5939 case VAR_STRING:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5940 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5941 case VAR_PARTIAL:
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5942 case VAR_BOOL:
7862
d4fec9208e7e commit https://github.com/vim/vim/commit/155500077c80cdb5d9c63996000c011b66a676bf
Christian Brabandt <cb@256bit.org>
parents: 7856
diff changeset
5943 case VAR_SPECIAL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5944 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5945 case VAR_CHANNEL:
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5946 copy_tv(from, to);
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5947 break;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5948 case VAR_LIST:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5949 to->v_type = VAR_LIST;
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
5950 to->v_lock = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5951 if (from->vval.v_list == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5952 to->vval.v_list = NULL;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5953 else if (copyID != 0 && from->vval.v_list->lv_copyID == copyID)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5954 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5955 // use the copy made earlier
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5956 to->vval.v_list = from->vval.v_list->lv_copylist;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5957 ++to->vval.v_list->lv_refcount;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5958 }
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5959 else
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5960 to->vval.v_list = list_copy(from->vval.v_list, deep, copyID);
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5961 if (to->vval.v_list == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5962 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5963 break;
15496
f1c33409e908 patch 8.1.0756: copy() does not make a copy of a Blob
Bram Moolenaar <Bram@vim.org>
parents: 15490
diff changeset
5964 case VAR_BLOB:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5965 ret = blob_copy(from->vval.v_blob, to);
15496
f1c33409e908 patch 8.1.0756: copy() does not make a copy of a Blob
Bram Moolenaar <Bram@vim.org>
parents: 15490
diff changeset
5966 break;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5967 case VAR_DICT:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5968 to->v_type = VAR_DICT;
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
5969 to->v_lock = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5970 if (from->vval.v_dict == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5971 to->vval.v_dict = NULL;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5972 else if (copyID != 0 && from->vval.v_dict->dv_copyID == copyID)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5973 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5974 // use the copy made earlier
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5975 to->vval.v_dict = from->vval.v_dict->dv_copydict;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5976 ++to->vval.v_dict->dv_refcount;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5977 }
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5978 else
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5979 to->vval.v_dict = dict_copy(from->vval.v_dict, deep, copyID);
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5980 if (to->vval.v_dict == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5981 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5982 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5983 case VAR_UNKNOWN:
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
5984 case VAR_ANY:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5985 case VAR_VOID:
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19477
diff changeset
5986 internal_error_no_abort("item_copy(UNKNOWN)");
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5987 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5988 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5989 --recurse;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5990 return ret;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5991 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5992
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5993 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5994 echo_one(typval_T *rettv, int with_space, int *atstart, int *needclr)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5995 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5996 char_u *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5997 char_u numbuf[NUMBUFLEN];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5998 char_u *p = echo_string(rettv, &tofree, numbuf, get_copyID());
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
5999
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6000 if (*atstart)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6001 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6002 *atstart = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6003 // Call msg_start() after eval1(), evaluating the expression
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6004 // may cause a message to appear.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6005 if (with_space)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6006 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6007 // Mark the saved text as finishing the line, so that what
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6008 // follows is displayed on a new line when scrolling back
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6009 // at the more prompt.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6010 msg_sb_eol();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6011 msg_start();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6012 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6013 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6014 else if (with_space)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6015 msg_puts_attr(" ", echo_attr);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6016
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6017 if (p != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6018 for ( ; *p != NUL && !got_int; ++p)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6019 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6020 if (*p == '\n' || *p == '\r' || *p == TAB)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6021 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6022 if (*p != TAB && *needclr)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6023 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6024 // remove any text still there from the command
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6025 msg_clr_eos();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6026 *needclr = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6027 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6028 msg_putchar_attr(*p, echo_attr);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6029 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6030 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6031 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6032 if (has_mbyte)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6033 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6034 int i = (*mb_ptr2len)(p);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6035
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6036 (void)msg_outtrans_len_attr(p, i, echo_attr);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6037 p += i - 1;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6038 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6039 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6040 (void)msg_outtrans_len_attr(p, 1, echo_attr);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6041 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6042 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6043 vim_free(tofree);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6044 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6045
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6046 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6047 * ":echo expr1 ..." print each argument separated with a space, add a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6048 * newline at the end.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6049 * ":echon expr1 ..." print each argument plain.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6050 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6051 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6052 ex_echo(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6053 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6054 char_u *arg = eap->arg;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
6055 typval_T rettv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6056 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6057 int needclr = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6058 int atstart = TRUE;
15079
a527110d5f56 patch 8.1.0550: expression evaluation may repeat an error message
Bram Moolenaar <Bram@vim.org>
parents: 14968
diff changeset
6059 int did_emsg_before = did_emsg;
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
6060 int called_emsg_before = called_emsg;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6061
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6062 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6063 ++emsg_skip;
20059
de756b3f4dee patch 8.2.0585: Vim9: # comment not recognized after :vim9script
Bram Moolenaar <Bram@vim.org>
parents: 20007
diff changeset
6064 while ((!ends_excmd2(eap->cmd, arg) || *arg == '"') && !got_int)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6065 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6066 // If eval1() causes an error message the text from the command may
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6067 // still need to be cleared. E.g., "echo 22,44".
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6068 need_clr_eos = needclr;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6069
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6070 p = arg;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6071 if (eval1(&arg, &rettv, !eap->skip) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6072 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6073 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6074 * Report the invalid expression unless the expression evaluation
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6075 * has been cancelled due to an aborting error, an interrupt, or an
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6076 * exception.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6077 */
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
6078 if (!aborting() && did_emsg == did_emsg_before
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
6079 && called_emsg == called_emsg_before)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6080 semsg(_(e_invexpr2), p);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6081 need_clr_eos = FALSE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6082 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6083 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6084 need_clr_eos = FALSE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6085
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6086 if (!eap->skip)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6087 echo_one(&rettv, eap->cmdidx == CMD_echo, &atstart, &needclr);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6088
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6089 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6090 arg = skipwhite(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6091 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6092 eap->nextcmd = check_nextcmd(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6093
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6094 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6095 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6096 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6097 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6098 // remove text that may still be there from the command
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6099 if (needclr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6100 msg_clr_eos();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6101 if (eap->cmdidx == CMD_echo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6102 msg_end();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6103 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6104 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6105
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6106 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6107 * ":echohl {name}".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6108 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6109 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6110 ex_echohl(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6111 {
12487
3f16cf18386c patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
6112 echo_attr = syn_name2attr(eap->arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6113 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6114
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6115 /*
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6116 * Returns the :echo attribute
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6117 */
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6118 int
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6119 get_echo_attr(void)
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6120 {
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6121 return echo_attr;
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6122 }
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6123
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6124 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6125 * ":execute expr1 ..." execute the result of an expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6126 * ":echomsg expr1 ..." Print a message
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6127 * ":echoerr expr1 ..." Print an error
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6128 * Each gets spaces around each argument and a newline at the end for
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6129 * echo commands
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6130 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6131 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6132 ex_execute(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6133 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6134 char_u *arg = eap->arg;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
6135 typval_T rettv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6136 int ret = OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6137 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6138 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6139 int len;
16054
78faa25f9698 patch 8.1.1032: warnings from clang static analyzer
Bram Moolenaar <Bram@vim.org>
parents: 16036
diff changeset
6140 int save_did_emsg;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6141
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6142 ga_init2(&ga, 1, 80);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6143
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6144 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6145 ++emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6146 while (*arg != NUL && *arg != '|' && *arg != '\n')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6147 {
15478
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
6148 ret = eval1_emsg(&arg, &rettv, !eap->skip);
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
6149 if (ret == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6150 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6151
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6152 if (!eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6153 {
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6154 char_u buf[NUMBUFLEN];
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6155
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6156 if (eap->cmdidx == CMD_execute)
19087
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6157 {
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6158 if (rettv.v_type == VAR_CHANNEL || rettv.v_type == VAR_JOB)
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6159 {
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6160 emsg(_(e_inval_string));
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6161 p = NULL;
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6162 }
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6163 else
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6164 p = tv_get_string_buf(&rettv, buf);
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6165 }
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6166 else
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6167 p = tv_stringify(&rettv, buf);
19081
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6168 if (p == NULL)
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6169 {
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6170 clear_tv(&rettv);
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6171 ret = FAIL;
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6172 break;
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6173 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6174 len = (int)STRLEN(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6175 if (ga_grow(&ga, len + 2) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6176 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6177 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6178 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6179 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6180 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6181 if (ga.ga_len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6182 ((char_u *)(ga.ga_data))[ga.ga_len++] = ' ';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6183 STRCPY((char_u *)(ga.ga_data) + ga.ga_len, p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6184 ga.ga_len += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6185 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6186
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6187 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6188 arg = skipwhite(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6189 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6190
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6191 if (ret != FAIL && ga.ga_data != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6192 {
11161
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6193 if (eap->cmdidx == CMD_echomsg || eap->cmdidx == CMD_echoerr)
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6194 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6195 // Mark the already saved text as finishing the line, so that what
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6196 // follows is displayed on a new line when scrolling back at the
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6197 // more prompt.
11161
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6198 msg_sb_eol();
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6199 }
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6200
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6201 if (eap->cmdidx == CMD_echomsg)
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6202 {
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
6203 msg_attr(ga.ga_data, echo_attr);
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6204 out_flush();
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6205 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6206 else if (eap->cmdidx == CMD_echoerr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6207 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6208 // We don't want to abort following commands, restore did_emsg.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6209 save_did_emsg = did_emsg;
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6210 emsg(ga.ga_data);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6211 if (!force_abort)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6212 did_emsg = save_did_emsg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6213 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6214 else if (eap->cmdidx == CMD_execute)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6215 do_cmdline((char_u *)ga.ga_data,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6216 eap->getline, eap->cookie, DOCMD_NOWAIT|DOCMD_VERBOSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6217 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6218
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6219 ga_clear(&ga);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6220
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6221 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6222 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6223
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6224 eap->nextcmd = check_nextcmd(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6225 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6226
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6227 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6228 * Skip over the name of an option: "&option", "&g:option" or "&l:option".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6229 * "arg" points to the "&" or '+' when called, to "option" when returning.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6230 * Returns NULL when no option name found. Otherwise pointer to the char
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6231 * after the option name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6232 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
6233 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6234 find_option_end(char_u **arg, int *opt_flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6235 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6236 char_u *p = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6237
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6238 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6239 if (*p == 'g' && p[1] == ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6240 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6241 *opt_flags = OPT_GLOBAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6242 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6243 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6244 else if (*p == 'l' && p[1] == ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6245 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6246 *opt_flags = OPT_LOCAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6247 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6248 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6249 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6250 *opt_flags = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6251
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6252 if (!ASCII_ISALPHA(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6253 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6254 *arg = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6255
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6256 if (p[0] == 't' && p[1] == '_' && p[2] != NUL && p[3] != NUL)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6257 p += 4; // termcap option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6258 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6259 while (ASCII_ISALPHA(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6260 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6261 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6262 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6263
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6264 /*
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6265 * Display script name where an item was last set.
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6266 * Should only be invoked when 'verbose' is non-zero.
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6267 */
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6268 void
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6269 last_set_msg(sctx_T script_ctx)
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6270 {
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6271 char_u *p;
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6272
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6273 if (script_ctx.sc_sid != 0)
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6274 {
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6275 p = home_replace_save(NULL, get_scriptname(script_ctx.sc_sid));
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6276 if (p != NULL)
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6277 {
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6278 verbose_enter();
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
6279 msg_puts(_("\n\tLast set from "));
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
6280 msg_puts((char *)p);
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6281 if (script_ctx.sc_lnum > 0)
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6282 {
18939
25ebc35e104f patch 8.2.0030: "gF" does not work on output of "verbose command"
Bram Moolenaar <Bram@vim.org>
parents: 18851
diff changeset
6283 msg_puts(_(line_msg));
14700
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6284 msg_outnum((long)script_ctx.sc_lnum);
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6285 }
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6286 verbose_leave();
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6287 vim_free(p);
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6288 }
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6289 }
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6290 }
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6291
16036
89fb86821b4a patch 8.1.1023: may use NULL pointer when indexing a blob
Bram Moolenaar <Bram@vim.org>
parents: 16013
diff changeset
6292 /*
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6293 * Compare "typ1" and "typ2". Put the result in "typ1".
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6294 */
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6295 int
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6296 typval_compare(
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6297 typval_T *typ1, // first operand
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6298 typval_T *typ2, // second operand
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6299 exptype_T type, // operator
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6300 int ic) // ignore case
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6301 {
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6302 int i;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6303 varnumber_T n1, n2;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6304 char_u *s1, *s2;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6305 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6306 int type_is = type == EXPR_IS || type == EXPR_ISNOT;
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6307
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6308 if (type_is && typ1->v_type != typ2->v_type)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6309 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6310 // For "is" a different type always means FALSE, for "notis"
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6311 // it means TRUE.
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6312 n1 = (type == EXPR_ISNOT);
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6313 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6314 else if (typ1->v_type == VAR_BLOB || typ2->v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6315 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6316 if (type_is)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6317 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6318 n1 = (typ1->v_type == typ2->v_type
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6319 && typ1->vval.v_blob == typ2->vval.v_blob);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6320 if (type == EXPR_ISNOT)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6321 n1 = !n1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6322 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6323 else if (typ1->v_type != typ2->v_type
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6324 || (type != EXPR_EQUAL && type != EXPR_NEQUAL))
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6325 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6326 if (typ1->v_type != typ2->v_type)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6327 emsg(_("E977: Can only compare Blob with Blob"));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6328 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6329 emsg(_(e_invalblob));
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6330 clear_tv(typ1);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6331 return FAIL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6332 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6333 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6334 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6335 // Compare two Blobs for being equal or unequal.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6336 n1 = blob_equal(typ1->vval.v_blob, typ2->vval.v_blob);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6337 if (type == EXPR_NEQUAL)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6338 n1 = !n1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6339 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
6340 }
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6341 else if (typ1->v_type == VAR_LIST || typ2->v_type == VAR_LIST)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6342 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6343 if (type_is)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6344 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6345 n1 = (typ1->v_type == typ2->v_type
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6346 && typ1->vval.v_list == typ2->vval.v_list);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6347 if (type == EXPR_ISNOT)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6348 n1 = !n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6349 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6350 else if (typ1->v_type != typ2->v_type
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6351 || (type != EXPR_EQUAL && type != EXPR_NEQUAL))
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6352 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6353 if (typ1->v_type != typ2->v_type)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6354 emsg(_("E691: Can only compare List with List"));
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6355 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6356 emsg(_("E692: Invalid operation for List"));
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6357 clear_tv(typ1);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6358 return FAIL;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6359 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6360 else
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6361 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6362 // Compare two Lists for being equal or unequal.
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6363 n1 = list_equal(typ1->vval.v_list, typ2->vval.v_list,
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6364 ic, FALSE);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6365 if (type == EXPR_NEQUAL)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6366 n1 = !n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6367 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6368 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6369
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6370 else if (typ1->v_type == VAR_DICT || typ2->v_type == VAR_DICT)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6371 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6372 if (type_is)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6373 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6374 n1 = (typ1->v_type == typ2->v_type
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6375 && typ1->vval.v_dict == typ2->vval.v_dict);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6376 if (type == EXPR_ISNOT)
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6377 n1 = !n1;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6378 }
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6379 else if (typ1->v_type != typ2->v_type
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6380 || (type != EXPR_EQUAL && type != EXPR_NEQUAL))
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6381 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6382 if (typ1->v_type != typ2->v_type)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6383 emsg(_("E735: Can only compare Dictionary with Dictionary"));
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6384 else
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6385 emsg(_("E736: Invalid operation for Dictionary"));
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6386 clear_tv(typ1);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6387 return FAIL;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6388 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6389 else
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6390 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6391 // Compare two Dictionaries for being equal or unequal.
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6392 n1 = dict_equal(typ1->vval.v_dict, typ2->vval.v_dict,
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6393 ic, FALSE);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6394 if (type == EXPR_NEQUAL)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6395 n1 = !n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6396 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6397 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6398
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6399 else if (typ1->v_type == VAR_FUNC || typ2->v_type == VAR_FUNC
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6400 || typ1->v_type == VAR_PARTIAL || typ2->v_type == VAR_PARTIAL)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6401 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6402 if (type != EXPR_EQUAL && type != EXPR_NEQUAL
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6403 && type != EXPR_IS && type != EXPR_ISNOT)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6404 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6405 emsg(_("E694: Invalid operation for Funcrefs"));
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6406 clear_tv(typ1);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6407 return FAIL;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6408 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6409 if ((typ1->v_type == VAR_PARTIAL
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6410 && typ1->vval.v_partial == NULL)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6411 || (typ2->v_type == VAR_PARTIAL
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6412 && typ2->vval.v_partial == NULL))
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6413 // when a partial is NULL assume not equal
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6414 n1 = FALSE;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6415 else if (type_is)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6416 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6417 if (typ1->v_type == VAR_FUNC && typ2->v_type == VAR_FUNC)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6418 // strings are considered the same if their value is
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6419 // the same
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6420 n1 = tv_equal(typ1, typ2, ic, FALSE);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6421 else if (typ1->v_type == VAR_PARTIAL
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6422 && typ2->v_type == VAR_PARTIAL)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6423 n1 = (typ1->vval.v_partial == typ2->vval.v_partial);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6424 else
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6425 n1 = FALSE;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6426 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6427 else
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6428 n1 = tv_equal(typ1, typ2, ic, FALSE);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6429 if (type == EXPR_NEQUAL || type == EXPR_ISNOT)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6430 n1 = !n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6431 }
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6432
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6433 #ifdef FEAT_FLOAT
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6434 /*
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6435 * If one of the two variables is a float, compare as a float.
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6436 * When using "=~" or "!~", always compare as string.
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6437 */
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6438 else if ((typ1->v_type == VAR_FLOAT || typ2->v_type == VAR_FLOAT)
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6439 && type != EXPR_MATCH && type != EXPR_NOMATCH)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6440 {
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6441 float_T f1, f2;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6442
15904
fec4416adb80 patch 8.1.0958: compiling weird regexp pattern is very slow
Bram Moolenaar <Bram@vim.org>
parents: 15868
diff changeset
6443 f1 = tv_get_float(typ1);
fec4416adb80 patch 8.1.0958: compiling weird regexp pattern is very slow
Bram Moolenaar <Bram@vim.org>
parents: 15868
diff changeset
6444 f2 = tv_get_float(typ2);
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6445 n1 = FALSE;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6446 switch (type)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6447 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6448 case EXPR_IS:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6449 case EXPR_EQUAL: n1 = (f1 == f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6450 case EXPR_ISNOT:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6451 case EXPR_NEQUAL: n1 = (f1 != f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6452 case EXPR_GREATER: n1 = (f1 > f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6453 case EXPR_GEQUAL: n1 = (f1 >= f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6454 case EXPR_SMALLER: n1 = (f1 < f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6455 case EXPR_SEQUAL: n1 = (f1 <= f2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6456 case EXPR_UNKNOWN:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6457 case EXPR_MATCH:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6458 default: break; // avoid gcc warning
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6459 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6460 }
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6461 #endif
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6462
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6463 /*
18968
24941a950cc7 patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents: 18966
diff changeset
6464 * If one of the two variables is a number, compare as a number.
24941a950cc7 patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents: 18966
diff changeset
6465 * When using "=~" or "!~", always compare as string.
24941a950cc7 patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents: 18966
diff changeset
6466 */
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6467 else if ((typ1->v_type == VAR_NUMBER || typ2->v_type == VAR_NUMBER)
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6468 && type != EXPR_MATCH && type != EXPR_NOMATCH)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6469 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
6470 n1 = tv_get_number(typ1);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
6471 n2 = tv_get_number(typ2);
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6472 switch (type)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6473 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6474 case EXPR_IS:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6475 case EXPR_EQUAL: n1 = (n1 == n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6476 case EXPR_ISNOT:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6477 case EXPR_NEQUAL: n1 = (n1 != n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6478 case EXPR_GREATER: n1 = (n1 > n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6479 case EXPR_GEQUAL: n1 = (n1 >= n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6480 case EXPR_SMALLER: n1 = (n1 < n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6481 case EXPR_SEQUAL: n1 = (n1 <= n2); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6482 case EXPR_UNKNOWN:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6483 case EXPR_MATCH:
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6484 default: break; // avoid gcc warning
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6485 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6486 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6487 else
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6488 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
6489 s1 = tv_get_string_buf(typ1, buf1);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
6490 s2 = tv_get_string_buf(typ2, buf2);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6491 if (type != EXPR_MATCH && type != EXPR_NOMATCH)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6492 i = ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2);
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6493 else
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6494 i = 0;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6495 n1 = FALSE;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6496 switch (type)
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6497 {
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6498 case EXPR_IS:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6499 case EXPR_EQUAL: n1 = (i == 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6500 case EXPR_ISNOT:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6501 case EXPR_NEQUAL: n1 = (i != 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6502 case EXPR_GREATER: n1 = (i > 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6503 case EXPR_GEQUAL: n1 = (i >= 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6504 case EXPR_SMALLER: n1 = (i < 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6505 case EXPR_SEQUAL: n1 = (i <= 0); break;
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6506
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6507 case EXPR_MATCH:
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6508 case EXPR_NOMATCH:
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6509 n1 = pattern_match(s2, s1, ic);
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
6510 if (type == EXPR_NOMATCH)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6511 n1 = !n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6512 break;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6513
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6514 default: break; // avoid gcc warning
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6515 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6516 }
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6517 clear_tv(typ1);
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6518 typ1->v_type = VAR_NUMBER;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6519 typ1->vval.v_number = n1;
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
6520
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6521 return OK;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6522 }
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6523
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6524 char_u *
14391
46f14852a919 patch 8.1.0210: still a few K&R function declarations
Christian Brabandt <cb@256bit.org>
parents: 14331
diff changeset
6525 typval_tostring(typval_T *arg)
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6526 {
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6527 char_u *tofree;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6528 char_u numbuf[NUMBUFLEN];
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6529 char_u *ret = NULL;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6530
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6531 if (arg == NULL)
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6532 return vim_strsave((char_u *)"(does not exist)");
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6533 ret = tv2string(arg, &tofree, numbuf, 0);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6534 // Make a copy if we have a value but it's not in allocated memory.
13262
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6535 if (ret != NULL && tofree == NULL)
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6536 ret = vim_strsave(ret);
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6537 return ret;
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6538 }
69278c25429d patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents: 13244
diff changeset
6539
17966
46f95606b9ec patch 8.1.1979: code for handling file names is spread out
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
6540 #endif // FEAT_EVAL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6541
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6542 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6543 * Perform a substitution on "str" with pattern "pat" and substitute "sub".
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6544 * When "sub" is NULL "expr" is used, must be a VAR_FUNC or VAR_PARTIAL.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6545 * "flags" can be "g" to do a global substitute.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6546 * Returns an allocated string, NULL for error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6547 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6548 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6549 do_string_sub(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6550 char_u *str,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6551 char_u *pat,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6552 char_u *sub,
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6553 typval_T *expr,
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6554 char_u *flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6555 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6556 int sublen;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6557 regmatch_T regmatch;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6558 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6559 int do_all;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6560 char_u *tail;
6332
65e72747feca updated for version 7.4.499
Bram Moolenaar <bram@vim.org>
parents: 6316
diff changeset
6561 char_u *end;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6562 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6563 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6564 char_u *save_cpo;
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6565 char_u *zero_width = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6566
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6567 // Make 'cpoptions' empty, so that the 'l' flag doesn't work here
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6568 save_cpo = p_cpo;
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6569 p_cpo = empty_option;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6570
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6571 ga_init2(&ga, 1, 200);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6572
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6573 do_all = (flags[0] == 'g');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6574
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6575 regmatch.rm_ic = p_ic;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6576 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6577 if (regmatch.regprog != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6578 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6579 tail = str;
6332
65e72747feca updated for version 7.4.499
Bram Moolenaar <bram@vim.org>
parents: 6316
diff changeset
6580 end = str + STRLEN(str);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6581 while (vim_regexec_nl(&regmatch, str, (colnr_T)(tail - str)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6582 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6583 // Skip empty match except for first match.
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6584 if (regmatch.startp[0] == regmatch.endp[0])
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6585 {
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6586 if (zero_width == regmatch.startp[0])
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6587 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6588 // avoid getting stuck on a match with an empty string
18251
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents: 18225
diff changeset
6589 i = mb_ptr2len(tail);
5964
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6590 mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail,
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6591 (size_t)i);
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6592 ga.ga_len += i;
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6593 tail += i;
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6594 continue;
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6595 }
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6596 zero_width = regmatch.startp[0];
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6597 }
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6598
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6599 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6600 * Get some space for a temporary buffer to do the substitution
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6601 * into. It will contain:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6602 * - The text up to where the match is.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6603 * - The substituted text.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6604 * - The text after the match.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6605 */
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6606 sublen = vim_regsub(&regmatch, sub, expr, tail, FALSE, TRUE, FALSE);
6332
65e72747feca updated for version 7.4.499
Bram Moolenaar <bram@vim.org>
parents: 6316
diff changeset
6607 if (ga_grow(&ga, (int)((end - tail) + sublen -
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6608 (regmatch.endp[0] - regmatch.startp[0]))) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6609 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6610 ga_clear(&ga);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6611 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6612 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6613
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6614 // copy the text up to where the match is
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6615 i = (int)(regmatch.startp[0] - tail);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6616 mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail, (size_t)i);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6617 // add the substituted text
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6618 (void)vim_regsub(&regmatch, sub, expr, (char_u *)ga.ga_data
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6619 + ga.ga_len + i, TRUE, TRUE, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6620 ga.ga_len += i + sublen - 1;
5388
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6621 tail = regmatch.endp[0];
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6622 if (*tail == NUL)
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6623 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6624 if (!do_all)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6625 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6626 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6627
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6628 if (ga.ga_data != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6629 STRCPY((char *)ga.ga_data + ga.ga_len, tail);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6630
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4778
diff changeset
6631 vim_regfree(regmatch.regprog);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6632 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6633
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6634 ret = vim_strsave(ga.ga_data == NULL ? str : (char_u *)ga.ga_data);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6635 ga_clear(&ga);
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6636 if (p_cpo == empty_option)
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6637 p_cpo = save_cpo;
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6638 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6639 // Darn, evaluating {sub} expression or {expr} changed the value.
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6640 free_string_option(save_cpo);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6641
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6642 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6643 }