Mercurial > vim
annotate src/eval.c @ 19102:ba9f50bfda83 v8.2.0111
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Commit: https://github.com/vim/vim/commit/9b4a15d5dba354d2e1e02871470bad103f34769a
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Jan 11 16:05:23 2020 +0100
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Problem: VAR_SPECIAL is also used for booleans.
Solution: Add VAR_BOOL for better type checking.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sat, 11 Jan 2020 16:15:04 +0100 |
| parents | e3848b251a01 |
| children | 44c6498535c9 |
| 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 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * | |
| 5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 6 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 7 * See README.txt for an overview of the Vim source code. | |
| 8 */ | |
| 9 | |
| 10 /* | |
| 11 * eval.c: Expression evaluation. | |
| 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 | 14 |
| 15 #include "vim.h" | |
| 16 | |
| 1624 | 17 #if defined(FEAT_EVAL) || defined(PROTO) |
| 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 |
| 71 | 23 static char *e_missbrac = N_("E111: Missing ']'"); |
| 117 | 24 static char *e_dictrange = N_("E719: Cannot use [:] with a Dictionary"); |
|
4936
ae05437a744a
updated for version 7.3.1213
Bram Moolenaar <bram@vim.org>
parents:
4918
diff
changeset
|
25 #ifdef FEAT_FLOAT |
|
4870
b7bb20390111
updated for version 7.3.1181
Bram Moolenaar <bram@vim.org>
parents:
4859
diff
changeset
|
26 static char *e_float_as_string = N_("E806: using Float as a String"); |
|
4936
ae05437a744a
updated for version 7.3.1213
Bram Moolenaar <bram@vim.org>
parents:
4918
diff
changeset
|
27 #endif |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
28 static char *e_nowhitespace = N_("E274: No white space allowed before parenthesis"); |
| 1624 | 29 |
|
7611
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
30 #define NAMESPACE_CHAR (char_u *)"abglstvw" |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
31 |
| 142 | 32 /* |
| 364 | 33 * When recursively copying lists and dicts we need to remember which ones we |
| 34 * have done to avoid endless recursiveness. This unique ID is used for that. | |
| 1891 | 35 * The last bit is used for previous_funccal, ignored when comparing. |
| 364 | 36 */ |
| 37 static int current_copyID = 0; | |
| 5973 | 38 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
39 static int echo_attr = 0; // attributes used for ":echo" |
| 7 | 40 |
| 41 /* | |
| 76 | 42 * Info used by a ":for" loop. |
| 43 */ | |
| 137 | 44 typedef struct |
| 76 | 45 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
46 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
|
47 int fi_varcount; // nr of variables in the list |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
48 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
|
49 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
|
50 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
|
51 blob_T *fi_blob; // blob being used |
| 137 | 52 } forinfo_T; |
| 76 | 53 |
|
7720
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
54 static int tv_op(typval_T *tv1, typval_T *tv2, char_u *op); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
55 static int eval2(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
56 static int eval3(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
57 static int eval4(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
58 static int eval5(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
59 static int eval6(char_u **arg, typval_T *rettv, int evaluate, int want_string); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
60 static int eval7(char_u **arg, typval_T *rettv, int evaluate, int want_string); |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
61 static int eval7_leader(typval_T *rettv, char_u *start_leader, char_u **end_leaderp); |
|
7720
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
62 |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
63 static int get_string_tv(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
64 static int get_lit_string_tv(char_u **arg, typval_T *rettv, int evaluate); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
65 static int free_unref_items(int copyID); |
|
7c52f11e6df3
commit https://github.com/vim/vim/commit/48e697e4b6b6b490c58ec9393da9b2d2ea47c6d8
Christian Brabandt <cb@256bit.org>
parents:
7718
diff
changeset
|
66 static int get_env_tv(char_u **arg, typval_T *rettv, int evaluate); |
|
17789
0f7ae8010787
patch 8.1.1891: functions used in one file are global
Bram Moolenaar <Bram@vim.org>
parents:
17781
diff
changeset
|
67 static char_u *make_expanded_name(char_u *in_start, char_u *expr_start, char_u *expr_end, char_u *in_end); |
|
15780
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
68 static int tv_check_lock(typval_T *tv, char_u *name, int use_gettext); |
|
2247
c40cd9aad546
Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents:
2236
diff
changeset
|
69 |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
70 /* |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
71 * Return "n1" divided by "n2", taking care of dividing by zero. |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
72 */ |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
73 varnumber_T |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
74 num_divide(varnumber_T n1, varnumber_T n2) |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
75 { |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
76 varnumber_T result; |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
77 |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
78 if (n2 == 0) // give an error message? |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
79 { |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
80 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_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
|
82 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
|
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 else |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
85 result = VARNUM_MAX; |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
86 } |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
87 else |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
88 result = n1 / n2; |
|
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 return result; |
|
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 |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
93 /* |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
94 * Return "n1" modulus "n2", taking care of dividing by zero. |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
95 */ |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
96 varnumber_T |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
97 num_modulus(varnumber_T n1, varnumber_T n2) |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
98 { |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
99 // Give an error when n2 is 0? |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
100 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
|
101 } |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
102 |
|
10567
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
103 #if defined(EBCDIC) || defined(PROTO) |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
104 /* |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
105 * Compare struct fst by function name. |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
106 */ |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
107 static int |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
108 compare_func_name(const void *s1, const void *s2) |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
109 { |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
110 struct fst *p1 = (struct fst *)s1; |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
111 struct fst *p2 = (struct fst *)s2; |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
112 |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
113 return STRCMP(p1->f_name, p2->f_name); |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
114 } |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
115 |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
116 /* |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
117 * Sort the function table by function name. |
|
15490
98c35d312987
patch 8.1.0753: printf format not checked for semsg()
Bram Moolenaar <Bram@vim.org>
parents:
15482
diff
changeset
|
118 * The sorting of the table above is ASCII dependent. |
|
10567
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
119 * On machines using EBCDIC we have to sort it. |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
120 */ |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
121 static void |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
122 sortFunctions(void) |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
123 { |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
124 int funcCnt = (int)(sizeof(functions) / sizeof(struct fst)) - 1; |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
125 |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
126 qsort(functions, (size_t)funcCnt, sizeof(struct fst), compare_func_name); |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
127 } |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
128 #endif |
|
82c2c450dad0
patch 8.0.0173: build fails with EBCDIC defined
Christian Brabandt <cb@256bit.org>
parents:
10540
diff
changeset
|
129 |
| 137 | 130 /* |
| 131 * Initialize the global and v: variables. | |
| 132 */ | |
| 133 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
134 eval_init(void) |
| 137 | 135 { |
|
17885
5e2d8840da11
patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents:
17873
diff
changeset
|
136 evalvars_init(); |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
137 func_init(); |
| 137 | 138 |
|
2247
c40cd9aad546
Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents:
2236
diff
changeset
|
139 #ifdef EBCDIC |
|
c40cd9aad546
Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents:
2236
diff
changeset
|
140 /* |
| 3178 | 141 * 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
|
142 */ |
|
c40cd9aad546
Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents:
2236
diff
changeset
|
143 sortFunctions(); |
|
c40cd9aad546
Add patch to improve support of z/OS (OS/390). (Ralf Schandl)
Bram Moolenaar <bram@vim.org>
parents:
2236
diff
changeset
|
144 #endif |
| 137 | 145 } |
| 146 | |
| 357 | 147 #if defined(EXITFREE) || defined(PROTO) |
| 148 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
149 eval_clear(void) |
| 357 | 150 { |
|
17885
5e2d8840da11
patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents:
17873
diff
changeset
|
151 evalvars_clear(); |
| 357 | 152 |
| 364 | 153 free_scriptnames(); |
| 2849 | 154 free_locales(); |
| 357 | 155 |
|
17922
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
156 // 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
|
157 free_autoload_scriptnames(); |
| 855 | 158 |
|
16967
586d625e21b4
patch 8.1.1484: some tests are slow
Bram Moolenaar <Bram@vim.org>
parents:
16872
diff
changeset
|
159 // unreferenced lists and dicts |
|
8881
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
160 (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
|
161 |
|
8c794a694d66
patch 8.1.1485: double free when garbage_collect() is used in autocommand
Bram Moolenaar <Bram@vim.org>
parents:
16967
diff
changeset
|
162 // 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
|
163 free_all_functions(); |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
164 } |
|
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
165 #endif |
| 137 | 166 |
| 7 | 167 /* |
| 168 * Top level evaluation function, returning a boolean. | |
| 169 * Sets "error" to TRUE if there was an error. | |
| 170 * Return TRUE or FALSE. | |
| 171 */ | |
| 172 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
173 eval_to_bool( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
174 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
175 int *error, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
176 char_u **nextcmd, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
177 int skip) // only parse, don't execute |
| 7 | 178 { |
| 137 | 179 typval_T tv; |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
180 varnumber_T retval = FALSE; |
| 7 | 181 |
| 182 if (skip) | |
| 183 ++emsg_skip; | |
| 71 | 184 if (eval0(arg, &tv, nextcmd, !skip) == FAIL) |
| 7 | 185 *error = TRUE; |
| 186 else | |
| 187 { | |
| 188 *error = FALSE; | |
| 189 if (!skip) | |
| 190 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
191 retval = (tv_get_number_chk(&tv, error) != 0); |
| 71 | 192 clear_tv(&tv); |
| 7 | 193 } |
| 194 } | |
| 195 if (skip) | |
| 196 --emsg_skip; | |
| 197 | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
198 return (int)retval; |
| 7 | 199 } |
| 200 | |
|
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 /* |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
202 * 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
|
203 */ |
|
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 static int |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
205 eval1_emsg(char_u **arg, typval_T *rettv, int evaluate) |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
206 { |
|
15482
18dd04f7c4a1
patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents:
15478
diff
changeset
|
207 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
|
208 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
|
209 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
|
210 int called_emsg_before = called_emsg; |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
211 |
|
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 ret = eval1(arg, rettv, evaluate); |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
213 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
|
214 { |
|
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 // 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
|
216 // 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
|
217 // 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
|
218 // 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
|
219 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
|
220 && called_emsg == called_emsg_before) |
|
15482
18dd04f7c4a1
patch 8.1.0749: error message contains garbage
Bram Moolenaar <Bram@vim.org>
parents:
15478
diff
changeset
|
221 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
|
222 } |
|
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 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
|
224 } |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
225 |
|
16231
0761a4c111a7
patch 8.1.1120: cannot easily get directory entry matches
Bram Moolenaar <Bram@vim.org>
parents:
16223
diff
changeset
|
226 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
|
227 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
|
228 { |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
229 char_u *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
|
230 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
|
231 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
|
232 |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
233 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
|
234 { |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
235 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
|
236 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
|
237 return FAIL; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
238 vim_memset(&funcexe, 0, sizeof(funcexe)); |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
239 funcexe.evaluate = TRUE; |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
240 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
|
241 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
|
242 } |
|
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 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
|
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 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
|
246 |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
247 s = partial_name(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
|
248 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
|
249 return FAIL; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
250 vim_memset(&funcexe, 0, sizeof(funcexe)); |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
251 funcexe.evaluate = TRUE; |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
252 funcexe.partial = partial; |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
253 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
|
254 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
|
255 } |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
256 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
|
257 { |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
258 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
|
259 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
|
260 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
|
261 s = skipwhite(s); |
|
15478
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
262 if (eval1_emsg(&s, rettv, TRUE) == FAIL) |
|
12722
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
263 return FAIL; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
264 if (*s != NUL) // check for trailing chars after expr |
|
12722
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
265 { |
|
14331
f8280e1bfc84
patch 8.1.0181: memory leak with trailing characters in skip expression
Christian Brabandt <cb@256bit.org>
parents:
14071
diff
changeset
|
266 clear_tv(rettv); |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
267 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
|
268 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
|
269 } |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
270 } |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
271 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
|
272 } |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
273 |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
274 /* |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
275 * 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
|
276 * 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
|
277 */ |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
278 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
|
279 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
|
280 { |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
281 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
|
282 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
|
283 |
|
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 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
|
285 { |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
286 *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
|
287 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
|
288 } |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
289 res = (tv_get_number_chk(&rettv, error) != 0); |
|
12722
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
290 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
|
291 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
|
292 } |
|
7749260f261c
patch 8.0.1239: cannot use a lambda for the skip argument to searchpair()
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
293 |
| 7 | 294 /* |
| 295 * Top level evaluation function, returning a string. If "skip" is TRUE, | |
| 296 * only parsing to "nextcmd" is done, without reporting errors. Return | |
| 297 * pointer to allocated memory, or NULL for failure or when "skip" is TRUE. | |
| 298 */ | |
| 299 char_u * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
300 eval_to_string_skip( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
301 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
302 char_u **nextcmd, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
303 int skip) // only parse, don't execute |
| 7 | 304 { |
| 137 | 305 typval_T tv; |
| 7 | 306 char_u *retval; |
| 307 | |
| 308 if (skip) | |
| 309 ++emsg_skip; | |
| 71 | 310 if (eval0(arg, &tv, nextcmd, !skip) == FAIL || skip) |
| 7 | 311 retval = NULL; |
| 312 else | |
| 313 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
314 retval = vim_strsave(tv_get_string(&tv)); |
| 71 | 315 clear_tv(&tv); |
| 7 | 316 } |
| 317 if (skip) | |
| 318 --emsg_skip; | |
| 319 | |
| 320 return retval; | |
| 321 } | |
| 322 | |
| 323 /* | |
| 9 | 324 * Skip over an expression at "*pp". |
| 325 * Return FAIL for an error, OK otherwise. | |
| 326 */ | |
| 327 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
328 skip_expr(char_u **pp) |
| 9 | 329 { |
| 137 | 330 typval_T rettv; |
| 9 | 331 |
| 332 *pp = skipwhite(*pp); | |
| 71 | 333 return eval1(pp, &rettv, FALSE); |
| 9 | 334 } |
| 335 | |
| 336 /* | |
| 7 | 337 * Top level evaluation function, returning a string. |
| 1713 | 338 * When "convert" is TRUE convert a List into a sequence of lines and convert |
| 339 * a Float to a String. | |
| 7 | 340 * Return pointer to allocated memory, or NULL for failure. |
| 341 */ | |
| 342 char_u * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
343 eval_to_string( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
344 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
345 char_u **nextcmd, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
346 int convert) |
| 7 | 347 { |
| 137 | 348 typval_T tv; |
| 7 | 349 char_u *retval; |
| 714 | 350 garray_T ga; |
| 1851 | 351 #ifdef FEAT_FLOAT |
| 1713 | 352 char_u numbuf[NUMBUFLEN]; |
| 1851 | 353 #endif |
| 7 | 354 |
| 71 | 355 if (eval0(arg, &tv, nextcmd, TRUE) == FAIL) |
| 7 | 356 retval = NULL; |
| 357 else | |
| 358 { | |
| 1713 | 359 if (convert && tv.v_type == VAR_LIST) |
| 714 | 360 { |
| 361 ga_init2(&ga, (int)sizeof(char), 80); | |
| 1690 | 362 if (tv.vval.v_list != NULL) |
| 3000 | 363 { |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
364 list_join(&ga, tv.vval.v_list, (char_u *)"\n", TRUE, FALSE, 0); |
| 3000 | 365 if (tv.vval.v_list->lv_len > 0) |
| 366 ga_append(&ga, NL); | |
| 367 } | |
| 714 | 368 ga_append(&ga, NUL); |
| 369 retval = (char_u *)ga.ga_data; | |
| 370 } | |
| 1713 | 371 #ifdef FEAT_FLOAT |
| 372 else if (convert && tv.v_type == VAR_FLOAT) | |
| 373 { | |
| 374 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv.vval.v_float); | |
| 375 retval = vim_strsave(numbuf); | |
| 376 } | |
| 377 #endif | |
| 714 | 378 else |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
379 retval = vim_strsave(tv_get_string(&tv)); |
| 71 | 380 clear_tv(&tv); |
| 7 | 381 } |
| 382 | |
| 383 return retval; | |
| 384 } | |
| 385 | |
| 386 /* | |
| 634 | 387 * Call eval_to_string() without using current local variables and using |
| 388 * textlock. When "use_sandbox" is TRUE use the sandbox. | |
| 7 | 389 */ |
| 390 char_u * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
391 eval_to_string_safe( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
392 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
393 char_u **nextcmd, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
394 int use_sandbox) |
| 7 | 395 { |
| 396 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
|
397 funccal_entry_T funccal_entry; |
|
162d79d273e6
patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents:
14897
diff
changeset
|
398 |
|
162d79d273e6
patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents:
14897
diff
changeset
|
399 save_funccal(&funccal_entry); |
| 634 | 400 if (use_sandbox) |
| 401 ++sandbox; | |
| 402 ++textlock; | |
| 714 | 403 retval = eval_to_string(arg, nextcmd, FALSE); |
| 634 | 404 if (use_sandbox) |
| 405 --sandbox; | |
| 406 --textlock; | |
|
14927
162d79d273e6
patch 8.1.0475: memory not freed on exit when quit in autocmd
Bram Moolenaar <Bram@vim.org>
parents:
14897
diff
changeset
|
407 restore_funccal(); |
| 7 | 408 return retval; |
| 409 } | |
| 410 | |
| 411 /* | |
| 412 * Top level evaluation function, returning a number. | |
| 413 * Evaluates "expr" silently. | |
| 414 * Returns -1 for an error. | |
| 415 */ | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
416 varnumber_T |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
417 eval_to_number(char_u *expr) |
| 7 | 418 { |
| 137 | 419 typval_T rettv; |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
420 varnumber_T retval; |
| 97 | 421 char_u *p = skipwhite(expr); |
| 7 | 422 |
| 423 ++emsg_off; | |
| 424 | |
| 71 | 425 if (eval1(&p, &rettv, TRUE) == FAIL) |
| 7 | 426 retval = -1; |
| 427 else | |
| 428 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
429 retval = tv_get_number_chk(&rettv, NULL); |
| 71 | 430 clear_tv(&rettv); |
| 7 | 431 } |
| 432 --emsg_off; | |
| 433 | |
| 434 return retval; | |
| 435 } | |
| 436 | |
| 446 | 437 /* |
| 625 | 438 * Top level evaluation function. |
| 439 * Returns an allocated typval_T with the result. | |
| 440 * Returns NULL when there is an error. | |
| 446 | 441 */ |
| 442 typval_T * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
443 eval_expr(char_u *arg, char_u **nextcmd) |
| 446 | 444 { |
| 445 typval_T *tv; | |
| 446 | |
|
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
|
447 tv = ALLOC_ONE(typval_T); |
| 625 | 448 if (tv != NULL && eval0(arg, tv, nextcmd, TRUE) == FAIL) |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13037
diff
changeset
|
449 VIM_CLEAR(tv); |
| 446 | 450 |
| 451 return tv; | |
| 452 } | |
| 453 | |
| 7 | 454 /* |
|
10942
e05695e59f6d
patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
10926
diff
changeset
|
455 * 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
|
456 * 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
|
457 * should have type VAR_UNKNOWN. |
| 408 | 458 * Returns OK or FAIL. |
| 459 */ | |
| 3078 | 460 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
461 call_vim_function( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
462 char_u *func, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
463 int argc, |
|
14071
c1fcfafa8d1a
patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents:
13923
diff
changeset
|
464 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
|
465 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
|
466 { |
| 408 | 467 int ret; |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
468 funcexe_T funcexe; |
| 7 | 469 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
470 rettv->v_type = VAR_UNKNOWN; // clear_tv() uses this |
|
17606
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
471 vim_memset(&funcexe, 0, sizeof(funcexe)); |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
472 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
|
473 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
|
474 funcexe.evaluate = TRUE; |
|
ff097edaae89
patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
17536
diff
changeset
|
475 ret = call_func(func, -1, rettv, argc, argv, &funcexe); |
| 408 | 476 if (ret == FAIL) |
| 477 clear_tv(rettv); | |
| 478 | |
| 479 return ret; | |
| 480 } | |
| 481 | |
| 4133 | 482 /* |
|
10942
e05695e59f6d
patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
10926
diff
changeset
|
483 * Call Vim script function "func" and return the result as a number. |
| 4133 | 484 * 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
|
485 * 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
|
486 * have type VAR_UNKNOWN. |
| 4133 | 487 */ |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
488 varnumber_T |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
489 call_func_retnr( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
490 char_u *func, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
491 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
|
492 typval_T *argv) |
| 4133 | 493 { |
| 494 typval_T rettv; | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
495 varnumber_T retval; |
| 4133 | 496 |
|
14439
e4c553e9132b
patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents:
14393
diff
changeset
|
497 if (call_vim_function(func, argc, argv, &rettv) == FAIL) |
| 4133 | 498 return -1; |
| 499 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
500 retval = tv_get_number_chk(&rettv, NULL); |
| 4133 | 501 clear_tv(&rettv); |
| 502 return retval; | |
| 503 } | |
| 504 | |
| 408 | 505 /* |
|
10942
e05695e59f6d
patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
10926
diff
changeset
|
506 * Call Vim script function "func" and return the result as a string. |
| 453 | 507 * Returns NULL when calling the function fails. |
|
14071
c1fcfafa8d1a
patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents:
13923
diff
changeset
|
508 * 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
|
509 * have type VAR_UNKNOWN. |
| 408 | 510 */ |
| 511 void * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
512 call_func_retstr( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
513 char_u *func, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
514 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
|
515 typval_T *argv) |
| 408 | 516 { |
| 517 typval_T rettv; | |
| 453 | 518 char_u *retval; |
| 408 | 519 |
|
14439
e4c553e9132b
patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents:
14393
diff
changeset
|
520 if (call_vim_function(func, argc, argv, &rettv) == FAIL) |
| 408 | 521 return NULL; |
| 522 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
523 retval = vim_strsave(tv_get_string(&rettv)); |
| 408 | 524 clear_tv(&rettv); |
| 7 | 525 return retval; |
| 526 } | |
| 1322 | 527 |
| 453 | 528 /* |
|
10942
e05695e59f6d
patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
10926
diff
changeset
|
529 * Call Vim script function "func" and return the result as a List. |
|
14071
c1fcfafa8d1a
patch 8.1.0053: first argument of 'completefunc' has inconsistent type
Christian Brabandt <cb@256bit.org>
parents:
13923
diff
changeset
|
530 * 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
|
531 * have type VAR_UNKNOWN. |
| 1690 | 532 * Returns NULL when there is something wrong. |
| 408 | 533 */ |
| 534 void * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
535 call_func_retlist( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
536 char_u *func, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
537 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
|
538 typval_T *argv) |
| 408 | 539 { |
| 540 typval_T rettv; | |
| 541 | |
|
14439
e4c553e9132b
patch 8.1.0233: "safe" argument of call_vim_function() is always FALSE
Christian Brabandt <cb@256bit.org>
parents:
14393
diff
changeset
|
542 if (call_vim_function(func, argc, argv, &rettv) == FAIL) |
| 408 | 543 return NULL; |
| 544 | |
| 545 if (rettv.v_type != VAR_LIST) | |
| 546 { | |
| 547 clear_tv(&rettv); | |
| 548 return NULL; | |
| 549 } | |
| 550 | |
| 551 return rettv.vval.v_list; | |
| 552 } | |
| 1322 | 553 |
| 7 | 554 #ifdef FEAT_FOLDING |
| 555 /* | |
| 556 * Evaluate 'foldexpr'. Returns the foldlevel, and any character preceding | |
| 557 * it in "*cp". Doesn't give error messages. | |
| 558 */ | |
| 559 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
560 eval_foldexpr(char_u *arg, int *cp) |
| 7 | 561 { |
| 137 | 562 typval_T tv; |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
563 varnumber_T retval; |
| 7 | 564 char_u *s; |
| 681 | 565 int use_sandbox = was_set_insecurely((char_u *)"foldexpr", |
| 566 OPT_LOCAL); | |
| 7 | 567 |
| 568 ++emsg_off; | |
| 634 | 569 if (use_sandbox) |
| 570 ++sandbox; | |
| 571 ++textlock; | |
| 7 | 572 *cp = NUL; |
| 71 | 573 if (eval0(arg, &tv, NULL, TRUE) == FAIL) |
| 7 | 574 retval = 0; |
| 575 else | |
| 576 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
577 // If the result is a number, just return the number. |
| 71 | 578 if (tv.v_type == VAR_NUMBER) |
| 579 retval = tv.vval.v_number; | |
| 156 | 580 else if (tv.v_type != VAR_STRING || tv.vval.v_string == NULL) |
| 7 | 581 retval = 0; |
| 582 else | |
| 583 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
584 // If the result is a 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
|
585 // the number. |
| 71 | 586 s = tv.vval.v_string; |
| 7 | 587 if (!VIM_ISDIGIT(*s) && *s != '-') |
| 588 *cp = *s++; | |
| 589 retval = atol((char *)s); | |
| 590 } | |
| 71 | 591 clear_tv(&tv); |
| 7 | 592 } |
| 593 --emsg_off; | |
| 634 | 594 if (use_sandbox) |
| 595 --sandbox; | |
| 596 --textlock; | |
| 7 | 597 |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
598 return (int)retval; |
| 7 | 599 } |
| 600 #endif | |
| 601 | |
| 602 /* | |
| 110 | 603 * Get an lval: variable, Dict item or List item that can be assigned a value |
| 604 * to: "name", "na{me}", "name[expr]", "name[expr:expr]", "name[expr][expr]", | |
| 605 * "name.key", "name.key[expr]" etc. | |
| 606 * Indexing only works if "name" is an existing List or Dictionary. | |
| 607 * "name" points to the start of the name. | |
| 608 * If "rettv" is not NULL it points to the value to be assigned. | |
| 609 * "unlet" is TRUE for ":unlet": slightly different behavior when something is | |
| 610 * wrong; must end in space or cmd separator. | |
| 611 * | |
| 5604 | 612 * flags: |
| 613 * 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
|
614 * GLV_READ_ONLY: will not change the variable |
| 5604 | 615 * GLV_NO_AUTOLOAD: do not use script autoloading |
| 616 * | |
| 110 | 617 * Returns a pointer to just after the name, including indexes. |
| 124 | 618 * When an evaluation error occurs "lp->ll_name" is NULL; |
| 110 | 619 * Returns NULL for a parsing error. Still need to free items in "lp"! |
| 71 | 620 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
621 char_u * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
622 get_lval( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
623 char_u *name, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
624 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
625 lval_T *lp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
626 int unlet, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
627 int skip, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
628 int flags, // GLV_ values |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
629 int fne_flags) // flags for find_name_end() |
| 110 | 630 { |
| 631 char_u *p; | |
| 632 char_u *expr_start, *expr_end; | |
| 633 int cc; | |
| 137 | 634 dictitem_T *v; |
| 635 typval_T var1; | |
| 636 typval_T var2; | |
| 110 | 637 int empty1 = FALSE; |
| 137 | 638 listitem_T *ni; |
| 100 | 639 char_u *key = NULL; |
| 640 int len; | |
| 137 | 641 hashtab_T *ht; |
| 5604 | 642 int quiet = flags & GLV_QUIET; |
| 71 | 643 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
644 // Clear everything in "lp". |
| 137 | 645 vim_memset(lp, 0, sizeof(lval_T)); |
| 110 | 646 |
| 647 if (skip) | |
| 648 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
649 // When skipping just find the end of the name. |
| 110 | 650 lp->ll_name = name; |
| 271 | 651 return find_name_end(name, NULL, NULL, FNE_INCL_BR | fne_flags); |
| 110 | 652 } |
| 653 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
654 // Find the end of the name. |
| 271 | 655 p = find_name_end(name, &expr_start, &expr_end, fne_flags); |
| 110 | 656 if (expr_start != NULL) |
| 657 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
658 // 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
|
659 if (unlet && !VIM_ISWHITE(*p) && !ends_excmd(*p) |
| 110 | 660 && *p != '[' && *p != '.') |
| 661 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
662 emsg(_(e_trailing)); |
| 110 | 663 return NULL; |
| 664 } | |
| 665 | |
| 666 lp->ll_exp_name = make_expanded_name(name, expr_start, expr_end, p); | |
| 667 if (lp->ll_exp_name == NULL) | |
| 668 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
669 // 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
|
670 // 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
|
671 // aborting error, an interrupt, or an exception. |
| 110 | 672 if (!aborting() && !quiet) |
| 673 { | |
| 121 | 674 emsg_severe = TRUE; |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
675 semsg(_(e_invarg2), name); |
| 110 | 676 return NULL; |
| 677 } | |
| 678 } | |
| 679 lp->ll_name = lp->ll_exp_name; | |
| 680 } | |
| 681 else | |
| 682 lp->ll_name = name; | |
| 683 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
684 // Without [idx] or .key we are done. |
| 110 | 685 if ((*p != '[' && *p != '.') || lp->ll_name == NULL) |
| 686 return p; | |
| 687 | |
| 688 cc = *p; | |
| 689 *p = NUL; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
690 // Only pass &ht when we would write to the variable, it prevents autoload |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
691 // as well. |
|
13002
f7b2ecaeb79c
patch 8.0.1377: cannot call a dict function in autoloaded dict
Christian Brabandt <cb@256bit.org>
parents:
12728
diff
changeset
|
692 v = find_var(lp->ll_name, (flags & GLV_READ_ONLY) ? NULL : &ht, |
|
f7b2ecaeb79c
patch 8.0.1377: cannot call a dict function in autoloaded dict
Christian Brabandt <cb@256bit.org>
parents:
12728
diff
changeset
|
693 flags & GLV_NO_AUTOLOAD); |
| 110 | 694 if (v == NULL && !quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
695 semsg(_(e_undefvar), lp->ll_name); |
| 110 | 696 *p = cc; |
| 71 | 697 if (v == NULL) |
| 698 return NULL; | |
| 699 | |
| 110 | 700 /* |
| 701 * Loop until no more [idx] or .key is following. | |
| 702 */ | |
| 137 | 703 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
|
704 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
|
705 var2.v_type = VAR_UNKNOWN; |
| 110 | 706 while (*p == '[' || (*p == '.' && lp->ll_tv->v_type == VAR_DICT)) |
| 707 { | |
| 708 if (!(lp->ll_tv->v_type == VAR_LIST && lp->ll_tv->vval.v_list != NULL) | |
| 709 && !(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
|
710 && lp->ll_tv->vval.v_dict != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
711 && !(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
|
712 && lp->ll_tv->vval.v_blob != NULL)) |
| 110 | 713 { |
| 714 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
715 emsg(_("E689: Can only index a List, Dictionary or Blob")); |
| 110 | 716 return NULL; |
| 717 } | |
| 718 if (lp->ll_range) | |
| 719 { | |
| 720 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
721 emsg(_("E708: [:] must come last")); |
| 110 | 722 return NULL; |
| 71 | 723 } |
| 88 | 724 |
| 100 | 725 len = -1; |
| 726 if (*p == '.') | |
| 727 { | |
| 728 key = p + 1; | |
| 729 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len) | |
| 730 ; | |
| 731 if (len == 0) | |
| 732 { | |
| 110 | 733 if (!quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
734 emsg(_(e_emptykey)); |
| 110 | 735 return NULL; |
| 88 | 736 } |
| 100 | 737 p = key + len; |
| 738 } | |
| 739 else | |
| 740 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
741 // Get the index [expr] or the first index [expr: ]. |
| 88 | 742 p = skipwhite(p + 1); |
| 100 | 743 if (*p == ':') |
| 744 empty1 = TRUE; | |
| 88 | 745 else |
| 746 { | |
| 100 | 747 empty1 = FALSE; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
748 if (eval1(&p, &var1, TRUE) == FAIL) // recursive! |
| 110 | 749 return NULL; |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
750 if (tv_get_string_chk(&var1) == NULL) |
| 323 | 751 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
752 // not a number or string |
| 323 | 753 clear_tv(&var1); |
| 754 return NULL; | |
| 755 } | |
| 100 | 756 } |
| 757 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
758 // Optionally get the second index [ :expr]. |
| 100 | 759 if (*p == ':') |
| 760 { | |
| 110 | 761 if (lp->ll_tv->v_type == VAR_DICT) |
| 762 { | |
| 763 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
764 emsg(_(e_dictrange)); |
|
10926
7dab3a9cb933
patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents:
10912
diff
changeset
|
765 clear_tv(&var1); |
| 110 | 766 return NULL; |
| 767 } | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
768 if (rettv != NULL |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
769 && !(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
|
770 && rettv->vval.v_list != NULL) |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
771 && !(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
|
772 && rettv->vval.v_blob != NULL)) |
| 110 | 773 { |
| 774 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
775 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
|
776 clear_tv(&var1); |
| 110 | 777 return NULL; |
| 88 | 778 } |
| 100 | 779 p = skipwhite(p + 1); |
| 780 if (*p == ']') | |
| 110 | 781 lp->ll_empty2 = TRUE; |
| 100 | 782 else |
| 783 { | |
| 110 | 784 lp->ll_empty2 = FALSE; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
785 if (eval1(&p, &var2, TRUE) == FAIL) // recursive! |
| 100 | 786 { |
|
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
|
787 clear_tv(&var1); |
| 110 | 788 return NULL; |
| 100 | 789 } |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
790 if (tv_get_string_chk(&var2) == NULL) |
| 323 | 791 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
792 // 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
|
793 clear_tv(&var1); |
| 323 | 794 clear_tv(&var2); |
| 795 return NULL; | |
| 796 } | |
| 100 | 797 } |
| 110 | 798 lp->ll_range = TRUE; |
| 100 | 799 } |
| 800 else | |
| 110 | 801 lp->ll_range = FALSE; |
| 100 | 802 |
| 803 if (*p != ']') | |
| 804 { | |
| 110 | 805 if (!quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
806 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
|
807 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
|
808 clear_tv(&var2); |
| 110 | 809 return NULL; |
| 100 | 810 } |
| 811 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
812 // Skip to past ']'. |
| 100 | 813 ++p; |
| 814 } | |
| 815 | |
| 110 | 816 if (lp->ll_tv->v_type == VAR_DICT) |
| 100 | 817 { |
| 818 if (len == -1) | |
| 819 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
820 // "[key]": get key from "var1" |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
821 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
|
822 if (key == NULL) |
|
9fa567d13551
commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents:
8831
diff
changeset
|
823 { |
| 100 | 824 clear_tv(&var1); |
| 110 | 825 return NULL; |
| 826 } | |
| 827 } | |
| 117 | 828 lp->ll_list = NULL; |
| 829 lp->ll_dict = lp->ll_tv->vval.v_dict; | |
| 121 | 830 lp->ll_di = dict_find(lp->ll_dict, key, len); |
| 2739 | 831 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
832 // 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
|
833 // 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
|
834 // g: dictionary). Disallow overwriting a builtin function. |
| 3687 | 835 if (rettv != NULL && lp->ll_dict->dv_scope != 0) |
| 836 { | |
| 837 int prevval; | |
| 838 int wrong; | |
| 839 | |
| 840 if (len != -1) | |
| 841 { | |
| 842 prevval = key[len]; | |
| 843 key[len] = NUL; | |
| 844 } | |
|
4819
8c4324e6f477
updated for version 7.3.1156
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
845 else |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
846 prevval = 0; // avoid compiler warning |
| 3687 | 847 wrong = (lp->ll_dict->dv_scope == VAR_DEF_SCOPE |
| 848 && rettv->v_type == VAR_FUNC | |
| 2739 | 849 && var_check_func_name(key, lp->ll_di == NULL)) |
| 3687 | 850 || !valid_varname(key); |
| 851 if (len != -1) | |
| 852 key[len] = prevval; | |
| 853 if (wrong) | |
| 2739 | 854 return NULL; |
| 855 } | |
| 856 | |
| 110 | 857 if (lp->ll_di == NULL) |
| 100 | 858 { |
|
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
859 // 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
|
860 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
|
861 || &lp->ll_dict->dv_hashtab == get_funccal_args_ht()) |
| 2739 | 862 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
863 semsg(_(e_illvar), name); |
|
16013
93b08b92a049
patch 8.1.1012: memory leak with E461
Bram Moolenaar <Bram@vim.org>
parents:
15969
diff
changeset
|
864 clear_tv(&var1); |
| 2739 | 865 return NULL; |
| 866 } | |
| 867 | |
|
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
868 // Key does not exist in dict: may need to add it. |
| 110 | 869 if (*p == '[' || *p == '.' || unlet) |
| 870 { | |
| 871 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
872 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
|
873 clear_tv(&var1); |
| 110 | 874 return NULL; |
| 100 | 875 } |
| 876 if (len == -1) | |
| 110 | 877 lp->ll_newkey = vim_strsave(key); |
| 100 | 878 else |
| 110 | 879 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
|
880 clear_tv(&var1); |
| 110 | 881 if (lp->ll_newkey == NULL) |
| 100 | 882 p = NULL; |
| 883 break; | |
| 884 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
885 // 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
|
886 else if ((flags & GLV_READ_ONLY) == 0 |
|
fd1760f8c215
patch 8.0.0345: islocked('d.changedtick') does not work
Christian Brabandt <cb@256bit.org>
parents:
10910
diff
changeset
|
887 && var_check_ro(lp->ll_di->di_flags, name, FALSE)) |
|
10910
8bff367672a4
patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents:
10908
diff
changeset
|
888 { |
|
8bff367672a4
patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents:
10908
diff
changeset
|
889 clear_tv(&var1); |
| 2739 | 890 return NULL; |
|
10910
8bff367672a4
patch 8.0.0344: unlet command leaks memory
Christian Brabandt <cb@256bit.org>
parents:
10908
diff
changeset
|
891 } |
| 2739 | 892 |
|
10926
7dab3a9cb933
patch 8.0.0352: not easy to see when a typval needs to be cleared
Christian Brabandt <cb@256bit.org>
parents:
10912
diff
changeset
|
893 clear_tv(&var1); |
| 110 | 894 lp->ll_tv = &lp->ll_di->di_tv; |
| 100 | 895 } |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
896 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
|
897 { |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
898 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
|
899 |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
900 /* |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
901 * 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
|
902 */ |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
903 if (empty1) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
904 lp->ll_n1 = 0; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
905 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
906 // is number or string |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
907 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
|
908 clear_tv(&var1); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
909 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
910 if (lp->ll_n1 < 0 |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
911 || lp->ll_n1 > bloblen |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
912 || (lp->ll_range && lp->ll_n1 == bloblen)) |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
913 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
914 if (!quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
915 semsg(_(e_blobidx), lp->ll_n1); |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
916 clear_tv(&var2); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
917 return NULL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
918 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
919 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
|
920 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
921 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
|
922 clear_tv(&var2); |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
923 if (lp->ll_n2 < 0 |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
924 || lp->ll_n2 >= bloblen |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
925 || lp->ll_n2 < lp->ll_n1) |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
926 { |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
927 if (!quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
928 semsg(_(e_blobidx), lp->ll_n2); |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
929 return NULL; |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
930 } |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
931 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
932 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
|
933 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
|
934 break; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
935 } |
| 100 | 936 else |
| 937 { | |
| 938 /* | |
| 939 * Get the number and item for the only or first index of the List. | |
| 940 */ | |
| 941 if (empty1) | |
| 110 | 942 lp->ll_n1 = 0; |
| 100 | 943 else |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
944 // 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
|
945 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
|
946 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
|
947 |
| 117 | 948 lp->ll_dict = NULL; |
| 110 | 949 lp->ll_list = lp->ll_tv->vval.v_list; |
| 950 lp->ll_li = list_find(lp->ll_list, lp->ll_n1); | |
| 951 if (lp->ll_li == NULL) | |
| 952 { | |
| 842 | 953 if (lp->ll_n1 < 0) |
| 954 { | |
| 955 lp->ll_n1 = 0; | |
| 956 lp->ll_li = list_find(lp->ll_list, lp->ll_n1); | |
| 957 } | |
| 958 } | |
| 959 if (lp->ll_li == NULL) | |
| 960 { | |
|
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
|
961 clear_tv(&var2); |
| 2772 | 962 if (!quiet) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
963 semsg(_(e_listidx), lp->ll_n1); |
| 110 | 964 return NULL; |
| 100 | 965 } |
| 966 | |
| 967 /* | |
| 968 * May need to find the item or absolute index for the second | |
| 969 * index of a range. | |
| 110 | 970 * When no index given: "lp->ll_empty2" is TRUE. |
| 971 * Otherwise "lp->ll_n2" is set to the second index. | |
| 100 | 972 */ |
| 110 | 973 if (lp->ll_range && !lp->ll_empty2) |
| 974 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
975 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
|
976 // is number or string |
| 88 | 977 clear_tv(&var2); |
| 110 | 978 if (lp->ll_n2 < 0) |
| 979 { | |
| 980 ni = list_find(lp->ll_list, lp->ll_n2); | |
| 100 | 981 if (ni == NULL) |
| 2772 | 982 { |
| 983 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
984 semsg(_(e_listidx), lp->ll_n2); |
| 110 | 985 return NULL; |
| 2772 | 986 } |
| 110 | 987 lp->ll_n2 = list_idx_of_item(lp->ll_list, ni); |
| 988 } | |
| 989 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
990 // Check that lp->ll_n2 isn't before lp->ll_n1. |
| 110 | 991 if (lp->ll_n1 < 0) |
| 992 lp->ll_n1 = list_idx_of_item(lp->ll_list, lp->ll_li); | |
| 993 if (lp->ll_n2 < lp->ll_n1) | |
| 2772 | 994 { |
| 995 if (!quiet) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
996 semsg(_(e_listidx), lp->ll_n2); |
| 110 | 997 return NULL; |
| 2772 | 998 } |
| 110 | 999 } |
| 1000 | |
| 1001 lp->ll_tv = &lp->ll_li->li_tv; | |
| 1002 } | |
| 1003 } | |
| 1004 | |
|
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
|
1005 clear_tv(&var1); |
| 110 | 1006 return p; |
| 1007 } | |
| 1008 | |
| 1009 /* | |
| 137 | 1010 * Clear lval "lp" that was filled by get_lval(). |
| 110 | 1011 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
1012 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1013 clear_lval(lval_T *lp) |
| 110 | 1014 { |
| 1015 vim_free(lp->ll_exp_name); | |
| 1016 vim_free(lp->ll_newkey); | |
| 1017 } | |
| 1018 | |
| 1019 /* | |
| 151 | 1020 * Set a variable that was parsed by get_lval() to "rettv". |
| 110 | 1021 * "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
|
1022 * "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
|
1023 * "%" for "%=", "." for ".=" or "=" for "=". |
| 117 | 1024 */ |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
1025 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1026 set_var_lval( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1027 lval_T *lp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1028 char_u *endp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1029 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1030 int copy, |
|
17079
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1031 int is_const, // Disallow to modify existing variable for :const |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1032 char_u *op) |
| 110 | 1033 { |
| 1034 int cc; | |
| 137 | 1035 listitem_T *ri; |
| 1036 dictitem_T *di; | |
| 110 | 1037 |
| 1038 if (lp->ll_tv == NULL) | |
| 1039 { | |
|
10889
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1040 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
|
1041 *endp = NUL; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1042 if (lp->ll_blob != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1043 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1044 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
|
1045 |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1046 if (op != NULL && *op != '=') |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1047 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1048 semsg(_(e_letwrong), op); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1049 return; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1050 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1051 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1052 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
|
1053 { |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1054 int il, ir; |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1055 |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1056 if (lp->ll_empty2) |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1057 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
|
1058 |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1059 if (lp->ll_n2 - lp->ll_n1 + 1 != blob_len(rettv->vval.v_blob)) |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1060 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1061 emsg(_("E972: Blob value does not have the right number of bytes")); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1062 return; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1063 } |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1064 if (lp->ll_empty2) |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1065 lp->ll_n2 = blob_len(lp->ll_blob); |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1066 |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1067 ir = 0; |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1068 for (il = lp->ll_n1; il <= lp->ll_n2; il++) |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1069 blob_set(lp->ll_blob, il, |
|
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1070 blob_get(rettv->vval.v_blob, ir++)); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1071 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1072 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1073 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1074 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
|
1075 if (!error) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1076 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1077 garray_T *gap = &lp->ll_blob->bv_ga; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1078 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1079 // Allow for appending a byte. Setting a byte beyond |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1080 // the end is an error otherwise. |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1081 if (lp->ll_n1 < gap->ga_len |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1082 || (lp->ll_n1 == gap->ga_len |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1083 && ga_grow(&lp->ll_blob->bv_ga, 1) == OK)) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1084 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1085 blob_set(lp->ll_blob, lp->ll_n1, val); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1086 if (lp->ll_n1 == gap->ga_len) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1087 ++gap->ga_len; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1088 } |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1089 // error for invalid range was already given in get_lval() |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1090 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1091 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1092 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1093 else 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
|
1094 { |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1095 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
|
1096 |
|
17079
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1097 if (is_const) |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1098 { |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1099 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
|
1100 *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
|
1101 return; |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1102 } |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1103 |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1104 // 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
|
1105 di = NULL; |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1106 if (get_var_tv(lp->ll_name, (int)STRLEN(lp->ll_name), |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1107 &tv, &di, TRUE, FALSE) == OK) |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1108 { |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1109 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
|
1110 || (!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
|
1111 && !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
|
1112 && 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
|
1113 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
|
1114 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
|
1115 } |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1116 } |
|
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1117 else |
|
17079
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1118 set_var_const(lp->ll_name, rettv, copy, is_const); |
|
10889
5780bd3a5a7e
patch 8.0.0334: can't access b:changedtick from a dict reference
Christian Brabandt <cb@256bit.org>
parents:
10728
diff
changeset
|
1119 *endp = cc; |
| 110 | 1120 } |
|
15780
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
1121 else if (var_check_lock(lp->ll_newkey == NULL |
| 151 | 1122 ? lp->ll_tv->v_lock |
| 6773 | 1123 : lp->ll_tv->vval.v_dict->dv_lock, lp->ll_name, FALSE)) |
| 151 | 1124 ; |
| 110 | 1125 else if (lp->ll_range) |
| 1126 { | |
| 6166 | 1127 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
|
1128 int ll_n1 = lp->ll_n1; |
| 6166 | 1129 |
|
17079
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1130 if (is_const) |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1131 { |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1132 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
|
1133 return; |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1134 } |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1135 |
| 6166 | 1136 /* |
| 1137 * Check whether any of the list items is locked | |
| 1138 */ | |
| 6422 | 1139 for (ri = rettv->vval.v_list->lv_first; ri != NULL && ll_li != NULL; ) |
| 6166 | 1140 { |
|
15780
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
1141 if (var_check_lock(ll_li->li_tv.v_lock, lp->ll_name, FALSE)) |
| 6166 | 1142 return; |
| 1143 ri = ri->li_next; | |
| 1144 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == ll_n1)) | |
| 1145 break; | |
| 1146 ll_li = ll_li->li_next; | |
| 1147 ++ll_n1; | |
| 1148 } | |
| 1149 | |
| 110 | 1150 /* |
| 1151 * Assign the List values to the list items. | |
| 1152 */ | |
| 1153 for (ri = rettv->vval.v_list->lv_first; ri != NULL; ) | |
| 1154 { | |
| 117 | 1155 if (op != NULL && *op != '=') |
| 1156 tv_op(&lp->ll_li->li_tv, &ri->li_tv, op); | |
| 1157 else | |
| 1158 { | |
| 1159 clear_tv(&lp->ll_li->li_tv); | |
| 1160 copy_tv(&ri->li_tv, &lp->ll_li->li_tv); | |
| 1161 } | |
| 110 | 1162 ri = ri->li_next; |
| 1163 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == lp->ll_n1)) | |
| 1164 break; | |
| 1165 if (lp->ll_li->li_next == NULL) | |
| 1166 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1167 // Need to add an empty item. |
| 533 | 1168 if (list_append_number(lp->ll_list, 0) == FAIL) |
| 110 | 1169 { |
| 1170 ri = NULL; | |
| 88 | 1171 break; |
| 110 | 1172 } |
| 1173 } | |
| 1174 lp->ll_li = lp->ll_li->li_next; | |
| 1175 ++lp->ll_n1; | |
| 1176 } | |
| 1177 if (ri != NULL) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1178 emsg(_("E710: List value has more items than target")); |
| 117 | 1179 else if (lp->ll_empty2 |
| 1180 ? (lp->ll_li != NULL && lp->ll_li->li_next != NULL) | |
| 110 | 1181 : lp->ll_n1 != lp->ll_n2) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1182 emsg(_("E711: List value has not enough items")); |
| 110 | 1183 } |
| 1184 else | |
| 1185 { | |
| 1186 /* | |
| 1187 * Assign to a List or Dictionary item. | |
| 1188 */ | |
|
17079
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1189 if (is_const) |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1190 { |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1191 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
|
1192 return; |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1193 } |
| 110 | 1194 if (lp->ll_newkey != NULL) |
| 1195 { | |
| 117 | 1196 if (op != NULL && *op != '=') |
| 1197 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1198 semsg(_(e_letwrong), op); |
| 117 | 1199 return; |
| 1200 } | |
| 1201 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1202 // Need to add an item to the Dictionary. |
| 121 | 1203 di = dictitem_alloc(lp->ll_newkey); |
| 110 | 1204 if (di == NULL) |
| 1205 return; | |
| 121 | 1206 if (dict_add(lp->ll_tv->vval.v_dict, di) == FAIL) |
| 1207 { | |
| 1208 vim_free(di); | |
| 1209 return; | |
| 1210 } | |
| 110 | 1211 lp->ll_tv = &di->di_tv; |
| 1212 } | |
| 117 | 1213 else if (op != NULL && *op != '=') |
| 1214 { | |
| 1215 tv_op(lp->ll_tv, rettv, op); | |
| 1216 return; | |
| 1217 } | |
| 110 | 1218 else |
| 1219 clear_tv(lp->ll_tv); | |
| 1220 | |
| 1221 /* | |
| 1222 * Assign the value to the variable or list item. | |
| 1223 */ | |
| 1224 if (copy) | |
| 1225 copy_tv(rettv, lp->ll_tv); | |
| 1226 else | |
| 1227 { | |
| 1228 *lp->ll_tv = *rettv; | |
| 156 | 1229 lp->ll_tv->v_lock = 0; |
| 110 | 1230 init_tv(rettv); |
| 1231 } | |
| 1232 } | |
| 7 | 1233 } |
| 1234 | |
| 76 | 1235 /* |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1236 * 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
|
1237 * and "tv1 .= tv2" |
| 117 | 1238 * Returns OK or FAIL. |
| 1239 */ | |
| 1240 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1241 tv_op(typval_T *tv1, typval_T *tv2, char_u *op) |
| 117 | 1242 { |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
1243 varnumber_T n; |
| 117 | 1244 char_u numbuf[NUMBUFLEN]; |
| 1245 char_u *s; | |
| 1246 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1247 // 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
|
1248 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
|
1249 && tv2->v_type != VAR_BOOL && tv2->v_type != VAR_SPECIAL) |
| 117 | 1250 { |
| 1251 switch (tv1->v_type) | |
| 1252 { | |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
1253 case VAR_UNKNOWN: |
| 117 | 1254 case VAR_DICT: |
| 1255 case VAR_FUNC: | |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
1256 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
|
1257 case VAR_BOOL: |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
1258 case VAR_SPECIAL: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
1259 case VAR_JOB: |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
1260 case VAR_CHANNEL: |
| 117 | 1261 break; |
| 1262 | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1263 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1264 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
|
1265 break; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1266 // BLOB += BLOB |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1267 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
|
1268 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1269 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
|
1270 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
|
1271 int i, len = blob_len(b2); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1272 for (i = 0; i < len; i++) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1273 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
|
1274 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1275 return OK; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1276 |
| 117 | 1277 case VAR_LIST: |
| 1278 if (*op != '+' || tv2->v_type != VAR_LIST) | |
| 1279 break; | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1280 // List += List |
| 117 | 1281 if (tv1->vval.v_list != NULL && tv2->vval.v_list != NULL) |
| 1282 list_extend(tv1->vval.v_list, tv2->vval.v_list, NULL); | |
| 1283 return OK; | |
| 1284 | |
| 1285 case VAR_NUMBER: | |
| 1286 case VAR_STRING: | |
| 1287 if (tv2->v_type == VAR_LIST) | |
| 1288 break; | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1289 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
|
1290 { |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1291 // 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
|
1292 n = tv_get_number(tv1); |
| 1624 | 1293 #ifdef FEAT_FLOAT |
| 1294 if (tv2->v_type == VAR_FLOAT) | |
| 1295 { | |
| 1296 float_T f = n; | |
| 1297 | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1298 if (*op == '%') |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1299 break; |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1300 switch (*op) |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1301 { |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1302 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
|
1303 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
|
1304 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
|
1305 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
|
1306 } |
| 1624 | 1307 clear_tv(tv1); |
| 1308 tv1->v_type = VAR_FLOAT; | |
| 1309 tv1->vval.v_float = f; | |
| 1310 } | |
| 117 | 1311 else |
| 1624 | 1312 #endif |
| 1313 { | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1314 switch (*op) |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1315 { |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1316 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
|
1317 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
|
1318 case '*': n *= tv_get_number(tv2); break; |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
1319 case '/': n = num_divide(n, tv_get_number(tv2)); break; |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
1320 case '%': n = num_modulus(n, tv_get_number(tv2)); break; |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1321 } |
| 1624 | 1322 clear_tv(tv1); |
| 1323 tv1->v_type = VAR_NUMBER; | |
| 1324 tv1->vval.v_number = n; | |
| 1325 } | |
| 1326 } | |
| 1327 else | |
| 1328 { | |
| 1329 if (tv2->v_type == VAR_FLOAT) | |
| 1330 break; | |
| 1331 | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1332 // str .= str |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1333 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
|
1334 s = concat_str(s, tv_get_string_buf(tv2, numbuf)); |
| 117 | 1335 clear_tv(tv1); |
| 1336 tv1->v_type = VAR_STRING; | |
| 1337 tv1->vval.v_string = s; | |
| 1338 } | |
| 1339 return OK; | |
| 1624 | 1340 |
| 1341 case VAR_FLOAT: | |
|
8364
991d8fd4d841
commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents:
8350
diff
changeset
|
1342 #ifdef FEAT_FLOAT |
| 1624 | 1343 { |
| 1344 float_T f; | |
| 1345 | |
|
15790
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1346 if (*op == '%' || *op == '.' |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1347 || (tv2->v_type != VAR_FLOAT |
| 1624 | 1348 && tv2->v_type != VAR_NUMBER |
| 1349 && tv2->v_type != VAR_STRING)) | |
| 1350 break; | |
| 1351 if (tv2->v_type == VAR_FLOAT) | |
| 1352 f = tv2->vval.v_float; | |
| 1353 else | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1354 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
|
1355 switch (*op) |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1356 { |
|
05d836c8f1c4
patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents:
15784
diff
changeset
|
1357 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
|
1358 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
|
1359 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
|
1360 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
|
1361 } |
| 1624 | 1362 } |
|
8364
991d8fd4d841
commit https://github.com/vim/vim/commit/5fac467474376a844407cecc0ff481510ead221c
Christian Brabandt <cb@256bit.org>
parents:
8350
diff
changeset
|
1363 #endif |
| 1624 | 1364 return OK; |
| 117 | 1365 } |
| 1366 } | |
| 1367 | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1368 semsg(_(e_letwrong), op); |
| 117 | 1369 return FAIL; |
| 1370 } | |
| 1371 | |
| 1372 /* | |
| 76 | 1373 * Evaluate the expression used in a ":for var in expr" command. |
| 1374 * "arg" points to "var". | |
| 1375 * Set "*errp" to TRUE for an error, FALSE otherwise; | |
| 1376 * Return a pointer that holds the info. Null when there is an error. | |
| 1377 */ | |
| 1378 void * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1379 eval_for_line( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1380 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1381 int *errp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1382 char_u **nextcmdp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1383 int skip) |
| 76 | 1384 { |
| 137 | 1385 forinfo_T *fi; |
| 76 | 1386 char_u *expr; |
| 137 | 1387 typval_T tv; |
| 1388 list_T *l; | |
| 76 | 1389 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1390 *errp = TRUE; // default: there is an error |
| 76 | 1391 |
|
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
|
1392 fi = ALLOC_CLEAR_ONE(forinfo_T); |
| 76 | 1393 if (fi == NULL) |
| 1394 return NULL; | |
| 1395 | |
| 1396 expr = skip_var_list(arg, &fi->fi_varcount, &fi->fi_semicolon); | |
| 1397 if (expr == NULL) | |
| 1398 return fi; | |
| 1399 | |
| 1400 expr = skipwhite(expr); | |
|
11129
f4ea50924c6d
patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11127
diff
changeset
|
1401 if (expr[0] != 'i' || expr[1] != 'n' || !VIM_ISWHITE(expr[2])) |
| 76 | 1402 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1403 emsg(_("E690: Missing \"in\" after :for")); |
| 76 | 1404 return fi; |
| 1405 } | |
| 1406 | |
| 1407 if (skip) | |
| 1408 ++emsg_skip; | |
| 1409 if (eval0(skipwhite(expr + 2), &tv, nextcmdp, !skip) == OK) | |
| 1410 { | |
| 1411 *errp = FALSE; | |
| 1412 if (!skip) | |
| 1413 { | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1414 if (tv.v_type == VAR_LIST) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1415 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1416 l = tv.vval.v_list; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1417 if (l == NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1418 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1419 // 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
|
1420 clear_tv(&tv); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1421 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1422 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1423 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1424 // 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
|
1425 // the list being used in "tv". |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1426 fi->fi_list = l; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1427 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
|
1428 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
|
1429 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1430 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1431 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
|
1432 { |
|
15581
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1433 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
|
1434 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
|
1435 { |
|
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1436 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
|
1437 |
|
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1438 // 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
|
1439 // blob is changed. |
|
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1440 blob_copy(&tv, &btv); |
|
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1441 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
|
1442 } |
|
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1443 clear_tv(&tv); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1444 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1445 else |
| 359 | 1446 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1447 emsg(_(e_listreq)); |
| 359 | 1448 clear_tv(&tv); |
| 1449 } | |
| 76 | 1450 } |
| 1451 } | |
| 1452 if (skip) | |
| 1453 --emsg_skip; | |
| 1454 | |
| 1455 return fi; | |
| 1456 } | |
| 1457 | |
| 1458 /* | |
| 1459 * Use the first item in a ":for" list. Advance to the next. | |
| 1460 * Assign the values to the variable (list). "arg" points to the first one. | |
| 1461 * Return TRUE when a valid item was found, FALSE when at end of list or | |
| 1462 * something wrong. | |
| 1463 */ | |
| 1464 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1465 next_for_item(void *fi_void, char_u *arg) |
| 76 | 1466 { |
|
4974
a594ce86b5ea
updated for version 7.3.1232
Bram Moolenaar <bram@vim.org>
parents:
4936
diff
changeset
|
1467 forinfo_T *fi = (forinfo_T *)fi_void; |
| 76 | 1468 int result; |
| 137 | 1469 listitem_T *item; |
| 76 | 1470 |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1471 if (fi->fi_blob != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1472 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1473 typval_T tv; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1474 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1475 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
|
1476 return FALSE; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1477 tv.v_type = VAR_NUMBER; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1478 tv.v_lock = VAR_FIXED; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1479 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
|
1480 ++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
|
1481 return ex_let_vars(arg, &tv, TRUE, fi->fi_semicolon, |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1482 fi->fi_varcount, FALSE, NULL) == OK; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1483 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
1484 |
| 76 | 1485 item = fi->fi_lw.lw_item; |
| 1486 if (item == NULL) | |
| 1487 result = FALSE; | |
| 1488 else | |
| 1489 { | |
| 1490 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
|
1491 result = (ex_let_vars(arg, &item->li_tv, TRUE, fi->fi_semicolon, |
|
00ffed9bbb65
patch 8.1.1539: not easy to define a variable and lock it
Bram Moolenaar <Bram@vim.org>
parents:
17053
diff
changeset
|
1492 fi->fi_varcount, FALSE, NULL) == OK); |
| 76 | 1493 } |
| 1494 return result; | |
| 1495 } | |
| 1496 | |
| 1497 /* | |
| 1498 * Free the structure used to store info used by ":for". | |
| 1499 */ | |
| 1500 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1501 free_for_info(void *fi_void) |
| 76 | 1502 { |
| 137 | 1503 forinfo_T *fi = (forinfo_T *)fi_void; |
| 76 | 1504 |
| 92 | 1505 if (fi != NULL && fi->fi_list != NULL) |
| 359 | 1506 { |
| 76 | 1507 list_rem_watch(fi->fi_list, &fi->fi_lw); |
| 359 | 1508 list_unref(fi->fi_list); |
| 1509 } | |
|
15460
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
1510 if (fi != NULL && fi->fi_blob != NULL) |
|
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
1511 blob_unref(fi->fi_blob); |
| 76 | 1512 vim_free(fi); |
| 1513 } | |
| 1514 | |
| 7 | 1515 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1516 set_context_for_expression( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1517 expand_T *xp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1518 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1519 cmdidx_T cmdidx) |
| 7 | 1520 { |
| 1521 int got_eq = FALSE; | |
| 1522 int c; | |
| 76 | 1523 char_u *p; |
| 1524 | |
|
18713
baf890fa1621
patch 8.1.2348: :const cannot be followed by "| endif"
Bram Moolenaar <Bram@vim.org>
parents:
18301
diff
changeset
|
1525 if (cmdidx == CMD_let || cmdidx == CMD_const) |
| 76 | 1526 { |
| 1527 xp->xp_context = EXPAND_USER_VARS; | |
| 159 | 1528 if (vim_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL) |
| 76 | 1529 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1530 // ":let var1 var2 ...": find last space. |
| 159 | 1531 for (p = arg + STRLEN(arg); p >= arg; ) |
| 76 | 1532 { |
| 1533 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
|
1534 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
|
1535 if (VIM_ISWHITE(*p)) |
| 76 | 1536 break; |
| 1537 } | |
| 1538 return; | |
| 1539 } | |
| 1540 } | |
| 1541 else | |
| 1542 xp->xp_context = cmdidx == CMD_call ? EXPAND_FUNCTIONS | |
| 1543 : EXPAND_EXPRESSION; | |
| 7 | 1544 while ((xp->xp_pattern = vim_strpbrk(arg, |
| 1545 (char_u *)"\"'+-*/%.=!?~|&$([<>,#")) != NULL) | |
| 1546 { | |
| 1547 c = *xp->xp_pattern; | |
| 1548 if (c == '&') | |
| 1549 { | |
| 1550 c = xp->xp_pattern[1]; | |
| 1551 if (c == '&') | |
| 1552 { | |
| 1553 ++xp->xp_pattern; | |
| 1554 xp->xp_context = cmdidx != CMD_let || got_eq | |
| 1555 ? EXPAND_EXPRESSION : EXPAND_NOTHING; | |
| 1556 } | |
| 1557 else if (c != ' ') | |
| 201 | 1558 { |
| 7 | 1559 xp->xp_context = EXPAND_SETTINGS; |
| 201 | 1560 if ((c == 'l' || c == 'g') && xp->xp_pattern[2] == ':') |
| 1561 xp->xp_pattern += 2; | |
| 1562 | |
| 1563 } | |
| 7 | 1564 } |
| 1565 else if (c == '$') | |
| 1566 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1567 // environment variable |
| 7 | 1568 xp->xp_context = EXPAND_ENV_VARS; |
| 1569 } | |
| 1570 else if (c == '=') | |
| 1571 { | |
| 1572 got_eq = TRUE; | |
| 1573 xp->xp_context = EXPAND_EXPRESSION; | |
| 1574 } | |
|
8763
4b83af41f5db
commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents:
8749
diff
changeset
|
1575 else if (c == '#' |
|
4b83af41f5db
commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents:
8749
diff
changeset
|
1576 && xp->xp_context == EXPAND_EXPRESSION) |
|
4b83af41f5db
commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents:
8749
diff
changeset
|
1577 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1578 // Autoload function/variable contains '#'. |
|
8763
4b83af41f5db
commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents:
8749
diff
changeset
|
1579 break; |
|
4b83af41f5db
commit https://github.com/vim/vim/commit/a32095fc8fdf5fe3d487c86d9cc54adb1236731e
Christian Brabandt <cb@256bit.org>
parents:
8749
diff
changeset
|
1580 } |
| 6367 | 1581 else if ((c == '<' || c == '#') |
| 7 | 1582 && xp->xp_context == EXPAND_FUNCTIONS |
| 1583 && vim_strchr(xp->xp_pattern, '(') == NULL) | |
| 1584 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1585 // Function name can start with "<SNR>" and contain '#'. |
| 7 | 1586 break; |
| 1587 } | |
| 1588 else if (cmdidx != CMD_let || got_eq) | |
| 1589 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1590 if (c == '"') // string |
| 7 | 1591 { |
| 1592 while ((c = *++xp->xp_pattern) != NUL && c != '"') | |
| 1593 if (c == '\\' && xp->xp_pattern[1] != NUL) | |
| 1594 ++xp->xp_pattern; | |
| 1595 xp->xp_context = EXPAND_NOTHING; | |
| 1596 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1597 else if (c == '\'') // literal string |
| 7 | 1598 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1599 // Trick: '' is like stopping and starting a literal string. |
| 7 | 1600 while ((c = *++xp->xp_pattern) != NUL && c != '\'') |
| 1601 /* skip */ ; | |
| 1602 xp->xp_context = EXPAND_NOTHING; | |
| 1603 } | |
| 1604 else if (c == '|') | |
| 1605 { | |
| 1606 if (xp->xp_pattern[1] == '|') | |
| 1607 { | |
| 1608 ++xp->xp_pattern; | |
| 1609 xp->xp_context = EXPAND_EXPRESSION; | |
| 1610 } | |
| 1611 else | |
| 1612 xp->xp_context = EXPAND_COMMANDS; | |
| 1613 } | |
| 1614 else | |
| 1615 xp->xp_context = EXPAND_EXPRESSION; | |
| 1616 } | |
| 1617 else | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1618 // 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
|
1619 // anyway. |
| 76 | 1620 xp->xp_context = EXPAND_EXPRESSION; |
| 7 | 1621 arg = xp->xp_pattern; |
| 1622 if (*arg != NUL) | |
| 1623 while ((c = *++arg) != NUL && (c == ' ' || c == '\t')) | |
| 1624 /* skip */ ; | |
| 1625 } | |
| 1626 xp->xp_pattern = arg; | |
| 1627 } | |
| 1628 | |
| 1629 /* | |
|
8749
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1630 * Return TRUE if "pat" matches "text". |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1631 * 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
|
1632 */ |
|
17377
cb008de2a6ec
patch 8.1.1687: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17375
diff
changeset
|
1633 int |
|
8749
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1634 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
|
1635 { |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1636 int matches = FALSE; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1637 char_u *save_cpo; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1638 regmatch_T regmatch; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1639 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1640 // avoid 'l' flag in 'cpoptions' |
|
8749
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1641 save_cpo = p_cpo; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1642 p_cpo = (char_u *)""; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1643 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
|
1644 if (regmatch.regprog != NULL) |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1645 { |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1646 regmatch.rm_ic = ic; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1647 matches = vim_regexec_nl(®match, text, (colnr_T)0); |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1648 vim_regfree(regmatch.regprog); |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1649 } |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1650 p_cpo = save_cpo; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1651 return matches; |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1652 } |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1653 |
|
65a5a18d3acf
commit https://github.com/vim/vim/commit/ea6553bec340920d8a09c7210cdc2d218e25ace2
Christian Brabandt <cb@256bit.org>
parents:
8742
diff
changeset
|
1654 /* |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1655 * 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
|
1656 * "expr->name(arg)". |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1657 * Returns OK or FAIL. |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1658 */ |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1659 static int |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1660 eval_func( |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1661 char_u **arg, // points to "(", will be advanced |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1662 char_u *name, |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1663 int name_len, |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1664 typval_T *rettv, |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1665 int evaluate, |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1666 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
|
1667 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1668 char_u *s = name; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1669 int len = name_len; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1670 partial_T *partial; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1671 int ret = OK; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1672 |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1673 if (!evaluate) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1674 check_vars(s, len); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1675 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1676 // 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
|
1677 // use its contents. |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1678 s = deref_func_name(s, &len, &partial, !evaluate); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1679 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1680 // 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
|
1681 // the name invalid. |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1682 s = vim_strsave(s); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1683 if (s == NULL) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1684 ret = FAIL; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1685 else |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1686 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1687 funcexe_T funcexe; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1688 |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1689 // Invoke the function. |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1690 vim_memset(&funcexe, 0, sizeof(funcexe)); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1691 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
|
1692 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
|
1693 funcexe.evaluate = evaluate; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1694 funcexe.partial = partial; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1695 funcexe.basetv = basetv; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1696 ret = get_func_tv(s, len, rettv, arg, &funcexe); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1697 } |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1698 vim_free(s); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1699 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1700 // 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
|
1701 // 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
|
1702 // 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
|
1703 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
|
1704 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1705 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
|
1706 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
|
1707 } |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1708 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1709 // 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
|
1710 // 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
|
1711 // 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
|
1712 if (evaluate && aborting()) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1713 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1714 if (ret == OK) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1715 clear_tv(rettv); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1716 ret = FAIL; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1717 } |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1718 return ret; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1719 } |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1720 |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
1721 /* |
| 7 | 1722 * The "evaluate" argument: When FALSE, the argument is only parsed but not |
| 71 | 1723 * executed. The function may return OK, but the rettv will be of type |
| 7 | 1724 * VAR_UNKNOWN. The function still returns FAIL for a syntax error. |
| 1725 */ | |
| 1726 | |
| 1727 /* | |
| 1728 * Handle zero level expression. | |
| 1729 * This calls eval1() and handles error message and nextcmd. | |
| 71 | 1730 * Put the result in "rettv" when returning OK and "evaluate" is TRUE. |
| 533 | 1731 * Note: "rettv.v_lock" is not set. |
| 7 | 1732 * Return OK or FAIL. |
| 1733 */ | |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
1734 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1735 eval0( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1736 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1737 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1738 char_u **nextcmd, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1739 int evaluate) |
| 7 | 1740 { |
| 1741 int ret; | |
| 1742 char_u *p; | |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1743 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
|
1744 int called_emsg_before = called_emsg; |
| 7 | 1745 |
| 1746 p = skipwhite(arg); | |
| 71 | 1747 ret = eval1(&p, rettv, evaluate); |
| 7 | 1748 if (ret == FAIL || !ends_excmd(*p)) |
| 1749 { | |
| 1750 if (ret != FAIL) | |
| 71 | 1751 clear_tv(rettv); |
| 7 | 1752 /* |
| 1753 * Report the invalid expression unless the expression evaluation has | |
| 1754 * 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
|
1755 * 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
|
1756 * Also check called_emsg for when using assert_fails(). |
| 7 | 1757 */ |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1758 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
|
1759 && called_emsg == called_emsg_before) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1760 semsg(_(e_invexpr2), arg); |
| 7 | 1761 ret = FAIL; |
| 1762 } | |
| 1763 if (nextcmd != NULL) | |
| 1764 *nextcmd = check_nextcmd(p); | |
| 1765 | |
| 1766 return ret; | |
| 1767 } | |
| 1768 | |
| 1769 /* | |
| 1770 * Handle top level expression: | |
| 1800 | 1771 * expr2 ? expr1 : expr1 |
| 7 | 1772 * |
| 1773 * "arg" must point to the first non-white of the expression. | |
| 1774 * "arg" is advanced to the next non-white after the recognized expression. | |
| 1775 * | |
| 533 | 1776 * Note: "rettv.v_lock" is not set. |
| 1777 * | |
| 7 | 1778 * Return OK or FAIL. |
| 1779 */ | |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
1780 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1781 eval1(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 1782 { |
| 1783 int result; | |
| 137 | 1784 typval_T var2; |
| 7 | 1785 |
| 1786 /* | |
| 1787 * Get the first variable. | |
| 1788 */ | |
| 71 | 1789 if (eval2(arg, rettv, evaluate) == FAIL) |
| 7 | 1790 return FAIL; |
| 1791 | |
| 1792 if ((*arg)[0] == '?') | |
| 1793 { | |
| 1794 result = FALSE; | |
| 1795 if (evaluate) | |
| 1796 { | |
| 323 | 1797 int error = FALSE; |
| 1798 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1799 if (tv_get_number_chk(rettv, &error) != 0) |
| 7 | 1800 result = TRUE; |
| 71 | 1801 clear_tv(rettv); |
| 323 | 1802 if (error) |
| 1803 return FAIL; | |
| 7 | 1804 } |
| 1805 | |
| 1806 /* | |
| 1807 * Get the second variable. | |
| 1808 */ | |
| 1809 *arg = skipwhite(*arg + 1); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1810 if (eval1(arg, rettv, evaluate && result) == FAIL) // recursive! |
| 7 | 1811 return FAIL; |
| 1812 | |
| 1813 /* | |
| 1814 * Check for the ":". | |
| 1815 */ | |
| 1816 if ((*arg)[0] != ':') | |
| 1817 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
1818 emsg(_("E109: Missing ':' after '?'")); |
| 7 | 1819 if (evaluate && result) |
| 71 | 1820 clear_tv(rettv); |
| 7 | 1821 return FAIL; |
| 1822 } | |
| 1823 | |
| 1824 /* | |
| 1825 * Get the third variable. | |
| 1826 */ | |
| 1827 *arg = skipwhite(*arg + 1); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1828 if (eval1(arg, &var2, evaluate && !result) == FAIL) // recursive! |
| 7 | 1829 { |
| 1830 if (evaluate && result) | |
| 71 | 1831 clear_tv(rettv); |
| 7 | 1832 return FAIL; |
| 1833 } | |
| 1834 if (evaluate && !result) | |
| 71 | 1835 *rettv = var2; |
| 7 | 1836 } |
| 1837 | |
| 1838 return OK; | |
| 1839 } | |
| 1840 | |
| 1841 /* | |
| 1842 * Handle first level expression: | |
| 1843 * expr2 || expr2 || expr2 logical OR | |
| 1844 * | |
| 1845 * "arg" must point to the first non-white of the expression. | |
| 1846 * "arg" is advanced to the next non-white after the recognized expression. | |
| 1847 * | |
| 1848 * Return OK or FAIL. | |
| 1849 */ | |
| 1850 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1851 eval2(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 1852 { |
| 137 | 1853 typval_T var2; |
| 7 | 1854 long result; |
| 1855 int first; | |
| 323 | 1856 int error = FALSE; |
| 7 | 1857 |
| 1858 /* | |
| 1859 * Get the first variable. | |
| 1860 */ | |
| 71 | 1861 if (eval3(arg, rettv, evaluate) == FAIL) |
| 7 | 1862 return FAIL; |
| 1863 | |
| 1864 /* | |
| 1865 * Repeat until there is no following "||". | |
| 1866 */ | |
| 1867 first = TRUE; | |
| 1868 result = FALSE; | |
| 1869 while ((*arg)[0] == '|' && (*arg)[1] == '|') | |
| 1870 { | |
| 1871 if (evaluate && first) | |
| 1872 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1873 if (tv_get_number_chk(rettv, &error) != 0) |
| 7 | 1874 result = TRUE; |
| 71 | 1875 clear_tv(rettv); |
| 323 | 1876 if (error) |
| 1877 return FAIL; | |
| 7 | 1878 first = FALSE; |
| 1879 } | |
| 1880 | |
| 1881 /* | |
| 1882 * Get the second variable. | |
| 1883 */ | |
| 1884 *arg = skipwhite(*arg + 2); | |
| 1885 if (eval3(arg, &var2, evaluate && !result) == FAIL) | |
| 1886 return FAIL; | |
| 1887 | |
| 1888 /* | |
| 1889 * Compute the result. | |
| 1890 */ | |
| 1891 if (evaluate && !result) | |
| 1892 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1893 if (tv_get_number_chk(&var2, &error) != 0) |
| 7 | 1894 result = TRUE; |
| 71 | 1895 clear_tv(&var2); |
| 323 | 1896 if (error) |
| 1897 return FAIL; | |
| 7 | 1898 } |
| 1899 if (evaluate) | |
| 1900 { | |
| 71 | 1901 rettv->v_type = VAR_NUMBER; |
| 1902 rettv->vval.v_number = result; | |
| 7 | 1903 } |
| 1904 } | |
| 1905 | |
| 1906 return OK; | |
| 1907 } | |
| 1908 | |
| 1909 /* | |
| 1910 * Handle second level expression: | |
| 1911 * expr3 && expr3 && expr3 logical AND | |
| 1912 * | |
| 1913 * "arg" must point to the first non-white of the expression. | |
| 1914 * "arg" is advanced to the next non-white after the recognized expression. | |
| 1915 * | |
| 1916 * Return OK or FAIL. | |
| 1917 */ | |
| 1918 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1919 eval3(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 1920 { |
| 137 | 1921 typval_T var2; |
| 7 | 1922 long result; |
| 1923 int first; | |
| 323 | 1924 int error = FALSE; |
| 7 | 1925 |
| 1926 /* | |
| 1927 * Get the first variable. | |
| 1928 */ | |
| 71 | 1929 if (eval4(arg, rettv, evaluate) == FAIL) |
| 7 | 1930 return FAIL; |
| 1931 | |
| 1932 /* | |
| 1933 * Repeat until there is no following "&&". | |
| 1934 */ | |
| 1935 first = TRUE; | |
| 1936 result = TRUE; | |
| 1937 while ((*arg)[0] == '&' && (*arg)[1] == '&') | |
| 1938 { | |
| 1939 if (evaluate && first) | |
| 1940 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1941 if (tv_get_number_chk(rettv, &error) == 0) |
| 7 | 1942 result = FALSE; |
| 71 | 1943 clear_tv(rettv); |
| 323 | 1944 if (error) |
| 1945 return FAIL; | |
| 7 | 1946 first = FALSE; |
| 1947 } | |
| 1948 | |
| 1949 /* | |
| 1950 * Get the second variable. | |
| 1951 */ | |
| 1952 *arg = skipwhite(*arg + 2); | |
| 1953 if (eval4(arg, &var2, evaluate && result) == FAIL) | |
| 1954 return FAIL; | |
| 1955 | |
| 1956 /* | |
| 1957 * Compute the result. | |
| 1958 */ | |
| 1959 if (evaluate && result) | |
| 1960 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
1961 if (tv_get_number_chk(&var2, &error) == 0) |
| 7 | 1962 result = FALSE; |
| 71 | 1963 clear_tv(&var2); |
| 323 | 1964 if (error) |
| 1965 return FAIL; | |
| 7 | 1966 } |
| 1967 if (evaluate) | |
| 1968 { | |
| 71 | 1969 rettv->v_type = VAR_NUMBER; |
| 1970 rettv->vval.v_number = result; | |
| 7 | 1971 } |
| 1972 } | |
| 1973 | |
| 1974 return OK; | |
| 1975 } | |
| 1976 | |
| 1977 /* | |
| 1978 * Handle third level expression: | |
| 1979 * var1 == var2 | |
| 1980 * var1 =~ var2 | |
| 1981 * var1 != var2 | |
| 1982 * var1 !~ var2 | |
| 1983 * var1 > var2 | |
| 1984 * var1 >= var2 | |
| 1985 * var1 < var2 | |
| 1986 * var1 <= var2 | |
| 80 | 1987 * var1 is var2 |
| 1988 * var1 isnot var2 | |
| 7 | 1989 * |
| 1990 * "arg" must point to the first non-white of the expression. | |
| 1991 * "arg" is advanced to the next non-white after the recognized expression. | |
| 1992 * | |
| 1993 * Return OK or FAIL. | |
| 1994 */ | |
| 1995 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
1996 eval4(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 1997 { |
| 137 | 1998 typval_T var2; |
| 7 | 1999 char_u *p; |
| 2000 int i; | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2001 exptype_T type = EXPR_UNKNOWN; |
| 7 | 2002 int len = 2; |
| 2003 int ic; | |
| 2004 | |
| 2005 /* | |
| 2006 * Get the first variable. | |
| 2007 */ | |
| 71 | 2008 if (eval5(arg, rettv, evaluate) == FAIL) |
| 7 | 2009 return FAIL; |
| 2010 | |
| 2011 p = *arg; | |
| 2012 switch (p[0]) | |
| 2013 { | |
| 2014 case '=': if (p[1] == '=') | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2015 type = EXPR_EQUAL; |
| 7 | 2016 else if (p[1] == '~') |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2017 type = EXPR_MATCH; |
| 7 | 2018 break; |
| 2019 case '!': if (p[1] == '=') | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2020 type = EXPR_NEQUAL; |
| 7 | 2021 else if (p[1] == '~') |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2022 type = EXPR_NOMATCH; |
| 7 | 2023 break; |
| 2024 case '>': if (p[1] != '=') | |
| 2025 { | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2026 type = EXPR_GREATER; |
| 7 | 2027 len = 1; |
| 2028 } | |
| 2029 else | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2030 type = EXPR_GEQUAL; |
| 7 | 2031 break; |
| 2032 case '<': if (p[1] != '=') | |
| 2033 { | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2034 type = EXPR_SMALLER; |
| 7 | 2035 len = 1; |
| 2036 } | |
| 2037 else | |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2038 type = EXPR_SEQUAL; |
| 7 | 2039 break; |
| 80 | 2040 case 'i': if (p[1] == 's') |
| 2041 { | |
| 2042 if (p[2] == 'n' && p[3] == 'o' && p[4] == 't') | |
| 2043 len = 5; | |
|
7064
5fc5c5bf2233
commit https://github.com/vim/vim/commit/37a8de17d4dfd3d463960c38a204ce399c8e19d4
Christian Brabandt <cb@256bit.org>
parents:
7046
diff
changeset
|
2044 i = p[len]; |
|
5fc5c5bf2233
commit https://github.com/vim/vim/commit/37a8de17d4dfd3d463960c38a204ce399c8e19d4
Christian Brabandt <cb@256bit.org>
parents:
7046
diff
changeset
|
2045 if (!isalnum(i) && i != '_') |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2046 type = len == 2 ? EXPR_IS : EXPR_ISNOT; |
| 80 | 2047 } |
| 2048 break; | |
| 7 | 2049 } |
| 2050 | |
| 2051 /* | |
| 1624 | 2052 * If there is a comparative operator, use it. |
| 7 | 2053 */ |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
2054 if (type != EXPR_UNKNOWN) |
| 7 | 2055 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2056 // extra question mark appended: ignore case |
| 7 | 2057 if (p[len] == '?') |
| 2058 { | |
| 2059 ic = TRUE; | |
| 2060 ++len; | |
| 2061 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2062 // extra '#' appended: match case |
| 7 | 2063 else if (p[len] == '#') |
| 2064 { | |
| 2065 ic = FALSE; | |
| 2066 ++len; | |
| 2067 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2068 // nothing appended: use 'ignorecase' |
| 7 | 2069 else |
| 2070 ic = p_ic; | |
| 2071 | |
| 2072 /* | |
| 2073 * Get the second variable. | |
| 2074 */ | |
| 2075 *arg = skipwhite(p + len); | |
| 2076 if (eval5(arg, &var2, evaluate) == FAIL) | |
| 2077 { | |
| 71 | 2078 clear_tv(rettv); |
| 7 | 2079 return FAIL; |
| 2080 } | |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
2081 if (evaluate) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
2082 { |
|
18966
6bd715870e32
patch 8.2.0044: expression type is used inconsistently
Bram Moolenaar <Bram@vim.org>
parents:
18939
diff
changeset
|
2083 int ret = typval_compare(rettv, &var2, type, ic); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
2084 |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
2085 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
|
2086 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
|
2087 } |
| 7 | 2088 } |
| 2089 | |
| 2090 return OK; | |
| 2091 } | |
| 2092 | |
| 2093 /* | |
| 2094 * Handle fourth level expression: | |
| 2095 * + number addition | |
| 2096 * - number subtraction | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2097 * . 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
|
2098 * .. string concatenation |
| 7 | 2099 * |
| 2100 * "arg" must point to the first non-white of the expression. | |
| 2101 * "arg" is advanced to the next non-white after the recognized expression. | |
| 2102 * | |
| 2103 * Return OK or FAIL. | |
| 2104 */ | |
| 2105 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2106 eval5(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 2107 { |
| 137 | 2108 typval_T var2; |
| 2109 typval_T var3; | |
| 7 | 2110 int op; |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
2111 varnumber_T n1, n2; |
| 1624 | 2112 #ifdef FEAT_FLOAT |
| 2113 float_T f1 = 0, f2 = 0; | |
| 2114 #endif | |
| 7 | 2115 char_u *s1, *s2; |
| 2116 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN]; | |
| 2117 char_u *p; | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2118 int concat; |
| 7 | 2119 |
| 2120 /* | |
| 2121 * Get the first variable. | |
| 2122 */ | |
| 1655 | 2123 if (eval6(arg, rettv, evaluate, FALSE) == FAIL) |
| 7 | 2124 return FAIL; |
| 2125 | |
| 2126 /* | |
| 2127 * Repeat computing, until no '+', '-' or '.' is following. | |
| 2128 */ | |
| 2129 for (;;) | |
| 2130 { | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2131 // "." is only string concatenation when scriptversion is 1 |
| 7 | 2132 op = **arg; |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2133 concat = op == '.' |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2134 && (*(*arg + 1) == '.' || current_sctx.sc_version < 2); |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2135 if (op != '+' && op != '-' && !concat) |
| 7 | 2136 break; |
| 2137 | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2138 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
|
2139 && rettv->v_type != VAR_BLOB)) |
| 1624 | 2140 #ifdef FEAT_FLOAT |
| 2141 && (op == '.' || rettv->v_type != VAR_FLOAT) | |
| 2142 #endif | |
| 2143 ) | |
| 323 | 2144 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2145 // 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
|
2146 // 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
|
2147 // 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
|
2148 // 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
|
2149 // 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
|
2150 // 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
|
2151 // side effects after an error. |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2152 if (evaluate && tv_get_string_chk(rettv) == NULL) |
| 323 | 2153 { |
| 2154 clear_tv(rettv); | |
| 2155 return FAIL; | |
| 2156 } | |
| 2157 } | |
| 2158 | |
| 7 | 2159 /* |
| 2160 * Get the second variable. | |
| 2161 */ | |
|
16219
bd49e1656c72
patch 8.1.1114: confusing overloaded operator "." for string concatenation
Bram Moolenaar <Bram@vim.org>
parents:
16170
diff
changeset
|
2162 if (op == '.' && *(*arg + 1) == '.') // .. string concatenation |
|
bd49e1656c72
patch 8.1.1114: confusing overloaded operator "." for string concatenation
Bram Moolenaar <Bram@vim.org>
parents:
16170
diff
changeset
|
2163 ++*arg; |
| 7 | 2164 *arg = skipwhite(*arg + 1); |
| 1655 | 2165 if (eval6(arg, &var2, evaluate, op == '.') == FAIL) |
| 7 | 2166 { |
| 71 | 2167 clear_tv(rettv); |
| 7 | 2168 return FAIL; |
| 2169 } | |
| 2170 | |
| 2171 if (evaluate) | |
| 2172 { | |
| 2173 /* | |
| 2174 * Compute the result. | |
| 2175 */ | |
| 2176 if (op == '.') | |
| 2177 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2178 s1 = tv_get_string_buf(rettv, buf1); // already checked |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2179 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
|
2180 if (s2 == NULL) // type error ? |
| 323 | 2181 { |
| 2182 clear_tv(rettv); | |
| 2183 clear_tv(&var2); | |
| 2184 return FAIL; | |
| 2185 } | |
| 117 | 2186 p = concat_str(s1, s2); |
| 71 | 2187 clear_tv(rettv); |
| 2188 rettv->v_type = VAR_STRING; | |
| 2189 rettv->vval.v_string = p; | |
| 7 | 2190 } |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2191 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
|
2192 && var2.v_type == VAR_BLOB) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2193 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2194 blob_T *b1 = rettv->vval.v_blob; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2195 blob_T *b2 = var2.vval.v_blob; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2196 blob_T *b = blob_alloc(); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2197 int i; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2198 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2199 if (b != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2200 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2201 for (i = 0; i < blob_len(b1); i++) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2202 ga_append(&b->bv_ga, blob_get(b1, i)); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2203 for (i = 0; i < blob_len(b2); i++) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2204 ga_append(&b->bv_ga, blob_get(b2, i)); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2205 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2206 clear_tv(rettv); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2207 rettv_blob_set(rettv, b); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2208 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2209 } |
| 104 | 2210 else if (op == '+' && rettv->v_type == VAR_LIST |
| 2211 && var2.v_type == VAR_LIST) | |
| 80 | 2212 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2213 // concatenate Lists |
| 80 | 2214 if (list_concat(rettv->vval.v_list, var2.vval.v_list, |
| 2215 &var3) == FAIL) | |
| 2216 { | |
| 2217 clear_tv(rettv); | |
| 2218 clear_tv(&var2); | |
| 2219 return FAIL; | |
| 2220 } | |
| 2221 clear_tv(rettv); | |
| 2222 *rettv = var3; | |
| 2223 } | |
| 7 | 2224 else |
| 2225 { | |
| 323 | 2226 int error = FALSE; |
| 2227 | |
| 1624 | 2228 #ifdef FEAT_FLOAT |
| 2229 if (rettv->v_type == VAR_FLOAT) | |
| 2230 { | |
| 2231 f1 = rettv->vval.v_float; | |
| 2232 n1 = 0; | |
| 2233 } | |
| 2234 else | |
| 2235 #endif | |
| 2236 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2237 n1 = tv_get_number_chk(rettv, &error); |
| 1624 | 2238 if (error) |
| 2239 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2240 // This can only happen for "list + non-list". For |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2241 // "non-list + ..." or "something - ...", we returned |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2242 // before evaluating the 2nd operand. |
| 1624 | 2243 clear_tv(rettv); |
| 2244 return FAIL; | |
| 2245 } | |
| 2246 #ifdef FEAT_FLOAT | |
| 2247 if (var2.v_type == VAR_FLOAT) | |
| 2248 f1 = n1; | |
| 2249 #endif | |
| 2250 } | |
| 2251 #ifdef FEAT_FLOAT | |
| 2252 if (var2.v_type == VAR_FLOAT) | |
| 2253 { | |
| 2254 f2 = var2.vval.v_float; | |
| 2255 n2 = 0; | |
| 2256 } | |
| 2257 else | |
| 2258 #endif | |
| 2259 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2260 n2 = tv_get_number_chk(&var2, &error); |
| 1624 | 2261 if (error) |
| 2262 { | |
| 2263 clear_tv(rettv); | |
| 2264 clear_tv(&var2); | |
| 2265 return FAIL; | |
| 2266 } | |
| 2267 #ifdef FEAT_FLOAT | |
| 2268 if (rettv->v_type == VAR_FLOAT) | |
| 2269 f2 = n2; | |
| 2270 #endif | |
| 323 | 2271 } |
| 71 | 2272 clear_tv(rettv); |
| 1624 | 2273 |
| 2274 #ifdef FEAT_FLOAT | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2275 // If there is a float on either side the result is a float. |
| 1624 | 2276 if (rettv->v_type == VAR_FLOAT || var2.v_type == VAR_FLOAT) |
| 2277 { | |
| 2278 if (op == '+') | |
| 2279 f1 = f1 + f2; | |
| 2280 else | |
| 2281 f1 = f1 - f2; | |
| 2282 rettv->v_type = VAR_FLOAT; | |
| 2283 rettv->vval.v_float = f1; | |
| 2284 } | |
| 2285 else | |
| 2286 #endif | |
| 2287 { | |
| 2288 if (op == '+') | |
| 2289 n1 = n1 + n2; | |
| 2290 else | |
| 2291 n1 = n1 - n2; | |
| 2292 rettv->v_type = VAR_NUMBER; | |
| 2293 rettv->vval.v_number = n1; | |
| 2294 } | |
| 71 | 2295 } |
| 2296 clear_tv(&var2); | |
| 7 | 2297 } |
| 2298 } | |
| 2299 return OK; | |
| 2300 } | |
| 2301 | |
| 2302 /* | |
| 2303 * Handle fifth level expression: | |
| 2304 * * number multiplication | |
| 2305 * / number division | |
| 2306 * % number modulo | |
| 2307 * | |
| 2308 * "arg" must point to the first non-white of the expression. | |
| 2309 * "arg" is advanced to the next non-white after the recognized expression. | |
| 2310 * | |
| 2311 * Return OK or FAIL. | |
| 2312 */ | |
| 2313 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2314 eval6( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2315 char_u **arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2316 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2317 int evaluate, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2318 int want_string) // after "." operator |
| 7 | 2319 { |
| 137 | 2320 typval_T var2; |
| 7 | 2321 int op; |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
2322 varnumber_T n1, n2; |
| 1624 | 2323 #ifdef FEAT_FLOAT |
| 2324 int use_float = FALSE; | |
|
16405
840fa633ad64
patch 8.1.1207: some compilers give warning messages
Bram Moolenaar <Bram@vim.org>
parents:
16366
diff
changeset
|
2325 float_T f1 = 0, f2 = 0; |
| 1624 | 2326 #endif |
| 323 | 2327 int error = FALSE; |
| 7 | 2328 |
| 2329 /* | |
| 2330 * Get the first variable. | |
| 2331 */ | |
| 1655 | 2332 if (eval7(arg, rettv, evaluate, want_string) == FAIL) |
| 7 | 2333 return FAIL; |
| 2334 | |
| 2335 /* | |
| 2336 * Repeat computing, until no '*', '/' or '%' is following. | |
| 2337 */ | |
| 2338 for (;;) | |
| 2339 { | |
| 2340 op = **arg; | |
|
17387
2558f90045e5
patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents:
17377
diff
changeset
|
2341 if (op != '*' && op != '/' && op != '%') |
| 7 | 2342 break; |
| 2343 | |
| 2344 if (evaluate) | |
| 2345 { | |
| 1624 | 2346 #ifdef FEAT_FLOAT |
| 2347 if (rettv->v_type == VAR_FLOAT) | |
| 2348 { | |
| 2349 f1 = rettv->vval.v_float; | |
| 2350 use_float = TRUE; | |
| 2351 n1 = 0; | |
| 2352 } | |
| 2353 else | |
| 2354 #endif | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2355 n1 = tv_get_number_chk(rettv, &error); |
| 71 | 2356 clear_tv(rettv); |
| 323 | 2357 if (error) |
| 2358 return FAIL; | |
| 7 | 2359 } |
| 2360 else | |
| 2361 n1 = 0; | |
| 2362 | |
| 2363 /* | |
| 2364 * Get the second variable. | |
| 2365 */ | |
| 2366 *arg = skipwhite(*arg + 1); | |
| 1655 | 2367 if (eval7(arg, &var2, evaluate, FALSE) == FAIL) |
| 7 | 2368 return FAIL; |
| 2369 | |
| 2370 if (evaluate) | |
| 2371 { | |
| 1624 | 2372 #ifdef FEAT_FLOAT |
| 2373 if (var2.v_type == VAR_FLOAT) | |
| 2374 { | |
| 2375 if (!use_float) | |
| 2376 { | |
| 2377 f1 = n1; | |
| 2378 use_float = TRUE; | |
| 2379 } | |
| 2380 f2 = var2.vval.v_float; | |
| 2381 n2 = 0; | |
| 2382 } | |
| 2383 else | |
| 2384 #endif | |
| 2385 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
2386 n2 = tv_get_number_chk(&var2, &error); |
| 1624 | 2387 clear_tv(&var2); |
| 2388 if (error) | |
| 2389 return FAIL; | |
| 2390 #ifdef FEAT_FLOAT | |
| 2391 if (use_float) | |
| 2392 f2 = n2; | |
| 2393 #endif | |
| 2394 } | |
| 7 | 2395 |
| 2396 /* | |
| 2397 * Compute the result. | |
| 1624 | 2398 * When either side is a float the result is a float. |
| 7 | 2399 */ |
| 1624 | 2400 #ifdef FEAT_FLOAT |
| 2401 if (use_float) | |
| 2402 { | |
| 2403 if (op == '*') | |
| 2404 f1 = f1 * f2; | |
| 2405 else if (op == '/') | |
| 2406 { | |
|
2441
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2407 # ifdef VMS |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2408 // 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
|
2409 if (f2 == 0.0) |
|
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2410 { |
|
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2411 if (f1 == 0) |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2412 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
|
2413 else if (f1 < 0) |
|
2529
2aaa88366cbb
Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2513
diff
changeset
|
2414 f1 = -1 * __F_FLT_MAX; |
|
2441
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2415 else |
|
2529
2aaa88366cbb
Fix for float values on VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2513
diff
changeset
|
2416 f1 = __F_FLT_MAX; |
|
2441
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2417 } |
|
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2418 else |
|
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2419 f1 = f1 / f2; |
|
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2420 # else |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2421 // 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
|
2422 // by zero to result in "inf" and not a crash. |
| 1624 | 2423 f1 = f1 / f2; |
|
2441
620a42739426
Improvements for VMS. (Zoltan Arpadffy)
Bram Moolenaar <bram@vim.org>
parents:
2427
diff
changeset
|
2424 # endif |
| 1624 | 2425 } |
| 2426 else | |
| 2427 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
2428 emsg(_("E804: Cannot use '%' with Float")); |
| 1624 | 2429 return FAIL; |
| 2430 } | |
| 2431 rettv->v_type = VAR_FLOAT; | |
| 2432 rettv->vval.v_float = f1; | |
| 2433 } | |
| 2434 else | |
| 2435 #endif | |
| 2436 { | |
| 2437 if (op == '*') | |
| 2438 n1 = n1 * n2; | |
| 2439 else if (op == '/') | |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
2440 n1 = num_divide(n1, n2); |
| 1624 | 2441 else |
|
15969
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
2442 n1 = num_modulus(n1, n2); |
|
9cc42db77a54
patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents:
15904
diff
changeset
|
2443 |
| 1624 | 2444 rettv->v_type = VAR_NUMBER; |
| 2445 rettv->vval.v_number = n1; | |
| 2446 } | |
| 7 | 2447 } |
| 2448 } | |
| 2449 | |
| 2450 return OK; | |
| 2451 } | |
| 2452 | |
| 2453 /* | |
| 2454 * Handle sixth level expression: | |
| 2455 * number number constant | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2456 * 0zFFFFFFFF Blob constant |
| 1228 | 2457 * "string" string constant |
| 2458 * 'string' literal string constant | |
| 7 | 2459 * &option-name option value |
| 2460 * @r register contents | |
| 2461 * identifier variable value | |
| 2462 * function() function call | |
| 2463 * $VAR environment variable | |
| 2464 * (expression) nested expression | |
| 151 | 2465 * [expr, expr] List |
|
17368
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2466 * {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
|
2467 * #{key: val, key: val} Dictionary with literal keys |
| 7 | 2468 * |
| 2469 * Also handle: | |
| 2470 * ! in front logical NOT | |
| 2471 * - in front unary minus | |
| 2472 * + in front unary plus (ignored) | |
| 100 | 2473 * trailing [] subscript in String or List |
| 2474 * 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
|
2475 * trailing ->name() method call |
| 7 | 2476 * |
| 2477 * "arg" must point to the first non-white of the expression. | |
| 2478 * "arg" is advanced to the next non-white after the recognized expression. | |
| 2479 * | |
| 2480 * Return OK or FAIL. | |
| 2481 */ | |
| 2482 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2483 eval7( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2484 char_u **arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2485 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2486 int evaluate, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2487 int want_string UNUSED) // after "." operator |
| 7 | 2488 { |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
2489 varnumber_T n; |
| 7 | 2490 int len; |
| 2491 char_u *s; | |
| 2492 char_u *start_leader, *end_leader; | |
| 2493 int ret = OK; | |
| 2494 char_u *alias; | |
| 2495 | |
| 2496 /* | |
| 71 | 2497 * Initialise variable so that clear_tv() can't mistake this for a |
| 56 | 2498 * string and free a string that isn't there. |
| 7 | 2499 */ |
| 71 | 2500 rettv->v_type = VAR_UNKNOWN; |
| 7 | 2501 |
| 2502 /* | |
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
10000
diff
changeset
|
2503 * Skip '!', '-' and '+' characters. They are handled later. |
| 7 | 2504 */ |
| 2505 start_leader = *arg; | |
| 2506 while (**arg == '!' || **arg == '-' || **arg == '+') | |
| 2507 *arg = skipwhite(*arg + 1); | |
| 2508 end_leader = *arg; | |
| 2509 | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2510 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
|
2511 #ifdef FEAT_FLOAT |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2512 || 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
|
2513 #endif |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2514 )) |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2515 { |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2516 semsg(_(e_invexpr2), *arg); |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2517 ++*arg; |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2518 return FAIL; |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2519 } |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2520 |
| 7 | 2521 switch (**arg) |
| 2522 { | |
| 2523 /* | |
| 2524 * Number constant. | |
| 2525 */ | |
| 2526 case '0': | |
| 2527 case '1': | |
| 2528 case '2': | |
| 2529 case '3': | |
| 2530 case '4': | |
| 2531 case '5': | |
| 2532 case '6': | |
| 2533 case '7': | |
| 2534 case '8': | |
| 2535 case '9': | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2536 case '.': |
| 1624 | 2537 { |
| 2538 #ifdef FEAT_FLOAT | |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2539 char_u *p; |
| 1624 | 2540 int get_float = FALSE; |
| 2541 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2542 // We accept a float when the format matches |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2543 // "[0-9]\+\.[0-9]\+\([eE][+-]\?[0-9]\+\)\?". This is very |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2544 // strict to avoid backwards compatibility problems. |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2545 // With script version 2 and later the leading digit can be |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2546 // omitted. |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2547 // Don't look for a float after the "." operator, so that |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2548 // ":let vers = 1.2.3" doesn't fail. |
|
16223
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2549 if (**arg == '.') |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2550 p = *arg; |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2551 else |
|
abb67309c1ca
patch 8.1.1116: cannot enforce a Vim script style
Bram Moolenaar <Bram@vim.org>
parents:
16219
diff
changeset
|
2552 p = skipdigits(*arg + 1); |
| 1655 | 2553 if (!want_string && p[0] == '.' && vim_isdigit(p[1])) |
| 1624 | 2554 { |
| 2555 get_float = TRUE; | |
| 2556 p = skipdigits(p + 2); | |
| 2557 if (*p == 'e' || *p == 'E') | |
| 2558 { | |
| 2559 ++p; | |
| 2560 if (*p == '-' || *p == '+') | |
| 2561 ++p; | |
| 2562 if (!vim_isdigit(*p)) | |
| 2563 get_float = FALSE; | |
| 2564 else | |
| 2565 p = skipdigits(p + 1); | |
| 2566 } | |
| 2567 if (ASCII_ISALPHA(*p) || *p == '.') | |
| 2568 get_float = FALSE; | |
| 2569 } | |
| 2570 if (get_float) | |
| 2571 { | |
| 2572 float_T f; | |
| 2573 | |
| 2574 *arg += string2float(*arg, &f); | |
| 2575 if (evaluate) | |
| 2576 { | |
| 2577 rettv->v_type = VAR_FLOAT; | |
| 2578 rettv->vval.v_float = f; | |
| 2579 } | |
| 2580 } | |
| 2581 else | |
| 2582 #endif | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2583 if (**arg == '0' && ((*arg)[1] == 'z' || (*arg)[1] == 'Z')) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2584 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2585 char_u *bp; |
|
15458
0f8065d7d68c
patch 8.1.0737: compiler warning for uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents:
15456
diff
changeset
|
2586 blob_T *blob = NULL; // init for gcc |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2587 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2588 // Blob constant: 0z0123456789abcdef |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2589 if (evaluate) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2590 blob = blob_alloc(); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2591 for (bp = *arg + 2; vim_isxdigit(bp[0]); bp += 2) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2592 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2593 if (!vim_isxdigit(bp[1])) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2594 { |
|
15460
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
2595 if (blob != NULL) |
|
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
2596 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
2597 emsg(_("E973: Blob literal should have an even number of hex characters")); |
|
15460
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
2598 ga_clear(&blob->bv_ga); |
|
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
2599 VIM_CLEAR(blob); |
|
543cff56dd3f
patch 8.1.0738: using freed memory, for loop over blob leaks memory
Bram Moolenaar <Bram@vim.org>
parents:
15458
diff
changeset
|
2600 } |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2601 ret = FAIL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2602 break; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2603 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2604 if (blob != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2605 ga_append(&blob->bv_ga, |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2606 (hex2nr(*bp) << 4) + hex2nr(*(bp+1))); |
|
15515
99a4cc4782ac
patch 8.1.0765: string format of a Blob can't be parsed back
Bram Moolenaar <Bram@vim.org>
parents:
15496
diff
changeset
|
2607 if (bp[2] == '.' && vim_isxdigit(bp[3])) |
|
99a4cc4782ac
patch 8.1.0765: string format of a Blob can't be parsed back
Bram Moolenaar <Bram@vim.org>
parents:
15496
diff
changeset
|
2608 ++bp; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2609 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2610 if (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
|
2611 rettv_blob_set(rettv, blob); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2612 *arg = bp; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2613 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2614 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2615 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
2616 // decimal, hex or octal number |
|
18080
a6d218f99ff7
patch 8.1.2035: recognizing octal numbers is confusing
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2617 vim_str2nr(*arg, NULL, &len, current_sctx.sc_version >= 4 |
|
a6d218f99ff7
patch 8.1.2035: recognizing octal numbers is confusing
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2618 ? STR2NR_NO_OCT + STR2NR_QUOTE |
|
a6d218f99ff7
patch 8.1.2035: recognizing octal numbers is confusing
Bram Moolenaar <Bram@vim.org>
parents:
17966
diff
changeset
|
2619 : STR2NR_ALL, &n, NULL, 0, TRUE); |
|
16706
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2620 if (len == 0) |
|
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2621 { |
|
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2622 semsg(_(e_invexpr2), *arg); |
|
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2623 ret = FAIL; |
|
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2624 break; |
|
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
2625 } |
| 1624 | 2626 *arg += len; |
| 2627 if (evaluate) | |
| 2628 { | |
| 2629 rettv->v_type = VAR_NUMBER; | |
| 2630 rettv->vval.v_number = n; | |
| 2631 } | |
| 2632 } | |
| 2633 break; | |
| 2634 } | |
| 7 | 2635 |
| 2636 /* | |
| 2637 * String constant: "string". | |
| 2638 */ | |
| 71 | 2639 case '"': ret = get_string_tv(arg, rettv, evaluate); |
| 7 | 2640 break; |
| 2641 | |
| 2642 /* | |
| 100 | 2643 * Literal string constant: 'str''ing'. |
| 7 | 2644 */ |
| 71 | 2645 case '\'': ret = get_lit_string_tv(arg, rettv, evaluate); |
| 56 | 2646 break; |
| 2647 | |
| 2648 /* | |
| 2649 * List: [expr, expr] | |
| 2650 */ | |
| 71 | 2651 case '[': ret = get_list_tv(arg, rettv, evaluate); |
| 7 | 2652 break; |
| 2653 | |
| 2654 /* | |
|
17413
40417757dffd
patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents:
17387
diff
changeset
|
2655 * 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
|
2656 */ |
|
17413
40417757dffd
patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents:
17387
diff
changeset
|
2657 case '#': if ((*arg)[1] == '{') |
|
17368
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2658 { |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2659 ++*arg; |
|
19047
a3fce2763e83
patch 8.2.0084: complete item "user_data" can only be a string
Bram Moolenaar <Bram@vim.org>
parents:
19017
diff
changeset
|
2660 ret = eval_dict(arg, rettv, evaluate, TRUE); |
|
17368
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2661 } |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2662 else |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2663 ret = NOTDONE; |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2664 break; |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2665 |
|
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
17322
diff
changeset
|
2666 /* |
|
9527
e8b3db8e2d30
commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents:
9525
diff
changeset
|
2667 * 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
|
2668 * Dictionary: {'key': val, 'key': val} |
| 100 | 2669 */ |
|
9527
e8b3db8e2d30
commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents:
9525
diff
changeset
|
2670 case '{': ret = get_lambda_tv(arg, rettv, evaluate); |
|
e8b3db8e2d30
commit https://github.com/vim/vim/commit/069c1e7fa9f45a665064f7f2c17da84d6a48f544
Christian Brabandt <cb@256bit.org>
parents:
9525
diff
changeset
|
2671 if (ret == NOTDONE) |
|
19047
a3fce2763e83
patch 8.2.0084: complete item "user_data" can only be a string
Bram Moolenaar <Bram@vim.org>
parents:
19017
diff
changeset
|
2672 ret = eval_dict(arg, rettv, evaluate, FALSE); |
| 100 | 2673 break; |
| 2674 | |
| 2675 /* | |
| 104 | 2676 * Option value: &name |
| 7 | 2677 */ |
| 104 | 2678 case '&': ret = get_option_tv(arg, rettv, evaluate); |
| 7 | 2679 break; |
| 2680 | |
| 2681 /* | |
| 2682 * Environment variable: $VAR. | |
| 2683 */ | |
| 71 | 2684 case '$': ret = get_env_tv(arg, rettv, evaluate); |
| 7 | 2685 break; |
| 2686 | |
| 2687 /* | |
| 2688 * Register contents: @r. | |
| 2689 */ | |
| 2690 case '@': ++*arg; | |
| 2691 if (evaluate) | |
| 2692 { | |
| 71 | 2693 rettv->v_type = VAR_STRING; |
| 5796 | 2694 rettv->vval.v_string = get_reg_contents(**arg, |
| 2695 GREG_EXPR_SRC); | |
| 7 | 2696 } |
| 2697 if (**arg != NUL) | |
| 2698 ++*arg; | |
| 2699 break; | |
| 2700 | |
| 2701 /* | |
| 2702 * nested expression: (expression). | |
| 2703 */ | |
| 2704 case '(': *arg = skipwhite(*arg + 1); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2705 ret = eval1(arg, rettv, evaluate); // recursive! |
| 7 | 2706 if (**arg == ')') |
| 2707 ++*arg; | |
| 2708 else if (ret == OK) | |
| 2709 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
2710 emsg(_("E110: Missing ')'")); |
| 71 | 2711 clear_tv(rettv); |
| 7 | 2712 ret = FAIL; |
| 2713 } | |
| 2714 break; | |
| 2715 | |
| 100 | 2716 default: ret = NOTDONE; |
| 2717 break; | |
| 2718 } | |
| 2719 | |
| 2720 if (ret == NOTDONE) | |
| 2721 { | |
| 2722 /* | |
| 2723 * Must be a variable or function name. | |
| 2724 * Can also be a curly-braces kind of name: {expr}. | |
| 2725 */ | |
| 2726 s = *arg; | |
| 159 | 2727 len = get_name_len(arg, &alias, evaluate, TRUE); |
| 100 | 2728 if (alias != NULL) |
| 2729 s = alias; | |
| 2730 | |
| 159 | 2731 if (len <= 0) |
| 100 | 2732 ret = FAIL; |
| 2733 else | |
| 2734 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2735 if (**arg == '(') // recursive! |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2736 ret = eval_func(arg, s, len, rettv, evaluate, NULL); |
| 100 | 2737 else if (evaluate) |
| 6791 | 2738 ret = get_var_tv(s, len, rettv, NULL, TRUE, FALSE); |
| 117 | 2739 else |
|
9686
8c2553beff0f
commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
2740 { |
|
8c2553beff0f
commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
2741 check_vars(s, len); |
| 117 | 2742 ret = OK; |
|
9686
8c2553beff0f
commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
2743 } |
| 100 | 2744 } |
| 2690 | 2745 vim_free(alias); |
| 100 | 2746 } |
| 2747 | |
| 7 | 2748 *arg = skipwhite(*arg); |
| 2749 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2750 // 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
|
2751 // expr(expr), expr->name(expr) |
| 159 | 2752 if (ret == OK) |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2753 ret = handle_subscript(arg, rettv, evaluate, TRUE, |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2754 start_leader, &end_leader); |
| 7 | 2755 |
| 2756 /* | |
| 2757 * Apply logical NOT and unary '-', from right to left, ignore '+'. | |
| 2758 */ | |
| 2759 if (ret == OK && evaluate && end_leader > start_leader) | |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2760 ret = eval7_leader(rettv, start_leader, &end_leader); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2761 return ret; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2762 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2763 |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2764 /* |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2765 * Apply the leading "!" and "-" before an eval7 expression to "rettv". |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2766 * 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
|
2767 */ |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2768 static int |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2769 eval7_leader(typval_T *rettv, char_u *start_leader, char_u **end_leaderp) |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2770 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2771 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
|
2772 int ret = OK; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2773 int error = FALSE; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2774 varnumber_T val = 0; |
| 1624 | 2775 #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
|
2776 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
|
2777 |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2778 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
|
2779 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
|
2780 else |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2781 #endif |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2782 val = tv_get_number_chk(rettv, &error); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2783 if (error) |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2784 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2785 clear_tv(rettv); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2786 ret = FAIL; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2787 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2788 else |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2789 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2790 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
|
2791 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2792 --end_leader; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2793 if (*end_leader == '!') |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2794 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2795 #ifdef FEAT_FLOAT |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2796 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
|
2797 f = !f; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2798 else |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2799 #endif |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2800 val = !val; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2801 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2802 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
|
2803 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2804 #ifdef FEAT_FLOAT |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2805 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
|
2806 f = -f; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2807 else |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2808 #endif |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2809 val = -val; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2810 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2811 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2812 #ifdef FEAT_FLOAT |
| 1624 | 2813 if (rettv->v_type == VAR_FLOAT) |
| 323 | 2814 { |
| 2815 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
|
2816 rettv->vval.v_float = f; |
| 323 | 2817 } |
| 2818 else | |
| 1624 | 2819 #endif |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2820 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2821 clear_tv(rettv); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2822 rettv->v_type = VAR_NUMBER; |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2823 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
|
2824 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2825 } |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
2826 *end_leaderp = end_leader; |
| 7 | 2827 return ret; |
| 2828 } | |
| 2829 | |
| 2830 /* | |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2831 * 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
|
2832 */ |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2833 static int |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2834 call_func_rettv( |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2835 char_u **arg, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2836 typval_T *rettv, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2837 int evaluate, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2838 dict_T *selfdict, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2839 typval_T *basetv) |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2840 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2841 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
|
2842 funcexe_T funcexe; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2843 typval_T functv; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2844 char_u *s; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2845 int ret; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2846 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2847 // 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
|
2848 if (evaluate) |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2849 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2850 functv = *rettv; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2851 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
|
2852 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2853 // 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
|
2854 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
|
2855 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2856 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
|
2857 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
|
2858 } |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2859 else |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2860 s = functv.vval.v_string; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2861 } |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2862 else |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2863 s = (char_u *)""; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2864 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2865 vim_memset(&funcexe, 0, sizeof(funcexe)); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2866 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
|
2867 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
|
2868 funcexe.evaluate = evaluate; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2869 funcexe.partial = pt; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2870 funcexe.selfdict = selfdict; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2871 funcexe.basetv = basetv; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2872 ret = get_func_tv(s, -1, rettv, arg, &funcexe); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2873 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2874 // 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
|
2875 // 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
|
2876 if (evaluate) |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2877 clear_tv(&functv); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2878 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2879 return ret; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2880 } |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2881 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2882 /* |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2883 * Evaluate "->method()". |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2884 * "*arg" points to the '-'. |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2885 * 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
|
2886 */ |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2887 static int |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2888 eval_lambda( |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2889 char_u **arg, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2890 typval_T *rettv, |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2891 int evaluate, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2892 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
|
2893 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2894 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
|
2895 int ret; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2896 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2897 // Skip over the ->. |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2898 *arg += 2; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2899 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
|
2900 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2901 ret = get_lambda_tv(arg, rettv, evaluate); |
|
18851
3cf9529b3a4a
patch 8.1.2412: crash when evaluating expression with error
Bram Moolenaar <Bram@vim.org>
parents:
18777
diff
changeset
|
2902 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
|
2903 return FAIL; |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2904 else if (**arg != '(') |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2905 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2906 if (verbose) |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2907 { |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2908 if (*skipwhite(*arg) == '(') |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2909 semsg(_(e_nowhitespace)); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2910 else |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2911 semsg(_(e_missingparen), "lambda"); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2912 } |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2913 clear_tv(rettv); |
|
18225
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2914 ret = FAIL; |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2915 } |
|
18225
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2916 else |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2917 ret = call_func_rettv(arg, rettv, evaluate, NULL, &base); |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2918 |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2919 // 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
|
2920 // 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
|
2921 if (evaluate) |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2922 clear_tv(&base); |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2923 |
|
6c3a8312486d
patch 8.1.2107: various memory leaks reported by asan
Bram Moolenaar <Bram@vim.org>
parents:
18080
diff
changeset
|
2924 return ret; |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2925 } |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2926 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2927 /* |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2928 * Evaluate "->method()". |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2929 * "*arg" points to the '-'. |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2930 * 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
|
2931 */ |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2932 static int |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2933 eval_method( |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2934 char_u **arg, |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2935 typval_T *rettv, |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2936 int evaluate, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2937 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
|
2938 { |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2939 char_u *name; |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2940 long len; |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2941 char_u *alias; |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2942 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
|
2943 int ret; |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2944 |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2945 // Skip over the ->. |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2946 *arg += 2; |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2947 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
|
2948 |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2949 name = *arg; |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2950 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
|
2951 if (alias != NULL) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2952 name = alias; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2953 |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2954 if (len <= 0) |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2955 { |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2956 if (verbose) |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2957 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
|
2958 ret = FAIL; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2959 } |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2960 else |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2961 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2962 if (**arg != '(') |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2963 { |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2964 if (verbose) |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2965 semsg(_(e_missingparen), name); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2966 ret = FAIL; |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2967 } |
|
17661
da7890e3359b
patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents:
17646
diff
changeset
|
2968 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
|
2969 { |
|
da7890e3359b
patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents:
17646
diff
changeset
|
2970 if (verbose) |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2971 semsg(_(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
|
2972 ret = FAIL; |
|
da7890e3359b
patch 8.1.1828: not strict enough checking syntax of method invocation
Bram Moolenaar <Bram@vim.org>
parents:
17646
diff
changeset
|
2973 } |
|
17646
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2974 else |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2975 ret = eval_func(arg, name, len, rettv, evaluate, &base); |
|
e5397617d6ca
patch 8.1.1820: using expr->FuncRef() does not work
Bram Moolenaar <Bram@vim.org>
parents:
17638
diff
changeset
|
2976 } |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2977 |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
2978 // 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
|
2979 // 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
|
2980 if (evaluate) |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2981 clear_tv(&base); |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2982 |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2983 return ret; |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2984 } |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2985 |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
2986 /* |
| 829 | 2987 * Evaluate an "[expr]" or "[expr:expr]" index. Also "dict.key". |
| 2988 * "*arg" points to the '[' or '.'. | |
| 56 | 2989 * Returns FAIL or OK. "*arg" is advanced to after the ']'. |
| 2990 */ | |
| 2991 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2992 eval_index( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2993 char_u **arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2994 typval_T *rettv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
2995 int evaluate, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2996 int verbose) // give error messages |
| 56 | 2997 { |
| 2998 int empty1 = FALSE, empty2 = FALSE; | |
| 137 | 2999 typval_T var1, var2; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3000 long i; |
| 56 | 3001 long n1, n2 = 0; |
| 100 | 3002 long len = -1; |
| 3003 int range = FALSE; | |
| 56 | 3004 char_u *s; |
| 100 | 3005 char_u *key = NULL; |
| 56 | 3006 |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3007 switch (rettv->v_type) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3008 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3009 case VAR_FUNC: |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
3010 case VAR_PARTIAL: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3011 if (verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3012 emsg(_("E695: Cannot index a Funcref")); |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3013 return FAIL; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3014 case VAR_FLOAT: |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3015 #ifdef FEAT_FLOAT |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3016 if (verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3017 emsg(_(e_float_as_string)); |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3018 return FAIL; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3019 #endif |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
3020 case VAR_BOOL: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3021 case VAR_SPECIAL: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3022 case VAR_JOB: |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
3023 case VAR_CHANNEL: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3024 if (verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3025 emsg(_("E909: Cannot index a special variable")); |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3026 return FAIL; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3027 case VAR_UNKNOWN: |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3028 if (evaluate) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3029 return FAIL; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3030 // FALLTHROUGH |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3031 |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3032 case VAR_STRING: |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3033 case VAR_NUMBER: |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3034 case VAR_LIST: |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3035 case VAR_DICT: |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3036 case VAR_BLOB: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3037 break; |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3038 } |
| 56 | 3039 |
|
7046
fd409a0800fd
commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents:
7042
diff
changeset
|
3040 init_tv(&var1); |
|
fd409a0800fd
commit https://github.com/vim/vim/commit/0a38dd29d6f65aa601162542a5ab0ba7f308fc8e
Christian Brabandt <cb@256bit.org>
parents:
7042
diff
changeset
|
3041 init_tv(&var2); |
| 100 | 3042 if (**arg == '.') |
| 3043 { | |
| 3044 /* | |
| 3045 * dict.name | |
| 3046 */ | |
| 3047 key = *arg + 1; | |
| 3048 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len) | |
| 3049 ; | |
| 3050 if (len == 0) | |
| 3051 return FAIL; | |
| 3052 *arg = skipwhite(key + len); | |
| 3053 } | |
| 3054 else | |
| 3055 { | |
| 3056 /* | |
| 3057 * something[idx] | |
| 3058 * | |
| 3059 * Get the (first) variable from inside the []. | |
| 3060 */ | |
| 56 | 3061 *arg = skipwhite(*arg + 1); |
| 100 | 3062 if (**arg == ':') |
| 3063 empty1 = TRUE; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3064 else if (eval1(arg, &var1, evaluate) == FAIL) // recursive! |
| 56 | 3065 return FAIL; |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3066 else if (evaluate && tv_get_string_chk(&var1) == NULL) |
| 323 | 3067 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3068 // not a number or string |
| 323 | 3069 clear_tv(&var1); |
| 3070 return FAIL; | |
| 3071 } | |
| 100 | 3072 |
| 3073 /* | |
| 3074 * Get the second variable from inside the [:]. | |
| 3075 */ | |
| 3076 if (**arg == ':') | |
| 3077 { | |
| 3078 range = TRUE; | |
| 3079 *arg = skipwhite(*arg + 1); | |
| 3080 if (**arg == ']') | |
| 3081 empty2 = TRUE; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3082 else if (eval1(arg, &var2, evaluate) == FAIL) // recursive! |
| 100 | 3083 { |
| 323 | 3084 if (!empty1) |
| 3085 clear_tv(&var1); | |
| 3086 return FAIL; | |
| 3087 } | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3088 else if (evaluate && tv_get_string_chk(&var2) == NULL) |
| 323 | 3089 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3090 // not a number or string |
| 323 | 3091 if (!empty1) |
| 3092 clear_tv(&var1); | |
| 3093 clear_tv(&var2); | |
| 100 | 3094 return FAIL; |
| 3095 } | |
| 3096 } | |
| 3097 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3098 // Check for the ']'. |
| 100 | 3099 if (**arg != ']') |
| 3100 { | |
| 159 | 3101 if (verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3102 emsg(_(e_missbrac)); |
| 100 | 3103 clear_tv(&var1); |
| 3104 if (range) | |
| 3105 clear_tv(&var2); | |
| 3106 return FAIL; | |
| 3107 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3108 *arg = skipwhite(*arg + 1); // skip the ']' |
| 56 | 3109 } |
| 3110 | |
| 3111 if (evaluate) | |
| 3112 { | |
| 100 | 3113 n1 = 0; |
| 3114 if (!empty1 && rettv->v_type != VAR_DICT) | |
| 56 | 3115 { |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3116 n1 = tv_get_number(&var1); |
| 71 | 3117 clear_tv(&var1); |
| 56 | 3118 } |
| 3119 if (range) | |
| 3120 { | |
| 3121 if (empty2) | |
| 3122 n2 = -1; | |
| 3123 else | |
| 3124 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3125 n2 = tv_get_number(&var2); |
| 71 | 3126 clear_tv(&var2); |
| 3127 } | |
| 3128 } | |
| 3129 | |
| 3130 switch (rettv->v_type) | |
| 56 | 3131 { |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3132 case VAR_UNKNOWN: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3133 case VAR_FUNC: |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
3134 case VAR_PARTIAL: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3135 case VAR_FLOAT: |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
3136 case VAR_BOOL: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3137 case VAR_SPECIAL: |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3138 case VAR_JOB: |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
3139 case VAR_CHANNEL: |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3140 break; // not evaluating, skipping over subscript |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3141 |
| 56 | 3142 case VAR_NUMBER: |
| 3143 case VAR_STRING: | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3144 s = tv_get_string(rettv); |
| 56 | 3145 len = (long)STRLEN(s); |
| 3146 if (range) | |
| 3147 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3148 // 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
|
3149 // are out of range the result is empty. |
| 56 | 3150 if (n1 < 0) |
| 3151 { | |
| 3152 n1 = len + n1; | |
| 3153 if (n1 < 0) | |
| 3154 n1 = 0; | |
| 3155 } | |
| 3156 if (n2 < 0) | |
| 3157 n2 = len + n2; | |
| 3158 else if (n2 >= len) | |
| 3159 n2 = len; | |
| 3160 if (n1 >= len || n2 < 0 || n1 > n2) | |
| 3161 s = NULL; | |
| 3162 else | |
| 3163 s = vim_strnsave(s + n1, (int)(n2 - n1 + 1)); | |
| 3164 } | |
| 3165 else | |
| 3166 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3167 // 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
|
3168 // 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
|
3169 // result is empty. |
| 56 | 3170 if (n1 >= len || n1 < 0) |
| 3171 s = NULL; | |
| 3172 else | |
| 3173 s = vim_strnsave(s + n1, 1); | |
| 3174 } | |
| 71 | 3175 clear_tv(rettv); |
| 3176 rettv->v_type = VAR_STRING; | |
| 3177 rettv->vval.v_string = s; | |
| 56 | 3178 break; |
| 3179 | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3180 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3181 len = blob_len(rettv->vval.v_blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3182 if (range) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3183 { |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
3184 // The resulting variable is a sub-blob. If the indexes |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3185 // are out of range the result is empty. |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3186 if (n1 < 0) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3187 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3188 n1 = len + n1; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3189 if (n1 < 0) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3190 n1 = 0; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3191 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3192 if (n2 < 0) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3193 n2 = len + n2; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3194 else if (n2 >= len) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3195 n2 = len - 1; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3196 if (n1 >= len || n2 < 0 || n1 > n2) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3197 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3198 clear_tv(rettv); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3199 rettv->v_type = VAR_BLOB; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3200 rettv->vval.v_blob = NULL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3201 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3202 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3203 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3204 blob_T *blob = blob_alloc(); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3205 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3206 if (blob != NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3207 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3208 if (ga_grow(&blob->bv_ga, n2 - n1 + 1) == FAIL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3209 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3210 blob_free(blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3211 return FAIL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3212 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3213 blob->bv_ga.ga_len = n2 - n1 + 1; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3214 for (i = n1; i <= n2; i++) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3215 blob_set(blob, i - n1, |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3216 blob_get(rettv->vval.v_blob, i)); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3217 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3218 clear_tv(rettv); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3219 rettv_blob_set(rettv, blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3220 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3221 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3222 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3223 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3224 { |
|
15589
44ea60ca593b
patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents:
15581
diff
changeset
|
3225 // The resulting variable is a byte value. |
|
44ea60ca593b
patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents:
15581
diff
changeset
|
3226 // If the index is too big or negative that is an error. |
|
44ea60ca593b
patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents:
15581
diff
changeset
|
3227 if (n1 < 0) |
|
44ea60ca593b
patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents:
15581
diff
changeset
|
3228 n1 = len + n1; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3229 if (n1 < len && n1 >= 0) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3230 { |
|
15589
44ea60ca593b
patch 8.1.0802: negative index doesn't work for Blob
Bram Moolenaar <Bram@vim.org>
parents:
15581
diff
changeset
|
3231 int v = blob_get(rettv->vval.v_blob, n1); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3232 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3233 clear_tv(rettv); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3234 rettv->v_type = VAR_NUMBER; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3235 rettv->vval.v_number = v; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3236 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3237 else |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3238 semsg(_(e_blobidx), n1); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3239 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3240 break; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3241 |
| 56 | 3242 case VAR_LIST: |
| 71 | 3243 len = list_len(rettv->vval.v_list); |
| 56 | 3244 if (n1 < 0) |
| 3245 n1 = len + n1; | |
| 3246 if (!empty1 && (n1 < 0 || n1 >= len)) | |
| 3247 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3248 // For a range we allow invalid values and return an empty |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3249 // list. A list index out of range is an error. |
| 842 | 3250 if (!range) |
| 3251 { | |
| 3252 if (verbose) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3253 semsg(_(e_listidx), n1); |
| 842 | 3254 return FAIL; |
| 3255 } | |
| 3256 n1 = len; | |
| 56 | 3257 } |
| 3258 if (range) | |
| 3259 { | |
| 137 | 3260 list_T *l; |
| 3261 listitem_T *item; | |
| 56 | 3262 |
| 3263 if (n2 < 0) | |
| 3264 n2 = len + n2; | |
| 829 | 3265 else if (n2 >= len) |
| 3266 n2 = len - 1; | |
| 3267 if (!empty2 && (n2 < 0 || n2 + 1 < n1)) | |
| 842 | 3268 n2 = -1; |
| 56 | 3269 l = list_alloc(); |
| 3270 if (l == NULL) | |
| 3271 return FAIL; | |
| 71 | 3272 for (item = list_find(rettv->vval.v_list, n1); |
| 56 | 3273 n1 <= n2; ++n1) |
| 3274 { | |
| 3275 if (list_append_tv(l, &item->li_tv) == FAIL) | |
| 3276 { | |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
3277 list_free(l); |
| 56 | 3278 return FAIL; |
| 3279 } | |
| 3280 item = item->li_next; | |
| 3281 } | |
| 71 | 3282 clear_tv(rettv); |
|
11418
162bcd0debd7
patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents:
11412
diff
changeset
|
3283 rettv_list_set(rettv, l); |
| 56 | 3284 } |
| 3285 else | |
| 3286 { | |
| 842 | 3287 copy_tv(&list_find(rettv->vval.v_list, n1)->li_tv, &var1); |
| 71 | 3288 clear_tv(rettv); |
| 3289 *rettv = var1; | |
| 56 | 3290 } |
| 3291 break; | |
| 100 | 3292 |
| 3293 case VAR_DICT: | |
| 3294 if (range) | |
| 3295 { | |
| 159 | 3296 if (verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3297 emsg(_(e_dictrange)); |
| 100 | 3298 if (len == -1) |
| 3299 clear_tv(&var1); | |
| 3300 return FAIL; | |
| 3301 } | |
| 3302 { | |
| 137 | 3303 dictitem_T *item; |
| 100 | 3304 |
| 3305 if (len == -1) | |
| 3306 { | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3307 key = tv_get_string_chk(&var1); |
|
8839
9fa567d13551
commit https://github.com/vim/vim/commit/0921ecff1c5a74541bad6c073e8ade32247403d8
Christian Brabandt <cb@256bit.org>
parents:
8831
diff
changeset
|
3308 if (key == NULL) |
| 100 | 3309 { |
| 3310 clear_tv(&var1); | |
| 3311 return FAIL; | |
| 3312 } | |
| 3313 } | |
| 3314 | |
| 121 | 3315 item = dict_find(rettv->vval.v_dict, key, (int)len); |
| 100 | 3316 |
| 159 | 3317 if (item == NULL && verbose) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3318 semsg(_(e_dictkey), key); |
| 100 | 3319 if (len == -1) |
| 3320 clear_tv(&var1); | |
| 3321 if (item == NULL) | |
| 3322 return FAIL; | |
| 3323 | |
| 3324 copy_tv(&item->di_tv, &var1); | |
| 3325 clear_tv(rettv); | |
| 3326 *rettv = var1; | |
| 3327 } | |
| 3328 break; | |
| 3329 } | |
| 3330 } | |
| 3331 | |
| 56 | 3332 return OK; |
| 3333 } | |
| 3334 | |
| 3335 /* | |
| 7 | 3336 * Get an option value. |
| 3337 * "arg" points to the '&' or '+' before the option name. | |
| 3338 * "arg" is advanced to character after the option name. | |
| 3339 * Return OK or FAIL. | |
| 3340 */ | |
|
9571
5eaa708ab50d
commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents:
9562
diff
changeset
|
3341 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3342 get_option_tv( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3343 char_u **arg, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3344 typval_T *rettv, // when NULL, only check if option exists |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3345 int evaluate) |
| 7 | 3346 { |
| 3347 char_u *option_end; | |
| 3348 long numval; | |
| 3349 char_u *stringval; | |
| 3350 int opt_type; | |
| 3351 int c; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3352 int working = (**arg == '+'); // has("+option") |
| 7 | 3353 int ret = OK; |
| 3354 int opt_flags; | |
| 3355 | |
| 3356 /* | |
| 3357 * Isolate the option name and find its value. | |
| 3358 */ | |
| 3359 option_end = find_option_end(arg, &opt_flags); | |
| 3360 if (option_end == NULL) | |
| 3361 { | |
| 71 | 3362 if (rettv != NULL) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3363 semsg(_("E112: Option name missing: %s"), *arg); |
| 7 | 3364 return FAIL; |
| 3365 } | |
| 3366 | |
| 3367 if (!evaluate) | |
| 3368 { | |
| 3369 *arg = option_end; | |
| 3370 return OK; | |
| 3371 } | |
| 3372 | |
| 3373 c = *option_end; | |
| 3374 *option_end = NUL; | |
| 3375 opt_type = get_option_value(*arg, &numval, | |
| 71 | 3376 rettv == NULL ? NULL : &stringval, opt_flags); |
| 7 | 3377 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3378 if (opt_type == -3) // invalid name |
| 7 | 3379 { |
| 71 | 3380 if (rettv != NULL) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3381 semsg(_("E113: Unknown option: %s"), *arg); |
| 7 | 3382 ret = FAIL; |
| 3383 } | |
| 71 | 3384 else if (rettv != NULL) |
| 7 | 3385 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3386 if (opt_type == -2) // hidden string option |
| 7 | 3387 { |
| 71 | 3388 rettv->v_type = VAR_STRING; |
| 3389 rettv->vval.v_string = NULL; | |
| 7 | 3390 } |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3391 else if (opt_type == -1) // hidden number option |
| 7 | 3392 { |
| 71 | 3393 rettv->v_type = VAR_NUMBER; |
| 3394 rettv->vval.v_number = 0; | |
| 7 | 3395 } |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3396 else if (opt_type == 1) // number option |
| 7 | 3397 { |
| 71 | 3398 rettv->v_type = VAR_NUMBER; |
| 3399 rettv->vval.v_number = numval; | |
| 7 | 3400 } |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3401 else // string option |
| 7 | 3402 { |
| 71 | 3403 rettv->v_type = VAR_STRING; |
| 3404 rettv->vval.v_string = stringval; | |
| 7 | 3405 } |
| 3406 } | |
| 3407 else if (working && (opt_type == -2 || opt_type == -1)) | |
| 3408 ret = FAIL; | |
| 3409 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3410 *option_end = c; // put back for error messages |
| 7 | 3411 *arg = option_end; |
| 3412 | |
| 3413 return ret; | |
| 3414 } | |
| 3415 | |
| 3416 /* | |
| 3417 * Allocate a variable for a string constant. | |
| 3418 * Return OK or FAIL. | |
| 3419 */ | |
| 3420 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3421 get_string_tv(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 3422 { |
| 3423 char_u *p; | |
| 3424 char_u *name; | |
| 3425 int extra = 0; | |
| 3426 | |
| 3427 /* | |
| 3428 * Find the end of the string, skipping backslashed characters. | |
| 3429 */ | |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10964
diff
changeset
|
3430 for (p = *arg + 1; *p != NUL && *p != '"'; MB_PTR_ADV(p)) |
| 7 | 3431 { |
| 3432 if (*p == '\\' && p[1] != NUL) | |
| 3433 { | |
| 3434 ++p; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3435 // A "\<x>" form occupies at least 4 characters, and produces up |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3436 // to 6 characters: reserve space for 2 extra |
| 7 | 3437 if (*p == '<') |
| 3438 extra += 2; | |
| 3439 } | |
| 3440 } | |
| 3441 | |
| 3442 if (*p != '"') | |
| 3443 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3444 semsg(_("E114: Missing quote: %s"), *arg); |
| 7 | 3445 return FAIL; |
| 3446 } | |
| 3447 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3448 // If only parsing, set *arg and return here |
| 7 | 3449 if (!evaluate) |
| 3450 { | |
| 3451 *arg = p + 1; | |
| 3452 return OK; | |
| 3453 } | |
| 3454 | |
| 3455 /* | |
| 3456 * Copy the string into allocated memory, handling backslashed | |
| 3457 * characters. | |
| 3458 */ | |
|
16764
ef00b6bc186b
patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
16706
diff
changeset
|
3459 name = alloc(p - *arg + extra); |
| 7 | 3460 if (name == NULL) |
| 3461 return FAIL; | |
| 100 | 3462 rettv->v_type = VAR_STRING; |
| 3463 rettv->vval.v_string = name; | |
| 3464 | |
| 3465 for (p = *arg + 1; *p != NUL && *p != '"'; ) | |
| 7 | 3466 { |
| 3467 if (*p == '\\') | |
| 3468 { | |
| 3469 switch (*++p) | |
| 3470 { | |
| 100 | 3471 case 'b': *name++ = BS; ++p; break; |
| 3472 case 'e': *name++ = ESC; ++p; break; | |
| 3473 case 'f': *name++ = FF; ++p; break; | |
| 3474 case 'n': *name++ = NL; ++p; break; | |
| 3475 case 'r': *name++ = CAR; ++p; break; | |
| 3476 case 't': *name++ = TAB; ++p; break; | |
| 7 | 3477 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3478 case 'X': // hex: "\x1", "\x12" |
| 7 | 3479 case 'x': |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3480 case 'u': // Unicode: "\u0023" |
| 7 | 3481 case 'U': |
| 3482 if (vim_isxdigit(p[1])) | |
| 3483 { | |
| 3484 int n, nr; | |
| 3485 int c = toupper(*p); | |
| 3486 | |
| 3487 if (c == 'X') | |
| 3488 n = 2; | |
| 6836 | 3489 else if (*p == 'u') |
| 3490 n = 4; | |
| 7 | 3491 else |
| 6836 | 3492 n = 8; |
| 7 | 3493 nr = 0; |
| 3494 while (--n >= 0 && vim_isxdigit(p[1])) | |
| 3495 { | |
| 3496 ++p; | |
| 3497 nr = (nr << 4) + hex2nr(*p); | |
| 3498 } | |
| 100 | 3499 ++p; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3500 // For "\u" store the number according to |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3501 // 'encoding'. |
| 7 | 3502 if (c != 'X') |
| 100 | 3503 name += (*mb_char2bytes)(nr, name); |
| 7 | 3504 else |
| 100 | 3505 *name++ = nr; |
| 7 | 3506 } |
| 3507 break; | |
| 3508 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3509 // octal: "\1", "\12", "\123" |
| 7 | 3510 case '0': |
| 3511 case '1': | |
| 3512 case '2': | |
| 3513 case '3': | |
| 3514 case '4': | |
| 3515 case '5': | |
| 3516 case '6': | |
| 100 | 3517 case '7': *name = *p++ - '0'; |
| 3518 if (*p >= '0' && *p <= '7') | |
| 7 | 3519 { |
| 100 | 3520 *name = (*name << 3) + *p++ - '0'; |
| 3521 if (*p >= '0' && *p <= '7') | |
| 3522 *name = (*name << 3) + *p++ - '0'; | |
| 7 | 3523 } |
| 100 | 3524 ++name; |
| 7 | 3525 break; |
| 3526 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3527 // Special key, e.g.: "\<C-W>" |
|
18301
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
3528 case '<': extra = trans_special(&p, name, TRUE, TRUE, |
|
506bf60a30a0
patch 8.1.2145: cannot map <C-H> when modifyOtherKeys is enabled
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
3529 TRUE, NULL); |
| 7 | 3530 if (extra != 0) |
| 3531 { | |
| 100 | 3532 name += extra; |
| 7 | 3533 break; |
| 3534 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3535 // FALLTHROUGH |
| 7 | 3536 |
| 100 | 3537 default: MB_COPY_CHAR(p, name); |
| 7 | 3538 break; |
| 3539 } | |
| 3540 } | |
| 3541 else | |
| 100 | 3542 MB_COPY_CHAR(p, name); |
| 3543 | |
| 3544 } | |
| 3545 *name = NUL; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3546 if (*p != NUL) // just in case |
|
9965
b329e3ca0dcb
commit https://github.com/vim/vim/commit/db249f26edf7a5f88d1f4468d08ec5b84f5ab7ad
Christian Brabandt <cb@256bit.org>
parents:
9915
diff
changeset
|
3547 ++p; |
|
b329e3ca0dcb
commit https://github.com/vim/vim/commit/db249f26edf7a5f88d1f4468d08ec5b84f5ab7ad
Christian Brabandt <cb@256bit.org>
parents:
9915
diff
changeset
|
3548 *arg = p; |
| 7 | 3549 |
| 3550 return OK; | |
| 3551 } | |
| 3552 | |
| 3553 /* | |
| 100 | 3554 * Allocate a variable for a 'str''ing' constant. |
| 7 | 3555 * Return OK or FAIL. |
| 3556 */ | |
| 3557 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3558 get_lit_string_tv(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 3559 { |
| 3560 char_u *p; | |
| 100 | 3561 char_u *str; |
| 3562 int reduce = 0; | |
| 7 | 3563 |
| 3564 /* | |
| 100 | 3565 * Find the end of the string, skipping ''. |
| 7 | 3566 */ |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10964
diff
changeset
|
3567 for (p = *arg + 1; *p != NUL; MB_PTR_ADV(p)) |
| 100 | 3568 { |
| 3569 if (*p == '\'') | |
| 3570 { | |
| 3571 if (p[1] != '\'') | |
| 3572 break; | |
| 3573 ++reduce; | |
| 3574 ++p; | |
| 3575 } | |
| 3576 } | |
| 3577 | |
| 3578 if (*p != '\'') | |
| 7 | 3579 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
3580 semsg(_("E115: Missing quote: %s"), *arg); |
| 7 | 3581 return FAIL; |
| 3582 } | |
| 3583 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3584 // If only parsing return after setting "*arg" |
| 97 | 3585 if (!evaluate) |
| 3586 { | |
| 3587 *arg = p + 1; | |
| 3588 return OK; | |
| 3589 } | |
| 3590 | |
| 3591 /* | |
| 100 | 3592 * Copy the string into allocated memory, handling '' to ' reduction. |
| 97 | 3593 */ |
|
16764
ef00b6bc186b
patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
16706
diff
changeset
|
3594 str = alloc((p - *arg) - reduce); |
| 97 | 3595 if (str == NULL) |
| 3596 return FAIL; | |
| 100 | 3597 rettv->v_type = VAR_STRING; |
| 3598 rettv->vval.v_string = str; | |
| 3599 | |
| 3600 for (p = *arg + 1; *p != NUL; ) | |
| 3601 { | |
| 3602 if (*p == '\'') | |
| 3603 { | |
| 3604 if (p[1] != '\'') | |
| 97 | 3605 break; |
| 3606 ++p; | |
| 3607 } | |
| 100 | 3608 MB_COPY_CHAR(p, str); |
| 3609 } | |
| 3610 *str = NUL; | |
| 97 | 3611 *arg = p + 1; |
| 3612 | |
| 3613 return OK; | |
| 3614 } | |
| 3615 | |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3616 /* |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3617 * Return the function name of the partial. |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3618 */ |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3619 char_u * |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3620 partial_name(partial_T *pt) |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3621 { |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3622 if (pt->pt_name != NULL) |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3623 return pt->pt_name; |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3624 return pt->pt_func->uf_name; |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3625 } |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3626 |
|
8855
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3627 static void |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
3628 partial_free(partial_T *pt) |
|
8855
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3629 { |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3630 int i; |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3631 |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3632 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
|
3633 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
|
3634 vim_free(pt->pt_argv); |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
3635 dict_unref(pt->pt_dict); |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3636 if (pt->pt_name != NULL) |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3637 { |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3638 func_unref(pt->pt_name); |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3639 vim_free(pt->pt_name); |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3640 } |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3641 else |
|
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3642 func_ptr_unref(pt->pt_func); |
|
8855
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3643 vim_free(pt); |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3644 } |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3645 |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3646 /* |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3647 * 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
|
3648 * becomes zero. |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3649 */ |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3650 void |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3651 partial_unref(partial_T *pt) |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3652 { |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3653 if (pt != NULL && --pt->pt_refcount <= 0) |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
3654 partial_free(pt); |
|
8855
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3655 } |
|
b76195a1e38e
commit https://github.com/vim/vim/commit/ddecc25947dbdd689d5bcaed32f298a08abdd497
Christian Brabandt <cb@256bit.org>
parents:
8839
diff
changeset
|
3656 |
| 2634 | 3657 static int tv_equal_recurse_limit; |
| 3658 | |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3659 static int |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3660 func_equal( |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3661 typval_T *tv1, |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3662 typval_T *tv2, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3663 int ic) // ignore case |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3664 { |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3665 char_u *s1, *s2; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3666 dict_T *d1, *d2; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3667 int a1, a2; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3668 int i; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3669 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3670 // empty and NULL function name considered the same |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3671 s1 = tv1->v_type == VAR_FUNC ? tv1->vval.v_string |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3672 : partial_name(tv1->vval.v_partial); |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3673 if (s1 != NULL && *s1 == NUL) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3674 s1 = NULL; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3675 s2 = tv2->v_type == VAR_FUNC ? tv2->vval.v_string |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
3676 : partial_name(tv2->vval.v_partial); |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3677 if (s2 != NULL && *s2 == NUL) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3678 s2 = NULL; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3679 if (s1 == NULL || s2 == NULL) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3680 { |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3681 if (s1 != s2) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3682 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3683 } |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3684 else if (STRCMP(s1, s2) != 0) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3685 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3686 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3687 // empty dict and NULL dict is different |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3688 d1 = tv1->v_type == VAR_FUNC ? NULL : tv1->vval.v_partial->pt_dict; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3689 d2 = tv2->v_type == VAR_FUNC ? NULL : tv2->vval.v_partial->pt_dict; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3690 if (d1 == NULL || d2 == NULL) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3691 { |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3692 if (d1 != d2) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3693 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3694 } |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3695 else if (!dict_equal(d1, d2, ic, TRUE)) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3696 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3697 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3698 // empty list and no list considered the same |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3699 a1 = tv1->v_type == VAR_FUNC ? 0 : tv1->vval.v_partial->pt_argc; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3700 a2 = tv2->v_type == VAR_FUNC ? 0 : tv2->vval.v_partial->pt_argc; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3701 if (a1 != a2) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3702 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3703 for (i = 0; i < a1; ++i) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3704 if (!tv_equal(tv1->vval.v_partial->pt_argv + i, |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3705 tv2->vval.v_partial->pt_argv + i, ic, TRUE)) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3706 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3707 |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3708 return TRUE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3709 } |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3710 |
| 117 | 3711 /* |
| 80 | 3712 * Return TRUE if "tv1" and "tv2" have the same value. |
| 388 | 3713 * Compares the items just like "==" would compare them, but strings and |
| 1624 | 3714 * numbers are different. Floats and numbers are also different. |
| 80 | 3715 */ |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
3716 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3717 tv_equal( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3718 typval_T *tv1, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3719 typval_T *tv2, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3720 int ic, // ignore case |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3721 int recursive) // TRUE when used recursively |
| 80 | 3722 { |
| 3723 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN]; | |
| 323 | 3724 char_u *s1, *s2; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3725 static int recursive_cnt = 0; // catch recursive loops |
| 1008 | 3726 int r; |
| 3727 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3728 // Catch lists and dicts that have an endless loop by limiting |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3729 // recursiveness to a limit. We guess they are equal then. |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3730 // A fixed limit has the problem of still taking an awful long time. |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3731 // Reduce the limit every time running into it. That should work fine for |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3732 // deeply linked structures that are not recursively linked and catch |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3733 // recursiveness quickly. |
| 2634 | 3734 if (!recursive) |
| 3735 tv_equal_recurse_limit = 1000; | |
| 3736 if (recursive_cnt >= tv_equal_recurse_limit) | |
| 3737 { | |
| 3738 --tv_equal_recurse_limit; | |
| 1014 | 3739 return TRUE; |
| 2634 | 3740 } |
| 388 | 3741 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3742 // For VAR_FUNC and VAR_PARTIAL compare the function name, bound dict and |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3743 // arguments. |
|
9183
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3744 if ((tv1->v_type == VAR_FUNC |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3745 || (tv1->v_type == VAR_PARTIAL && tv1->vval.v_partial != NULL)) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3746 && (tv2->v_type == VAR_FUNC |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3747 || (tv2->v_type == VAR_PARTIAL && tv2->vval.v_partial != NULL))) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3748 { |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3749 ++recursive_cnt; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3750 r = func_equal(tv1, tv2, ic); |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3751 --recursive_cnt; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3752 return r; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3753 } |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3754 |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3755 if (tv1->v_type != tv2->v_type) |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3756 return FALSE; |
|
988c8ab557bf
commit https://github.com/vim/vim/commit/8e759ba8651428995b338b66c615367259f79766
Christian Brabandt <cb@256bit.org>
parents:
9169
diff
changeset
|
3757 |
| 388 | 3758 switch (tv1->v_type) |
| 3759 { | |
| 3760 case VAR_LIST: | |
| 2634 | 3761 ++recursive_cnt; |
| 3762 r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic, TRUE); | |
| 3763 --recursive_cnt; | |
| 1008 | 3764 return r; |
| 388 | 3765 |
| 3766 case VAR_DICT: | |
| 2634 | 3767 ++recursive_cnt; |
| 3768 r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, TRUE); | |
| 3769 --recursive_cnt; | |
| 1008 | 3770 return r; |
| 388 | 3771 |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3772 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3773 return blob_equal(tv1->vval.v_blob, tv2->vval.v_blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
3774 |
| 388 | 3775 case VAR_NUMBER: |
| 3776 return tv1->vval.v_number == tv2->vval.v_number; | |
| 3777 | |
| 3778 case VAR_STRING: | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3779 s1 = tv_get_string_buf(tv1, buf1); |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
3780 s2 = tv_get_string_buf(tv2, buf2); |
| 388 | 3781 return ((ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2)) == 0); |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3782 |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
3783 case VAR_BOOL: |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3784 case VAR_SPECIAL: |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3785 return tv1->vval.v_number == tv2->vval.v_number; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3786 |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3787 case VAR_FLOAT: |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3788 #ifdef FEAT_FLOAT |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3789 return tv1->vval.v_float == tv2->vval.v_float; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3790 #endif |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3791 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
3792 #ifdef FEAT_JOB_CHANNEL |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3793 return tv1->vval.v_job == tv2->vval.v_job; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3794 #endif |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
3795 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
3796 #ifdef FEAT_JOB_CHANNEL |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
3797 return tv1->vval.v_channel == tv2->vval.v_channel; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
3798 #endif |
|
8635
3a38d465f731
commit https://github.com/vim/vim/commit/f0e86a0dbddc18568910e9e4aaae0cd88ca8087a
Christian Brabandt <cb@256bit.org>
parents:
8633
diff
changeset
|
3799 case VAR_FUNC: |
|
3a38d465f731
commit https://github.com/vim/vim/commit/f0e86a0dbddc18568910e9e4aaae0cd88ca8087a
Christian Brabandt <cb@256bit.org>
parents:
8633
diff
changeset
|
3800 case VAR_PARTIAL: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3801 case VAR_UNKNOWN: |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
3802 break; |
| 388 | 3803 } |
| 3804 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3805 // VAR_UNKNOWN can be the result of a invalid expression, let's say it |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3806 // does not equal anything, not even itself. |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
3807 return FALSE; |
| 80 | 3808 } |
| 3809 | |
| 3810 /* | |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3811 * Return the next (unique) copy ID. |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3812 * Used for serializing nested structures. |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3813 */ |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3814 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
3815 get_copyID(void) |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3816 { |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3817 current_copyID += COPYID_INC; |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3818 return current_copyID; |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3819 } |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3820 |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3821 /* |
| 371 | 3822 * Garbage collection for lists and dictionaries. |
| 3823 * | |
| 3824 * We use reference counts to be able to free most items right away when they | |
| 3825 * are no longer used. But for composite items it's possible that it becomes | |
| 3826 * unused while the reference count is > 0: When there is a recursive | |
| 3827 * reference. Example: | |
| 3828 * :let l = [1, 2, 3] | |
| 3829 * :let d = {9: l} | |
| 3830 * :let l[1] = d | |
| 3831 * | |
| 3832 * Since this is quite unusual we handle this with garbage collection: every | |
| 3833 * once in a while find out which lists and dicts are not referenced from any | |
| 3834 * variable. | |
| 3835 * | |
| 3836 * Here is a good reference text about garbage collection (refers to Python | |
| 3837 * but it applies to all reference-counting mechanisms): | |
| 3838 * http://python.ca/nas/python/gc/ | |
| 3839 */ | |
| 3840 | |
| 3841 /* | |
| 3842 * 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
|
3843 * When "testing" is TRUE this is called from test_garbagecollect_now(). |
| 371 | 3844 * Return TRUE if some memory was freed. |
| 3845 */ | |
| 3846 int | |
|
8881
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3847 garbage_collect(int testing) |
| 371 | 3848 { |
| 1891 | 3849 int copyID; |
| 6565 | 3850 int abort = FALSE; |
| 371 | 3851 buf_T *buf; |
| 3852 win_T *wp; | |
| 6588 | 3853 int did_free = FALSE; |
| 819 | 3854 tabpage_T *tp; |
| 371 | 3855 |
|
8881
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3856 if (!testing) |
|
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3857 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3858 // Only do this once. |
|
8881
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3859 want_garbage_collect = FALSE; |
|
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3860 may_garbage_collect = FALSE; |
|
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3861 garbage_collect_at_exit = FALSE; |
|
ed0b39dd7fd6
commit https://github.com/vim/vim/commit/ebf7dfa6f121c82f97d2adca3d45fbaba9ad8f7e
Christian Brabandt <cb@256bit.org>
parents:
8877
diff
changeset
|
3862 } |
| 958 | 3863 |
|
19001
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3864 // 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
|
3865 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
|
3866 { |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3867 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
|
3868 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
|
3869 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
|
3870 |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3871 // 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
|
3872 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
|
3873 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
|
3874 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
|
3875 |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3876 // 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
|
3877 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
|
3878 { |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3879 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
|
3880 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
|
3881 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
|
3882 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
|
3883 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
|
3884 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
|
3885 } |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3886 } |
|
1ebfb46710cd
patch 8.2.0061: the execute stack can grow big and never shrinks
Bram Moolenaar <Bram@vim.org>
parents:
18968
diff
changeset
|
3887 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3888 // 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
|
3889 // previous_funccal. |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
3890 copyID = get_copyID(); |
| 1891 | 3891 |
| 371 | 3892 /* |
| 3893 * 1. Go through all accessible variables and mark all lists and dicts | |
| 3894 * with copyID. | |
| 3895 */ | |
| 1891 | 3896 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3897 // 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
|
3898 // 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
|
3899 // 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
|
3900 abort = abort || set_ref_in_previous_funccal(copyID); |
| 1891 | 3901 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3902 // 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
|
3903 abort = abort || garbage_collect_scriptvars(copyID); |
| 371 | 3904 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3905 // buffer-local variables |
|
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9636
diff
changeset
|
3906 FOR_ALL_BUFFERS(buf) |
| 6565 | 3907 abort = abort || set_ref_in_item(&buf->b_bufvar.di_tv, copyID, |
| 3908 NULL, NULL); | |
| 371 | 3909 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3910 // window-local variables |
| 819 | 3911 FOR_ALL_TAB_WINDOWS(tp, wp) |
| 6565 | 3912 abort = abort || set_ref_in_item(&wp->w_winvar.di_tv, copyID, |
| 3913 NULL, NULL); | |
| 4309 | 3914 if (aucmd_win != NULL) |
| 6565 | 3915 abort = abort || set_ref_in_item(&aucmd_win->w_winvar.di_tv, copyID, |
| 3916 NULL, NULL); | |
|
18763
49b78d6465e5
patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents:
18713
diff
changeset
|
3917 #ifdef FEAT_PROP_POPUP |
|
16778
eda4d65f232c
patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
3918 for (wp = first_popupwin; wp != NULL; wp = wp->w_next) |
|
eda4d65f232c
patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
3919 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
|
3920 NULL, NULL); |
|
eda4d65f232c
patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
3921 FOR_ALL_TABPAGES(tp) |
|
16796
5f98d80d116a
patch 8.1.1400: using global pointer for tab-local popups is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
16778
diff
changeset
|
3922 for (wp = tp->tp_first_popupwin; wp != NULL; wp = wp->w_next) |
|
16778
eda4d65f232c
patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
3923 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
|
3924 NULL, NULL); |
|
eda4d65f232c
patch 8.1.1391: no popup window support
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
3925 #endif |
| 371 | 3926 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3927 // tabpage-local variables |
|
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9636
diff
changeset
|
3928 FOR_ALL_TABPAGES(tp) |
| 6565 | 3929 abort = abort || set_ref_in_item(&tp->tp_winvar.di_tv, copyID, |
| 3930 NULL, NULL); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3931 // 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
|
3932 abort = abort || garbage_collect_globvars(copyID); |
| 371 | 3933 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3934 // function-local variables |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
3935 abort = abort || set_ref_in_call_stack(copyID); |
| 371 | 3936 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3937 // named functions (matters for closures) |
|
9735
8037eb704e93
commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4
Christian Brabandt <cb@256bit.org>
parents:
9731
diff
changeset
|
3938 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
|
3939 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3940 // 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
|
3941 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
|
3942 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3943 // 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
|
3944 abort = abort || garbage_collect_vimvars(copyID); |
| 1733 | 3945 |
|
17151
ebe9aab81898
patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents:
17085
diff
changeset
|
3946 // callbacks in buffers |
|
ebe9aab81898
patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents:
17085
diff
changeset
|
3947 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
|
3948 |
| 3450 | 3949 #ifdef FEAT_LUA |
| 6565 | 3950 abort = abort || set_ref_in_lua(copyID); |
| 3450 | 3951 #endif |
| 3952 | |
| 3618 | 3953 #ifdef FEAT_PYTHON |
| 6565 | 3954 abort = abort || set_ref_in_python(copyID); |
| 3618 | 3955 #endif |
| 3956 | |
| 3957 #ifdef FEAT_PYTHON3 | |
| 6565 | 3958 abort = abort || set_ref_in_python3(copyID); |
| 3959 #endif | |
| 3960 | |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
3961 #ifdef FEAT_JOB_CHANNEL |
|
8877
50e40f322e78
commit https://github.com/vim/vim/commit/3780bb923a688e0051a9a23474eeb38a8acb695a
Christian Brabandt <cb@256bit.org>
parents:
8870
diff
changeset
|
3962 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
|
3963 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
|
3964 #endif |
|
9052
3a6b66c02d6d
commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents:
9027
diff
changeset
|
3965 #ifdef FEAT_NETBEANS_INTG |
|
3a6b66c02d6d
commit https://github.com/vim/vim/commit/3266c85a44a637862b0ed6e531680c6ab2897ab5
Christian Brabandt <cb@256bit.org>
parents:
9027
diff
changeset
|
3966 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
|
3967 #endif |
|
7931
2679e636e862
commit https://github.com/vim/vim/commit/4b6a6dcbe7bd13170c4884cc17acb1eac2c633d1
Christian Brabandt <cb@256bit.org>
parents:
7895
diff
changeset
|
3968 |
|
9153
c2fe86f2bda1
commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents:
9127
diff
changeset
|
3969 #ifdef FEAT_TIMERS |
|
c2fe86f2bda1
commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents:
9127
diff
changeset
|
3970 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
|
3971 #endif |
|
c2fe86f2bda1
commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3
Christian Brabandt <cb@256bit.org>
parents:
9127
diff
changeset
|
3972 |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11323
diff
changeset
|
3973 #ifdef FEAT_QUICKFIX |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11323
diff
changeset
|
3974 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
|
3975 #endif |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11323
diff
changeset
|
3976 |
|
11804
5630978ae089
patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents:
11418
diff
changeset
|
3977 #ifdef FEAT_TERMINAL |
|
5630978ae089
patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents:
11418
diff
changeset
|
3978 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
|
3979 #endif |
|
5630978ae089
patch 8.0.0784: job of terminal may be garbage collected
Christian Brabandt <cb@256bit.org>
parents:
11418
diff
changeset
|
3980 |
|
18763
49b78d6465e5
patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents:
18713
diff
changeset
|
3981 #ifdef FEAT_PROP_POPUP |
|
17151
ebe9aab81898
patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents:
17085
diff
changeset
|
3982 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
|
3983 #endif |
|
ebe9aab81898
patch 8.1.1575: callbacks may be garbage collected
Bram Moolenaar <Bram@vim.org>
parents:
17085
diff
changeset
|
3984 |
| 6565 | 3985 if (!abort) |
| 3986 { | |
| 3987 /* | |
| 3988 * 2. Free lists and dictionaries that are not referenced. | |
| 3989 */ | |
| 3990 did_free = free_unref_items(copyID); | |
| 3991 | |
| 3992 /* | |
| 3993 * 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
|
3994 * This may call us back recursively. |
| 6565 | 3995 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
3996 free_unref_funccal(copyID, testing); |
| 6565 | 3997 } |
| 3998 else if (p_verbose > 0) | |
| 3999 { | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15517
diff
changeset
|
4000 verb_msg(_("Not enough memory to set references, garbage collection aborted!")); |
| 6565 | 4001 } |
| 1891 | 4002 |
| 4003 return did_free; | |
| 4004 } | |
| 4005 | |
| 4006 /* | |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4007 * Free lists, dictionaries, channels and jobs that are no longer referenced. |
| 1891 | 4008 */ |
| 4009 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4010 free_unref_items(int copyID) |
| 1891 | 4011 { |
| 4012 int did_free = FALSE; | |
| 4013 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4014 // 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
|
4015 // 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
|
4016 // do that here. |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4017 in_free_unref_items = TRUE; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4018 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4019 /* |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4020 * 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
|
4021 * 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
|
4022 */ |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4023 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4024 // 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
|
4025 did_free |= dict_free_nonref(copyID); |
| 371 | 4026 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4027 // 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
|
4028 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
|
4029 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4030 #ifdef FEAT_JOB_CHANNEL |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4031 // 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
|
4032 // 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
|
4033 // 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
|
4034 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
|
4035 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4036 // 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
|
4037 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
|
4038 #endif |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4039 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4040 /* |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4041 * PASS 2: free the items themselves. |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4042 */ |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
4043 dict_free_items(copyID); |
|
9560
1e68dfd7931b
commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
9556
diff
changeset
|
4044 list_free_items(copyID); |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4045 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4046 #ifdef FEAT_JOB_CHANNEL |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4047 // 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
|
4048 // 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
|
4049 // 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
|
4050 free_unused_jobs(copyID, COPYID_MASK); |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4051 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4052 // 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
|
4053 free_unused_channels(copyID, COPYID_MASK); |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4054 #endif |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4055 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4056 in_free_unref_items = FALSE; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
4057 |
| 371 | 4058 return did_free; |
| 4059 } | |
| 4060 | |
| 4061 /* | |
| 4062 * Mark all lists and dicts referenced through hashtab "ht" with "copyID". | |
| 6565 | 4063 * "list_stack" is used to add lists to be marked. Can be NULL. |
| 4064 * | |
| 4065 * Returns TRUE if setting references failed somehow. | |
| 4066 */ | |
| 4067 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4068 set_ref_in_ht(hashtab_T *ht, int copyID, list_stack_T **list_stack) |
| 364 | 4069 { |
| 4070 int todo; | |
| 6565 | 4071 int abort = FALSE; |
| 364 | 4072 hashitem_T *hi; |
| 6565 | 4073 hashtab_T *cur_ht; |
| 4074 ht_stack_T *ht_stack = NULL; | |
| 4075 ht_stack_T *tempitem; | |
| 4076 | |
| 4077 cur_ht = ht; | |
| 4078 for (;;) | |
| 4079 { | |
| 4080 if (!abort) | |
| 4081 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4082 // 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
|
4083 // 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
|
4084 // list_stack. |
| 6565 | 4085 todo = (int)cur_ht->ht_used; |
| 4086 for (hi = cur_ht->ht_array; todo > 0; ++hi) | |
| 4087 if (!HASHITEM_EMPTY(hi)) | |
| 4088 { | |
| 4089 --todo; | |
| 4090 abort = abort || set_ref_in_item(&HI2DI(hi)->di_tv, copyID, | |
| 4091 &ht_stack, list_stack); | |
| 4092 } | |
| 4093 } | |
| 4094 | |
| 4095 if (ht_stack == NULL) | |
| 4096 break; | |
| 4097 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4098 // take an item from the stack |
| 6565 | 4099 cur_ht = ht_stack->ht; |
| 4100 tempitem = ht_stack; | |
| 4101 ht_stack = ht_stack->prev; | |
| 4102 free(tempitem); | |
| 4103 } | |
| 4104 | |
| 4105 return abort; | |
| 371 | 4106 } |
| 4107 | |
| 4108 /* | |
|
17168
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4109 * 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
|
4110 * 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
|
4111 */ |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4112 int |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4113 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
|
4114 { |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4115 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
|
4116 { |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4117 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
|
4118 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
|
4119 } |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4120 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
|
4121 } |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4122 |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4123 /* |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4124 * 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
|
4125 * 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
|
4126 */ |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4127 int |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4128 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
|
4129 { |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4130 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
|
4131 { |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4132 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
|
4133 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
|
4134 } |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4135 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
|
4136 } |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4137 |
|
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4138 /* |
| 371 | 4139 * Mark all lists and dicts referenced through list "l" with "copyID". |
| 6565 | 4140 * "ht_stack" is used to add hashtabs to be marked. Can be NULL. |
| 4141 * | |
| 4142 * Returns TRUE if setting references failed somehow. | |
| 4143 */ | |
| 4144 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
|
4145 set_ref_in_list_items(list_T *l, int copyID, ht_stack_T **ht_stack) |
| 6565 | 4146 { |
| 4147 listitem_T *li; | |
| 4148 int abort = FALSE; | |
| 4149 list_T *cur_l; | |
| 4150 list_stack_T *list_stack = NULL; | |
| 4151 list_stack_T *tempitem; | |
| 4152 | |
| 4153 cur_l = l; | |
| 4154 for (;;) | |
| 4155 { | |
| 4156 if (!abort) | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4157 // 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
|
4158 // 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
|
4159 // list_stack. |
| 6565 | 4160 for (li = cur_l->lv_first; !abort && li != NULL; li = li->li_next) |
| 4161 abort = abort || set_ref_in_item(&li->li_tv, copyID, | |
| 4162 ht_stack, &list_stack); | |
| 4163 if (list_stack == NULL) | |
| 4164 break; | |
| 4165 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4166 // take an item from the stack |
| 6565 | 4167 cur_l = list_stack->list; |
| 4168 tempitem = list_stack; | |
| 4169 list_stack = list_stack->prev; | |
| 4170 free(tempitem); | |
| 4171 } | |
| 4172 | |
| 4173 return abort; | |
| 371 | 4174 } |
| 4175 | |
| 4176 /* | |
| 4177 * Mark all lists and dicts referenced through typval "tv" with "copyID". | |
| 6565 | 4178 * "list_stack" is used to add lists to be marked. Can be NULL. |
| 4179 * "ht_stack" is used to add hashtabs to be marked. Can be NULL. | |
| 4180 * | |
| 4181 * Returns TRUE if setting references failed somehow. | |
| 4182 */ | |
| 4183 int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4184 set_ref_in_item( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4185 typval_T *tv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4186 int copyID, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4187 ht_stack_T **ht_stack, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4188 list_stack_T **list_stack) |
| 364 | 4189 { |
| 6565 | 4190 int abort = FALSE; |
| 364 | 4191 |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4192 if (tv->v_type == VAR_DICT) |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4193 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4194 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
|
4195 |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4196 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
|
4197 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4198 // 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
|
4199 dd->dv_copyID = copyID; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4200 if (ht_stack == NULL) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4201 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4202 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
|
4203 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4204 else |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4205 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4206 ht_stack_T *newitem = (ht_stack_T*)malloc(sizeof(ht_stack_T)); |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4207 if (newitem == NULL) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4208 abort = TRUE; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4209 else |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4210 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4211 newitem->ht = &dd->dv_hashtab; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4212 newitem->prev = *ht_stack; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4213 *ht_stack = newitem; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4214 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4215 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4216 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4217 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4218 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
|
4219 { |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4220 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
|
4221 |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4222 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
|
4223 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4224 // 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
|
4225 ll->lv_copyID = copyID; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4226 if (list_stack == NULL) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4227 { |
|
17168
1d30eb64a7a2
patch 8.1.1583: set_ref_in_list() only sets ref in items
Bram Moolenaar <Bram@vim.org>
parents:
17151
diff
changeset
|
4228 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
|
4229 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4230 else |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4231 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4232 list_stack_T *newitem = (list_stack_T*)malloc( |
| 6565 | 4233 sizeof(list_stack_T)); |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4234 if (newitem == NULL) |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4235 abort = TRUE; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4236 else |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4237 { |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4238 newitem->list = ll; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4239 newitem->prev = *list_stack; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4240 *list_stack = newitem; |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4241 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4242 } |
|
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4243 } |
| 6565 | 4244 } |
|
9686
8c2553beff0f
commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
4245 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
|
4246 { |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
4247 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
|
4248 } |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4249 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
|
4250 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4251 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
|
4252 int i; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4253 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4254 // A partial does not have a copyID, because it cannot contain itself. |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4255 if (pt != NULL) |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4256 { |
|
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9717
diff
changeset
|
4257 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
|
4258 |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4259 if (pt->pt_dict != NULL) |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4260 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4261 typval_T dtv; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4262 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4263 dtv.v_type = VAR_DICT; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4264 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
|
4265 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
|
4266 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4267 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4268 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
|
4269 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
|
4270 ht_stack, list_stack); |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4271 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4272 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4273 #ifdef FEAT_JOB_CHANNEL |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4274 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
|
4275 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4276 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
|
4277 typval_T dtv; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4278 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4279 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
|
4280 { |
|
8870
30988ffb7498
commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
4281 job->jv_copyID = copyID; |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4282 if (job->jv_channel != NULL) |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4283 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4284 dtv.v_type = VAR_CHANNEL; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4285 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
|
4286 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
|
4287 } |
|
16872
a836d122231a
patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
4288 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
|
4289 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4290 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
|
4291 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
|
4292 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
|
4293 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4294 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4295 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4296 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
|
4297 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4298 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
|
4299 ch_part_T part; |
|
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4300 typval_T dtv; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4301 jsonq_T *jq; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4302 cbq_T *cq; |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4303 |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4304 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
|
4305 { |
|
8870
30988ffb7498
commit https://github.com/vim/vim/commit/0239acb11fe4bfe9b525ea90b782759da5eb7704
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
4306 ch->ch_copyID = copyID; |
|
10259
a09db7a4afe0
commit https://github.com/vim/vim/commit/dc0ccaee68ca24d10050117fbec757ad33590a17
Christian Brabandt <cb@256bit.org>
parents:
10235
diff
changeset
|
4307 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
|
4308 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4309 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
|
4310 jq = jq->jq_next) |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4311 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
|
4312 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
|
4313 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
|
4314 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
|
4315 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4316 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
|
4317 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
|
4318 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
|
4319 } |
|
16872
a836d122231a
patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
4320 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
|
4321 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4322 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
|
4323 dtv.vval.v_partial = |
|
a836d122231a
patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
4324 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
|
4325 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
|
4326 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4327 } |
|
16872
a836d122231a
patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
4328 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
|
4329 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4330 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
|
4331 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
|
4332 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
|
4333 } |
|
16872
a836d122231a
patch 8.1.1437: code to handle callbacks is duplicated
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
4334 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
|
4335 { |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4336 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
|
4337 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
|
4338 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
|
4339 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4340 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4341 } |
|
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8861
diff
changeset
|
4342 #endif |
| 6565 | 4343 return abort; |
| 364 | 4344 } |
| 4345 | |
| 100 | 4346 /* |
| 56 | 4347 * Return a string with the string representation of a variable. |
| 4348 * If the memory is allocated "tofree" is set to it, otherwise NULL. | |
| 80 | 4349 * "numbuf" is used for a number. |
| 634 | 4350 * 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
|
4351 * When both "echo_style" and "composite_val" are FALSE, put quotes around |
|
aec3df2af27c
patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents:
11848
diff
changeset
|
4352 * stings as "string()", otherwise does not put quotes around strings, as |
|
aec3df2af27c
patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents:
11848
diff
changeset
|
4353 * ":echo" displays values. |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4354 * 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
|
4355 * are replaced with "...". |
| 1360 | 4356 * May return NULL. |
| 56 | 4357 */ |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
4358 char_u * |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4359 echo_string_core( |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4360 typval_T *tv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4361 char_u **tofree, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4362 char_u *numbuf, |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4363 int copyID, |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4364 int echo_style, |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4365 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
|
4366 int composite_val) |
| 56 | 4367 { |
| 104 | 4368 static int recurse = 0; |
| 4369 char_u *r = NULL; | |
| 4370 | |
| 137 | 4371 if (recurse >= DICT_MAXNEST) |
| 104 | 4372 { |
| 5973 | 4373 if (!did_echo_string_emsg) |
| 4374 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4375 // 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
|
4376 // 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
|
4377 // and dicts. |
| 5973 | 4378 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
|
4379 emsg(_("E724: variable nested too deep for displaying")); |
| 5973 | 4380 } |
| 104 | 4381 *tofree = NULL; |
| 5973 | 4382 return (char_u *)"{E724}"; |
| 104 | 4383 } |
| 4384 ++recurse; | |
| 4385 | |
| 56 | 4386 switch (tv->v_type) |
| 4387 { | |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4388 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
|
4389 if (echo_style && !composite_val) |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4390 { |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4391 *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
|
4392 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
|
4393 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
|
4394 r = (char_u *)""; |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4395 } |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4396 else |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4397 { |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4398 *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
|
4399 r = *tofree; |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4400 } |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4401 break; |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4402 |
| 56 | 4403 case VAR_FUNC: |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4404 if (echo_style) |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4405 { |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4406 *tofree = NULL; |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4407 r = tv->vval.v_string; |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4408 } |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4409 else |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4410 { |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4411 *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
|
4412 r = *tofree; |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4413 } |
| 104 | 4414 break; |
| 634 | 4415 |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
4416 case VAR_PARTIAL: |
|
8710
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4417 { |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4418 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
|
4419 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
|
4420 : partial_name(pt), FALSE); |
|
8710
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4421 garray_T ga; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4422 int i; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4423 char_u *tf; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4424 |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4425 ga_init2(&ga, 1, 100); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4426 ga_concat(&ga, (char_u *)"function("); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4427 if (fname != NULL) |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4428 { |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4429 ga_concat(&ga, fname); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4430 vim_free(fname); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4431 } |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4432 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
|
4433 { |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4434 ga_concat(&ga, (char_u *)", ["); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4435 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
|
4436 { |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4437 if (i > 0) |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4438 ga_concat(&ga, (char_u *)", "); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4439 ga_concat(&ga, |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4440 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
|
4441 vim_free(tf); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4442 } |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4443 ga_concat(&ga, (char_u *)"]"); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4444 } |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4445 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
|
4446 { |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4447 typval_T dtv; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4448 |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4449 ga_concat(&ga, (char_u *)", "); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4450 dtv.v_type = VAR_DICT; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4451 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
|
4452 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
|
4453 vim_free(tf); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4454 } |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4455 ga_concat(&ga, (char_u *)")"); |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4456 |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4457 *tofree = ga.ga_data; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4458 r = *tofree; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4459 break; |
|
af3cb5c068fd
commit https://github.com/vim/vim/commit/24c77a1e3a2ad510582116229462b482d69b4b8e
Christian Brabandt <cb@256bit.org>
parents:
8708
diff
changeset
|
4460 } |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
4461 |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
4462 case VAR_BLOB: |
|
15466
435fcefd2c8e
patch 8.1.0741: viminfo with Blob is not tested
Bram Moolenaar <Bram@vim.org>
parents:
15464
diff
changeset
|
4463 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
|
4464 break; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
4465 |
| 56 | 4466 case VAR_LIST: |
| 634 | 4467 if (tv->vval.v_list == NULL) |
| 4468 { | |
| 4469 *tofree = NULL; | |
| 4470 r = NULL; | |
| 4471 } | |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4472 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
|
4473 && tv->vval.v_list->lv_len > 0) |
| 634 | 4474 { |
| 4475 *tofree = NULL; | |
| 4476 r = (char_u *)"[...]"; | |
| 4477 } | |
| 4478 else | |
| 4479 { | |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4480 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
|
4481 |
| 634 | 4482 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
|
4483 *tofree = list2string(tv, copyID, restore_copyID); |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4484 if (restore_copyID) |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4485 tv->vval.v_list->lv_copyID = old_copyID; |
| 634 | 4486 r = *tofree; |
| 4487 } | |
| 4488 break; | |
| 4489 | |
| 100 | 4490 case VAR_DICT: |
| 634 | 4491 if (tv->vval.v_dict == NULL) |
| 4492 { | |
| 4493 *tofree = NULL; | |
| 4494 r = NULL; | |
| 4495 } | |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4496 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
|
4497 && tv->vval.v_dict->dv_hashtab.ht_used != 0) |
| 634 | 4498 { |
| 4499 *tofree = NULL; | |
| 4500 r = (char_u *)"{...}"; | |
| 4501 } | |
| 4502 else | |
| 4503 { | |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4504 int old_copyID = tv->vval.v_dict->dv_copyID; |
| 634 | 4505 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
|
4506 *tofree = dict2string(tv, copyID, restore_copyID); |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4507 if (restore_copyID) |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4508 tv->vval.v_dict->dv_copyID = old_copyID; |
| 634 | 4509 r = *tofree; |
| 4510 } | |
| 4511 break; | |
| 4512 | |
| 71 | 4513 case VAR_NUMBER: |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
4514 case VAR_UNKNOWN: |
|
11973
aec3df2af27c
patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents:
11848
diff
changeset
|
4515 *tofree = NULL; |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
4516 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
|
4517 break; |
|
aec3df2af27c
patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents:
11848
diff
changeset
|
4518 |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
4519 case VAR_JOB: |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
4520 case VAR_CHANNEL: |
| 104 | 4521 *tofree = NULL; |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
4522 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
|
4523 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
|
4524 { |
|
aec3df2af27c
patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents:
11848
diff
changeset
|
4525 *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
|
4526 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
|
4527 } |
| 71 | 4528 break; |
| 634 | 4529 |
| 1624 | 4530 case VAR_FLOAT: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
4531 #ifdef FEAT_FLOAT |
| 1624 | 4532 *tofree = NULL; |
| 4533 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float); | |
| 4534 r = numbuf; | |
| 4535 break; | |
| 4536 #endif | |
| 4537 | |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
4538 case VAR_BOOL: |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
4539 case VAR_SPECIAL: |
|
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
4540 *tofree = NULL; |
|
7730
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
4541 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
|
4542 break; |
| 104 | 4543 } |
| 4544 | |
| 5973 | 4545 if (--recurse == 0) |
| 4546 did_echo_string_emsg = FALSE; | |
| 104 | 4547 return r; |
| 97 | 4548 } |
| 4549 | |
| 4550 /* | |
| 4551 * Return a string with the string representation of a variable. | |
| 4552 * If the memory is allocated "tofree" is set to it, otherwise NULL. | |
| 4553 * "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
|
4554 * 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
|
4555 * 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
|
4556 * May return NULL. |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4557 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
4558 char_u * |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4559 echo_string( |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4560 typval_T *tv, |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4561 char_u **tofree, |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4562 char_u *numbuf, |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4563 int copyID) |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4564 { |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4565 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
|
4566 } |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4567 |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4568 /* |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4569 * Return a string with the string representation of a variable. |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4570 * If the memory is allocated "tofree" is set to it, otherwise NULL. |
|
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4571 * "numbuf" is used for a number. |
| 97 | 4572 * Puts quotes around strings, so that they can be parsed back by eval(). |
| 1360 | 4573 * May return NULL. |
| 97 | 4574 */ |
|
8889
8755d57debaa
commit https://github.com/vim/vim/commit/8110a091bc749d8748a20807a724a3af3ca6d509
Christian Brabandt <cb@256bit.org>
parents:
8887
diff
changeset
|
4575 char_u * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4576 tv2string( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4577 typval_T *tv, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4578 char_u **tofree, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4579 char_u *numbuf, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4580 int copyID) |
| 97 | 4581 { |
|
9157
e316b83892c1
commit https://github.com/vim/vim/commit/18dfb4404a618c52ee7138630a2381aed4d66eaf
Christian Brabandt <cb@256bit.org>
parents:
9153
diff
changeset
|
4582 return echo_string_core(tv, tofree, numbuf, copyID, FALSE, TRUE, FALSE); |
| 56 | 4583 } |
| 4584 | |
| 4585 /* | |
| 137 | 4586 * Return string "str" in ' quotes, doubling ' characters. |
| 4587 * If "str" is NULL an empty string is assumed. | |
| 100 | 4588 * If "function" is TRUE make it function('string'). |
| 97 | 4589 */ |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
4590 char_u * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4591 string_quote(char_u *str, int function) |
| 97 | 4592 { |
| 137 | 4593 unsigned len; |
| 97 | 4594 char_u *p, *r, *s; |
| 4595 | |
| 137 | 4596 len = (function ? 13 : 3); |
| 4597 if (str != NULL) | |
| 4598 { | |
| 835 | 4599 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
|
4600 for (p = str; *p != NUL; MB_PTR_ADV(p)) |
| 137 | 4601 if (*p == '\'') |
| 4602 ++len; | |
| 4603 } | |
| 97 | 4604 s = r = alloc(len); |
| 4605 if (r != NULL) | |
| 4606 { | |
| 4607 if (function) | |
| 4608 { | |
| 100 | 4609 STRCPY(r, "function('"); |
| 97 | 4610 r += 10; |
| 4611 } | |
| 4612 else | |
| 100 | 4613 *r++ = '\''; |
| 137 | 4614 if (str != NULL) |
| 4615 for (p = str; *p != NUL; ) | |
| 4616 { | |
| 4617 if (*p == '\'') | |
| 4618 *r++ = '\''; | |
| 4619 MB_COPY_CHAR(p, r); | |
| 4620 } | |
| 100 | 4621 *r++ = '\''; |
| 97 | 4622 if (function) |
| 4623 *r++ = ')'; | |
| 4624 *r++ = NUL; | |
| 4625 } | |
| 4626 return s; | |
| 4627 } | |
| 4628 | |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
4629 #if defined(FEAT_FLOAT) || defined(PROTO) |
| 1624 | 4630 /* |
| 4631 * Convert the string "text" to a floating point number. | |
| 4632 * This uses strtod(). setlocale(LC_NUMERIC, "C") has been used to make sure | |
| 4633 * this always uses a decimal point. | |
| 4634 * Returns the length of the text that was consumed. | |
| 4635 */ | |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
4636 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4637 string2float( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4638 char_u *text, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4639 float_T *value) // result stored here |
| 1624 | 4640 { |
| 4641 char *s = (char *)text; | |
| 4642 float_T f; | |
| 4643 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4644 // MS-Windows does not deal with "inf" and "nan" properly. |
|
10536
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4645 if (STRNICMP(text, "inf", 3) == 0) |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4646 { |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4647 *value = INFINITY; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4648 return 3; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4649 } |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4650 if (STRNICMP(text, "-inf", 3) == 0) |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4651 { |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4652 *value = -INFINITY; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4653 return 4; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4654 } |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4655 if (STRNICMP(text, "nan", 3) == 0) |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4656 { |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4657 *value = NAN; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4658 return 3; |
|
6ddf322ff7cf
patch 8.0.0158: float funcion test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
10386
diff
changeset
|
4659 } |
| 1624 | 4660 f = strtod(s, &s); |
| 4661 *value = f; | |
| 4662 return (int)((char_u *)s - text); | |
| 4663 } | |
| 4664 #endif | |
| 4665 | |
| 97 | 4666 /* |
| 7 | 4667 * Get the value of an environment variable. |
| 4668 * "arg" is pointing to the '$'. It is advanced to after the name. | |
| 4669 * If the environment variable was not set, silently assume it is empty. | |
| 5858 | 4670 * Return FAIL if the name is invalid. |
| 7 | 4671 */ |
| 4672 static int | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4673 get_env_tv(char_u **arg, typval_T *rettv, int evaluate) |
| 7 | 4674 { |
| 4675 char_u *string = NULL; | |
| 4676 int len; | |
| 4677 int cc; | |
| 4678 char_u *name; | |
| 170 | 4679 int mustfree = FALSE; |
| 7 | 4680 |
| 4681 ++*arg; | |
| 4682 name = *arg; | |
| 4683 len = get_env_len(arg); | |
| 4684 if (evaluate) | |
| 4685 { | |
| 5858 | 4686 if (len == 0) |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4687 return FAIL; // invalid empty name |
| 5858 | 4688 |
| 4689 cc = name[len]; | |
| 4690 name[len] = NUL; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4691 // first try vim_getenv(), fast for normal environment vars |
| 5858 | 4692 string = vim_getenv(name, &mustfree); |
| 4693 if (string != NULL && *string != NUL) | |
| 4694 { | |
| 4695 if (!mustfree) | |
| 4696 string = vim_strsave(string); | |
| 4697 } | |
| 4698 else | |
| 4699 { | |
| 4700 if (mustfree) | |
| 4701 vim_free(string); | |
| 4702 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4703 // next try expanding things like $VIM and ${HOME} |
| 5858 | 4704 string = expand_env_save(name - 1); |
| 4705 if (string != NULL && *string == '$') | |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13037
diff
changeset
|
4706 VIM_CLEAR(string); |
| 5858 | 4707 } |
| 4708 name[len] = cc; | |
| 4709 | |
| 71 | 4710 rettv->v_type = VAR_STRING; |
| 4711 rettv->vval.v_string = string; | |
| 7 | 4712 } |
| 4713 | |
| 4714 return OK; | |
| 4715 } | |
| 4716 | |
| 3214 | 4717 /* |
| 7 | 4718 * Translate a String variable into a position. |
| 685 | 4719 * Returns NULL when there is an error. |
| 7 | 4720 */ |
|
9571
5eaa708ab50d
commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents:
9562
diff
changeset
|
4721 pos_T * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4722 var2fpos( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4723 typval_T *varp, |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4724 int dollar_lnum, // TRUE when $ is last line |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4725 int *fnum) // set to fnum for '0, 'A, etc. |
| 7 | 4726 { |
| 700 | 4727 char_u *name; |
| 7 | 4728 static pos_T pos; |
| 700 | 4729 pos_T *pp; |
| 7 | 4730 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4731 // Argument can be [lnum, col, coladd]. |
| 685 | 4732 if (varp->v_type == VAR_LIST) |
| 4733 { | |
| 4734 list_T *l; | |
| 4735 int len; | |
| 705 | 4736 int error = FALSE; |
| 1317 | 4737 listitem_T *li; |
| 685 | 4738 |
| 4739 l = varp->vval.v_list; | |
| 4740 if (l == NULL) | |
| 4741 return NULL; | |
| 4742 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4743 // Get the line number |
| 705 | 4744 pos.lnum = list_find_nr(l, 0L, &error); |
| 4745 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
|
4746 return NULL; // invalid line number |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4747 |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4748 // Get the column number |
| 705 | 4749 pos.col = list_find_nr(l, 1L, &error); |
| 4750 if (error) | |
| 685 | 4751 return NULL; |
| 4752 len = (long)STRLEN(ml_get(pos.lnum)); | |
| 1317 | 4753 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4754 // We accept "$" for the column number: last column. |
| 1317 | 4755 li = list_find(l, 1L); |
| 4756 if (li != NULL && li->li_tv.v_type == VAR_STRING | |
| 4757 && li->li_tv.vval.v_string != NULL | |
| 4758 && STRCMP(li->li_tv.vval.v_string, "$") == 0) | |
| 4759 pos.col = len + 1; | |
| 4760 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4761 // Accept a position up to the NUL after the line. |
| 826 | 4762 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
|
4763 return NULL; // invalid column number |
| 705 | 4764 --pos.col; |
| 4765 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4766 // Get the virtual offset. Defaults to zero. |
| 705 | 4767 pos.coladd = list_find_nr(l, 2L, &error); |
| 4768 if (error) | |
| 4769 pos.coladd = 0; | |
| 4770 | |
| 685 | 4771 return &pos; |
| 4772 } | |
| 4773 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
4774 name = tv_get_string_chk(varp); |
| 323 | 4775 if (name == NULL) |
| 4776 return NULL; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4777 if (name[0] == '.') // cursor |
| 7 | 4778 return &curwin->w_cursor; |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4779 if (name[0] == 'v' && name[1] == NUL) // Visual start |
| 1609 | 4780 { |
| 4781 if (VIsual_active) | |
| 4782 return &VIsual; | |
| 4783 return &curwin->w_cursor; | |
| 4784 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4785 if (name[0] == '\'') // mark |
| 7 | 4786 { |
| 4043 | 4787 pp = getmark_buf_fnum(curbuf, name[1], FALSE, fnum); |
| 7 | 4788 if (pp == NULL || pp == (pos_T *)-1 || pp->lnum <= 0) |
| 4789 return NULL; | |
| 4790 return pp; | |
| 4791 } | |
| 705 | 4792 |
| 4793 pos.coladd = 0; | |
| 4794 | |
| 1317 | 4795 if (name[0] == 'w' && dollar_lnum) |
| 666 | 4796 { |
| 4797 pos.col = 0; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4798 if (name[1] == '0') // "w0": first visible line |
| 666 | 4799 { |
| 671 | 4800 update_topline(); |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4801 // 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
|
4802 // 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
|
4803 pos.lnum = curwin->w_topline > 0 ? curwin->w_topline : 1; |
| 666 | 4804 return &pos; |
| 4805 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4806 else if (name[1] == '$') // "w$": last visible line |
| 666 | 4807 { |
| 671 | 4808 validate_botline(); |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4809 // 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
|
4810 pos.lnum = curwin->w_botline > 0 ? curwin->w_botline - 1 : 0; |
| 666 | 4811 return &pos; |
| 4812 } | |
| 4813 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4814 else if (name[0] == '$') // last column or line |
| 7 | 4815 { |
| 1317 | 4816 if (dollar_lnum) |
| 7 | 4817 { |
| 4818 pos.lnum = curbuf->b_ml.ml_line_count; | |
| 4819 pos.col = 0; | |
| 4820 } | |
| 4821 else | |
| 4822 { | |
| 4823 pos.lnum = curwin->w_cursor.lnum; | |
| 4824 pos.col = (colnr_T)STRLEN(ml_get_curline()); | |
| 4825 } | |
| 4826 return &pos; | |
| 4827 } | |
| 4828 return NULL; | |
| 4829 } | |
| 4830 | |
| 4831 /* | |
| 709 | 4832 * Convert list in "arg" into a position and optional file number. |
| 4833 * When "fnump" is NULL there is no file number, only 3 items. | |
| 4834 * Note that the column is passed on as-is, the caller may want to decrement | |
| 4835 * it to use 1 for the first column. | |
| 4836 * Return FAIL when conversion is not possible, doesn't check the position for | |
| 4837 * validity. | |
| 4838 */ | |
|
9571
5eaa708ab50d
commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents:
9562
diff
changeset
|
4839 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4840 list2fpos( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4841 typval_T *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4842 pos_T *posp, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4843 int *fnump, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4844 colnr_T *curswantp) |
| 709 | 4845 { |
| 4846 list_T *l = arg->vval.v_list; | |
| 4847 long i = 0; | |
| 4848 long n; | |
| 4849 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4850 // 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
|
4851 // there when "fnump" isn't NULL; "coladd" and "curswant" are optional. |
| 915 | 4852 if (arg->v_type != VAR_LIST |
| 4853 || l == NULL | |
| 4854 || l->lv_len < (fnump == NULL ? 2 : 3) | |
| 5938 | 4855 || l->lv_len > (fnump == NULL ? 4 : 5)) |
| 709 | 4856 return FAIL; |
| 4857 | |
| 4858 if (fnump != NULL) | |
| 4859 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4860 n = list_find_nr(l, i++, NULL); // fnum |
| 709 | 4861 if (n < 0) |
| 4862 return FAIL; | |
| 4863 if (n == 0) | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4864 n = curbuf->b_fnum; // current buffer |
| 709 | 4865 *fnump = n; |
| 4866 } | |
| 4867 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4868 n = list_find_nr(l, i++, NULL); // lnum |
| 709 | 4869 if (n < 0) |
| 4870 return FAIL; | |
| 4871 posp->lnum = n; | |
| 4872 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4873 n = list_find_nr(l, i++, NULL); // col |
| 709 | 4874 if (n < 0) |
| 4875 return FAIL; | |
| 4876 posp->col = n; | |
| 4877 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4878 n = list_find_nr(l, i, NULL); // off |
| 709 | 4879 if (n < 0) |
| 915 | 4880 posp->coladd = 0; |
| 4881 else | |
| 4882 posp->coladd = n; | |
| 709 | 4883 |
| 5938 | 4884 if (curswantp != NULL) |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4885 *curswantp = list_find_nr(l, i + 1, NULL); // curswant |
| 5938 | 4886 |
| 709 | 4887 return OK; |
| 4888 } | |
| 4889 | |
| 4890 /* | |
| 7 | 4891 * Get the length of an environment variable name. |
| 4892 * Advance "arg" to the first character after the name. | |
| 4893 * Return 0 for error. | |
| 4894 */ | |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
4895 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4896 get_env_len(char_u **arg) |
| 7 | 4897 { |
| 4898 char_u *p; | |
| 4899 int len; | |
| 4900 | |
| 4901 for (p = *arg; vim_isIDc(*p); ++p) | |
| 4902 ; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4903 if (p == *arg) // no name found |
| 7 | 4904 return 0; |
| 4905 | |
| 4906 len = (int)(p - *arg); | |
| 4907 *arg = p; | |
| 4908 return len; | |
| 4909 } | |
| 4910 | |
| 4911 /* | |
| 4912 * Get the length of the name of a function or internal variable. | |
| 4913 * "arg" is advanced to the first non-white character after the name. | |
| 4914 * Return 0 if something is wrong. | |
| 4915 */ | |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
4916 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4917 get_id_len(char_u **arg) |
| 7 | 4918 { |
| 4919 char_u *p; | |
| 4920 int len; | |
| 4921 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4922 // Find the end of the name. |
| 7 | 4923 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
|
4924 { |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4925 if (*p == ':') |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4926 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4927 // "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
|
4928 // 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
|
4929 len = (int)(p - *arg); |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4930 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
|
4931 || len > 1) |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4932 break; |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4933 } |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
4934 } |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4935 if (p == *arg) // no name found |
| 7 | 4936 return 0; |
| 4937 | |
| 4938 len = (int)(p - *arg); | |
| 4939 *arg = skipwhite(p); | |
| 4940 | |
| 4941 return len; | |
| 4942 } | |
| 4943 | |
| 4944 /* | |
| 124 | 4945 * Get the length of the name of a variable or function. |
| 4946 * Only the name is recognized, does not handle ".key" or "[idx]". | |
| 7 | 4947 * "arg" is advanced to the first non-white character after the name. |
| 159 | 4948 * Return -1 if curly braces expansion failed. |
| 4949 * Return 0 if something else is wrong. | |
| 7 | 4950 * If the name contains 'magic' {}'s, expand them and return the |
| 4951 * expanded name in an allocated string via 'alias' - caller must free. | |
| 4952 */ | |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
4953 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4954 get_name_len( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4955 char_u **arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4956 char_u **alias, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4957 int evaluate, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
4958 int verbose) |
| 7 | 4959 { |
| 4960 int len; | |
| 4961 char_u *p; | |
| 4962 char_u *expr_start; | |
| 4963 char_u *expr_end; | |
| 4964 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4965 *alias = NULL; // default to no alias |
| 7 | 4966 |
| 4967 if ((*arg)[0] == K_SPECIAL && (*arg)[1] == KS_EXTRA | |
| 4968 && (*arg)[2] == (int)KE_SNR) | |
| 4969 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4970 // hard coded <SNR>, already translated |
| 7 | 4971 *arg += 3; |
| 4972 return get_id_len(arg) + 3; | |
| 4973 } | |
| 4974 len = eval_fname_script(*arg); | |
| 4975 if (len > 0) | |
| 4976 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4977 // literal "<SID>", "s:" or "<SNR>" |
| 7 | 4978 *arg += len; |
| 4979 } | |
| 4980 | |
| 4981 /* | |
| 71 | 4982 * Find the end of the name; check for {} construction. |
| 7 | 4983 */ |
| 271 | 4984 p = find_name_end(*arg, &expr_start, &expr_end, |
| 4985 len > 0 ? 0 : FNE_CHECK_START); | |
| 7 | 4986 if (expr_start != NULL) |
| 4987 { | |
| 4988 char_u *temp_string; | |
| 4989 | |
| 4990 if (!evaluate) | |
| 4991 { | |
| 4992 len += (int)(p - *arg); | |
| 4993 *arg = skipwhite(p); | |
| 4994 return len; | |
| 4995 } | |
| 4996 | |
| 4997 /* | |
| 4998 * Include any <SID> etc in the expanded string: | |
| 4999 * Thus the -len here. | |
| 5000 */ | |
| 5001 temp_string = make_expanded_name(*arg - len, expr_start, expr_end, p); | |
| 5002 if (temp_string == NULL) | |
| 159 | 5003 return -1; |
| 7 | 5004 *alias = temp_string; |
| 5005 *arg = skipwhite(p); | |
| 5006 return (int)STRLEN(temp_string); | |
| 5007 } | |
| 5008 | |
| 5009 len += get_id_len(arg); | |
|
15464
3faa7cc8207c
patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents:
15460
diff
changeset
|
5010 // 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
|
5011 // reported at a higher level. |
|
3faa7cc8207c
patch 8.1.0740: Tcl test fails
Bram Moolenaar <Bram@vim.org>
parents:
15460
diff
changeset
|
5012 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
|
5013 semsg(_(e_invexpr2), *arg); |
| 7 | 5014 |
| 5015 return len; | |
| 5016 } | |
| 5017 | |
| 71 | 5018 /* |
| 5019 * Find the end of a variable or function name, taking care of magic braces. | |
| 5020 * If "expr_start" is not NULL then "expr_start" and "expr_end" are set to the | |
| 5021 * start and end of the first magic braces item. | |
| 271 | 5022 * "flags" can have FNE_INCL_BR and FNE_CHECK_START. |
| 71 | 5023 * Return a pointer to just after the name. Equal to "arg" if there is no |
| 5024 * valid name. | |
| 5025 */ | |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
5026 char_u * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5027 find_name_end( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5028 char_u *arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5029 char_u **expr_start, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5030 char_u **expr_end, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5031 int flags) |
| 71 | 5032 { |
| 5033 int mb_nest = 0; | |
| 5034 int br_nest = 0; | |
| 7 | 5035 char_u *p; |
|
7611
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
5036 int len; |
| 7 | 5037 |
| 71 | 5038 if (expr_start != NULL) |
| 5039 { | |
| 5040 *expr_start = NULL; | |
| 5041 *expr_end = NULL; | |
| 5042 } | |
| 5043 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5044 // Quick check for valid starting character. |
| 271 | 5045 if ((flags & FNE_CHECK_START) && !eval_isnamec1(*arg) && *arg != '{') |
| 5046 return arg; | |
| 5047 | |
| 71 | 5048 for (p = arg; *p != NUL |
| 5049 && (eval_isnamec(*p) | |
| 104 | 5050 || *p == '{' |
| 271 | 5051 || ((flags & FNE_INCL_BR) && (*p == '[' || *p == '.')) |
| 71 | 5052 || mb_nest != 0 |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10964
diff
changeset
|
5053 || br_nest != 0); MB_PTR_ADV(p)) |
| 468 | 5054 { |
| 5055 if (*p == '\'') | |
| 5056 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5057 // 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
|
5058 for (p = p + 1; *p != NUL && *p != '\''; MB_PTR_ADV(p)) |
| 468 | 5059 ; |
| 5060 if (*p == NUL) | |
| 5061 break; | |
| 5062 } | |
| 5063 else if (*p == '"') | |
| 5064 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5065 // 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
|
5066 for (p = p + 1; *p != NUL && *p != '"'; MB_PTR_ADV(p)) |
| 468 | 5067 if (*p == '\\' && p[1] != NUL) |
| 5068 ++p; | |
| 5069 if (*p == NUL) | |
| 5070 break; | |
| 5071 } | |
|
7611
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
5072 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
|
5073 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5074 // "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
|
5075 // 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
|
5076 len = (int)(p - arg); |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
5077 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
|
5078 || (len > 1 && p[-1] != '}')) |
|
7611
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
5079 break; |
|
9c420b8db435
commit https://github.com/vim/vim/commit/9bbf63dbf8286fadc0cd6b3428010abb67b1b64d
Christian Brabandt <cb@256bit.org>
parents:
7605
diff
changeset
|
5080 } |
| 468 | 5081 |
| 71 | 5082 if (mb_nest == 0) |
| 5083 { | |
| 5084 if (*p == '[') | |
| 5085 ++br_nest; | |
| 5086 else if (*p == ']') | |
| 5087 --br_nest; | |
| 5088 } | |
| 468 | 5089 |
| 71 | 5090 if (br_nest == 0) |
| 5091 { | |
| 5092 if (*p == '{') | |
| 5093 { | |
| 5094 mb_nest++; | |
| 5095 if (expr_start != NULL && *expr_start == NULL) | |
| 5096 *expr_start = p; | |
| 5097 } | |
| 5098 else if (*p == '}') | |
| 5099 { | |
| 5100 mb_nest--; | |
| 5101 if (expr_start != NULL && mb_nest == 0 && *expr_end == NULL) | |
| 5102 *expr_end = p; | |
| 5103 } | |
| 5104 } | |
| 7 | 5105 } |
| 5106 | |
| 5107 return p; | |
| 5108 } | |
| 5109 | |
| 5110 /* | |
| 159 | 5111 * Expands out the 'magic' {}'s in a variable/function name. |
| 5112 * Note that this can call itself recursively, to deal with | |
| 5113 * constructs like foo{bar}{baz}{bam} | |
| 5114 * The four pointer arguments point to "foo{expre}ss{ion}bar" | |
| 5115 * "in_start" ^ | |
| 5116 * "expr_start" ^ | |
| 5117 * "expr_end" ^ | |
| 5118 * "in_end" ^ | |
| 5119 * | |
| 5120 * Returns a new allocated string, which the caller must free. | |
| 5121 * Returns NULL for failure. | |
| 5122 */ | |
| 5123 static char_u * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5124 make_expanded_name( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5125 char_u *in_start, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5126 char_u *expr_start, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5127 char_u *expr_end, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5128 char_u *in_end) |
| 159 | 5129 { |
| 5130 char_u c1; | |
| 5131 char_u *retval = NULL; | |
| 5132 char_u *temp_result; | |
| 5133 char_u *nextcmd = NULL; | |
| 5134 | |
| 5135 if (expr_end == NULL || in_end == NULL) | |
| 5136 return NULL; | |
| 5137 *expr_start = NUL; | |
| 5138 *expr_end = NUL; | |
| 5139 c1 = *in_end; | |
| 5140 *in_end = NUL; | |
| 5141 | |
| 714 | 5142 temp_result = eval_to_string(expr_start + 1, &nextcmd, FALSE); |
| 159 | 5143 if (temp_result != NULL && nextcmd == NULL) |
| 5144 { | |
|
16764
ef00b6bc186b
patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
16706
diff
changeset
|
5145 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
|
5146 + (in_end - expr_end) + 1); |
| 159 | 5147 if (retval != NULL) |
| 5148 { | |
| 5149 STRCPY(retval, in_start); | |
| 5150 STRCAT(retval, temp_result); | |
| 5151 STRCAT(retval, expr_end + 1); | |
| 5152 } | |
| 5153 } | |
| 5154 vim_free(temp_result); | |
| 5155 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5156 *in_end = c1; // put char back for error messages |
| 159 | 5157 *expr_start = '{'; |
| 5158 *expr_end = '}'; | |
| 5159 | |
| 5160 if (retval != NULL) | |
| 5161 { | |
| 271 | 5162 temp_result = find_name_end(retval, &expr_start, &expr_end, 0); |
| 159 | 5163 if (expr_start != NULL) |
| 5164 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5165 // Further expansion! |
| 159 | 5166 temp_result = make_expanded_name(retval, expr_start, |
| 5167 expr_end, temp_result); | |
| 5168 vim_free(retval); | |
| 5169 retval = temp_result; | |
| 5170 } | |
| 5171 } | |
| 5172 | |
| 5173 return retval; | |
| 5174 } | |
| 5175 | |
| 5176 /* | |
| 7 | 5177 * Return TRUE if character "c" can be used in a variable or function name. |
| 104 | 5178 * Does not include '{' or '}' for magic braces. |
| 7 | 5179 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
5180 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5181 eval_isnamec(int c) |
| 7 | 5182 { |
| 271 | 5183 return (ASCII_ISALNUM(c) || c == '_' || c == ':' || c == AUTOLOAD_CHAR); |
| 5184 } | |
| 5185 | |
| 5186 /* | |
| 5187 * Return TRUE if character "c" can be used as the first character in a | |
| 5188 * variable or function name (excluding '{' and '}'). | |
| 5189 */ | |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
5190 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5191 eval_isnamec1(int c) |
| 271 | 5192 { |
| 5193 return (ASCII_ISALPHA(c) || c == '_'); | |
| 7 | 5194 } |
| 5195 | |
| 5196 /* | |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5197 * Handle: |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5198 * - 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
|
5199 * - ".name" lookup |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5200 * - 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
|
5201 * - method call: var->method() |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5202 * |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5203 * Can all be combined in any order: dict.func(expr)[idx]['func'](expr)->len() |
| 159 | 5204 */ |
|
9562
86af4a48c00a
commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986
Christian Brabandt <cb@256bit.org>
parents:
9560
diff
changeset
|
5205 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5206 handle_subscript( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5207 char_u **arg, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5208 typval_T *rettv, |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5209 int evaluate, // do more than finding the end |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5210 int verbose, // give error messages |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5211 char_u *start_leader, // start of '!' and '-' prefixes |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5212 char_u **end_leaderp) // end of '!' and '-' prefixes |
| 159 | 5213 { |
| 5214 int ret = OK; | |
| 5215 dict_T *selfdict = NULL; | |
| 5216 | |
|
17448
f8cd16838434
patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
5217 // "." is ".name" lookup when we found a dict or when evaluating and |
|
f8cd16838434
patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
5218 // scriptversion is at least 2, where string concatenation is "..". |
| 159 | 5219 while (ret == OK |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5220 && (((**arg == '[' |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5221 || (**arg == '.' && (rettv->v_type == VAR_DICT |
|
17448
f8cd16838434
patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
5222 || (!evaluate |
|
f8cd16838434
patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
5223 && (*arg)[1] != '.' |
|
f8cd16838434
patch 8.1.1722: error when scriptversion is 2 a making a dictionary access
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
5224 && current_sctx.sc_version >= 2))) |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5225 || (**arg == '(' && (!evaluate || rettv->v_type == VAR_FUNC |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5226 || rettv->v_type == VAR_PARTIAL))) |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5227 && !VIM_ISWHITE(*(*arg - 1))) |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5228 || (**arg == '-' && (*arg)[1] == '>'))) |
| 159 | 5229 { |
| 5230 if (**arg == '(') | |
| 5231 { | |
|
17674
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
5232 ret = call_func_rettv(arg, rettv, evaluate, selfdict, NULL); |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
5233 |
|
06c3e15ad84d
patch 8.1.1834: cannot use a lambda as a method
Bram Moolenaar <Bram@vim.org>
parents:
17661
diff
changeset
|
5234 // 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
|
5235 // 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
|
5236 // but not caught. |
| 159 | 5237 if (aborting()) |
| 5238 { | |
| 5239 if (ret == OK) | |
| 5240 clear_tv(rettv); | |
| 5241 ret = FAIL; | |
| 5242 } | |
| 5243 dict_unref(selfdict); | |
| 5244 selfdict = NULL; | |
| 5245 } | |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5246 else if (**arg == '-') |
|
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5247 { |
|
17763
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5248 // Expression "-1.0->method()" applies the leader "-" before |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5249 // applying ->. |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5250 if (evaluate && *end_leaderp > start_leader) |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5251 ret = eval7_leader(rettv, start_leader, end_leaderp); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5252 if (ret == OK) |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5253 { |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5254 if ((*arg)[2] == '{') |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5255 // expr->{lambda}() |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5256 ret = eval_lambda(arg, rettv, evaluate, verbose); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5257 else |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5258 // expr->name() |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5259 ret = eval_method(arg, rettv, evaluate, verbose); |
|
117c7795a979
patch 8.1.1878: negative float before method not parsed correctly
Bram Moolenaar <Bram@vim.org>
parents:
17674
diff
changeset
|
5260 } |
|
17612
e259d11e2900
patch 8.1.1803: all builtin functions are global
Bram Moolenaar <Bram@vim.org>
parents:
17606
diff
changeset
|
5261 } |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5262 else // **arg == '[' || **arg == '.' |
| 159 | 5263 { |
| 5264 dict_unref(selfdict); | |
| 5265 if (rettv->v_type == VAR_DICT) | |
| 5266 { | |
| 5267 selfdict = rettv->vval.v_dict; | |
| 5268 if (selfdict != NULL) | |
| 5269 ++selfdict->dv_refcount; | |
| 5270 } | |
| 5271 else | |
| 5272 selfdict = NULL; | |
| 5273 if (eval_index(arg, rettv, evaluate, verbose) == FAIL) | |
| 5274 { | |
| 5275 clear_tv(rettv); | |
| 5276 ret = FAIL; | |
| 5277 } | |
| 5278 } | |
| 5279 } | |
|
8575
b5209a4e5baf
commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents:
8554
diff
changeset
|
5280 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5281 // 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
|
5282 // 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
|
5283 // explicitly (pt_auto is FALSE). |
|
9104
2242a5766417
commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents:
9093
diff
changeset
|
5284 if (selfdict != NULL |
|
2242a5766417
commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents:
9093
diff
changeset
|
5285 && (rettv->v_type == VAR_FUNC |
|
2242a5766417
commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents:
9093
diff
changeset
|
5286 || (rettv->v_type == VAR_PARTIAL |
|
2242a5766417
commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents:
9093
diff
changeset
|
5287 && (rettv->vval.v_partial->pt_auto |
|
2242a5766417
commit https://github.com/vim/vim/commit/1d429610bf9e99a6252be8abbc910d6667e4d1da
Christian Brabandt <cb@256bit.org>
parents:
9093
diff
changeset
|
5288 || 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
|
5289 selfdict = make_partial(selfdict, rettv); |
|
8575
b5209a4e5baf
commit https://github.com/vim/vim/commit/ab1fa3955f25dfdb7e329c3bd76e175c93c8cb5e
Christian Brabandt <cb@256bit.org>
parents:
8554
diff
changeset
|
5290 |
| 159 | 5291 dict_unref(selfdict); |
| 5292 return ret; | |
| 5293 } | |
| 5294 | |
| 5295 /* | |
| 1624 | 5296 * Allocate memory for a variable type-value, and make it empty (0 or NULL |
| 56 | 5297 * value). |
| 5298 */ | |
|
7877
7fbd2de703a9
commit https://github.com/vim/vim/commit/11e0afa00a8e6c0aa1d50f760b5d5cb62dade038
Christian Brabandt <cb@256bit.org>
parents:
7864
diff
changeset
|
5299 typval_T * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5300 alloc_tv(void) |
| 56 | 5301 { |
|
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
|
5302 return ALLOC_CLEAR_ONE(typval_T); |
| 56 | 5303 } |
| 5304 | |
| 5305 /* | |
| 5306 * Allocate memory for a variable type-value, and assign a string to it. | |
| 7 | 5307 * The string "s" must have been allocated, it is consumed. |
| 5308 * Return NULL for out of memory, the variable otherwise. | |
| 5309 */ | |
|
17885
5e2d8840da11
patch 8.1.1939: code for handling v: variables in generic eval file
Bram Moolenaar <Bram@vim.org>
parents:
17873
diff
changeset
|
5310 typval_T * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5311 alloc_string_tv(char_u *s) |
| 7 | 5312 { |
| 137 | 5313 typval_T *rettv; |
| 71 | 5314 |
| 5315 rettv = alloc_tv(); | |
| 5316 if (rettv != NULL) | |
| 5317 { | |
| 5318 rettv->v_type = VAR_STRING; | |
| 5319 rettv->vval.v_string = s; | |
| 7 | 5320 } |
| 5321 else | |
| 5322 vim_free(s); | |
| 71 | 5323 return rettv; |
| 7 | 5324 } |
| 5325 | |
| 5326 /* | |
| 56 | 5327 * Free the memory for a variable type-value. |
| 5328 */ | |
| 625 | 5329 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5330 free_tv(typval_T *varp) |
| 7 | 5331 { |
| 5332 if (varp != NULL) | |
| 5333 { | |
| 56 | 5334 switch (varp->v_type) |
| 5335 { | |
| 117 | 5336 case VAR_FUNC: |
| 5337 func_unref(varp->vval.v_string); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5338 // FALLTHROUGH |
| 56 | 5339 case VAR_STRING: |
| 5340 vim_free(varp->vval.v_string); | |
| 5341 break; | |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5342 case VAR_PARTIAL: |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5343 partial_unref(varp->vval.v_partial); |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5344 break; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5345 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5346 blob_unref(varp->vval.v_blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5347 break; |
| 56 | 5348 case VAR_LIST: |
| 5349 list_unref(varp->vval.v_list); | |
| 5350 break; | |
| 117 | 5351 case VAR_DICT: |
| 5352 dict_unref(varp->vval.v_dict); | |
| 5353 break; | |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5354 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5355 #ifdef FEAT_JOB_CHANNEL |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5356 job_unref(varp->vval.v_job); |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5357 break; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5358 #endif |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5359 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5360 #ifdef FEAT_JOB_CHANNEL |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5361 channel_unref(varp->vval.v_channel); |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5362 break; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5363 #endif |
| 156 | 5364 case VAR_NUMBER: |
| 1624 | 5365 case VAR_FLOAT: |
| 156 | 5366 case VAR_UNKNOWN: |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5367 case VAR_BOOL: |
|
7768
3d8e4e0d7127
commit https://github.com/vim/vim/commit/6650a694547eb744afa060ec62dd8270e99db9f2
Christian Brabandt <cb@256bit.org>
parents:
7765
diff
changeset
|
5368 case VAR_SPECIAL: |
| 156 | 5369 break; |
| 56 | 5370 } |
| 7 | 5371 vim_free(varp); |
| 5372 } | |
| 5373 } | |
| 5374 | |
| 5375 /* | |
| 5376 * Free the memory for a variable value and set the value to NULL or 0. | |
| 5377 */ | |
| 446 | 5378 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5379 clear_tv(typval_T *varp) |
| 7 | 5380 { |
| 5381 if (varp != NULL) | |
| 5382 { | |
| 56 | 5383 switch (varp->v_type) |
| 5384 { | |
| 117 | 5385 case VAR_FUNC: |
| 5386 func_unref(varp->vval.v_string); | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5387 // FALLTHROUGH |
| 56 | 5388 case VAR_STRING: |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13037
diff
changeset
|
5389 VIM_CLEAR(varp->vval.v_string); |
| 56 | 5390 break; |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5391 case VAR_PARTIAL: |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5392 partial_unref(varp->vval.v_partial); |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5393 varp->vval.v_partial = NULL; |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5394 break; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5395 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5396 blob_unref(varp->vval.v_blob); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5397 varp->vval.v_blob = NULL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5398 break; |
| 56 | 5399 case VAR_LIST: |
| 5400 list_unref(varp->vval.v_list); | |
| 121 | 5401 varp->vval.v_list = NULL; |
| 56 | 5402 break; |
| 100 | 5403 case VAR_DICT: |
| 5404 dict_unref(varp->vval.v_dict); | |
| 121 | 5405 varp->vval.v_dict = NULL; |
| 100 | 5406 break; |
| 71 | 5407 case VAR_NUMBER: |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5408 case VAR_BOOL: |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
5409 case VAR_SPECIAL: |
| 56 | 5410 varp->vval.v_number = 0; |
| 5411 break; | |
| 1624 | 5412 case VAR_FLOAT: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5413 #ifdef FEAT_FLOAT |
| 1624 | 5414 varp->vval.v_float = 0.0; |
| 5415 break; | |
| 5416 #endif | |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5417 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5418 #ifdef FEAT_JOB_CHANNEL |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5419 job_unref(varp->vval.v_job); |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5420 varp->vval.v_job = NULL; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5421 #endif |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5422 break; |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5423 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5424 #ifdef FEAT_JOB_CHANNEL |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5425 channel_unref(varp->vval.v_channel); |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5426 varp->vval.v_channel = NULL; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5427 #endif |
| 71 | 5428 case VAR_UNKNOWN: |
| 5429 break; | |
| 5430 } | |
| 151 | 5431 varp->v_lock = 0; |
| 71 | 5432 } |
| 5433 } | |
| 5434 | |
| 5435 /* | |
| 5436 * Set the value of a variable to NULL without freeing items. | |
| 5437 */ | |
|
9571
5eaa708ab50d
commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents:
9562
diff
changeset
|
5438 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5439 init_tv(typval_T *varp) |
| 71 | 5440 { |
| 5441 if (varp != NULL) | |
| 137 | 5442 vim_memset(varp, 0, sizeof(typval_T)); |
| 7 | 5443 } |
| 5444 | |
| 5445 /* | |
| 5446 * Get the number value of a variable. | |
| 5447 * If it is a String variable, uses vim_str2nr(). | |
| 323 | 5448 * For incompatible types, return 0. |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5449 * tv_get_number_chk() is similar to tv_get_number(), but informs the |
| 323 | 5450 * caller of incompatible types: it sets *denote to TRUE if "denote" |
| 5451 * is not NULL or returns -1 otherwise. | |
| 7 | 5452 */ |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
5453 varnumber_T |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5454 tv_get_number(typval_T *varp) |
| 56 | 5455 { |
| 323 | 5456 int error = FALSE; |
| 5457 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5458 return tv_get_number_chk(varp, &error); // return 0L on error |
| 323 | 5459 } |
| 5460 | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
5461 varnumber_T |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5462 tv_get_number_chk(typval_T *varp, int *denote) |
| 323 | 5463 { |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
5464 varnumber_T n = 0L; |
| 56 | 5465 |
| 5466 switch (varp->v_type) | |
| 5467 { | |
| 5468 case VAR_NUMBER: | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
5469 return varp->vval.v_number; |
| 1624 | 5470 case VAR_FLOAT: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5471 #ifdef FEAT_FLOAT |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5472 emsg(_("E805: Using a Float as a Number")); |
| 1624 | 5473 break; |
| 5474 #endif | |
| 56 | 5475 case VAR_FUNC: |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5476 case VAR_PARTIAL: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5477 emsg(_("E703: Using a Funcref as a Number")); |
| 56 | 5478 break; |
| 5479 case VAR_STRING: | |
| 5480 if (varp->vval.v_string != NULL) | |
| 5481 vim_str2nr(varp->vval.v_string, NULL, NULL, | |
|
16706
77bcb5055fec
patch 8.1.1355: obvious mistakes are accepted as valid expressions
Bram Moolenaar <Bram@vim.org>
parents:
16704
diff
changeset
|
5482 STR2NR_ALL, &n, NULL, 0, FALSE); |
| 323 | 5483 return n; |
| 97 | 5484 case VAR_LIST: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5485 emsg(_("E745: Using a List as a Number")); |
| 97 | 5486 break; |
| 117 | 5487 case VAR_DICT: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5488 emsg(_("E728: Using a Dictionary as a Number")); |
| 117 | 5489 break; |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5490 case VAR_BOOL: |
|
7730
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
5491 case VAR_SPECIAL: |
|
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
5492 return varp->vval.v_number == VVAL_TRUE ? 1 : 0; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5493 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5494 #ifdef FEAT_JOB_CHANNEL |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5495 emsg(_("E910: Using a Job as a Number")); |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5496 break; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5497 #endif |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5498 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5499 #ifdef FEAT_JOB_CHANNEL |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5500 emsg(_("E913: Using a Channel as a Number")); |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5501 break; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5502 #endif |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5503 case VAR_BLOB: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5504 emsg(_("E974: Using a Blob as a Number")); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5505 break; |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5506 case VAR_UNKNOWN: |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5507 internal_error("tv_get_number(UNKNOWN)"); |
| 56 | 5508 break; |
| 5509 } | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5510 if (denote == NULL) // useful for values that must be unsigned |
| 323 | 5511 n = -1; |
| 5512 else | |
| 5513 *denote = TRUE; | |
| 56 | 5514 return n; |
| 7 | 5515 } |
| 5516 | |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5517 #ifdef FEAT_FLOAT |
|
9571
5eaa708ab50d
commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents:
9562
diff
changeset
|
5518 float_T |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5519 tv_get_float(typval_T *varp) |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5520 { |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5521 switch (varp->v_type) |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5522 { |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5523 case VAR_NUMBER: |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5524 return (float_T)(varp->vval.v_number); |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5525 case VAR_FLOAT: |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5526 return varp->vval.v_float; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5527 case VAR_FUNC: |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5528 case VAR_PARTIAL: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5529 emsg(_("E891: Using a Funcref as a Float")); |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5530 break; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5531 case VAR_STRING: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5532 emsg(_("E892: Using a String as a Float")); |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5533 break; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5534 case VAR_LIST: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5535 emsg(_("E893: Using a List as a Float")); |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5536 break; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5537 case VAR_DICT: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5538 emsg(_("E894: Using a Dictionary as a Float")); |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5539 break; |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5540 case VAR_BOOL: |
|
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5541 emsg(_("E362: Using a boolean value as a Float")); |
|
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5542 break; |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5543 case VAR_SPECIAL: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5544 emsg(_("E907: Using a special value as a Float")); |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5545 break; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5546 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5547 # ifdef FEAT_JOB_CHANNEL |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5548 emsg(_("E911: Using a Job as a Float")); |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5549 break; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5550 # endif |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5551 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5552 # ifdef FEAT_JOB_CHANNEL |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5553 emsg(_("E914: Using a Channel as a Float")); |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5554 break; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5555 # endif |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5556 case VAR_BLOB: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5557 emsg(_("E975: Using a Blob as a Float")); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5558 break; |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5559 case VAR_UNKNOWN: |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5560 internal_error("tv_get_float(UNKNOWN)"); |
|
7689
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5561 break; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5562 } |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5563 return 0; |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5564 } |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5565 #endif |
|
20dc2763a3b9
commit https://github.com/vim/vim/commit/f7edf40448a09e04eec3bd05e043f7fea93b07c9
Christian Brabandt <cb@256bit.org>
parents:
7683
diff
changeset
|
5566 |
| 7 | 5567 /* |
| 5568 * Get the string value of a variable. | |
| 5569 * If it is a Number variable, the number is converted into a string. | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5570 * tv_get_string() uses a single, static buffer. YOU CAN ONLY USE IT ONCE! |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5571 * tv_get_string_buf() uses a given buffer. |
| 7 | 5572 * If the String variable has never been set, return an empty string. |
| 5573 * Never returns NULL; | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5574 * tv_get_string_chk() and tv_get_string_buf_chk() are similar, but return |
| 323 | 5575 * NULL on error. |
| 7 | 5576 */ |
|
8498
42277980a76d
commit https://github.com/vim/vim/commit/8e2c942ce49f2555d7dc2088cf3aa856820c5e32
Christian Brabandt <cb@256bit.org>
parents:
8493
diff
changeset
|
5577 char_u * |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5578 tv_get_string(typval_T *varp) |
| 7 | 5579 { |
| 5580 static char_u mybuf[NUMBUFLEN]; | |
| 5581 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5582 return tv_get_string_buf(varp, mybuf); |
| 7 | 5583 } |
| 5584 | |
|
8498
42277980a76d
commit https://github.com/vim/vim/commit/8e2c942ce49f2555d7dc2088cf3aa856820c5e32
Christian Brabandt <cb@256bit.org>
parents:
8493
diff
changeset
|
5585 char_u * |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5586 tv_get_string_buf(typval_T *varp, char_u *buf) |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5587 { |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5588 char_u *res = tv_get_string_buf_chk(varp, buf); |
| 323 | 5589 |
| 5590 return res != NULL ? res : (char_u *)""; | |
| 5591 } | |
| 5592 | |
| 5810 | 5593 /* |
| 5594 * Careful: This uses a single, static buffer. YOU CAN ONLY USE IT ONCE! | |
| 5595 */ | |
| 449 | 5596 char_u * |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5597 tv_get_string_chk(typval_T *varp) |
| 323 | 5598 { |
| 5599 static char_u mybuf[NUMBUFLEN]; | |
| 5600 | |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5601 return tv_get_string_buf_chk(varp, mybuf); |
| 323 | 5602 } |
| 5603 | |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
5604 char_u * |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
5605 tv_get_string_buf_chk(typval_T *varp, char_u *buf) |
| 323 | 5606 { |
| 56 | 5607 switch (varp->v_type) |
| 5608 { | |
| 5609 case VAR_NUMBER: | |
|
9389
32e34e574716
commit https://github.com/vim/vim/commit/22fcfad29276bd5f317faf516637dcd491b96a12
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
5610 vim_snprintf((char *)buf, NUMBUFLEN, "%lld", |
|
15517
2ad5f0ffaa2e
patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents:
15515
diff
changeset
|
5611 (long_long_T)varp->vval.v_number); |
| 56 | 5612 return buf; |
| 5613 case VAR_FUNC: | |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5614 case VAR_PARTIAL: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5615 emsg(_("E729: using Funcref as a String")); |
| 56 | 5616 break; |
| 5617 case VAR_LIST: | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5618 emsg(_("E730: using List as a String")); |
| 100 | 5619 break; |
| 5620 case VAR_DICT: | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5621 emsg(_("E731: using Dictionary as a String")); |
| 56 | 5622 break; |
| 1624 | 5623 case VAR_FLOAT: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5624 #ifdef FEAT_FLOAT |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5625 emsg(_(e_float_as_string)); |
| 1624 | 5626 break; |
| 5627 #endif | |
| 56 | 5628 case VAR_STRING: |
| 5629 if (varp->vval.v_string != NULL) | |
| 5630 return varp->vval.v_string; | |
| 323 | 5631 return (char_u *)""; |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5632 case VAR_BOOL: |
|
7730
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
5633 case VAR_SPECIAL: |
|
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
5634 STRCPY(buf, get_var_special_name(varp->vval.v_number)); |
|
80ce794827c4
commit https://github.com/vim/vim/commit/17a13437c9414a8693369a97f3be2fc8ad48c12e
Christian Brabandt <cb@256bit.org>
parents:
7720
diff
changeset
|
5635 return buf; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5636 case VAR_BLOB: |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5637 emsg(_("E976: using Blob as a String")); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5638 break; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5639 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5640 #ifdef FEAT_JOB_CHANNEL |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5641 { |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5642 job_T *job = varp->vval.v_job; |
|
8424
be45d4921f1f
commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents:
8386
diff
changeset
|
5643 char *status; |
|
be45d4921f1f
commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents:
8386
diff
changeset
|
5644 |
|
be45d4921f1f
commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents:
8386
diff
changeset
|
5645 if (job == NULL) |
|
be45d4921f1f
commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents:
8386
diff
changeset
|
5646 return (char_u *)"no process"; |
|
be45d4921f1f
commit https://github.com/vim/vim/commit/839fd11d7ed1a96bace3159c4d1861658864aae3
Christian Brabandt <cb@256bit.org>
parents:
8386
diff
changeset
|
5647 status = job->jv_status == JOB_FAILED ? "fail" |
|
10386
d3f0946b4a80
commit https://github.com/vim/vim/commit/7df915d113ac1981792c50e8b000c9f5f784b78b
Christian Brabandt <cb@256bit.org>
parents:
10381
diff
changeset
|
5648 : job->jv_status >= JOB_ENDED ? "dead" |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5649 : "run"; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5650 # ifdef UNIX |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5651 vim_snprintf((char *)buf, NUMBUFLEN, |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5652 "process %ld %s", (long)job->jv_pid, status); |
|
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15790
diff
changeset
|
5653 # elif defined(MSWIN) |
|
8001
e5dbeb923ce6
commit https://github.com/vim/vim/commit/4d8747cdfc13843a5680dc8340fbeb6d32e7b626
Christian Brabandt <cb@256bit.org>
parents:
7995
diff
changeset
|
5654 vim_snprintf((char *)buf, NUMBUFLEN, |
|
8023
75e0831549f1
commit https://github.com/vim/vim/commit/76467dfcafcf295fd987f712730774c6f55317d3
Christian Brabandt <cb@256bit.org>
parents:
8019
diff
changeset
|
5655 "process %ld %s", |
|
75e0831549f1
commit https://github.com/vim/vim/commit/76467dfcafcf295fd987f712730774c6f55317d3
Christian Brabandt <cb@256bit.org>
parents:
8019
diff
changeset
|
5656 (long)job->jv_proc_info.dwProcessId, |
|
8001
e5dbeb923ce6
commit https://github.com/vim/vim/commit/4d8747cdfc13843a5680dc8340fbeb6d32e7b626
Christian Brabandt <cb@256bit.org>
parents:
7995
diff
changeset
|
5657 status); |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5658 # else |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5659 // fall-back |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5660 vim_snprintf((char *)buf, NUMBUFLEN, "process ? %s", status); |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5661 # endif |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5662 return buf; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5663 } |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5664 #endif |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5665 break; |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5666 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5667 #ifdef FEAT_JOB_CHANNEL |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5668 { |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5669 channel_T *channel = varp->vval.v_channel; |
|
10235
ad6851687158
commit https://github.com/vim/vim/commit/0e77b7691ee7c477facb4c9d9162c8603ada2d84
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
5670 char *status = channel_status(channel, -1); |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5671 |
|
8070
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5672 if (channel == NULL) |
|
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5673 vim_snprintf((char *)buf, NUMBUFLEN, "channel %s", status); |
|
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5674 else |
|
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5675 vim_snprintf((char *)buf, NUMBUFLEN, |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5676 "channel %d %s", channel->ch_id, status); |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5677 return buf; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5678 } |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5679 #endif |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5680 break; |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5681 case VAR_UNKNOWN: |
|
19085
fd1070ff696b
patch 8.2.0103: using null object with execute() has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19081
diff
changeset
|
5682 emsg(_(e_inval_string)); |
| 56 | 5683 break; |
| 5684 } | |
| 323 | 5685 return NULL; |
| 7 | 5686 } |
| 5687 | |
| 5688 /* | |
|
15219
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5689 * Turn a typeval into a string. Similar to tv_get_string_buf() but uses |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5690 * string() on Dict, List, etc. |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5691 */ |
|
17789
0f7ae8010787
patch 8.1.1891: functions used in one file are global
Bram Moolenaar <Bram@vim.org>
parents:
17781
diff
changeset
|
5692 static char_u * |
|
15219
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5693 tv_stringify(typval_T *varp, char_u *buf) |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5694 { |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5695 if (varp->v_type == VAR_LIST |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5696 || varp->v_type == VAR_DICT |
|
19081
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
5697 || varp->v_type == VAR_BLOB |
|
15219
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5698 || varp->v_type == VAR_FUNC |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5699 || varp->v_type == VAR_PARTIAL |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5700 || varp->v_type == VAR_FLOAT) |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5701 { |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5702 typval_T tmp; |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5703 |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5704 f_string(varp, &tmp); |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5705 tv_get_string_buf(&tmp, buf); |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5706 clear_tv(varp); |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5707 *varp = tmp; |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5708 return tmp.vval.v_string; |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5709 } |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5710 return tv_get_string_buf(varp, buf); |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5711 } |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5712 |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
5713 /* |
|
15780
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5714 * Return TRUE if typeval "tv" and its value are set to be locked (immutable). |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5715 * Also give an error message, using "name" or _("name") when use_gettext is |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5716 * TRUE. |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5717 */ |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5718 static int |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5719 tv_check_lock(typval_T *tv, char_u *name, int use_gettext) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5720 { |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5721 int lock = 0; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5722 |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5723 switch (tv->v_type) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5724 { |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5725 case VAR_BLOB: |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5726 if (tv->vval.v_blob != NULL) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5727 lock = tv->vval.v_blob->bv_lock; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5728 break; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5729 case VAR_LIST: |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5730 if (tv->vval.v_list != NULL) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5731 lock = tv->vval.v_list->lv_lock; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5732 break; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5733 case VAR_DICT: |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5734 if (tv->vval.v_dict != NULL) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5735 lock = tv->vval.v_dict->dv_lock; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5736 break; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5737 default: |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5738 break; |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5739 } |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5740 return var_check_lock(tv->v_lock, name, use_gettext) |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5741 || (lock != 0 && var_check_lock(lock, name, use_gettext)); |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5742 } |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5743 |
|
5b6c3c7feba8
patch 8.1.0897: can modify a:000 when using a reference
Bram Moolenaar <Bram@vim.org>
parents:
15770
diff
changeset
|
5744 /* |
| 137 | 5745 * Copy the values from typval_T "from" to typval_T "to". |
| 56 | 5746 * When needed allocates string or increases reference count. |
|
15581
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
5747 * Does not make a copy of a list, blob or dict but copies the reference! |
| 1772 | 5748 * It is OK for "from" and "to" to point to the same item. This is used to |
| 5749 * make a copy later. | |
| 56 | 5750 */ |
|
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2045
diff
changeset
|
5751 void |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5752 copy_tv(typval_T *from, typval_T *to) |
| 56 | 5753 { |
| 5754 to->v_type = from->v_type; | |
| 151 | 5755 to->v_lock = 0; |
| 56 | 5756 switch (from->v_type) |
| 5757 { | |
| 5758 case VAR_NUMBER: | |
|
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
19087
diff
changeset
|
5759 case VAR_BOOL: |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
5760 case VAR_SPECIAL: |
| 56 | 5761 to->vval.v_number = from->vval.v_number; |
| 5762 break; | |
| 1624 | 5763 case VAR_FLOAT: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5764 #ifdef FEAT_FLOAT |
| 1624 | 5765 to->vval.v_float = from->vval.v_float; |
| 5766 break; | |
| 5767 #endif | |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5768 case VAR_JOB: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5769 #ifdef FEAT_JOB_CHANNEL |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5770 to->vval.v_job = from->vval.v_job; |
|
8174
f2286ff0c102
commit https://github.com/vim/vim/commit/ee1cffc07a42441924c5353af7fd7ab6e97e5aae
Christian Brabandt <cb@256bit.org>
parents:
8170
diff
changeset
|
5771 if (to->vval.v_job != NULL) |
|
f2286ff0c102
commit https://github.com/vim/vim/commit/ee1cffc07a42441924c5353af7fd7ab6e97e5aae
Christian Brabandt <cb@256bit.org>
parents:
8170
diff
changeset
|
5772 ++to->vval.v_job->jv_refcount; |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5773 break; |
|
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5774 #endif |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5775 case VAR_CHANNEL: |
|
8493
caed4b2d305f
commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents:
8491
diff
changeset
|
5776 #ifdef FEAT_JOB_CHANNEL |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5777 to->vval.v_channel = from->vval.v_channel; |
|
8070
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5778 if (to->vval.v_channel != NULL) |
|
e4c3f6720b03
commit https://github.com/vim/vim/commit/5cefd4098204b4677387511b586673649f2fab48
Christian Brabandt <cb@256bit.org>
parents:
8062
diff
changeset
|
5779 ++to->vval.v_channel->ch_refcount; |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5780 break; |
|
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5781 #endif |
| 56 | 5782 case VAR_STRING: |
| 5783 case VAR_FUNC: | |
| 5784 if (from->vval.v_string == NULL) | |
| 5785 to->vval.v_string = NULL; | |
| 5786 else | |
| 117 | 5787 { |
| 56 | 5788 to->vval.v_string = vim_strsave(from->vval.v_string); |
| 117 | 5789 if (from->v_type == VAR_FUNC) |
| 5790 func_ref(to->vval.v_string); | |
| 5791 } | |
| 56 | 5792 break; |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5793 case VAR_PARTIAL: |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5794 if (from->vval.v_partial == NULL) |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5795 to->vval.v_partial = NULL; |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5796 else |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5797 { |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5798 to->vval.v_partial = from->vval.v_partial; |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5799 ++to->vval.v_partial->pt_refcount; |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5800 } |
|
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5801 break; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5802 case VAR_BLOB: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5803 if (from->vval.v_blob == NULL) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5804 to->vval.v_blob = NULL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5805 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5806 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5807 to->vval.v_blob = from->vval.v_blob; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5808 ++to->vval.v_blob->bv_refcount; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5809 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
5810 break; |
| 56 | 5811 case VAR_LIST: |
| 5812 if (from->vval.v_list == NULL) | |
| 5813 to->vval.v_list = NULL; | |
| 5814 else | |
| 5815 { | |
| 5816 to->vval.v_list = from->vval.v_list; | |
| 5817 ++to->vval.v_list->lv_refcount; | |
| 5818 } | |
| 5819 break; | |
| 100 | 5820 case VAR_DICT: |
| 5821 if (from->vval.v_dict == NULL) | |
| 5822 to->vval.v_dict = NULL; | |
| 5823 else | |
| 5824 { | |
| 5825 to->vval.v_dict = from->vval.v_dict; | |
| 5826 ++to->vval.v_dict->dv_refcount; | |
| 5827 } | |
| 5828 break; | |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5829 case VAR_UNKNOWN: |
|
10359
66f1b5bf3fa6
commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents:
10259
diff
changeset
|
5830 internal_error("copy_tv(UNKNOWN)"); |
| 56 | 5831 break; |
| 5832 } | |
| 7 | 5833 } |
| 5834 | |
| 5835 /* | |
| 104 | 5836 * Make a copy of an item. |
| 5837 * Lists and Dictionaries are also copied. A deep copy if "deep" is set. | |
| 165 | 5838 * For deepcopy() "copyID" is zero for a full copy or the ID for when a |
| 5839 * reference to an already copied list/dict can be used. | |
| 5840 * Returns FAIL or OK. | |
| 5841 */ | |
|
9556
afaff1d283d3
commit https://github.com/vim/vim/commit/cd52459c387785796713826c63174cdeed295dd4
Christian Brabandt <cb@256bit.org>
parents:
9527
diff
changeset
|
5842 int |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5843 item_copy( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5844 typval_T *from, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5845 typval_T *to, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5846 int deep, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5847 int copyID) |
| 104 | 5848 { |
| 5849 static int recurse = 0; | |
| 165 | 5850 int ret = OK; |
| 104 | 5851 |
| 137 | 5852 if (recurse >= DICT_MAXNEST) |
| 104 | 5853 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5854 emsg(_("E698: variable nested too deep for making a copy")); |
| 165 | 5855 return FAIL; |
| 104 | 5856 } |
| 5857 ++recurse; | |
| 5858 | |
| 5859 switch (from->v_type) | |
| 5860 { | |
| 5861 case VAR_NUMBER: | |
| 1624 | 5862 case VAR_FLOAT: |
| 104 | 5863 case VAR_STRING: |
| 5864 case VAR_FUNC: | |
|
8538
c337c813c64d
commit https://github.com/vim/vim/commit/1735bc988c546cc962c5f94792815b4d7cb79710
Christian Brabandt <cb@256bit.org>
parents:
8536
diff
changeset
|
5865 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
|
5866 case VAR_BOOL: |
|
7862
d4fec9208e7e
commit https://github.com/vim/vim/commit/155500077c80cdb5d9c63996000c011b66a676bf
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
5867 case VAR_SPECIAL: |
|
7957
b74549818500
commit https://github.com/vim/vim/commit/835dc636a5350f610b62f110227d2363b5b2880a
Christian Brabandt <cb@256bit.org>
parents:
7955
diff
changeset
|
5868 case VAR_JOB: |
|
8041
c6443e78cf2d
commit https://github.com/vim/vim/commit/7707344ddec9069b495b2a5ed41f2104466fc88b
Christian Brabandt <cb@256bit.org>
parents:
8031
diff
changeset
|
5869 case VAR_CHANNEL: |
| 104 | 5870 copy_tv(from, to); |
| 5871 break; | |
| 5872 case VAR_LIST: | |
| 5873 to->v_type = VAR_LIST; | |
| 151 | 5874 to->v_lock = 0; |
| 165 | 5875 if (from->vval.v_list == NULL) |
| 5876 to->vval.v_list = NULL; | |
| 5877 else if (copyID != 0 && from->vval.v_list->lv_copyID == copyID) | |
| 5878 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5879 // use the copy made earlier |
| 165 | 5880 to->vval.v_list = from->vval.v_list->lv_copylist; |
| 5881 ++to->vval.v_list->lv_refcount; | |
| 5882 } | |
| 5883 else | |
| 5884 to->vval.v_list = list_copy(from->vval.v_list, deep, copyID); | |
| 5885 if (to->vval.v_list == NULL) | |
| 5886 ret = FAIL; | |
| 104 | 5887 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
|
5888 case VAR_BLOB: |
|
15581
c2382f0d1279
patch 8.1.0798: changing a blob while iterating over it works strangely
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
5889 ret = blob_copy(from, 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
|
5890 break; |
| 104 | 5891 case VAR_DICT: |
| 5892 to->v_type = VAR_DICT; | |
| 151 | 5893 to->v_lock = 0; |
| 165 | 5894 if (from->vval.v_dict == NULL) |
| 5895 to->vval.v_dict = NULL; | |
| 5896 else if (copyID != 0 && from->vval.v_dict->dv_copyID == copyID) | |
| 5897 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5898 // use the copy made earlier |
| 165 | 5899 to->vval.v_dict = from->vval.v_dict->dv_copydict; |
| 5900 ++to->vval.v_dict->dv_refcount; | |
| 5901 } | |
| 5902 else | |
| 5903 to->vval.v_dict = dict_copy(from->vval.v_dict, deep, copyID); | |
| 5904 if (to->vval.v_dict == NULL) | |
| 5905 ret = FAIL; | |
| 104 | 5906 break; |
|
7943
e875f0fbd9c0
commit https://github.com/vim/vim/commit/a03f23351588f04276469cd7742b7ec655bb604b
Christian Brabandt <cb@256bit.org>
parents:
7937
diff
changeset
|
5907 case VAR_UNKNOWN: |
|
10359
66f1b5bf3fa6
commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents:
10259
diff
changeset
|
5908 internal_error("item_copy(UNKNOWN)"); |
| 165 | 5909 ret = FAIL; |
| 104 | 5910 } |
| 5911 --recurse; | |
| 165 | 5912 return ret; |
| 104 | 5913 } |
| 5914 | |
| 5915 /* | |
| 7 | 5916 * ":echo expr1 ..." print each argument separated with a space, add a |
| 5917 * newline at the end. | |
| 5918 * ":echon expr1 ..." print each argument plain. | |
| 5919 */ | |
| 5920 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
5921 ex_echo(exarg_T *eap) |
| 7 | 5922 { |
| 5923 char_u *arg = eap->arg; | |
| 137 | 5924 typval_T rettv; |
| 56 | 5925 char_u *tofree; |
| 7 | 5926 char_u *p; |
| 5927 int needclr = TRUE; | |
| 5928 int atstart = TRUE; | |
| 80 | 5929 char_u numbuf[NUMBUFLEN]; |
|
15079
a527110d5f56
patch 8.1.0550: expression evaluation may repeat an error message
Bram Moolenaar <Bram@vim.org>
parents:
14968
diff
changeset
|
5930 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
|
5931 int called_emsg_before = called_emsg; |
| 7 | 5932 |
| 5933 if (eap->skip) | |
| 5934 ++emsg_skip; | |
| 5935 while (*arg != NUL && *arg != '|' && *arg != '\n' && !got_int) | |
| 5936 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5937 // 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
|
5938 // still need to be cleared. E.g., "echo 22,44". |
| 1624 | 5939 need_clr_eos = needclr; |
| 5940 | |
| 7 | 5941 p = arg; |
| 71 | 5942 if (eval1(&arg, &rettv, !eap->skip) == FAIL) |
| 7 | 5943 { |
| 5944 /* | |
| 5945 * Report the invalid expression unless the expression evaluation | |
| 5946 * has been cancelled due to an aborting error, an interrupt, or an | |
| 5947 * exception. | |
| 5948 */ | |
|
15456
f01eb1aed348
patch 8.1.0736: code for Blob not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
5949 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
|
5950 && called_emsg == called_emsg_before) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
5951 semsg(_(e_invexpr2), p); |
| 1624 | 5952 need_clr_eos = FALSE; |
| 5953 break; | |
| 5954 } | |
| 5955 need_clr_eos = FALSE; | |
| 5956 | |
| 7 | 5957 if (!eap->skip) |
| 5958 { | |
| 5959 if (atstart) | |
| 5960 { | |
| 5961 atstart = FALSE; | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5962 // Call msg_start() after eval1(), evaluating the expression |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5963 // may cause a message to appear. |
| 7 | 5964 if (eap->cmdidx == CMD_echo) |
| 3423 | 5965 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5966 // Mark the 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
|
5967 // follows is displayed on a new line when scrolling back |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5968 // at the more prompt. |
| 3435 | 5969 msg_sb_eol(); |
| 7 | 5970 msg_start(); |
| 3423 | 5971 } |
| 7 | 5972 } |
| 5973 else if (eap->cmdidx == CMD_echo) | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15517
diff
changeset
|
5974 msg_puts_attr(" ", echo_attr); |
|
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7705
diff
changeset
|
5975 p = echo_string(&rettv, &tofree, numbuf, get_copyID()); |
| 165 | 5976 if (p != NULL) |
| 5977 for ( ; *p != NUL && !got_int; ++p) | |
| 5978 { | |
| 5979 if (*p == '\n' || *p == '\r' || *p == TAB) | |
| 7 | 5980 { |
| 165 | 5981 if (*p != TAB && needclr) |
| 5982 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
5983 // remove any text still there from the command |
| 165 | 5984 msg_clr_eos(); |
| 5985 needclr = FALSE; | |
| 5986 } | |
| 5987 msg_putchar_attr(*p, echo_attr); | |
| 7 | 5988 } |
| 5989 else | |
| 165 | 5990 { |
| 5991 if (has_mbyte) | |
| 5992 { | |
| 474 | 5993 int i = (*mb_ptr2len)(p); |
| 165 | 5994 |
| 5995 (void)msg_outtrans_len_attr(p, i, echo_attr); | |
| 5996 p += i - 1; | |
| 5997 } | |
| 5998 else | |
| 5999 (void)msg_outtrans_len_attr(p, 1, echo_attr); | |
| 6000 } | |
| 7 | 6001 } |
| 56 | 6002 vim_free(tofree); |
| 6003 } | |
| 71 | 6004 clear_tv(&rettv); |
| 7 | 6005 arg = skipwhite(arg); |
| 6006 } | |
| 6007 eap->nextcmd = check_nextcmd(arg); | |
| 6008 | |
| 6009 if (eap->skip) | |
| 6010 --emsg_skip; | |
| 6011 else | |
| 6012 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6013 // remove text that may still be there from the command |
| 7 | 6014 if (needclr) |
| 6015 msg_clr_eos(); | |
| 6016 if (eap->cmdidx == CMD_echo) | |
| 6017 msg_end(); | |
| 6018 } | |
| 6019 } | |
| 6020 | |
| 6021 /* | |
| 6022 * ":echohl {name}". | |
| 6023 */ | |
| 6024 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6025 ex_echohl(exarg_T *eap) |
| 7 | 6026 { |
|
12487
3f16cf18386c
patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
6027 echo_attr = syn_name2attr(eap->arg); |
| 7 | 6028 } |
| 6029 | |
| 6030 /* | |
|
17922
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6031 * 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
|
6032 */ |
|
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6033 int |
|
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6034 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
|
6035 { |
|
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6036 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
|
6037 } |
|
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6038 |
|
4d63d47d87ef
patch 8.1.1957: more code can be moved to evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
17893
diff
changeset
|
6039 /* |
| 7 | 6040 * ":execute expr1 ..." execute the result of an expression. |
| 6041 * ":echomsg expr1 ..." Print a message | |
| 6042 * ":echoerr expr1 ..." Print an error | |
| 6043 * Each gets spaces around each argument and a newline at the end for | |
| 6044 * echo commands | |
| 6045 */ | |
| 6046 void | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6047 ex_execute(exarg_T *eap) |
| 7 | 6048 { |
| 6049 char_u *arg = eap->arg; | |
| 137 | 6050 typval_T rettv; |
| 7 | 6051 int ret = OK; |
| 6052 char_u *p; | |
| 6053 garray_T ga; | |
| 6054 int len; | |
|
16054
78faa25f9698
patch 8.1.1032: warnings from clang static analyzer
Bram Moolenaar <Bram@vim.org>
parents:
16036
diff
changeset
|
6055 int save_did_emsg; |
| 7 | 6056 |
| 6057 ga_init2(&ga, 1, 80); | |
| 6058 | |
| 6059 if (eap->skip) | |
| 6060 ++emsg_skip; | |
| 6061 while (*arg != NUL && *arg != '|' && *arg != '\n') | |
| 6062 { | |
|
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
|
6063 ret = eval1_emsg(&arg, &rettv, !eap->skip); |
|
051937ebaf22
patch 8.1.0747: map() with a bad expression doesn't give an error
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
6064 if (ret == FAIL) |
| 7 | 6065 break; |
| 6066 | |
| 6067 if (!eap->skip) | |
| 6068 { | |
|
15219
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
6069 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
|
6070 |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
6071 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
|
6072 { |
|
e3848b251a01
patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19085
diff
changeset
|
6073 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
|
6074 { |
|
e3848b251a01
patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19085
diff
changeset
|
6075 emsg(_(e_inval_string)); |
|
e3848b251a01
patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19085
diff
changeset
|
6076 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
|
6077 } |
|
e3848b251a01
patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19085
diff
changeset
|
6078 else |
|
e3848b251a01
patch 8.2.0104: using channel or job with ":execute" has strange effects
Bram Moolenaar <Bram@vim.org>
parents:
19085
diff
changeset
|
6079 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
|
6080 } |
|
15219
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
6081 else |
|
dada0b389d4f
patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
6082 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
|
6083 if (p == NULL) |
|
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
6084 { |
|
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
6085 clear_tv(&rettv); |
|
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
6086 ret = FAIL; |
|
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
6087 break; |
|
3b1f83fdaabc
patch 8.2.0101: crash when passing null object to ":echomsg"
Bram Moolenaar <Bram@vim.org>
parents:
19047
diff
changeset
|
6088 } |
| 7 | 6089 len = (int)STRLEN(p); |
| 6090 if (ga_grow(&ga, len + 2) == FAIL) | |
| 6091 { | |
| 71 | 6092 clear_tv(&rettv); |
| 7 | 6093 ret = FAIL; |
| 6094 break; | |
| 6095 } | |
| 6096 if (ga.ga_len) | |
| 6097 ((char_u *)(ga.ga_data))[ga.ga_len++] = ' '; | |
| 6098 STRCPY((char_u *)(ga.ga_data) + ga.ga_len, p); | |
| 6099 ga.ga_len += len; | |
| 6100 } | |
| 6101 | |
| 71 | 6102 clear_tv(&rettv); |
| 7 | 6103 arg = skipwhite(arg); |
| 6104 } | |
| 6105 | |
| 6106 if (ret != FAIL && ga.ga_data != NULL) | |
| 6107 { | |
|
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
|
6108 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
|
6109 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6110 // 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
|
6111 // 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
|
6112 // 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
|
6113 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
|
6114 } |
|
404e98047f0b
patch 8.0.0467: using g< after :for does not show the right output
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
6115 |
| 7 | 6116 if (eap->cmdidx == CMD_echomsg) |
| 625 | 6117 { |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15517
diff
changeset
|
6118 msg_attr(ga.ga_data, echo_attr); |
| 625 | 6119 out_flush(); |
| 6120 } | |
| 7 | 6121 else if (eap->cmdidx == CMD_echoerr) |
| 6122 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6123 // We don't want to abort following commands, restore did_emsg. |
| 7 | 6124 save_did_emsg = did_emsg; |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6125 emsg(ga.ga_data); |
| 7 | 6126 if (!force_abort) |
| 6127 did_emsg = save_did_emsg; | |
| 6128 } | |
| 6129 else if (eap->cmdidx == CMD_execute) | |
| 6130 do_cmdline((char_u *)ga.ga_data, | |
| 6131 eap->getline, eap->cookie, DOCMD_NOWAIT|DOCMD_VERBOSE); | |
| 6132 } | |
| 6133 | |
| 6134 ga_clear(&ga); | |
| 6135 | |
| 6136 if (eap->skip) | |
| 6137 --emsg_skip; | |
| 6138 | |
| 6139 eap->nextcmd = check_nextcmd(arg); | |
| 6140 } | |
| 6141 | |
| 6142 /* | |
| 6143 * Skip over the name of an option: "&option", "&g:option" or "&l:option". | |
| 6144 * "arg" points to the "&" or '+' when called, to "option" when returning. | |
| 6145 * Returns NULL when no option name found. Otherwise pointer to the char | |
| 6146 * after the option name. | |
| 6147 */ | |
|
17873
d50a5faa75bd
patch 8.1.1933: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents:
17833
diff
changeset
|
6148 char_u * |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6149 find_option_end(char_u **arg, int *opt_flags) |
| 7 | 6150 { |
| 6151 char_u *p = *arg; | |
| 6152 | |
| 6153 ++p; | |
| 6154 if (*p == 'g' && p[1] == ':') | |
| 6155 { | |
| 6156 *opt_flags = OPT_GLOBAL; | |
| 6157 p += 2; | |
| 6158 } | |
| 6159 else if (*p == 'l' && p[1] == ':') | |
| 6160 { | |
| 6161 *opt_flags = OPT_LOCAL; | |
| 6162 p += 2; | |
| 6163 } | |
| 6164 else | |
| 6165 *opt_flags = 0; | |
| 6166 | |
| 6167 if (!ASCII_ISALPHA(*p)) | |
| 6168 return NULL; | |
| 6169 *arg = p; | |
| 6170 | |
| 6171 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
|
6172 p += 4; // termcap option |
| 7 | 6173 else |
| 6174 while (ASCII_ISALPHA(*p)) | |
| 6175 ++p; | |
| 6176 return p; | |
| 6177 } | |
| 6178 | |
| 6179 /* | |
| 448 | 6180 * Display script name where an item was last set. |
| 6181 * Should only be invoked when 'verbose' is non-zero. | |
| 6182 */ | |
| 6183 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
|
6184 last_set_msg(sctx_T script_ctx) |
| 448 | 6185 { |
| 507 | 6186 char_u *p; |
| 6187 | |
|
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
|
6188 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
|
6189 { |
|
0a3b9ecf7cb8
patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents:
14439
diff
changeset
|
6190 p = home_replace_save(NULL, get_scriptname(script_ctx.sc_sid)); |
| 507 | 6191 if (p != NULL) |
| 6192 { | |
| 6193 verbose_enter(); | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15517
diff
changeset
|
6194 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
|
6195 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
|
6196 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
|
6197 { |
|
18939
25ebc35e104f
patch 8.2.0030: "gF" does not work on output of "verbose command"
Bram Moolenaar <Bram@vim.org>
parents:
18851
diff
changeset
|
6198 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
|
6199 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
|
6200 } |
|
0a3b9ecf7cb8
patch 8.1.0362: cannot get the script line number when executing a function
Christian Brabandt <cb@256bit.org>
parents:
14439
diff
changeset
|
6201 verbose_leave(); |
| 507 | 6202 vim_free(p); |
| 6203 } | |
| 448 | 6204 } |
| 6205 } | |
| 6206 | |
|
16036
89fb86821b4a
patch 8.1.1023: may use NULL pointer when indexing a blob
Bram Moolenaar <Bram@vim.org>
parents:
16013
diff
changeset
|
6207 /* |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6208 * Compare "typ1" and "typ2". Put the result in "typ1". |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6209 */ |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6210 int |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6211 typval_compare( |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6212 typval_T *typ1, // first operand |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6213 typval_T *typ2, // second operand |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6214 exptype_T type, // operator |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6215 int ic) // ignore case |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6216 { |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6217 int i; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6218 varnumber_T n1, n2; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6219 char_u *s1, *s2; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6220 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN]; |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6221 int type_is = type == EXPR_IS || type == EXPR_ISNOT; |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6222 |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6223 if (type_is && typ1->v_type != typ2->v_type) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6224 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6225 // For "is" a different type always means FALSE, for "notis" |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6226 // it means TRUE. |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6227 n1 = (type == EXPR_ISNOT); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6228 } |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6229 else if (typ1->v_type == VAR_BLOB || typ2->v_type == VAR_BLOB) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6230 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6231 if (type_is) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6232 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6233 n1 = (typ1->v_type == typ2->v_type |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6234 && typ1->vval.v_blob == typ2->vval.v_blob); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6235 if (type == EXPR_ISNOT) |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6236 n1 = !n1; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6237 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6238 else if (typ1->v_type != typ2->v_type |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6239 || (type != EXPR_EQUAL && type != EXPR_NEQUAL)) |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6240 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6241 if (typ1->v_type != typ2->v_type) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6242 emsg(_("E977: Can only compare Blob with Blob")); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6243 else |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6244 emsg(_(e_invalblob)); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6245 clear_tv(typ1); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6246 return FAIL; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6247 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6248 else |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6249 { |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6250 // Compare two Blobs for being equal or unequal. |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6251 n1 = blob_equal(typ1->vval.v_blob, typ2->vval.v_blob); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6252 if (type == EXPR_NEQUAL) |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6253 n1 = !n1; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6254 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
15219
diff
changeset
|
6255 } |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6256 else if (typ1->v_type == VAR_LIST || typ2->v_type == VAR_LIST) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6257 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6258 if (type_is) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6259 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6260 n1 = (typ1->v_type == typ2->v_type |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6261 && typ1->vval.v_list == typ2->vval.v_list); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6262 if (type == EXPR_ISNOT) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6263 n1 = !n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6264 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6265 else if (typ1->v_type != typ2->v_type |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6266 || (type != EXPR_EQUAL && type != EXPR_NEQUAL)) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6267 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6268 if (typ1->v_type != typ2->v_type) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6269 emsg(_("E691: Can only compare List with List")); |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6270 else |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6271 emsg(_("E692: Invalid operation for List")); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6272 clear_tv(typ1); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6273 return FAIL; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6274 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6275 else |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6276 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6277 // Compare two Lists for being equal or unequal. |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6278 n1 = list_equal(typ1->vval.v_list, typ2->vval.v_list, |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6279 ic, FALSE); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6280 if (type == EXPR_NEQUAL) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6281 n1 = !n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6282 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6283 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6284 |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6285 else if (typ1->v_type == VAR_DICT || typ2->v_type == VAR_DICT) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6286 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6287 if (type_is) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6288 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6289 n1 = (typ1->v_type == typ2->v_type |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6290 && typ1->vval.v_dict == typ2->vval.v_dict); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6291 if (type == EXPR_ISNOT) |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6292 n1 = !n1; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6293 } |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6294 else if (typ1->v_type != typ2->v_type |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6295 || (type != EXPR_EQUAL && type != EXPR_NEQUAL)) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6296 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6297 if (typ1->v_type != typ2->v_type) |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6298 emsg(_("E735: Can only compare Dictionary with Dictionary")); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6299 else |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6300 emsg(_("E736: Invalid operation for Dictionary")); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6301 clear_tv(typ1); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6302 return FAIL; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6303 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6304 else |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6305 { |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6306 // Compare two Dictionaries for being equal or unequal. |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6307 n1 = dict_equal(typ1->vval.v_dict, typ2->vval.v_dict, |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6308 ic, FALSE); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6309 if (type == EXPR_NEQUAL) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6310 n1 = !n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6311 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6312 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6313 |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6314 else if (typ1->v_type == VAR_FUNC || typ2->v_type == VAR_FUNC |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6315 || typ1->v_type == VAR_PARTIAL || typ2->v_type == VAR_PARTIAL) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6316 { |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6317 if (type != EXPR_EQUAL && type != EXPR_NEQUAL |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6318 && type != EXPR_IS && type != EXPR_ISNOT) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6319 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15466
diff
changeset
|
6320 emsg(_("E694: Invalid operation for Funcrefs")); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6321 clear_tv(typ1); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6322 return FAIL; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6323 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6324 if ((typ1->v_type == VAR_PARTIAL |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6325 && typ1->vval.v_partial == NULL) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6326 || (typ2->v_type == VAR_PARTIAL |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6327 && typ2->vval.v_partial == NULL)) |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6328 // when a partial is NULL assume not equal |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6329 n1 = FALSE; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6330 else if (type_is) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6331 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6332 if (typ1->v_type == VAR_FUNC && typ2->v_type == VAR_FUNC) |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6333 // strings are considered the same if their value is |
|
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6334 // the same |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6335 n1 = tv_equal(typ1, typ2, ic, FALSE); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6336 else if (typ1->v_type == VAR_PARTIAL |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6337 && typ2->v_type == VAR_PARTIAL) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6338 n1 = (typ1->vval.v_partial == typ2->vval.v_partial); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6339 else |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6340 n1 = FALSE; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6341 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6342 else |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6343 n1 = tv_equal(typ1, typ2, ic, FALSE); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6344 if (type == EXPR_NEQUAL || type == EXPR_ISNOT) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6345 n1 = !n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6346 } |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6347 |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6348 #ifdef FEAT_FLOAT |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6349 /* |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6350 * If one of the two variables is a float, compare as a float. |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6351 * When using "=~" or "!~", always compare as string. |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6352 */ |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6353 else if ((typ1->v_type == VAR_FLOAT || typ2->v_type == VAR_FLOAT) |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6354 && type != EXPR_MATCH && type != EXPR_NOMATCH) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6355 { |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6356 float_T f1, f2; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6357 |
|
15904
fec4416adb80
patch 8.1.0958: compiling weird regexp pattern is very slow
Bram Moolenaar <Bram@vim.org>
parents:
15868
diff
changeset
|
6358 f1 = tv_get_float(typ1); |
|
fec4416adb80
patch 8.1.0958: compiling weird regexp pattern is very slow
Bram Moolenaar <Bram@vim.org>
parents:
15868
diff
changeset
|
6359 f2 = tv_get_float(typ2); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6360 n1 = FALSE; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6361 switch (type) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6362 { |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6363 case EXPR_IS: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6364 case EXPR_EQUAL: n1 = (f1 == f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6365 case EXPR_ISNOT: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6366 case EXPR_NEQUAL: n1 = (f1 != f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6367 case EXPR_GREATER: n1 = (f1 > f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6368 case EXPR_GEQUAL: n1 = (f1 >= f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6369 case EXPR_SMALLER: n1 = (f1 < f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6370 case EXPR_SEQUAL: n1 = (f1 <= f2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6371 case EXPR_UNKNOWN: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6372 case EXPR_MATCH: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6373 case EXPR_NOMATCH: break; // avoid gcc warning |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6374 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6375 } |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6376 #endif |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6377 |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6378 /* |
|
18968
24941a950cc7
patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents:
18966
diff
changeset
|
6379 * If one of the two variables is a number, compare as a number. |
|
24941a950cc7
patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents:
18966
diff
changeset
|
6380 * When using "=~" or "!~", always compare as string. |
|
24941a950cc7
patch 8.2.0045: script test fails
Bram Moolenaar <Bram@vim.org>
parents:
18966
diff
changeset
|
6381 */ |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6382 else if ((typ1->v_type == VAR_NUMBER || typ2->v_type == VAR_NUMBER) |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6383 && type != EXPR_MATCH && type != EXPR_NOMATCH) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6384 { |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
6385 n1 = tv_get_number(typ1); |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
6386 n2 = tv_get_number(typ2); |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6387 switch (type) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6388 { |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6389 case EXPR_IS: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6390 case EXPR_EQUAL: n1 = (n1 == n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6391 case EXPR_ISNOT: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6392 case EXPR_NEQUAL: n1 = (n1 != n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6393 case EXPR_GREATER: n1 = (n1 > n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6394 case EXPR_GEQUAL: n1 = (n1 >= n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6395 case EXPR_SMALLER: n1 = (n1 < n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6396 case EXPR_SEQUAL: n1 = (n1 <= n2); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6397 case EXPR_UNKNOWN: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6398 case EXPR_MATCH: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6399 case EXPR_NOMATCH: break; // avoid gcc warning |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6400 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6401 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6402 else |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6403 { |
|
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
6404 s1 = tv_get_string_buf(typ1, buf1); |
|
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
6405 s2 = tv_get_string_buf(typ2, buf2); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6406 if (type != EXPR_MATCH && type != EXPR_NOMATCH) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6407 i = ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2); |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6408 else |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6409 i = 0; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6410 n1 = FALSE; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6411 switch (type) |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6412 { |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6413 case EXPR_IS: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6414 case EXPR_EQUAL: n1 = (i == 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6415 case EXPR_ISNOT: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6416 case EXPR_NEQUAL: n1 = (i != 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6417 case EXPR_GREATER: n1 = (i > 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6418 case EXPR_GEQUAL: n1 = (i >= 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6419 case EXPR_SMALLER: n1 = (i < 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6420 case EXPR_SEQUAL: n1 = (i <= 0); break; |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6421 |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6422 case EXPR_MATCH: |
|
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6423 case EXPR_NOMATCH: |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6424 n1 = pattern_match(s2, s1, ic); |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6425 if (type == EXPR_NOMATCH) |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6426 n1 = !n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6427 break; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6428 |
|
19017
d9ea4f0bfd34
patch 8.2.0069: ETYPE_ is used for two different enums
Bram Moolenaar <Bram@vim.org>
parents:
19001
diff
changeset
|
6429 case EXPR_UNKNOWN: break; // avoid gcc warning |
|
13274
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6430 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6431 } |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6432 clear_tv(typ1); |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6433 typ1->v_type = VAR_NUMBER; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6434 typ1->vval.v_number = n1; |
|
f4b4162264b1
patch 8.0.1511: some code for the debugger watch expression is clumsy
Christian Brabandt <cb@256bit.org>
parents:
13272
diff
changeset
|
6435 |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6436 return OK; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6437 } |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6438 |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6439 char_u * |
|
14391
46f14852a919
patch 8.1.0210: still a few K&R function declarations
Christian Brabandt <cb@256bit.org>
parents:
14331
diff
changeset
|
6440 typval_tostring(typval_T *arg) |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6441 { |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6442 char_u *tofree; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6443 char_u numbuf[NUMBUFLEN]; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6444 char_u *ret = NULL; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6445 |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6446 if (arg == NULL) |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6447 return vim_strsave((char_u *)"(does not exist)"); |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6448 ret = tv2string(arg, &tofree, numbuf, 0); |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6449 // Make a copy if we have a value but it's not in allocated memory. |
|
13262
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6450 if (ret != NULL && tofree == NULL) |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6451 ret = vim_strsave(ret); |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6452 return ret; |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6453 } |
|
69278c25429d
patch 8.0.1505: debugger can't break on a condition
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
6454 |
|
17966
46f95606b9ec
patch 8.1.1979: code for handling file names is spread out
Bram Moolenaar <Bram@vim.org>
parents:
17964
diff
changeset
|
6455 #endif // FEAT_EVAL |
| 7 | 6456 |
| 6457 /* | |
| 6458 * 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
|
6459 * When "sub" is NULL "expr" is used, must be a VAR_FUNC or VAR_PARTIAL. |
| 7 | 6460 * "flags" can be "g" to do a global substitute. |
| 6461 * Returns an allocated string, NULL for error. | |
| 6462 */ | |
| 6463 char_u * | |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6464 do_string_sub( |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6465 char_u *str, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6466 char_u *pat, |
|
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6467 char_u *sub, |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9587
diff
changeset
|
6468 typval_T *expr, |
|
7817
83861277e6a3
commit https://github.com/vim/vim/commit/7454a06e2642d2b37afad1c5e71cec68081ca4ff
Christian Brabandt <cb@256bit.org>
parents:
7788
diff
changeset
|
6469 char_u *flags) |
| 7 | 6470 { |
| 6471 int sublen; | |
| 6472 regmatch_T regmatch; | |
| 6473 int i; | |
| 6474 int do_all; | |
| 6475 char_u *tail; | |
| 6332 | 6476 char_u *end; |
| 7 | 6477 garray_T ga; |
| 6478 char_u *ret; | |
| 6479 char_u *save_cpo; | |
| 5623 | 6480 char_u *zero_width = NULL; |
| 7 | 6481 |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6482 // Make 'cpoptions' empty, so that the 'l' flag doesn't work here |
| 7 | 6483 save_cpo = p_cpo; |
| 1672 | 6484 p_cpo = empty_option; |
| 7 | 6485 |
| 6486 ga_init2(&ga, 1, 200); | |
| 6487 | |
| 6488 do_all = (flags[0] == 'g'); | |
| 6489 | |
| 6490 regmatch.rm_ic = p_ic; | |
| 6491 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING); | |
| 6492 if (regmatch.regprog != NULL) | |
| 6493 { | |
| 6494 tail = str; | |
| 6332 | 6495 end = str + STRLEN(str); |
| 7 | 6496 while (vim_regexec_nl(®match, str, (colnr_T)(tail - str))) |
| 6497 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6498 // Skip empty match except for first match. |
| 5623 | 6499 if (regmatch.startp[0] == regmatch.endp[0]) |
| 6500 { | |
| 6501 if (zero_width == regmatch.startp[0]) | |
| 6502 { | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6503 // 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
|
6504 i = mb_ptr2len(tail); |
| 5964 | 6505 mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail, |
| 6506 (size_t)i); | |
| 6507 ga.ga_len += i; | |
| 6508 tail += i; | |
| 5623 | 6509 continue; |
| 6510 } | |
| 6511 zero_width = regmatch.startp[0]; | |
| 6512 } | |
| 6513 | |
| 7 | 6514 /* |
| 6515 * Get some space for a temporary buffer to do the substitution | |
| 6516 * into. It will contain: | |
| 6517 * - The text up to where the match is. | |
| 6518 * - The substituted text. | |
| 6519 * - The text after the match. | |
| 6520 */ | |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9587
diff
changeset
|
6521 sublen = vim_regsub(®match, sub, expr, tail, FALSE, TRUE, FALSE); |
| 6332 | 6522 if (ga_grow(&ga, (int)((end - tail) + sublen - |
| 7 | 6523 (regmatch.endp[0] - regmatch.startp[0]))) == FAIL) |
| 6524 { | |
| 6525 ga_clear(&ga); | |
| 6526 break; | |
| 6527 } | |
| 6528 | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6529 // copy the text up to where the match is |
| 7 | 6530 i = (int)(regmatch.startp[0] - tail); |
| 6531 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
|
6532 // add the substituted text |
|
9589
bf204ab1ce7d
commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd
Christian Brabandt <cb@256bit.org>
parents:
9587
diff
changeset
|
6533 (void)vim_regsub(®match, sub, expr, (char_u *)ga.ga_data |
| 7 | 6534 + ga.ga_len + i, TRUE, TRUE, FALSE); |
| 6535 ga.ga_len += i + sublen - 1; | |
| 5388 | 6536 tail = regmatch.endp[0]; |
| 6537 if (*tail == NUL) | |
| 6538 break; | |
| 7 | 6539 if (!do_all) |
| 6540 break; | |
| 6541 } | |
| 6542 | |
| 6543 if (ga.ga_data != NULL) | |
| 6544 STRCPY((char *)ga.ga_data + ga.ga_len, tail); | |
| 6545 | |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4778
diff
changeset
|
6546 vim_regfree(regmatch.regprog); |
| 7 | 6547 } |
| 6548 | |
| 6549 ret = vim_strsave(ga.ga_data == NULL ? str : (char_u *)ga.ga_data); | |
| 6550 ga_clear(&ga); | |
| 1672 | 6551 if (p_cpo == empty_option) |
| 6552 p_cpo = save_cpo; | |
| 6553 else | |
|
18777
3a68dc2a1bc1
patch 8.1.2378: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
6554 // Darn, evaluating {sub} expression or {expr} changed the value. |
| 1672 | 6555 free_string_option(save_cpo); |
| 7 | 6556 |
| 6557 return ret; | |
| 6558 } |