Mercurial > vim

annotate src/eval.c @ 25036:3b8d3b383fd6 v8.2.3055

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary Commit: https://github.com/vim/vim/commit/3a3b10e87a10dd0bc355618dbfc4a0a6c828aad7 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Jun 26 15:00:59 2021 +0200 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary Problem: Strange error for assigning to "x.key" on non-dictionary. Solution: Add a specific error message. (closes https://github.com/vim/vim/issues/8451)
author Bram Moolenaar <Bram@vim.org>
date Sat, 26 Jun 2021 15:15:03 +0200
parents 21ec48d542a8
children 64bef59f11ef
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
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
23 #define NAMESPACE_CHAR (char_u *)"abglstvw"
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
24
142
0ef5b70c3eaf updated for version 7.0045
vimboss
parents: 137
diff changeset
25 /*
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
26 * When recursively copying lists and dicts we need to remember which ones we
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
27 * 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
28 * The last bit is used for previous_funccal, ignored when comparing.
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
29 */
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
30 static int current_copyID = 0;
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
31
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 /*
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
33 * Info used by a ":for" loop.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
34 */
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
35 typedef struct
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
36 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
37 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
38 int fi_varcount; // nr of variables in the list
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
39 int fi_break_count; // nr of line breaks encountered
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
40 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
41 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
42 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
43 blob_T *fi_blob; // blob being used
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
44 char_u *fi_string; // copy of string being used
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
45 int fi_byte_idx; // byte index in fi_string
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
46 } forinfo_T;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
47
7720
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
48 static int tv_op(typval_T *tv1, typval_T *tv2, char_u *op);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
49 static int eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
50 static int eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
51 static int eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
52 static int eval5(char_u **arg, typval_T *rettv, evalarg_T *evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
53 static int eval6(char_u **arg, typval_T *rettv, evalarg_T *evalarg, int want_string);
24518
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
54 static int eval7t(char_u **arg, typval_T *rettv, evalarg_T *evalarg, int want_string);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
55 static int eval7(char_u **arg, typval_T *rettv, evalarg_T *evalarg, int want_string);
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
56 static int eval7_leader(typval_T *rettv, int numeric_only, 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
57
7c52f11e6df3 commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents: 7718
diff changeset
58 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
59 static char_u *make_expanded_name(char_u *in_start, char_u *expr_start, char_u *expr_end, char_u *in_end);
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
60
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
61 /*
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
62 * Return "n1" divided by "n2", taking care of dividing by zero.
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
63 * If "failed" is not NULL set it to TRUE when dividing by zero fails.
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
64 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
65 varnumber_T
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
66 num_divide(varnumber_T n1, varnumber_T n2, int *failed)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
67 {
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
68 varnumber_T result;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
69
23673
6d35bc0f161e patch 8.2.2378: Vim9: no error message for dividing by zero
Bram Moolenaar <Bram@vim.org>
parents: 23628
diff changeset
70 if (n2 == 0)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
71 {
23673
6d35bc0f161e patch 8.2.2378: Vim9: no error message for dividing by zero
Bram Moolenaar <Bram@vim.org>
parents: 23628
diff changeset
72 if (in_vim9script())
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
73 {
23673
6d35bc0f161e patch 8.2.2378: Vim9: no error message for dividing by zero
Bram Moolenaar <Bram@vim.org>
parents: 23628
diff changeset
74 emsg(_(e_divide_by_zero));
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
75 if (failed != NULL)
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
76 *failed = TRUE;
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
77 }
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
78 if (n1 == 0)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
79 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
80 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
81 result = -VARNUM_MAX;
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 = VARNUM_MAX;
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 else
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
86 result = n1 / n2;
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 return result;
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
89 }
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
90
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
91 /*
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
92 * Return "n1" modulus "n2", taking care of dividing by zero.
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
93 * If "failed" is not NULL set it to TRUE when dividing by zero fails.
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
94 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
95 varnumber_T
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
96 num_modulus(varnumber_T n1, varnumber_T n2, int *failed)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
97 {
23673
6d35bc0f161e patch 8.2.2378: Vim9: no error message for dividing by zero
Bram Moolenaar <Bram@vim.org>
parents: 23628
diff changeset
98 if (n2 == 0 && in_vim9script())
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
99 {
23673
6d35bc0f161e patch 8.2.2378: Vim9: no error message for dividing by zero
Bram Moolenaar <Bram@vim.org>
parents: 23628
diff changeset
100 emsg(_(e_divide_by_zero));
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
101 if (failed != NULL)
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
102 *failed = TRUE;
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
103 }
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
104 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
105 }
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
106
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
107 /*
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
108 * Initialize the global and v: variables.
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
109 */
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
110 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
111 eval_init(void)
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
112 {
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
113 evalvars_init();
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
114 func_init();
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
115
2247
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
116 #ifdef EBCDIC
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
117 /*
3178
b7f0f23bf906 updated for version 7.3.359
Bram Moolenaar <bram@vim.org>
parents: 3160
diff changeset
118 * 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
119 */
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
120 sortFunctions();
c40cd9aad546 Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents: 2236
diff changeset
121 #endif
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
122 }
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
123
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
124 #if defined(EXITFREE) || defined(PROTO)
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
125 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
126 eval_clear(void)
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
127 {
17885
5e2d8840da11 patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents: 17873
diff changeset
128 evalvars_clear();
19108
44c6498535c9 patch 8.2.0114: info about sourced scripts is scattered
Bram Moolenaar <Bram@vim.org>
parents: 19102
diff changeset
129 free_scriptnames(); // must come after evalvars_clear().
2849
b0190e93e601 updated for version 7.3.198
Bram Moolenaar <bram@vim.org>
parents: 2845
diff changeset
130 free_locales();
357
25dd5036f2b0 updated for version 7.0092
vimboss
parents: 344
diff changeset
131
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
132 // 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
133 free_autoload_scriptnames();
855
d2a4f08396fe updated for version 7.0f05
vimboss
parents: 846
diff changeset
134
16967
586d625e21b4 patch 8.1.1484: some tests are slow
Bram Moolenaar <Bram@vim.org>
parents: 16872
diff changeset
135 // unreferenced lists and dicts
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
136 (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
137
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 16967
diff changeset
138 // 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
139 free_all_functions();
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
140 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
141 #endif
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
142
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
143 void
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
144 fill_evalarg_from_eap(evalarg_T *evalarg, exarg_T *eap, int skip)
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
145 {
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
146 CLEAR_FIELD(*evalarg);
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
147 evalarg->eval_flags = skip ? 0 : EVAL_EVALUATE;
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
148 if (eap != NULL && getline_equal(eap->getline, eap->cookie, getsourceline))
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
149 {
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
150 evalarg->eval_getline = eap->getline;
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
151 evalarg->eval_cookie = eap->cookie;
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
152 }
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
153 }
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
154
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 * Top level evaluation function, returning a boolean.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
157 * Sets "error" to TRUE if there was an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 * Return TRUE or FALSE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
161 eval_to_bool(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
162 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
163 int *error,
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
164 exarg_T *eap,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
165 int skip) // only parse, don't execute
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
167 typval_T tv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
168 varnumber_T retval = FALSE;
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
169 evalarg_T evalarg;
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
170
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
171 fill_evalarg_from_eap(&evalarg, eap, skip);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 ++emsg_skip;
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
175 if (eval0(arg, &tv, eap, &evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 *error = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 *error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 if (!skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 {
21733
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
182 if (in_vim9script())
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
183 retval = tv_get_bool_chk(&tv, error);
21733
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
184 else
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
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;
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
191 clear_evalarg(&evalarg, eap);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
193 return (int)retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195
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
196 /*
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 * 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
198 */
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 static int
21098
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
200 eval1_emsg(char_u **arg, typval_T *rettv, exarg_T *eap)
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
201 {
15482
18dd04f7c4a1 patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents: 15478
diff changeset
202 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
203 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
204 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
205 int called_emsg_before = called_emsg;
21098
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
206 evalarg_T evalarg;
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
207
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
208 fill_evalarg_from_eap(&evalarg, eap, eap != NULL && eap->skip);
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
209
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
210 ret = eval1(arg, rettv, &evalarg);
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
211 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
212 {
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 // 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
214 // 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
215 // 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
216 // 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
217 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
218 && called_emsg == called_emsg_before)
15482
18dd04f7c4a1 patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents: 15478
diff changeset
219 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
220 }
21098
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
221 clear_evalarg(&evalarg, eap);
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
222 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
223 }
051937ebaf22 patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
224
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
225 /*
20731
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
226 * Return whether a typval is a valid expression to pass to eval_expr_typval()
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
227 * or eval_expr_to_bool(). An empty string returns FALSE;
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
228 */
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
229 int
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
230 eval_expr_valid_arg(typval_T *tv)
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
231 {
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
232 return tv->v_type != VAR_UNKNOWN
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
233 && (tv->v_type != VAR_STRING
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
234 || (tv->vval.v_string != NULL && *tv->vval.v_string != NUL));
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
235 }
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
236
ab27db64f1fb patch 8.2.0918: duplicate code for evaluating expression argument
Bram Moolenaar <Bram@vim.org>
parents: 20587
diff changeset
237 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
238 * 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
239 * 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
240 * 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
241 */
16231
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents: 16223
diff changeset
242 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
243 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
244 {
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 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
246 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
247 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
248
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
249 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
250 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
251 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
252 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
253 return FAIL;
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
254 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
255 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
256 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
257 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
258 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
259 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
260 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
261 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
262
20156
49694eceaa55 patch 8.2.0633: crash when using null partial in filter()
Bram Moolenaar <Bram@vim.org>
parents: 20142
diff changeset
263 if (partial == NULL)
49694eceaa55 patch 8.2.0633: crash when using null partial in filter()
Bram Moolenaar <Bram@vim.org>
parents: 20142
diff changeset
264 return FAIL;
49694eceaa55 patch 8.2.0633: crash when using null partial in filter()
Bram Moolenaar <Bram@vim.org>
parents: 20142
diff changeset
265
20528
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well
Bram Moolenaar <Bram@vim.org>
parents: 20526
diff changeset
266 if (partial->pt_func != NULL
20943
1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time
Bram Moolenaar <Bram@vim.org>
parents: 20871
diff changeset
267 && partial->pt_func->uf_def_status != UF_NOT_COMPILED)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
268 {
20433
5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code
Bram Moolenaar <Bram@vim.org>
parents: 20401
diff changeset
269 if (call_def_function(partial->pt_func, argc, argv,
5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code
Bram Moolenaar <Bram@vim.org>
parents: 20401
diff changeset
270 partial, rettv) == FAIL)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
271 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
272 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
273 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
274 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
275 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
276 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
277 return FAIL;
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
278 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
279 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
280 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
281 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
282 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
283 }
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
284 }
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
285 else if (expr->v_type == VAR_INSTR)
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
286 {
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
287 return exe_typval_instr(expr, rettv);
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
288 }
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
289 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
290 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
291 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
292 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
293 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
294 s = skipwhite(s);
21098
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
295 if (eval1_emsg(&s, rettv, NULL) == 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
296 return FAIL;
21620
46956b6811a1 patch 8.2.1360: stray error for white space after expression
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
297 if (*skipwhite(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
298 {
14331
f8280e1bfc84 patch 8.1.0181: memory leak with trailing characters in skip expression
Christian Brabandt <cb@256bit.org>
parents: 14071
diff changeset
299 clear_tv(rettv);
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
300 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
301 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
302 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
303 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
304 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
305 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
306
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
307 /*
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
308 * 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
309 * 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
310 */
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
311 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
312 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
313 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
314 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
315 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
316
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
317 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
318 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
319 *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
320 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
321 }
21861
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error
Bram Moolenaar <Bram@vim.org>
parents: 21847
diff changeset
322 res = (tv_get_bool_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
323 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
324 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
325 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents: 12674
diff changeset
326
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 * Top level evaluation function, returning a string. If "skip" is TRUE,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329 * only parsing to "nextcmd" is done, without reporting errors. Return
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 * pointer to allocated memory, or NULL for failure or when "skip" is TRUE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
333 eval_to_string_skip(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
334 char_u *arg,
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
335 exarg_T *eap,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
336 int skip) // only parse, don't execute
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
337 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
338 typval_T tv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
339 char_u *retval;
21094
376b520312d6 patch 8.2.1098: Vim9: cannot use line break in :throw argument
Bram Moolenaar <Bram@vim.org>
parents: 21077
diff changeset
340 evalarg_T evalarg;
376b520312d6 patch 8.2.1098: Vim9: cannot use line break in :throw argument
Bram Moolenaar <Bram@vim.org>
parents: 21077
diff changeset
341
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
342 fill_evalarg_from_eap(&evalarg, eap, skip);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 ++emsg_skip;
21094
376b520312d6 patch 8.2.1098: Vim9: cannot use line break in :throw argument
Bram Moolenaar <Bram@vim.org>
parents: 21077
diff changeset
345 if (eval0(arg, &tv, eap, &evalarg) == FAIL || skip)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346 retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
349 retval = vim_strsave(tv_get_string(&tv));
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
350 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
351 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
352 if (skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
353 --emsg_skip;
21094
376b520312d6 patch 8.2.1098: Vim9: cannot use line break in :throw argument
Bram Moolenaar <Bram@vim.org>
parents: 21077
diff changeset
354 clear_evalarg(&evalarg, eap);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
355
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
357 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
358
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
359 /*
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
360 * Skip over an expression at "*pp".
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
361 * Return FAIL for an error, OK otherwise.
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
362 */
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
363 int
22685
80b4e604d1d5 patch 8.2.1891: Vim9: skipping over expression doesn't handle line breaks
Bram Moolenaar <Bram@vim.org>
parents: 22683
diff changeset
364 skip_expr(char_u **pp, evalarg_T *evalarg)
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
365 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
366 typval_T rettv;
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
367
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
368 *pp = skipwhite(*pp);
22685
80b4e604d1d5 patch 8.2.1891: Vim9: skipping over expression doesn't handle line breaks
Bram Moolenaar <Bram@vim.org>
parents: 22683
diff changeset
369 return eval1(pp, &rettv, evalarg);
9
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
370 }
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
371
4102fb4ea781 updated for version 7.0002
vimboss
parents: 7
diff changeset
372 /*
24553
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
373 * Skip over an expression at "*arg".
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
374 * If in Vim9 script and line breaks are encountered, the lines are
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
375 * concatenated. "evalarg->eval_tofree" will be set accordingly.
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
376 * "arg" is advanced to just after the expression.
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
377 * "start" is set to the start of the expression, "end" to just after the end.
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
378 * Also when the expression is copied to allocated memory.
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
379 * Return FAIL for an error, OK otherwise.
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
380 */
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
381 int
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
382 skip_expr_concatenate(
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
383 char_u **arg,
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
384 char_u **start,
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
385 char_u **end,
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
386 evalarg_T *evalarg)
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
387 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
388 typval_T rettv;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
389 int res;
21279
8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out
Bram Moolenaar <Bram@vim.org>
parents: 21277
diff changeset
390 int vim9script = in_vim9script();
22021
514d622473af patch 8.2.1560: using NULL pointers in some code
Bram Moolenaar <Bram@vim.org>
parents: 22004
diff changeset
391 garray_T *gap = evalarg == NULL ? NULL : &evalarg->eval_ga;
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
392 garray_T *freegap = evalarg == NULL ? NULL : &evalarg->eval_freega;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
393 int save_flags = evalarg == NULL ? 0 : evalarg->eval_flags;
21865
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
394 int evaluate = evalarg == NULL
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
395 ? FALSE : (evalarg->eval_flags & EVAL_EVALUATE);
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
396
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
397 if (vim9script && evaluate
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
398 && (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL))
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
399 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
400 ga_init2(gap, sizeof(char_u *), 10);
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
401 // leave room for "start"
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
402 if (ga_grow(gap, 1) == OK)
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
403 ++gap->ga_len;
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
404 ga_init2(freegap, sizeof(char_u *), 10);
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
405 }
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
406 *start = *arg;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
407
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
408 // Don't evaluate the expression.
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
409 if (evalarg != NULL)
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
410 evalarg->eval_flags &= ~EVAL_EVALUATE;
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
411 *arg = skipwhite(*arg);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
412 res = eval1(arg, &rettv, evalarg);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
413 *end = *arg;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
414 if (evalarg != NULL)
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
415 evalarg->eval_flags = save_flags;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
416
21865
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
417 if (vim9script && evaluate
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
418 && (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL))
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
419 {
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
420 if (evalarg->eval_ga.ga_len == 1)
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
421 {
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
422 // just the one line, no need to concatenate
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
423 ga_clear(gap);
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
424 gap->ga_itemsize = 0;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
425 }
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
426 else
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
427 {
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
428 char_u *p;
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
429 size_t endoff = STRLEN(*arg);
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
430
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
431 // Line breaks encountered, concatenate all the lines.
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
432 *((char_u **)gap->ga_data) = *start;
24553
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
433 p = ga_concat_strings(gap, " ");
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
434
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
435 // free the lines only when using getsourceline()
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
436 if (evalarg->eval_cookie != NULL)
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
437 {
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
438 // Do not free the first line, the caller can still use it.
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
439 *((char_u **)gap->ga_data) = NULL;
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
440 // Do not free the last line, "arg" points into it, free it
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
441 // later.
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
442 vim_free(evalarg->eval_tofree);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
443 evalarg->eval_tofree =
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
444 ((char_u **)gap->ga_data)[gap->ga_len - 1];
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
445 ((char_u **)gap->ga_data)[gap->ga_len - 1] = NULL;
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
446 ga_clear_strings(gap);
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
447 }
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
448 else
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
449 {
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
450 ga_clear(gap);
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
451
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
452 // free lines that were explicitly marked for freeing
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
453 ga_clear_strings(freegap);
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
454 }
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
455
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
456 gap->ga_itemsize = 0;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
457 if (p == NULL)
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
458 return FAIL;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
459 *start = p;
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
460 vim_free(evalarg->eval_tofree_lambda);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
461 evalarg->eval_tofree_lambda = p;
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
462 // Compute "end" relative to the end.
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
463 *end = *start + STRLEN(*start) - endoff;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
464 }
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
465 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
466
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
467 return res;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
468 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
469
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
470 /*
23628
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
471 * Convert "tv" to a string.
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
472 * When "convert" is TRUE convert a List into a sequence of lines and convert
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
473 * a Float to a String.
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
474 * Returns an allocated string (NULL when out of memory).
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
475 */
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
476 char_u *
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
477 typval2string(typval_T *tv, int convert)
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
478 {
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
479 garray_T ga;
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
480 char_u *retval;
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
481 #ifdef FEAT_FLOAT
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
482 char_u numbuf[NUMBUFLEN];
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
483 #endif
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
484
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
485 if (convert && tv->v_type == VAR_LIST)
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
486 {
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
487 ga_init2(&ga, (int)sizeof(char), 80);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
488 if (tv->vval.v_list != NULL)
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
489 {
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
490 list_join(&ga, tv->vval.v_list, (char_u *)"\n", TRUE, FALSE, 0);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
491 if (tv->vval.v_list->lv_len > 0)
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
492 ga_append(&ga, NL);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
493 }
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
494 ga_append(&ga, NUL);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
495 retval = (char_u *)ga.ga_data;
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
496 }
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
497 #ifdef FEAT_FLOAT
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
498 else if (convert && tv->v_type == VAR_FLOAT)
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
499 {
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
500 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
501 retval = vim_strsave(numbuf);
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
502 }
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
503 #endif
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
504 else
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
505 retval = vim_strsave(tv_get_string(tv));
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
506 return retval;
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
507 }
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
508
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
509 /*
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
510 * Top level evaluation function, returning a string. Does not handle line
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
511 * breaks.
1713
7781fcd2b74f updated for version 7.2-011
vimboss
parents: 1707
diff changeset
512 * 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
513 * a Float to a String.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
514 * Return pointer to allocated memory, or NULL for failure.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
515 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516 char_u *
22732
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
517 eval_to_string_eap(
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
518 char_u *arg,
22732
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
519 int convert,
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
520 exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
522 typval_T tv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 char_u *retval;
22732
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
524 evalarg_T evalarg;
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
525
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
526 fill_evalarg_from_eap(&evalarg, eap, eap != NULL && eap->skip);
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
527 if (eval0(arg, &tv, NULL, &evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528 retval = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530 {
23628
b26bbc03126a patch 8.2.2356: Vim9: ":put =expr" does not handle a list properly
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
531 retval = typval2string(&tv, convert);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
532 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533 }
22732
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
534 clear_evalarg(&evalarg, NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538
22732
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
539 char_u *
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
540 eval_to_string(
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
541 char_u *arg,
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
542 int convert)
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
543 {
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
544 return eval_to_string_eap(arg, convert, NULL);
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
545 }
4c21a3a47707 patch 8.2.1914: Vim9: cannot put line break in expression for '=' register
Bram Moolenaar <Bram@vim.org>
parents: 22685
diff changeset
546
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 /*
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
548 * Call eval_to_string() without using current local variables and using
20229
06a1dd50463e patch 8.2.0670: cannot change window when evaluating 'completefunc'
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
549 * textwinlock. When "use_sandbox" is TRUE use the sandbox.
21775
6922d78b4d52 patch 8.2.1437: Vim9: 'statusline' is evaluated using Vim9 script syntax
Bram Moolenaar <Bram@vim.org>
parents: 21771
diff changeset
550 * Use legacy Vim script syntax.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
552 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
553 eval_to_string_safe(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
554 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
555 int use_sandbox)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 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
558 funccal_entry_T funccal_entry;
21775
6922d78b4d52 patch 8.2.1437: Vim9: 'statusline' is evaluated using Vim9 script syntax
Bram Moolenaar <Bram@vim.org>
parents: 21771
diff changeset
559 int save_sc_version = current_sctx.sc_version;
6922d78b4d52 patch 8.2.1437: Vim9: 'statusline' is evaluated using Vim9 script syntax
Bram Moolenaar <Bram@vim.org>
parents: 21771
diff changeset
560
6922d78b4d52 patch 8.2.1437: Vim9: 'statusline' is evaluated using Vim9 script syntax
Bram Moolenaar <Bram@vim.org>
parents: 21771
diff changeset
561 current_sctx.sc_version = 1;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
562 save_funccal(&funccal_entry);
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
563 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
564 ++sandbox;
20229
06a1dd50463e patch 8.2.0670: cannot change window when evaluating 'completefunc'
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
565 ++textwinlock;
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
566 retval = eval_to_string(arg, FALSE);
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
567 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
568 --sandbox;
20229
06a1dd50463e patch 8.2.0670: cannot change window when evaluating 'completefunc'
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
569 --textwinlock;
14927
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents: 14897
diff changeset
570 restore_funccal();
21775
6922d78b4d52 patch 8.2.1437: Vim9: 'statusline' is evaluated using Vim9 script syntax
Bram Moolenaar <Bram@vim.org>
parents: 21771
diff changeset
571 current_sctx.sc_version = save_sc_version;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 * Top level evaluation function, returning a number.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 * Evaluates "expr" silently.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578 * Returns -1 for an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 */
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
580 varnumber_T
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
581 eval_to_number(char_u *expr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
583 typval_T rettv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
584 varnumber_T retval;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
585 char_u *p = skipwhite(expr);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 ++emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
589 if (eval1(&p, &rettv, &EVALARG_EVALUATE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 retval = -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
593 retval = tv_get_number_chk(&rettv, NULL);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
594 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596 --emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
601 /*
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
602 * Top level evaluation function.
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
603 * Returns an allocated typval_T with the result.
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
604 * Returns NULL when there is an error.
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
605 */
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
606 typval_T *
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
607 eval_expr(char_u *arg, exarg_T *eap)
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
608 {
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
609 typval_T *tv;
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
610 evalarg_T evalarg;
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
611
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
612 fill_evalarg_from_eap(&evalarg, eap, eap != NULL && eap->skip);
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
613
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
614 tv = ALLOC_ONE(typval_T);
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
615 if (tv != NULL && eval0(arg, tv, eap, &evalarg) == FAIL)
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13037
diff changeset
616 VIM_CLEAR(tv);
21096
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
617
74e5e212e550 patch 8.2.1099: Vim9: cannot use line break in :cexpr argument
Bram Moolenaar <Bram@vim.org>
parents: 21094
diff changeset
618 clear_evalarg(&evalarg, eap);
446
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
619 return tv;
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
620 }
7472c565592a updated for version 7.0117
vimboss
parents: 445
diff changeset
621
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
623 * 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
624 * 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
625 * should have type VAR_UNKNOWN.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
626 * Returns OK or FAIL.
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
627 */
3078
2cbde6bcc623 updated for version 7.3.311
Bram Moolenaar <bram@vim.org>
parents: 3066
diff changeset
628 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
629 call_vim_function(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
630 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
631 int argc,
14071
c1fcfafa8d1a patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents: 13923
diff changeset
632 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
633 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
634 {
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
635 int ret;
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
636 funcexe_T funcexe;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
638 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
639 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
640 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
641 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
642 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17536
diff changeset
643 ret = call_func(func, -1, rettv, argc, argv, &funcexe);
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
644 if (ret == FAIL)
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
645 clear_tv(rettv);
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
646
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
647 return ret;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
648 }
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
649
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
650 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
651 * 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
652 * 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
653 * 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
654 * have type VAR_UNKNOWN.
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
655 */
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
656 varnumber_T
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
657 call_func_retnr(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
658 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
659 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
660 typval_T *argv)
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
661 {
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
662 typval_T rettv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
663 varnumber_T retval;
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
664
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
665 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
666 return -1;
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
667
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
668 retval = tv_get_number_chk(&rettv, NULL);
4133
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
669 clear_tv(&rettv);
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
670 return retval;
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
671 }
36fd800b8c6c updated for version 7.3.819
Bram Moolenaar <bram@vim.org>
parents: 4126
diff changeset
672
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
673 /*
23281
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
674 * Call Vim script function like call_func_retnr() and drop the result.
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
675 * Returns FAIL when calling the function fails.
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
676 */
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
677 int
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
678 call_func_noret(
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
679 char_u *func,
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
680 int argc,
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
681 typval_T *argv)
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
682 {
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
683 typval_T rettv;
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
684
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
685 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
686 return FAIL;
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
687 clear_tv(&rettv);
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
688 return OK;
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
689 }
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
690
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
691 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
692 * Call Vim script function "func" and return the result as a string.
23281
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
693 * Uses "argv" and "argc" as call_func_retnr().
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
694 * Returns NULL when calling the function fails.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
695 */
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
696 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
697 call_func_retstr(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
698 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
699 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
700 typval_T *argv)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
701 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
702 typval_T rettv;
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
703 char_u *retval;
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
704
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
705 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
706 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
707
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
708 retval = vim_strsave(tv_get_string(&rettv));
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
709 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
710 return retval;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
711 }
1322
4ce0a7e4c6b3 updated for version 7.1-036
vimboss
parents: 1320
diff changeset
712
453
3ffdc64af1e5 updated for version 7.0120
vimboss
parents: 449
diff changeset
713 /*
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents: 10926
diff changeset
714 * Call Vim script function "func" and return the result as a List.
23281
5b4db8035d1d patch 8.2.2186: Vim9: error when using 'opfunc'
Bram Moolenaar <Bram@vim.org>
parents: 23239
diff changeset
715 * Uses "argv" and "argc" as call_func_retnr().
1690
c6b06a4a8f92 updated for version 7.2b-023
vimboss
parents: 1683
diff changeset
716 * Returns NULL when there is something wrong.
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
717 */
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
718 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
719 call_func_retlist(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
720 char_u *func,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
721 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
722 typval_T *argv)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
723 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
724 typval_T rettv;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
725
14439
e4c553e9132b patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents: 14393
diff changeset
726 if (call_vim_function(func, argc, argv, &rettv) == FAIL)
408
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
727 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
728
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
729 if (rettv.v_type != VAR_LIST)
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
730 {
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
731 clear_tv(&rettv);
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
732 return NULL;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
733 }
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
734
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
735 return rettv.vval.v_list;
06234af3a8b7 updated for version 7.0106
vimboss
parents: 388
diff changeset
736 }
1322
4ce0a7e4c6b3 updated for version 7.1-036
vimboss
parents: 1320
diff changeset
737
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 #ifdef FEAT_FOLDING
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 /*
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
740 * Evaluate "arg", which is 'foldexpr'.
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
741 * Note: caller must set "curwin" to match "arg".
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
742 * Returns the foldlevel, and any character preceding it in "*cp". Doesn't
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
743 * give error messages.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
746 eval_foldexpr(char_u *arg, int *cp)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
748 typval_T tv;
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
749 varnumber_T retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 char_u *s;
681
9364d114ed8d updated for version 7.0204
vimboss
parents: 680
diff changeset
751 int use_sandbox = was_set_insecurely((char_u *)"foldexpr",
9364d114ed8d updated for version 7.0204
vimboss
parents: 680
diff changeset
752 OPT_LOCAL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 ++emsg_off;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
755 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
756 ++sandbox;
20229
06a1dd50463e patch 8.2.0670: cannot change window when evaluating 'completefunc'
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
757 ++textwinlock;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 *cp = NUL;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
759 if (eval0(arg, &tv, NULL, &EVALARG_EVALUATE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
762 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
763 // If the result is a number, just return the number.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
764 if (tv.v_type == VAR_NUMBER)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
765 retval = tv.vval.v_number;
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
766 else if (tv.v_type != VAR_STRING || tv.vval.v_string == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 retval = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
768 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
769 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
770 // 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
771 // the number.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
772 s = tv.vval.v_string;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
773 if (!VIM_ISDIGIT(*s) && *s != '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
774 *cp = *s++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
775 retval = atol((char *)s);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
776 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
777 clear_tv(&tv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
778 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
779 --emsg_off;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
780 if (use_sandbox)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
781 --sandbox;
20229
06a1dd50463e patch 8.2.0670: cannot change window when evaluating 'completefunc'
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
782 --textwinlock;
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
783 clear_evalarg(&EVALARG_EVALUATE, NULL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
785 return (int)retval;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
786 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
787 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789 /*
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
790 * 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
791 * to: "name", "na{me}", "name[expr]", "name[expr:expr]", "name[expr][expr]",
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
792 * "name.key", "name.key[expr]" etc.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
793 * Indexing only works if "name" is an existing List or Dictionary.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
794 * "name" points to the start of the name.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
795 * If "rettv" is not NULL it points to the value to be assigned.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
796 * "unlet" is TRUE for ":unlet": slightly different behavior when something is
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
797 * wrong; must end in space or cmd separator.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
798 *
5604
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
799 * flags:
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
800 * 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
801 * 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
802 * GLV_NO_AUTOLOAD: do not use script autoloading
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
803 *
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
804 * Returns a pointer to just after the name, including indexes.
124
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
805 * When an evaluation error occurs "lp->ll_name" is NULL;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
806 * 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
807 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
808 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
809 get_lval(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
810 char_u *name,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
811 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
812 lval_T *lp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
813 int unlet,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
814 int skip,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
815 int flags, // GLV_ values
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
816 int fne_flags) // flags for find_name_end()
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
817 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
818 char_u *p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
819 char_u *expr_start, *expr_end;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
820 int cc;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
821 dictitem_T *v;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
822 typval_T var1;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
823 typval_T var2;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
824 int empty1 = FALSE;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
825 listitem_T *ni;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
826 char_u *key = NULL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
827 int len;
22963
317462da618a patch 8.2.2028: Coverity warns for using an uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents: 22866
diff changeset
828 hashtab_T *ht = NULL;
5604
b43363a7b4c7 updated for version 7.4.149
Bram Moolenaar <bram@vim.org>
parents: 5571
diff changeset
829 int quiet = flags & GLV_QUIET;
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
830 int writing;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
831
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
832 // Clear everything in "lp".
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
833 CLEAR_POINTER(lp);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
834
23495
1f85acfb23cd patch 8.2.2290: Vim9: unlet of global variable cannot be compiled
Bram Moolenaar <Bram@vim.org>
parents: 23493
diff changeset
835 if (skip || (flags & GLV_COMPILING))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
836 {
23495
1f85acfb23cd patch 8.2.2290: Vim9: unlet of global variable cannot be compiled
Bram Moolenaar <Bram@vim.org>
parents: 23493
diff changeset
837 // When skipping or compiling just find the end of the name.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
838 lp->ll_name = name;
21077
794bf2be08be patch 8.2.1090: may use NULL pointer when skipping over name
Bram Moolenaar <Bram@vim.org>
parents: 21058
diff changeset
839 lp->ll_name_end = find_name_end(name, NULL, NULL,
794bf2be08be patch 8.2.1090: may use NULL pointer when skipping over name
Bram Moolenaar <Bram@vim.org>
parents: 21058
diff changeset
840 FNE_INCL_BR | fne_flags);
794bf2be08be patch 8.2.1090: may use NULL pointer when skipping over name
Bram Moolenaar <Bram@vim.org>
parents: 21058
diff changeset
841 return lp->ll_name_end;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
842 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
843
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
844 // Find the end of the name.
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
845 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
846 lp->ll_name_end = p;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
847 if (expr_start != NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
848 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
849 // 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
850 if (unlet && !VIM_ISWHITE(*p) && !ends_excmd(*p)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
851 && *p != '[' && *p != '.')
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
852 {
21461
4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand
Bram Moolenaar <Bram@vim.org>
parents: 21447
diff changeset
853 semsg(_(e_trailing_arg), p);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
854 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
855 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
856
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
857 lp->ll_exp_name = make_expanded_name(name, expr_start, expr_end, p);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
858 if (lp->ll_exp_name == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
859 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
860 // 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
861 // 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
862 // aborting error, an interrupt, or an exception.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
863 if (!aborting() && !quiet)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
864 {
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
865 emsg_severe = TRUE;
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
866 semsg(_(e_invarg2), name);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
867 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
868 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
869 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
870 lp->ll_name = lp->ll_exp_name;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
871 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
872 else
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
873 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
874 lp->ll_name = name;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
875
21674
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
876 if (in_vim9script())
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
877 {
21674
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
878 // "a: type" is declaring variable "a" with a type, not "a:".
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
879 if (p == name + 2 && p[-1] == ':')
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
880 {
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
881 --p;
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
882 lp->ll_name_end = p;
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
883 }
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
884 if (*p == ':')
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
885 {
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
886 scriptitem_T *si = SCRIPT_ITEM(current_sctx.sc_sid);
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
887 char_u *tp = skipwhite(p + 1);
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
888
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
889 // parse the type after the name
23332
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed
Bram Moolenaar <Bram@vim.org>
parents: 23322
diff changeset
890 lp->ll_type = parse_type(&tp, &si->sn_type_list, !quiet);
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed
Bram Moolenaar <Bram@vim.org>
parents: 23322
diff changeset
891 if (lp->ll_type == NULL && !quiet)
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed
Bram Moolenaar <Bram@vim.org>
parents: 23322
diff changeset
892 return NULL;
21674
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
893 lp->ll_name_end = tp;
f303d6a01a3e patch 8.2.1387: Vim9: cannot assign to single letter variable with type
Bram Moolenaar <Bram@vim.org>
parents: 21656
diff changeset
894 }
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
895 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
896 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
897
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
898 // Without [idx] or .key we are done.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
899 if ((*p != '[' && *p != '.') || lp->ll_name == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
900 return p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
901
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
902 cc = *p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
903 *p = NUL;
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
904 // When we would write to the variable pass &ht and prevent autoload.
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
905 writing = !(flags & GLV_READ_ONLY);
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
906 v = find_var(lp->ll_name, writing ? &ht : NULL,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
907 (flags & GLV_NO_AUTOLOAD) || writing);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
908 if (v == NULL && !quiet)
21821
0deb6f96a5a3 patch 8.2.1460: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents: 21775
diff changeset
909 semsg(_(e_undefined_variable_str), lp->ll_name);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
910 *p = cc;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
911 if (v == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
912 return NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
913
23239
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
914 if (in_vim9script() && (flags & GLV_NO_DECL) == 0)
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
915 {
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
916 if (!quiet)
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
917 semsg(_(e_variable_already_declared), lp->ll_name);
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
918 return NULL;
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
919 }
a789a688e37d patch 8.2.2165: Vim9: assignment to dict member does not work
Bram Moolenaar <Bram@vim.org>
parents: 23233
diff changeset
920
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
921 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
922 * Loop until no more [idx] or .key is following.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
923 */
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
924 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
925 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
926 var2.v_type = VAR_UNKNOWN;
25036
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
927 while (*p == '[' || (*p == '.' && p[1] != '=' && p[1] != '.'))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
928 {
25036
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
929 if (*p == '.' && lp->ll_tv->v_type != VAR_DICT)
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
930 {
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
931 if (!quiet)
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
932 semsg(_(e_dot_can_only_be_used_on_dictionary_str), name);
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
933 return NULL;
3b8d3b383fd6 patch 8.2.3055: strange error for assigning to "x.key" on non-dictionary
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
934 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
935 if (!(lp->ll_tv->v_type == VAR_LIST && lp->ll_tv->vval.v_list != NULL)
22365
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
936 && !(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
937 && !(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
938 && lp->ll_tv->vval.v_blob != NULL))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
939 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
940 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
941 emsg(_("E689: Can only index a List, Dictionary or Blob"));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
942 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
943 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
944 if (lp->ll_range)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
945 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
946 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
947 emsg(_("E708: [:] must come last"));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
948 return NULL;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
949 }
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
950
22529
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
951 if (in_vim9script() && lp->ll_valtype == NULL
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
952 && lp->ll_tv == &v->di_tv
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
953 && ht != NULL && ht == get_script_local_ht())
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
954 {
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
955 svar_T *sv = find_typval_in_script(lp->ll_tv);
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
956
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
957 // Vim9 script local variable: get the type
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
958 if (sv != NULL)
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
959 lp->ll_valtype = sv->sv_type;
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
960 }
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
961
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
962 len = -1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
963 if (*p == '.')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
964 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
965 key = p + 1;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
966 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
967 ;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
968 if (len == 0)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
969 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
970 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
971 emsg(_(e_emptykey));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
972 return NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
973 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
974 p = key + len;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
975 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
976 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
977 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
978 // Get the index [expr] or the first index [expr: ].
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
979 p = skipwhite(p + 1);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
980 if (*p == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
981 empty1 = TRUE;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
982 else
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
983 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
984 empty1 = FALSE;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
985 if (eval1(&p, &var1, &EVALARG_EVALUATE) == FAIL) // recursive!
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
986 return NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
987 if (tv_get_string_chk(&var1) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
988 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
989 // not a number or string
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
990 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
991 return NULL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
992 }
21622
1f2066e3975a patch 8.2.1361: error for white space after expression in assignment
Bram Moolenaar <Bram@vim.org>
parents: 21620
diff changeset
993 p = skipwhite(p);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
994 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
995
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
996 // Optionally get the second index [ :expr].
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
997 if (*p == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
998 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
999 if (lp->ll_tv->v_type == VAR_DICT)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1000 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1001 if (!quiet)
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
1002 emsg(_(e_cannot_slice_dictionary));
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
1003 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1004 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1005 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1006 if (rettv != NULL
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1007 && !(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
1008 && rettv->vval.v_list != NULL)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1009 && !(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
1010 && rettv->vval.v_blob != NULL))
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1011 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1012 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1013 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
1014 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1015 return NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
1016 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1017 p = skipwhite(p + 1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1018 if (*p == ']')
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1019 lp->ll_empty2 = TRUE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1020 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1021 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1022 lp->ll_empty2 = FALSE;
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
1023 // recursive!
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
1024 if (eval1(&p, &var2, &EVALARG_EVALUATE) == FAIL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1025 {
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
1026 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1027 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1028 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1029 if (tv_get_string_chk(&var2) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1030 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1031 // 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
1032 clear_tv(&var1);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1033 clear_tv(&var2);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1034 return NULL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
1035 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1036 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1037 lp->ll_range = TRUE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1038 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1039 else
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1040 lp->ll_range = FALSE;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1041
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1042 if (*p != ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1043 {
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1044 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1045 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
1046 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
1047 clear_tv(&var2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1048 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1049 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1050
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1051 // Skip to past ']'.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1052 ++p;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1053 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1054
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1055 if (lp->ll_tv->v_type == VAR_DICT)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1056 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1057 if (len == -1)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1058 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1059 // "[key]": get key from "var1"
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1060 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
1061 if (key == NULL)
9fa567d13551 commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents: 8831
diff changeset
1062 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1063 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1064 return NULL;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1065 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1066 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1067 lp->ll_list = NULL;
22365
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1068
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1069 // a NULL dict is equivalent with an empty dict
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1070 if (lp->ll_tv->vval.v_dict == NULL)
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1071 {
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1072 lp->ll_tv->vval.v_dict = dict_alloc();
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1073 if (lp->ll_tv->vval.v_dict == NULL)
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1074 {
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1075 clear_tv(&var1);
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1076 return NULL;
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1077 }
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1078 ++lp->ll_tv->vval.v_dict->dv_refcount;
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1079 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1080 lp->ll_dict = lp->ll_tv->vval.v_dict;
22365
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1081
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1082 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
1083
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1084 // 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
1085 // 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
1086 // g: dictionary). Disallow overwriting a builtin function.
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1087 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
1088 {
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1089 int prevval;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1090 int wrong;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1091
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1092 if (len != -1)
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1093 {
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1094 prevval = key[len];
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1095 key[len] = NUL;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1096 }
4819
8c4324e6f477 updated for version 7.3.1156
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
1097 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1098 prevval = 0; // avoid compiler warning
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1099 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
1100 && rettv->v_type == VAR_FUNC
21691
f41c646cb8b9 patch 8.2.1395: Vim9: no error if declaring a funcref with lower case letter
Bram Moolenaar <Bram@vim.org>
parents: 21674
diff changeset
1101 && var_wrong_func_name(key, lp->ll_di == NULL))
23233
657216220293 patch 8.2.2162: Vim9: Cannot load or store autoload variables
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
1102 || !valid_varname(key, TRUE);
3687
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1103 if (len != -1)
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1104 key[len] = prevval;
085f14642fe8 updated for version 7.3.603
Bram Moolenaar <bram@vim.org>
parents: 3666
diff changeset
1105 if (wrong)
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
1106 {
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
1107 clear_tv(&var1);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1108 return NULL;
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
1109 }
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1110 }
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1111
22529
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1112 if (lp->ll_valtype != NULL)
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1113 // use the type of the member
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1114 lp->ll_valtype = lp->ll_valtype->tt_member;
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1115
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1116 if (lp->ll_di == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1117 {
15762
dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
1118 // 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
1119 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
1120 || &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
1121 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1122 semsg(_(e_illvar), name);
16013
93b08b92a049 patch 8.1.1012: memory leak with E461
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
1123 clear_tv(&var1);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1124 return NULL;
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1125 }
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1126
15762
dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
1127 // Key does not exist in dict: may need to add it.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1128 if (*p == '[' || *p == '.' || unlet)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1129 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1130 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1131 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
1132 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1133 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1134 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1135 if (len == -1)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1136 lp->ll_newkey = vim_strsave(key);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1137 else
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1138 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
1139 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1140 if (lp->ll_newkey == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1141 p = NULL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1142 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1143 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1144 // 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
1145 else if ((flags & GLV_READ_ONLY) == 0
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22272
diff changeset
1146 && (var_check_ro(lp->ll_di->di_flags, name, FALSE)
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22272
diff changeset
1147 || var_check_lock(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
1148 {
8bff367672a4 patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents: 10908
diff changeset
1149 clear_tv(&var1);
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1150 return NULL;
10910
8bff367672a4 patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents: 10908
diff changeset
1151 }
2739
2bd574a2ef1c updated for version 7.3.146
Bram Moolenaar <bram@vim.org>
parents: 2690
diff changeset
1152
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
1153 clear_tv(&var1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1154 lp->ll_tv = &lp->ll_di->di_tv;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1155 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1156 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
1157 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1158 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
1159
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1160 /*
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1161 * 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
1162 */
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1163 if (empty1)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1164 lp->ll_n1 = 0;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1165 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1166 // is number or string
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1167 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
1168 clear_tv(&var1);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1169
24454
53216e87f21c patch 8.2.2767: compiler warning for unused argument
Bram Moolenaar <Bram@vim.org>
parents: 24450
diff changeset
1170 if (check_blob_index(bloblen, lp->ll_n1, quiet) == FAIL)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1171 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1172 clear_tv(&var2);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1173 return NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1174 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1175 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
1176 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1177 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
1178 clear_tv(&var2);
24450
3e1886f1e875 patch 8.2.2765: Vim9: not all blob operations work
Bram Moolenaar <Bram@vim.org>
parents: 24440
diff changeset
1179 if (check_blob_range(bloblen, lp->ll_n1, lp->ll_n2, quiet)
3e1886f1e875 patch 8.2.2765: Vim9: not all blob operations work
Bram Moolenaar <Bram@vim.org>
parents: 24440
diff changeset
1180 == FAIL)
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1181 return NULL;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1182 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1183 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
1184 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
1185 break;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1186 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1187 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1188 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1189 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1190 * 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
1191 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1192 if (empty1)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1193 lp->ll_n1 = 0;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1194 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1195 // 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
1196 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
1197 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
1198
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1199 lp->ll_dict = NULL;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1200 lp->ll_list = lp->ll_tv->vval.v_list;
23982
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23972
diff changeset
1201 lp->ll_li = list_find_index(lp->ll_list, &lp->ll_n1);
842
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
1202 if (lp->ll_li == NULL)
a209672376fd updated for version 7.0f
vimboss
parents: 841
diff changeset
1203 {
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
1204 clear_tv(&var2);
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1205 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1206 semsg(_(e_listidx), lp->ll_n1);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1207 return NULL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1208 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1209
22529
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1210 if (lp->ll_valtype != NULL)
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1211 // use the type of the member
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1212 lp->ll_valtype = lp->ll_valtype->tt_member;
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1213
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1214 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1215 * May need to find the item or absolute index for the second
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1216 * index of a range.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1217 * When no index given: "lp->ll_empty2" is TRUE.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1218 * Otherwise "lp->ll_n2" is set to the second index.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1219 */
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1220 if (lp->ll_range && !lp->ll_empty2)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1221 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1222 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
1223 // is number or string
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
1224 clear_tv(&var2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1225 if (lp->ll_n2 < 0)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1226 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1227 ni = list_find(lp->ll_list, lp->ll_n2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
1228 if (ni == NULL)
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1229 {
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1230 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1231 semsg(_(e_listidx), lp->ll_n2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1232 return NULL;
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1233 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1234 lp->ll_n2 = list_idx_of_item(lp->ll_list, ni);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1235 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1236
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1237 // Check that lp->ll_n2 isn't before lp->ll_n1.
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1238 if (lp->ll_n1 < 0)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1239 lp->ll_n1 = list_idx_of_item(lp->ll_list, lp->ll_li);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1240 if (lp->ll_n2 < lp->ll_n1)
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1241 {
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1242 if (!quiet)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1243 semsg(_(e_listidx), lp->ll_n2);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1244 return NULL;
2772
18ad854f5dcd updated for version 7.3.162
Bram Moolenaar <bram@vim.org>
parents: 2770
diff changeset
1245 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1246 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1247
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1248 lp->ll_tv = &lp->ll_li->li_tv;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1249 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1250 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1251
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
1252 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
1253 lp->ll_name_end = p;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1254 return p;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1255 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1256
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1257 /*
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1258 * Clear lval "lp" that was filled by get_lval().
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1259 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1260 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1261 clear_lval(lval_T *lp)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1262 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1263 vim_free(lp->ll_exp_name);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1264 vim_free(lp->ll_newkey);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1265 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1266
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1267 /*
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1268 * Set a variable that was parsed by get_lval() to "rettv".
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1269 * "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
1270 * "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
1271 * "%" for "%=", "." for ".=" or "=" for "=".
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1272 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
1273 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1274 set_var_lval(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1275 lval_T *lp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1276 char_u *endp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1277 typval_T *rettv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1278 int copy,
23917
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1279 int flags, // ASSIGN_CONST, ASSIGN_NO_DECL
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1280 char_u *op,
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1281 int var_idx) // index for "let [a, b] = list"
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1282 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1283 int cc;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1284 listitem_T *ri;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1285 dictitem_T *di;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1286
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1287 if (lp->ll_tv == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1288 {
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1289 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
1290 *endp = NUL;
24717
bf8feac8a89a patch 8.2.2897: Vim9: can use reserved words at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24713
diff changeset
1291 if (in_vim9script() && check_reserved_name(lp->ll_name) == FAIL)
bf8feac8a89a patch 8.2.2897: Vim9: can use reserved words at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24713
diff changeset
1292 return;
bf8feac8a89a patch 8.2.2897: Vim9: can use reserved words at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24713
diff changeset
1293
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1294 if (lp->ll_blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1295 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1296 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
1297
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1298 if (op != NULL && *op != '=')
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1299 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1300 semsg(_(e_letwrong), op);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1301 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1302 }
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22272
diff changeset
1303 if (value_check_lock(lp->ll_blob->bv_lock, lp->ll_name, FALSE))
21847
fb74a3387694 patch 8.2.1473: items in a list given to :const can still be modified
Bram Moolenaar <Bram@vim.org>
parents: 21837
diff changeset
1304 return;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1305
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1306 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
1307 {
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1308 if (lp->ll_empty2)
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
1309 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
1310
24434
602e528a8e43 patch 8.2.2757: Vim9: blob tests for legacy and Vim9 script are separate
Bram Moolenaar <Bram@vim.org>
parents: 24432
diff changeset
1311 if (blob_set_range(lp->ll_blob, lp->ll_n1, lp->ll_n2,
602e528a8e43 patch 8.2.2757: Vim9: blob tests for legacy and Vim9 script are separate
Bram Moolenaar <Bram@vim.org>
parents: 24432
diff changeset
1312 rettv) == FAIL)
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1313 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1314 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1315 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1316 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1317 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
1318 if (!error)
24486
5e0db87e5184 patch 8.2.2783: duplicate code for setting byte in blob, blob test may fail
Bram Moolenaar <Bram@vim.org>
parents: 24454
diff changeset
1319 blob_set_append(lp->ll_blob, lp->ll_n1, val);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1320 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1321 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1322 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
1323 {
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1324 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
1325
24440
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1326 if ((flags & (ASSIGN_CONST | ASSIGN_FINAL))
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1327 && (flags & ASSIGN_FOR_LOOP) == 0)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1328 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1329 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
1330 *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
1331 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1332 }
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1333
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1334 // 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
1335 di = NULL;
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
1336 if (eval_variable(lp->ll_name, (int)STRLEN(lp->ll_name),
24112
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
1337 &tv, &di, EVAL_VAR_VERBOSE) == OK)
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1338 {
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1339 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
1340 || (!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
1341 && !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
1342 && 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
1343 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
1344 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
1345 }
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1346 }
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1347 else
21443
66386ca8a69f patch 8.2.1272: Vim9: type not checked if declaration also assigns value
Bram Moolenaar <Bram@vim.org>
parents: 21425
diff changeset
1348 {
66386ca8a69f patch 8.2.1272: Vim9: type not checked if declaration also assigns value
Bram Moolenaar <Bram@vim.org>
parents: 21425
diff changeset
1349 if (lp->ll_type != NULL
23917
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1350 && check_typval_arg_type(lp->ll_type, rettv, 0) == FAIL)
21443
66386ca8a69f patch 8.2.1272: Vim9: type not checked if declaration also assigns value
Bram Moolenaar <Bram@vim.org>
parents: 21425
diff changeset
1351 return;
23917
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1352 set_var_const(lp->ll_name, lp->ll_type, rettv, copy,
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1353 flags, var_idx);
21443
66386ca8a69f patch 8.2.1272: Vim9: type not checked if declaration also assigns value
Bram Moolenaar <Bram@vim.org>
parents: 21425
diff changeset
1354 }
10889
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents: 10728
diff changeset
1355 *endp = cc;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1356 }
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22272
diff changeset
1357 else if (value_check_lock(lp->ll_newkey == NULL
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1358 ? lp->ll_tv->v_lock
6773
eb4b705a5d6a patch 7.4.708
Bram Moolenaar <bram@vim.org>
parents: 6761
diff changeset
1359 : lp->ll_tv->vval.v_dict->dv_lock, lp->ll_name, FALSE))
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
1360 ;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1361 else if (lp->ll_range)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1362 {
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1363 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
1364 int ll_n1 = lp->ll_n1;
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1365
24440
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1366 if ((flags & (ASSIGN_CONST | ASSIGN_FINAL))
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1367 && (flags & ASSIGN_FOR_LOOP) == 0)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1368 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1369 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
1370 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1371 }
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1372
6166
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1373 /*
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1374 * 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
1375 */
6422
9fbb9c60ab41 updated for version 7.4.541
Bram Moolenaar <bram@vim.org>
parents: 6388
diff changeset
1376 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
1377 {
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22272
diff changeset
1378 if (value_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
1379 return;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1380 ri = ri->li_next;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1381 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
1382 break;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1383 ll_li = ll_li->li_next;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1384 ++ll_n1;
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1385 }
0a42938f449c updated for version 7.4.419
Bram Moolenaar <bram@vim.org>
parents: 6147
diff changeset
1386
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1387 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1388 * Assign the List values to the list items.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1389 */
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1390 for (ri = rettv->vval.v_list->lv_first; ri != NULL; )
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1391 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1392 if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1393 tv_op(&lp->ll_li->li_tv, &ri->li_tv, op);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1394 else
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1395 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1396 clear_tv(&lp->ll_li->li_tv);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1397 copy_tv(&ri->li_tv, &lp->ll_li->li_tv);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1398 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1399 ri = ri->li_next;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1400 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == lp->ll_n1))
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1401 break;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1402 if (lp->ll_li->li_next == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1403 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1404 // Need to add an empty item.
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
1405 if (list_append_number(lp->ll_list, 0) == FAIL)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1406 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1407 ri = NULL;
88
2b4debdc8d2c updated for version 7.0035
vimboss
parents: 86
diff changeset
1408 break;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1409 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1410 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1411 lp->ll_li = lp->ll_li->li_next;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1412 ++lp->ll_n1;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1413 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1414 if (ri != NULL)
22975
a943b175586a patch 8.2.2034: Vim9: list unpack in for statement not compiled yet
Bram Moolenaar <Bram@vim.org>
parents: 22963
diff changeset
1415 emsg(_(e_list_value_has_more_items_than_targets));
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1416 else if (lp->ll_empty2
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1417 ? (lp->ll_li != NULL && lp->ll_li->li_next != NULL)
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1418 : lp->ll_n1 != lp->ll_n2)
22975
a943b175586a patch 8.2.2034: Vim9: list unpack in for statement not compiled yet
Bram Moolenaar <Bram@vim.org>
parents: 22963
diff changeset
1419 emsg(_(e_list_value_does_not_have_enough_items));
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1420 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1421 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1422 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1423 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1424 * Assign to a List or Dictionary item.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1425 */
24440
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1426 if ((flags & (ASSIGN_CONST | ASSIGN_FINAL))
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1427 && (flags & ASSIGN_FOR_LOOP) == 0)
17079
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1428 {
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1429 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
1430 return;
00ffed9bbb65 patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents: 17053
diff changeset
1431 }
22529
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1432
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1433 if (lp->ll_valtype != NULL
23917
4b417b776b95 patch 8.2.2501: not always clear where an error is reported
Bram Moolenaar <Bram@vim.org>
parents: 23835
diff changeset
1434 && check_typval_arg_type(lp->ll_valtype, rettv, 0) == FAIL)
22529
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1435 return;
35ef9b0a81a3 patch 8.2.1813: Vim9: can assign wrong type to script dict
Bram Moolenaar <Bram@vim.org>
parents: 22500
diff changeset
1436
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1437 if (lp->ll_newkey != NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1438 {
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1439 if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1440 {
24363
1a145eb83a28 patch 8.2.2722: Vim9: crash when using LHS with double index
Bram Moolenaar <Bram@vim.org>
parents: 24343
diff changeset
1441 semsg(_(e_dictkey), lp->ll_newkey);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1442 return;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1443 }
24764
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function
Bram Moolenaar <Bram@vim.org>
parents: 24760
diff changeset
1444 if (dict_wrong_func_name(lp->ll_tv->vval.v_dict, rettv,
3907cf9be745 patch 8.2.2920: still a way to shadow a builtin function
Bram Moolenaar <Bram@vim.org>
parents: 24760
diff changeset
1445 lp->ll_newkey))
24760
ca0f983f08cf patch 8.2.2918: builtin function can be shadowed by global variable
Bram Moolenaar <Bram@vim.org>
parents: 24717
diff changeset
1446 return;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1447
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1448 // Need to add an item to the Dictionary.
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1449 di = dictitem_alloc(lp->ll_newkey);
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1450 if (di == NULL)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1451 return;
121
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1452 if (dict_add(lp->ll_tv->vval.v_dict, di) == FAIL)
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1453 {
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1454 vim_free(di);
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1455 return;
86d71ae0c85a updated for version 7.0042
vimboss
parents: 117
diff changeset
1456 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1457 lp->ll_tv = &di->di_tv;
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1458 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1459 else if (op != NULL && *op != '=')
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1460 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1461 tv_op(lp->ll_tv, rettv, op);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1462 return;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1463 }
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1464 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1465 clear_tv(lp->ll_tv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1466
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1467 /*
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1468 * Assign the value to the variable or list item.
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1469 */
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1470 if (copy)
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1471 copy_tv(rettv, lp->ll_tv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1472 else
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1473 {
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1474 *lp->ll_tv = *rettv;
156
c5b05f6de1ad updated for version 7.0047
vimboss
parents: 151
diff changeset
1475 lp->ll_tv->v_lock = 0;
110
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1476 init_tv(rettv);
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1477 }
3b1d692e5a2c updated for version 7.0040
vimboss
parents: 104
diff changeset
1478 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1479 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1480
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1481 /*
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1482 * 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
1483 * and "tv1 .= tv2"
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1484 * Returns OK or FAIL.
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1485 */
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1486 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1487 tv_op(typval_T *tv1, typval_T *tv2, char_u *op)
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1488 {
9389
32e34e574716 commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents: 9387
diff changeset
1489 varnumber_T n;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1490 char_u numbuf[NUMBUFLEN];
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1491 char_u *s;
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1492 int failed = FALSE;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1493
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1494 // 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
1495 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
1496 && tv2->v_type != VAR_BOOL && tv2->v_type != VAR_SPECIAL)
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1497 {
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1498 switch (tv1->v_type)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1499 {
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
1500 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
1501 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
1502 case VAR_VOID:
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1503 case VAR_DICT:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1504 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
1505 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
1506 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
1507 case VAR_SPECIAL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
1508 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
1509 case VAR_CHANNEL:
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
1510 case VAR_INSTR:
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1511 break;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1512
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1513 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1514 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
1515 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1516 // BLOB += BLOB
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1517 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
1518 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1519 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
1520 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
1521 int i, len = blob_len(b2);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1522 for (i = 0; i < len; i++)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1523 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
1524 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1525 return OK;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1526
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1527 case VAR_LIST:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1528 if (*op != '+' || tv2->v_type != VAR_LIST)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1529 break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1530 // List += List
22365
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1531 if (tv2->vval.v_list != NULL)
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1532 {
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1533 if (tv1->vval.v_list == NULL)
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1534 {
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1535 tv1->vval.v_list = tv2->vval.v_list;
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1536 ++tv1->vval.v_list->lv_refcount;
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1537 }
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1538 else
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1539 list_extend(tv1->vval.v_list, tv2->vval.v_list, NULL);
a4866826cebc patch 8.2.1731: Vim9: cannot use += to append to empty NULL list
Bram Moolenaar <Bram@vim.org>
parents: 22298
diff changeset
1540 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1541 return OK;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1542
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1543 case VAR_NUMBER:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1544 case VAR_STRING:
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1545 if (tv2->v_type == VAR_LIST)
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1546 break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1547 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
1548 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1549 // 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
1550 n = tv_get_number(tv1);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1551 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1552 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1553 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1554 float_T f = n;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1555
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1556 if (*op == '%')
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1557 break;
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1558 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1559 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1560 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
1561 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
1562 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
1563 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
1564 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1565 clear_tv(tv1);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1566 tv1->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1567 tv1->vval.v_float = f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1568 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1569 else
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1570 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1571 {
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1572 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1573 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1574 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
1575 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
1576 case '*': n *= tv_get_number(tv2); break;
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1577 case '/': n = num_divide(n, tv_get_number(tv2),
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1578 &failed); break;
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1579 case '%': n = num_modulus(n, tv_get_number(tv2),
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1580 &failed); break;
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1581 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1582 clear_tv(tv1);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1583 tv1->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1584 tv1->vval.v_number = n;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1585 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1586 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1587 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1588 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1589 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1590 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1591
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1592 // str .= str
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1593 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
1594 s = concat_str(s, tv_get_string_buf(tv2, numbuf));
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1595 clear_tv(tv1);
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1596 tv1->v_type = VAR_STRING;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1597 tv1->vval.v_string = s;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1598 }
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
1599 return failed ? FAIL : OK;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1600
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1601 case VAR_FLOAT:
8364
991d8fd4d841 commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents: 8350
diff changeset
1602 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1603 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1604 float_T f;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1605
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1606 if (*op == '%' || *op == '.'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1607 || (tv2->v_type != VAR_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1608 && tv2->v_type != VAR_NUMBER
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1609 && tv2->v_type != VAR_STRING))
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1610 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1611 if (tv2->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1612 f = tv2->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1613 else
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
1614 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
1615 switch (*op)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1616 {
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15784
diff changeset
1617 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
1618 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
1619 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
1620 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
1621 }
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1622 }
8364
991d8fd4d841 commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents: 8350
diff changeset
1623 #endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
1624 return OK;
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1625 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1626 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1627
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1628 semsg(_(e_letwrong), op);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1629 return FAIL;
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1630 }
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1631
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
1632 /*
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1633 * Evaluate the expression used in a ":for var in expr" command.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1634 * "arg" points to "var".
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1635 * Set "*errp" to TRUE for an error, FALSE otherwise;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1636 * Return a pointer that holds the info. Null when there is an error.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1637 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1638 void *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1639 eval_for_line(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1640 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1641 int *errp,
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
1642 exarg_T *eap,
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1643 evalarg_T *evalarg)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1644 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1645 forinfo_T *fi;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1646 char_u *expr;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1647 typval_T tv;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1648 list_T *l;
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1649 int skip = !(evalarg->eval_flags & EVAL_EVALUATE);
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1650
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1651 *errp = TRUE; // default: there is an error
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1652
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
1653 fi = ALLOC_CLEAR_ONE(forinfo_T);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1654 if (fi == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1655 return NULL;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1656
20859
876e16c48bd1 patch 8.2.0981: Vim9: cannot compile "[var, var] = list"
Bram Moolenaar <Bram@vim.org>
parents: 20751
diff changeset
1657 expr = skip_var_list(arg, TRUE, &fi->fi_varcount, &fi->fi_semicolon, FALSE);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1658 if (expr == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1659 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1660
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1661 expr = skipwhite_and_linebreak(expr, evalarg);
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1662 if (expr[0] != 'i' || expr[1] != 'n'
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1663 || !(expr[2] == NUL || VIM_ISWHITE(expr[2])))
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1664 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1665 emsg(_(e_missing_in));
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1666 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1667 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1668
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1669 if (skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1670 ++emsg_skip;
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1671 expr = skipwhite_and_linebreak(expr + 2, evalarg);
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1672 if (eval0(expr, &tv, eap, evalarg) == OK)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1673 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1674 *errp = FALSE;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1675 if (!skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1676 {
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1677 if (tv.v_type == VAR_LIST)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1678 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1679 l = tv.vval.v_list;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1680 if (l == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1681 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1682 // 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
1683 clear_tv(&tv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1684 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1685 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1686 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1687 // Need a real list here.
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20295
diff changeset
1688 CHECK_LIST_MATERIALIZE(l);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
1689
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1690 // 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
1691 // the list being used in "tv".
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1692 fi->fi_list = l;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1693 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
1694 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
1695 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1696 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1697 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
1698 {
15581
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1699 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
1700 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
1701 {
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1702 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
1703
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1704 // 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
1705 // 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
1706 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
1707 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
1708 }
c2382f0d1279 patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents: 15543
diff changeset
1709 clear_tv(&tv);
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1710 }
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1711 else if (tv.v_type == VAR_STRING)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1712 {
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1713 fi->fi_byte_idx = 0;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1714 fi->fi_string = tv.vval.v_string;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1715 tv.vval.v_string = NULL;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1716 if (fi->fi_string == NULL)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1717 fi->fi_string = vim_strsave((char_u *)"");
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1718 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1719 else
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1720 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
1721 emsg(_(e_listreq));
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1722 clear_tv(&tv);
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1723 }
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1724 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1725 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1726 if (skip)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1727 --emsg_skip;
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1728 fi->fi_break_count = evalarg->eval_break_count;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1729
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1730 return fi;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1731 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1732
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1733 /*
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1734 * Used when looping over a :for line, skip the "in expr" part.
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1735 */
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1736 void
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1737 skip_for_lines(void *fi_void, evalarg_T *evalarg)
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1738 {
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1739 forinfo_T *fi = (forinfo_T *)fi_void;
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1740 int i;
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1741
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1742 for (i = 0; i < fi->fi_break_count; ++i)
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1743 eval_next_line(evalarg);
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1744 }
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1745
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
1746 /*
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1747 * Use the first item in a ":for" list. Advance to the next.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1748 * Assign the values to the variable (list). "arg" points to the first one.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1749 * 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
1750 * something wrong.
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1751 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1752 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1753 next_for_item(void *fi_void, char_u *arg)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1754 {
4974
a594ce86b5ea updated for version 7.3.1232
Bram Moolenaar <bram@vim.org>
parents: 4936
diff changeset
1755 forinfo_T *fi = (forinfo_T *)fi_void;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1756 int result;
24440
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1757 int flag = ASSIGN_FOR_LOOP | (in_vim9script()
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1758 ? (ASSIGN_FINAL | ASSIGN_DECL | ASSIGN_NO_MEMBER_TYPE)
d2f9bdd938fa patch 8.2.2760: Vim9: no error for changing a for loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24434
diff changeset
1759 : 0);
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1760 listitem_T *item;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1761
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1762 if (fi->fi_blob != NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1763 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1764 typval_T tv;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1765
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1766 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
1767 return FALSE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1768 tv.v_type = VAR_NUMBER;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1769 tv.v_lock = VAR_FIXED;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1770 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
1771 ++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
1772 return ex_let_vars(arg, &tv, TRUE, fi->fi_semicolon,
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1773 fi->fi_varcount, flag, NULL) == OK;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1774 }
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1775
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1776 if (fi->fi_string != NULL)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1777 {
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1778 typval_T tv;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1779 int len;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1780
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1781 len = mb_ptr2len(fi->fi_string + fi->fi_byte_idx);
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1782 if (len == 0)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1783 return FALSE;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1784 tv.v_type = VAR_STRING;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1785 tv.v_lock = VAR_FIXED;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1786 tv.vval.v_string = vim_strnsave(fi->fi_string + fi->fi_byte_idx, len);
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1787 fi->fi_byte_idx += len;
24240
2194227d034a patch 8.2.2661: leaking memory when looping over a string
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
1788 result = ex_let_vars(arg, &tv, TRUE, fi->fi_semicolon,
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1789 fi->fi_varcount, flag, NULL) == OK;
24240
2194227d034a patch 8.2.2661: leaking memory when looping over a string
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
1790 vim_free(tv.vval.v_string);
2194227d034a patch 8.2.2661: leaking memory when looping over a string
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
1791 return result;
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1792 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
1793
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1794 item = fi->fi_lw.lw_item;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1795 if (item == NULL)
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1796 result = FALSE;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1797 else
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1798 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1799 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
1800 result = (ex_let_vars(arg, &item->li_tv, TRUE, fi->fi_semicolon,
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1801 fi->fi_varcount, flag, NULL) == OK);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1802 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1803 return result;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1804 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1805
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1806 /*
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1807 * Free the structure used to store info used by ":for".
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1808 */
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1809 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1810 free_for_info(void *fi_void)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1811 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
1812 forinfo_T *fi = (forinfo_T *)fi_void;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1813
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1814 if (fi == NULL)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1815 return;
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1816 if (fi->fi_list != NULL)
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1817 {
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1818 list_rem_watch(fi->fi_list, &fi->fi_lw);
359
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1819 list_unref(fi->fi_list);
6c62b9b939bd updated for version 7.0093
vimboss
parents: 357
diff changeset
1820 }
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1821 else if (fi->fi_blob != NULL)
15460
543cff56dd3f patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents: 15458
diff changeset
1822 blob_unref(fi->fi_blob);
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1823 else
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24194
diff changeset
1824 vim_free(fi->fi_string);
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1825 vim_free(fi);
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1826 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1827
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1828 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1829 set_context_for_expression(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1830 expand_T *xp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1831 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
1832 cmdidx_T cmdidx)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1833 {
22391
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1834 int has_expr = cmdidx != CMD_let && cmdidx != CMD_var;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1835 int c;
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1836 char_u *p;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1837
22391
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1838 if (cmdidx == CMD_let || cmdidx == CMD_var
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1839 || cmdidx == CMD_const || cmdidx == CMD_final)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1840 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1841 xp->xp_context = EXPAND_USER_VARS;
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
1842 if (vim_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL)
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1843 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1844 // ":let var1 var2 ...": find last space.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
1845 for (p = arg + STRLEN(arg); p >= arg; )
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1846 {
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1847 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
1848 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
1849 if (VIM_ISWHITE(*p))
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1850 break;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1851 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1852 return;
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1853 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1854 }
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1855 else
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1856 xp->xp_context = cmdidx == CMD_call ? EXPAND_FUNCTIONS
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1857 : EXPAND_EXPRESSION;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1858 while ((xp->xp_pattern = vim_strpbrk(arg,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1859 (char_u *)"\"'+-*/%.=!?~|&$([<>,#")) != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1860 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1861 c = *xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1862 if (c == '&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1863 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1864 c = xp->xp_pattern[1];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1865 if (c == '&')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1866 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1867 ++xp->xp_pattern;
22391
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1868 xp->xp_context = has_expr ? EXPAND_EXPRESSION : EXPAND_NOTHING;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1869 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1870 else if (c != ' ')
201
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1871 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1872 xp->xp_context = EXPAND_SETTINGS;
201
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1873 if ((c == 'l' || c == 'g') && xp->xp_pattern[2] == ':')
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1874 xp->xp_pattern += 2;
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1875
300fac7c5a2b updated for version 7.0059
vimboss
parents: 192
diff changeset
1876 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1877 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1878 else if (c == '$')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1879 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1880 // environment variable
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1881 xp->xp_context = EXPAND_ENV_VARS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1882 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1883 else if (c == '=')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1884 {
22391
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1885 has_expr = TRUE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1886 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1887 }
8763
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1888 else if (c == '#'
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1889 && xp->xp_context == EXPAND_EXPRESSION)
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1890 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1891 // Autoload function/variable contains '#'.
8763
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1892 break;
4b83af41f5db commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents: 8749
diff changeset
1893 }
6367
81c9b19ee0fb updated for version 7.4.516
Bram Moolenaar <bram@vim.org>
parents: 6361
diff changeset
1894 else if ((c == '<' || c == '#')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1895 && xp->xp_context == EXPAND_FUNCTIONS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1896 && vim_strchr(xp->xp_pattern, '(') == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1897 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1898 // Function name can start with "<SNR>" and contain '#'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1899 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1900 }
22391
a9fb7efa31d6 patch 8.2.1744: Vim9: using ":const!" is weird
Bram Moolenaar <Bram@vim.org>
parents: 22365
diff changeset
1901 else if (has_expr)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1902 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1903 if (c == '"') // string
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1904 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1905 while ((c = *++xp->xp_pattern) != NUL && c != '"')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1906 if (c == '\\' && xp->xp_pattern[1] != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1907 ++xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1908 xp->xp_context = EXPAND_NOTHING;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1909 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1910 else if (c == '\'') // literal string
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1911 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1912 // Trick: '' is like stopping and starting a literal string.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1913 while ((c = *++xp->xp_pattern) != NUL && c != '\'')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1914 /* skip */ ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1915 xp->xp_context = EXPAND_NOTHING;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1916 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1917 else if (c == '|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1918 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1919 if (xp->xp_pattern[1] == '|')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1920 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1921 ++xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1922 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1923 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1924 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1925 xp->xp_context = EXPAND_COMMANDS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1926 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1927 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1928 xp->xp_context = EXPAND_EXPRESSION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1929 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1930 else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1931 // 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
1932 // anyway.
76
0ef9cebc4f5d updated for version 7.0031
vimboss
parents: 71
diff changeset
1933 xp->xp_context = EXPAND_EXPRESSION;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1934 arg = xp->xp_pattern;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1935 if (*arg != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1936 while ((c = *++arg) != NUL && (c == ' ' || c == '\t'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1937 /* skip */ ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1938 }
23322
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1939
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1940 // ":exe one two" completes "two"
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1941 if ((cmdidx == CMD_execute
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1942 || cmdidx == CMD_echo
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1943 || cmdidx == CMD_echon
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1944 || cmdidx == CMD_echomsg)
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1945 && xp->xp_context == EXPAND_EXPRESSION)
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1946 {
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1947 for (;;)
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1948 {
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1949 char_u *n = skiptowhite(arg);
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1950
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1951 if (n == arg || IS_WHITE_OR_NUL(*skipwhite(n)))
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1952 break;
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1953 arg = skipwhite(n);
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1954 }
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1955 }
68df9697667a patch 8.2.2206: :exe command line completion only works for first argument
Bram Moolenaar <Bram@vim.org>
parents: 23299
diff changeset
1956
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1957 xp->xp_pattern = arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1958 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1959
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1960 /*
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1961 * Return TRUE if "pat" matches "text".
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1962 * 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
1963 */
17377
cb008de2a6ec patch 8.1.1687: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17375
diff changeset
1964 int
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1965 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
1966 {
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1967 int matches = FALSE;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1968 char_u *save_cpo;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1969 regmatch_T regmatch;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1970
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
1971 // avoid 'l' flag in 'cpoptions'
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1972 save_cpo = p_cpo;
23493
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
1973 p_cpo = empty_option;
8749
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1974 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
1975 if (regmatch.regprog != NULL)
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1976 {
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1977 regmatch.rm_ic = ic;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1978 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
1979 vim_regfree(regmatch.regprog);
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1980 }
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1981 p_cpo = save_cpo;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1982 return matches;
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1983 }
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1984
65a5a18d3acf commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents: 8742
diff changeset
1985 /*
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1986 * 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
1987 * "expr->name(arg)".
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1988 * Returns OK or FAIL.
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1989 */
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1990 static int
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1991 eval_func(
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1992 char_u **arg, // points to "(", will be advanced
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
1993 evalarg_T *evalarg,
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1994 char_u *name,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1995 int name_len,
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1996 typval_T *rettv,
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
1997 int flags,
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
1998 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
1999 {
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2000 int evaluate = flags & EVAL_EVALUATE;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2001 char_u *s = name;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2002 int len = name_len;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2003 partial_T *partial;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2004 int ret = OK;
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
2005 type_T *type = NULL;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2006
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2007 if (!evaluate)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2008 check_vars(s, len);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2009
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2010 // 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
2011 // use its contents.
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
2012 s = deref_func_name(s, &len, &partial,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
2013 in_vim9script() ? &type : NULL, !evaluate);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2014
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2015 // 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
2016 // the name invalid.
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2017 s = vim_strsave(s);
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2018 if (s == NULL || (flags & EVAL_CONSTANT))
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2019 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2020 else
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2021 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2022 funcexe_T funcexe;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2023
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2024 // Invoke the function.
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
2025 CLEAR_FIELD(funcexe);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2026 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
2027 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
2028 funcexe.evaluate = evaluate;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2029 funcexe.partial = partial;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2030 funcexe.basetv = basetv;
23527
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked
Bram Moolenaar <Bram@vim.org>
parents: 23525
diff changeset
2031 funcexe.check_type = type;
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
2032 ret = get_func_tv(s, len, rettv, arg, evalarg, &funcexe);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2033 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2034 vim_free(s);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2035
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2036 // 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
2037 // 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
2038 // 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
2039 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
2040 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2041 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
2042 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
2043 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2044
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2045 // 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
2046 // 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
2047 // 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
2048 if (evaluate && aborting())
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2049 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2050 if (ret == OK)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2051 clear_tv(rettv);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2052 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2053 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2054 return ret;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2055 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2056
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
2057 /*
22580
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2058 * Get the next line source line without advancing. But do skip over comment
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2059 * lines.
24553
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2060 * Only called for Vim9 script.
22580
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2061 */
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2062 static char_u *
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2063 getline_peek_skip_comments(evalarg_T *evalarg)
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2064 {
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2065 for (;;)
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2066 {
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2067 char_u *next = getline_peek(evalarg->eval_getline,
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2068 evalarg->eval_cookie);
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2069 char_u *p;
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2070
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2071 if (next == NULL)
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2072 break;
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2073 p = skipwhite(next);
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2074 if (*p != NUL && !vim9_comment_start(p))
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2075 return next;
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2076 (void)eval_next_line(evalarg);
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2077 }
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2078 return NULL;
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2079 }
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2080
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2081 /*
21148
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21142
diff changeset
2082 * If inside Vim9 script, "arg" points to the end of a line (ignoring a #
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21142
diff changeset
2083 * comment) and there is a next line, return the next line (skipping blanks)
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21142
diff changeset
2084 * and set "getnext".
24525
887121a6d7cf patch 8.2.2802: Vim9: illegal memory access
Bram Moolenaar <Bram@vim.org>
parents: 24518
diff changeset
2085 * Otherwise return the next non-white at or after "arg" and set "getnext" to
887121a6d7cf patch 8.2.2802: Vim9: illegal memory access
Bram Moolenaar <Bram@vim.org>
parents: 24518
diff changeset
2086 * FALSE.
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2087 * "arg" must point somewhere inside a line, not at the start.
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2088 */
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21026
diff changeset
2089 char_u *
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2090 eval_next_non_blank(char_u *arg, evalarg_T *evalarg, int *getnext)
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2091 {
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2092 char_u *p = skipwhite(arg);
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2093
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2094 *getnext = FALSE;
21279
8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out
Bram Moolenaar <Bram@vim.org>
parents: 21277
diff changeset
2095 if (in_vim9script()
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2096 && evalarg != NULL
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2097 && (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL)
24525
887121a6d7cf patch 8.2.2802: Vim9: illegal memory access
Bram Moolenaar <Bram@vim.org>
parents: 24518
diff changeset
2098 && (*p == NUL || (vim9_comment_start(p) && VIM_ISWHITE(p[-1]))))
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2099 {
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2100 char_u *next;
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2101
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2102 if (evalarg->eval_cookie != NULL)
22580
eb54d34ecd27 patch 8.2.1838: Vim9: cannot insert a comment line in an expression
Bram Moolenaar <Bram@vim.org>
parents: 22541
diff changeset
2103 next = getline_peek_skip_comments(evalarg);
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2104 else
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2105 next = peek_next_line_from_context(evalarg->eval_cctx);
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2106
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2107 if (next != NULL)
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2108 {
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2109 *getnext = TRUE;
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2110 return skipwhite(next);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2111 }
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2112 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2113 return p;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2114 }
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2115
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2116 /*
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2117 * To be called after eval_next_non_blank() sets "getnext" to TRUE.
24553
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2118 * Only called for Vim9 script.
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2119 */
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21026
diff changeset
2120 char_u *
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2121 eval_next_line(evalarg_T *evalarg)
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2122 {
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2123 garray_T *gap = &evalarg->eval_ga;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2124 char_u *line;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2125
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2126 if (evalarg->eval_cookie != NULL)
21889
e7e485a60caf patch 8.2.1494: missing change to calling eval_getline()
Bram Moolenaar <Bram@vim.org>
parents: 21865
diff changeset
2127 line = evalarg->eval_getline(0, evalarg->eval_cookie, 0,
e7e485a60caf patch 8.2.1494: missing change to calling eval_getline()
Bram Moolenaar <Bram@vim.org>
parents: 21865
diff changeset
2128 GETLINE_CONCAT_ALL);
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2129 else
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
2130 line = next_line_from_context(evalarg->eval_cctx, TRUE);
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
2131 ++evalarg->eval_break_count;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2132 if (gap->ga_itemsize > 0 && ga_grow(gap, 1) == OK)
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2133 {
24553
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2134 char_u *p = skipwhite(line);
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2135
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2136 // Going to concatenate the lines after parsing. For an empty or
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2137 // comment line use an empty string.
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2138 if (*p == NUL || vim9_comment_start(p))
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2139 {
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2140 vim_free(line);
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2141 line = vim_strsave((char_u *)"");
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2142 }
cb0d344bd381 patch 8.2.2816: Vim9: comment below expression in lambda causes problems
Bram Moolenaar <Bram@vim.org>
parents: 24533
diff changeset
2143
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2144 ((char_u **)gap->ga_data)[gap->ga_len] = line;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2145 ++gap->ga_len;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2146 }
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2147 else if (evalarg->eval_cookie != NULL)
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2148 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2149 vim_free(evalarg->eval_tofree);
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2150 evalarg->eval_tofree = line;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2151 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
2152 return skipwhite(line);
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2153 }
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2154
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
2155 /*
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
2156 * Call eval_next_non_blank() and get the next line if needed.
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
2157 */
21046
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2158 char_u *
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2159 skipwhite_and_linebreak(char_u *arg, evalarg_T *evalarg)
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2160 {
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2161 int getnext;
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2162 char_u *p = skipwhite(arg);
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2163
21148
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21142
diff changeset
2164 if (evalarg == NULL)
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21142
diff changeset
2165 return skipwhite(arg);
21046
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2166 eval_next_non_blank(p, evalarg, &getnext);
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2167 if (getnext)
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2168 return eval_next_line(evalarg);
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2169 return p;
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2170 }
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2171
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2172 /*
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2173 * After using "evalarg" filled from "eap": free the memory.
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2174 */
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2175 void
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2176 clear_evalarg(evalarg_T *evalarg, exarg_T *eap)
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2177 {
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2178 if (evalarg != NULL)
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2179 {
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2180 if (evalarg->eval_tofree != NULL)
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
2181 {
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2182 if (eap != NULL)
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2183 {
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2184 // We may need to keep the original command line, e.g. for
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2185 // ":let" it has the variable names. But we may also need the
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2186 // new one, "nextcmd" points into it. Keep both.
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2187 vim_free(eap->cmdline_tofree);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2188 eap->cmdline_tofree = *eap->cmdlinep;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2189 *eap->cmdlinep = evalarg->eval_tofree;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2190 }
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2191 else
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2192 vim_free(evalarg->eval_tofree);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2193 evalarg->eval_tofree = NULL;
21058
111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop
Bram Moolenaar <Bram@vim.org>
parents: 21056
diff changeset
2194 }
21220
ad13736a1783 patch 8.2.1161: Vim9: using freed memory
Bram Moolenaar <Bram@vim.org>
parents: 21208
diff changeset
2195
24190
5f3a2d31c48d patch 8.2.2636: memory leak when compiling inline function
Bram Moolenaar <Bram@vim.org>
parents: 24174
diff changeset
2196 VIM_CLEAR(evalarg->eval_tofree_cmdline);
5f3a2d31c48d patch 8.2.2636: memory leak when compiling inline function
Bram Moolenaar <Bram@vim.org>
parents: 24174
diff changeset
2197 VIM_CLEAR(evalarg->eval_tofree_lambda);
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2198 }
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2199 }
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2200
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
2201 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2202 * The "evaluate" argument: When FALSE, the argument is only parsed but not
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2203 * executed. The function may return OK, but the rettv will be of type
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2204 * VAR_UNKNOWN. The function still returns FAIL for a syntax error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2205 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2206
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2207 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2208 * Handle zero level expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2209 * This calls eval1() and handles error message and nextcmd.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2210 * Put the result in "rettv" when returning OK and "evaluate" is TRUE.
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
2211 * Note: "rettv.v_lock" is not set.
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2212 * "evalarg" can be NULL, EVALARG_EVALUATE or a pointer.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2213 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2214 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
2215 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2216 eval0(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2217 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
2218 typval_T *rettv,
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2219 exarg_T *eap,
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2220 evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2221 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2222 int ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2223 char_u *p;
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
2224 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
2225 int called_emsg_before = called_emsg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2226 int flags = evalarg == NULL ? 0 : evalarg->eval_flags;
24958
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2227 int end_error = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2228
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2229 p = skipwhite(arg);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2230 ret = eval1(&p, rettv, evalarg);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2231 p = skipwhite(p);
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2232
24958
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2233 if (ret != FAIL)
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2234 end_error = !ends_excmd2(arg, p);
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2235 if (ret == FAIL || end_error)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2236 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2237 if (ret != FAIL)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2238 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2239 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2240 * Report the invalid expression unless the expression evaluation has
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2241 * 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
2242 * 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
2243 * Also check called_emsg for when using assert_fails().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2244 */
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2245 if (!aborting()
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2246 && did_emsg == did_emsg_before
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2247 && called_emsg == called_emsg_before
24174
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
2248 && (flags & EVAL_CONSTANT) == 0
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
2249 && (!in_vim9script() || !vim9_bad_comment(p)))
24958
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2250 {
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2251 if (end_error)
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2252 semsg(_(e_trailing_arg), p);
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2253 else
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2254 semsg(_(e_invexpr2), arg);
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24895
diff changeset
2255 }
23096
b6aadb0b3a56 patch 8.2.2094: when an expression fails getting next command may be wrong
Bram Moolenaar <Bram@vim.org>
parents: 23072
diff changeset
2256
b6aadb0b3a56 patch 8.2.2094: when an expression fails getting next command may be wrong
Bram Moolenaar <Bram@vim.org>
parents: 23072
diff changeset
2257 // Some of the expression may not have been consumed. Do not check for
23191
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 23096
diff changeset
2258 // a next command to avoid more errors, unless "|" is following, which
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 23096
diff changeset
2259 // could only be a command separator.
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 23096
diff changeset
2260 if (eap != NULL && skipwhite(p)[0] == '|' && skipwhite(p)[1] != '|')
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 23096
diff changeset
2261 eap->nextcmd = check_nextcmd(p);
23096
b6aadb0b3a56 patch 8.2.2094: when an expression fails getting next command may be wrong
Bram Moolenaar <Bram@vim.org>
parents: 23072
diff changeset
2262 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2263 }
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2264
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2265 if (eap != NULL)
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2266 eap->nextcmd = check_nextcmd(p);
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2267
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2268 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2269 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2270
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2271 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2272 * Handle top level expression:
1800
e7633eb32cfd updated for version 7.2-098
vimboss
parents: 1794
diff changeset
2273 * expr2 ? expr1 : expr1
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2274 * expr2 ?? expr1
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2275 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2276 * "arg" must point to the first non-white of the expression.
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2277 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2278 *
533
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
2279 * Note: "rettv.v_lock" is not set.
c8b6b7e1005d updated for version 7.0150
vimboss
parents: 531
diff changeset
2280 *
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2281 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2282 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
2283 int
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2284 eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2285 {
21022
9d8634e91d1b patch 8.2.1062: Vim9: no line break allowed inside "cond ? val1 : val2"
Bram Moolenaar <Bram@vim.org>
parents: 21002
diff changeset
2286 char_u *p;
9d8634e91d1b patch 8.2.1062: Vim9: no line break allowed inside "cond ? val1 : val2"
Bram Moolenaar <Bram@vim.org>
parents: 21002
diff changeset
2287 int getnext;
9d8634e91d1b patch 8.2.1062: Vim9: no line break allowed inside "cond ? val1 : val2"
Bram Moolenaar <Bram@vim.org>
parents: 21002
diff changeset
2288
22246
6f83d2adee74 patch 8.2.1672: v_lock is used when it is not initialized
Bram Moolenaar <Bram@vim.org>
parents: 22244
diff changeset
2289 CLEAR_POINTER(rettv);
6f83d2adee74 patch 8.2.1672: v_lock is used when it is not initialized
Bram Moolenaar <Bram@vim.org>
parents: 22244
diff changeset
2290
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2291 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2292 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2293 */
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2294 if (eval2(arg, rettv, evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2295 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2296
21022
9d8634e91d1b patch 8.2.1062: Vim9: no line break allowed inside "cond ? val1 : val2"
Bram Moolenaar <Bram@vim.org>
parents: 21002
diff changeset
2297 p = eval_next_non_blank(*arg, evalarg, &getnext);
9d8634e91d1b patch 8.2.1062: Vim9: no line break allowed inside "cond ? val1 : val2"
Bram Moolenaar <Bram@vim.org>
parents: 21002
diff changeset
2298 if (*p == '?')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2299 {
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2300 int op_falsy = p[1] == '?';
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2301 int result;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2302 typval_T var2;
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2303 evalarg_T *evalarg_used = evalarg;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2304 evalarg_T local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2305 int orig_flags;
21002
4852db420162 patch 8.2.1052: build failure with older compilers
Bram Moolenaar <Bram@vim.org>
parents: 20996
diff changeset
2306 int evaluate;
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2307 int vim9script = in_vim9script();
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2308
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2309 if (evalarg == NULL)
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2310 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2311 CLEAR_FIELD(local_evalarg);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2312 evalarg_used = &local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2313 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2314 orig_flags = evalarg_used->eval_flags;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2315 evaluate = evalarg_used->eval_flags & EVAL_EVALUATE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2316
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2317 if (getnext)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2318 *arg = eval_next_line(evalarg_used);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2319 else
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2320 {
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2321 if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2322 {
24339
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
2323 error_white_both(p, op_falsy ? 2 : 1);
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2324 clear_tv(rettv);
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2325 return FAIL;
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2326 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2327 *arg = p;
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2328 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2329
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2330 result = FALSE;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2331 if (evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2332 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2333 int error = FALSE;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2334
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2335 if (op_falsy)
21831
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly
Bram Moolenaar <Bram@vim.org>
parents: 21828
diff changeset
2336 result = tv2bool(rettv);
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2337 else if (vim9script)
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2338 result = tv_get_bool_chk(rettv, &error);
21831
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly
Bram Moolenaar <Bram@vim.org>
parents: 21828
diff changeset
2339 else if (tv_get_number_chk(rettv, &error) != 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2340 result = TRUE;
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2341 if (error || !op_falsy || !result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2342 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2343 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2344 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2345 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2346
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2347 /*
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
2348 * Get the second variable. Recursive!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2349 */
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2350 if (op_falsy)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2351 ++*arg;
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2352 if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[1]))
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2353 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2354 error_white_both(*arg - (op_falsy ? 1 : 0), op_falsy ? 2 : 1);
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2355 clear_tv(rettv);
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2356 return FAIL;
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2357 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2358 *arg = skipwhite_and_linebreak(*arg + 1, evalarg_used);
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2359 evalarg_used->eval_flags = (op_falsy ? !result : result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2360 ? orig_flags : orig_flags & ~EVAL_EVALUATE;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2361 if (eval1(arg, &var2, evalarg_used) == FAIL)
21925
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21915
diff changeset
2362 {
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21915
diff changeset
2363 evalarg_used->eval_flags = orig_flags;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2364 return FAIL;
21925
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21915
diff changeset
2365 }
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2366 if (!op_falsy || !result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2367 *rettv = var2;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2368
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2369 if (!op_falsy)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2370 {
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2371 /*
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2372 * Check for the ":".
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2373 */
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2374 p = eval_next_non_blank(*arg, evalarg_used, &getnext);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2375 if (*p != ':')
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2376 {
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2377 emsg(_(e_missing_colon));
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2378 if (evaluate && result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2379 clear_tv(rettv);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2380 evalarg_used->eval_flags = orig_flags;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2381 return FAIL;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2382 }
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2383 if (getnext)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2384 *arg = eval_next_line(evalarg_used);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2385 else
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2386 {
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2387 if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2388 {
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2389 error_white_both(p, 1);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2390 clear_tv(rettv);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2391 evalarg_used->eval_flags = orig_flags;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2392 return FAIL;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2393 }
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2394 *arg = p;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2395 }
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2396
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2397 /*
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2398 * Get the third variable. Recursive!
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2399 */
22500
ef8a3177edc1 patch 8.2.1798: Vim9: trinary operator condition is too permissive
Bram Moolenaar <Bram@vim.org>
parents: 22494
diff changeset
2400 if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[1]))
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2401 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2402 error_white_both(*arg, 1);
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2403 clear_tv(rettv);
21925
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21915
diff changeset
2404 evalarg_used->eval_flags = orig_flags;
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2405 return FAIL;
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2406 }
22492
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2407 *arg = skipwhite_and_linebreak(*arg + 1, evalarg_used);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2408 evalarg_used->eval_flags = !result ? orig_flags
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2409 : orig_flags & ~EVAL_EVALUATE;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2410 if (eval1(arg, &var2, evalarg_used) == FAIL)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2411 {
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2412 if (evaluate && result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2413 clear_tv(rettv);
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2414 evalarg_used->eval_flags = orig_flags;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2415 return FAIL;
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2416 }
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2417 if (evaluate && !result)
0e03ef68e738 patch 8.2.1794: no falsy Coalescing operator
Bram Moolenaar <Bram@vim.org>
parents: 22391
diff changeset
2418 *rettv = var2;
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2419 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2420
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2421 if (evalarg == NULL)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2422 clear_evalarg(&local_evalarg, NULL);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2423 else
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2424 evalarg->eval_flags = orig_flags;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2425 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2426
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2427 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2428 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2429
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2430 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2431 * Handle first level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2432 * expr2 || expr2 || expr2 logical OR
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2433 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2434 * "arg" must point to the first non-white of the expression.
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2435 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2436 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2437 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2438 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2439 static int
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2440 eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2441 {
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2442 char_u *p;
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2443 int getnext;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2444
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2445 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2446 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2447 */
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2448 if (eval3(arg, rettv, evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2449 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2450
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2451 /*
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2452 * Handle the "||" operator.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2453 */
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2454 p = eval_next_non_blank(*arg, evalarg, &getnext);
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2455 if (p[0] == '|' && p[1] == '|')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2456 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2457 evalarg_T *evalarg_used = evalarg;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2458 evalarg_T local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2459 int evaluate;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2460 int orig_flags;
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2461 long result = FALSE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2462 typval_T var2;
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2463 int error = FALSE;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2464 int vim9script = in_vim9script();
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2465
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2466 if (evalarg == NULL)
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2467 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2468 CLEAR_FIELD(local_evalarg);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2469 evalarg_used = &local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2470 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2471 orig_flags = evalarg_used->eval_flags;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2472 evaluate = orig_flags & EVAL_EVALUATE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2473 if (evaluate)
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2474 {
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2475 if (vim9script)
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2476 result = tv_get_bool_chk(rettv, &error);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2477 else if (tv_get_number_chk(rettv, &error) != 0)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2478 result = TRUE;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2479 clear_tv(rettv);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2480 if (error)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2481 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2482 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2483
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2484 /*
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2485 * Repeat until there is no following "||".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2486 */
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2487 while (p[0] == '|' && p[1] == '|')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2488 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2489 if (getnext)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2490 *arg = eval_next_line(evalarg_used);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2491 else
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2492 {
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2493 if (evaluate && in_vim9script() && !VIM_ISWHITE(p[-1]))
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2494 {
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2495 error_white_both(p, 2);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2496 clear_tv(rettv);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2497 return FAIL;
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2498 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2499 *arg = p;
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2500 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2501
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2502 /*
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2503 * Get the second variable.
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2504 */
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2505 if (evaluate && in_vim9script() && !IS_WHITE_OR_NUL((*arg)[2]))
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2506 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2507 error_white_both(*arg, 2);
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2508 clear_tv(rettv);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2509 return FAIL;
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2510 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2511 *arg = skipwhite_and_linebreak(*arg + 2, evalarg_used);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2512 evalarg_used->eval_flags = !result ? orig_flags
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2513 : orig_flags & ~EVAL_EVALUATE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2514 if (eval3(arg, &var2, evalarg_used) == FAIL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2515 return FAIL;
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2516
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2517 /*
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2518 * Compute the result.
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2519 */
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2520 if (evaluate && !result)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2521 {
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2522 if (vim9script)
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2523 result = tv_get_bool_chk(&var2, &error);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2524 else if (tv_get_number_chk(&var2, &error) != 0)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2525 result = TRUE;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2526 clear_tv(&var2);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2527 if (error)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2528 return FAIL;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2529 }
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2530 if (evaluate)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2531 {
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2532 if (vim9script)
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2533 {
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2534 rettv->v_type = VAR_BOOL;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2535 rettv->vval.v_number = result ? VVAL_TRUE : VVAL_FALSE;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2536 }
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2537 else
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2538 {
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2539 rettv->v_type = VAR_NUMBER;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2540 rettv->vval.v_number = result;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2541 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2542 }
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2543
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2544 p = eval_next_non_blank(*arg, evalarg_used, &getnext);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2545 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2546
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2547 if (evalarg == NULL)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2548 clear_evalarg(&local_evalarg, NULL);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2549 else
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2550 evalarg->eval_flags = orig_flags;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2551 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2552
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2553 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2554 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2555
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2556 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2557 * Handle second level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2558 * expr3 && expr3 && expr3 logical AND
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2559 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2560 * "arg" must point to the first non-white of the expression.
21644
7d3ba70a03f1 patch 8.2.1372: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21642
diff changeset
2561 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2562 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2563 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2564 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2565 static int
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2566 eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2567 {
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2568 char_u *p;
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2569 int getnext;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2570
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2571 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2572 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2573 */
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2574 if (eval4(arg, rettv, evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2575 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2576
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2577 /*
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2578 * Handle the "&&" operator.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2579 */
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2580 p = eval_next_non_blank(*arg, evalarg, &getnext);
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2581 if (p[0] == '&' && p[1] == '&')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2582 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2583 evalarg_T *evalarg_used = evalarg;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2584 evalarg_T local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2585 int orig_flags;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2586 int evaluate;
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2587 long result = TRUE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2588 typval_T var2;
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2589 int error = FALSE;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2590 int vim9script = in_vim9script();
21024
02b03915855d patch 8.2.1063: Vim9: no line break allowed before || or &&
Bram Moolenaar <Bram@vim.org>
parents: 21022
diff changeset
2591
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2592 if (evalarg == NULL)
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2593 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2594 CLEAR_FIELD(local_evalarg);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2595 evalarg_used = &local_evalarg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2596 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2597 orig_flags = evalarg_used->eval_flags;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2598 evaluate = orig_flags & EVAL_EVALUATE;
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2599 if (evaluate)
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2600 {
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2601 if (vim9script)
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2602 result = tv_get_bool_chk(rettv, &error);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2603 else if (tv_get_number_chk(rettv, &error) == 0)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2604 result = FALSE;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2605 clear_tv(rettv);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2606 if (error)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2607 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2608 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2609
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2610 /*
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2611 * Repeat until there is no following "&&".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2612 */
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2613 while (p[0] == '&' && p[1] == '&')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2614 {
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2615 if (getnext)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2616 *arg = eval_next_line(evalarg_used);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2617 else
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2618 {
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2619 if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2620 {
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2621 error_white_both(p, 2);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2622 clear_tv(rettv);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2623 return FAIL;
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2624 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2625 *arg = p;
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2626 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2627
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2628 /*
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2629 * Get the second variable.
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2630 */
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2631 if (evaluate && in_vim9script() && !IS_WHITE_OR_NUL((*arg)[2]))
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2632 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2633 error_white_both(*arg, 2);
21642
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2634 clear_tv(rettv);
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2635 return FAIL;
5ae89c8633ae patch 8.2.1371: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21636
diff changeset
2636 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2637 *arg = skipwhite_and_linebreak(*arg + 2, evalarg_used);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2638 evalarg_used->eval_flags = result ? orig_flags
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2639 : orig_flags & ~EVAL_EVALUATE;
22202
7899b4e2880c patch 8.2.1650: Vim9: result of && and || expression is not bool in script
Bram Moolenaar <Bram@vim.org>
parents: 22021
diff changeset
2640 CLEAR_FIELD(var2);
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2641 if (eval4(arg, &var2, evalarg_used) == FAIL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2642 return FAIL;
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2643
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2644 /*
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2645 * Compute the result.
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2646 */
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2647 if (evaluate && result)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2648 {
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2649 if (vim9script)
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2650 result = tv_get_bool_chk(&var2, &error);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2651 else if (tv_get_number_chk(&var2, &error) == 0)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2652 result = FALSE;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2653 clear_tv(&var2);
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2654 if (error)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2655 return FAIL;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2656 }
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2657 if (evaluate)
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2658 {
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2659 if (vim9script)
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2660 {
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2661 rettv->v_type = VAR_BOOL;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2662 rettv->vval.v_number = result ? VVAL_TRUE : VVAL_FALSE;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2663 }
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2664 else
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2665 {
22494
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2666 rettv->v_type = VAR_NUMBER;
4c21f7f6f9e3 patch 8.2.1795: Vim9: operators && and || have a confusing result
Bram Moolenaar <Bram@vim.org>
parents: 22492
diff changeset
2667 rettv->vval.v_number = result;
21309
31a3f4d408b9 patch 8.2.1205: Vim9: && and || work different when not compiled
Bram Moolenaar <Bram@vim.org>
parents: 21307
diff changeset
2668 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2669 }
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2670
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2671 p = eval_next_non_blank(*arg, evalarg_used, &getnext);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2672 }
21277
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2673
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2674 if (evalarg == NULL)
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2675 clear_evalarg(&local_evalarg, NULL);
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2676 else
1e5c29d4e5b3 patch 8.2.1189: Vim9: line continuation in lambda doesn't always work
Bram Moolenaar <Bram@vim.org>
parents: 21251
diff changeset
2677 evalarg->eval_flags = orig_flags;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2678 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2679
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2680 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2681 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2682
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2683 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2684 * Handle third level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2685 * var1 == var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2686 * var1 =~ var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2687 * var1 != var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2688 * var1 !~ var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2689 * var1 > var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2690 * var1 >= var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2691 * var1 < var2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2692 * var1 <= var2
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2693 * var1 is var2
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2694 * var1 isnot var2
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2695 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2696 * "arg" must point to the first non-white of the expression.
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2697 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2698 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2699 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2700 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2701 static int
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2702 eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2703 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2704 char_u *p;
21026
fe2ed85db946 patch 8.2.1064: Vim9: no line break allowed before comperators
Bram Moolenaar <Bram@vim.org>
parents: 21024
diff changeset
2705 int getnext;
23553
5c094273c015 patch 8.2.2319: "exptype_T" can be read as "expected type"
Bram Moolenaar <Bram@vim.org>
parents: 23551
diff changeset
2706 exprtype_T type = EXPR_UNKNOWN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2707 int len = 2;
21546
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2708 int type_is = FALSE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2709
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2710 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2711 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2712 */
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2713 if (eval5(arg, rettv, evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2714 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2715
21026
fe2ed85db946 patch 8.2.1064: Vim9: no line break allowed before comperators
Bram Moolenaar <Bram@vim.org>
parents: 21024
diff changeset
2716 p = eval_next_non_blank(*arg, evalarg, &getnext);
21546
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2717 type = get_compare_type(p, &len, &type_is);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2718
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2719 /*
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2720 * If there is a comparative operator, use it.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2721 */
19017
d9ea4f0bfd34 patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents: 19001
diff changeset
2722 if (type != EXPR_UNKNOWN)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2723 {
21425
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2724 typval_T var2;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2725 int ic;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2726 int vim9script = in_vim9script();
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2727 int evaluate = evalarg == NULL
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2728 ? 0 : (evalarg->eval_flags & EVAL_EVALUATE);
21425
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2729
21026
fe2ed85db946 patch 8.2.1064: Vim9: no line break allowed before comperators
Bram Moolenaar <Bram@vim.org>
parents: 21024
diff changeset
2730 if (getnext)
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2731 {
21026
fe2ed85db946 patch 8.2.1064: Vim9: no line break allowed before comperators
Bram Moolenaar <Bram@vim.org>
parents: 21024
diff changeset
2732 *arg = eval_next_line(evalarg);
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2733 p = *arg;
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2734 }
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2735 else if (evaluate && vim9script && !VIM_ISWHITE(**arg))
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2736 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2737 error_white_both(*arg, len);
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2738 clear_tv(rettv);
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2739 return FAIL;
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2740 }
21026
fe2ed85db946 patch 8.2.1064: Vim9: no line break allowed before comperators
Bram Moolenaar <Bram@vim.org>
parents: 21024
diff changeset
2741
21546
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2742 if (vim9script && type_is && (p[len] == '?' || p[len] == '#'))
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2743 {
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2744 semsg(_(e_invexpr2), p);
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2745 clear_tv(rettv);
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2746 return FAIL;
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2747 }
4d3e983313dc patch 8.2.1323: Vim9: invalid operators only rejected in :def function
Bram Moolenaar <Bram@vim.org>
parents: 21512
diff changeset
2748
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2749 // extra question mark appended: ignore case
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2750 if (p[len] == '?')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2751 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2752 ic = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2753 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2754 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2755 // extra '#' appended: match case
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2756 else if (p[len] == '#')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2757 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2758 ic = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2759 ++len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2760 }
21425
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2761 // nothing appended: use 'ignorecase' if not in Vim script
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2762 else
21425
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2763 ic = vim9script ? FALSE : p_ic;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2764
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2765 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2766 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2767 */
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2768 if (evaluate && vim9script && !IS_WHITE_OR_NUL(p[len]))
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2769 {
24339
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
2770 error_white_both(p, len);
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2771 clear_tv(rettv);
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2772 return FAIL;
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2773 }
21046
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
2774 *arg = skipwhite_and_linebreak(p + len, evalarg);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2775 if (eval5(arg, &var2, evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2776 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2777 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2778 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2779 }
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2780 if (evaluate)
13274
f4b4162264b1 patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents: 13272
diff changeset
2781 {
21251
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2782 int ret;
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2783
21425
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21385
diff changeset
2784 if (vim9script && check_compare_types(type, rettv, &var2) == FAIL)
21251
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2785 {
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2786 ret = FAIL;
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2787 clear_tv(rettv);
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2788 }
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2789 else
d1215fcdbca8 patch 8.2.1176: Vim9: not enough type checking in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21220
diff changeset
2790 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
2791 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
2792 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
2793 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2794 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2795
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2796 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2797 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2798
22683
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2799 /*
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2800 * Make a copy of blob "tv1" and append blob "tv2".
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2801 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2802 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2803 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
2804 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2805 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
2806 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
2807 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
2808 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2809
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2810 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
2811 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2812 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
2813 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
2814 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
2815 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
2816
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2817 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
2818 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
2819 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2820 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2821
22683
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2822 /*
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2823 * Make a copy of list "tv1" and append list "tv2".
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2824 */
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2825 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2826 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
2827 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2828 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
2829
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2830 // concatenate Lists
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2831 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
2832 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2833 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
2834 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
2835 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2836 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2837 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
2838 *tv1 = var3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2839 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2840 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2841
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2842 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2843 * Handle fourth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2844 * + number addition
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2845 * - number subtraction
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2846 * . 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
2847 * .. string concatenation
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2848 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2849 * "arg" must point to the first non-white of the expression.
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
2850 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2851 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2852 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2853 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2854 static int
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2855 eval5(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2856 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2857 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2858 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2859 */
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2860 if (eval6(arg, rettv, evalarg, FALSE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2861 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2862
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2863 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2864 * Repeat computing, until no '+', '-' or '.' is following.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2865 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2866 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2867 {
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
2868 int evaluate;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2869 int getnext;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2870 char_u *p;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2871 int op;
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2872 int oplen;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2873 int concat;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2874 typval_T var2;
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2875 int vim9script = in_vim9script();
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2876
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
2877 // "." is only string concatenation when scriptversion is 1
24047
b535ab17d160 patch 8.2.2565: Vim9: "..=" not always recognized
Bram Moolenaar <Bram@vim.org>
parents: 23982
diff changeset
2878 // "+=", "-=" and "..=" are assignments
24533
9c404d78d767 patch 8.2.2806: Vim9: using "++nr" as a command might not work
Bram Moolenaar <Bram@vim.org>
parents: 24525
diff changeset
2879 // "++" and "--" on the next line are a separate command.
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2880 p = eval_next_non_blank(*arg, evalarg, &getnext);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2881 op = *p;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2882 concat = op == '.' && (*(p + 1) == '.' || current_sctx.sc_version < 2);
24047
b535ab17d160 patch 8.2.2565: Vim9: "..=" not always recognized
Bram Moolenaar <Bram@vim.org>
parents: 23982
diff changeset
2883 if ((op != '+' && op != '-' && !concat) || p[1] == '='
b535ab17d160 patch 8.2.2565: Vim9: "..=" not always recognized
Bram Moolenaar <Bram@vim.org>
parents: 23982
diff changeset
2884 || (p[1] == '.' && p[2] == '='))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2885 break;
24533
9c404d78d767 patch 8.2.2806: Vim9: using "++nr" as a command might not work
Bram Moolenaar <Bram@vim.org>
parents: 24525
diff changeset
2886 if (getnext && (op == '+' || op == '-') && p[0] == p[1])
9c404d78d767 patch 8.2.2806: Vim9: using "++nr" as a command might not work
Bram Moolenaar <Bram@vim.org>
parents: 24525
diff changeset
2887 break;
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
2888
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2889 evaluate = evalarg == NULL ? 0 : (evalarg->eval_flags & EVAL_EVALUATE);
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
2890 oplen = (concat && p[1] == '.') ? 2 : 1;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2891 if (getnext)
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
2892 *arg = eval_next_line(evalarg);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2893 else
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2894 {
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2895 if (evaluate && vim9script && !VIM_ISWHITE(**arg))
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2896 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
2897 error_white_both(*arg, oplen);
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2898 clear_tv(rettv);
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2899 return FAIL;
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2900 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
2901 *arg = p;
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2902 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2903 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
2904 && rettv->v_type != VAR_BLOB))
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2905 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2906 && (op == '.' || rettv->v_type != VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2907 #endif
22683
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2908 && evaluate)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2909 {
22683
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2910 int error = FALSE;
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2911
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
2912 // 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
2913 // 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
2914 // 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
2915 // 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
2916 // 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
2917 // 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
2918 // side effects after an error.
22683
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2919 if (op != '.')
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2920 tv_get_number_chk(rettv, &error);
5cbcd3768125 patch 8.2.1890: Vim9: strange error for subtracting from a list
Bram Moolenaar <Bram@vim.org>
parents: 22606
diff changeset
2921 if ((op == '.' && tv_get_string_chk(rettv) == NULL) || error)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2922 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2923 clear_tv(rettv);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2924 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2925 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2926 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2927
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2928 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2929 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2930 */
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2931 if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[oplen]))
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2932 {
24707
ad7cac75b2d1 patch 8.2.2892: error message contains random characters
Bram Moolenaar <Bram@vim.org>
parents: 24655
diff changeset
2933 error_white_both(*arg, oplen);
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2934 clear_tv(rettv);
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2935 return FAIL;
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2936 }
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
2937 *arg = skipwhite_and_linebreak(*arg + oplen, evalarg);
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2938 if (eval6(arg, &var2, evalarg, !vim9script && op == '.') == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2939 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2940 clear_tv(rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2941 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2942 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2943
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2944 if (evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2945 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2946 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2947 * Compute the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2948 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2949 if (op == '.')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2950 {
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2951 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2952 char_u *s1 = tv_get_string_buf(rettv, buf1);
21771
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2953 char_u *s2 = NULL;
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2954
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2955 if (vim9script && (var2.v_type == VAR_VOID
21771
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2956 || var2.v_type == VAR_CHANNEL
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2957 || var2.v_type == VAR_JOB))
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
2958 semsg(_(e_using_invalid_value_as_string_str),
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
2959 vartype_name(var2.v_type));
21771
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2960 #ifdef FEAT_FLOAT
21949
e6608764248a patch 8.2.1524: no longer get an error for string concatenation with float
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
2961 else if (vim9script && var2.v_type == VAR_FLOAT)
21771
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2962 {
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2963 vim_snprintf((char *)buf2, NUMBUFLEN, "%g",
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2964 var2.vval.v_float);
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2965 s2 = buf2;
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2966 }
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2967 #endif
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2968 else
fcf978444298 patch 8.2.1435: Vim9: always converting to string for ".." leads to mistakes
Bram Moolenaar <Bram@vim.org>
parents: 21733
diff changeset
2969 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
2970 if (s2 == NULL) // type error ?
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2971 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2972 clear_tv(rettv);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2973 clear_tv(&var2);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2974 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
2975 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
2976 p = concat_str(s1, s2);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2977 clear_tv(rettv);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2978 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
2979 rettv->vval.v_string = p;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2980 }
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
2981 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
2982 && 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
2983 eval_addblob(rettv, &var2);
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2984 else if (op == '+' && rettv->v_type == VAR_LIST
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
2985 && var2.v_type == VAR_LIST)
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2986 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
2987 if (eval_addlist(rettv, &var2) == FAIL)
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2988 return FAIL;
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
2989 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2990 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2991 {
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2992 int error = FALSE;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2993 varnumber_T n1, n2;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2994 #ifdef FEAT_FLOAT
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2995 float_T f1 = 0, f2 = 0;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
2996
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2997 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2998 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
2999 f1 = rettv->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3000 n1 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3001 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3002 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3003 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3004 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3005 n1 = tv_get_number_chk(rettv, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3006 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3007 {
24343
7735cbff607d patch 8.2.2712: memory leak when adding to a blob fails
Bram Moolenaar <Bram@vim.org>
parents: 24339
diff changeset
3008 // This can only happen for "list + non-list" or
7735cbff607d patch 8.2.2712: memory leak when adding to a blob fails
Bram Moolenaar <Bram@vim.org>
parents: 24339
diff changeset
3009 // "blob + non-blob". For "non-list + ..." or
7735cbff607d patch 8.2.2712: memory leak when adding to a blob fails
Bram Moolenaar <Bram@vim.org>
parents: 24339
diff changeset
3010 // "something - ...", we returned before evaluating the
7735cbff607d patch 8.2.2712: memory leak when adding to a blob fails
Bram Moolenaar <Bram@vim.org>
parents: 24339
diff changeset
3011 // 2nd operand.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3012 clear_tv(rettv);
24343
7735cbff607d patch 8.2.2712: memory leak when adding to a blob fails
Bram Moolenaar <Bram@vim.org>
parents: 24339
diff changeset
3013 clear_tv(&var2);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3014 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3015 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3016 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3017 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3018 f1 = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3019 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3020 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3021 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3022 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3023 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3024 f2 = var2.vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3025 n2 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3026 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3027 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3028 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3029 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3030 n2 = tv_get_number_chk(&var2, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3031 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3032 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3033 clear_tv(rettv);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3034 clear_tv(&var2);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3035 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3036 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3037 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3038 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3039 f2 = n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3040 #endif
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3041 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3042 clear_tv(rettv);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3043
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3044 #ifdef FEAT_FLOAT
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3045 // 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
3046 if (rettv->v_type == VAR_FLOAT || var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3047 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3048 if (op == '+')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3049 f1 = f1 + f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3050 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3051 f1 = f1 - f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3052 rettv->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3053 rettv->vval.v_float = f1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3054 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3055 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3056 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3057 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3058 if (op == '+')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3059 n1 = n1 + n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3060 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3061 n1 = n1 - n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3062 rettv->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3063 rettv->vval.v_number = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3064 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3065 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3066 clear_tv(&var2);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3067 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3068 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3069 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3070 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3071
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3072 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3073 * Handle fifth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3074 * * number multiplication
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3075 * / number division
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3076 * % number modulo
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3077 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3078 * "arg" must point to the first non-white of the expression.
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
3079 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3080 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3081 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3082 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3083 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3084 eval6(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3085 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3086 typval_T *rettv,
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3087 evalarg_T *evalarg,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3088 int want_string) // after "." operator
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3089 {
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3090 #ifdef FEAT_FLOAT
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3091 int use_float = FALSE;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3092 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3093
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3094 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3095 * Get the first variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3096 */
24518
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3097 if (eval7t(arg, rettv, evalarg, want_string) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3098 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3099
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3100 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3101 * Repeat computing, until no '*', '/' or '%' is following.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3102 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3103 for (;;)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3104 {
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3105 int evaluate;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3106 int getnext;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3107 typval_T var2;
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
3108 char_u *p;
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3109 int op;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3110 varnumber_T n1, n2;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3111 #ifdef FEAT_FLOAT
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3112 float_T f1, f2;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3113 #endif
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3114 int error;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3115
24047
b535ab17d160 patch 8.2.2565: Vim9: "..=" not always recognized
Bram Moolenaar <Bram@vim.org>
parents: 23982
diff changeset
3116 // "*=", "/=" and "%=" are assignments
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
3117 p = eval_next_non_blank(*arg, evalarg, &getnext);
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
3118 op = *p;
24047
b535ab17d160 patch 8.2.2565: Vim9: "..=" not always recognized
Bram Moolenaar <Bram@vim.org>
parents: 23982
diff changeset
3119 if ((op != '*' && op != '/' && op != '%') || p[1] == '=')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3120 break;
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3121
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3122 evaluate = evalarg == NULL ? 0 : (evalarg->eval_flags & EVAL_EVALUATE);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3123 if (getnext)
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
3124 *arg = eval_next_line(evalarg);
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
3125 else
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3126 {
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3127 if (evaluate && in_vim9script() && !VIM_ISWHITE(**arg))
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3128 {
24713
34a5329b85aa patch 8.2.2895: Vim9: random characters appear in some error messages
Bram Moolenaar <Bram@vim.org>
parents: 24707
diff changeset
3129 error_white_both(*arg, 1);
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3130 clear_tv(rettv);
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3131 return FAIL;
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3132 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
3133 *arg = p;
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3134 }
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3135
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3136 #ifdef FEAT_FLOAT
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3137 f1 = 0;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3138 f2 = 0;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3139 #endif
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3140 error = FALSE;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3141 if (evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3142 {
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3143 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3144 if (rettv->v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3145 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3146 f1 = rettv->vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3147 use_float = TRUE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3148 n1 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3149 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3150 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3151 #endif
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3152 n1 = tv_get_number_chk(rettv, &error);
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3153 clear_tv(rettv);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3154 if (error)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3155 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3156 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3157 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3158 n1 = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3159
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3160 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3161 * Get the second variable.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3162 */
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3163 if (evaluate && in_vim9script() && !IS_WHITE_OR_NUL((*arg)[1]))
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3164 {
24063
d8f3a993dc9a patch 8.2.2573: Vim9: using inalid pointer for error message
Bram Moolenaar <Bram@vim.org>
parents: 24047
diff changeset
3165 error_white_both(*arg, 1);
21634
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3166 clear_tv(rettv);
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3167 return FAIL;
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3168 }
3a86e41fdffd patch 8.2.1367: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21630
diff changeset
3169 *arg = skipwhite_and_linebreak(*arg + 1, evalarg);
24518
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3170 if (eval7t(arg, &var2, evalarg, FALSE) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3171 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3172
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3173 if (evaluate)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3174 {
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3175 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3176 if (var2.v_type == VAR_FLOAT)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3177 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3178 if (!use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3179 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3180 f1 = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3181 use_float = TRUE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3182 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3183 f2 = var2.vval.v_float;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3184 n2 = 0;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3185 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3186 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3187 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3188 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
3189 n2 = tv_get_number_chk(&var2, &error);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3190 clear_tv(&var2);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3191 if (error)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3192 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3193 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3194 if (use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3195 f2 = n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3196 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3197 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3198
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3199 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3200 * Compute the result.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3201 * When either side is a float the result is a float.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3202 */
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3203 #ifdef FEAT_FLOAT
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3204 if (use_float)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3205 {
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3206 if (op == '*')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3207 f1 = f1 * f2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3208 else if (op == '/')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3209 {
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3210 # ifdef VMS
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3211 // 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
3212 if (f2 == 0.0)
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3213 {
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3214 if (f1 == 0)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3215 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
3216 else if (f1 < 0)
2529
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
3217 f1 = -1 * __F_FLT_MAX;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3218 else
2529
2aaa88366cbb Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2513
diff changeset
3219 f1 = __F_FLT_MAX;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3220 }
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3221 else
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3222 f1 = f1 / f2;
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3223 # else
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3224 // 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
3225 // by zero to result in "inf" and not a crash.
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3226 f1 = f1 / f2;
2441
620a42739426 Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents: 2427
diff changeset
3227 # endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3228 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3229 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3230 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3231 emsg(_(e_modulus));
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3232 return FAIL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3233 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3234 rettv->v_type = VAR_FLOAT;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3235 rettv->vval.v_float = f1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3236 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3237 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3238 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3239 {
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3240 int failed = FALSE;
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3241
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3242 if (op == '*')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3243 n1 = n1 * n2;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3244 else if (op == '/')
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3245 n1 = num_divide(n1, n2, &failed);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3246 else
23679
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3247 n1 = num_modulus(n1, n2, &failed);
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3248 if (failed)
e8c379b20765 patch 8.2.2381: Vim9: divide by zero does not abort expression execution
Bram Moolenaar <Bram@vim.org>
parents: 23673
diff changeset
3249 return FAIL;
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15904
diff changeset
3250
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3251 rettv->v_type = VAR_NUMBER;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3252 rettv->vval.v_number = n1;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3253 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3254 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3255 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3256
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3257 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3258 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3259
24518
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3260 /*
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3261 * Handle a type cast before a base level expression.
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3262 * "arg" must point to the first non-white of the expression.
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3263 * "arg" is advanced to just after the recognized expression.
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3264 * Return OK or FAIL.
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3265 */
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3266 static int
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3267 eval7t(
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3268 char_u **arg,
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3269 typval_T *rettv,
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3270 evalarg_T *evalarg,
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3271 int want_string) // after "." operator
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3272 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3273 type_T *want_type = NULL;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3274 garray_T type_list; // list of pointers to allocated types
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3275 int res;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3276 int evaluate = evalarg == NULL ? 0
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3277 : (evalarg->eval_flags & EVAL_EVALUATE);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3278
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3279 // Recognize <type> in Vim9 script only.
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3280 if (in_vim9script() && **arg == '<' && eval_isnamec1((*arg)[1]))
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3281 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3282 ++*arg;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3283 ga_init2(&type_list, sizeof(type_T *), 10);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3284 want_type = parse_type(arg, &type_list, TRUE);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3285 if (want_type == NULL && (evaluate || **arg != '>'))
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3286 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3287 clear_type_list(&type_list);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3288 return FAIL;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3289 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3290
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3291 if (**arg != '>')
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3292 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3293 if (*skipwhite(*arg) == '>')
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3294 semsg(_(e_no_white_space_allowed_before_str_str), ">", *arg);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3295 else
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3296 emsg(_(e_missing_gt));
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3297 clear_type_list(&type_list);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3298 return FAIL;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3299 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3300 ++*arg;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3301 *arg = skipwhite_and_linebreak(*arg, evalarg);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3302 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3303
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3304 res = eval7(arg, rettv, evalarg, want_string);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3305
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3306 if (want_type != NULL && evaluate)
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3307 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3308 if (res == OK)
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3309 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3310 type_T *actual = typval2type(rettv, get_copyID(), &type_list, TRUE);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3311
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3312 if (!equal_type(want_type, actual))
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3313 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3314 if (want_type == &t_bool && actual != &t_bool
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3315 && (actual->tt_flags & TTFLAG_BOOL_OK))
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3316 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3317 int n = tv2bool(rettv);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3318
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3319 // can use "0" and "1" for boolean in some places
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3320 clear_tv(rettv);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3321 rettv->v_type = VAR_BOOL;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3322 rettv->vval.v_number = n ? VVAL_TRUE : VVAL_FALSE;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3323 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3324 else
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3325 {
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3326 where_T where;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3327
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3328 where.wt_index = 0;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3329 where.wt_variable = TRUE;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3330 res = check_type(want_type, actual, TRUE, where);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3331 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3332 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3333 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3334 clear_type_list(&type_list);
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3335 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3336
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3337 return res;
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3338 }
cf334a353c30 patch 8.2.2799: Vim9: type casts don't fully work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24486
diff changeset
3339
23525
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3340 int
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3341 eval_leader(char_u **arg, int vim9)
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3342 {
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3343 char_u *s = *arg;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3344 char_u *p = *arg;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3345
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3346 while (*p == '!' || *p == '-' || *p == '+')
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3347 {
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3348 char_u *n = skipwhite(p + 1);
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3349
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3350 // ++, --, -+ and +- are not accepted in Vim9 script
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3351 if (vim9 && (*p == '-' || *p == '+') && (*n == '-' || *n == '+'))
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3352 {
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3353 semsg(_(e_invexpr2), s);
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3354 return FAIL;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3355 }
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3356 p = n;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3357 }
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3358 *arg = p;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3359 return OK;
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3360 }
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3361
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3362 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3363 * Handle sixth level expression:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3364 * number number constant
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
3365 * 0zFFFFFFFF Blob constant
1228
5eb1ac6f92ad updated for version 7.1b
vimboss
parents: 1109
diff changeset
3366 * "string" string constant
5eb1ac6f92ad updated for version 7.1b
vimboss
parents: 1109
diff changeset
3367 * 'string' literal string constant
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3368 * &option-name option value
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3369 * @r register contents
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3370 * identifier variable value
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3371 * function() function call
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3372 * $VAR environment variable
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3373 * (expression) nested expression
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
3374 * [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
3375 * {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
3376 * {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
3377 * #{key: val, key: val} Dictionary with literal keys
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3378 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3379 * Also handle:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3380 * ! in front logical NOT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3381 * - in front unary minus
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3382 * + in front unary plus (ignored)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3383 * trailing [] subscript in String or List
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3384 * 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
3385 * trailing ->name() method call
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3386 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3387 * "arg" must point to the first non-white of the expression.
21636
dcfcb6163f3d patch 8.2.1368: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21634
diff changeset
3388 * "arg" is advanced to just after the recognized expression.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3389 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3390 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3391 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3392 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3393 eval7(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3394 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3395 typval_T *rettv,
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3396 evalarg_T *evalarg,
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3397 int want_string) // after "." operator
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3398 {
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3399 int evaluate = evalarg != NULL
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3400 && (evalarg->eval_flags & EVAL_EVALUATE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3401 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3402 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3403 char_u *start_leader, *end_leader;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3404 int ret = OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3405 char_u *alias;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3406
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3407 /*
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3408 * Initialise variable so that clear_tv() can't mistake this for a
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3409 * string and free a string that isn't there.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3410 */
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
3411 rettv->v_type = VAR_UNKNOWN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3412
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3413 /*
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 10000
diff changeset
3414 * Skip '!', '-' and '+' characters. They are handled later.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3415 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3416 start_leader = *arg;
23525
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3417 if (eval_leader(arg, in_vim9script()) == FAIL)
54ec7c8b7459 patch 8.2.2305: Vim9: "++var" and "--var" are silently accepted
Bram Moolenaar <Bram@vim.org>
parents: 23499
diff changeset
3418 return FAIL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3419 end_leader = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3420
16223
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3421 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
3422 #ifdef FEAT_FLOAT
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3423 || 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
3424 #endif
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3425 ))
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3426 {
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3427 semsg(_(e_invexpr2), *arg);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3428 ++*arg;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3429 return FAIL;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3430 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents: 16219
diff changeset
3431
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3432 switch (**arg)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3433 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3434 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3435 * Number constant.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3436 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3437 case '0':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3438 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3439 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3440 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3441 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3442 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3443 case '6':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3444 case '7':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3445 case '8':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3446 case '9':
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3447 case '.': ret = eval_number(arg, rettv, evaluate, want_string);
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3448
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3449 // Apply prefixed "-" and "+" now. Matters especially when
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3450 // "->" follows.
21733
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3451 if (ret == OK && evaluate && end_leader > start_leader
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3452 && rettv->v_type != VAR_BLOB)
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3453 ret = eval7_leader(rettv, TRUE, start_leader, &end_leader);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3454 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3455
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3456 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3457 * String constant: "string".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3458 */
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3459 case '"': ret = eval_string(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3460 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3461
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3462 /*
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3463 * Literal string constant: 'str''ing'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3464 */
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3465 case '\'': ret = eval_lit_string(arg, rettv, evaluate);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3466 break;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3467
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3468 /*
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3469 * List: [expr, expr]
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3470 */
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3471 case '[': ret = eval_list(arg, rettv, evalarg, TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3472 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3473
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3474 /*
17413
40417757dffd patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents: 17387
diff changeset
3475 * 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
3476 */
24174
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
3477 case '#': if (in_vim9script())
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
3478 {
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
3479 ret = vim9_bad_comment(*arg) ? FAIL : NOTDONE;
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
3480 }
99bfaa4693db patch 8.2.2628: Vim9: #{ can still be used at the script level
Bram Moolenaar <Bram@vim.org>
parents: 24112
diff changeset
3481 else 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
3482 {
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3483 ++*arg;
21034
2f8b0812819f patch 8.2.1068: Vim9: no line break allowed inside a dict
Bram Moolenaar <Bram@vim.org>
parents: 21032
diff changeset
3484 ret = eval_dict(arg, rettv, evalarg, TRUE);
17368
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3485 }
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3486 else
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3487 ret = NOTDONE;
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3488 break;
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3489
6604ecb7a615 patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents: 17322
diff changeset
3490 /*
9527
e8b3db8e2d30 commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents: 9525
diff changeset
3491 * 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
3492 * Dictionary: {'key': val, 'key': val}
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3493 */
23428
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3494 case '{': if (in_vim9script())
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3495 ret = NOTDONE;
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3496 else
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3497 ret = get_lambda_tv(arg, rettv, in_vim9script(), evalarg);
9527
e8b3db8e2d30 commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents: 9525
diff changeset
3498 if (ret == NOTDONE)
21034
2f8b0812819f patch 8.2.1068: Vim9: no line break allowed inside a dict
Bram Moolenaar <Bram@vim.org>
parents: 21032
diff changeset
3499 ret = eval_dict(arg, rettv, evalarg, FALSE);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3500 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3501
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3502 /*
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
3503 * Option value: &name
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3504 */
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3505 case '&': ret = eval_option(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3506 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3507
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3508 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3509 * Environment variable: $VAR.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3510 */
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3511 case '$': ret = eval_env_var(arg, rettv, evaluate);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3512 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3513
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3514 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3515 * Register contents: @r.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3516 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3517 case '@': ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3518 if (evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3519 {
24339
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3520 if (in_vim9script() && IS_WHITE_OR_NUL(**arg))
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3521 semsg(_(e_syntax_error_at_str), *arg);
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3522 else if (in_vim9script() && !valid_yank_reg(**arg, FALSE))
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3523 emsg_invreg(**arg);
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3524 else
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3525 {
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3526 rettv->v_type = VAR_STRING;
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3527 rettv->vval.v_string = get_reg_contents(**arg,
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3528 GREG_EXPR_SRC);
236e9ebdb30e patch 8.2.2710: Vim9: not all tests cover script and :def function
Bram Moolenaar <Bram@vim.org>
parents: 24250
diff changeset
3529 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3530 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3531 if (**arg != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3532 ++*arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3533 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3534
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3535 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3536 * nested expression: (expression).
24655
3876d9629ebd patch 8.2.2866: Vim9: memory leak when using inline function
Bram Moolenaar <Bram@vim.org>
parents: 24632
diff changeset
3537 * or lambda: (arg) => expr
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3538 */
23338
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 23332
diff changeset
3539 case '(': ret = NOTDONE;
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 23332
diff changeset
3540 if (in_vim9script())
23970
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3541 {
23338
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 23332
diff changeset
3542 ret = get_lambda_tv(arg, rettv, TRUE, evalarg);
23970
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3543 if (ret == OK && evaluate)
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3544 {
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3545 ufunc_T *ufunc = rettv->vval.v_partial->pt_func;
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3546
24890
0cba2be8cbd7 patch 8.2.2983: Vim9: an inline function requires specifying the return type
Bram Moolenaar <Bram@vim.org>
parents: 24880
diff changeset
3547 // Compile it here to get the return type. The return
0cba2be8cbd7 patch 8.2.2983: Vim9: an inline function requires specifying the return type
Bram Moolenaar <Bram@vim.org>
parents: 24880
diff changeset
3548 // type is optional, when it's missing use t_unknown.
0cba2be8cbd7 patch 8.2.2983: Vim9: an inline function requires specifying the return type
Bram Moolenaar <Bram@vim.org>
parents: 24880
diff changeset
3549 // This is recognized in compile_return().
0cba2be8cbd7 patch 8.2.2983: Vim9: an inline function requires specifying the return type
Bram Moolenaar <Bram@vim.org>
parents: 24880
diff changeset
3550 if (ufunc->uf_ret_type->tt_type == VAR_VOID)
0cba2be8cbd7 patch 8.2.2983: Vim9: an inline function requires specifying the return type
Bram Moolenaar <Bram@vim.org>
parents: 24880
diff changeset
3551 ufunc->uf_ret_type = &t_unknown;
23972
a620df0ebbe5 patch 8.2.2528: Vim9: crash when compiling lambda fails
Bram Moolenaar <Bram@vim.org>
parents: 23970
diff changeset
3552 if (compile_def_function(ufunc,
24895
e61a2085c89b patch 8.2.2985: Vim9: a compiled function cannot be debugged
Bram Moolenaar <Bram@vim.org>
parents: 24890
diff changeset
3553 FALSE, COMPILE_TYPE(ufunc), NULL) == FAIL)
23972
a620df0ebbe5 patch 8.2.2528: Vim9: crash when compiling lambda fails
Bram Moolenaar <Bram@vim.org>
parents: 23970
diff changeset
3554 {
a620df0ebbe5 patch 8.2.2528: Vim9: crash when compiling lambda fails
Bram Moolenaar <Bram@vim.org>
parents: 23970
diff changeset
3555 clear_tv(rettv);
a620df0ebbe5 patch 8.2.2528: Vim9: crash when compiling lambda fails
Bram Moolenaar <Bram@vim.org>
parents: 23970
diff changeset
3556 ret = FAIL;
a620df0ebbe5 patch 8.2.2528: Vim9: crash when compiling lambda fails
Bram Moolenaar <Bram@vim.org>
parents: 23970
diff changeset
3557 }
23970
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3558 }
ba79ceac82ec patch 8.2.2527: Vim9: lambda return type is not determined at script level
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
3559 }
23338
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 23332
diff changeset
3560 if (ret == NOTDONE)
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level
Bram Moolenaar <Bram@vim.org>
parents: 23332
diff changeset
3561 {
21046
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
3562 *arg = skipwhite_and_linebreak(*arg + 1, evalarg);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3563 ret = eval1(arg, rettv, evalarg); // recursive!
21044
dc2ca403a217 patch 8.2.1073: Vim9: no line break allowed in () expression
Bram Moolenaar <Bram@vim.org>
parents: 21040
diff changeset
3564
21046
0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators
Bram Moolenaar <Bram@vim.org>
parents: 21044
diff changeset
3565 *arg = skipwhite_and_linebreak(*arg, evalarg);
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3566 if (**arg == ')')
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3567 ++*arg;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3568 else if (ret == OK)
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3569 {
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3570 emsg(_(e_missing_close));
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3571 clear_tv(rettv);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3572 ret = FAIL;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
3573 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3574 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3575 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3576
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3577 default: ret = NOTDONE;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3578 break;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3579 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3580
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3581 if (ret == NOTDONE)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3582 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3583 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3584 * Must be a variable or function name.
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3585 * Can also be a curly-braces kind of name: {expr}.
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3586 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3587 s = *arg;
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3588 len = get_name_len(arg, &alias, evaluate, TRUE);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3589 if (alias != NULL)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3590 s = alias;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3591
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3592 if (len <= 0)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3593 ret = FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3594 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3595 {
21305
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3596 int flags = evalarg == NULL ? 0 : evalarg->eval_flags;
91d4af3309e7 patch 8.2.1203: unused assignments in expression evaluation
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
3597
24426
78343859f42d patch 8.2.2753: Vim9: cannot ignore an item in assignment unpack
Bram Moolenaar <Bram@vim.org>
parents: 24408
diff changeset
3598 if (evaluate && in_vim9script() && len == 1 && *s == '_')
24408
96e0b898d5b4 patch 8.2.2744: Vim9: no way to explicitly ignore an argument
Bram Moolenaar <Bram@vim.org>
parents: 24363
diff changeset
3599 {
96e0b898d5b4 patch 8.2.2744: Vim9: no way to explicitly ignore an argument
Bram Moolenaar <Bram@vim.org>
parents: 24363
diff changeset
3600 emsg(_(e_cannot_use_underscore_here));
96e0b898d5b4 patch 8.2.2744: Vim9: no way to explicitly ignore an argument
Bram Moolenaar <Bram@vim.org>
parents: 24363
diff changeset
3601 ret = FAIL;
96e0b898d5b4 patch 8.2.2744: Vim9: no way to explicitly ignore an argument
Bram Moolenaar <Bram@vim.org>
parents: 24363
diff changeset
3602 }
96e0b898d5b4 patch 8.2.2744: Vim9: no way to explicitly ignore an argument
Bram Moolenaar <Bram@vim.org>
parents: 24363
diff changeset
3603 else if ((in_vim9script() ? **arg : *skipwhite(*arg)) == '(')
21656
c3f6006bf0ba patch 8.2.1378: cannot put space between function name and paren
Bram Moolenaar <Bram@vim.org>
parents: 21644
diff changeset
3604 {
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3605 // "name(..." recursive!
21656
c3f6006bf0ba patch 8.2.1378: cannot put space between function name and paren
Bram Moolenaar <Bram@vim.org>
parents: 21644
diff changeset
3606 *arg = skipwhite(*arg);
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3607 ret = eval_func(arg, evalarg, s, len, rettv, flags, NULL);
21656
c3f6006bf0ba patch 8.2.1378: cannot put space between function name and paren
Bram Moolenaar <Bram@vim.org>
parents: 21644
diff changeset
3608 }
20401
918b9a05cf35 patch 8.2.0755: Vim9: No error when variable initializer is not a constant
Bram Moolenaar <Bram@vim.org>
parents: 20397
diff changeset
3609 else if (flags & EVAL_CONSTANT)
918b9a05cf35 patch 8.2.0755: Vim9: No error when variable initializer is not a constant
Bram Moolenaar <Bram@vim.org>
parents: 20397
diff changeset
3610 ret = FAIL;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3611 else if (evaluate)
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3612 {
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3613 // get the value of "true", "false" or a variable
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3614 if (len == 4 && in_vim9script() && STRNCMP(s, "true", 4) == 0)
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3615 {
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3616 rettv->v_type = VAR_BOOL;
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3617 rettv->vval.v_number = VVAL_TRUE;
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3618 ret = OK;
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3619 }
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3620 else if (len == 5 && in_vim9script()
23499
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3621 && STRNCMP(s, "false", 5) == 0)
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3622 {
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3623 rettv->v_type = VAR_BOOL;
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3624 rettv->vval.v_number = VVAL_FALSE;
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3625 ret = OK;
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3626 }
23499
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3627 else if (len == 4 && in_vim9script()
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3628 && STRNCMP(s, "null", 4) == 0)
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3629 {
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3630 rettv->v_type = VAR_SPECIAL;
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3631 rettv->vval.v_number = VVAL_NULL;
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3632 ret = OK;
fe868a6d2e0a patch 8.2.2292: Vim: expr test fails
Bram Moolenaar <Bram@vim.org>
parents: 23495
diff changeset
3633 }
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3634 else
24112
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
3635 ret = eval_variable(s, len, rettv, NULL,
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
3636 EVAL_VAR_VERBOSE + EVAL_VAR_IMPORT);
21307
b991565745fb patch 8.2.1204: Vim9: true and false not recognized in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 21305
diff changeset
3637 }
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
3638 else
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
3639 {
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
3640 // skip the name
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
3641 check_vars(s, len);
117
d4ea645c7748 updated for version 7.0041
vimboss
parents: 110
diff changeset
3642 ret = OK;
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
3643 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3644 }
2690
3ea3dcbf2cd6 updated for version 7.3.108
Bram Moolenaar <bram@vim.org>
parents: 2687
diff changeset
3645 vim_free(alias);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3646 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3647
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3648 // 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
3649 // expr(expr), expr->name(expr)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
3650 if (ret == OK)
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3651 ret = handle_subscript(arg, rettv, evalarg, TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3652
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3653 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3654 * Apply logical NOT and unary '-', from right to left, ignore '+'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3655 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3656 if (ret == OK && evaluate && end_leader > start_leader)
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3657 ret = eval7_leader(rettv, FALSE, start_leader, &end_leader);
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3658 return ret;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3659 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3660
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3661 /*
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3662 * Apply the leading "!" and "-" before an eval7 expression to "rettv".
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3663 * When "numeric_only" is TRUE only handle "+" and "-".
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3664 * 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
3665 */
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3666 static int
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3667 eval7_leader(
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3668 typval_T *rettv,
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3669 int numeric_only,
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3670 char_u *start_leader,
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3671 char_u **end_leaderp)
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3672 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3673 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
3674 int ret = OK;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3675 int error = FALSE;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3676 varnumber_T val = 0;
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3677 vartype_T type = rettv->v_type;
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3678 #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
3679 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
3680
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3681 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
3682 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
3683 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3684 #endif
22606
336ac63fb987 patch 8.2.1851: Vim9: "!" followed by space incorrectly used
Bram Moolenaar <Bram@vim.org>
parents: 22580
diff changeset
3685 {
336ac63fb987 patch 8.2.1851: Vim9: "!" followed by space incorrectly used
Bram Moolenaar <Bram@vim.org>
parents: 22580
diff changeset
3686 while (VIM_ISWHITE(end_leader[-1]))
336ac63fb987 patch 8.2.1851: Vim9: "!" followed by space incorrectly used
Bram Moolenaar <Bram@vim.org>
parents: 22580
diff changeset
3687 --end_leader;
21733
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3688 if (in_vim9script() && end_leader[-1] == '!')
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3689 val = tv2bool(rettv);
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3690 else
1bb5adfe5966 patch 8.2.1416: Vim9: boolean evaluation does not work as intended
Bram Moolenaar <Bram@vim.org>
parents: 21725
diff changeset
3691 val = tv_get_number_chk(rettv, &error);
22606
336ac63fb987 patch 8.2.1851: Vim9: "!" followed by space incorrectly used
Bram Moolenaar <Bram@vim.org>
parents: 22580
diff changeset
3692 }
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3693 if (error)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3694 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3695 clear_tv(rettv);
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3696 ret = FAIL;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3697 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3698 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3699 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3700 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
3701 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3702 --end_leader;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3703 if (*end_leader == '!')
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3704 {
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3705 if (numeric_only)
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3706 {
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3707 ++end_leader;
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3708 break;
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
3709 }
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3710 #ifdef FEAT_FLOAT
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3711 if (rettv->v_type == VAR_FLOAT)
22866
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3712 {
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3713 if (in_vim9script())
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3714 {
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3715 rettv->v_type = VAR_BOOL;
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3716 val = f == 0.0 ? VVAL_TRUE : VVAL_FALSE;
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3717 }
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3718 else
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3719 f = !f;
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22816
diff changeset
3720 }
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3721 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3722 #endif
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3723 {
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3724 val = !val;
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3725 type = VAR_BOOL;
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3726 }
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3727 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3728 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
3729 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3730 #ifdef FEAT_FLOAT
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3731 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
3732 f = -f;
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3733 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3734 #endif
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3735 {
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3736 val = -val;
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3737 type = VAR_NUMBER;
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3738 }
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3739 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3740 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3741 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3742 if (rettv->v_type == VAR_FLOAT)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3743 {
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3744 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
3745 rettv->vval.v_float = f;
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3746 }
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
3747 else
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
3748 #endif
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3749 {
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3750 clear_tv(rettv);
21725
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3751 if (in_vim9script())
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3752 rettv->v_type = type;
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3753 else
741c1d58d50f patch 8.2.1412: Vim: not operator does not result in boolean
Bram Moolenaar <Bram@vim.org>
parents: 21691
diff changeset
3754 rettv->v_type = VAR_NUMBER;
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3755 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
3756 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3757 }
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
3758 *end_leaderp = end_leader;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3759 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3760 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3761
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3762 /*
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3763 * 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
3764 */
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3765 static int
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3766 call_func_rettv(
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3767 char_u **arg,
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3768 evalarg_T *evalarg,
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3769 typval_T *rettv,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3770 int evaluate,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3771 dict_T *selfdict,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3772 typval_T *basetv)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3773 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3774 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
3775 funcexe_T funcexe;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3776 typval_T functv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3777 char_u *s;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3778 int ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3779
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3780 // 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
3781 if (evaluate)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3782 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3783 functv = *rettv;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3784 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
3785
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3786 // 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
3787 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
3788 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3789 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
3790 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
3791 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3792 else
24878
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3793 {
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3794 s = functv.vval.v_string;
24878
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3795 if (s == NULL || *s == NUL)
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3796 {
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3797 emsg(_(e_empty_function_name));
24880
d254f5c78b5a patch 8.2.2978: warning for uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents: 24878
diff changeset
3798 ret = FAIL;
24878
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3799 goto theend;
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3800 }
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3801 }
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3802 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3803 else
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3804 s = (char_u *)"";
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3805
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19922
diff changeset
3806 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
3807 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
3808 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
3809 funcexe.evaluate = evaluate;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3810 funcexe.partial = pt;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3811 funcexe.selfdict = selfdict;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3812 funcexe.basetv = basetv;
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3813 ret = get_func_tv(s, -1, rettv, arg, evalarg, &funcexe);
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3814
24878
f67773e26cfa patch 8.2.2977: crash when using a null function reference
Bram Moolenaar <Bram@vim.org>
parents: 24860
diff changeset
3815 theend:
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3816 // 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
3817 // 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
3818 if (evaluate)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3819 clear_tv(&functv);
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3820
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3821 return ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3822 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3823
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3824 /*
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3825 * Evaluate "->method()".
23709
a0c4d04a58c4 patch 8.2.2396: Vim9: no white space allowed before "->"
Bram Moolenaar <Bram@vim.org>
parents: 23679
diff changeset
3826 * "*arg" points to "method".
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3827 * 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
3828 */
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3829 static int
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3830 eval_lambda(
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3831 char_u **arg,
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3832 typval_T *rettv,
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3833 evalarg_T *evalarg,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3834 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
3835 {
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3836 int evaluate = evalarg != NULL
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3837 && (evalarg->eval_flags & EVAL_EVALUATE);
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3838 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
3839 int ret;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3840
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3841 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
3842
23428
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3843 if (**arg == '{')
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3844 {
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3845 // ->{lambda}()
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3846 ret = get_lambda_tv(arg, rettv, FALSE, evalarg);
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3847 }
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3848 else
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3849 {
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3850 // ->(lambda)()
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3851 ++*arg;
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3852 ret = eval1(arg, rettv, evalarg);
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3853 *arg = skipwhite_and_linebreak(*arg, evalarg);
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3854 if (**arg != ')')
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3855 {
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3856 emsg(_(e_missing_close));
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3857 ret = FAIL;
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3858 }
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3859 ++*arg;
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
3860 }
18851
3cf9529b3a4a patch 8.1.2412: crash when evaluating expression with error
Bram Moolenaar <Bram@vim.org>
parents: 18777
diff changeset
3861 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
3862 return FAIL;
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3863 else if (**arg != '(')
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3864 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3865 if (verbose)
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3866 {
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3867 if (*skipwhite(*arg) == '(')
19760
9daed26b788b patch 8.2.0436: no warnings for incorrect printf arguments
Bram Moolenaar <Bram@vim.org>
parents: 19568
diff changeset
3868 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
3869 else
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
3870 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
3871 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3872 clear_tv(rettv);
18225
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3873 ret = FAIL;
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3874 }
18225
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3875 else
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3876 ret = call_func_rettv(arg, evalarg, rettv, evaluate, NULL, &base);
18225
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3877
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3878 // 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
3879 // 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
3880 if (evaluate)
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3881 clear_tv(&base);
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3882
6c3a8312486d patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents: 18080
diff changeset
3883 return ret;
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3884 }
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3885
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3886 /*
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3887 * Evaluate "->method()".
23709
a0c4d04a58c4 patch 8.2.2396: Vim9: no white space allowed before "->"
Bram Moolenaar <Bram@vim.org>
parents: 23679
diff changeset
3888 * "*arg" points to "method".
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3889 * 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
3890 */
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3891 static int
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3892 eval_method(
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3893 char_u **arg,
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3894 typval_T *rettv,
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3895 evalarg_T *evalarg,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3896 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
3897 {
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3898 char_u *name;
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3899 long len;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3900 char_u *alias;
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3901 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
3902 int ret;
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3903 int evaluate = evalarg != NULL
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3904 && (evalarg->eval_flags & EVAL_EVALUATE);
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3905
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3906 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
3907
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3908 name = *arg;
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3909 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
3910 if (alias != NULL)
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3911 name = alias;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3912
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3913 if (len <= 0)
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3914 {
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3915 if (verbose)
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3916 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
3917 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3918 }
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3919 else
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3920 {
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
3921 *arg = skipwhite(*arg);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3922 if (**arg != '(')
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3923 {
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3924 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
3925 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
3926 ret = FAIL;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3927 }
17661
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
3928 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
3929 {
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
3930 if (verbose)
19760
9daed26b788b patch 8.2.0436: no warnings for incorrect printf arguments
Bram Moolenaar <Bram@vim.org>
parents: 19568
diff changeset
3931 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
3932 ret = FAIL;
da7890e3359b patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents: 17646
diff changeset
3933 }
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3934 else
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
3935 ret = eval_func(arg, evalarg, name, len, rettv,
20397
c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase
Bram Moolenaar <Bram@vim.org>
parents: 20392
diff changeset
3936 evaluate ? EVAL_EVALUATE : 0, &base);
17646
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents: 17638
diff changeset
3937 }
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3938
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
3939 // 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
3940 // 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
3941 if (evaluate)
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3942 clear_tv(&base);
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3943
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3944 return ret;
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3945 }
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3946
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
3947 /*
829
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
3948 * Evaluate an "[expr]" or "[expr:expr]" index. Also "dict.key".
dc8197342755 updated for version 7.0d04
vimboss
parents: 826
diff changeset
3949 * "*arg" points to the '[' or '.'.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3950 * Returns FAIL or OK. "*arg" is advanced to after the ']'.
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3951 */
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3952 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3953 eval_index(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3954 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
3955 typval_T *rettv,
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3956 evalarg_T *evalarg,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
3957 int verbose) // give error messages
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3958 {
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3959 int evaluate = evalarg != NULL
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3960 && (evalarg->eval_flags & EVAL_EVALUATE);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3961 int empty1 = FALSE, empty2 = FALSE;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
3962 typval_T var1, var2;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3963 int range = FALSE;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3964 char_u *key = NULL;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3965 int keylen = -1;
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
3966 int vim9 = in_vim9script();
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3967
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3968 if (check_can_index(rettv, evaluate, verbose) == FAIL)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3969 return FAIL;
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3970
7046
fd409a0800fd commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents: 7042
diff changeset
3971 init_tv(&var1);
fd409a0800fd commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents: 7042
diff changeset
3972 init_tv(&var2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3973 if (**arg == '.')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3974 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3975 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3976 * dict.name
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3977 */
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3978 key = *arg + 1;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3979 for (keylen = 0; eval_isdictc(key[keylen]); ++keylen)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3980 ;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
3981 if (keylen == 0)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3982 return FAIL;
22244
9f6b8fdea159 patch 8.2.1671: Vim9: stray error for missing white space
Bram Moolenaar <Bram@vim.org>
parents: 22202
diff changeset
3983 *arg = key + keylen;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3984 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3985 else
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3986 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3987 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3988 * something[idx]
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3989 *
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3990 * Get the (first) variable from inside the [].
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3991 */
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
3992 *arg = skipwhite_and_linebreak(*arg + 1, evalarg);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3993 if (**arg == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
3994 empty1 = TRUE;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
3995 else if (eval1(arg, &var1, evalarg) == FAIL) // recursive!
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
3996 return FAIL;
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
3997 else if (vim9 && **arg == ':')
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
3998 {
23446
b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing
Bram Moolenaar <Bram@vim.org>
parents: 23428
diff changeset
3999 semsg(_(e_white_space_required_before_and_after_str_at_str),
b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing
Bram Moolenaar <Bram@vim.org>
parents: 23428
diff changeset
4000 ":", *arg);
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4001 clear_tv(&var1);
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4002 return FAIL;
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4003 }
23827
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4004 else if (evaluate)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4005 {
23827
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4006 #ifdef FEAT_FLOAT
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4007 // allow for indexing with float
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4008 if (vim9 && rettv->v_type == VAR_DICT
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4009 && var1.v_type == VAR_FLOAT)
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4010 {
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4011 var1.vval.v_string = typval_tostring(&var1, TRUE);
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4012 var1.v_type = VAR_STRING;
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4013 }
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4014 #endif
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4015 if (tv_get_string_chk(&var1) == NULL)
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4016 {
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4017 // not a number or string
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4018 clear_tv(&var1);
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4019 return FAIL;
7e0d8f1cae7d patch 8.2.2455: Vim9: key type for literal dict and indexing is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 23709
diff changeset
4020 }
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4021 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4022
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4023 /*
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4024 * Get the second variable from inside the [:].
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4025 */
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
4026 *arg = skipwhite_and_linebreak(*arg, evalarg);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4027 if (**arg == ':')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4028 {
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4029 range = TRUE;
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4030 ++*arg;
23416
108039938e3c patch 8.2.2251: test failures in legacy script
Bram Moolenaar <Bram@vim.org>
parents: 23414
diff changeset
4031 if (vim9 && !IS_WHITE_OR_NUL(**arg) && **arg != ']')
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4032 {
23446
b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing
Bram Moolenaar <Bram@vim.org>
parents: 23428
diff changeset
4033 semsg(_(e_white_space_required_before_and_after_str_at_str),
b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing
Bram Moolenaar <Bram@vim.org>
parents: 23428
diff changeset
4034 ":", *arg - 1);
23414
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4035 if (!empty1)
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4036 clear_tv(&var1);
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4037 return FAIL;
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4038 }
9bd3873b13e2 patch 8.2.2250: Vim9: sublist is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23338
diff changeset
4039 *arg = skipwhite_and_linebreak(*arg, evalarg);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4040 if (**arg == ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4041 empty2 = TRUE;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
4042 else if (eval1(arg, &var2, evalarg) == FAIL) // recursive!
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4043 {
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4044 if (!empty1)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4045 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4046 return FAIL;
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4047 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
4048 else if (evaluate && tv_get_string_chk(&var2) == NULL)
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4049 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4050 // not a number or string
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4051 if (!empty1)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4052 clear_tv(&var1);
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
4053 clear_tv(&var2);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4054 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4055 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4056 }
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4057
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4058 // Check for the ']'.
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
4059 *arg = skipwhite_and_linebreak(*arg, evalarg);
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4060 if (**arg != ']')
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4061 {
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
4062 if (verbose)
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
4063 emsg(_(e_missbrac));
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4064 clear_tv(&var1);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4065 if (range)
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4066 clear_tv(&var2);
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4067 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4068 }
21837
2b941fbab4d9 patch 8.2.1468: Vim9: invalid error for missing white space
Bram Moolenaar <Bram@vim.org>
parents: 21833
diff changeset
4069 *arg = *arg + 1; // skip over the ']'
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4070 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4071
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4072 if (evaluate)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4073 {
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4074 int res = eval_index_inner(rettv, range,
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4075 empty1 ? NULL : &var1, empty2 ? NULL : &var2, FALSE,
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4076 key, keylen, verbose);
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4077
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4078 if (!empty1)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4079 clear_tv(&var1);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4080 if (range)
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4081 clear_tv(&var2);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4082 return res;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4083 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4084 return OK;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4085 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4086
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4087 /*
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4088 * Check if "rettv" can have an [index] or [sli:ce]
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4089 */
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4090 int
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4091 check_can_index(typval_T *rettv, int evaluate, int verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4092 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4093 switch (rettv->v_type)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4094 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4095 case VAR_FUNC:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4096 case VAR_PARTIAL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4097 if (verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4098 emsg(_("E695: Cannot index a Funcref"));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4099 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4100 case VAR_FLOAT:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4101 #ifdef FEAT_FLOAT
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4102 if (verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4103 emsg(_(e_float_as_string));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4104 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4105 #endif
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4106 case VAR_BOOL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4107 case VAR_SPECIAL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4108 case VAR_JOB:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4109 case VAR_CHANNEL:
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
4110 case VAR_INSTR:
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4111 if (verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4112 emsg(_(e_cannot_index_special_variable));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4113 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4114 case VAR_UNKNOWN:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4115 case VAR_ANY:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4116 case VAR_VOID:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4117 if (evaluate)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4118 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4119 emsg(_(e_cannot_index_special_variable));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4120 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4121 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4122 // FALLTHROUGH
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4123
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4124 case VAR_STRING:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4125 case VAR_LIST:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4126 case VAR_DICT:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4127 case VAR_BLOB:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4128 break;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4129 case VAR_NUMBER:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4130 if (in_vim9script())
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4131 emsg(_(e_cannot_index_number));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4132 break;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4133 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4134 return OK;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4135 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4136
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4137 /*
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4138 * slice() function
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4139 */
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4140 void
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4141 f_slice(typval_T *argvars, typval_T *rettv)
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4142 {
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4143 if (check_can_index(argvars, TRUE, FALSE) == OK)
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4144 {
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4145 copy_tv(argvars, rettv);
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4146 eval_index_inner(rettv, TRUE, argvars + 1,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4147 argvars[2].v_type == VAR_UNKNOWN ? NULL : argvars + 2,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4148 TRUE, NULL, 0, FALSE);
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4149 }
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4150 }
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4151
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4152 /*
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4153 * Apply index or range to "rettv".
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4154 * "var1" is the first index, NULL for [:expr].
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4155 * "var2" is the second index, NULL for [expr] and [expr: ]
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4156 * "exclusive" is TRUE for slice(): second index is exclusive, use character
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4157 * index for string.
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4158 * Alternatively, "key" is not NULL, then key[keylen] is the dict index.
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4159 */
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4160 int
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4161 eval_index_inner(
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4162 typval_T *rettv,
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4163 int is_range,
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4164 typval_T *var1,
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4165 typval_T *var2,
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4166 int exclusive,
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4167 char_u *key,
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4168 int keylen,
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4169 int verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4170 {
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4171 varnumber_T n1, n2 = 0;
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4172 long len;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4173
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4174 n1 = 0;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4175 if (var1 != NULL && rettv->v_type != VAR_DICT)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4176 n1 = tv_get_number(var1);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4177
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4178 if (is_range)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4179 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4180 if (rettv->v_type == VAR_DICT)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4181 {
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4182 if (verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4183 emsg(_(e_cannot_slice_dictionary));
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4184 return FAIL;
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4185 }
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4186 if (var2 != NULL)
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4187 n2 = tv_get_number(var2);
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4188 else
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4189 n2 = VARNUM_MAX;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4190 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4191
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4192 switch (rettv->v_type)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4193 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4194 case VAR_UNKNOWN:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4195 case VAR_ANY:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4196 case VAR_VOID:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4197 case VAR_FUNC:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4198 case VAR_PARTIAL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4199 case VAR_FLOAT:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4200 case VAR_BOOL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4201 case VAR_SPECIAL:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4202 case VAR_JOB:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4203 case VAR_CHANNEL:
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
4204 case VAR_INSTR:
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4205 break; // not evaluating, skipping over subscript
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4206
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4207 case VAR_NUMBER:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4208 case VAR_STRING:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4209 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4210 char_u *s = tv_get_string(rettv);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4211
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4212 len = (long)STRLEN(s);
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4213 if (in_vim9script() || exclusive)
21826
ccad66ac6c3e patch 8.2.1462: Vim9: string slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21823
diff changeset
4214 {
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4215 if (is_range)
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4216 s = string_slice(s, n1, n2, exclusive);
21826
ccad66ac6c3e patch 8.2.1462: Vim9: string slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21823
diff changeset
4217 else
ccad66ac6c3e patch 8.2.1462: Vim9: string slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21823
diff changeset
4218 s = char_from_string(s, n1);
ccad66ac6c3e patch 8.2.1462: Vim9: string slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21823
diff changeset
4219 }
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4220 else if (is_range)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4221 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4222 // 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
4223 // are out of range the result is empty.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4224 if (n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4225 {
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4226 n1 = len + n1;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4227 if (n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4228 n1 = 0;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4229 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4230 if (n2 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4231 n2 = len + n2;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4232 else if (n2 >= len)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4233 n2 = len;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4234 if (n1 >= len || n2 < 0 || n1 > n2)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4235 s = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4236 else
20751
d9a2e5dcfd9f patch 8.2.0928: many type casts are used for vim_strnsave()
Bram Moolenaar <Bram@vim.org>
parents: 20731
diff changeset
4237 s = vim_strnsave(s + n1, n2 - n1 + 1);
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4238 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4239 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4240 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4241 // 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
4242 // 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
4243 // result is empty.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4244 if (n1 >= len || n1 < 0)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4245 s = NULL;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4246 else
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4247 s = vim_strnsave(s + n1, 1);
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4248 }
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4249 clear_tv(rettv);
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4250 rettv->v_type = VAR_STRING;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
4251 rettv->vval.v_string = s;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4252 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4253 break;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4254
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4255 case VAR_BLOB:
24432
aa150abca273 patch 8.2.2756: Vim9: blob index and slice not implemented yet
Bram Moolenaar <Bram@vim.org>
parents: 24426
diff changeset
4256 blob_slice_or_index(rettv->vval.v_blob, is_range, n1, n2,
aa150abca273 patch 8.2.2756: Vim9: blob index and slice not implemented yet
Bram Moolenaar <Bram@vim.org>
parents: 24426
diff changeset
4257 exclusive, rettv);
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4258 break;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4259
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4260 case VAR_LIST:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4261 if (var1 == NULL)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4262 n1 = 0;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4263 if (var2 == NULL)
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4264 n2 = VARNUM_MAX;
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4265 if (list_slice_or_index(rettv->vval.v_list,
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23600
diff changeset
4266 is_range, n1, n2, exclusive, rettv, verbose) == FAIL)
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4267 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4268 break;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4269
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4270 case VAR_DICT:
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4271 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4272 dictitem_T *item;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4273 typval_T tmp;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4274
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4275 if (key == NULL)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4276 {
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4277 key = tv_get_string_chk(var1);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4278 if (key == NULL)
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4279 return FAIL;
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4280 }
21833
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4281
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4282 item = dict_find(rettv->vval.v_dict, key, (int)keylen);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4283
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4284 if (item == NULL && verbose)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4285 semsg(_(e_dictkey), key);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4286 if (item == NULL)
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4287 return FAIL;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4288
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4289 copy_tv(&item->di_tv, &tmp);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4290 clear_tv(rettv);
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4291 *rettv = tmp;
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4292 }
e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any"
Bram Moolenaar <Bram@vim.org>
parents: 21831
diff changeset
4293 break;
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4294 }
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4295 return OK;
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4296 }
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4297
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4298 /*
19922
1f42c49c3d29 patch 8.2.0517: Vim9: cannot separate "func" and "func(): void"
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
4299 * 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
4300 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4301 char_u *
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4302 partial_name(partial_T *pt)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4303 {
24618
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4304 if (pt != NULL)
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4305 {
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4306 if (pt->pt_name != NULL)
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4307 return pt->pt_name;
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4308 if (pt->pt_func != NULL)
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4309 return pt->pt_func->uf_name;
4aebea72c397 patch 8.2.2848: crash whn calling partial
Bram Moolenaar <Bram@vim.org>
parents: 24614
diff changeset
4310 }
20158
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20156
diff changeset
4311 return (char_u *)"";
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4312 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4313
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4314 static void
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4315 partial_free(partial_T *pt)
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4316 {
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4317 int i;
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4318
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4319 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
4320 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
4321 vim_free(pt->pt_argv);
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4322 dict_unref(pt->pt_dict);
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4323 if (pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4324 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4325 func_unref(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4326 vim_free(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4327 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4328 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4329 func_ptr_unref(pt->pt_func);
20257
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4330
24860
594edca79708 patch 8.2.2968: Vim9: memory leak
Bram Moolenaar <Bram@vim.org>
parents: 24852
diff changeset
4331 // "out_up" is no longer used, decrement refcount on partial that owns it.
594edca79708 patch 8.2.2968: Vim9: memory leak
Bram Moolenaar <Bram@vim.org>
parents: 24852
diff changeset
4332 partial_unref(pt->pt_outer.out_up_partial);
594edca79708 patch 8.2.2968: Vim9: memory leak
Bram Moolenaar <Bram@vim.org>
parents: 24852
diff changeset
4333
22541
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4334 // Decrease the reference count for the context of a closure. If down
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4335 // to the minimum it may be time to free it.
20257
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4336 if (pt->pt_funcstack != NULL)
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4337 {
22541
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4338 --pt->pt_funcstack->fs_refcount;
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4339 funcstack_check_refcount(pt->pt_funcstack);
20257
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4340 }
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4341
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4342 vim_free(pt);
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4343 }
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4344
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4345 /*
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4346 * 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
4347 * becomes zero.
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4348 */
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4349 void
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4350 partial_unref(partial_T *pt)
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4351 {
22541
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4352 if (pt != NULL)
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4353 {
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4354 if (--pt->pt_refcount <= 0)
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4355 partial_free(pt);
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4356
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4357 // If the reference count goes down to one, the funcstack may be the
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4358 // only reference and can be freed if no other partials reference it.
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4359 else if (pt->pt_refcount == 1 && pt->pt_funcstack != NULL)
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4360 funcstack_check_refcount(pt->pt_funcstack);
7d6ba4204f66 patch 8.2.1819: Vim9: Memory leak when using a closure
Bram Moolenaar <Bram@vim.org>
parents: 22529
diff changeset
4361 }
8855
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4362 }
b76195a1e38e commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents: 8839
diff changeset
4363
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
4364 /*
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4365 * Return the next (unique) copy ID.
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4366 * Used for serializing nested structures.
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4367 */
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4368 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4369 get_copyID(void)
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4370 {
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4371 current_copyID += COPYID_INC;
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4372 return current_copyID;
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4373 }
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4374
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4375 /*
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4376 * Garbage collection for lists and dictionaries.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4377 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4378 * 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
4379 * 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
4380 * unused while the reference count is > 0: When there is a recursive
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4381 * reference. Example:
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4382 * :let l = [1, 2, 3]
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4383 * :let d = {9: l}
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4384 * :let l[1] = d
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4385 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4386 * Since this is quite unusual we handle this with garbage collection: every
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4387 * 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
4388 * variable.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4389 *
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4390 * Here is a good reference text about garbage collection (refers to Python
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4391 * but it applies to all reference-counting mechanisms):
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4392 * http://python.ca/nas/python/gc/
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4393 */
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4394
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4395 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4396 * 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
4397 * When "testing" is TRUE this is called from test_garbagecollect_now().
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4398 * Return TRUE if some memory was freed.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4399 */
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4400 int
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4401 garbage_collect(int testing)
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4402 {
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4403 int copyID;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4404 int abort = FALSE;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4405 buf_T *buf;
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4406 win_T *wp;
6588
1ffe91b5e514 updated for version 7.4.620
Bram Moolenaar <bram@vim.org>
parents: 6577
diff changeset
4407 int did_free = FALSE;
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 818
diff changeset
4408 tabpage_T *tp;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4409
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4410 if (!testing)
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4411 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4412 // Only do this once.
8881
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4413 want_garbage_collect = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4414 may_garbage_collect = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4415 garbage_collect_at_exit = FALSE;
ed0b39dd7fd6 commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents: 8877
diff changeset
4416 }
958
e88950f0d4f6 updated for version 7.0-084
vimboss
parents: 956
diff changeset
4417
19001
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4418 // 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
4419 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
4420 {
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4421 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
4422 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
4423 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
4424
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4425 // 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
4426 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
4427 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
4428 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
4429
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4430 // 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
4431 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
4432 {
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4433 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
4434 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
4435 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
4436 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
4437 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
4438 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
4439 }
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4440 }
1ebfb46710cd patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents: 18968
diff changeset
4441
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4442 // 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
4443 // previous_funccal.
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
4444 copyID = get_copyID();
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4445
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4446 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4447 * 1. Go through all accessible variables and mark all lists and dicts
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4448 * with copyID.
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4449 */
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4450
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4451 // 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
4452 // 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
4453 // 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
4454 abort = abort || set_ref_in_previous_funccal(copyID);
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4455
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4456 // 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
4457 abort = abort || garbage_collect_scriptvars(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4458
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4459 // buffer-local variables
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9636
diff changeset
4460 FOR_ALL_BUFFERS(buf)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4461 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
4462 NULL, NULL);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4463
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4464 // window-local variables
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 818
diff changeset
4465 FOR_ALL_TAB_WINDOWS(tp, wp)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4466 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
4467 NULL, NULL);
4309
bdab73bf24a8 updated for version 7.3.904
Bram Moolenaar <bram@vim.org>
parents: 4297
diff changeset
4468 if (aucmd_win != NULL)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4469 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
4470 NULL, NULL);
18763
49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents: 18713
diff changeset
4471 #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
4472 FOR_ALL_POPUPWINS(wp)
16778
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
4473 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
4474 NULL, NULL);
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
4475 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
4476 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
4477 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
4478 NULL, NULL);
eda4d65f232c patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
4479 #endif
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4480
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4481 // tabpage-local variables
9649
fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents: 9636
diff changeset
4482 FOR_ALL_TABPAGES(tp)
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4483 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
4484 NULL, NULL);
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4485 // 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
4486 abort = abort || garbage_collect_globvars(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4487
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4488 // function-local variables
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4489 abort = abort || set_ref_in_call_stack(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4490
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4491 // named functions (matters for closures)
9735
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4
Christian Brabandt <cb@256bit.org>
parents: 9731
diff changeset
4492 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
4493
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4494 // 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
4495 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
4496
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4497 // 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
4498 abort = abort || garbage_collect_vimvars(copyID);
1733
5a7384b9ca66 updated for version 7.2-031
vimboss
parents: 1730
diff changeset
4499
17151
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4500 // callbacks in buffers
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4501 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
4502
3450
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4503 #ifdef FEAT_LUA
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4504 abort = abort || set_ref_in_lua(copyID);
3450
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4505 #endif
b067b8b81be9 updated for version 7.3.490
Bram Moolenaar <bram@vim.org>
parents: 3435
diff changeset
4506
3618
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4507 #ifdef FEAT_PYTHON
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4508 abort = abort || set_ref_in_python(copyID);
3618
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4509 #endif
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4510
c052f3b79b99 updated for version 7.3.569
Bram Moolenaar <bram@vim.org>
parents: 3600
diff changeset
4511 #ifdef FEAT_PYTHON3
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4512 abort = abort || set_ref_in_python3(copyID);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4513 #endif
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4514
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8491
diff changeset
4515 #ifdef FEAT_JOB_CHANNEL
8877
50e40f322e78 commit https://github.com/vim/vim/commit/3780bb923a688e0051a9a23474eeb38a8acb695a
Christian Brabandt <cb@256bit.org>
parents: 8870
diff changeset
4516 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
4517 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
4518 #endif
9052
3a6b66c02d6d commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents: 9027
diff changeset
4519 #ifdef FEAT_NETBEANS_INTG
3a6b66c02d6d commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents: 9027
diff changeset
4520 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
4521 #endif
7931
2679e636e862 commit https://github.com/vim/vim/commit/4b6a6dcbe7bd13170c4884cc17acb1eac2c633d1
Christian Brabandt <cb@256bit.org>
parents: 7895
diff changeset
4522
9153
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4523 #ifdef FEAT_TIMERS
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4524 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
4525 #endif
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents: 9127
diff changeset
4526
11412
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4527 #ifdef FEAT_QUICKFIX
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4528 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
4529 #endif
84baca75b7f2 patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents: 11323
diff changeset
4530
11804
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4531 #ifdef FEAT_TERMINAL
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4532 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
4533 #endif
5630978ae089 patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
4534
18763
49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents: 18713
diff changeset
4535 #ifdef FEAT_PROP_POPUP
17151
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4536 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
4537 #endif
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents: 17085
diff changeset
4538
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4539 if (!abort)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4540 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4541 /*
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4542 * 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
4543 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4544 did_free = free_unref_items(copyID);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4545
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4546 /*
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4547 * 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
4548 * This may call us back recursively.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4549 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
4550 free_unref_funccal(copyID, testing);
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4551 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4552 else if (p_verbose > 0)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4553 {
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
4554 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
4555 }
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4556
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4557 return did_free;
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4558 }
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4559
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4560 /*
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4561 * Free lists, dictionaries, channels and jobs that are no longer referenced.
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4562 */
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4563 static int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4564 free_unref_items(int copyID)
1891
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4565 {
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4566 int did_free = FALSE;
7a4ad3fb109d updated for version 7.2-188
vimboss
parents: 1880
diff changeset
4567
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4568 // 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
4569 // 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
4570 // do that here.
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4571 in_free_unref_items = TRUE;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4572
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4573 /*
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4574 * 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
4575 * 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
4576 */
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4577
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4578 // 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
4579 did_free |= dict_free_nonref(copyID);
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4580
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4581 // 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
4582 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
4583
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4584 #ifdef FEAT_JOB_CHANNEL
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4585 // 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
4586 // 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
4587 // 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
4588 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
4589
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4590 // 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
4591 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
4592 #endif
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4593
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4594 /*
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4595 * PASS 2: free the items themselves.
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4596 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4597 dict_free_items(copyID);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents: 9556
diff changeset
4598 list_free_items(copyID);
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4599
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4600 #ifdef FEAT_JOB_CHANNEL
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4601 // 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
4602 // 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
4603 // 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
4604 free_unused_jobs(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4605
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4606 // 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
4607 free_unused_channels(copyID, COPYID_MASK);
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4608 #endif
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4609
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4610 in_free_unref_items = FALSE;
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
4611
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4612 return did_free;
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4613 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4614
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4615 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4616 * 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
4617 * "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
4618 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4619 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4620 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4621 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4622 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
4623 {
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4624 int todo;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4625 int abort = FALSE;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4626 hashitem_T *hi;
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4627 hashtab_T *cur_ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4628 ht_stack_T *ht_stack = NULL;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4629 ht_stack_T *tempitem;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4630
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4631 cur_ht = ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4632 for (;;)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4633 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4634 if (!abort)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4635 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4636 // 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
4637 // 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
4638 // list_stack.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4639 todo = (int)cur_ht->ht_used;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4640 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
4641 if (!HASHITEM_EMPTY(hi))
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4642 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4643 --todo;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4644 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
4645 &ht_stack, list_stack);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4646 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4647 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4648
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4649 if (ht_stack == NULL)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4650 break;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4651
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4652 // take an item from the stack
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4653 cur_ht = ht_stack->ht;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4654 tempitem = ht_stack;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4655 ht_stack = ht_stack->prev;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4656 free(tempitem);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4657 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4658
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4659 return abort;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4660 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4661
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4662 /*
17168
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4663 * 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
4664 * 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
4665 */
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4666 int
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4667 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
4668 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4669 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
4670 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4671 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
4672 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
4673 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4674 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
4675 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4676
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4677 /*
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4678 * 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
4679 * 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
4680 */
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4681 int
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4682 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
4683 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4684 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
4685 {
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4686 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
4687 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
4688 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4689 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
4690 }
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4691
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4692 /*
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4693 * 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
4694 * "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
4695 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4696 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4697 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4698 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
4699 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
4700 {
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4701 listitem_T *li;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4702 int abort = FALSE;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4703 list_T *cur_l;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4704 list_stack_T *list_stack = NULL;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4705 list_stack_T *tempitem;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4706
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4707 cur_l = l;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4708 for (;;)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4709 {
19201
e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems
Bram Moolenaar <Bram@vim.org>
parents: 19191
diff changeset
4710 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
4711 // 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
4712 // 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
4713 // list_stack.
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4714 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
4715 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
4716 ht_stack, &list_stack);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4717 if (list_stack == NULL)
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4718 break;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4719
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4720 // take an item from the stack
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4721 cur_l = list_stack->list;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4722 tempitem = list_stack;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4723 list_stack = list_stack->prev;
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4724 free(tempitem);
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4725 }
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4726
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4727 return abort;
371
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4728 }
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4729
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4730 /*
4b9fef49d7ff updated for version 7.0095
vimboss
parents: 364
diff changeset
4731 * 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
4732 * "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
4733 * "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
4734 *
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4735 * Returns TRUE if setting references failed somehow.
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4736 */
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4737 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4738 set_ref_in_item(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4739 typval_T *tv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4740 int copyID,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4741 ht_stack_T **ht_stack,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4742 list_stack_T **list_stack)
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4743 {
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4744 int abort = FALSE;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4745
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4746 if (tv->v_type == VAR_DICT)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4747 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4748 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
4749
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4750 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
4751 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4752 // 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
4753 dd->dv_copyID = copyID;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4754 if (ht_stack == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4755 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4756 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
4757 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4758 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4759 {
21915
2559dc02bd64 patch 8.2.1507: using malloc() directly
Bram Moolenaar <Bram@vim.org>
parents: 21899
diff changeset
4760 ht_stack_T *newitem = ALLOC_ONE(ht_stack_T);
2559dc02bd64 patch 8.2.1507: using malloc() directly
Bram Moolenaar <Bram@vim.org>
parents: 21899
diff changeset
4761
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4762 if (newitem == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4763 abort = TRUE;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4764 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4765 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4766 newitem->ht = &dd->dv_hashtab;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4767 newitem->prev = *ht_stack;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4768 *ht_stack = newitem;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4769 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4770 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4771 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4772 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4773 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
4774 {
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4775 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
4776
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4777 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
4778 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4779 // 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
4780 ll->lv_copyID = copyID;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4781 if (list_stack == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4782 {
17168
1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents: 17151
diff changeset
4783 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
4784 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4785 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4786 {
21915
2559dc02bd64 patch 8.2.1507: using malloc() directly
Bram Moolenaar <Bram@vim.org>
parents: 21899
diff changeset
4787 list_stack_T *newitem = ALLOC_ONE(list_stack_T);
2559dc02bd64 patch 8.2.1507: using malloc() directly
Bram Moolenaar <Bram@vim.org>
parents: 21899
diff changeset
4788
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4789 if (newitem == NULL)
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4790 abort = TRUE;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4791 else
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4792 {
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4793 newitem->list = ll;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4794 newitem->prev = *list_stack;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4795 *list_stack = newitem;
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4796 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4797 }
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
4798 }
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4799 }
9686
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents: 9649
diff changeset
4800 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
4801 {
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4802 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
4803 }
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4804 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
4805 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4806 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
4807 int i;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4808
20295
bc2c9ea94ec1 patch 8.2.0703: Vim9: closure cannot store value in outer context
Bram Moolenaar <Bram@vim.org>
parents: 20257
diff changeset
4809 if (pt != NULL && pt->pt_copyID != copyID)
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4810 {
20295
bc2c9ea94ec1 patch 8.2.0703: Vim9: closure cannot store value in outer context
Bram Moolenaar <Bram@vim.org>
parents: 20257
diff changeset
4811 // Didn't see this partial yet.
bc2c9ea94ec1 patch 8.2.0703: Vim9: closure cannot store value in outer context
Bram Moolenaar <Bram@vim.org>
parents: 20257
diff changeset
4812 pt->pt_copyID = copyID;
bc2c9ea94ec1 patch 8.2.0703: Vim9: closure cannot store value in outer context
Bram Moolenaar <Bram@vim.org>
parents: 20257
diff changeset
4813
9723
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents: 9717
diff changeset
4814 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
4815
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4816 if (pt->pt_dict != NULL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4817 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4818 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4819
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4820 dtv.v_type = VAR_DICT;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4821 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
4822 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
4823 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4824
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4825 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
4826 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
4827 ht_stack, list_stack);
20257
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4828 if (pt->pt_funcstack != NULL)
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4829 {
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4830 typval_T *stack = pt->pt_funcstack->fs_ga.ga_data;
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4831
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4832 for (i = 0; i < pt->pt_funcstack->fs_ga.ga_len; ++i)
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4833 abort = abort || set_ref_in_item(stack + i, copyID,
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4834 ht_stack, list_stack);
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4835 }
683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda
Bram Moolenaar <Bram@vim.org>
parents: 20229
diff changeset
4836
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4837 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4838 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4839 #ifdef FEAT_JOB_CHANNEL
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4840 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
4841 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4842 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
4843 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4844
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4845 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
4846 {
8870
30988ffb7498 commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
4847 job->jv_copyID = copyID;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4848 if (job->jv_channel != NULL)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4849 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4850 dtv.v_type = VAR_CHANNEL;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4851 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
4852 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
4853 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4854 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
4855 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4856 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
4857 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
4858 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
4859 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4860 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4861 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4862 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
4863 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4864 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
4865 ch_part_T part;
8863
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4866 typval_T dtv;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4867 jsonq_T *jq;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4868 cbq_T *cq;
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4869
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4870 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
4871 {
8870
30988ffb7498 commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents: 8863
diff changeset
4872 ch->ch_copyID = copyID;
10259
a09db7a4afe0 commit https://github.com/vim/vim/commit/dc0ccaee68ca24d10050117fbec757ad33590a17
Christian Brabandt <cb@256bit.org>
parents: 10235
diff changeset
4873 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
4874 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4875 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
4876 jq = jq->jq_next)
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4877 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
4878 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
4879 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
4880 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
4881 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4882 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
4883 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
4884 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
4885 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4886 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
4887 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4888 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
4889 dtv.vval.v_partial =
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4890 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
4891 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
4892 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4893 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4894 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
4895 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4896 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
4897 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
4898 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
4899 }
16872
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
4900 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
4901 {
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4902 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
4903 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
4904 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
4905 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4906 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4907 }
e1b84109506a commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents: 8861
diff changeset
4908 #endif
6565
38add5a3d617 updated for version 7.4.609
Bram Moolenaar <bram@vim.org>
parents: 6549
diff changeset
4909 return abort;
364
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4910 }
5332dd13733c updated for version 7.0094
vimboss
parents: 359
diff changeset
4911
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
4912 /*
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4913 * Return a string with the string representation of a variable.
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4914 * If the memory is allocated "tofree" is set to it, otherwise NULL.
80
d2796c60ca6f updated for version 7.0032
vimboss
parents: 76
diff changeset
4915 * "numbuf" is used for a number.
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4916 * 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
4917 * When both "echo_style" and "composite_val" are FALSE, put quotes around
23229
b545334ae654 patch 8.2.2160: various typos
Bram Moolenaar <Bram@vim.org>
parents: 23191
diff changeset
4918 * strings as "string()", otherwise does not put quotes around strings, as
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
4919 * ":echo" displays values.
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4920 * 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
4921 * are replaced with "...".
1360
8d09c1eed8a5 updated for version 7.1-074
vimboss
parents: 1341
diff changeset
4922 * May return NULL.
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4923 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
4924 char_u *
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4925 echo_string_core(
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4926 typval_T *tv,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4927 char_u **tofree,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
4928 char_u *numbuf,
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4929 int copyID,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4930 int echo_style,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4931 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
4932 int composite_val)
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4933 {
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4934 static int recurse = 0;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4935 char_u *r = NULL;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4936
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
4937 if (recurse >= DICT_MAXNEST)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4938 {
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4939 if (!did_echo_string_emsg)
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4940 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
4941 // 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
4942 // 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
4943 // and dicts.
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4944 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
4945 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
4946 }
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4947 *tofree = NULL;
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
4948 return (char_u *)"{E724}";
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4949 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4950 ++recurse;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4951
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4952 switch (tv->v_type)
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4953 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4954 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
4955 if (echo_style && !composite_val)
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4956 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4957 *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
4958 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
4959 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
4960 r = (char_u *)"";
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4961 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4962 else
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4963 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4964 *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
4965 r = *tofree;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4966 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4967 break;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4968
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
4969 case VAR_FUNC:
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4970 if (echo_style)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4971 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4972 *tofree = NULL;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4973 r = tv->vval.v_string;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4974 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4975 else
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4976 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4977 *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
4978 r = *tofree;
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
4979 }
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
4980 break;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
4981
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
4982 case VAR_PARTIAL:
8710
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4983 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4984 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
4985 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
4986 : partial_name(pt), FALSE);
8710
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4987 garray_T ga;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4988 int i;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4989 char_u *tf;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4990
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4991 ga_init2(&ga, 1, 100);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4992 ga_concat(&ga, (char_u *)"function(");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4993 if (fname != NULL)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4994 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4995 ga_concat(&ga, fname);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4996 vim_free(fname);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4997 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
4998 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
4999 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5000 ga_concat(&ga, (char_u *)", [");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5001 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
5002 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5003 if (i > 0)
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5004 ga_concat(&ga, (char_u *)", ");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5005 ga_concat(&ga,
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5006 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
5007 vim_free(tf);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5008 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5009 ga_concat(&ga, (char_u *)"]");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5010 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5011 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
5012 {
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5013 typval_T dtv;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5014
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5015 ga_concat(&ga, (char_u *)", ");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5016 dtv.v_type = VAR_DICT;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5017 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
5018 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
5019 vim_free(tf);
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5020 }
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5021 ga_concat(&ga, (char_u *)")");
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5022
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5023 *tofree = ga.ga_data;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5024 r = *tofree;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5025 break;
af3cb5c068fd commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents: 8708
diff changeset
5026 }
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5027
15454
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5028 case VAR_BLOB:
15466
435fcefd2c8e patch 8.1.0741: viminfo with Blob is not tested
Bram Moolenaar <Bram@vim.org>
parents: 15464
diff changeset
5029 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
5030 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents: 15219
diff changeset
5031
56
dbf53ece2e23 updated for version 7.0029
vimboss
parents: 51
diff changeset
5032 case VAR_LIST:
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5033 if (tv->vval.v_list == NULL)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5034 {
20126
831b1ea43020 patch 8.2.0618: echoing a null list results in no output
Bram Moolenaar <Bram@vim.org>
parents: 20111
diff changeset
5035 // NULL list is equivalent to empty list.
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5036 *tofree = NULL;
20126
831b1ea43020 patch 8.2.0618: echoing a null list results in no output
Bram Moolenaar <Bram@vim.org>
parents: 20111
diff changeset
5037 r = (char_u *)"[]";
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5038 }
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5039 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
5040 && tv->vval.v_list->lv_len > 0)
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5041 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5042 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5043 r = (char_u *)"[...]";
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5044 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5045 else
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5046 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5047 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
5048
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5049 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
5050 *tofree = list2string(tv, copyID, restore_copyID);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5051 if (restore_copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5052 tv->vval.v_list->lv_copyID = old_copyID;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5053 r = *tofree;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5054 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5055 break;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5056
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5057 case VAR_DICT:
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5058 if (tv->vval.v_dict == NULL)
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5059 {
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
5060 // NULL dict is equivalent to empty dict.
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5061 *tofree = NULL;
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
5062 r = (char_u *)"{}";
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5063 }
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5064 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
5065 && tv->vval.v_dict->dv_hashtab.ht_used != 0)
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5066 {
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5067 *tofree = NULL;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5068 r = (char_u *)"{...}";
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5069 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5070 else
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5071 {
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5072 int old_copyID = tv->vval.v_dict->dv_copyID;
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20126
diff changeset
5073
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5074 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
5075 *tofree = dict2string(tv, copyID, restore_copyID);
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5076 if (restore_copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5077 tv->vval.v_dict->dv_copyID = old_copyID;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5078 r = *tofree;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5079 }
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5080 break;
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5081
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5082 case VAR_NUMBER:
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
5083 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
5084 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
5085 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
5086 *tofree = NULL;
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5087 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
5088 break;
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
5089
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5090 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
5091 case VAR_CHANNEL:
24818
fcab26a7fd4d patch 8.2.2947: build failure without the channel feature
Bram Moolenaar <Bram@vim.org>
parents: 24812
diff changeset
5092 #ifdef FEAT_JOB_CHANNEL
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5093 *tofree = NULL;
24812
8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string
Bram Moolenaar <Bram@vim.org>
parents: 24780
diff changeset
5094 r = tv->v_type == VAR_JOB ? job_to_string_buf(tv, numbuf)
8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string
Bram Moolenaar <Bram@vim.org>
parents: 24780
diff changeset
5095 : channel_to_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
5096 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
5097 {
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11848
diff changeset
5098 *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
5099 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
5100 }
24818
fcab26a7fd4d patch 8.2.2947: build failure without the channel feature
Bram Moolenaar <Bram@vim.org>
parents: 24812
diff changeset
5101 #endif
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5102 break;
634
1c586ee8dd45 updated for version 7.0183
vimboss
parents: 630
diff changeset
5103
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
5104 case VAR_INSTR:
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
5105 *tofree = NULL;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
5106 r = (char_u *)"instructions";
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
5107 break;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
5108
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5109 case VAR_FLOAT:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5110 #ifdef FEAT_FLOAT
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5111 *tofree = NULL;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5112 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5113 r = numbuf;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5114 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5115 #endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5116
19102
ba9f50bfda83 patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents: 19087
diff changeset
5117 case VAR_BOOL:
7712
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
5118 case VAR_SPECIAL:
bce3b5ddb393 commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents: 7705
diff changeset
5119 *tofree = NULL;
7730
80ce794827c4 commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents: 7720
diff changeset
5120 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
5121 break;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5122 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5123
5973
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
5124 if (--recurse == 0)
99d8f2d72dcd updated for version 7.4.327
Bram Moolenaar <bram@vim.org>
parents: 5964
diff changeset
5125 did_echo_string_emsg = FALSE;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5126 return r;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5127 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5128
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5129 /*
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5130 * Return a string with the string representation of a variable.
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5131 * If the memory is allocated "tofree" is set to it, otherwise NULL.
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5132 * "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
5133 * 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
5134 * 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
5135 * May return NULL.
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5136 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5137 char_u *
9157
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5138 echo_string(
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5139 typval_T *tv,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5140 char_u **tofree,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5141 char_u *numbuf,
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5142 int copyID)
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5143 {
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5144 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
5145 }
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5146
e316b83892c1 commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents: 9153
diff changeset
5147 /*
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5148 * Return string "str" in ' quotes, doubling ' characters.
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5149 * If "str" is NULL an empty string is assumed.
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5150 * If "function" is TRUE make it function('string').
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5151 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
5152 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5153 string_quote(char_u *str, int function)
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5154 {
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5155 unsigned len;
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5156 char_u *p, *r, *s;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5157
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5158 len = (function ? 13 : 3);
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5159 if (str != NULL)
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5160 {
835
8bebcabccc2c updated for version 7.0e01
vimboss
parents: 833
diff changeset
5161 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
5162 for (p = str; *p != NUL; MB_PTR_ADV(p))
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5163 if (*p == '\'')
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5164 ++len;
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5165 }
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5166 s = r = alloc(len);
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5167 if (r != NULL)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5168 {
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5169 if (function)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5170 {
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5171 STRCPY(r, "function('");
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5172 r += 10;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5173 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5174 else
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5175 *r++ = '\'';
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5176 if (str != NULL)
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5177 for (p = str; *p != NUL; )
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5178 {
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5179 if (*p == '\'')
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5180 *r++ = '\'';
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5181 MB_COPY_CHAR(p, r);
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5182 }
100
1f3902f3eb5c updated for version 7.0038
vimboss
parents: 97
diff changeset
5183 *r++ = '\'';
97
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5184 if (function)
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5185 *r++ = ')';
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5186 *r++ = NUL;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5187 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5188 return s;
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5189 }
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5190
d4f3db33d782 updated for version 7.0037
vimboss
parents: 92
diff changeset
5191 /*
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5192 * Convert the specified byte index of line 'lnum' in buffer 'buf' to a
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5193 * character index. Works only for loaded buffers. Returns -1 on failure.
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5194 * The index of the first byte and the first character is zero.
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5195 */
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5196 int
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5197 buf_byteidx_to_charidx(buf_T *buf, int lnum, int byteidx)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5198 {
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5199 char_u *str;
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5200 char_u *t;
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5201 int count;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5202
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5203 if (buf == NULL || buf->b_ml.ml_mfp == NULL)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5204 return -1;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5205
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5206 if (lnum > buf->b_ml.ml_line_count)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5207 lnum = buf->b_ml.ml_line_count;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5208
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5209 str = ml_get_buf(buf, lnum, FALSE);
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5210 if (str == NULL)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5211 return -1;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5212
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5213 if (*str == NUL)
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5214 return 0;
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5215
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5216 // count the number of characters
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5217 t = str;
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5218 for (count = 0; *t != NUL && t <= str + byteidx; count++)
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5219 t += mb_ptr2len(t);
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5220
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5221 // In insert mode, when the cursor is at the end of a non-empty line,
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5222 // byteidx points to the NUL character immediately past the end of the
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5223 // string. In this case, add one to the character count.
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5224 if (*t == NUL && byteidx != 0 && t == str + byteidx)
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5225 count++;
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5226
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5227 return count - 1;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5228 }
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5229
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5230 /*
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5231 * Convert the specified character index of line 'lnum' in buffer 'buf' to a
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5232 * byte index. Works only for loaded buffers. Returns -1 on failure.
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5233 * The index of the first byte and the first character is zero.
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5234 */
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5235 int
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5236 buf_charidx_to_byteidx(buf_T *buf, int lnum, int charidx)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5237 {
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5238 char_u *str;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5239 char_u *t;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5240
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5241 if (buf == NULL || buf->b_ml.ml_mfp == NULL)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5242 return -1;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5243
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5244 if (lnum > buf->b_ml.ml_line_count)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5245 lnum = buf->b_ml.ml_line_count;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5246
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5247 str = ml_get_buf(buf, lnum, FALSE);
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5248 if (str == NULL)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5249 return -1;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5250
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5251 // Convert the character offset to a byte offset
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5252 t = str;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5253 while (*t != NUL && --charidx > 0)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5254 t += mb_ptr2len(t);
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5255
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5256 return t - str;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5257 }
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5258
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5259 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5260 * Translate a String variable into a position.
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5261 * Returns NULL when there is an error.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5262 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
5263 pos_T *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5264 var2fpos(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5265 typval_T *varp,
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5266 int dollar_lnum, // TRUE when $ is last line
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5267 int *fnum, // set to fnum for '0, 'A, etc.
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5268 int charcol) // return character column
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5269 {
700
c78d973dce9e updated for version 7.0211
vimboss
parents: 697
diff changeset
5270 char_u *name;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5271 static pos_T pos;
700
c78d973dce9e updated for version 7.0211
vimboss
parents: 697
diff changeset
5272 pos_T *pp;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5273
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5274 // Argument can be [lnum, col, coladd].
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5275 if (varp->v_type == VAR_LIST)
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5276 {
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5277 list_T *l;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5278 int len;
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5279 int error = FALSE;
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5280 listitem_T *li;
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5281
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5282 l = varp->vval.v_list;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5283 if (l == NULL)
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5284 return NULL;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5285
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5286 // Get the line number
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5287 pos.lnum = list_find_nr(l, 0L, &error);
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5288 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
5289 return NULL; // invalid line number
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5290 if (charcol)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5291 len = (long)mb_charlen(ml_get(pos.lnum));
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5292 else
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5293 len = (long)STRLEN(ml_get(pos.lnum));
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5294
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5295 // Get the column number
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5296 // We accept "$" for the column number: last column.
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5297 li = list_find(l, 1L);
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5298 if (li != NULL && li->li_tv.v_type == VAR_STRING
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5299 && li->li_tv.vval.v_string != NULL
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5300 && STRCMP(li->li_tv.vval.v_string, "$") == 0)
21899
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5301 {
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5302 pos.col = len + 1;
21899
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5303 }
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5304 else
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5305 {
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5306 pos.col = list_find_nr(l, 1L, &error);
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5307 if (error)
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5308 return NULL;
8fe86125dcba patch 8.2.1499: Vim9: error when using "$" with col()
Bram Moolenaar <Bram@vim.org>
parents: 21889
diff changeset
5309 }
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5310
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5311 // Accept a position up to the NUL after the line.
826
1cdd2661f34c updated for version 7.0d01
vimboss
parents: 819
diff changeset
5312 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
5313 return NULL; // invalid column number
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5314 --pos.col;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5315
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5316 // Get the virtual offset. Defaults to zero.
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5317 pos.coladd = list_find_nr(l, 2L, &error);
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5318 if (error)
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5319 pos.coladd = 0;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5320
685
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5321 return &pos;
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5322 }
d7e33248b9c8 updated for version 7.0206
vimboss
parents: 681
diff changeset
5323
24250
01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string
Bram Moolenaar <Bram@vim.org>
parents: 24240
diff changeset
5324 if (in_vim9script() && check_for_string_arg(varp, 0) == FAIL)
01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string
Bram Moolenaar <Bram@vim.org>
parents: 24240
diff changeset
5325 return NULL;
01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string
Bram Moolenaar <Bram@vim.org>
parents: 24240
diff changeset
5326
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15146
diff changeset
5327 name = tv_get_string_chk(varp);
323
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5328 if (name == NULL)
03b3684919e3 updated for version 7.0084
vimboss
parents: 315
diff changeset
5329 return NULL;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5330 if (name[0] == '.') // cursor
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5331 {
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5332 pos = curwin->w_cursor;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5333 if (charcol)
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5334 pos.col = buf_byteidx_to_charidx(curbuf, pos.lnum, pos.col);
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5335 return &pos;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5336 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5337 if (name[0] == 'v' && name[1] == NUL) // Visual start
1609
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
5338 {
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
5339 if (VIsual_active)
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5340 pos = VIsual;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5341 else
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5342 pos = curwin->w_cursor;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5343 if (charcol)
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5344 pos.col = buf_byteidx_to_charidx(curbuf, pos.lnum, pos.col);
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5345 return &pos;
1609
1324b7b755f3 updated for version 7.1-322
vimboss
parents: 1591
diff changeset
5346 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5347 if (name[0] == '\'') // mark
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5348 {
4043
80b041b994d1 updated for version 7.3.776
Bram Moolenaar <bram@vim.org>
parents: 3986
diff changeset
5349 pp = getmark_buf_fnum(curbuf, name[1], FALSE, fnum);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5350 if (pp == NULL || pp == (pos_T *)-1 || pp->lnum <= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5351 return NULL;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5352 if (charcol)
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5353 pp->col = buf_byteidx_to_charidx(curbuf, pp->lnum, pp->col);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5354 return pp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5355 }
705
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5356
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5357 pos.coladd = 0;
69e8006af734 updated for version 7.0212
vimboss
parents: 700
diff changeset
5358
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5359 if (name[0] == 'w' && dollar_lnum)
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5360 {
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5361 pos.col = 0;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5362 if (name[1] == '0') // "w0": first visible line
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5363 {
671
83a006f81bac updated for version 7.0199
vimboss
parents: 667
diff changeset
5364 update_topline();
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5365 // 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
5366 // 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
5367 pos.lnum = curwin->w_topline > 0 ? curwin->w_topline : 1;
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5368 return &pos;
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5369 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5370 else if (name[1] == '$') // "w$": last visible line
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5371 {
671
83a006f81bac updated for version 7.0199
vimboss
parents: 667
diff changeset
5372 validate_botline();
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5373 // 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
5374 pos.lnum = curwin->w_botline > 0 ? curwin->w_botline - 1 : 0;
666
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5375 return &pos;
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5376 }
0137e7c3d31b updated for version 7.0196
vimboss
parents: 659
diff changeset
5377 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5378 else if (name[0] == '$') // last column or line
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5379 {
1317
45bae37de037 updated for version 7.1-031
vimboss
parents: 1311
diff changeset
5380 if (dollar_lnum)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5381 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5382 pos.lnum = curbuf->b_ml.ml_line_count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5383 pos.col = 0;
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 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5387 pos.lnum = curwin->w_cursor.lnum;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5388 if (charcol)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5389 pos.col = (colnr_T)mb_charlen(ml_get_curline());
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5390 else
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5391 pos.col = (colnr_T)STRLEN(ml_get_curline());
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5392 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5393 return &pos;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5394 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5395 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5396 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5397
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5398 /*
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5399 * Convert list in "arg" into a position and optional file number.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5400 * When "fnump" is NULL there is no file number, only 3 items.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5401 * 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
5402 * it to use 1 for the first column.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5403 * Return FAIL when conversion is not possible, doesn't check the position for
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5404 * validity.
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5405 */
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9562
diff changeset
5406 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5407 list2fpos(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5408 typval_T *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5409 pos_T *posp,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5410 int *fnump,
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5411 colnr_T *curswantp,
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5412 int charcol)
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5413 {
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5414 list_T *l = arg->vval.v_list;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5415 long i = 0;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5416 long n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5417
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5418 // 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
5419 // there when "fnump" isn't NULL; "coladd" and "curswant" are optional.
915
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5420 if (arg->v_type != VAR_LIST
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5421 || l == NULL
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5422 || l->lv_len < (fnump == NULL ? 2 : 3)
5938
ccac0aa34eea updated for version 7.4.310
Bram Moolenaar <bram@vim.org>
parents: 5930
diff changeset
5423 || l->lv_len > (fnump == NULL ? 4 : 5))
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5424 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5425
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5426 if (fnump != NULL)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5427 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5428 n = list_find_nr(l, i++, NULL); // fnum
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5429 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5430 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5431 if (n == 0)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5432 n = curbuf->b_fnum; // current buffer
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5433 *fnump = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5434 }
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5435
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5436 n = list_find_nr(l, i++, NULL); // lnum
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5437 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5438 return FAIL;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5439 posp->lnum = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5440
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5441 n = list_find_nr(l, i++, NULL); // col
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5442 if (n < 0)
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5443 return FAIL;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5444 // If character position is specified, then convert to byte position
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5445 if (charcol)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5446 {
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5447 buf_T *buf;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5448
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5449 // Get the text for the specified line in a loaded buffer
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5450 buf = buflist_findnr(fnump == NULL ? curbuf->b_fnum : *fnump);
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5451 if (buf == NULL || buf->b_ml.ml_mfp == NULL)
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5452 return FAIL;
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5453
23600
f4347a61ed38 patch 8.2.2342: "char" functions may return wrong column in Insert mode
Bram Moolenaar <Bram@vim.org>
parents: 23563
diff changeset
5454 n = buf_charidx_to_byteidx(buf, posp->lnum, n) + 1;
23563
87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count
Bram Moolenaar <Bram@vim.org>
parents: 23553
diff changeset
5455 }
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5456 posp->col = n;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5457
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5458 n = list_find_nr(l, i, NULL); // off
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5459 if (n < 0)
915
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5460 posp->coladd = 0;
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5461 else
d87865573d80 updated for version 7.0-041
vimboss
parents: 914
diff changeset
5462 posp->coladd = n;
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5463
5938
ccac0aa34eea updated for version 7.4.310
Bram Moolenaar <bram@vim.org>
parents: 5930
diff changeset
5464 if (curswantp != NULL)
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5465 *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
5466
709
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5467 return OK;
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5468 }
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5469
ecee28dd16d2 updated for version 7.0213
vimboss
parents: 705
diff changeset
5470 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5471 * Get the length of an environment variable name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5472 * Advance "arg" to the first character after the name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5473 * Return 0 for error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5474 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
5475 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5476 get_env_len(char_u **arg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5477 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5478 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5479 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5480
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5481 for (p = *arg; vim_isIDc(*p); ++p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5482 ;
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5483 if (p == *arg) // no name found
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5484 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5485
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5486 len = (int)(p - *arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5487 *arg = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5488 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5489 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5490
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5491 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5492 * Get the length of the name of a function or internal variable.
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
5493 * "arg" is advanced to after the name.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5494 * Return 0 if something is wrong.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5495 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5496 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5497 get_id_len(char_u **arg)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5498 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5499 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5500 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5501
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5502 // Find the end of the name.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5503 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
5504 {
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5505 if (*p == ':')
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5506 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5507 // "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
5508 // 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
5509 len = (int)(p - *arg);
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5510 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
5511 || len > 1)
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5512 break;
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5513 }
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5514 }
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5515 if (p == *arg) // no name found
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5516 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5517
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5518 len = (int)(p - *arg);
21630
3c6c52fbc8ea patch 8.2.1365: Vim9: no error for missing white space around operator
Bram Moolenaar <Bram@vim.org>
parents: 21622
diff changeset
5519 *arg = p;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5520
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5521 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5522 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5523
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5524 /*
124
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
5525 * Get the length of the name of a variable or function.
f455396f3c3f updated for version 7.0043
vimboss
parents: 121
diff changeset
5526 * Only the name is recognized, does not handle ".key" or "[idx]".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5527 * "arg" is advanced to the first non-white character after the name.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5528 * Return -1 if curly braces expansion failed.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5529 * Return 0 if something else is wrong.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5530 * If the name contains 'magic' {}'s, expand them and return the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5531 * expanded name in an allocated string via 'alias' - caller must free.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5532 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
5533 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5534 get_name_len(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5535 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5536 char_u **alias,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5537 int evaluate,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5538 int verbose)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5539 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5540 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5541 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5542 char_u *expr_start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5543 char_u *expr_end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5544
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5545 *alias = NULL; // default to no alias
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5546
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5547 if ((*arg)[0] == K_SPECIAL && (*arg)[1] == KS_EXTRA
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5548 && (*arg)[2] == (int)KE_SNR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5549 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5550 // hard coded <SNR>, already translated
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5551 *arg += 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5552 return get_id_len(arg) + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5553 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5554 len = eval_fname_script(*arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5555 if (len > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5556 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5557 // literal "<SID>", "s:" or "<SNR>"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5558 *arg += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5559 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5560
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5561 /*
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5562 * Find the end of the name; check for {} construction.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5563 */
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5564 p = find_name_end(*arg, &expr_start, &expr_end,
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5565 len > 0 ? 0 : FNE_CHECK_START);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5566 if (expr_start != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5567 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5568 char_u *temp_string;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5569
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5570 if (!evaluate)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5571 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5572 len += (int)(p - *arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5573 *arg = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5574 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5575 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5576
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5577 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5578 * Include any <SID> etc in the expanded string:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5579 * Thus the -len here.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5580 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5581 temp_string = make_expanded_name(*arg - len, expr_start, expr_end, p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5582 if (temp_string == NULL)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5583 return -1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5584 *alias = temp_string;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5585 *arg = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5586 return (int)STRLEN(temp_string);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5587 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5588
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5589 len += get_id_len(arg);
15464
3faa7cc8207c patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents: 15460
diff changeset
5590 // 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
5591 // reported at a higher level.
3faa7cc8207c patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents: 15460
diff changeset
5592 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
5593 semsg(_(e_invexpr2), *arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5594
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5595 return len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5596 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5597
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5598 /*
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5599 * 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
5600 * 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
5601 * start and end of the first magic braces item.
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5602 * "flags" can have FNE_INCL_BR and FNE_CHECK_START.
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5603 * 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
5604 * valid name.
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5605 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5606 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5607 find_name_end(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5608 char_u *arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5609 char_u **expr_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5610 char_u **expr_end,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5611 int flags)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5612 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5613 int mb_nest = 0;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5614 int br_nest = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5615 char_u *p;
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5616 int len;
21279
8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out
Bram Moolenaar <Bram@vim.org>
parents: 21277
diff changeset
5617 int vim9script = in_vim9script();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5618
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5619 if (expr_start != NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5620 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5621 *expr_start = NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5622 *expr_end = NULL;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5623 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5624
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5625 // Quick check for valid starting character.
20091
a64c16ff98b8 patch 8.2.0601: Vim9: :unlet is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 20061
diff changeset
5626 if ((flags & FNE_CHECK_START) && !eval_isnamec1(*arg)
a64c16ff98b8 patch 8.2.0601: Vim9: :unlet is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 20061
diff changeset
5627 && (*arg != '{' || vim9script))
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5628 return arg;
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5629
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5630 for (p = arg; *p != NUL
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5631 && (eval_isnamec(*p)
20091
a64c16ff98b8 patch 8.2.0601: Vim9: :unlet is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 20061
diff changeset
5632 || (*p == '{' && !vim9script)
21447
369cde0d5771 patch 8.2.1274: Vim9: no error for missing white space at script level
Bram Moolenaar <Bram@vim.org>
parents: 21443
diff changeset
5633 || ((flags & FNE_INCL_BR) && (*p == '['
21512
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5634 || (*p == '.' && eval_isdictc(p[1]))))
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5635 || mb_nest != 0
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10964
diff changeset
5636 || br_nest != 0); MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5637 {
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5638 if (*p == '\'')
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5639 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5640 // 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
5641 for (p = p + 1; *p != NUL && *p != '\''; MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5642 ;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5643 if (*p == NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5644 break;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5645 }
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5646 else if (*p == '"')
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5647 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5648 // 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
5649 for (p = p + 1; *p != NUL && *p != '"'; MB_PTR_ADV(p))
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5650 if (*p == '\\' && p[1] != NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5651 ++p;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5652 if (*p == NUL)
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5653 break;
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5654 }
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5655 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
5656 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5657 // "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
5658 // 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
5659 len = (int)(p - arg);
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5660 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
5661 || (len > 1 && p[-1] != '}'))
7611
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5662 break;
9c420b8db435 commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents: 7605
diff changeset
5663 }
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5664
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5665 if (mb_nest == 0)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5666 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5667 if (*p == '[')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5668 ++br_nest;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5669 else if (*p == ']')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5670 --br_nest;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5671 }
468
0a60be12e47e updated for version 7.0125
vimboss
parents: 464
diff changeset
5672
20091
a64c16ff98b8 patch 8.2.0601: Vim9: :unlet is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 20061
diff changeset
5673 if (br_nest == 0 && !vim9script)
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5674 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5675 if (*p == '{')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5676 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5677 mb_nest++;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5678 if (expr_start != NULL && *expr_start == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5679 *expr_start = p;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5680 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5681 else if (*p == '}')
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5682 {
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5683 mb_nest--;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5684 if (expr_start != NULL && mb_nest == 0 && *expr_end == NULL)
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5685 *expr_end = p;
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5686 }
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
5687 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5688 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5689
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5690 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5691 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5692
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5693 /*
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5694 * Expands out the 'magic' {}'s in a variable/function name.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5695 * Note that this can call itself recursively, to deal with
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5696 * constructs like foo{bar}{baz}{bam}
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5697 * The four pointer arguments point to "foo{expre}ss{ion}bar"
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5698 * "in_start" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5699 * "expr_start" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5700 * "expr_end" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5701 * "in_end" ^
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5702 *
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5703 * Returns a new allocated string, which the caller must free.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5704 * Returns NULL for failure.
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5705 */
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5706 static char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5707 make_expanded_name(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5708 char_u *in_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5709 char_u *expr_start,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5710 char_u *expr_end,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5711 char_u *in_end)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5712 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5713 char_u c1;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5714 char_u *retval = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5715 char_u *temp_result;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5716
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5717 if (expr_end == NULL || in_end == NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5718 return NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5719 *expr_start = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5720 *expr_end = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5721 c1 = *in_end;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5722 *in_end = NUL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5723
20996
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
5724 temp_result = eval_to_string(expr_start + 1, FALSE);
3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line
Bram Moolenaar <Bram@vim.org>
parents: 20992
diff changeset
5725 if (temp_result != NULL)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5726 {
16764
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents: 16706
diff changeset
5727 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
5728 + (in_end - expr_end) + 1);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5729 if (retval != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5730 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5731 STRCPY(retval, in_start);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5732 STRCAT(retval, temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5733 STRCAT(retval, expr_end + 1);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5734 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5735 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5736 vim_free(temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5737
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5738 *in_end = c1; // put char back for error messages
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5739 *expr_start = '{';
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5740 *expr_end = '}';
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5741
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5742 if (retval != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5743 {
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5744 temp_result = find_name_end(retval, &expr_start, &expr_end, 0);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5745 if (expr_start != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5746 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5747 // Further expansion!
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5748 temp_result = make_expanded_name(retval, expr_start,
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5749 expr_end, temp_result);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5750 vim_free(retval);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5751 retval = temp_result;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5752 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5753 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5754
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5755 return retval;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5756 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5757
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5758 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5759 * 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
5760 * Does not include '{' or '}' for magic braces.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5761 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5762 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5763 eval_isnamec(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5764 {
21512
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5765 return ASCII_ISALNUM(c) || c == '_' || c == ':' || c == AUTOLOAD_CHAR;
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5766 }
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5767
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5768 /*
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5769 * 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
5770 * variable or function name (excluding '{' and '}').
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5771 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5772 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5773 eval_isnamec1(int c)
271
8d34af900bae updated for version 7.0072
vimboss
parents: 266
diff changeset
5774 {
21512
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5775 return ASCII_ISALPHA(c) || c == '_';
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5776 }
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5777
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5778 /*
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5779 * Return TRUE if character "c" can be used as the first character of a
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5780 * dictionary key.
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5781 */
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5782 int
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5783 eval_isdictc(int c)
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5784 {
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5785 return ASCII_ISALNUM(c) || c == '_';
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5786 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5787
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5788 /*
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5789 * Handle:
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5790 * - 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
5791 * - ".name" lookup
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5792 * - 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
5793 * - method call: var->method()
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5794 *
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5795 * 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
5796 */
9562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
5797 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5798 handle_subscript(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5799 char_u **arg,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5800 typval_T *rettv,
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
5801 evalarg_T *evalarg,
21032
f80e822a310d patch 8.2.1067: expression "!expr->func()" does not work
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
5802 int verbose) // give error messages
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5803 {
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
5804 int evaluate = evalarg != NULL
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
5805 && (evalarg->eval_flags & EVAL_EVALUATE);
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5806 int ret = OK;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5807 dict_T *selfdict = NULL;
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5808 int check_white = TRUE;
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5809 int getnext;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5810 char_u *p;
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5811
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5812 while (ret == OK)
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5813 {
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5814 // When at the end of the line and ".name" or "->{" or "->X" follows in
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5815 // the next line then consume the line break.
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5816 p = eval_next_non_blank(*arg, evalarg, &getnext);
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5817 if (getnext
21512
81c47a694479 patch 8.2.1306: checking for first character of dict key is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 21461
diff changeset
5818 && ((rettv->v_type == VAR_DICT && *p == '.' && eval_isdictc(p[1]))
24852
3c8bd1d392d1 patch 8.2.2964: Vim9: hang when using space after ->
Bram Moolenaar <Bram@vim.org>
parents: 24818
diff changeset
5819 || (p[0] == '-' && p[1] == '>' && (p[2] == '{'
3c8bd1d392d1 patch 8.2.2964: Vim9: hang when using space after ->
Bram Moolenaar <Bram@vim.org>
parents: 24818
diff changeset
5820 || ASCII_ISALPHA(in_vim9script() ? *skipwhite(p + 2)
3c8bd1d392d1 patch 8.2.2964: Vim9: hang when using space after ->
Bram Moolenaar <Bram@vim.org>
parents: 24818
diff changeset
5821 : p[2])))))
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5822 {
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5823 *arg = eval_next_line(evalarg);
21865
c16af87df654 patch 8.2.1482: Vim9: crash when using a nested lambda
Bram Moolenaar <Bram@vim.org>
parents: 21861
diff changeset
5824 p = *arg;
21142
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5825 check_white = FALSE;
165cea61e974 patch 8.2.1122: Vim9: line continuation in dict member not recognized
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
5826 }
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5827
24112
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5828 if (rettv->v_type == VAR_ANY)
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5829 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5830 char_u *exp_name;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5831 int cc;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5832 int idx;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5833 ufunc_T *ufunc;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5834 type_T *type;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5835
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5836 // Found script from "import * as {name}", script item name must
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5837 // follow.
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5838 if (**arg != '.')
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5839 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5840 if (verbose)
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5841 semsg(_(e_expected_str_but_got_str), "'.'", *arg);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5842 ret = FAIL;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5843 break;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5844 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5845 ++*arg;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5846 if (IS_WHITE_OR_NUL(**arg))
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5847 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5848 if (verbose)
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5849 emsg(_(e_no_white_space_allowed_after_dot));
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5850 ret = FAIL;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5851 break;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5852 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5853
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5854 // isolate the name
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5855 exp_name = *arg;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5856 while (eval_isnamec(**arg))
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5857 ++*arg;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5858 cc = **arg;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5859 **arg = NUL;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5860
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5861 idx = find_exported(rettv->vval.v_number, exp_name, &ufunc, &type,
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5862 evalarg->eval_cctx, verbose);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5863 **arg = cc;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5864 *arg = skipwhite(*arg);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5865
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5866 if (idx < 0 && ufunc == NULL)
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5867 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5868 ret = FAIL;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5869 break;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5870 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5871 if (idx >= 0)
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5872 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5873 scriptitem_T *si = SCRIPT_ITEM(rettv->vval.v_number);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5874 svar_T *sv = ((svar_T *)si->sn_var_vals.ga_data) + idx;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5875
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5876 copy_tv(sv->sv_tv, rettv);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5877 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5878 else
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5879 {
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5880 rettv->v_type = VAR_FUNC;
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5881 rettv->vval.v_string = vim_strsave(ufunc->uf_name);
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5882 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5883 }
0346a59ed5bf patch 8.2.2597: Vim9: "import * as" does not work at script level
Bram Moolenaar <Bram@vim.org>
parents: 24063
diff changeset
5884
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5885 if ((**arg == '(' && (!evaluate || rettv->v_type == VAR_FUNC
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5886 || rettv->v_type == VAR_PARTIAL))
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5887 && (!check_white || !VIM_ISWHITE(*(*arg - 1))))
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5888 {
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
5889 ret = call_func_rettv(arg, evalarg, rettv, evaluate,
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
5890 selfdict, NULL);
17674
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5891
06c3e15ad84d patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents: 17661
diff changeset
5892 // 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
5893 // 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
5894 // but not caught.
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5895 if (aborting())
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5896 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5897 if (ret == OK)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5898 clear_tv(rettv);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5899 ret = FAIL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5900 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5901 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5902 selfdict = NULL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5903 }
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21546
diff changeset
5904 else if (p[0] == '-' && p[1] == '>')
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5905 {
24632
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5906 if (in_vim9script())
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5907 *arg = skipwhite(p + 2);
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5908 else
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5909 *arg = p + 2;
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5910 if (ret == OK)
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5911 {
24632
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5912 if (VIM_ISWHITE(**arg))
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5913 {
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5914 emsg(_(e_nowhitespace));
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5915 ret = FAIL;
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5916 }
9e72076e31f8 patch 8.2.2855: white space after "->" does not give E274
Bram Moolenaar <Bram@vim.org>
parents: 24618
diff changeset
5917 else if ((**arg == '{' && !in_vim9script()) || **arg == '(')
23428
5807e3958e38 patch 8.2.2257: Vim9: using -> for lambda is ambiguous
Bram Moolenaar <Bram@vim.org>
parents: 23416
diff changeset
5918 // expr->{lambda}() or expr->(lambda)()
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
5919 ret = eval_lambda(arg, rettv, evalarg, verbose);
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5920 else
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5921 // expr->name()
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21104
diff changeset
5922 ret = eval_method(arg, rettv, evalarg, verbose);
17763
117c7795a979 patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents: 17674
diff changeset
5923 }
17612
e259d11e2900 patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
5924 }
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5925 // "." is ".name" lookup when we found a dict or when evaluating and
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5926 // scriptversion is at least 2, where string concatenation is "..".
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5927 else if (**arg == '['
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5928 || (**arg == '.' && (rettv->v_type == VAR_DICT
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5929 || (!evaluate
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5930 && (*arg)[1] != '.'
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5931 && current_sctx.sc_version >= 2))))
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5932 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5933 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5934 if (rettv->v_type == VAR_DICT)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5935 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5936 selfdict = rettv->vval.v_dict;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5937 if (selfdict != NULL)
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5938 ++selfdict->dv_refcount;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5939 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5940 else
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5941 selfdict = NULL;
21040
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda
Bram Moolenaar <Bram@vim.org>
parents: 21034
diff changeset
5942 if (eval_index(arg, rettv, evalarg, verbose) == FAIL)
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5943 {
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5944 clear_tv(rettv);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5945 ret = FAIL;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5946 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5947 }
21208
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5948 else
09377fd59b2e patch 8.2.1155: Vim9: cannot handle line break inside lambda
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
5949 break;
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5950 }
8575
b5209a4e5baf commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents: 8554
diff changeset
5951
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
5952 // 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
5953 // 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
5954 // explicitly (pt_auto is FALSE).
9104
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5955 if (selfdict != NULL
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5956 && (rettv->v_type == VAR_FUNC
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5957 || (rettv->v_type == VAR_PARTIAL
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5958 && (rettv->vval.v_partial->pt_auto
2242a5766417 commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents: 9093
diff changeset
5959 || 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
5960 selfdict = make_partial(selfdict, rettv);
8575
b5209a4e5baf commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents: 8554
diff changeset
5961
159
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5962 dict_unref(selfdict);
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5963 return ret;
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5964 }
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5965
389c8abd5925 updated for version 7.0048
vimboss
parents: 156
diff changeset
5966 /*
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5967 * Make a copy of an item.
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5968 * 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
5969 * 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
5970 * reference to an already copied list/dict can be used.
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5971 * Returns FAIL or OK.
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5972 */
9556
afaff1d283d3 commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents: 9527
diff changeset
5973 int
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5974 item_copy(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5975 typval_T *from,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5976 typval_T *to,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5977 int deep,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
5978 int copyID)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5979 {
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5980 static int recurse = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5981 int ret = OK;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5982
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
5983 if (recurse >= DICT_MAXNEST)
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5984 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
5985 emsg(_("E698: variable nested too deep for making a copy"));
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
5986 return FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5987 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5988 ++recurse;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5989
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5990 switch (from->v_type)
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5991 {
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5992 case VAR_NUMBER:
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
5993 case VAR_FLOAT:
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5994 case VAR_STRING:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
5995 case VAR_FUNC:
8538
c337c813c64d commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents: 8536
diff changeset
5996 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
5997 case VAR_BOOL:
7862
d4fec9208e7e commit https://github.com/vim/vim/commit/155500077c80cdb5d9c63996000c011b66a676bf
Christian Brabandt <cb@256bit.org>
parents: 7856
diff changeset
5998 case VAR_SPECIAL:
7957
b74549818500 commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents: 7955
diff changeset
5999 case VAR_JOB:
8041
c6443e78cf2d commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents: 8031
diff changeset
6000 case VAR_CHANNEL:
24606
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled
Bram Moolenaar <Bram@vim.org>
parents: 24553
diff changeset
6001 case VAR_INSTR:
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6002 copy_tv(from, to);
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6003 break;
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6004 case VAR_LIST:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6005 to->v_type = VAR_LIST;
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
6006 to->v_lock = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6007 if (from->vval.v_list == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6008 to->vval.v_list = NULL;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6009 else if (copyID != 0 && from->vval.v_list->lv_copyID == copyID)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6010 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6011 // use the copy made earlier
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6012 to->vval.v_list = from->vval.v_list->lv_copylist;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6013 ++to->vval.v_list->lv_refcount;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6014 }
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6015 else
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6016 to->vval.v_list = list_copy(from->vval.v_list, deep, copyID);
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6017 if (to->vval.v_list == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6018 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6019 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
6020 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
6021 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
6022 break;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6023 case VAR_DICT:
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6024 to->v_type = VAR_DICT;
151
40a0699b6c62 updated for version 7.0046
vimboss
parents: 142
diff changeset
6025 to->v_lock = 0;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6026 if (from->vval.v_dict == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6027 to->vval.v_dict = NULL;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6028 else if (copyID != 0 && from->vval.v_dict->dv_copyID == copyID)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6029 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6030 // use the copy made earlier
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6031 to->vval.v_dict = from->vval.v_dict->dv_copydict;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6032 ++to->vval.v_dict->dv_refcount;
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6033 }
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6034 else
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6035 to->vval.v_dict = dict_copy(from->vval.v_dict, deep, copyID);
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6036 if (to->vval.v_dict == NULL)
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6037 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6038 break;
7943
e875f0fbd9c0 commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents: 7937
diff changeset
6039 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
6040 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
6041 case VAR_VOID:
19554
b38d73f36467 patch 8.2.0334: abort called when using test_void()
Bram Moolenaar <Bram@vim.org>
parents: 19477
diff changeset
6042 internal_error_no_abort("item_copy(UNKNOWN)");
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6043 ret = FAIL;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6044 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6045 --recurse;
165
e943e5502fc9 updated for version 7.0050
vimboss
parents: 163
diff changeset
6046 return ret;
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6047 }
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6048
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6049 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6050 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
6051 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6052 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
6053 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
6054 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
6055
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6056 if (*atstart)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6057 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6058 *atstart = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6059 // 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
6060 // 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
6061 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
6062 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6063 // 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
6064 // 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
6065 // 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
6066 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
6067 msg_start();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6068 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6069 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6070 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
6071 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
6072
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6073 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
6074 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
6075 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6076 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
6077 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6078 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
6079 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6080 // 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
6081 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
6082 *needclr = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6083 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6084 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
6085 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6086 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6087 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6088 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
6089 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6090 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
6091
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6092 (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
6093 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
6094 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6095 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6096 (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
6097 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6098 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6099 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
6100 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6101
104
2b913f7eb9d2 updated for version 7.0039
vimboss
parents: 100
diff changeset
6102 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6103 * ":echo expr1 ..." print each argument separated with a space, add a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6104 * newline at the end.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6105 * ":echon expr1 ..." print each argument plain.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6106 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6107 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6108 ex_echo(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6109 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6110 char_u *arg = eap->arg;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
6111 typval_T rettv;
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6112 char_u *arg_start;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6113 int needclr = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6114 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
6115 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
6116 int called_emsg_before = called_emsg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
6117 evalarg_T evalarg;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
6118
21104
f8ec5a7a9cf6 patch 8.2.1103: Coverity reports an unnecessary NULL check
Bram Moolenaar <Bram@vim.org>
parents: 21098
diff changeset
6119 fill_evalarg_from_eap(&evalarg, eap, eap->skip);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6120
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6121 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6122 ++emsg_skip;
20059
de756b3f4dee patch 8.2.0585: Vim9: # comment not recognized after :vim9script
Bram Moolenaar <Bram@vim.org>
parents: 20007
diff changeset
6123 while ((!ends_excmd2(eap->cmd, arg) || *arg == '"') && !got_int)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6124 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6125 // 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
6126 // still need to be cleared. E.g., "echo 22,44".
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6127 need_clr_eos = needclr;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6128
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6129 arg_start = arg;
20992
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function
Bram Moolenaar <Bram@vim.org>
parents: 20943
diff changeset
6130 if (eval1(&arg, &rettv, &evalarg) == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6131 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6132 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6133 * Report the invalid expression unless the expression evaluation
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6134 * has been cancelled due to an aborting error, an interrupt, or an
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6135 * exception.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6136 */
15456
f01eb1aed348 patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 15454
diff changeset
6137 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
6138 && called_emsg == called_emsg_before)
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6139 semsg(_(e_invexpr2), arg_start);
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6140 need_clr_eos = FALSE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6141 break;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6142 }
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6143 need_clr_eos = FALSE;
18ee39301b82 updated for version 7.2a
vimboss
parents: 1609
diff changeset
6144
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6145 if (!eap->skip)
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6146 {
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6147 if (rettv.v_type == VAR_VOID)
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6148 {
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6149 semsg(_(e_expression_does_not_result_in_value_str), arg_start);
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6150 break;
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6151 }
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6152 echo_one(&rettv, eap->cmdidx == CMD_echo, &atstart, &needclr);
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6153 }
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19108
diff changeset
6154
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6155 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6156 arg = skipwhite(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6157 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6158 eap->nextcmd = check_nextcmd(arg);
21050
7a9daf73a724 patch 8.2.1076: Vim9: no line break allowed in :if expression
Bram Moolenaar <Bram@vim.org>
parents: 21048
diff changeset
6159 clear_evalarg(&evalarg, eap);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6160
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6161 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6162 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6163 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6164 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6165 // remove text that may still be there from the command
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6166 if (needclr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6167 msg_clr_eos();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6168 if (eap->cmdidx == CMD_echo)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6169 msg_end();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6170 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6171 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6172
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6173 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6174 * ":echohl {name}".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6175 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6176 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6177 ex_echohl(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6178 {
12487
3f16cf18386c patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents: 12477
diff changeset
6179 echo_attr = syn_name2attr(eap->arg);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6180 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6181
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6182 /*
17922
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6183 * 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
6184 */
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6185 int
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6186 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
6187 {
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6188 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
6189 }
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6190
4d63d47d87ef patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents: 17893
diff changeset
6191 /*
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6192 * ":execute expr1 ..." execute the result of an expression.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6193 * ":echomsg expr1 ..." Print a message
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6194 * ":echoerr expr1 ..." Print an error
24194
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6195 * ":echoconsole expr1 ..." Print a message on stdout
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6196 * Each gets spaces around each argument and a newline at the end for
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6197 * echo commands
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6198 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6199 void
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6200 ex_execute(exarg_T *eap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6201 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6202 char_u *arg = eap->arg;
137
3e7d17e425b0 updated for version 7.0044
vimboss
parents: 124
diff changeset
6203 typval_T rettv;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6204 int ret = OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6205 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6206 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6207 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6208
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6209 ga_init2(&ga, 1, 80);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6210
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6211 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6212 ++emsg_skip;
20061
6e6a75800884 patch 8.2.0586: Vim9: # comment not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 20059
diff changeset
6213 while (!ends_excmd2(eap->cmd, arg) || *arg == '"')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6214 {
21098
e88b0daa2fcb patch 8.2.1100: Vim9: cannot use line break in :execute argument
Bram Moolenaar <Bram@vim.org>
parents: 21096
diff changeset
6215 ret = eval1_emsg(&arg, &rettv, eap);
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
6216 if (ret == FAIL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6217 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6218
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6219 if (!eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6220 {
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6221 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
6222
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6223 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
6224 {
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6225 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
6226 {
24614
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6227 semsg(_(e_using_invalid_value_as_string_str),
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void
Bram Moolenaar <Bram@vim.org>
parents: 24606
diff changeset
6228 vartype_name(rettv.v_type));
19087
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6229 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
6230 }
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6231 else
e3848b251a01 patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents: 19085
diff changeset
6232 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
6233 }
15219
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6234 else
dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
6235 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
6236 if (p == NULL)
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6237 {
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6238 clear_tv(&rettv);
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6239 ret = FAIL;
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6240 break;
3b1f83fdaabc patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents: 19047
diff changeset
6241 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6242 len = (int)STRLEN(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6243 if (ga_grow(&ga, len + 2) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6244 {
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6245 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6246 ret = FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6247 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6248 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6249 if (ga.ga_len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6250 ((char_u *)(ga.ga_data))[ga.ga_len++] = ' ';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6251 STRCPY((char_u *)(ga.ga_data) + ga.ga_len, p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6252 ga.ga_len += len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6253 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6254
71
7557b6ea0fb1 updated for version 7.0030
vimboss
parents: 56
diff changeset
6255 clear_tv(&rettv);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6256 arg = skipwhite(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6257 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6258
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6259 if (ret != FAIL && ga.ga_data != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6260 {
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
6261 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
6262 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6263 // 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
6264 // 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
6265 // 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
6266 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
6267 }
404e98047f0b patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
6268
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6269 if (eap->cmdidx == CMD_echomsg)
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6270 {
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
6271 msg_attr(ga.ga_data, echo_attr);
625
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6272 out_flush();
81fe2ccc1207 updated for version 7.0179
vimboss
parents: 615
diff changeset
6273 }
24194
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6274 else if (eap->cmdidx == CMD_echoconsole)
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6275 {
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6276 ui_write(ga.ga_data, (int)STRLEN(ga.ga_data), TRUE);
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6277 ui_write((char_u *)"\r\n", 2, TRUE);
9f64c420f280 patch 8.2.2638: cannot write a message to the terminal from the GUI
Bram Moolenaar <Bram@vim.org>
parents: 24190
diff changeset
6278 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6279 else if (eap->cmdidx == CMD_echoerr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6280 {
20142
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6281 int save_did_emsg = did_emsg;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6282
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6283 // We don't want to abort following commands, restore did_emsg.
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15466
diff changeset
6284 emsg(ga.ga_data);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6285 if (!force_abort)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6286 did_emsg = save_did_emsg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6287 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6288 else if (eap->cmdidx == CMD_execute)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6289 do_cmdline((char_u *)ga.ga_data,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6290 eap->getline, eap->cookie, DOCMD_NOWAIT|DOCMD_VERBOSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6291 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6292
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6293 ga_clear(&ga);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6294
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6295 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6296 --emsg_skip;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6297
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6298 eap->nextcmd = check_nextcmd(arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6299 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6300
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6301 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6302 * Skip over the name of an option: "&option", "&g:option" or "&l:option".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6303 * "arg" points to the "&" or '+' when called, to "option" when returning.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6304 * Returns NULL when no option name found. Otherwise pointer to the char
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6305 * after the option name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6306 */
17873
d50a5faa75bd patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17833
diff changeset
6307 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6308 find_option_end(char_u **arg, int *opt_flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6309 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6310 char_u *p = *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6311
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6312 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6313 if (*p == 'g' && p[1] == ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6314 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6315 *opt_flags = OPT_GLOBAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6316 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6317 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6318 else if (*p == 'l' && p[1] == ':')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6319 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6320 *opt_flags = OPT_LOCAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6321 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6322 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6323 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6324 *opt_flags = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6325
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6326 if (!ASCII_ISALPHA(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6327 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6328 *arg = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6329
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6330 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
6331 p += 4; // termcap option
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6332 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6333 while (ASCII_ISALPHA(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6334 ++p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6335 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6336 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6337
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6338 /*
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6339 * Display script name where an item was last set.
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6340 * Should only be invoked when 'verbose' is non-zero.
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6341 */
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6342 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
6343 last_set_msg(sctx_T script_ctx)
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6344 {
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6345 char_u *p;
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6346
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
6347 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
6348 {
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6349 p = home_replace_save(NULL, get_scriptname(script_ctx.sc_sid));
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6350 if (p != NULL)
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6351 {
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6352 verbose_enter();
15543
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
6353 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
6354 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
6355 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
6356 {
18939
25ebc35e104f patch 8.2.0030: "gF" does not work on output of "verbose command"
Bram Moolenaar <Bram@vim.org>
parents: 18851
diff changeset
6357 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
6358 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
6359 }
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents: 14439
diff changeset
6360 verbose_leave();
507
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6361 vim_free(p);
a1059cda45f2 updated for version 7.0142
vimboss
parents: 505
diff changeset
6362 }
448
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6363 }
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6364 }
dd9db57ee7ce updated for version 7.0118
vimboss
parents: 446
diff changeset
6365
17966
46f95606b9ec patch 8.1.1979: code for handling file names is spread out
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
6366 #endif // FEAT_EVAL
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6367
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6368 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6369 * 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
6370 * 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
6371 * "flags" can be "g" to do a global substitute.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6372 * Returns an allocated string, NULL for error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6373 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6374 char_u *
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6375 do_string_sub(
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6376 char_u *str,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6377 char_u *pat,
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6378 char_u *sub,
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6379 typval_T *expr,
7817
83861277e6a3 commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents: 7788
diff changeset
6380 char_u *flags)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6381 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6382 int sublen;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6383 regmatch_T regmatch;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6384 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6385 int do_all;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6386 char_u *tail;
6332
65e72747feca updated for version 7.4.499
Bram Moolenaar <bram@vim.org>
parents: 6316
diff changeset
6387 char_u *end;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6388 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6389 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6390 char_u *save_cpo;
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6391 char_u *zero_width = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6392
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6393 // Make 'cpoptions' empty, so that the 'l' flag doesn't work here
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6394 save_cpo = p_cpo;
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6395 p_cpo = empty_option;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6396
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6397 ga_init2(&ga, 1, 200);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6398
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6399 do_all = (flags[0] == 'g');
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6400
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6401 regmatch.rm_ic = p_ic;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6402 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6403 if (regmatch.regprog != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6404 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6405 tail = str;
6332
65e72747feca updated for version 7.4.499
Bram Moolenaar <bram@vim.org>
parents: 6316
diff changeset
6406 end = str + STRLEN(str);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6407 while (vim_regexec_nl(&regmatch, str, (colnr_T)(tail - str)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6408 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6409 // Skip empty match except for first match.
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6410 if (regmatch.startp[0] == regmatch.endp[0])
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6411 {
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6412 if (zero_width == regmatch.startp[0])
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6413 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6414 // 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
6415 i = mb_ptr2len(tail);
5964
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6416 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
6417 (size_t)i);
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6418 ga.ga_len += i;
238f5027830c updated for version 7.4.323
Bram Moolenaar <bram@vim.org>
parents: 5944
diff changeset
6419 tail += i;
5623
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6420 continue;
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6421 }
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6422 zero_width = regmatch.startp[0];
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6423 }
d59544f3022b updated for version 7.4.158
Bram Moolenaar <bram@vim.org>
parents: 5614
diff changeset
6424
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6425 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6426 * Get some space for a temporary buffer to do the substitution
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6427 * into. It will contain:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6428 * - The text up to where the match is.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6429 * - The substituted text.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6430 * - The text after the match.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6431 */
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6432 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
6433 if (ga_grow(&ga, (int)((end - tail) + sublen -
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6434 (regmatch.endp[0] - regmatch.startp[0]))) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6435 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6436 ga_clear(&ga);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6437 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6438 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6439
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6440 // copy the text up to where the match is
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6441 i = (int)(regmatch.startp[0] - tail);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6442 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
6443 // add the substituted text
9589
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents: 9587
diff changeset
6444 (void)vim_regsub(&regmatch, sub, expr, (char_u *)ga.ga_data
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6445 + ga.ga_len + i, TRUE, TRUE, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6446 ga.ga_len += i + sublen - 1;
5388
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6447 tail = regmatch.endp[0];
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6448 if (*tail == NUL)
8ced827b2e8b updated for version 7.4.045
Bram Moolenaar <bram@vim.org>
parents: 5378
diff changeset
6449 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6450 if (!do_all)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6451 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6452 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6453
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6454 if (ga.ga_data != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6455 STRCPY((char *)ga.ga_data + ga.ga_len, tail);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6456
4805
66803af09906 updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents: 4778
diff changeset
6457 vim_regfree(regmatch.regprog);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6458 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6459
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6460 ret = vim_strsave(ga.ga_data == NULL ? str : (char_u *)ga.ga_data);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6461 ga_clear(&ga);
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6462 if (p_cpo == empty_option)
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6463 p_cpo = save_cpo;
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6464 else
23493
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6465 {
18777
3a68dc2a1bc1 patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
6466 // Darn, evaluating {sub} expression or {expr} changed the value.
23493
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6467 // If it's still empty it was changed and restored, need to restore in
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6468 // the complicated way.
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6469 if (*p_cpo == NUL)
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6470 set_option_value((char_u *)"cpo", 0L, save_cpo, 0);
1672
fddea6c03dee updated for version 7.2b-004
vimboss
parents: 1668
diff changeset
6471 free_string_option(save_cpo);
23493
f8382c4e6551 patch 8.2.2289: Vim9: 'cpo' can become empty
Bram Moolenaar <Bram@vim.org>
parents: 23450
diff changeset
6472 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6473
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6474 return ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6475 }