Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 1 | /* vi:set ts=8 sts=4 sw=4 noet: |
| 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 | /* |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 11 | * vim9compile.c: compiling a :def function |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 12 | */ |
| 13 | |
| 14 | #define USING_FLOAT_STUFF |
| 15 | #include "vim.h" |
| 16 | |
| 17 | #if defined(FEAT_EVAL) || defined(PROTO) |
| 18 | |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 19 | // When not generating protos this is included in proto.h |
| 20 | #ifdef PROTO |
| 21 | # include "vim9.h" |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 22 | #endif |
| 23 | |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 24 | // Functions defined with :def are stored in this growarray. |
| 25 | // They are never removed, so that they can be found by index. |
| 26 | // Deleted functions have the df_deleted flag set. |
| 27 | garray_T def_functions = {0, 0, sizeof(dfunc_T), 50, NULL}; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 28 | |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 29 | static void delete_def_function_contents(dfunc_T *dfunc, int mark_deleted); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 30 | |
| 31 | /* |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 32 | * Lookup variable "name" in the local scope and return it in "lvar". |
Bram Moolenaar | ab36052 | 2021-01-10 14:02:28 +0100 | [diff] [blame] | 33 | * "lvar->lv_from_outer" is incremented accordingly. |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 34 | * If "lvar" is NULL only check if the variable can be found. |
| 35 | * Return FAIL if not found. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 36 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 37 | int |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 38 | lookup_local(char_u *name, size_t len, lvar_T *lvar, cctx_T *cctx) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 39 | { |
| 40 | int idx; |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 41 | lvar_T *lvp; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 42 | |
Bram Moolenaar | ae8d2de | 2020-02-13 21:42:24 +0100 | [diff] [blame] | 43 | if (len == 0) |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 44 | return FAIL; |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 45 | |
| 46 | // Find local in current function scope. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 47 | for (idx = 0; idx < cctx->ctx_locals.ga_len; ++idx) |
| 48 | { |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 49 | lvp = ((lvar_T *)cctx->ctx_locals.ga_data) + idx; |
Bram Moolenaar | a275f2c | 2022-10-11 20:04:09 +0100 | [diff] [blame] | 50 | if (lvp->lv_name != NULL |
| 51 | && STRNCMP(name, lvp->lv_name, len) == 0 |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 52 | && STRLEN(lvp->lv_name) == len) |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 53 | { |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 54 | if (lvar != NULL) |
| 55 | { |
| 56 | *lvar = *lvp; |
Bram Moolenaar | ab36052 | 2021-01-10 14:02:28 +0100 | [diff] [blame] | 57 | lvar->lv_from_outer = 0; |
Bram Moolenaar | 65449bd | 2022-09-19 16:02:43 +0100 | [diff] [blame] | 58 | // If the variable was declared inside a loop set |
| 59 | // lvar->lv_loop_idx and lvar->lv_loop_depth. |
| 60 | get_loop_var_idx(cctx, idx, lvar); |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 61 | } |
| 62 | return OK; |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 63 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 64 | } |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 65 | |
| 66 | // Find local in outer function scope. |
| 67 | if (cctx->ctx_outer != NULL) |
| 68 | { |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 69 | if (lookup_local(name, len, lvar, cctx->ctx_outer) == OK) |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 70 | { |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 71 | if (lvar != NULL) |
| 72 | { |
| 73 | cctx->ctx_outer_used = TRUE; |
Bram Moolenaar | ab36052 | 2021-01-10 14:02:28 +0100 | [diff] [blame] | 74 | ++lvar->lv_from_outer; |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 75 | } |
| 76 | return OK; |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 77 | } |
| 78 | } |
| 79 | |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 80 | return FAIL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 81 | } |
| 82 | |
| 83 | /* |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 84 | * Lookup an argument in the current function and an enclosing function. |
| 85 | * Returns the argument index in "idxp" |
| 86 | * Returns the argument type in "type" |
| 87 | * Sets "gen_load_outer" to TRUE if found in outer scope. |
| 88 | * Returns OK when found, FAIL otherwise. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 89 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 90 | int |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 91 | arg_exists( |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 92 | char_u *name, |
| 93 | size_t len, |
| 94 | int *idxp, |
| 95 | type_T **type, |
| 96 | int *gen_load_outer, |
| 97 | cctx_T *cctx) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 98 | { |
| 99 | int idx; |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 100 | char_u *va_name; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 101 | |
Bram Moolenaar | ae8d2de | 2020-02-13 21:42:24 +0100 | [diff] [blame] | 102 | if (len == 0) |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 103 | return FAIL; |
Bram Moolenaar | e28d9b3 | 2021-07-03 18:56:53 +0200 | [diff] [blame] | 104 | for (idx = 0; idx < cctx->ctx_ufunc->uf_args_visible; ++idx) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 105 | { |
| 106 | char_u *arg = FUNCARG(cctx->ctx_ufunc, idx); |
| 107 | |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 108 | if (STRNCMP(name, arg, len) == 0 && arg[len] == NUL) |
| 109 | { |
| 110 | if (idxp != NULL) |
| 111 | { |
| 112 | // Arguments are located above the frame pointer. One further |
| 113 | // if there is a vararg argument |
| 114 | *idxp = idx - (cctx->ctx_ufunc->uf_args.ga_len |
| 115 | + STACK_FRAME_SIZE) |
| 116 | + (cctx->ctx_ufunc->uf_va_name != NULL ? -1 : 0); |
| 117 | |
| 118 | if (cctx->ctx_ufunc->uf_arg_types != NULL) |
| 119 | *type = cctx->ctx_ufunc->uf_arg_types[idx]; |
| 120 | else |
| 121 | *type = &t_any; |
| 122 | } |
| 123 | return OK; |
| 124 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 125 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 126 | |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 127 | va_name = cctx->ctx_ufunc->uf_va_name; |
| 128 | if (va_name != NULL |
| 129 | && STRNCMP(name, va_name, len) == 0 && va_name[len] == NUL) |
| 130 | { |
| 131 | if (idxp != NULL) |
| 132 | { |
| 133 | // varargs is always the last argument |
| 134 | *idxp = -STACK_FRAME_SIZE - 1; |
| 135 | *type = cctx->ctx_ufunc->uf_va_type; |
| 136 | } |
| 137 | return OK; |
| 138 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 139 | |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 140 | if (cctx->ctx_outer != NULL) |
| 141 | { |
| 142 | // Lookup the name for an argument of the outer function. |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 143 | if (arg_exists(name, len, idxp, type, gen_load_outer, cctx->ctx_outer) |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 144 | == OK) |
| 145 | { |
Bram Moolenaar | 44ec21c | 2021-02-12 21:50:57 +0100 | [diff] [blame] | 146 | if (gen_load_outer != NULL) |
| 147 | ++*gen_load_outer; |
Bram Moolenaar | 2fd4cd7 | 2020-05-03 22:30:49 +0200 | [diff] [blame] | 148 | return OK; |
| 149 | } |
| 150 | } |
| 151 | |
| 152 | return FAIL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 153 | } |
| 154 | |
| 155 | /* |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 156 | * Lookup a script-local variable in the current script, possibly defined in a |
| 157 | * block that contains the function "cctx->ctx_ufunc". |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 158 | * "cctx" is NULL at the script level, "cstack" is NULL in a function. |
Bram Moolenaar | 18062fc | 2021-03-05 21:35:47 +0100 | [diff] [blame] | 159 | * If "len" is <= 0 "name" must be NUL terminated. |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 160 | * Return NULL when not found. |
| 161 | */ |
| 162 | static sallvar_T * |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 163 | find_script_var(char_u *name, size_t len, cctx_T *cctx, cstack_T *cstack) |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 164 | { |
| 165 | scriptitem_T *si = SCRIPT_ITEM(current_sctx.sc_sid); |
| 166 | hashitem_T *hi; |
| 167 | int cc; |
| 168 | sallvar_T *sav; |
| 169 | ufunc_T *ufunc; |
| 170 | |
| 171 | // Find the list of all script variables with the right name. |
| 172 | if (len > 0) |
| 173 | { |
| 174 | cc = name[len]; |
| 175 | name[len] = NUL; |
| 176 | } |
| 177 | hi = hash_find(&si->sn_all_vars.dv_hashtab, name); |
| 178 | if (len > 0) |
| 179 | name[len] = cc; |
| 180 | if (HASHITEM_EMPTY(hi)) |
| 181 | return NULL; |
| 182 | |
| 183 | sav = HI2SAV(hi); |
Bram Moolenaar | 3c77b6a | 2021-07-25 18:07:00 +0200 | [diff] [blame] | 184 | if (sav->sav_block_id == 0) |
| 185 | // variable defined in the top script scope is always visible |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 186 | return sav; |
| 187 | |
Bram Moolenaar | 3c77b6a | 2021-07-25 18:07:00 +0200 | [diff] [blame] | 188 | if (cctx == NULL) |
| 189 | { |
Bram Moolenaar | 766ae5b | 2022-09-14 00:30:51 +0100 | [diff] [blame] | 190 | if (cstack == NULL) |
| 191 | return NULL; |
| 192 | |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 193 | // Not in a function scope, find variable with block ID equal to or |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 194 | // smaller than the current block id. Use "cstack" to go up the block |
| 195 | // scopes. |
Bram Moolenaar | 3c77b6a | 2021-07-25 18:07:00 +0200 | [diff] [blame] | 196 | while (sav != NULL) |
| 197 | { |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 198 | int idx; |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 199 | |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 200 | for (idx = cstack->cs_idx; idx >= 0; --idx) |
| 201 | if (cstack->cs_block_id[idx] == sav->sav_block_id) |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 202 | break; |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 203 | if (idx >= 0) |
Bram Moolenaar | 3c77b6a | 2021-07-25 18:07:00 +0200 | [diff] [blame] | 204 | break; |
| 205 | sav = sav->sav_next; |
| 206 | } |
| 207 | return sav; |
| 208 | } |
| 209 | |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 210 | // Go over the variables with this name and find one that was visible |
| 211 | // from the function. |
| 212 | ufunc = cctx->ctx_ufunc; |
| 213 | while (sav != NULL) |
| 214 | { |
| 215 | int idx; |
| 216 | |
| 217 | // Go over the blocks that this function was defined in. If the |
| 218 | // variable block ID matches it was visible to the function. |
| 219 | for (idx = 0; idx < ufunc->uf_block_depth; ++idx) |
| 220 | if (ufunc->uf_block_ids[idx] == sav->sav_block_id) |
| 221 | return sav; |
| 222 | sav = sav->sav_next; |
| 223 | } |
| 224 | |
Bram Moolenaar | 58493cf | 2022-01-06 12:23:30 +0000 | [diff] [blame] | 225 | // Not found, variable was not visible. |
| 226 | return NULL; |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 227 | } |
| 228 | |
| 229 | /* |
Bram Moolenaar | 766ae5b | 2022-09-14 00:30:51 +0100 | [diff] [blame] | 230 | * If "name" can be found in the current script set it's "block_id". |
| 231 | */ |
| 232 | void |
| 233 | update_script_var_block_id(char_u *name, int block_id) |
| 234 | { |
| 235 | scriptitem_T *si = SCRIPT_ITEM(current_sctx.sc_sid); |
| 236 | hashitem_T *hi; |
| 237 | sallvar_T *sav; |
| 238 | |
| 239 | hi = hash_find(&si->sn_all_vars.dv_hashtab, name); |
| 240 | if (HASHITEM_EMPTY(hi)) |
| 241 | return; |
| 242 | sav = HI2SAV(hi); |
| 243 | sav->sav_block_id = block_id; |
| 244 | } |
| 245 | |
| 246 | /* |
Bram Moolenaar | 8e7d622 | 2020-12-18 19:49:56 +0100 | [diff] [blame] | 247 | * Return TRUE if the script context is Vim9 script. |
Bram Moolenaar | 8436773 | 2020-08-23 15:21:55 +0200 | [diff] [blame] | 248 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 249 | int |
Bram Moolenaar | 8436773 | 2020-08-23 15:21:55 +0200 | [diff] [blame] | 250 | script_is_vim9() |
| 251 | { |
| 252 | return SCRIPT_ITEM(current_sctx.sc_sid)->sn_version == SCRIPT_VERSION_VIM9; |
| 253 | } |
| 254 | |
| 255 | /* |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 256 | * Lookup a variable (without s: prefix) in the current script. |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 257 | * "cctx" is NULL at the script level, "cstack" is NULL in a function. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 258 | * Returns OK or FAIL. |
| 259 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 260 | int |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 261 | script_var_exists(char_u *name, size_t len, cctx_T *cctx, cstack_T *cstack) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 262 | { |
Bram Moolenaar | 9c4f552 | 2020-09-25 21:47:28 +0200 | [diff] [blame] | 263 | if (current_sctx.sc_sid <= 0) |
| 264 | return FAIL; |
Bram Moolenaar | 15e5e53 | 2021-04-07 21:21:13 +0200 | [diff] [blame] | 265 | if (script_is_vim9()) |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 266 | { |
| 267 | // Check script variables that were visible where the function was |
| 268 | // defined. |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 269 | if (find_script_var(name, len, cctx, cstack) != NULL) |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 270 | return OK; |
| 271 | } |
| 272 | else |
| 273 | { |
| 274 | hashtab_T *ht = &SCRIPT_VARS(current_sctx.sc_sid); |
| 275 | dictitem_T *di; |
| 276 | int cc; |
| 277 | |
| 278 | // Check script variables that are currently visible |
| 279 | cc = name[len]; |
| 280 | name[len] = NUL; |
| 281 | di = find_var_in_ht(ht, 0, name, TRUE); |
| 282 | name[len] = cc; |
| 283 | if (di != NULL) |
| 284 | return OK; |
| 285 | } |
| 286 | |
| 287 | return FAIL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 288 | } |
| 289 | |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 290 | /* |
Bram Moolenaar | e0890d6 | 2021-02-17 14:52:14 +0100 | [diff] [blame] | 291 | * Return TRUE if "name" is a local variable, argument, script variable or |
| 292 | * imported. |
| 293 | */ |
| 294 | static int |
| 295 | variable_exists(char_u *name, size_t len, cctx_T *cctx) |
| 296 | { |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 297 | return (cctx != NULL |
| 298 | && (lookup_local(name, len, NULL, cctx) == OK |
| 299 | || arg_exists(name, len, NULL, NULL, NULL, cctx) == OK)) |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 300 | || script_var_exists(name, len, cctx, NULL) == OK |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 301 | || find_imported(name, len, FALSE) != NULL; |
Bram Moolenaar | e0890d6 | 2021-02-17 14:52:14 +0100 | [diff] [blame] | 302 | } |
| 303 | |
| 304 | /* |
Bram Moolenaar | 6914e87 | 2021-03-06 21:01:09 +0100 | [diff] [blame] | 305 | * Return TRUE if "name" is a local variable, argument, script variable, |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 306 | * imported or function. Or commands are being skipped, a declaration may have |
| 307 | * been skipped then. |
Bram Moolenaar | 6914e87 | 2021-03-06 21:01:09 +0100 | [diff] [blame] | 308 | */ |
| 309 | static int |
Bram Moolenaar | 77b10ff | 2021-03-14 13:21:35 +0100 | [diff] [blame] | 310 | item_exists(char_u *name, size_t len, int cmd UNUSED, cctx_T *cctx) |
Bram Moolenaar | 6914e87 | 2021-03-06 21:01:09 +0100 | [diff] [blame] | 311 | { |
Bram Moolenaar | 0631bb4 | 2022-02-13 21:20:21 +0000 | [diff] [blame] | 312 | return variable_exists(name, len, cctx); |
Bram Moolenaar | 6914e87 | 2021-03-06 21:01:09 +0100 | [diff] [blame] | 313 | } |
| 314 | |
| 315 | /* |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 316 | * Check if "p[len]" is already defined, either in script "import_sid" or in |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 317 | * compilation context "cctx". |
| 318 | * "cctx" is NULL at the script level, "cstack" is NULL in a function. |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 319 | * Does not check the global namespace. |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 320 | * If "is_arg" is TRUE the error message is for an argument name. |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 321 | * Return FAIL and give an error if it defined. |
| 322 | */ |
| 323 | int |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 324 | check_defined( |
| 325 | char_u *p, |
| 326 | size_t len, |
| 327 | cctx_T *cctx, |
| 328 | cstack_T *cstack, |
| 329 | int is_arg) |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 330 | { |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 331 | int c = p[len]; |
| 332 | ufunc_T *ufunc = NULL; |
Bram Moolenaar | ad486a0 | 2020-08-01 23:22:18 +0200 | [diff] [blame] | 333 | |
Bram Moolenaar | da479c7 | 2021-04-10 21:01:38 +0200 | [diff] [blame] | 334 | // underscore argument is OK |
| 335 | if (len == 1 && *p == '_') |
| 336 | return OK; |
| 337 | |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 338 | if (script_var_exists(p, len, cctx, cstack) == OK) |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 339 | { |
| 340 | if (is_arg) |
| 341 | semsg(_(e_argument_already_declared_in_script_str), p); |
| 342 | else |
| 343 | semsg(_(e_variable_already_declared_in_script_str), p); |
| 344 | return FAIL; |
| 345 | } |
| 346 | |
Bram Moolenaar | ad486a0 | 2020-08-01 23:22:18 +0200 | [diff] [blame] | 347 | p[len] = NUL; |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 348 | if ((cctx != NULL |
Bram Moolenaar | 709664c | 2020-12-12 14:33:41 +0100 | [diff] [blame] | 349 | && (lookup_local(p, len, NULL, cctx) == OK |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 350 | || arg_exists(p, len, NULL, NULL, NULL, cctx) == OK)) |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 351 | || find_imported(p, len, FALSE) != NULL |
Bram Moolenaar | acc4b56 | 2022-01-24 13:54:45 +0000 | [diff] [blame] | 352 | || (ufunc = find_func_even_dead(p, 0)) != NULL) |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 353 | { |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 354 | // A local or script-local function can shadow a global function. |
Bram Moolenaar | 577dc93 | 2021-06-27 15:35:40 +0200 | [diff] [blame] | 355 | if (ufunc == NULL || ((ufunc->uf_flags & FC_DEAD) == 0 |
| 356 | && (!func_is_global(ufunc) |
| 357 | || (p[0] == 'g' && p[1] == ':')))) |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 358 | { |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 359 | if (is_arg) |
| 360 | semsg(_(e_argument_name_shadows_existing_variable_str), p); |
| 361 | else |
| 362 | semsg(_(e_name_already_defined_str), p); |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 363 | p[len] = c; |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 364 | return FAIL; |
| 365 | } |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 366 | } |
Bram Moolenaar | ad486a0 | 2020-08-01 23:22:18 +0200 | [diff] [blame] | 367 | p[len] = c; |
Bram Moolenaar | 5269bd2 | 2020-03-09 19:25:27 +0100 | [diff] [blame] | 368 | return OK; |
| 369 | } |
| 370 | |
Bram Moolenaar | 65b9545 | 2020-07-19 14:03:09 +0200 | [diff] [blame] | 371 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 372 | /* |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 373 | * Return TRUE if "actual" could be "expected" and a runtime typecheck is to be |
| 374 | * used. Return FALSE if the types will never match. |
| 375 | */ |
Yegappan Lakshmanan | 8ee52af | 2021-08-09 19:59:06 +0200 | [diff] [blame] | 376 | static int |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 377 | use_typecheck(type_T *actual, type_T *expected) |
| 378 | { |
| 379 | if (actual->tt_type == VAR_ANY |
| 380 | || actual->tt_type == VAR_UNKNOWN |
| 381 | || (actual->tt_type == VAR_FUNC |
| 382 | && (expected->tt_type == VAR_FUNC |
| 383 | || expected->tt_type == VAR_PARTIAL) |
Bram Moolenaar | fa46ead | 2021-12-22 13:18:39 +0000 | [diff] [blame] | 384 | && (actual->tt_member == &t_any |
| 385 | || actual->tt_member == &t_unknown |
| 386 | || actual->tt_argcount < 0) |
| 387 | && (actual->tt_member == &t_unknown || |
| 388 | (actual->tt_member == &t_void) |
Bram Moolenaar | 328eac2 | 2021-01-07 19:23:08 +0100 | [diff] [blame] | 389 | == (expected->tt_member == &t_void)))) |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 390 | return TRUE; |
| 391 | if ((actual->tt_type == VAR_LIST || actual->tt_type == VAR_DICT) |
| 392 | && actual->tt_type == expected->tt_type) |
| 393 | // This takes care of a nested list or dict. |
| 394 | return use_typecheck(actual->tt_member, expected->tt_member); |
| 395 | return FALSE; |
| 396 | } |
| 397 | |
| 398 | /* |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 399 | * Check that |
Bram Moolenaar | 5e65423 | 2020-09-16 15:22:00 +0200 | [diff] [blame] | 400 | * - "actual" matches "expected" type or |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 401 | * - "actual" is a type that can be "expected" type: add a runtime check; or |
| 402 | * - return FAIL. |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 403 | * If "actual_is_const" is TRUE then the type won't change at runtime, do not |
| 404 | * generate a TYPECHECK. |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 405 | */ |
Bram Moolenaar | a1c5195 | 2022-02-02 16:20:26 +0000 | [diff] [blame] | 406 | int |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 407 | need_type_where( |
| 408 | type_T *actual, |
| 409 | type_T *expected, |
| 410 | int offset, |
| 411 | where_T where, |
| 412 | cctx_T *cctx, |
| 413 | int silent, |
| 414 | int actual_is_const) |
| 415 | { |
Bram Moolenaar | 44a8977 | 2021-12-18 12:31:33 +0000 | [diff] [blame] | 416 | int ret; |
| 417 | |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 418 | if (expected == &t_bool && actual != &t_bool |
| 419 | && (actual->tt_flags & TTFLAG_BOOL_OK)) |
| 420 | { |
| 421 | // Using "0", "1" or the result of an expression with "&&" or "||" as a |
| 422 | // boolean is OK but requires a conversion. |
| 423 | generate_2BOOL(cctx, FALSE, offset); |
| 424 | return OK; |
| 425 | } |
| 426 | |
Bram Moolenaar | 44a8977 | 2021-12-18 12:31:33 +0000 | [diff] [blame] | 427 | ret = check_type_maybe(expected, actual, FALSE, where); |
| 428 | if (ret == OK) |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 429 | return OK; |
| 430 | |
Bram Moolenaar | 8acb9cc | 2022-03-08 13:18:55 +0000 | [diff] [blame] | 431 | // If actual a constant a runtime check makes no sense. If it's |
| 432 | // null_function it is OK. |
| 433 | if (actual_is_const && ret == MAYBE && actual == &t_func_unknown) |
| 434 | return OK; |
| 435 | |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 436 | // If the actual type can be the expected type add a runtime check. |
Bram Moolenaar | fa46ead | 2021-12-22 13:18:39 +0000 | [diff] [blame] | 437 | if (!actual_is_const && ret == MAYBE && use_typecheck(actual, expected)) |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 438 | { |
Bram Moolenaar | bd3a9d2 | 2022-05-17 16:12:39 +0100 | [diff] [blame] | 439 | generate_TYPECHECK(cctx, expected, offset, |
| 440 | where.wt_variable, where.wt_index); |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 441 | return OK; |
| 442 | } |
| 443 | |
| 444 | if (!silent) |
| 445 | type_mismatch_where(expected, actual, where); |
| 446 | return FAIL; |
| 447 | } |
| 448 | |
Bram Moolenaar | 351ead0 | 2021-01-16 16:07:01 +0100 | [diff] [blame] | 449 | int |
Bram Moolenaar | 9b7bf9e | 2020-07-11 22:14:59 +0200 | [diff] [blame] | 450 | need_type( |
| 451 | type_T *actual, |
| 452 | type_T *expected, |
| 453 | int offset, |
Bram Moolenaar | 351ead0 | 2021-01-16 16:07:01 +0100 | [diff] [blame] | 454 | int arg_idx, |
Bram Moolenaar | 9b7bf9e | 2020-07-11 22:14:59 +0200 | [diff] [blame] | 455 | cctx_T *cctx, |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 456 | int silent, |
| 457 | int actual_is_const) |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 458 | { |
Bram Moolenaar | 7a3fe3e | 2021-07-22 14:58:47 +0200 | [diff] [blame] | 459 | where_T where = WHERE_INIT; |
Bram Moolenaar | f785aa1 | 2021-02-11 21:19:34 +0100 | [diff] [blame] | 460 | |
Bram Moolenaar | f785aa1 | 2021-02-11 21:19:34 +0100 | [diff] [blame] | 461 | where.wt_index = arg_idx; |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 462 | return need_type_where(actual, expected, offset, where, |
| 463 | cctx, silent, actual_is_const); |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 464 | } |
| 465 | |
| 466 | /* |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 467 | * Set type of variable "lvar" to "type". If the variable is a constant then |
| 468 | * the type gets TTFLAG_CONST. |
| 469 | */ |
| 470 | static void |
| 471 | set_var_type(lvar_T *lvar, type_T *type_arg, cctx_T *cctx) |
| 472 | { |
| 473 | type_T *type = type_arg; |
| 474 | |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 475 | if (lvar->lv_const == ASSIGN_CONST && (type->tt_flags & TTFLAG_CONST) == 0) |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 476 | { |
| 477 | if (type->tt_flags & TTFLAG_STATIC) |
| 478 | // entry in static_types[] is followed by const type |
| 479 | type = type + 1; |
| 480 | else |
| 481 | { |
| 482 | type = copy_type(type, cctx->ctx_type_list); |
| 483 | type->tt_flags |= TTFLAG_CONST; |
| 484 | } |
| 485 | } |
| 486 | lvar->lv_type = type; |
| 487 | } |
| 488 | |
| 489 | /* |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 490 | * Reserve space for a local variable. |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 491 | * "assign" can be ASSIGN_VAR for :var, ASSIGN_CONST for :const and |
| 492 | * ASSIGN_FINAL for :final. |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 493 | * Return the variable or NULL if it failed. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 494 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 495 | lvar_T * |
Bram Moolenaar | e8211a3 | 2020-10-09 22:04:29 +0200 | [diff] [blame] | 496 | reserve_local( |
| 497 | cctx_T *cctx, |
| 498 | char_u *name, |
| 499 | size_t len, |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 500 | int assign, |
Bram Moolenaar | e8211a3 | 2020-10-09 22:04:29 +0200 | [diff] [blame] | 501 | type_T *type) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 502 | { |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 503 | lvar_T *lvar; |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 504 | dfunc_T *dfunc; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 505 | |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 506 | if (arg_exists(name, len, NULL, NULL, NULL, cctx) == OK) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 507 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 508 | emsg_namelen(_(e_str_is_used_as_argument), name, (int)len); |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 509 | return NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 510 | } |
| 511 | |
Bram Moolenaar | 3557816 | 2021-08-02 19:10:38 +0200 | [diff] [blame] | 512 | if (GA_GROW_FAILS(&cctx->ctx_locals, 1)) |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 513 | return NULL; |
| 514 | lvar = ((lvar_T *)cctx->ctx_locals.ga_data) + cctx->ctx_locals.ga_len++; |
Bram Moolenaar | e8211a3 | 2020-10-09 22:04:29 +0200 | [diff] [blame] | 515 | CLEAR_POINTER(lvar); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 516 | |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 517 | // Every local variable uses the next entry on the stack. We could re-use |
| 518 | // the last ones when leaving a scope, but then variables used in a closure |
| 519 | // might get overwritten. To keep things simple do not re-use stack |
| 520 | // entries. This is less efficient, but memory is cheap these days. |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 521 | dfunc = ((dfunc_T *)def_functions.ga_data) + cctx->ctx_ufunc->uf_dfunc_idx; |
| 522 | lvar->lv_idx = dfunc->df_var_names.ga_len; |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 523 | |
Bram Moolenaar | 71ccd03 | 2020-06-12 22:59:11 +0200 | [diff] [blame] | 524 | lvar->lv_name = vim_strnsave(name, len == 0 ? STRLEN(name) : len); |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 525 | lvar->lv_const = assign; |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 526 | if (type == &t_unknown || type == &t_any) |
| 527 | // type not known yet, may be inferred from RHS |
| 528 | lvar->lv_type = type; |
| 529 | else |
| 530 | // may use TTFLAG_CONST |
| 531 | set_var_type(lvar, type, cctx); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 532 | |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 533 | // Remember the name for debugging. |
Bram Moolenaar | 3557816 | 2021-08-02 19:10:38 +0200 | [diff] [blame] | 534 | if (GA_GROW_FAILS(&dfunc->df_var_names, 1)) |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 535 | return NULL; |
| 536 | ((char_u **)dfunc->df_var_names.ga_data)[lvar->lv_idx] = |
| 537 | vim_strsave(lvar->lv_name); |
| 538 | ++dfunc->df_var_names.ga_len; |
| 539 | |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 540 | return lvar; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 541 | } |
| 542 | |
| 543 | /* |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 544 | * If "check_writable" is ASSIGN_CONST give an error if the variable was |
| 545 | * defined with :final or :const, if "check_writable" is ASSIGN_FINAL give an |
| 546 | * error if the variable was defined with :const. |
| 547 | */ |
| 548 | static int |
| 549 | check_item_writable(svar_T *sv, int check_writable, char_u *name) |
| 550 | { |
| 551 | if ((check_writable == ASSIGN_CONST && sv->sv_const != 0) |
| 552 | || (check_writable == ASSIGN_FINAL |
| 553 | && sv->sv_const == ASSIGN_CONST)) |
| 554 | { |
Bram Moolenaar | d8e4447 | 2021-07-21 22:20:33 +0200 | [diff] [blame] | 555 | semsg(_(e_cannot_change_readonly_variable_str), name); |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 556 | return FAIL; |
| 557 | } |
| 558 | return OK; |
| 559 | } |
| 560 | |
| 561 | /* |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 562 | * Find "name" in script-local items of script "sid". |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 563 | * Pass "check_writable" to check_item_writable(). |
Bram Moolenaar | 7a3b802 | 2022-02-14 19:53:03 +0000 | [diff] [blame] | 564 | * "cctx" is NULL at the script level, "cstack" is NULL in a function. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 565 | * Returns the index in "sn_var_vals" if found. |
| 566 | * If found but not in "sn_var_vals" returns -1. |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 567 | * If not found or the variable is not writable returns -2. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 568 | */ |
| 569 | int |
Bram Moolenaar | b6a138e | 2022-02-08 21:17:22 +0000 | [diff] [blame] | 570 | get_script_item_idx( |
| 571 | int sid, |
| 572 | char_u *name, |
| 573 | int check_writable, |
| 574 | cctx_T *cctx, |
| 575 | cstack_T *cstack) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 576 | { |
| 577 | hashtab_T *ht; |
| 578 | dictitem_T *di; |
Bram Moolenaar | 21b9e97 | 2020-01-26 19:26:46 +0100 | [diff] [blame] | 579 | scriptitem_T *si = SCRIPT_ITEM(sid); |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 580 | svar_T *sv; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 581 | int idx; |
| 582 | |
Bram Moolenaar | e3d4685 | 2020-08-29 13:39:17 +0200 | [diff] [blame] | 583 | if (!SCRIPT_ID_VALID(sid)) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 584 | return -1; |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 585 | if (sid == current_sctx.sc_sid) |
| 586 | { |
Bram Moolenaar | b6a138e | 2022-02-08 21:17:22 +0000 | [diff] [blame] | 587 | sallvar_T *sav = find_script_var(name, 0, cctx, cstack); |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 588 | |
| 589 | if (sav == NULL) |
| 590 | return -2; |
| 591 | idx = sav->sav_var_vals_idx; |
| 592 | sv = ((svar_T *)si->sn_var_vals.ga_data) + idx; |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 593 | if (check_item_writable(sv, check_writable, name) == FAIL) |
| 594 | return -2; |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 595 | return idx; |
| 596 | } |
| 597 | |
| 598 | // First look the name up in the hashtable. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 599 | ht = &SCRIPT_VARS(sid); |
| 600 | di = find_var_in_ht(ht, 0, name, TRUE); |
| 601 | if (di == NULL) |
Bram Moolenaar | 577bd85 | 2022-01-10 18:42:52 +0000 | [diff] [blame] | 602 | { |
| 603 | if (si->sn_autoload_prefix != NULL) |
| 604 | { |
| 605 | hashitem_T *hi; |
| 606 | |
| 607 | // A variable exported from an autoload script is in the global |
| 608 | // variables, we can find it in the all_vars table. |
| 609 | hi = hash_find(&si->sn_all_vars.dv_hashtab, name); |
| 610 | if (!HASHITEM_EMPTY(hi)) |
| 611 | return HI2SAV(hi)->sav_var_vals_idx; |
| 612 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 613 | return -2; |
Bram Moolenaar | 577bd85 | 2022-01-10 18:42:52 +0000 | [diff] [blame] | 614 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 615 | |
| 616 | // Now find the svar_T index in sn_var_vals. |
| 617 | for (idx = 0; idx < si->sn_var_vals.ga_len; ++idx) |
| 618 | { |
Bram Moolenaar | fbbcd00 | 2020-10-15 12:46:44 +0200 | [diff] [blame] | 619 | sv = ((svar_T *)si->sn_var_vals.ga_data) + idx; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 620 | if (sv->sv_tv == &di->di_tv) |
| 621 | { |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 622 | if (check_item_writable(sv, check_writable, name) == FAIL) |
| 623 | return -2; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 624 | return idx; |
| 625 | } |
| 626 | } |
| 627 | return -1; |
| 628 | } |
| 629 | |
Yegappan Lakshmanan | 782b43d | 2022-01-08 18:43:40 +0000 | [diff] [blame] | 630 | static imported_T * |
| 631 | find_imported_in_script(char_u *name, size_t len, int sid) |
| 632 | { |
| 633 | scriptitem_T *si; |
| 634 | int idx; |
| 635 | |
| 636 | if (!SCRIPT_ID_VALID(sid)) |
| 637 | return NULL; |
| 638 | si = SCRIPT_ITEM(sid); |
| 639 | for (idx = 0; idx < si->sn_imports.ga_len; ++idx) |
| 640 | { |
| 641 | imported_T *import = ((imported_T *)si->sn_imports.ga_data) + idx; |
| 642 | |
| 643 | if (len == 0 ? STRCMP(name, import->imp_name) == 0 |
| 644 | : STRLEN(import->imp_name) == len |
| 645 | && STRNCMP(name, import->imp_name, len) == 0) |
| 646 | return import; |
| 647 | } |
| 648 | return NULL; |
| 649 | } |
| 650 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 651 | /* |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 652 | * Find "name" in imported items of the current script. |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 653 | * If "len" is 0 use any length that works. |
Bram Moolenaar | dc4451d | 2022-01-09 21:36:37 +0000 | [diff] [blame] | 654 | * If "load" is TRUE and the script was not loaded yet, load it now. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 655 | */ |
| 656 | imported_T * |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 657 | find_imported(char_u *name, size_t len, int load) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 658 | { |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 659 | imported_T *ret; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 660 | |
Bram Moolenaar | e3d4685 | 2020-08-29 13:39:17 +0200 | [diff] [blame] | 661 | if (!SCRIPT_ID_VALID(current_sctx.sc_sid)) |
Bram Moolenaar | 8e6cbb7 | 2020-07-01 14:38:12 +0200 | [diff] [blame] | 662 | return NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 663 | |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 664 | ret = find_imported_in_script(name, len, current_sctx.sc_sid); |
Bram Moolenaar | b697dc2 | 2022-01-22 11:27:29 +0000 | [diff] [blame] | 665 | if (ret != NULL && load && (ret->imp_flags & IMP_FLAGS_AUTOLOAD)) |
Bram Moolenaar | dc4451d | 2022-01-09 21:36:37 +0000 | [diff] [blame] | 666 | { |
Bram Moolenaar | 753885b | 2022-08-24 16:30:36 +0100 | [diff] [blame] | 667 | scid_T actual_sid = 0; |
Bram Moolenaar | 6809ff9 | 2022-07-26 15:10:56 +0100 | [diff] [blame] | 668 | int save_emsg_off = emsg_off; |
| 669 | |
| 670 | // "emsg_off" will be set when evaluating an expression silently, but |
| 671 | // we do want to know about errors in a script. Also because it then |
| 672 | // aborts when an error is encountered. |
| 673 | emsg_off = FALSE; |
Bram Moolenaar | 17d36cb | 2022-01-12 11:46:40 +0000 | [diff] [blame] | 674 | |
Bram Moolenaar | dc4451d | 2022-01-09 21:36:37 +0000 | [diff] [blame] | 675 | // script found before but not loaded yet |
Bram Moolenaar | b697dc2 | 2022-01-22 11:27:29 +0000 | [diff] [blame] | 676 | ret->imp_flags &= ~IMP_FLAGS_AUTOLOAD; |
Bram Moolenaar | dc4451d | 2022-01-09 21:36:37 +0000 | [diff] [blame] | 677 | (void)do_source(SCRIPT_ITEM(ret->imp_sid)->sn_name, FALSE, |
Bram Moolenaar | 753885b | 2022-08-24 16:30:36 +0100 | [diff] [blame] | 678 | DOSO_NONE, &actual_sid); |
| 679 | // If the script is a symlink it may be sourced with another name, may |
| 680 | // need to adjust the script ID for that. |
| 681 | if (actual_sid != 0) |
| 682 | ret->imp_sid = actual_sid; |
Bram Moolenaar | 6809ff9 | 2022-07-26 15:10:56 +0100 | [diff] [blame] | 683 | |
| 684 | emsg_off = save_emsg_off; |
Bram Moolenaar | dc4451d | 2022-01-09 21:36:37 +0000 | [diff] [blame] | 685 | } |
| 686 | return ret; |
Bram Moolenaar | efa9444 | 2020-08-08 22:16:00 +0200 | [diff] [blame] | 687 | } |
| 688 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 689 | /* |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 690 | * Called when checking for a following operator at "arg". When the rest of |
| 691 | * the line is empty or only a comment, peek the next line. If there is a next |
| 692 | * line return a pointer to it and set "nextp". |
| 693 | * Otherwise skip over white space. |
| 694 | */ |
| 695 | char_u * |
| 696 | may_peek_next_line(cctx_T *cctx, char_u *arg, char_u **nextp) |
| 697 | { |
| 698 | char_u *p = skipwhite(arg); |
| 699 | |
| 700 | *nextp = NULL; |
| 701 | if (*p == NUL || (VIM_ISWHITE(*arg) && vim9_comment_start(p))) |
| 702 | { |
| 703 | *nextp = peek_next_line_from_context(cctx); |
| 704 | if (*nextp != NULL) |
| 705 | return *nextp; |
| 706 | } |
| 707 | return p; |
| 708 | } |
| 709 | |
| 710 | /* |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 711 | * Return a pointer to the next line that isn't empty or only contains a |
| 712 | * comment. Skips over white space. |
| 713 | * Returns NULL if there is none. |
| 714 | */ |
Bram Moolenaar | 7a4b898 | 2020-07-08 17:36:21 +0200 | [diff] [blame] | 715 | char_u * |
| 716 | peek_next_line_from_context(cctx_T *cctx) |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 717 | { |
| 718 | int lnum = cctx->ctx_lnum; |
| 719 | |
| 720 | while (++lnum < cctx->ctx_ufunc->uf_lines.ga_len) |
| 721 | { |
| 722 | char_u *line = ((char_u **)cctx->ctx_ufunc->uf_lines.ga_data)[lnum]; |
Bram Moolenaar | acd4c5e | 2020-06-22 19:39:03 +0200 | [diff] [blame] | 723 | char_u *p; |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 724 | |
Bram Moolenaar | ba60cc4 | 2020-08-12 19:15:33 +0200 | [diff] [blame] | 725 | // ignore NULLs inserted for continuation lines |
| 726 | if (line != NULL) |
| 727 | { |
| 728 | p = skipwhite(line); |
Bram Moolenaar | 4b3e196 | 2021-03-18 21:37:55 +0100 | [diff] [blame] | 729 | if (vim9_bad_comment(p)) |
| 730 | return NULL; |
Bram Moolenaar | ba60cc4 | 2020-08-12 19:15:33 +0200 | [diff] [blame] | 731 | if (*p != NUL && !vim9_comment_start(p)) |
| 732 | return p; |
| 733 | } |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 734 | } |
| 735 | return NULL; |
| 736 | } |
| 737 | |
| 738 | /* |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 739 | * Get the next line of the function from "cctx". |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 740 | * Skips over empty lines. Skips over comment lines if "skip_comment" is TRUE. |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 741 | * Returns NULL when at the end. |
| 742 | */ |
Bram Moolenaar | 7a4b898 | 2020-07-08 17:36:21 +0200 | [diff] [blame] | 743 | char_u * |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 744 | next_line_from_context(cctx_T *cctx, int skip_comment) |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 745 | { |
Bram Moolenaar | 7a09224 | 2020-04-16 22:10:49 +0200 | [diff] [blame] | 746 | char_u *line; |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 747 | |
| 748 | do |
| 749 | { |
| 750 | ++cctx->ctx_lnum; |
| 751 | if (cctx->ctx_lnum >= cctx->ctx_ufunc->uf_lines.ga_len) |
Bram Moolenaar | 7a09224 | 2020-04-16 22:10:49 +0200 | [diff] [blame] | 752 | { |
| 753 | line = NULL; |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 754 | break; |
Bram Moolenaar | 7a09224 | 2020-04-16 22:10:49 +0200 | [diff] [blame] | 755 | } |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 756 | line = ((char_u **)cctx->ctx_ufunc->uf_lines.ga_data)[cctx->ctx_lnum]; |
Bram Moolenaar | 7a09224 | 2020-04-16 22:10:49 +0200 | [diff] [blame] | 757 | cctx->ctx_line_start = line; |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 758 | SOURCING_LNUM = cctx->ctx_lnum + 1; |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 759 | } while (line == NULL || *skipwhite(line) == NUL |
Bram Moolenaar | 2dd0a2c | 2020-08-08 15:10:27 +0200 | [diff] [blame] | 760 | || (skip_comment && vim9_comment_start(skipwhite(line)))); |
Bram Moolenaar | e6085c5 | 2020-04-12 20:19:16 +0200 | [diff] [blame] | 761 | return line; |
| 762 | } |
| 763 | |
| 764 | /* |
Bram Moolenaar | 5afd081 | 2021-01-03 18:33:13 +0100 | [diff] [blame] | 765 | * Skip over white space at "whitep" and assign to "*arg". |
Bram Moolenaar | 9c7e6dd | 2020-04-12 20:55:20 +0200 | [diff] [blame] | 766 | * If "*arg" is at the end of the line, advance to the next line. |
Bram Moolenaar | 2c33043 | 2020-04-13 14:41:35 +0200 | [diff] [blame] | 767 | * Also when "whitep" points to white space and "*arg" is on a "#". |
Bram Moolenaar | 9c7e6dd | 2020-04-12 20:55:20 +0200 | [diff] [blame] | 768 | * Return FAIL if beyond the last line, "*arg" is unmodified then. |
| 769 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 770 | int |
Bram Moolenaar | 2c33043 | 2020-04-13 14:41:35 +0200 | [diff] [blame] | 771 | may_get_next_line(char_u *whitep, char_u **arg, cctx_T *cctx) |
Bram Moolenaar | 9c7e6dd | 2020-04-12 20:55:20 +0200 | [diff] [blame] | 772 | { |
Bram Moolenaar | 5afd081 | 2021-01-03 18:33:13 +0100 | [diff] [blame] | 773 | *arg = skipwhite(whitep); |
Bram Moolenaar | 4b3e196 | 2021-03-18 21:37:55 +0100 | [diff] [blame] | 774 | if (vim9_bad_comment(*arg)) |
| 775 | return FAIL; |
Bram Moolenaar | f5be8cd | 2020-07-17 20:36:00 +0200 | [diff] [blame] | 776 | if (**arg == NUL || (VIM_ISWHITE(*whitep) && vim9_comment_start(*arg))) |
Bram Moolenaar | 9c7e6dd | 2020-04-12 20:55:20 +0200 | [diff] [blame] | 777 | { |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 778 | char_u *next = next_line_from_context(cctx, TRUE); |
Bram Moolenaar | 9c7e6dd | 2020-04-12 20:55:20 +0200 | [diff] [blame] | 779 | |
| 780 | if (next == NULL) |
| 781 | return FAIL; |
| 782 | *arg = skipwhite(next); |
| 783 | } |
| 784 | return OK; |
| 785 | } |
| 786 | |
Bram Moolenaar | a7eedf3 | 2020-07-10 21:50:41 +0200 | [diff] [blame] | 787 | /* |
| 788 | * Idem, and give an error when failed. |
| 789 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 790 | int |
Bram Moolenaar | a7eedf3 | 2020-07-10 21:50:41 +0200 | [diff] [blame] | 791 | may_get_next_line_error(char_u *whitep, char_u **arg, cctx_T *cctx) |
| 792 | { |
| 793 | if (may_get_next_line(whitep, arg, cctx) == FAIL) |
| 794 | { |
Bram Moolenaar | 8ff16e0 | 2020-12-07 21:49:52 +0100 | [diff] [blame] | 795 | SOURCING_LNUM = cctx->ctx_lnum + 1; |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 796 | emsg(_(e_line_incomplete)); |
Bram Moolenaar | a7eedf3 | 2020-07-10 21:50:41 +0200 | [diff] [blame] | 797 | return FAIL; |
| 798 | } |
| 799 | return OK; |
| 800 | } |
| 801 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 802 | /* |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 803 | * Get a line from the compilation context, compatible with exarg_T getline(). |
| 804 | * Return a pointer to the line in allocated memory. |
| 805 | * Return NULL for end-of-file or some error. |
| 806 | */ |
| 807 | static char_u * |
| 808 | exarg_getline( |
| 809 | int c UNUSED, |
| 810 | void *cookie, |
| 811 | int indent UNUSED, |
Bram Moolenaar | 66250c9 | 2020-08-20 15:02:42 +0200 | [diff] [blame] | 812 | getline_opt_T options UNUSED) |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 813 | { |
| 814 | cctx_T *cctx = (cctx_T *)cookie; |
Bram Moolenaar | 66250c9 | 2020-08-20 15:02:42 +0200 | [diff] [blame] | 815 | char_u *p; |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 816 | |
Bram Moolenaar | 66250c9 | 2020-08-20 15:02:42 +0200 | [diff] [blame] | 817 | for (;;) |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 818 | { |
Bram Moolenaar | 2914a20 | 2020-09-27 18:24:03 +0200 | [diff] [blame] | 819 | if (cctx->ctx_lnum >= cctx->ctx_ufunc->uf_lines.ga_len - 1) |
Bram Moolenaar | 66250c9 | 2020-08-20 15:02:42 +0200 | [diff] [blame] | 820 | return NULL; |
| 821 | ++cctx->ctx_lnum; |
| 822 | p = ((char_u **)cctx->ctx_ufunc->uf_lines.ga_data)[cctx->ctx_lnum]; |
| 823 | // Comment lines result in NULL pointers, skip them. |
| 824 | if (p != NULL) |
| 825 | return vim_strsave(p); |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 826 | } |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 827 | } |
| 828 | |
Bram Moolenaar | 7a6eaa0 | 2021-03-21 20:53:29 +0100 | [diff] [blame] | 829 | void |
| 830 | fill_exarg_from_cctx(exarg_T *eap, cctx_T *cctx) |
| 831 | { |
| 832 | eap->getline = exarg_getline; |
| 833 | eap->cookie = cctx; |
Bram Moolenaar | 4f3321f | 2022-03-13 13:12:27 +0000 | [diff] [blame] | 834 | eap->skip = cctx->ctx_skip == SKIP_YES; |
Bram Moolenaar | 7a6eaa0 | 2021-03-21 20:53:29 +0100 | [diff] [blame] | 835 | } |
| 836 | |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 837 | /* |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 838 | * Return TRUE if "ufunc" should be compiled, taking into account whether |
| 839 | * "profile" indicates profiling is to be done. |
| 840 | */ |
| 841 | int |
| 842 | func_needs_compiling(ufunc_T *ufunc, compiletype_T compile_type) |
| 843 | { |
| 844 | switch (ufunc->uf_def_status) |
| 845 | { |
| 846 | case UF_TO_BE_COMPILED: |
| 847 | return TRUE; |
| 848 | |
| 849 | case UF_COMPILED: |
| 850 | { |
| 851 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 852 | + ufunc->uf_dfunc_idx; |
| 853 | |
| 854 | switch (compile_type) |
| 855 | { |
| 856 | case CT_PROFILE: |
| 857 | #ifdef FEAT_PROFILE |
| 858 | return dfunc->df_instr_prof == NULL; |
| 859 | #endif |
| 860 | case CT_NONE: |
| 861 | return dfunc->df_instr == NULL; |
| 862 | case CT_DEBUG: |
| 863 | return dfunc->df_instr_debug == NULL; |
| 864 | } |
| 865 | } |
| 866 | |
| 867 | case UF_NOT_COMPILED: |
| 868 | case UF_COMPILE_ERROR: |
| 869 | case UF_COMPILING: |
| 870 | break; |
| 871 | } |
| 872 | return FALSE; |
| 873 | } |
| 874 | |
| 875 | /* |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 876 | * Compile a nested :def command. |
| 877 | */ |
| 878 | static char_u * |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 879 | compile_nested_function(exarg_T *eap, cctx_T *cctx, garray_T *lines_to_free) |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 880 | { |
Bram Moolenaar | 38ddf33 | 2020-07-31 22:05:04 +0200 | [diff] [blame] | 881 | int is_global = *eap->arg == 'g' && eap->arg[1] == ':'; |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 882 | char_u *name_start = eap->arg; |
Bram Moolenaar | bcbf413 | 2020-08-01 22:35:13 +0200 | [diff] [blame] | 883 | char_u *name_end = to_name_end(eap->arg, TRUE); |
Bram Moolenaar | 9c23f9b | 2021-12-26 14:23:22 +0000 | [diff] [blame] | 884 | int off; |
| 885 | char_u *func_name; |
Bram Moolenaar | eef2102 | 2020-08-01 22:16:43 +0200 | [diff] [blame] | 886 | char_u *lambda_name; |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 887 | ufunc_T *ufunc; |
Bram Moolenaar | 58a52f2 | 2020-12-22 18:56:55 +0100 | [diff] [blame] | 888 | int r = FAIL; |
Bram Moolenaar | ffcfddc | 2021-07-11 20:22:30 +0200 | [diff] [blame] | 889 | compiletype_T compile_type; |
Bram Moolenaar | a915fa0 | 2022-03-23 11:29:15 +0000 | [diff] [blame] | 890 | isn_T *funcref_isn = NULL; |
Bram Moolenaar | 1889f49 | 2022-08-16 19:34:44 +0100 | [diff] [blame] | 891 | lvar_T *lvar = NULL; |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 892 | |
Bram Moolenaar | 0b4c66c | 2020-09-14 21:39:44 +0200 | [diff] [blame] | 893 | if (eap->forceit) |
Bram Moolenaar | 8b848ca | 2020-09-10 22:28:01 +0200 | [diff] [blame] | 894 | { |
| 895 | emsg(_(e_cannot_use_bang_with_nested_def)); |
| 896 | return NULL; |
| 897 | } |
| 898 | |
Bram Moolenaar | 6abdcf8 | 2020-11-22 18:15:44 +0100 | [diff] [blame] | 899 | if (*name_start == '/') |
| 900 | { |
| 901 | name_end = skip_regexp(name_start + 1, '/', TRUE); |
| 902 | if (*name_end == '/') |
| 903 | ++name_end; |
Bram Moolenaar | 63b9173 | 2021-08-05 20:40:03 +0200 | [diff] [blame] | 904 | set_nextcmd(eap, name_end); |
Bram Moolenaar | 6abdcf8 | 2020-11-22 18:15:44 +0100 | [diff] [blame] | 905 | } |
| 906 | if (name_end == name_start || *skipwhite(name_end) != '(') |
| 907 | { |
| 908 | if (!ends_excmd2(name_start, name_end)) |
| 909 | { |
Bram Moolenaar | dea5ab0 | 2022-02-23 22:12:02 +0000 | [diff] [blame] | 910 | if (*skipwhite(name_end) == '.') |
| 911 | semsg(_(e_cannot_define_dict_func_in_vim9_script_str), |
| 912 | eap->cmd); |
| 913 | else |
| 914 | semsg(_(e_invalid_command_str), eap->cmd); |
Bram Moolenaar | 6abdcf8 | 2020-11-22 18:15:44 +0100 | [diff] [blame] | 915 | return NULL; |
| 916 | } |
| 917 | |
| 918 | // "def" or "def Name": list functions |
| 919 | if (generate_DEF(cctx, name_start, name_end - name_start) == FAIL) |
| 920 | return NULL; |
| 921 | return eap->nextcmd == NULL ? (char_u *)"" : eap->nextcmd; |
| 922 | } |
| 923 | |
Bram Moolenaar | bcbf413 | 2020-08-01 22:35:13 +0200 | [diff] [blame] | 924 | // Only g:Func() can use a namespace. |
| 925 | if (name_start[1] == ':' && !is_global) |
| 926 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 927 | semsg(_(e_namespace_not_supported_str), name_start); |
Bram Moolenaar | bcbf413 | 2020-08-01 22:35:13 +0200 | [diff] [blame] | 928 | return NULL; |
| 929 | } |
Bram Moolenaar | 4f3321f | 2022-03-13 13:12:27 +0000 | [diff] [blame] | 930 | if (cctx->ctx_skip != SKIP_YES |
| 931 | && check_defined(name_start, name_end - name_start, cctx, |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 932 | NULL, FALSE) == FAIL) |
Bram Moolenaar | eef2102 | 2020-08-01 22:16:43 +0200 | [diff] [blame] | 933 | return NULL; |
Bram Moolenaar | f681cfb | 2022-02-07 20:30:57 +0000 | [diff] [blame] | 934 | if (!ASCII_ISUPPER(is_global ? name_start[2] : name_start[0])) |
| 935 | { |
Bram Moolenaar | 3787f26 | 2022-02-07 21:54:01 +0000 | [diff] [blame] | 936 | semsg(_(e_function_name_must_start_with_capital_str), name_start); |
Bram Moolenaar | f681cfb | 2022-02-07 20:30:57 +0000 | [diff] [blame] | 937 | return NULL; |
| 938 | } |
Bram Moolenaar | eef2102 | 2020-08-01 22:16:43 +0200 | [diff] [blame] | 939 | |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 940 | eap->arg = name_end; |
Bram Moolenaar | 7a6eaa0 | 2021-03-21 20:53:29 +0100 | [diff] [blame] | 941 | fill_exarg_from_cctx(eap, cctx); |
| 942 | |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 943 | eap->forceit = FALSE; |
Bram Moolenaar | 3845352 | 2021-11-28 22:00:12 +0000 | [diff] [blame] | 944 | // We use the special <Lamba>99 name, but it's not really a lambda. |
Bram Moolenaar | 58a52f2 | 2020-12-22 18:56:55 +0100 | [diff] [blame] | 945 | lambda_name = vim_strsave(get_lambda_name()); |
| 946 | if (lambda_name == NULL) |
| 947 | return NULL; |
Bram Moolenaar | 9c23f9b | 2021-12-26 14:23:22 +0000 | [diff] [blame] | 948 | |
| 949 | // This may free the current line, make a copy of the name. |
| 950 | off = is_global ? 2 : 0; |
| 951 | func_name = vim_strnsave(name_start + off, name_end - name_start - off); |
| 952 | if (func_name == NULL) |
| 953 | { |
| 954 | r = FAIL; |
| 955 | goto theend; |
| 956 | } |
| 957 | |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 958 | ufunc = define_function(eap, lambda_name, lines_to_free); |
Bram Moolenaar | 822ba24 | 2020-05-24 23:00:18 +0200 | [diff] [blame] | 959 | if (ufunc == NULL) |
Bram Moolenaar | 58a52f2 | 2020-12-22 18:56:55 +0100 | [diff] [blame] | 960 | { |
| 961 | r = eap->skip ? OK : FAIL; |
| 962 | goto theend; |
| 963 | } |
Bram Moolenaar | 7473a84 | 2021-12-28 17:55:26 +0000 | [diff] [blame] | 964 | if (eap->nextcmd != NULL) |
| 965 | { |
| 966 | semsg(_(e_text_found_after_str_str), |
| 967 | eap->cmdidx == CMD_def ? "enddef" : "endfunction", eap->nextcmd); |
| 968 | r = FAIL; |
Bram Moolenaar | d293981 | 2021-12-30 17:09:05 +0000 | [diff] [blame] | 969 | func_ptr_unref(ufunc); |
Bram Moolenaar | 7473a84 | 2021-12-28 17:55:26 +0000 | [diff] [blame] | 970 | goto theend; |
| 971 | } |
Bram Moolenaar | 8863bda | 2021-03-17 18:42:08 +0100 | [diff] [blame] | 972 | |
| 973 | // copy over the block scope IDs before compiling |
| 974 | if (!is_global && cctx->ctx_ufunc->uf_block_depth > 0) |
| 975 | { |
| 976 | int block_depth = cctx->ctx_ufunc->uf_block_depth; |
| 977 | |
| 978 | ufunc->uf_block_ids = ALLOC_MULT(int, block_depth); |
| 979 | if (ufunc->uf_block_ids != NULL) |
| 980 | { |
| 981 | mch_memmove(ufunc->uf_block_ids, cctx->ctx_ufunc->uf_block_ids, |
| 982 | sizeof(int) * block_depth); |
| 983 | ufunc->uf_block_depth = block_depth; |
| 984 | } |
| 985 | } |
| 986 | |
Bram Moolenaar | a915fa0 | 2022-03-23 11:29:15 +0000 | [diff] [blame] | 987 | // Define the funcref before compiling, so that it is found by any |
| 988 | // recursive call. |
| 989 | if (is_global) |
| 990 | { |
Bram Moolenaar | 65449bd | 2022-09-19 16:02:43 +0100 | [diff] [blame] | 991 | r = generate_NEWFUNC(cctx, lambda_name, func_name); |
Bram Moolenaar | a915fa0 | 2022-03-23 11:29:15 +0000 | [diff] [blame] | 992 | func_name = NULL; |
| 993 | lambda_name = NULL; |
| 994 | } |
| 995 | else |
| 996 | { |
| 997 | // Define a local variable for the function reference. |
Bram Moolenaar | 1889f49 | 2022-08-16 19:34:44 +0100 | [diff] [blame] | 998 | lvar = reserve_local(cctx, func_name, name_end - name_start, |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 999 | ASSIGN_CONST, ufunc->uf_func_type); |
Bram Moolenaar | a915fa0 | 2022-03-23 11:29:15 +0000 | [diff] [blame] | 1000 | if (lvar == NULL) |
| 1001 | goto theend; |
| 1002 | if (generate_FUNCREF(cctx, ufunc, &funcref_isn) == FAIL) |
| 1003 | goto theend; |
| 1004 | r = generate_STORE(cctx, ISN_STORE, lvar->lv_idx, NULL); |
| 1005 | } |
| 1006 | |
Bram Moolenaar | 139575d | 2022-03-15 19:29:30 +0000 | [diff] [blame] | 1007 | compile_type = get_compile_type(ufunc); |
Bram Moolenaar | ffcfddc | 2021-07-11 20:22:30 +0200 | [diff] [blame] | 1008 | #ifdef FEAT_PROFILE |
| 1009 | // If the outer function is profiled, also compile the nested function for |
| 1010 | // profiling. |
| 1011 | if (cctx->ctx_compile_type == CT_PROFILE) |
| 1012 | compile_type = CT_PROFILE; |
| 1013 | #endif |
| 1014 | if (func_needs_compiling(ufunc, compile_type) |
| 1015 | && compile_def_function(ufunc, TRUE, compile_type, cctx) == FAIL) |
Bram Moolenaar | 4ee711f | 2020-09-23 18:51:11 +0200 | [diff] [blame] | 1016 | { |
| 1017 | func_ptr_unref(ufunc); |
Bram Moolenaar | 1889f49 | 2022-08-16 19:34:44 +0100 | [diff] [blame] | 1018 | if (lvar != NULL) |
| 1019 | // Now the local variable can't be used. |
| 1020 | *lvar->lv_name = '/'; // impossible value |
Bram Moolenaar | 58a52f2 | 2020-12-22 18:56:55 +0100 | [diff] [blame] | 1021 | goto theend; |
Bram Moolenaar | 4ee711f | 2020-09-23 18:51:11 +0200 | [diff] [blame] | 1022 | } |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 1023 | |
Bram Moolenaar | 648594e | 2021-07-11 17:55:01 +0200 | [diff] [blame] | 1024 | #ifdef FEAT_PROFILE |
| 1025 | // When the outer function is compiled for profiling, the nested function |
| 1026 | // may be called without profiling. Compile it here in the right context. |
Bram Moolenaar | ffcfddc | 2021-07-11 20:22:30 +0200 | [diff] [blame] | 1027 | if (compile_type == CT_PROFILE && func_needs_compiling(ufunc, CT_NONE)) |
Bram Moolenaar | 648594e | 2021-07-11 17:55:01 +0200 | [diff] [blame] | 1028 | compile_def_function(ufunc, FALSE, CT_NONE, cctx); |
| 1029 | #endif |
| 1030 | |
Bram Moolenaar | a915fa0 | 2022-03-23 11:29:15 +0000 | [diff] [blame] | 1031 | // If a FUNCREF instruction was generated, set the index after compiling. |
| 1032 | if (funcref_isn != NULL && ufunc->uf_def_status == UF_COMPILED) |
| 1033 | funcref_isn->isn_arg.funcref.fr_dfunc_idx = ufunc->uf_dfunc_idx; |
Bram Moolenaar | 58a52f2 | 2020-12-22 18:56:55 +0100 | [diff] [blame] | 1034 | |
| 1035 | theend: |
| 1036 | vim_free(lambda_name); |
Bram Moolenaar | 9c23f9b | 2021-12-26 14:23:22 +0000 | [diff] [blame] | 1037 | vim_free(func_name); |
Bram Moolenaar | 38ddf33 | 2020-07-31 22:05:04 +0200 | [diff] [blame] | 1038 | return r == FAIL ? NULL : (char_u *)""; |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 1039 | } |
| 1040 | |
| 1041 | /* |
Bram Moolenaar | 0abc287 | 2022-05-10 13:24:30 +0100 | [diff] [blame] | 1042 | * Compile one Vim expression {expr} in string "p". |
| 1043 | * "p" points to the opening "{". |
| 1044 | * Return a pointer to the character after "}", NULL for an error. |
| 1045 | */ |
| 1046 | char_u * |
| 1047 | compile_one_expr_in_str(char_u *p, cctx_T *cctx) |
| 1048 | { |
| 1049 | char_u *block_start; |
| 1050 | char_u *block_end; |
| 1051 | |
| 1052 | // Skip the opening {. |
| 1053 | block_start = skipwhite(p + 1); |
| 1054 | block_end = block_start; |
| 1055 | if (*block_start != NUL && skip_expr(&block_end, NULL) == FAIL) |
| 1056 | return NULL; |
| 1057 | block_end = skipwhite(block_end); |
| 1058 | // The block must be closed by a }. |
| 1059 | if (*block_end != '}') |
| 1060 | { |
| 1061 | semsg(_(e_missing_close_curly_str), p); |
| 1062 | return NULL; |
| 1063 | } |
| 1064 | if (compile_expr0(&block_start, cctx) == FAIL) |
| 1065 | return NULL; |
| 1066 | may_generate_2STRING(-1, TRUE, cctx); |
| 1067 | |
| 1068 | return block_end + 1; |
| 1069 | } |
| 1070 | |
| 1071 | /* |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1072 | * Compile a string "str" (either containing a literal string or a mix of |
| 1073 | * literal strings and Vim expressions of the form `{expr}`). This is used |
| 1074 | * when compiling a heredoc assignment to a variable or an interpolated string |
| 1075 | * in a Vim9 def function. Vim9 instructions are generated to push strings, |
| 1076 | * evaluate expressions, concatenate them and create a list of lines. When |
| 1077 | * "evalstr" is TRUE, Vim expressions in "str" are evaluated. |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1078 | */ |
| 1079 | int |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1080 | compile_all_expr_in_str(char_u *str, int evalstr, cctx_T *cctx) |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1081 | { |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1082 | char_u *p = str; |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1083 | char_u *val; |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1084 | int count = 0; |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1085 | |
| 1086 | if (cctx->ctx_skip == SKIP_YES) |
| 1087 | return OK; |
| 1088 | |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1089 | if (!evalstr || *str == NUL) |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1090 | { |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1091 | // Literal string, possibly empty. |
| 1092 | val = *str != NUL ? vim_strsave(str) : NULL; |
| 1093 | return generate_PUSHS(cctx, &val); |
| 1094 | } |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1095 | |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1096 | // Push all the string pieces to the stack, followed by a ISN_CONCAT. |
| 1097 | while (*p != NUL) |
| 1098 | { |
| 1099 | char_u *lit_start; |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1100 | int escaped_brace = FALSE; |
| 1101 | |
| 1102 | // Look for a block start. |
| 1103 | lit_start = p; |
| 1104 | while (*p != '{' && *p != '}' && *p != NUL) |
| 1105 | ++p; |
| 1106 | |
| 1107 | if (*p != NUL && *p == p[1]) |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1108 | { |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1109 | // Escaped brace, unescape and continue. |
| 1110 | // Include the brace in the literal string. |
| 1111 | ++p; |
| 1112 | escaped_brace = TRUE; |
| 1113 | } |
| 1114 | else if (*p == '}') |
| 1115 | { |
| 1116 | semsg(_(e_stray_closing_curly_str), str); |
| 1117 | return FAIL; |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1118 | } |
LemonBoy | 372bcce | 2022-04-25 12:43:20 +0100 | [diff] [blame] | 1119 | |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1120 | // Append the literal part. |
| 1121 | if (p != lit_start) |
| 1122 | { |
| 1123 | val = vim_strnsave(lit_start, (size_t)(p - lit_start)); |
| 1124 | if (generate_PUSHS(cctx, &val) == FAIL) |
| 1125 | return FAIL; |
| 1126 | ++count; |
| 1127 | } |
| 1128 | |
| 1129 | if (*p == NUL) |
| 1130 | break; |
| 1131 | |
| 1132 | if (escaped_brace) |
| 1133 | { |
| 1134 | // Skip the second brace. |
| 1135 | ++p; |
| 1136 | continue; |
| 1137 | } |
| 1138 | |
Bram Moolenaar | 0abc287 | 2022-05-10 13:24:30 +0100 | [diff] [blame] | 1139 | p = compile_one_expr_in_str(p, cctx); |
| 1140 | if (p == NULL) |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1141 | return FAIL; |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1142 | ++count; |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1143 | } |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1144 | |
| 1145 | // Small optimization, if there's only a single piece skip the ISN_CONCAT. |
Bram Moolenaar | 0abc287 | 2022-05-10 13:24:30 +0100 | [diff] [blame] | 1146 | if (count > 1) |
LemonBoy | 2eaef10 | 2022-05-06 13:14:50 +0100 | [diff] [blame] | 1147 | return generate_CONCAT(cctx, count); |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 1148 | |
| 1149 | return OK; |
| 1150 | } |
| 1151 | |
| 1152 | /* |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 1153 | * Return the length of an assignment operator, or zero if there isn't one. |
| 1154 | */ |
| 1155 | int |
| 1156 | assignment_len(char_u *p, int *heredoc) |
| 1157 | { |
| 1158 | if (*p == '=') |
| 1159 | { |
| 1160 | if (p[1] == '<' && p[2] == '<') |
| 1161 | { |
| 1162 | *heredoc = TRUE; |
| 1163 | return 3; |
| 1164 | } |
| 1165 | return 1; |
| 1166 | } |
| 1167 | if (vim_strchr((char_u *)"+-*/%", *p) != NULL && p[1] == '=') |
| 1168 | return 2; |
| 1169 | if (STRNCMP(p, "..=", 3) == 0) |
| 1170 | return 3; |
| 1171 | return 0; |
| 1172 | } |
| 1173 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 1174 | /* |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1175 | * Generate the load instruction for "name". |
| 1176 | */ |
| 1177 | static void |
| 1178 | generate_loadvar( |
| 1179 | cctx_T *cctx, |
| 1180 | assign_dest_T dest, |
| 1181 | char_u *name, |
| 1182 | lvar_T *lvar, |
| 1183 | type_T *type) |
| 1184 | { |
| 1185 | switch (dest) |
| 1186 | { |
| 1187 | case dest_option: |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 1188 | case dest_func_option: |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1189 | generate_LOAD(cctx, ISN_LOADOPT, 0, name, type); |
| 1190 | break; |
| 1191 | case dest_global: |
Bram Moolenaar | 03290b8 | 2020-12-19 16:30:44 +0100 | [diff] [blame] | 1192 | if (vim_strchr(name, AUTOLOAD_CHAR) == NULL) |
Bram Moolenaar | 2e17fef | 2022-03-18 19:44:48 +0000 | [diff] [blame] | 1193 | { |
| 1194 | if (name[2] == NUL) |
| 1195 | generate_instr_type(cctx, ISN_LOADGDICT, &t_dict_any); |
| 1196 | else |
| 1197 | generate_LOAD(cctx, ISN_LOADG, 0, name + 2, type); |
| 1198 | } |
Bram Moolenaar | 03290b8 | 2020-12-19 16:30:44 +0100 | [diff] [blame] | 1199 | else |
| 1200 | generate_LOAD(cctx, ISN_LOADAUTO, 0, name, type); |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1201 | break; |
| 1202 | case dest_buffer: |
| 1203 | generate_LOAD(cctx, ISN_LOADB, 0, name + 2, type); |
| 1204 | break; |
| 1205 | case dest_window: |
| 1206 | generate_LOAD(cctx, ISN_LOADW, 0, name + 2, type); |
| 1207 | break; |
| 1208 | case dest_tab: |
| 1209 | generate_LOAD(cctx, ISN_LOADT, 0, name + 2, type); |
| 1210 | break; |
| 1211 | case dest_script: |
| 1212 | compile_load_scriptvar(cctx, |
Bram Moolenaar | d0132f4 | 2022-05-12 11:05:40 +0100 | [diff] [blame] | 1213 | name + (name[1] == ':' ? 2 : 0), NULL, NULL); |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1214 | break; |
| 1215 | case dest_env: |
| 1216 | // Include $ in the name here |
| 1217 | generate_LOAD(cctx, ISN_LOADENV, 0, name, type); |
| 1218 | break; |
| 1219 | case dest_reg: |
| 1220 | generate_LOAD(cctx, ISN_LOADREG, name[1], NULL, &t_string); |
| 1221 | break; |
| 1222 | case dest_vimvar: |
Bram Moolenaar | c3caa7f | 2022-05-25 19:15:10 +0100 | [diff] [blame] | 1223 | generate_LOADV(cctx, name + 2); |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1224 | break; |
| 1225 | case dest_local: |
Bram Moolenaar | 4875d6a | 2022-08-17 15:55:51 +0100 | [diff] [blame] | 1226 | if (cctx->ctx_skip != SKIP_YES) |
| 1227 | { |
| 1228 | if (lvar->lv_from_outer > 0) |
| 1229 | generate_LOADOUTER(cctx, lvar->lv_idx, lvar->lv_from_outer, |
Bram Moolenaar | 65449bd | 2022-09-19 16:02:43 +0100 | [diff] [blame] | 1230 | lvar->lv_loop_depth, lvar->lv_loop_idx, type); |
Bram Moolenaar | 4875d6a | 2022-08-17 15:55:51 +0100 | [diff] [blame] | 1231 | else |
| 1232 | generate_LOAD(cctx, ISN_LOAD, lvar->lv_idx, NULL, type); |
| 1233 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1234 | break; |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 1235 | case dest_expr: |
| 1236 | // list or dict value should already be on the stack. |
| 1237 | break; |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1238 | } |
| 1239 | } |
| 1240 | |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 1241 | /* |
| 1242 | * Skip over "[expr]" or ".member". |
| 1243 | * Does not check for any errors. |
| 1244 | */ |
| 1245 | static char_u * |
| 1246 | skip_index(char_u *start) |
| 1247 | { |
| 1248 | char_u *p = start; |
| 1249 | |
| 1250 | if (*p == '[') |
| 1251 | { |
| 1252 | p = skipwhite(p + 1); |
| 1253 | (void)skip_expr(&p, NULL); |
| 1254 | p = skipwhite(p); |
| 1255 | if (*p == ']') |
| 1256 | return p + 1; |
| 1257 | return p; |
| 1258 | } |
| 1259 | // if (*p == '.') |
| 1260 | return to_name_end(p + 1, TRUE); |
| 1261 | } |
| 1262 | |
Bram Moolenaar | e55b1c0 | 2020-06-21 15:52:59 +0200 | [diff] [blame] | 1263 | void |
| 1264 | vim9_declare_error(char_u *name) |
| 1265 | { |
| 1266 | char *scope = ""; |
| 1267 | |
| 1268 | switch (*name) |
| 1269 | { |
Bram Moolenaar | 7fe8755 | 2020-06-21 20:38:28 +0200 | [diff] [blame] | 1270 | case 'g': scope = _("global"); break; |
| 1271 | case 'b': scope = _("buffer"); break; |
| 1272 | case 'w': scope = _("window"); break; |
| 1273 | case 't': scope = _("tab"); break; |
| 1274 | case 'v': scope = "v:"; break; |
Bram Moolenaar | bc4c505 | 2020-08-13 22:47:35 +0200 | [diff] [blame] | 1275 | case '$': semsg(_(e_cannot_declare_an_environment_variable), name); |
Bram Moolenaar | c2ee44c | 2020-08-02 16:59:00 +0200 | [diff] [blame] | 1276 | return; |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 1277 | case '&': semsg(_(e_cannot_declare_an_option), name); |
Bram Moolenaar | c2ee44c | 2020-08-02 16:59:00 +0200 | [diff] [blame] | 1278 | return; |
Bram Moolenaar | 7cb6fc2 | 2020-08-21 22:36:47 +0200 | [diff] [blame] | 1279 | case '@': semsg(_(e_cannot_declare_a_register_str), name); |
Bram Moolenaar | c2ee44c | 2020-08-02 16:59:00 +0200 | [diff] [blame] | 1280 | return; |
Bram Moolenaar | 7fe8755 | 2020-06-21 20:38:28 +0200 | [diff] [blame] | 1281 | default: return; |
Bram Moolenaar | e55b1c0 | 2020-06-21 15:52:59 +0200 | [diff] [blame] | 1282 | } |
Bram Moolenaar | bc4c505 | 2020-08-13 22:47:35 +0200 | [diff] [blame] | 1283 | semsg(_(e_cannot_declare_a_scope_variable), scope, name); |
Bram Moolenaar | e55b1c0 | 2020-06-21 15:52:59 +0200 | [diff] [blame] | 1284 | } |
| 1285 | |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 1286 | /* |
Bram Moolenaar | 3558afe | 2022-10-13 16:12:57 +0100 | [diff] [blame] | 1287 | * Return TRUE if "name" is a valid register to use. |
| 1288 | * Return FALSE and give an error message if not. |
| 1289 | */ |
| 1290 | static int |
| 1291 | valid_dest_reg(int name) |
| 1292 | { |
| 1293 | if ((name == '@' || valid_yank_reg(name, FALSE)) && name != '.') |
| 1294 | return TRUE; |
| 1295 | emsg_invreg(name); |
| 1296 | return FAIL; |
| 1297 | } |
| 1298 | |
| 1299 | /* |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1300 | * For one assignment figure out the type of destination. Return it in "dest". |
| 1301 | * When not recognized "dest" is not set. |
Yegappan Lakshmanan | 6409553 | 2021-12-06 11:03:55 +0000 | [diff] [blame] | 1302 | * For an option "option_scope" is set. |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1303 | * For a v:var "vimvaridx" is set. |
| 1304 | * "type" is set to the destination type if known, unchanted otherwise. |
| 1305 | * Return FAIL if an error message was given. |
| 1306 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 1307 | int |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1308 | get_var_dest( |
| 1309 | char_u *name, |
| 1310 | assign_dest_T *dest, |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1311 | cmdidx_T cmdidx, |
Yegappan Lakshmanan | 6409553 | 2021-12-06 11:03:55 +0000 | [diff] [blame] | 1312 | int *option_scope, |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1313 | int *vimvaridx, |
| 1314 | type_T **type, |
| 1315 | cctx_T *cctx) |
| 1316 | { |
| 1317 | char_u *p; |
| 1318 | |
| 1319 | if (*name == '&') |
| 1320 | { |
Bram Moolenaar | dd1f426 | 2020-12-31 17:41:01 +0100 | [diff] [blame] | 1321 | int cc; |
| 1322 | long numval; |
| 1323 | getoption_T opt_type; |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 1324 | int opt_p_flags; |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1325 | |
| 1326 | *dest = dest_option; |
| 1327 | if (cmdidx == CMD_final || cmdidx == CMD_const) |
| 1328 | { |
Bram Moolenaar | d82a47d | 2022-01-05 20:24:39 +0000 | [diff] [blame] | 1329 | emsg(_(e_cannot_lock_option)); |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1330 | return FAIL; |
| 1331 | } |
| 1332 | p = name; |
Yegappan Lakshmanan | 6409553 | 2021-12-06 11:03:55 +0000 | [diff] [blame] | 1333 | p = find_option_end(&p, option_scope); |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1334 | if (p == NULL) |
| 1335 | { |
| 1336 | // cannot happen? |
Bram Moolenaar | 108010a | 2021-06-27 22:03:33 +0200 | [diff] [blame] | 1337 | emsg(_(e_unexpected_characters_in_assignment)); |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1338 | return FAIL; |
| 1339 | } |
| 1340 | cc = *p; |
| 1341 | *p = NUL; |
| 1342 | opt_type = get_option_value(skip_option_env_lead(name), |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 1343 | &numval, NULL, &opt_p_flags, *option_scope); |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1344 | *p = cc; |
Bram Moolenaar | dd1f426 | 2020-12-31 17:41:01 +0100 | [diff] [blame] | 1345 | switch (opt_type) |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1346 | { |
Bram Moolenaar | dd1f426 | 2020-12-31 17:41:01 +0100 | [diff] [blame] | 1347 | case gov_unknown: |
Bram Moolenaar | e124204 | 2021-12-16 20:56:57 +0000 | [diff] [blame] | 1348 | semsg(_(e_unknown_option_str), name); |
Bram Moolenaar | dd1f426 | 2020-12-31 17:41:01 +0100 | [diff] [blame] | 1349 | return FAIL; |
| 1350 | case gov_string: |
| 1351 | case gov_hidden_string: |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 1352 | if (opt_p_flags & P_FUNC) |
| 1353 | { |
| 1354 | // might be a Funcref, check the type later |
| 1355 | *type = &t_any; |
| 1356 | *dest = dest_func_option; |
| 1357 | } |
| 1358 | else |
| 1359 | { |
| 1360 | *type = &t_string; |
| 1361 | } |
Bram Moolenaar | dd1f426 | 2020-12-31 17:41:01 +0100 | [diff] [blame] | 1362 | break; |
| 1363 | case gov_bool: |
| 1364 | case gov_hidden_bool: |
| 1365 | *type = &t_bool; |
| 1366 | break; |
| 1367 | case gov_number: |
| 1368 | case gov_hidden_number: |
| 1369 | *type = &t_number; |
| 1370 | break; |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1371 | } |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1372 | } |
| 1373 | else if (*name == '$') |
| 1374 | { |
| 1375 | *dest = dest_env; |
| 1376 | *type = &t_string; |
| 1377 | } |
| 1378 | else if (*name == '@') |
| 1379 | { |
Bram Moolenaar | 3558afe | 2022-10-13 16:12:57 +0100 | [diff] [blame] | 1380 | if (!valid_dest_reg(name[1])) |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1381 | return FAIL; |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1382 | *dest = dest_reg; |
Bram Moolenaar | 74f4a96 | 2021-06-17 21:03:07 +0200 | [diff] [blame] | 1383 | *type = name[1] == '#' ? &t_number_or_string : &t_string; |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 1384 | } |
| 1385 | else if (STRNCMP(name, "g:", 2) == 0) |
| 1386 | { |
| 1387 | *dest = dest_global; |
| 1388 | } |
| 1389 | else if (STRNCMP(name, "b:", 2) == 0) |
| 1390 | { |
| 1391 | *dest = dest_buffer; |
| 1392 | } |
| 1393 | else if (STRNCMP(name, "w:", 2) == 0) |
| 1394 | { |
| 1395 | *dest = dest_window; |
| 1396 | } |
| 1397 | else if (STRNCMP(name, "t:", 2) == 0) |
| 1398 | { |
| 1399 | *dest = dest_tab; |
| 1400 | } |
| 1401 | else if (STRNCMP(name, "v:", 2) == 0) |
| 1402 | { |
| 1403 | typval_T *vtv; |
| 1404 | int di_flags; |
| 1405 | |
| 1406 | *vimvaridx = find_vim_var(name + 2, &di_flags); |
| 1407 | if (*vimvaridx < 0) |
| 1408 | { |
| 1409 | semsg(_(e_variable_not_found_str), name); |
| 1410 | return FAIL; |
| 1411 | } |
| 1412 | // We use the current value of "sandbox" here, is that OK? |
| 1413 | if (var_check_ro(di_flags, name, FALSE)) |
| 1414 | return FAIL; |
| 1415 | *dest = dest_vimvar; |
| 1416 | vtv = get_vim_var_tv(*vimvaridx); |
| 1417 | *type = typval2type_vimvar(vtv, cctx->ctx_type_list); |
| 1418 | } |
| 1419 | return OK; |
| 1420 | } |
| 1421 | |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1422 | static int |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1423 | is_decl_command(cmdidx_T cmdidx) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1424 | { |
| 1425 | return cmdidx == CMD_let || cmdidx == CMD_var |
| 1426 | || cmdidx == CMD_final || cmdidx == CMD_const; |
| 1427 | } |
| 1428 | |
| 1429 | /* |
| 1430 | * Figure out the LHS type and other properties for an assignment or one item |
| 1431 | * of ":unlet" with an index. |
| 1432 | * Returns OK or FAIL. |
| 1433 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 1434 | int |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1435 | compile_lhs( |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1436 | char_u *var_start, |
| 1437 | lhs_T *lhs, |
| 1438 | cmdidx_T cmdidx, |
| 1439 | int heredoc, |
| 1440 | int has_cmd, // "var" before "var_start" |
| 1441 | int oplen, |
| 1442 | cctx_T *cctx) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1443 | { |
| 1444 | char_u *var_end; |
| 1445 | int is_decl = is_decl_command(cmdidx); |
| 1446 | |
| 1447 | CLEAR_POINTER(lhs); |
| 1448 | lhs->lhs_dest = dest_local; |
| 1449 | lhs->lhs_vimvaridx = -1; |
| 1450 | lhs->lhs_scriptvar_idx = -1; |
| 1451 | |
| 1452 | // "dest_end" is the end of the destination, including "[expr]" or |
| 1453 | // ".name". |
| 1454 | // "var_end" is the end of the variable/option/etc. name. |
| 1455 | lhs->lhs_dest_end = skip_var_one(var_start, FALSE); |
| 1456 | if (*var_start == '@') |
Bram Moolenaar | 3558afe | 2022-10-13 16:12:57 +0100 | [diff] [blame] | 1457 | { |
| 1458 | if (!valid_dest_reg(var_start[1])) |
| 1459 | return FAIL; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1460 | var_end = var_start + 2; |
Bram Moolenaar | 3558afe | 2022-10-13 16:12:57 +0100 | [diff] [blame] | 1461 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1462 | else |
| 1463 | { |
| 1464 | // skip over the leading "&", "&l:", "&g:" and "$" |
| 1465 | var_end = skip_option_env_lead(var_start); |
| 1466 | var_end = to_name_end(var_end, TRUE); |
| 1467 | } |
| 1468 | |
| 1469 | // "a: type" is declaring variable "a" with a type, not dict "a:". |
| 1470 | if (is_decl && lhs->lhs_dest_end == var_start + 2 |
| 1471 | && lhs->lhs_dest_end[-1] == ':') |
| 1472 | --lhs->lhs_dest_end; |
| 1473 | if (is_decl && var_end == var_start + 2 && var_end[-1] == ':') |
| 1474 | --var_end; |
Bram Moolenaar | ab36e6a | 2021-11-30 16:14:49 +0000 | [diff] [blame] | 1475 | lhs->lhs_end = lhs->lhs_dest_end; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1476 | |
| 1477 | // compute the length of the destination without "[expr]" or ".name" |
| 1478 | lhs->lhs_varlen = var_end - var_start; |
Bram Moolenaar | 753bcf8 | 2021-04-21 14:24:24 +0200 | [diff] [blame] | 1479 | lhs->lhs_varlen_total = lhs->lhs_varlen; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1480 | lhs->lhs_name = vim_strnsave(var_start, lhs->lhs_varlen); |
| 1481 | if (lhs->lhs_name == NULL) |
| 1482 | return FAIL; |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 1483 | |
| 1484 | if (lhs->lhs_dest_end > var_start + lhs->lhs_varlen) |
| 1485 | // Something follows after the variable: "var[idx]" or "var.key". |
| 1486 | lhs->lhs_has_index = TRUE; |
| 1487 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1488 | if (heredoc) |
| 1489 | lhs->lhs_type = &t_list_string; |
| 1490 | else |
| 1491 | lhs->lhs_type = &t_any; |
| 1492 | |
| 1493 | if (cctx->ctx_skip != SKIP_YES) |
| 1494 | { |
| 1495 | int declare_error = FALSE; |
| 1496 | |
| 1497 | if (get_var_dest(lhs->lhs_name, &lhs->lhs_dest, cmdidx, |
| 1498 | &lhs->lhs_opt_flags, &lhs->lhs_vimvaridx, |
| 1499 | &lhs->lhs_type, cctx) == FAIL) |
| 1500 | return FAIL; |
Bram Moolenaar | d877a57 | 2021-04-01 19:42:48 +0200 | [diff] [blame] | 1501 | if (lhs->lhs_dest != dest_local |
| 1502 | && cmdidx != CMD_const && cmdidx != CMD_final) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1503 | { |
| 1504 | // Specific kind of variable recognized. |
| 1505 | declare_error = is_decl; |
| 1506 | } |
| 1507 | else |
| 1508 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1509 | // No specific kind of variable recognized, just a name. |
Bram Moolenaar | d0edaf9 | 2021-05-28 21:06:08 +0200 | [diff] [blame] | 1510 | if (check_reserved_name(lhs->lhs_name) == FAIL) |
| 1511 | return FAIL; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1512 | |
| 1513 | if (lookup_local(var_start, lhs->lhs_varlen, |
| 1514 | &lhs->lhs_local_lvar, cctx) == OK) |
| 1515 | lhs->lhs_lvar = &lhs->lhs_local_lvar; |
| 1516 | else |
| 1517 | { |
| 1518 | CLEAR_FIELD(lhs->lhs_arg_lvar); |
| 1519 | if (arg_exists(var_start, lhs->lhs_varlen, |
| 1520 | &lhs->lhs_arg_lvar.lv_idx, &lhs->lhs_arg_lvar.lv_type, |
| 1521 | &lhs->lhs_arg_lvar.lv_from_outer, cctx) == OK) |
| 1522 | { |
| 1523 | if (is_decl) |
| 1524 | { |
| 1525 | semsg(_(e_str_is_used_as_argument), lhs->lhs_name); |
| 1526 | return FAIL; |
| 1527 | } |
| 1528 | lhs->lhs_lvar = &lhs->lhs_arg_lvar; |
| 1529 | } |
| 1530 | } |
| 1531 | if (lhs->lhs_lvar != NULL) |
| 1532 | { |
| 1533 | if (is_decl) |
| 1534 | { |
| 1535 | semsg(_(e_variable_already_declared), lhs->lhs_name); |
| 1536 | return FAIL; |
| 1537 | } |
| 1538 | } |
| 1539 | else |
| 1540 | { |
| 1541 | int script_namespace = lhs->lhs_varlen > 1 |
| 1542 | && STRNCMP(var_start, "s:", 2) == 0; |
| 1543 | int script_var = (script_namespace |
| 1544 | ? script_var_exists(var_start + 2, lhs->lhs_varlen - 2, |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 1545 | cctx, NULL) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1546 | : script_var_exists(var_start, lhs->lhs_varlen, |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 1547 | cctx, NULL)) == OK; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1548 | imported_T *import = |
Bram Moolenaar | 4b1d963 | 2022-02-13 21:51:08 +0000 | [diff] [blame] | 1549 | find_imported(var_start, lhs->lhs_varlen, FALSE); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1550 | |
| 1551 | if (script_namespace || script_var || import != NULL) |
| 1552 | { |
| 1553 | char_u *rawname = lhs->lhs_name |
| 1554 | + (lhs->lhs_name[1] == ':' ? 2 : 0); |
| 1555 | |
Bram Moolenaar | afa048f | 2022-02-22 20:43:36 +0000 | [diff] [blame] | 1556 | if (script_namespace && current_script_is_vim9()) |
| 1557 | { |
| 1558 | semsg(_(e_cannot_use_s_colon_in_vim9_script_str), |
| 1559 | var_start); |
| 1560 | return FAIL; |
| 1561 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1562 | if (is_decl) |
| 1563 | { |
| 1564 | if (script_namespace) |
Bram Moolenaar | a749a42 | 2022-02-12 19:52:25 +0000 | [diff] [blame] | 1565 | semsg(_(e_cannot_declare_script_variable_in_function_str), |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1566 | lhs->lhs_name); |
| 1567 | else |
Bram Moolenaar | 057e84a | 2021-02-28 16:55:11 +0100 | [diff] [blame] | 1568 | semsg(_(e_variable_already_declared_in_script_str), |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1569 | lhs->lhs_name); |
| 1570 | return FAIL; |
| 1571 | } |
| 1572 | else if (cctx->ctx_ufunc->uf_script_ctx_version |
| 1573 | == SCRIPT_VERSION_VIM9 |
| 1574 | && script_namespace |
| 1575 | && !script_var && import == NULL) |
| 1576 | { |
| 1577 | semsg(_(e_unknown_variable_str), lhs->lhs_name); |
| 1578 | return FAIL; |
| 1579 | } |
| 1580 | |
| 1581 | lhs->lhs_dest = dest_script; |
| 1582 | |
| 1583 | // existing script-local variables should have a type |
| 1584 | lhs->lhs_scriptvar_sid = current_sctx.sc_sid; |
| 1585 | if (import != NULL) |
Bram Moolenaar | d5f400c | 2022-01-06 21:10:28 +0000 | [diff] [blame] | 1586 | { |
| 1587 | char_u *dot = vim_strchr(var_start, '.'); |
| 1588 | char_u *p; |
| 1589 | |
| 1590 | // for an import the name is what comes after the dot |
| 1591 | if (dot == NULL) |
| 1592 | { |
| 1593 | semsg(_(e_no_dot_after_imported_name_str), |
| 1594 | var_start); |
| 1595 | return FAIL; |
| 1596 | } |
| 1597 | p = skipwhite(dot + 1); |
| 1598 | var_end = to_name_end(p, TRUE); |
| 1599 | if (var_end == p) |
| 1600 | { |
| 1601 | semsg(_(e_missing_name_after_imported_name_str), |
| 1602 | var_start); |
| 1603 | return FAIL; |
| 1604 | } |
| 1605 | vim_free(lhs->lhs_name); |
| 1606 | lhs->lhs_varlen = var_end - p; |
| 1607 | lhs->lhs_name = vim_strnsave(p, lhs->lhs_varlen); |
| 1608 | if (lhs->lhs_name == NULL) |
| 1609 | return FAIL; |
| 1610 | rawname = lhs->lhs_name; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1611 | lhs->lhs_scriptvar_sid = import->imp_sid; |
Bram Moolenaar | d5f400c | 2022-01-06 21:10:28 +0000 | [diff] [blame] | 1612 | // TODO: where do we check this name is exported? |
| 1613 | |
| 1614 | // Check if something follows: "exp.var[idx]" or |
| 1615 | // "exp.var.key". |
| 1616 | lhs->lhs_has_index = lhs->lhs_dest_end |
| 1617 | > skipwhite(var_end); |
| 1618 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1619 | if (SCRIPT_ID_VALID(lhs->lhs_scriptvar_sid)) |
| 1620 | { |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 1621 | // Check writable only when no index follows. |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1622 | lhs->lhs_scriptvar_idx = get_script_item_idx( |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 1623 | lhs->lhs_scriptvar_sid, rawname, |
| 1624 | lhs->lhs_has_index ? ASSIGN_FINAL : ASSIGN_CONST, |
Bram Moolenaar | b6a138e | 2022-02-08 21:17:22 +0000 | [diff] [blame] | 1625 | cctx, NULL); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1626 | if (lhs->lhs_scriptvar_idx >= 0) |
| 1627 | { |
| 1628 | scriptitem_T *si = SCRIPT_ITEM( |
| 1629 | lhs->lhs_scriptvar_sid); |
| 1630 | svar_T *sv = |
| 1631 | ((svar_T *)si->sn_var_vals.ga_data) |
| 1632 | + lhs->lhs_scriptvar_idx; |
| 1633 | lhs->lhs_type = sv->sv_type; |
| 1634 | } |
| 1635 | } |
| 1636 | } |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 1637 | else if (check_defined(var_start, lhs->lhs_varlen, cctx, |
| 1638 | NULL, FALSE) == FAIL) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1639 | return FAIL; |
| 1640 | } |
| 1641 | } |
| 1642 | |
| 1643 | if (declare_error) |
| 1644 | { |
| 1645 | vim9_declare_error(lhs->lhs_name); |
| 1646 | return FAIL; |
| 1647 | } |
| 1648 | } |
| 1649 | |
Bram Moolenaar | ab36e6a | 2021-11-30 16:14:49 +0000 | [diff] [blame] | 1650 | // handle "a:name" as a name, not index "name" in "a" |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1651 | if (lhs->lhs_varlen > 1 || var_start[lhs->lhs_varlen] != ':') |
| 1652 | var_end = lhs->lhs_dest_end; |
| 1653 | |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 1654 | if (lhs->lhs_dest != dest_option && lhs->lhs_dest != dest_func_option) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1655 | { |
| 1656 | if (is_decl && *var_end == ':') |
| 1657 | { |
| 1658 | char_u *p; |
| 1659 | |
| 1660 | // parse optional type: "let var: type = expr" |
| 1661 | if (!VIM_ISWHITE(var_end[1])) |
| 1662 | { |
Bram Moolenaar | c3fc75d | 2021-02-07 15:28:09 +0100 | [diff] [blame] | 1663 | semsg(_(e_white_space_required_after_str_str), ":", var_end); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1664 | return FAIL; |
| 1665 | } |
| 1666 | p = skipwhite(var_end + 1); |
| 1667 | lhs->lhs_type = parse_type(&p, cctx->ctx_type_list, TRUE); |
| 1668 | if (lhs->lhs_type == NULL) |
| 1669 | return FAIL; |
| 1670 | lhs->lhs_has_type = TRUE; |
Bram Moolenaar | ab36e6a | 2021-11-30 16:14:49 +0000 | [diff] [blame] | 1671 | lhs->lhs_end = p; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1672 | } |
| 1673 | else if (lhs->lhs_lvar != NULL) |
| 1674 | lhs->lhs_type = lhs->lhs_lvar->lv_type; |
| 1675 | } |
| 1676 | |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1677 | if (oplen == 3 && !heredoc |
| 1678 | && lhs->lhs_dest != dest_global |
| 1679 | && !lhs->lhs_has_index |
| 1680 | && lhs->lhs_type->tt_type != VAR_STRING |
| 1681 | && lhs->lhs_type->tt_type != VAR_ANY) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1682 | { |
| 1683 | emsg(_(e_can_only_concatenate_to_string)); |
| 1684 | return FAIL; |
| 1685 | } |
| 1686 | |
| 1687 | if (lhs->lhs_lvar == NULL && lhs->lhs_dest == dest_local |
| 1688 | && cctx->ctx_skip != SKIP_YES) |
| 1689 | { |
| 1690 | if (oplen > 1 && !heredoc) |
| 1691 | { |
| 1692 | // +=, /=, etc. require an existing variable |
| 1693 | semsg(_(e_cannot_use_operator_on_new_variable), lhs->lhs_name); |
| 1694 | return FAIL; |
| 1695 | } |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1696 | if (!is_decl || (lhs->lhs_has_index && !has_cmd |
| 1697 | && cctx->ctx_skip != SKIP_YES)) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1698 | { |
| 1699 | semsg(_(e_unknown_variable_str), lhs->lhs_name); |
| 1700 | return FAIL; |
| 1701 | } |
| 1702 | |
Bram Moolenaar | 3f32788 | 2021-03-17 20:56:38 +0100 | [diff] [blame] | 1703 | // Check the name is valid for a funcref. |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1704 | if ((lhs->lhs_type->tt_type == VAR_FUNC |
| 1705 | || lhs->lhs_type->tt_type == VAR_PARTIAL) |
Bram Moolenaar | 3f32788 | 2021-03-17 20:56:38 +0100 | [diff] [blame] | 1706 | && var_wrong_func_name(lhs->lhs_name, TRUE)) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1707 | return FAIL; |
Bram Moolenaar | 3f32788 | 2021-03-17 20:56:38 +0100 | [diff] [blame] | 1708 | |
| 1709 | // New local variable. |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 1710 | int assign = cmdidx == CMD_final ? ASSIGN_FINAL |
| 1711 | : cmdidx == CMD_const ? ASSIGN_CONST : ASSIGN_VAR; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1712 | lhs->lhs_lvar = reserve_local(cctx, var_start, lhs->lhs_varlen, |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 1713 | assign, lhs->lhs_type); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1714 | if (lhs->lhs_lvar == NULL) |
| 1715 | return FAIL; |
| 1716 | lhs->lhs_new_local = TRUE; |
| 1717 | } |
| 1718 | |
| 1719 | lhs->lhs_member_type = lhs->lhs_type; |
Bram Moolenaar | 0825175 | 2021-01-11 21:20:18 +0100 | [diff] [blame] | 1720 | if (lhs->lhs_has_index) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1721 | { |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1722 | char_u *after = var_start + lhs->lhs_varlen; |
| 1723 | char_u *p; |
| 1724 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1725 | // Something follows after the variable: "var[idx]" or "var.key". |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1726 | if (is_decl && cctx->ctx_skip != SKIP_YES) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1727 | { |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1728 | if (has_cmd) |
| 1729 | emsg(_(e_cannot_use_index_when_declaring_variable)); |
| 1730 | else |
| 1731 | semsg(_(e_unknown_variable_str), lhs->lhs_name); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1732 | return FAIL; |
| 1733 | } |
| 1734 | |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1735 | // Now: var_start[lhs->lhs_varlen] is '[' or '.' |
| 1736 | // Only the last index is used below, if there are others |
| 1737 | // before it generate code for the expression. Thus for |
| 1738 | // "ll[1][2]" the expression is "ll[1]" and "[2]" is the index. |
| 1739 | for (;;) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1740 | { |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1741 | p = skip_index(after); |
| 1742 | if (*p != '[' && *p != '.') |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1743 | { |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1744 | lhs->lhs_varlen_total = p - var_start; |
| 1745 | break; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1746 | } |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1747 | after = p; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1748 | } |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1749 | if (after > var_start + lhs->lhs_varlen) |
| 1750 | { |
| 1751 | lhs->lhs_varlen = after - var_start; |
| 1752 | lhs->lhs_dest = dest_expr; |
| 1753 | // We don't know the type before evaluating the expression, |
| 1754 | // use "any" until then. |
| 1755 | lhs->lhs_type = &t_any; |
| 1756 | } |
| 1757 | |
| 1758 | if (lhs->lhs_type->tt_member == NULL) |
| 1759 | lhs->lhs_member_type = &t_any; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1760 | else |
Bram Moolenaar | c750d91 | 2021-11-29 22:02:12 +0000 | [diff] [blame] | 1761 | lhs->lhs_member_type = lhs->lhs_type->tt_member; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1762 | } |
| 1763 | return OK; |
| 1764 | } |
| 1765 | |
| 1766 | /* |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1767 | * Figure out the LHS and check a few errors. |
| 1768 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 1769 | int |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1770 | compile_assign_lhs( |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1771 | char_u *var_start, |
| 1772 | lhs_T *lhs, |
| 1773 | cmdidx_T cmdidx, |
| 1774 | int is_decl, |
| 1775 | int heredoc, |
| 1776 | int has_cmd, // "var" before "var_start" |
| 1777 | int oplen, |
| 1778 | cctx_T *cctx) |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1779 | { |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 1780 | if (compile_lhs(var_start, lhs, cmdidx, heredoc, has_cmd, oplen, cctx) |
| 1781 | == FAIL) |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1782 | return FAIL; |
| 1783 | |
| 1784 | if (!lhs->lhs_has_index && lhs->lhs_lvar == &lhs->lhs_arg_lvar) |
| 1785 | { |
| 1786 | semsg(_(e_cannot_assign_to_argument), lhs->lhs_name); |
| 1787 | return FAIL; |
| 1788 | } |
| 1789 | if (!is_decl && lhs->lhs_lvar != NULL |
Bram Moolenaar | 6586a01 | 2022-09-30 11:04:50 +0100 | [diff] [blame] | 1790 | && lhs->lhs_lvar->lv_const != ASSIGN_VAR |
| 1791 | && !lhs->lhs_has_index) |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 1792 | { |
| 1793 | semsg(_(e_cannot_assign_to_constant), lhs->lhs_name); |
| 1794 | return FAIL; |
| 1795 | } |
| 1796 | return OK; |
| 1797 | } |
| 1798 | |
| 1799 | /* |
Bram Moolenaar | 4f0884d | 2021-08-11 21:49:23 +0200 | [diff] [blame] | 1800 | * Return TRUE if "lhs" has a range index: "[expr : expr]". |
| 1801 | */ |
| 1802 | static int |
| 1803 | has_list_index(char_u *idx_start, cctx_T *cctx) |
| 1804 | { |
| 1805 | char_u *p = idx_start; |
| 1806 | int save_skip; |
| 1807 | |
| 1808 | if (*p != '[') |
| 1809 | return FALSE; |
| 1810 | |
| 1811 | p = skipwhite(p + 1); |
| 1812 | if (*p == ':') |
| 1813 | return TRUE; |
| 1814 | |
| 1815 | save_skip = cctx->ctx_skip; |
| 1816 | cctx->ctx_skip = SKIP_YES; |
| 1817 | (void)compile_expr0(&p, cctx); |
| 1818 | cctx->ctx_skip = save_skip; |
| 1819 | return *skipwhite(p) == ':'; |
| 1820 | } |
| 1821 | |
| 1822 | /* |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1823 | * For an assignment with an index, compile the "idx" in "var[idx]" or "key" in |
| 1824 | * "var.key". |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1825 | */ |
| 1826 | static int |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1827 | compile_assign_index( |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1828 | char_u *var_start, |
| 1829 | lhs_T *lhs, |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1830 | int *range, |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1831 | cctx_T *cctx) |
| 1832 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1833 | size_t varlen = lhs->lhs_varlen; |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1834 | char_u *p; |
| 1835 | int r = OK; |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1836 | int need_white_before = TRUE; |
| 1837 | int empty_second; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1838 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1839 | p = var_start + varlen; |
| 1840 | if (*p == '[') |
| 1841 | { |
| 1842 | p = skipwhite(p + 1); |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1843 | if (*p == ':') |
| 1844 | { |
| 1845 | // empty first index, push zero |
| 1846 | r = generate_PUSHNR(cctx, 0); |
| 1847 | need_white_before = FALSE; |
| 1848 | } |
| 1849 | else |
| 1850 | r = compile_expr0(&p, cctx); |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 1851 | |
| 1852 | if (r == OK && *skipwhite(p) == ':') |
| 1853 | { |
| 1854 | // unlet var[idx : idx] |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1855 | // blob[idx : idx] = value |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1856 | *range = TRUE; |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 1857 | p = skipwhite(p); |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1858 | empty_second = *skipwhite(p + 1) == ']'; |
| 1859 | if ((need_white_before && !IS_WHITE_OR_NUL(p[-1])) |
| 1860 | || (!empty_second && !IS_WHITE_OR_NUL(p[1]))) |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 1861 | { |
| 1862 | semsg(_(e_white_space_required_before_and_after_str_at_str), |
| 1863 | ":", p); |
| 1864 | return FAIL; |
| 1865 | } |
| 1866 | p = skipwhite(p + 1); |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1867 | if (*p == ']') |
| 1868 | // empty second index, push "none" |
| 1869 | r = generate_PUSHSPEC(cctx, VVAL_NONE); |
| 1870 | else |
| 1871 | r = compile_expr0(&p, cctx); |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 1872 | } |
| 1873 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1874 | if (r == OK && *skipwhite(p) != ']') |
| 1875 | { |
| 1876 | // this should not happen |
Bram Moolenaar | e124204 | 2021-12-16 20:56:57 +0000 | [diff] [blame] | 1877 | emsg(_(e_missing_closing_square_brace)); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1878 | r = FAIL; |
| 1879 | } |
| 1880 | } |
| 1881 | else // if (*p == '.') |
| 1882 | { |
| 1883 | char_u *key_end = to_name_end(p + 1, TRUE); |
| 1884 | char_u *key = vim_strnsave(p + 1, key_end - p - 1); |
| 1885 | |
Zdenek Dohnal | 9fe17d4 | 2021-08-04 22:30:52 +0200 | [diff] [blame] | 1886 | r = generate_PUSHS(cctx, &key); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1887 | } |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1888 | return r; |
| 1889 | } |
| 1890 | |
| 1891 | /* |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1892 | * For a LHS with an index, load the variable to be indexed. |
| 1893 | */ |
| 1894 | static int |
| 1895 | compile_load_lhs( |
| 1896 | lhs_T *lhs, |
| 1897 | char_u *var_start, |
| 1898 | type_T *rhs_type, |
| 1899 | cctx_T *cctx) |
| 1900 | { |
| 1901 | if (lhs->lhs_dest == dest_expr) |
| 1902 | { |
| 1903 | size_t varlen = lhs->lhs_varlen; |
| 1904 | int c = var_start[varlen]; |
Bram Moolenaar | e97976b | 2021-08-01 13:17:17 +0200 | [diff] [blame] | 1905 | int lines_len = cctx->ctx_ufunc->uf_lines.ga_len; |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1906 | char_u *p = var_start; |
Bram Moolenaar | e97976b | 2021-08-01 13:17:17 +0200 | [diff] [blame] | 1907 | int res; |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1908 | |
Bram Moolenaar | e97976b | 2021-08-01 13:17:17 +0200 | [diff] [blame] | 1909 | // Evaluate "ll[expr]" of "ll[expr][idx]". End the line with a NUL and |
| 1910 | // limit the lines array length to avoid skipping to a following line. |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1911 | var_start[varlen] = NUL; |
Bram Moolenaar | e97976b | 2021-08-01 13:17:17 +0200 | [diff] [blame] | 1912 | cctx->ctx_ufunc->uf_lines.ga_len = cctx->ctx_lnum + 1; |
| 1913 | res = compile_expr0(&p, cctx); |
| 1914 | var_start[varlen] = c; |
| 1915 | cctx->ctx_ufunc->uf_lines.ga_len = lines_len; |
| 1916 | if (res == FAIL || p != var_start + varlen) |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1917 | { |
| 1918 | // this should not happen |
Bram Moolenaar | e97976b | 2021-08-01 13:17:17 +0200 | [diff] [blame] | 1919 | if (res != FAIL) |
Bram Moolenaar | e124204 | 2021-12-16 20:56:57 +0000 | [diff] [blame] | 1920 | emsg(_(e_missing_closing_square_brace)); |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1921 | return FAIL; |
| 1922 | } |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1923 | |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 1924 | lhs->lhs_type = cctx->ctx_type_stack.ga_len == 0 ? &t_void |
| 1925 | : get_type_on_stack(cctx, 0); |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 1926 | // now we can properly check the type |
| 1927 | if (rhs_type != NULL && lhs->lhs_type->tt_member != NULL |
| 1928 | && rhs_type != &t_void |
| 1929 | && need_type(rhs_type, lhs->lhs_type->tt_member, -2, 0, cctx, |
| 1930 | FALSE, FALSE) == FAIL) |
| 1931 | return FAIL; |
| 1932 | } |
| 1933 | else |
| 1934 | generate_loadvar(cctx, lhs->lhs_dest, lhs->lhs_name, |
| 1935 | lhs->lhs_lvar, lhs->lhs_type); |
| 1936 | return OK; |
| 1937 | } |
| 1938 | |
| 1939 | /* |
Bram Moolenaar | a369c3d | 2021-04-21 16:00:10 +0200 | [diff] [blame] | 1940 | * Produce code for loading "lhs" and also take care of an index. |
| 1941 | * Return OK/FAIL. |
| 1942 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 1943 | int |
Bram Moolenaar | a369c3d | 2021-04-21 16:00:10 +0200 | [diff] [blame] | 1944 | compile_load_lhs_with_index(lhs_T *lhs, char_u *var_start, cctx_T *cctx) |
| 1945 | { |
| 1946 | compile_load_lhs(lhs, var_start, NULL, cctx); |
| 1947 | |
| 1948 | if (lhs->lhs_has_index) |
| 1949 | { |
| 1950 | int range = FALSE; |
| 1951 | |
| 1952 | // Get member from list or dict. First compile the |
| 1953 | // index value. |
| 1954 | if (compile_assign_index(var_start, lhs, &range, cctx) == FAIL) |
| 1955 | return FAIL; |
| 1956 | if (range) |
| 1957 | { |
| 1958 | semsg(_(e_cannot_use_range_with_assignment_operator_str), |
| 1959 | var_start); |
| 1960 | return FAIL; |
| 1961 | } |
| 1962 | |
| 1963 | // Get the member. |
Bram Moolenaar | b1b6f4d | 2021-09-13 18:25:54 +0200 | [diff] [blame] | 1964 | if (compile_member(FALSE, NULL, cctx) == FAIL) |
Bram Moolenaar | a369c3d | 2021-04-21 16:00:10 +0200 | [diff] [blame] | 1965 | return FAIL; |
| 1966 | } |
| 1967 | return OK; |
| 1968 | } |
| 1969 | |
| 1970 | /* |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1971 | * Assignment to a list or dict member, or ":unlet" for the item, using the |
| 1972 | * information in "lhs". |
| 1973 | * Returns OK or FAIL. |
| 1974 | */ |
Bram Moolenaar | dc7c366 | 2021-12-20 15:04:29 +0000 | [diff] [blame] | 1975 | int |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1976 | compile_assign_unlet( |
| 1977 | char_u *var_start, |
| 1978 | lhs_T *lhs, |
| 1979 | int is_assign, |
| 1980 | type_T *rhs_type, |
| 1981 | cctx_T *cctx) |
| 1982 | { |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1983 | vartype_T dest_type; |
Bram Moolenaar | e42939a | 2021-04-05 17:11:17 +0200 | [diff] [blame] | 1984 | int range = FALSE; |
| 1985 | |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1986 | if (compile_assign_index(var_start, lhs, &range, cctx) == FAIL) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1987 | return FAIL; |
Bram Moolenaar | 4f0884d | 2021-08-11 21:49:23 +0200 | [diff] [blame] | 1988 | if (is_assign && range |
| 1989 | && lhs->lhs_type->tt_type != VAR_LIST |
| 1990 | && lhs->lhs_type != &t_blob |
| 1991 | && lhs->lhs_type != &t_any) |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 1992 | { |
| 1993 | semsg(_(e_cannot_use_range_with_assignment_str), var_start); |
| 1994 | return FAIL; |
| 1995 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 1996 | |
| 1997 | if (lhs->lhs_type == &t_any) |
| 1998 | { |
| 1999 | // Index on variable of unknown type: check at runtime. |
| 2000 | dest_type = VAR_ANY; |
| 2001 | } |
| 2002 | else |
| 2003 | { |
| 2004 | dest_type = lhs->lhs_type->tt_type; |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2005 | if (dest_type == VAR_DICT && range) |
| 2006 | { |
| 2007 | emsg(e_cannot_use_range_with_dictionary); |
| 2008 | return FAIL; |
| 2009 | } |
Bram Moolenaar | 5fa9b24 | 2021-06-04 21:00:32 +0200 | [diff] [blame] | 2010 | if (dest_type == VAR_DICT |
| 2011 | && may_generate_2STRING(-1, FALSE, cctx) == FAIL) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2012 | return FAIL; |
Bram Moolenaar | 51e9332 | 2021-04-17 20:44:56 +0200 | [diff] [blame] | 2013 | if (dest_type == VAR_LIST || dest_type == VAR_BLOB) |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2014 | { |
Bram Moolenaar | 51e9332 | 2021-04-17 20:44:56 +0200 | [diff] [blame] | 2015 | type_T *type; |
| 2016 | |
| 2017 | if (range) |
| 2018 | { |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2019 | type = get_type_on_stack(cctx, 1); |
Bram Moolenaar | 51e9332 | 2021-04-17 20:44:56 +0200 | [diff] [blame] | 2020 | if (need_type(type, &t_number, |
Bram Moolenaar | 2995e5c | 2022-03-18 21:41:47 +0000 | [diff] [blame] | 2021 | -2, 0, cctx, FALSE, FALSE) == FAIL) |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2022 | return FAIL; |
Bram Moolenaar | 51e9332 | 2021-04-17 20:44:56 +0200 | [diff] [blame] | 2023 | } |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2024 | type = get_type_on_stack(cctx, 0); |
Bram Moolenaar | 53ba6ca | 2022-03-10 19:23:28 +0000 | [diff] [blame] | 2025 | if ((dest_type != VAR_BLOB && type->tt_type != VAR_SPECIAL) |
Bram Moolenaar | 51e9332 | 2021-04-17 20:44:56 +0200 | [diff] [blame] | 2026 | && need_type(type, &t_number, |
| 2027 | -1, 0, cctx, FALSE, FALSE) == FAIL) |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2028 | return FAIL; |
| 2029 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2030 | } |
| 2031 | |
Bram Moolenaar | 4875d6a | 2022-08-17 15:55:51 +0100 | [diff] [blame] | 2032 | if (cctx->ctx_skip == SKIP_YES) |
| 2033 | return OK; |
| 2034 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2035 | // Load the dict or list. On the stack we then have: |
| 2036 | // - value (for assignment, not for :unlet) |
| 2037 | // - index |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2038 | // - for [a : b] second index |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2039 | // - variable |
Bram Moolenaar | b9c0cd8 | 2021-04-05 20:51:00 +0200 | [diff] [blame] | 2040 | if (compile_load_lhs(lhs, var_start, rhs_type, cctx) == FAIL) |
| 2041 | return FAIL; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2042 | |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 2043 | if (dest_type == VAR_LIST || dest_type == VAR_DICT |
| 2044 | || dest_type == VAR_BLOB || dest_type == VAR_ANY) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2045 | { |
| 2046 | if (is_assign) |
| 2047 | { |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 2048 | if (range) |
| 2049 | { |
| 2050 | if (generate_instr_drop(cctx, ISN_STORERANGE, 4) == NULL) |
| 2051 | return FAIL; |
| 2052 | } |
| 2053 | else |
| 2054 | { |
| 2055 | isn_T *isn = generate_instr_drop(cctx, ISN_STOREINDEX, 3); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2056 | |
Bram Moolenaar | 6845217 | 2021-04-12 21:21:02 +0200 | [diff] [blame] | 2057 | if (isn == NULL) |
| 2058 | return FAIL; |
| 2059 | isn->isn_arg.vartype = dest_type; |
| 2060 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2061 | } |
Bram Moolenaar | 5b5ae29 | 2021-02-20 17:04:02 +0100 | [diff] [blame] | 2062 | else if (range) |
| 2063 | { |
| 2064 | if (generate_instr_drop(cctx, ISN_UNLETRANGE, 3) == NULL) |
| 2065 | return FAIL; |
| 2066 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2067 | else |
| 2068 | { |
| 2069 | if (generate_instr_drop(cctx, ISN_UNLETINDEX, 2) == NULL) |
| 2070 | return FAIL; |
| 2071 | } |
| 2072 | } |
| 2073 | else |
| 2074 | { |
| 2075 | emsg(_(e_indexable_type_required)); |
| 2076 | return FAIL; |
| 2077 | } |
| 2078 | |
| 2079 | return OK; |
| 2080 | } |
| 2081 | |
Bram Moolenaar | 4b8a065 | 2020-12-01 16:30:44 +0100 | [diff] [blame] | 2082 | /* |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2083 | * Compile declaration and assignment: |
Bram Moolenaar | 30fd820 | 2020-09-26 15:09:30 +0200 | [diff] [blame] | 2084 | * "let name" |
| 2085 | * "var name = expr" |
| 2086 | * "final name = expr" |
| 2087 | * "const name = expr" |
| 2088 | * "name = expr" |
| 2089 | * "arg" points to "name". |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2090 | * "++arg" and "--arg" |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2091 | * Return NULL for an error. |
| 2092 | * Return "arg" if it does not look like a variable list. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2093 | */ |
| 2094 | static char_u * |
| 2095 | compile_assignment(char_u *arg, exarg_T *eap, cmdidx_T cmdidx, cctx_T *cctx) |
| 2096 | { |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2097 | char_u *var_start; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2098 | char_u *p; |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2099 | char_u *end = arg; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2100 | char_u *ret = NULL; |
| 2101 | int var_count = 0; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2102 | int var_idx; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2103 | int semicolon = 0; |
Bram Moolenaar | 4d5dfe2 | 2021-06-26 13:59:29 +0200 | [diff] [blame] | 2104 | int did_generate_slice = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2105 | garray_T *instr = &cctx->ctx_instr; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2106 | char_u *op; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2107 | int oplen = 0; |
| 2108 | int heredoc = FALSE; |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2109 | int incdec = FALSE; |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2110 | type_T *rhs_type = &t_any; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2111 | char_u *sp; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2112 | int is_decl = is_decl_command(cmdidx); |
| 2113 | lhs_T lhs; |
Bram Moolenaar | 77709b1 | 2021-04-03 21:01:01 +0200 | [diff] [blame] | 2114 | long start_lnum = SOURCING_LNUM; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2115 | |
Bram Moolenaar | e1d1211 | 2022-03-05 11:37:48 +0000 | [diff] [blame] | 2116 | // Skip over the "varname" or "[varname, varname]" to get to any "=". |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2117 | p = skip_var_list(arg, TRUE, &var_count, &semicolon, TRUE); |
| 2118 | if (p == NULL) |
| 2119 | return *arg == '[' ? arg : NULL; |
| 2120 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2121 | lhs.lhs_name = NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2122 | |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2123 | if (eap->cmdidx == CMD_increment || eap->cmdidx == CMD_decrement) |
| 2124 | { |
Bram Moolenaar | 22480d1 | 2021-06-25 21:31:09 +0200 | [diff] [blame] | 2125 | if (VIM_ISWHITE(eap->cmd[2])) |
| 2126 | { |
| 2127 | semsg(_(e_no_white_space_allowed_after_str_str), |
| 2128 | eap->cmdidx == CMD_increment ? "++" : "--", eap->cmd); |
| 2129 | return NULL; |
| 2130 | } |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2131 | op = (char_u *)(eap->cmdidx == CMD_increment ? "+=" : "-="); |
| 2132 | oplen = 2; |
| 2133 | incdec = TRUE; |
| 2134 | } |
Bram Moolenaar | 70d8769 | 2022-05-07 10:03:27 +0100 | [diff] [blame] | 2135 | else |
| 2136 | { |
| 2137 | sp = p; |
| 2138 | p = skipwhite(p); |
| 2139 | op = p; |
| 2140 | oplen = assignment_len(p, &heredoc); |
| 2141 | |
| 2142 | if (var_count > 0 && oplen == 0) |
| 2143 | // can be something like "[1, 2]->func()" |
| 2144 | return arg; |
| 2145 | |
| 2146 | if (oplen > 0 && (!VIM_ISWHITE(*sp) || !IS_WHITE_OR_NUL(op[oplen]))) |
| 2147 | { |
| 2148 | error_white_both(op, oplen); |
| 2149 | return NULL; |
| 2150 | } |
| 2151 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2152 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2153 | if (heredoc) |
| 2154 | { |
| 2155 | list_T *l; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2156 | |
| 2157 | // [let] varname =<< [trim] {end} |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 2158 | eap->getline = exarg_getline; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2159 | eap->cookie = cctx; |
Yegappan Lakshmanan | 1fc6ea9 | 2022-04-21 23:30:15 +0100 | [diff] [blame] | 2160 | l = heredoc_get(eap, op + 3, FALSE, TRUE); |
Bram Moolenaar | c0e2901 | 2020-09-27 14:22:48 +0200 | [diff] [blame] | 2161 | if (l == NULL) |
| 2162 | return NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2163 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2164 | list_free(l); |
| 2165 | p += STRLEN(p); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2166 | end = p; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2167 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2168 | else if (var_count > 0) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2169 | { |
Bram Moolenaar | 004d9b0 | 2020-11-30 21:40:03 +0100 | [diff] [blame] | 2170 | char_u *wp; |
| 2171 | |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2172 | // for "[var, var] = expr" evaluate the expression here, loop over the |
| 2173 | // list of variables below. |
Bram Moolenaar | 004d9b0 | 2020-11-30 21:40:03 +0100 | [diff] [blame] | 2174 | // A line break may follow the "=". |
Bram Moolenaar | d25ec2c | 2020-03-30 21:05:45 +0200 | [diff] [blame] | 2175 | |
Bram Moolenaar | 004d9b0 | 2020-11-30 21:40:03 +0100 | [diff] [blame] | 2176 | wp = op + oplen; |
Bram Moolenaar | 8ff16e0 | 2020-12-07 21:49:52 +0100 | [diff] [blame] | 2177 | if (may_get_next_line_error(wp, &p, cctx) == FAIL) |
Bram Moolenaar | 004d9b0 | 2020-11-30 21:40:03 +0100 | [diff] [blame] | 2178 | return FAIL; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2179 | if (compile_expr0(&p, cctx) == FAIL) |
| 2180 | return NULL; |
| 2181 | end = p; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2182 | |
Bram Moolenaar | 9b68c82 | 2020-06-18 19:31:08 +0200 | [diff] [blame] | 2183 | if (cctx->ctx_skip != SKIP_YES) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2184 | { |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2185 | type_T *stacktype; |
Bram Moolenaar | db9ff9a | 2021-12-01 17:38:01 +0000 | [diff] [blame] | 2186 | int needed_list_len; |
| 2187 | int did_check = FALSE; |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2188 | |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2189 | stacktype = cctx->ctx_type_stack.ga_len == 0 ? &t_void |
| 2190 | : get_type_on_stack(cctx, 0); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2191 | if (stacktype->tt_type == VAR_VOID) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2192 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 2193 | emsg(_(e_cannot_use_void_value)); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2194 | goto theend; |
| 2195 | } |
Bram Moolenaar | 351ead0 | 2021-01-16 16:07:01 +0100 | [diff] [blame] | 2196 | if (need_type(stacktype, &t_list_any, -1, 0, cctx, |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 2197 | FALSE, FALSE) == FAIL) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2198 | goto theend; |
Bram Moolenaar | db9ff9a | 2021-12-01 17:38:01 +0000 | [diff] [blame] | 2199 | // If a constant list was used we can check the length right here. |
| 2200 | needed_list_len = semicolon ? var_count - 1 : var_count; |
| 2201 | if (instr->ga_len > 0) |
| 2202 | { |
| 2203 | isn_T *isn = ((isn_T *)instr->ga_data) + instr->ga_len - 1; |
| 2204 | |
| 2205 | if (isn->isn_type == ISN_NEWLIST) |
| 2206 | { |
| 2207 | did_check = TRUE; |
| 2208 | if (semicolon ? isn->isn_arg.number < needed_list_len |
| 2209 | : isn->isn_arg.number != needed_list_len) |
| 2210 | { |
| 2211 | semsg(_(e_expected_nr_items_but_got_nr), |
Bram Moolenaar | f60a634 | 2022-01-15 14:16:37 +0000 | [diff] [blame] | 2212 | needed_list_len, (int)isn->isn_arg.number); |
Bram Moolenaar | db9ff9a | 2021-12-01 17:38:01 +0000 | [diff] [blame] | 2213 | goto theend; |
| 2214 | } |
| 2215 | } |
| 2216 | } |
| 2217 | if (!did_check) |
| 2218 | generate_CHECKLEN(cctx, needed_list_len, semicolon); |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2219 | if (stacktype->tt_member != NULL) |
| 2220 | rhs_type = stacktype->tt_member; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2221 | } |
| 2222 | } |
| 2223 | |
| 2224 | /* |
| 2225 | * Loop over variables in "[var, var] = expr". |
| 2226 | * For "var = expr" and "let var: type" this is done only once. |
| 2227 | */ |
| 2228 | if (var_count > 0) |
| 2229 | var_start = skipwhite(arg + 1); // skip over the "[" |
| 2230 | else |
| 2231 | var_start = arg; |
| 2232 | for (var_idx = 0; var_idx == 0 || var_idx < var_count; var_idx++) |
| 2233 | { |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2234 | int instr_count = -1; |
| 2235 | int save_lnum; |
Bram Moolenaar | 5cd6479 | 2021-12-25 18:23:24 +0000 | [diff] [blame] | 2236 | int skip_store = FALSE; |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2237 | type_T *inferred_type = NULL; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2238 | |
Bram Moolenaar | f93bbd0 | 2021-04-10 22:35:43 +0200 | [diff] [blame] | 2239 | if (var_start[0] == '_' && !eval_isnamec(var_start[1])) |
| 2240 | { |
| 2241 | // Ignore underscore in "[a, _, b] = list". |
| 2242 | if (var_count > 0) |
| 2243 | { |
| 2244 | var_start = skipwhite(var_start + 2); |
| 2245 | continue; |
| 2246 | } |
| 2247 | emsg(_(e_cannot_use_underscore_here)); |
| 2248 | goto theend; |
| 2249 | } |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2250 | vim_free(lhs.lhs_name); |
| 2251 | |
| 2252 | /* |
| 2253 | * Figure out the LHS type and other properties. |
| 2254 | */ |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 2255 | if (compile_assign_lhs(var_start, &lhs, cmdidx, |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 2256 | is_decl, heredoc, var_start > eap->cmd, |
| 2257 | oplen, cctx) == FAIL) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2258 | goto theend; |
Bram Moolenaar | 81530e3 | 2021-07-28 21:25:49 +0200 | [diff] [blame] | 2259 | if (heredoc) |
| 2260 | { |
| 2261 | SOURCING_LNUM = start_lnum; |
| 2262 | if (lhs.lhs_has_type |
| 2263 | && need_type(&t_list_string, lhs.lhs_type, |
| 2264 | -1, 0, cctx, FALSE, FALSE) == FAIL) |
| 2265 | goto theend; |
| 2266 | } |
| 2267 | else |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2268 | { |
Bram Moolenaar | 9b68c82 | 2020-06-18 19:31:08 +0200 | [diff] [blame] | 2269 | if (cctx->ctx_skip == SKIP_YES) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2270 | { |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2271 | if (oplen > 0 && var_count == 0) |
| 2272 | { |
| 2273 | // skip over the "=" and the expression |
| 2274 | p = skipwhite(op + oplen); |
Bram Moolenaar | 169502f | 2021-04-21 12:19:35 +0200 | [diff] [blame] | 2275 | (void)compile_expr0(&p, cctx); |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2276 | } |
| 2277 | } |
| 2278 | else if (oplen > 0) |
| 2279 | { |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 2280 | int is_const = FALSE; |
Bram Moolenaar | 7f76494 | 2020-12-02 15:11:18 +0100 | [diff] [blame] | 2281 | char_u *wp; |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2282 | |
Bram Moolenaar | 035bd1c | 2021-06-21 19:44:11 +0200 | [diff] [blame] | 2283 | // for "+=", "*=", "..=" etc. first load the current value |
| 2284 | if (*op != '=' |
| 2285 | && compile_load_lhs_with_index(&lhs, var_start, |
| 2286 | cctx) == FAIL) |
| 2287 | goto theend; |
| 2288 | |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2289 | // For "var = expr" evaluate the expression. |
| 2290 | if (var_count == 0) |
| 2291 | { |
| 2292 | int r; |
| 2293 | |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2294 | // Compile the expression. |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2295 | instr_count = instr->ga_len; |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2296 | if (incdec) |
Bram Moolenaar | 21e5122 | 2020-12-04 12:43:29 +0100 | [diff] [blame] | 2297 | { |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 2298 | r = generate_PUSHNR(cctx, 1); |
| 2299 | } |
| 2300 | else |
| 2301 | { |
| 2302 | // Temporarily hide the new local variable here, it is |
| 2303 | // not available to this expression. |
| 2304 | if (lhs.lhs_new_local) |
| 2305 | --cctx->ctx_locals.ga_len; |
| 2306 | wp = op + oplen; |
| 2307 | if (may_get_next_line_error(wp, &p, cctx) == FAIL) |
| 2308 | { |
| 2309 | if (lhs.lhs_new_local) |
| 2310 | ++cctx->ctx_locals.ga_len; |
| 2311 | goto theend; |
| 2312 | } |
| 2313 | r = compile_expr0_ext(&p, cctx, &is_const); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2314 | if (lhs.lhs_new_local) |
Bram Moolenaar | 21e5122 | 2020-12-04 12:43:29 +0100 | [diff] [blame] | 2315 | ++cctx->ctx_locals.ga_len; |
Bram Moolenaar | 21e5122 | 2020-12-04 12:43:29 +0100 | [diff] [blame] | 2316 | } |
Yegappan Lakshmanan | c99e182 | 2022-09-03 10:52:24 +0100 | [diff] [blame] | 2317 | if (r == FAIL) |
| 2318 | goto theend; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2319 | } |
Bram Moolenaar | 9af7876 | 2020-06-16 11:34:42 +0200 | [diff] [blame] | 2320 | else if (semicolon && var_idx == var_count - 1) |
| 2321 | { |
| 2322 | // For "[var; var] = expr" get the rest of the list |
Bram Moolenaar | 4d5dfe2 | 2021-06-26 13:59:29 +0200 | [diff] [blame] | 2323 | did_generate_slice = TRUE; |
Bram Moolenaar | 9af7876 | 2020-06-16 11:34:42 +0200 | [diff] [blame] | 2324 | if (generate_SLICE(cctx, var_count - 1) == FAIL) |
| 2325 | goto theend; |
| 2326 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2327 | else |
| 2328 | { |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2329 | // For "[var, var] = expr" get the "var_idx" item from the |
| 2330 | // list. |
Bram Moolenaar | 035bd1c | 2021-06-21 19:44:11 +0200 | [diff] [blame] | 2331 | if (generate_GETITEM(cctx, var_idx, *op != '=') == FAIL) |
Bram Moolenaar | 7f76494 | 2020-12-02 15:11:18 +0100 | [diff] [blame] | 2332 | goto theend; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2333 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2334 | |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2335 | rhs_type = cctx->ctx_type_stack.ga_len == 0 ? &t_void |
| 2336 | : get_type_on_stack(cctx, 0); |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2337 | if (lhs.lhs_lvar != NULL && (is_decl || !lhs.lhs_has_type)) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2338 | { |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2339 | if ((rhs_type->tt_type == VAR_FUNC |
| 2340 | || rhs_type->tt_type == VAR_PARTIAL) |
Bram Moolenaar | 3f32788 | 2021-03-17 20:56:38 +0100 | [diff] [blame] | 2341 | && !lhs.lhs_has_index |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2342 | && var_wrong_func_name(lhs.lhs_name, TRUE)) |
Bram Moolenaar | 0f76981 | 2020-09-12 18:32:34 +0200 | [diff] [blame] | 2343 | goto theend; |
| 2344 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2345 | if (lhs.lhs_new_local && !lhs.lhs_has_type) |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2346 | { |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2347 | if (rhs_type->tt_type == VAR_VOID) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2348 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 2349 | emsg(_(e_cannot_use_void_value)); |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2350 | goto theend; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2351 | } |
| 2352 | else |
| 2353 | { |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2354 | type_T *type; |
| 2355 | |
Bram Moolenaar | 04bdd57 | 2020-09-23 13:25:32 +0200 | [diff] [blame] | 2356 | // An empty list or dict has a &t_unknown member, |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2357 | // for a variable that implies &t_any. |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2358 | if (rhs_type == &t_list_empty) |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2359 | type = &t_list_any; |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2360 | else if (rhs_type == &t_dict_empty) |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2361 | type = &t_dict_any; |
Bram Moolenaar | dc234ca | 2020-11-28 18:52:33 +0100 | [diff] [blame] | 2362 | else if (rhs_type == &t_unknown) |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2363 | type = &t_any; |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2364 | else |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2365 | { |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2366 | type = rhs_type; |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2367 | inferred_type = rhs_type; |
| 2368 | } |
Bram Moolenaar | fa10397 | 2022-09-29 19:14:42 +0100 | [diff] [blame] | 2369 | set_var_type(lhs.lhs_lvar, type, cctx); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2370 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2371 | } |
Bram Moolenaar | 93ad147 | 2020-08-19 22:02:41 +0200 | [diff] [blame] | 2372 | else if (*op == '=') |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2373 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2374 | type_T *use_type = lhs.lhs_lvar->lv_type; |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 2375 | where_T where = WHERE_INIT; |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2376 | |
Bram Moolenaar | 77709b1 | 2021-04-03 21:01:01 +0200 | [diff] [blame] | 2377 | // Without operator check type here, otherwise below. |
| 2378 | // Use the line number of the assignment. |
| 2379 | SOURCING_LNUM = start_lnum; |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 2380 | where.wt_index = var_count > 0 ? var_idx + 1 : 0; |
| 2381 | where.wt_variable = var_count > 0; |
Bram Moolenaar | 4f0884d | 2021-08-11 21:49:23 +0200 | [diff] [blame] | 2382 | // If assigning to a list or dict member, use the |
| 2383 | // member type. Not for "list[:] =". |
| 2384 | if (lhs.lhs_has_index |
| 2385 | && !has_list_index(var_start + lhs.lhs_varlen, |
| 2386 | cctx)) |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2387 | use_type = lhs.lhs_member_type; |
Bram Moolenaar | 4270d8b | 2021-08-07 16:30:42 +0200 | [diff] [blame] | 2388 | if (need_type_where(rhs_type, use_type, -1, where, |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2389 | cctx, FALSE, is_const) == FAIL) |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2390 | goto theend; |
| 2391 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2392 | } |
Bram Moolenaar | 74f4a96 | 2021-06-17 21:03:07 +0200 | [diff] [blame] | 2393 | else |
| 2394 | { |
| 2395 | type_T *lhs_type = lhs.lhs_member_type; |
| 2396 | |
| 2397 | // Special case: assigning to @# can use a number or a |
| 2398 | // string. |
Bram Moolenaar | af647e7 | 2021-08-05 19:01:17 +0200 | [diff] [blame] | 2399 | // Also: can assign a number to a float. |
| 2400 | if ((lhs_type == &t_number_or_string |
| 2401 | || lhs_type == &t_float) |
| 2402 | && rhs_type->tt_type == VAR_NUMBER) |
Bram Moolenaar | 74f4a96 | 2021-06-17 21:03:07 +0200 | [diff] [blame] | 2403 | lhs_type = &t_number; |
| 2404 | if (*p != '=' && need_type(rhs_type, lhs_type, |
Bram Moolenaar | 351ead0 | 2021-01-16 16:07:01 +0100 | [diff] [blame] | 2405 | -1, 0, cctx, FALSE, FALSE) == FAIL) |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2406 | goto theend; |
Bram Moolenaar | 74f4a96 | 2021-06-17 21:03:07 +0200 | [diff] [blame] | 2407 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2408 | } |
Bram Moolenaar | 30fd820 | 2020-09-26 15:09:30 +0200 | [diff] [blame] | 2409 | else if (cmdidx == CMD_final) |
| 2410 | { |
| 2411 | emsg(_(e_final_requires_a_value)); |
| 2412 | goto theend; |
| 2413 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2414 | else if (cmdidx == CMD_const) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2415 | { |
Bram Moolenaar | bc4c505 | 2020-08-13 22:47:35 +0200 | [diff] [blame] | 2416 | emsg(_(e_const_requires_a_value)); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2417 | goto theend; |
| 2418 | } |
Bram Moolenaar | dcb53be | 2021-12-09 14:23:43 +0000 | [diff] [blame] | 2419 | else if (!lhs.lhs_has_type || lhs.lhs_dest == dest_option |
| 2420 | || lhs.lhs_dest == dest_func_option) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2421 | { |
Bram Moolenaar | bc4c505 | 2020-08-13 22:47:35 +0200 | [diff] [blame] | 2422 | emsg(_(e_type_or_initialization_required)); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2423 | goto theend; |
| 2424 | } |
| 2425 | else |
| 2426 | { |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2427 | int r = OK; |
| 2428 | |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2429 | // variables are always initialized |
Bram Moolenaar | 3557816 | 2021-08-02 19:10:38 +0200 | [diff] [blame] | 2430 | if (GA_GROW_FAILS(instr, 1)) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2431 | goto theend; |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2432 | switch (lhs.lhs_member_type->tt_type) |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2433 | { |
| 2434 | case VAR_BOOL: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2435 | r = generate_PUSHBOOL(cctx, VVAL_FALSE); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2436 | break; |
| 2437 | case VAR_FLOAT: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2438 | r = generate_PUSHF(cctx, 0.0); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2439 | break; |
| 2440 | case VAR_STRING: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2441 | r = generate_PUSHS(cctx, NULL); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2442 | break; |
| 2443 | case VAR_BLOB: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2444 | r = generate_PUSHBLOB(cctx, blob_alloc()); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2445 | break; |
| 2446 | case VAR_FUNC: |
Bram Moolenaar | 1d84f76 | 2022-09-03 21:35:53 +0100 | [diff] [blame] | 2447 | r = generate_PUSHFUNC(cctx, NULL, &t_func_void, TRUE); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2448 | break; |
| 2449 | case VAR_LIST: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2450 | r = generate_NEWLIST(cctx, 0, FALSE); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2451 | break; |
| 2452 | case VAR_DICT: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2453 | r = generate_NEWDICT(cctx, 0, FALSE); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2454 | break; |
| 2455 | case VAR_JOB: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2456 | r = generate_PUSHJOB(cctx); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2457 | break; |
| 2458 | case VAR_CHANNEL: |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2459 | r = generate_PUSHCHANNEL(cctx); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2460 | break; |
| 2461 | case VAR_NUMBER: |
| 2462 | case VAR_UNKNOWN: |
| 2463 | case VAR_ANY: |
| 2464 | case VAR_PARTIAL: |
| 2465 | case VAR_VOID: |
Bram Moolenaar | f18332f | 2021-05-07 17:55:55 +0200 | [diff] [blame] | 2466 | case VAR_INSTR: |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2467 | case VAR_SPECIAL: // cannot happen |
Bram Moolenaar | 38ecd97 | 2022-01-15 21:44:44 +0000 | [diff] [blame] | 2468 | // This is skipped for local variables, they are always |
| 2469 | // initialized to zero. But in a "for" or "while" loop |
| 2470 | // the value may have been changed. |
| 2471 | if (lhs.lhs_dest == dest_local |
| 2472 | && !inside_loop_scope(cctx)) |
Bram Moolenaar | 5cd6479 | 2021-12-25 18:23:24 +0000 | [diff] [blame] | 2473 | skip_store = TRUE; |
| 2474 | else |
Bram Moolenaar | 38ecd97 | 2022-01-15 21:44:44 +0000 | [diff] [blame] | 2475 | { |
| 2476 | instr_count = instr->ga_len; |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2477 | r = generate_PUSHNR(cctx, 0); |
Bram Moolenaar | 38ecd97 | 2022-01-15 21:44:44 +0000 | [diff] [blame] | 2478 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2479 | break; |
| 2480 | } |
Bram Moolenaar | c9af617 | 2022-05-04 16:46:54 +0100 | [diff] [blame] | 2481 | if (r == FAIL) |
| 2482 | goto theend; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2483 | } |
| 2484 | if (var_count == 0) |
| 2485 | end = p; |
| 2486 | } |
| 2487 | |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2488 | // no need to parse more when skipping |
Bram Moolenaar | 9b68c82 | 2020-06-18 19:31:08 +0200 | [diff] [blame] | 2489 | if (cctx->ctx_skip == SKIP_YES) |
Bram Moolenaar | 72abcf4 | 2020-06-18 18:26:24 +0200 | [diff] [blame] | 2490 | break; |
| 2491 | |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2492 | if (oplen > 0 && *op != '=') |
| 2493 | { |
Bram Moolenaar | 93ad147 | 2020-08-19 22:02:41 +0200 | [diff] [blame] | 2494 | type_T *expected; |
Bram Moolenaar | c316072 | 2021-08-02 21:12:05 +0200 | [diff] [blame] | 2495 | type_T *stacktype = NULL; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2496 | |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2497 | if (*op == '.') |
Bram Moolenaar | f5d52c9 | 2021-07-31 22:51:10 +0200 | [diff] [blame] | 2498 | { |
| 2499 | if (may_generate_2STRING(-1, FALSE, cctx) == FAIL) |
| 2500 | goto theend; |
| 2501 | } |
Bram Moolenaar | 93ad147 | 2020-08-19 22:02:41 +0200 | [diff] [blame] | 2502 | else |
Bram Moolenaar | f5d52c9 | 2021-07-31 22:51:10 +0200 | [diff] [blame] | 2503 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2504 | expected = lhs.lhs_member_type; |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2505 | stacktype = get_type_on_stack(cctx, 0); |
Bram Moolenaar | f5d52c9 | 2021-07-31 22:51:10 +0200 | [diff] [blame] | 2506 | if ( |
Bram Moolenaar | f5d52c9 | 2021-07-31 22:51:10 +0200 | [diff] [blame] | 2507 | // If variable is float operation with number is OK. |
Bram Moolenaar | 7bf9a07 | 2021-08-02 21:55:15 +0200 | [diff] [blame] | 2508 | !(expected == &t_float && (stacktype == &t_number |
| 2509 | || stacktype == &t_number_bool)) && |
Bram Moolenaar | 351ead0 | 2021-01-16 16:07:01 +0100 | [diff] [blame] | 2510 | need_type(stacktype, expected, -1, 0, cctx, |
Bram Moolenaar | 334a8b4 | 2020-10-19 16:07:42 +0200 | [diff] [blame] | 2511 | FALSE, FALSE) == FAIL) |
Bram Moolenaar | f5d52c9 | 2021-07-31 22:51:10 +0200 | [diff] [blame] | 2512 | goto theend; |
| 2513 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2514 | |
| 2515 | if (*op == '.') |
Bram Moolenaar | dd29f1b | 2020-08-07 20:46:20 +0200 | [diff] [blame] | 2516 | { |
LemonBoy | 372bcce | 2022-04-25 12:43:20 +0100 | [diff] [blame] | 2517 | if (generate_CONCAT(cctx, 2) == FAIL) |
Bram Moolenaar | dd29f1b | 2020-08-07 20:46:20 +0200 | [diff] [blame] | 2518 | goto theend; |
| 2519 | } |
| 2520 | else if (*op == '+') |
| 2521 | { |
| 2522 | if (generate_add_instr(cctx, |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2523 | operator_type(lhs.lhs_member_type, stacktype), |
Bram Moolenaar | 0780204 | 2021-09-09 23:01:14 +0200 | [diff] [blame] | 2524 | lhs.lhs_member_type, stacktype, |
| 2525 | EXPR_APPEND) == FAIL) |
Bram Moolenaar | dd29f1b | 2020-08-07 20:46:20 +0200 | [diff] [blame] | 2526 | goto theend; |
| 2527 | } |
Bram Moolenaar | 93ad147 | 2020-08-19 22:02:41 +0200 | [diff] [blame] | 2528 | else if (generate_two_op(cctx, op) == FAIL) |
| 2529 | goto theend; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2530 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2531 | |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2532 | // Use the line number of the assignment for store instruction. |
| 2533 | save_lnum = cctx->ctx_lnum; |
| 2534 | cctx->ctx_lnum = start_lnum - 1; |
| 2535 | |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2536 | if (lhs.lhs_has_index) |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2537 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2538 | // Use the info in "lhs" to store the value at the index in the |
| 2539 | // list or dict. |
| 2540 | if (compile_assign_unlet(var_start, &lhs, TRUE, rhs_type, cctx) |
| 2541 | == FAIL) |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2542 | { |
| 2543 | cctx->ctx_lnum = save_lnum; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2544 | goto theend; |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2545 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2546 | } |
| 2547 | else |
| 2548 | { |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2549 | if (is_decl && cmdidx == CMD_const && (lhs.lhs_dest == dest_script |
Bram Moolenaar | d877a57 | 2021-04-01 19:42:48 +0200 | [diff] [blame] | 2550 | || lhs.lhs_dest == dest_global |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2551 | || lhs.lhs_dest == dest_local)) |
Bram Moolenaar | 30fd820 | 2020-09-26 15:09:30 +0200 | [diff] [blame] | 2552 | // ":const var": lock the value, but not referenced variables |
Bram Moolenaar | 0b4c66c | 2020-09-14 21:39:44 +0200 | [diff] [blame] | 2553 | generate_LOCKCONST(cctx); |
| 2554 | |
Bram Moolenaar | 10d6f18 | 2022-01-04 15:54:38 +0000 | [diff] [blame] | 2555 | if ((lhs.lhs_type->tt_type == VAR_DICT |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2556 | || lhs.lhs_type->tt_type == VAR_LIST) |
| 2557 | && lhs.lhs_type->tt_member != NULL |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2558 | && lhs.lhs_type->tt_member != &t_any |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2559 | && lhs.lhs_type->tt_member != &t_unknown) |
Bram Moolenaar | aa210a3 | 2021-01-02 15:41:03 +0100 | [diff] [blame] | 2560 | // Set the type in the list or dict, so that it can be checked, |
Bram Moolenaar | 10d6f18 | 2022-01-04 15:54:38 +0000 | [diff] [blame] | 2561 | // also in legacy script. |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2562 | generate_SETTYPE(cctx, lhs.lhs_type); |
Bram Moolenaar | e88c6b7 | 2022-02-15 15:37:11 +0000 | [diff] [blame] | 2563 | else if (inferred_type != NULL |
| 2564 | && (inferred_type->tt_type == VAR_DICT |
| 2565 | || inferred_type->tt_type == VAR_LIST) |
| 2566 | && inferred_type->tt_member != NULL |
| 2567 | && inferred_type->tt_member != &t_unknown |
| 2568 | && inferred_type->tt_member != &t_any) |
| 2569 | // Set the type in the list or dict, so that it can be checked, |
| 2570 | // also in legacy script. |
| 2571 | generate_SETTYPE(cctx, inferred_type); |
Bram Moolenaar | aa210a3 | 2021-01-02 15:41:03 +0100 | [diff] [blame] | 2572 | |
Bram Moolenaar | 5cd6479 | 2021-12-25 18:23:24 +0000 | [diff] [blame] | 2573 | if (!skip_store && generate_store_lhs(cctx, &lhs, |
| 2574 | instr_count, is_decl) == FAIL) |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2575 | { |
| 2576 | cctx->ctx_lnum = save_lnum; |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 2577 | goto theend; |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2578 | } |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 2579 | } |
Bram Moolenaar | 6977dba | 2021-07-04 22:48:12 +0200 | [diff] [blame] | 2580 | cctx->ctx_lnum = save_lnum; |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2581 | |
| 2582 | if (var_idx + 1 < var_count) |
Bram Moolenaar | ab36e6a | 2021-11-30 16:14:49 +0000 | [diff] [blame] | 2583 | var_start = skipwhite(lhs.lhs_end + 1); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2584 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2585 | |
Bram Moolenaar | 4d5dfe2 | 2021-06-26 13:59:29 +0200 | [diff] [blame] | 2586 | // For "[var, var] = expr" drop the "expr" value. |
| 2587 | // Also for "[var, var; _] = expr". |
| 2588 | if (var_count > 0 && (!semicolon || !did_generate_slice)) |
Bram Moolenaar | 9af7876 | 2020-06-16 11:34:42 +0200 | [diff] [blame] | 2589 | { |
Bram Moolenaar | ec79229 | 2020-12-13 21:26:56 +0100 | [diff] [blame] | 2590 | if (generate_instr_drop(cctx, ISN_DROP, 1) == NULL) |
Bram Moolenaar | 9af7876 | 2020-06-16 11:34:42 +0200 | [diff] [blame] | 2591 | goto theend; |
| 2592 | } |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 2593 | |
Bram Moolenaar | b209750 | 2020-07-19 17:17:02 +0200 | [diff] [blame] | 2594 | ret = skipwhite(end); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2595 | |
| 2596 | theend: |
Bram Moolenaar | 752fc69 | 2021-01-04 21:57:11 +0100 | [diff] [blame] | 2597 | vim_free(lhs.lhs_name); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2598 | return ret; |
| 2599 | } |
| 2600 | |
| 2601 | /* |
Bram Moolenaar | 17126b1 | 2021-01-07 22:03:02 +0100 | [diff] [blame] | 2602 | * Check for an assignment at "eap->cmd", compile it if found. |
| 2603 | * Return NOTDONE if there is none, FAIL for failure, OK if done. |
| 2604 | */ |
| 2605 | static int |
| 2606 | may_compile_assignment(exarg_T *eap, char_u **line, cctx_T *cctx) |
| 2607 | { |
| 2608 | char_u *pskip; |
| 2609 | char_u *p; |
| 2610 | |
| 2611 | // Assuming the command starts with a variable or function name, |
| 2612 | // find what follows. |
| 2613 | // Skip over "var.member", "var[idx]" and the like. |
| 2614 | // Also "&opt = val", "$ENV = val" and "@r = val". |
| 2615 | pskip = (*eap->cmd == '&' || *eap->cmd == '$' || *eap->cmd == '@') |
| 2616 | ? eap->cmd + 1 : eap->cmd; |
| 2617 | p = to_name_end(pskip, TRUE); |
| 2618 | if (p > eap->cmd && *p != NUL) |
| 2619 | { |
| 2620 | char_u *var_end; |
| 2621 | int oplen; |
| 2622 | int heredoc; |
| 2623 | |
| 2624 | if (eap->cmd[0] == '@') |
| 2625 | var_end = eap->cmd + 2; |
| 2626 | else |
| 2627 | var_end = find_name_end(pskip, NULL, NULL, |
| 2628 | FNE_CHECK_START | FNE_INCL_BR); |
| 2629 | oplen = assignment_len(skipwhite(var_end), &heredoc); |
| 2630 | if (oplen > 0) |
| 2631 | { |
| 2632 | size_t len = p - eap->cmd; |
| 2633 | |
| 2634 | // Recognize an assignment if we recognize the variable |
| 2635 | // name: |
Bram Moolenaar | 17126b1 | 2021-01-07 22:03:02 +0100 | [diff] [blame] | 2636 | // "&opt = expr" |
| 2637 | // "$ENV = expr" |
| 2638 | // "@r = expr" |
Bram Moolenaar | 2e17fef | 2022-03-18 19:44:48 +0000 | [diff] [blame] | 2639 | // "g:var = expr" |
| 2640 | // "g:[key] = expr" |
| 2641 | // "local = expr" where "local" is a local var. |
| 2642 | // "script = expr" where "script" is a script-local var. |
| 2643 | // "import = expr" where "import" is an imported var |
Bram Moolenaar | 17126b1 | 2021-01-07 22:03:02 +0100 | [diff] [blame] | 2644 | if (*eap->cmd == '&' |
| 2645 | || *eap->cmd == '$' |
| 2646 | || *eap->cmd == '@' |
| 2647 | || ((len) > 2 && eap->cmd[1] == ':') |
Bram Moolenaar | 2e17fef | 2022-03-18 19:44:48 +0000 | [diff] [blame] | 2648 | || STRNCMP(eap->cmd, "g:[", 3) == 0 |
Bram Moolenaar | e0890d6 | 2021-02-17 14:52:14 +0100 | [diff] [blame] | 2649 | || variable_exists(eap->cmd, len, cctx)) |
Bram Moolenaar | 17126b1 | 2021-01-07 22:03:02 +0100 | [diff] [blame] | 2650 | { |
| 2651 | *line = compile_assignment(eap->cmd, eap, CMD_SIZE, cctx); |
| 2652 | if (*line == NULL || *line == eap->cmd) |
| 2653 | return FAIL; |
| 2654 | return OK; |
| 2655 | } |
| 2656 | } |
| 2657 | } |
| 2658 | |
| 2659 | if (*eap->cmd == '[') |
| 2660 | { |
Bram Moolenaar | 8b716f5 | 2022-02-15 21:17:56 +0000 | [diff] [blame] | 2661 | // might be "[var, var] = expr" |
Bram Moolenaar | 17126b1 | 2021-01-07 22:03:02 +0100 | [diff] [blame] | 2662 | *line = compile_assignment(eap->cmd, eap, CMD_SIZE, cctx); |
| 2663 | if (*line == NULL) |
| 2664 | return FAIL; |
| 2665 | if (*line != eap->cmd) |
| 2666 | return OK; |
| 2667 | } |
| 2668 | return NOTDONE; |
| 2669 | } |
| 2670 | |
Bram Moolenaar | 9a01511 | 2021-12-31 14:06:45 +0000 | [diff] [blame] | 2671 | /* |
| 2672 | * Check if arguments of "ufunc" shadow variables in "cctx". |
| 2673 | * Return OK or FAIL. |
| 2674 | */ |
| 2675 | static int |
| 2676 | check_args_shadowing(ufunc_T *ufunc, cctx_T *cctx) |
| 2677 | { |
| 2678 | int i; |
| 2679 | char_u *arg; |
| 2680 | int r = OK; |
| 2681 | |
| 2682 | // Make sure arguments are not found when compiling a second time. |
| 2683 | ufunc->uf_args_visible = 0; |
| 2684 | |
| 2685 | // Check for arguments shadowing variables from the context. |
| 2686 | for (i = 0; i < ufunc->uf_args.ga_len; ++i) |
| 2687 | { |
| 2688 | arg = ((char_u **)(ufunc->uf_args.ga_data))[i]; |
Bram Moolenaar | dce2441 | 2022-02-08 20:35:30 +0000 | [diff] [blame] | 2689 | if (check_defined(arg, STRLEN(arg), cctx, NULL, TRUE) == FAIL) |
Bram Moolenaar | 9a01511 | 2021-12-31 14:06:45 +0000 | [diff] [blame] | 2690 | { |
| 2691 | r = FAIL; |
| 2692 | break; |
| 2693 | } |
| 2694 | } |
| 2695 | ufunc->uf_args_visible = ufunc->uf_args.ga_len; |
| 2696 | return r; |
| 2697 | } |
| 2698 | |
Bram Moolenaar | fcb86b0 | 2022-10-07 22:46:24 +0100 | [diff] [blame] | 2699 | #ifdef HAS_MESSAGE_WINDOW |
Bram Moolenaar | 139575d | 2022-03-15 19:29:30 +0000 | [diff] [blame] | 2700 | /* |
Bram Moolenaar | bdc09a1 | 2022-10-07 14:31:45 +0100 | [diff] [blame] | 2701 | * Get a count before a command. Can only be a number. |
| 2702 | * Returns zero if there is no count. |
| 2703 | * Returns -1 if there is something wrong. |
| 2704 | */ |
| 2705 | static long |
| 2706 | get_cmd_count(char_u *line, exarg_T *eap) |
| 2707 | { |
| 2708 | char_u *p; |
| 2709 | |
| 2710 | // skip over colons and white space |
| 2711 | for (p = line; *p == ':' || VIM_ISWHITE(*p); ++p) |
| 2712 | ; |
| 2713 | if (!isdigit(*p)) |
| 2714 | { |
| 2715 | // the command must be following |
| 2716 | if (p < eap->cmd) |
| 2717 | { |
| 2718 | emsg(_(e_invalid_range)); |
| 2719 | return -1; |
| 2720 | } |
| 2721 | return 0; |
| 2722 | } |
| 2723 | return atol((char *)p); |
| 2724 | } |
Bram Moolenaar | fcb86b0 | 2022-10-07 22:46:24 +0100 | [diff] [blame] | 2725 | #endif |
Bram Moolenaar | bdc09a1 | 2022-10-07 14:31:45 +0100 | [diff] [blame] | 2726 | |
| 2727 | /* |
Bram Moolenaar | 139575d | 2022-03-15 19:29:30 +0000 | [diff] [blame] | 2728 | * Get the compilation type that should be used for "ufunc". |
| 2729 | * Keep in sync with INSTRUCTIONS(). |
| 2730 | */ |
| 2731 | compiletype_T |
| 2732 | get_compile_type(ufunc_T *ufunc) |
| 2733 | { |
| 2734 | // Update uf_has_breakpoint if needed. |
| 2735 | update_has_breakpoint(ufunc); |
| 2736 | |
| 2737 | if (debug_break_level > 0 || may_break_in_function(ufunc)) |
| 2738 | return CT_DEBUG; |
| 2739 | #ifdef FEAT_PROFILE |
| 2740 | if (do_profiling == PROF_YES) |
| 2741 | { |
| 2742 | if (!ufunc->uf_profiling && has_profiling(FALSE, ufunc->uf_name, NULL)) |
| 2743 | func_do_profile(ufunc); |
| 2744 | if (ufunc->uf_profiling) |
| 2745 | return CT_PROFILE; |
| 2746 | } |
| 2747 | #endif |
| 2748 | return CT_NONE; |
| 2749 | } |
| 2750 | |
Bram Moolenaar | 7b82926 | 2021-10-13 15:04:34 +0100 | [diff] [blame] | 2751 | |
| 2752 | /* |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2753 | * Add a function to the list of :def functions. |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 2754 | * This sets "ufunc->uf_dfunc_idx" but the function isn't compiled yet. |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2755 | */ |
Bram Moolenaar | 822ba24 | 2020-05-24 23:00:18 +0200 | [diff] [blame] | 2756 | static int |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2757 | add_def_function(ufunc_T *ufunc) |
| 2758 | { |
| 2759 | dfunc_T *dfunc; |
| 2760 | |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 2761 | if (def_functions.ga_len == 0) |
| 2762 | { |
| 2763 | // The first position is not used, so that a zero uf_dfunc_idx means it |
| 2764 | // wasn't set. |
Bram Moolenaar | 3557816 | 2021-08-02 19:10:38 +0200 | [diff] [blame] | 2765 | if (GA_GROW_FAILS(&def_functions, 1)) |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 2766 | return FAIL; |
| 2767 | ++def_functions.ga_len; |
| 2768 | } |
| 2769 | |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2770 | // Add the function to "def_functions". |
Bram Moolenaar | 3557816 | 2021-08-02 19:10:38 +0200 | [diff] [blame] | 2771 | if (GA_GROW_FAILS(&def_functions, 1)) |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2772 | return FAIL; |
| 2773 | dfunc = ((dfunc_T *)def_functions.ga_data) + def_functions.ga_len; |
| 2774 | CLEAR_POINTER(dfunc); |
| 2775 | dfunc->df_idx = def_functions.ga_len; |
| 2776 | ufunc->uf_dfunc_idx = dfunc->df_idx; |
| 2777 | dfunc->df_ufunc = ufunc; |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 2778 | dfunc->df_name = vim_strsave(ufunc->uf_name); |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 2779 | ga_init2(&dfunc->df_var_names, sizeof(char_u *), 10); |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 2780 | ++dfunc->df_refcount; |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2781 | ++def_functions.ga_len; |
| 2782 | return OK; |
| 2783 | } |
| 2784 | |
| 2785 | /* |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2786 | * After ex_function() has collected all the function lines: parse and compile |
| 2787 | * the lines into instructions. |
| 2788 | * Adds the function to "def_functions". |
Bram Moolenaar | 9e68c32 | 2020-12-25 12:38:04 +0100 | [diff] [blame] | 2789 | * When "check_return_type" is set then set ufunc->uf_ret_type to the type of |
| 2790 | * the return statement (used for lambda). When uf_ret_type is already set |
| 2791 | * then check that it matches. |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2792 | * When "profiling" is true add ISN_PROF_START instructions. |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 2793 | * "outer_cctx" is set for a nested function. |
Bram Moolenaar | 05afcee | 2020-03-31 23:32:31 +0200 | [diff] [blame] | 2794 | * This can be used recursively through compile_lambda(), which may reallocate |
| 2795 | * "def_functions". |
Bram Moolenaar | 822ba24 | 2020-05-24 23:00:18 +0200 | [diff] [blame] | 2796 | * Returns OK or FAIL. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2797 | */ |
Bram Moolenaar | 822ba24 | 2020-05-24 23:00:18 +0200 | [diff] [blame] | 2798 | int |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2799 | compile_def_function( |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 2800 | ufunc_T *ufunc, |
| 2801 | int check_return_type, |
| 2802 | compiletype_T compile_type, |
| 2803 | cctx_T *outer_cctx) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2804 | { |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2805 | char_u *line = NULL; |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 2806 | garray_T lines_to_free; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2807 | char_u *p; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2808 | char *errormsg = NULL; // error message |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2809 | cctx_T cctx; |
| 2810 | garray_T *instr; |
Bram Moolenaar | d66960b | 2020-10-30 20:46:26 +0100 | [diff] [blame] | 2811 | int did_emsg_before = did_emsg; |
Bram Moolenaar | 599410c | 2021-04-10 14:03:43 +0200 | [diff] [blame] | 2812 | int did_emsg_silent_before = did_emsg_silent; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2813 | int ret = FAIL; |
| 2814 | sctx_T save_current_sctx = current_sctx; |
Bram Moolenaar | f4e8cdd | 2020-10-12 22:07:13 +0200 | [diff] [blame] | 2815 | int save_estack_compiling = estack_compiling; |
Bram Moolenaar | dc4c230 | 2021-04-25 13:54:42 +0200 | [diff] [blame] | 2816 | int save_cmod_flags = cmdmod.cmod_flags; |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 2817 | int do_estack_push; |
Bram Moolenaar | 6c4bfe4 | 2020-07-23 18:26:30 +0200 | [diff] [blame] | 2818 | int new_def_function = FALSE; |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 2819 | #ifdef FEAT_PROFILE |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2820 | int prof_lnum = -1; |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 2821 | #endif |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 2822 | int debug_lnum = -1; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2823 | |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 2824 | // allocated lines are freed at the end |
| 2825 | ga_init2(&lines_to_free, sizeof(char_u *), 50); |
| 2826 | |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 2827 | // When using a function that was compiled before: Free old instructions. |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 2828 | // The index is reused. Otherwise add a new entry in "def_functions". |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 2829 | if (ufunc->uf_dfunc_idx > 0) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2830 | { |
Bram Moolenaar | 09689a0 | 2020-05-09 22:50:08 +0200 | [diff] [blame] | 2831 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 2832 | + ufunc->uf_dfunc_idx; |
Bram Moolenaar | 3b814af | 2021-06-15 10:22:17 +0200 | [diff] [blame] | 2833 | isn_T *instr_dest = NULL; |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 2834 | |
| 2835 | switch (compile_type) |
| 2836 | { |
| 2837 | case CT_PROFILE: |
| 2838 | #ifdef FEAT_PROFILE |
| 2839 | instr_dest = dfunc->df_instr_prof; break; |
| 2840 | #endif |
| 2841 | case CT_NONE: instr_dest = dfunc->df_instr; break; |
| 2842 | case CT_DEBUG: instr_dest = dfunc->df_instr_debug; break; |
| 2843 | } |
| 2844 | if (instr_dest != NULL) |
| 2845 | // Was compiled in this mode before: Free old instructions. |
| 2846 | delete_def_function_contents(dfunc, FALSE); |
| 2847 | ga_clear_strings(&dfunc->df_var_names); |
Bram Moolenaar | 1d84f76 | 2022-09-03 21:35:53 +0100 | [diff] [blame] | 2848 | dfunc->df_defer_var_idx = 0; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2849 | } |
Bram Moolenaar | 6c4bfe4 | 2020-07-23 18:26:30 +0200 | [diff] [blame] | 2850 | else |
| 2851 | { |
| 2852 | if (add_def_function(ufunc) == FAIL) |
| 2853 | return FAIL; |
| 2854 | new_def_function = TRUE; |
| 2855 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2856 | |
Bram Moolenaar | 96923b7 | 2022-03-15 15:57:04 +0000 | [diff] [blame] | 2857 | if ((ufunc->uf_flags & FC_CLOSURE) && outer_cctx == NULL) |
| 2858 | { |
| 2859 | semsg(_(e_compiling_closure_without_context_str), |
| 2860 | printable_func_name(ufunc)); |
| 2861 | return FAIL; |
| 2862 | } |
| 2863 | |
Bram Moolenaar | 985116a | 2020-07-12 17:31:09 +0200 | [diff] [blame] | 2864 | ufunc->uf_def_status = UF_COMPILING; |
| 2865 | |
Bram Moolenaar | a80faa8 | 2020-04-12 19:37:17 +0200 | [diff] [blame] | 2866 | CLEAR_FIELD(cctx); |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2867 | |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 2868 | cctx.ctx_compile_type = compile_type; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2869 | cctx.ctx_ufunc = ufunc; |
| 2870 | cctx.ctx_lnum = -1; |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 2871 | cctx.ctx_outer = outer_cctx; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2872 | ga_init2(&cctx.ctx_locals, sizeof(lvar_T), 10); |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2873 | // Each entry on the type stack consists of two type pointers. |
| 2874 | ga_init2(&cctx.ctx_type_stack, sizeof(type2_T), 50); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2875 | cctx.ctx_type_list = &ufunc->uf_type_list; |
| 2876 | ga_init2(&cctx.ctx_instr, sizeof(isn_T), 50); |
| 2877 | instr = &cctx.ctx_instr; |
| 2878 | |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 2879 | // Set the context to the function, it may be compiled when called from |
| 2880 | // another script. Set the script version to the most modern one. |
| 2881 | // The line number will be set in next_line_from_context(). |
| 2882 | current_sctx = ufunc->uf_script_ctx; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2883 | current_sctx.sc_version = SCRIPT_VERSION_VIM9; |
| 2884 | |
Bram Moolenaar | dc4c230 | 2021-04-25 13:54:42 +0200 | [diff] [blame] | 2885 | // Don't use the flag from ":legacy" here. |
| 2886 | cmdmod.cmod_flags &= ~CMOD_LEGACY; |
| 2887 | |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 2888 | // Make sure error messages are OK. |
| 2889 | do_estack_push = !estack_top_is_ufunc(ufunc, 1); |
| 2890 | if (do_estack_push) |
| 2891 | estack_push_ufunc(ufunc, 1); |
Bram Moolenaar | f4e8cdd | 2020-10-12 22:07:13 +0200 | [diff] [blame] | 2892 | estack_compiling = TRUE; |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 2893 | |
Bram Moolenaar | 9a01511 | 2021-12-31 14:06:45 +0000 | [diff] [blame] | 2894 | if (check_args_shadowing(ufunc, &cctx) == FAIL) |
| 2895 | goto erret; |
| 2896 | |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2897 | if (ufunc->uf_def_args.ga_len > 0) |
| 2898 | { |
| 2899 | int count = ufunc->uf_def_args.ga_len; |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2900 | int first_def_arg = ufunc->uf_args.ga_len - count; |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2901 | int i; |
| 2902 | char_u *arg; |
| 2903 | int off = STACK_FRAME_SIZE + (ufunc->uf_va_name != NULL ? 1 : 0); |
Bram Moolenaar | b8070e3 | 2020-07-23 20:56:04 +0200 | [diff] [blame] | 2904 | int did_set_arg_type = FALSE; |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2905 | |
| 2906 | // Produce instructions for the default values of optional arguments. |
Bram Moolenaar | 12bce95 | 2021-03-11 20:04:04 +0100 | [diff] [blame] | 2907 | SOURCING_LNUM = 0; // line number unknown |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2908 | for (i = 0; i < count; ++i) |
| 2909 | { |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2910 | type_T *val_type; |
| 2911 | int arg_idx = first_def_arg + i; |
Bram Moolenaar | 7a3fe3e | 2021-07-22 14:58:47 +0200 | [diff] [blame] | 2912 | where_T where = WHERE_INIT; |
Bram Moolenaar | 12bce95 | 2021-03-11 20:04:04 +0100 | [diff] [blame] | 2913 | int r; |
Bram Moolenaar | 38a3bfa | 2021-03-29 22:14:55 +0200 | [diff] [blame] | 2914 | int jump_instr_idx = instr->ga_len; |
| 2915 | isn_T *isn; |
| 2916 | |
| 2917 | // Use a JUMP_IF_ARG_SET instruction to skip if the value was given. |
| 2918 | if (generate_JUMP_IF_ARG_SET(&cctx, i - count - off) == FAIL) |
| 2919 | goto erret; |
Bram Moolenaar | 12bce95 | 2021-03-11 20:04:04 +0100 | [diff] [blame] | 2920 | |
| 2921 | // Make sure later arguments are not found. |
Bram Moolenaar | e28d9b3 | 2021-07-03 18:56:53 +0200 | [diff] [blame] | 2922 | ufunc->uf_args_visible = arg_idx; |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2923 | |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2924 | arg = ((char_u **)(ufunc->uf_def_args.ga_data))[i]; |
Bram Moolenaar | 12bce95 | 2021-03-11 20:04:04 +0100 | [diff] [blame] | 2925 | r = compile_expr0(&arg, &cctx); |
| 2926 | |
Bram Moolenaar | 12bce95 | 2021-03-11 20:04:04 +0100 | [diff] [blame] | 2927 | if (r == FAIL) |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2928 | goto erret; |
| 2929 | |
| 2930 | // If no type specified use the type of the default value. |
| 2931 | // Otherwise check that the default value type matches the |
| 2932 | // specified type. |
Bram Moolenaar | 078a461 | 2022-01-04 15:17:03 +0000 | [diff] [blame] | 2933 | val_type = get_type_on_stack(&cctx, 0); |
Bram Moolenaar | f785aa1 | 2021-02-11 21:19:34 +0100 | [diff] [blame] | 2934 | where.wt_index = arg_idx + 1; |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2935 | if (ufunc->uf_arg_types[arg_idx] == &t_unknown) |
Bram Moolenaar | b8070e3 | 2020-07-23 20:56:04 +0200 | [diff] [blame] | 2936 | { |
| 2937 | did_set_arg_type = TRUE; |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2938 | ufunc->uf_arg_types[arg_idx] = val_type; |
Bram Moolenaar | b8070e3 | 2020-07-23 20:56:04 +0200 | [diff] [blame] | 2939 | } |
Bram Moolenaar | fa46ead | 2021-12-22 13:18:39 +0000 | [diff] [blame] | 2940 | else if (need_type_where(val_type, ufunc->uf_arg_types[arg_idx], |
| 2941 | -1, where, &cctx, FALSE, FALSE) == FAIL) |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2942 | goto erret; |
Bram Moolenaar | 49cf7cc | 2020-04-07 22:45:00 +0200 | [diff] [blame] | 2943 | |
| 2944 | if (generate_STORE(&cctx, ISN_STORE, i - count - off, NULL) == FAIL) |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2945 | goto erret; |
Bram Moolenaar | 38a3bfa | 2021-03-29 22:14:55 +0200 | [diff] [blame] | 2946 | |
| 2947 | // set instruction index in JUMP_IF_ARG_SET to here |
| 2948 | isn = ((isn_T *)instr->ga_data) + jump_instr_idx; |
| 2949 | isn->isn_arg.jumparg.jump_where = instr->ga_len; |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2950 | } |
Bram Moolenaar | b8070e3 | 2020-07-23 20:56:04 +0200 | [diff] [blame] | 2951 | |
| 2952 | if (did_set_arg_type) |
| 2953 | set_function_type(ufunc); |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2954 | } |
Bram Moolenaar | e28d9b3 | 2021-07-03 18:56:53 +0200 | [diff] [blame] | 2955 | ufunc->uf_args_visible = ufunc->uf_args.ga_len; |
Bram Moolenaar | 170fcfc | 2020-02-06 17:51:35 +0100 | [diff] [blame] | 2956 | |
| 2957 | /* |
| 2958 | * Loop over all the lines of the function and generate instructions. |
| 2959 | */ |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2960 | for (;;) |
| 2961 | { |
Bram Moolenaar | 2dd0a2c | 2020-08-08 15:10:27 +0200 | [diff] [blame] | 2962 | exarg_T ea; |
Bram Moolenaar | 2dd0a2c | 2020-08-08 15:10:27 +0200 | [diff] [blame] | 2963 | int starts_with_colon = FALSE; |
| 2964 | char_u *cmd; |
Bram Moolenaar | 02194d2 | 2020-10-24 23:08:38 +0200 | [diff] [blame] | 2965 | cmdmod_T local_cmdmod; |
Bram Moolenaar | 5b1c8fe | 2020-02-21 18:42:43 +0100 | [diff] [blame] | 2966 | |
Bram Moolenaar | 5deeb3f | 2020-04-05 17:08:17 +0200 | [diff] [blame] | 2967 | // Bail out on the first error to avoid a flood of errors and report |
| 2968 | // the right line number when inside try/catch. |
Bram Moolenaar | d66960b | 2020-10-30 20:46:26 +0100 | [diff] [blame] | 2969 | if (did_emsg_before != did_emsg) |
Bram Moolenaar | 5deeb3f | 2020-04-05 17:08:17 +0200 | [diff] [blame] | 2970 | goto erret; |
| 2971 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2972 | if (line != NULL && *line == '|') |
| 2973 | // the line continues after a '|' |
| 2974 | ++line; |
Bram Moolenaar | a3b7fdc | 2020-06-21 14:12:17 +0200 | [diff] [blame] | 2975 | else if (line != NULL && *skipwhite(line) != NUL |
Bram Moolenaar | 7a09224 | 2020-04-16 22:10:49 +0200 | [diff] [blame] | 2976 | && !(*line == '#' && (line == cctx.ctx_line_start |
| 2977 | || VIM_ISWHITE(line[-1])))) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2978 | { |
Bram Moolenaar | 74409f6 | 2022-01-01 15:58:22 +0000 | [diff] [blame] | 2979 | semsg(_(e_trailing_characters_str), line); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2980 | goto erret; |
| 2981 | } |
Bram Moolenaar | 4b3e196 | 2021-03-18 21:37:55 +0100 | [diff] [blame] | 2982 | else if (line != NULL && vim9_bad_comment(skipwhite(line))) |
| 2983 | goto erret; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2984 | else |
| 2985 | { |
Bram Moolenaar | 23c5527 | 2020-06-21 16:58:13 +0200 | [diff] [blame] | 2986 | line = next_line_from_context(&cctx, FALSE); |
Bram Moolenaar | 4fdae99 | 2020-04-12 16:38:57 +0200 | [diff] [blame] | 2987 | if (cctx.ctx_lnum >= ufunc->uf_lines.ga_len) |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2988 | { |
Bram Moolenaar | cb711ab | 2020-04-16 13:00:29 +0200 | [diff] [blame] | 2989 | // beyond the last line |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 2990 | #ifdef FEAT_PROFILE |
Bram Moolenaar | ced68a0 | 2021-01-24 17:53:47 +0100 | [diff] [blame] | 2991 | if (cctx.ctx_skip != SKIP_YES) |
| 2992 | may_generate_prof_end(&cctx, prof_lnum); |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 2993 | #endif |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 2994 | break; |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 2995 | } |
Bram Moolenaar | f62d739 | 2021-04-14 12:40:00 +0200 | [diff] [blame] | 2996 | // Make a copy, splitting off nextcmd and removing trailing spaces |
| 2997 | // may change it. |
| 2998 | if (line != NULL) |
| 2999 | { |
| 3000 | line = vim_strsave(line); |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 3001 | if (ga_add_string(&lines_to_free, line) == FAIL) |
| 3002 | goto erret; |
Bram Moolenaar | f62d739 | 2021-04-14 12:40:00 +0200 | [diff] [blame] | 3003 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3004 | } |
| 3005 | |
Bram Moolenaar | a80faa8 | 2020-04-12 19:37:17 +0200 | [diff] [blame] | 3006 | CLEAR_FIELD(ea); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3007 | ea.cmdlinep = &line; |
| 3008 | ea.cmd = skipwhite(line); |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 3009 | ea.skip = cctx.ctx_skip == SKIP_YES; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3010 | |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3011 | if (*ea.cmd == '#') |
| 3012 | { |
Bram Moolenaar | ad6d9cc | 2022-08-08 21:43:11 +0100 | [diff] [blame] | 3013 | // "#" starts a comment, but "#{" is an error |
| 3014 | if (vim9_bad_comment(ea.cmd)) |
| 3015 | goto erret; |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3016 | line = (char_u *)""; |
| 3017 | continue; |
| 3018 | } |
| 3019 | |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 3020 | #ifdef FEAT_PROFILE |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 3021 | if (cctx.ctx_compile_type == CT_PROFILE && cctx.ctx_lnum != prof_lnum |
| 3022 | && cctx.ctx_skip != SKIP_YES) |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3023 | { |
| 3024 | may_generate_prof_end(&cctx, prof_lnum); |
| 3025 | |
| 3026 | prof_lnum = cctx.ctx_lnum; |
| 3027 | generate_instr(&cctx, ISN_PROF_START); |
| 3028 | } |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 3029 | #endif |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 3030 | if (cctx.ctx_compile_type == CT_DEBUG && cctx.ctx_lnum != debug_lnum |
| 3031 | && cctx.ctx_skip != SKIP_YES) |
| 3032 | { |
| 3033 | debug_lnum = cctx.ctx_lnum; |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 3034 | generate_instr_debug(&cctx); |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 3035 | } |
Bram Moolenaar | 8cec927 | 2021-06-23 20:20:53 +0200 | [diff] [blame] | 3036 | cctx.ctx_prev_lnum = cctx.ctx_lnum + 1; |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3037 | |
Bram Moolenaar | cb711ab | 2020-04-16 13:00:29 +0200 | [diff] [blame] | 3038 | // Some things can be recognized by the first character. |
| 3039 | switch (*ea.cmd) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3040 | { |
Bram Moolenaar | cb711ab | 2020-04-16 13:00:29 +0200 | [diff] [blame] | 3041 | case '}': |
| 3042 | { |
| 3043 | // "}" ends a block scope |
| 3044 | scopetype_T stype = cctx.ctx_scope == NULL |
| 3045 | ? NO_SCOPE : cctx.ctx_scope->se_type; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3046 | |
Bram Moolenaar | cb711ab | 2020-04-16 13:00:29 +0200 | [diff] [blame] | 3047 | if (stype == BLOCK_SCOPE) |
| 3048 | { |
| 3049 | compile_endblock(&cctx); |
| 3050 | line = ea.cmd; |
| 3051 | } |
| 3052 | else |
| 3053 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 3054 | emsg(_(e_using_rcurly_outside_if_block_scope)); |
Bram Moolenaar | cb711ab | 2020-04-16 13:00:29 +0200 | [diff] [blame] | 3055 | goto erret; |
| 3056 | } |
| 3057 | if (line != NULL) |
| 3058 | line = skipwhite(ea.cmd + 1); |
| 3059 | continue; |
| 3060 | } |
| 3061 | |
| 3062 | case '{': |
| 3063 | // "{" starts a block scope |
| 3064 | // "{'a': 1}->func() is something else |
| 3065 | if (ends_excmd(*skipwhite(ea.cmd + 1))) |
| 3066 | { |
| 3067 | line = compile_block(ea.cmd, &cctx); |
| 3068 | continue; |
| 3069 | } |
| 3070 | break; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3071 | } |
| 3072 | |
| 3073 | /* |
| 3074 | * COMMAND MODIFIERS |
| 3075 | */ |
Bram Moolenaar | 02194d2 | 2020-10-24 23:08:38 +0200 | [diff] [blame] | 3076 | cctx.ctx_has_cmdmod = FALSE; |
Bram Moolenaar | e100440 | 2020-10-24 20:49:43 +0200 | [diff] [blame] | 3077 | if (parse_command_modifiers(&ea, &errormsg, &local_cmdmod, FALSE) |
| 3078 | == FAIL) |
Bram Moolenaar | bc51006 | 2022-02-14 21:19:04 +0000 | [diff] [blame] | 3079 | goto erret; |
Bram Moolenaar | e100440 | 2020-10-24 20:49:43 +0200 | [diff] [blame] | 3080 | generate_cmdmods(&cctx, &local_cmdmod); |
| 3081 | undo_cmdmod(&local_cmdmod); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3082 | |
Bram Moolenaar | e88c8e8 | 2020-11-01 17:03:37 +0100 | [diff] [blame] | 3083 | // Check if there was a colon after the last command modifier or before |
| 3084 | // the current position. |
| 3085 | for (p = ea.cmd; p >= line; --p) |
| 3086 | { |
| 3087 | if (*p == ':') |
| 3088 | starts_with_colon = TRUE; |
| 3089 | if (p < ea.cmd && !VIM_ISWHITE(*p)) |
| 3090 | break; |
| 3091 | } |
| 3092 | |
Bram Moolenaar | ce024c3 | 2021-06-26 13:00:49 +0200 | [diff] [blame] | 3093 | // Skip ":call" to get to the function name, unless using :legacy |
Bram Moolenaar | 575f24b | 2020-08-12 14:21:11 +0200 | [diff] [blame] | 3094 | p = ea.cmd; |
Bram Moolenaar | ce024c3 | 2021-06-26 13:00:49 +0200 | [diff] [blame] | 3095 | if (!(local_cmdmod.cmod_flags & CMOD_LEGACY)) |
Bram Moolenaar | 575f24b | 2020-08-12 14:21:11 +0200 | [diff] [blame] | 3096 | { |
Bram Moolenaar | ce024c3 | 2021-06-26 13:00:49 +0200 | [diff] [blame] | 3097 | if (checkforcmd(&ea.cmd, "call", 3)) |
| 3098 | { |
| 3099 | if (*ea.cmd == '(') |
| 3100 | // not for "call()" |
| 3101 | ea.cmd = p; |
| 3102 | else |
| 3103 | ea.cmd = skipwhite(ea.cmd); |
| 3104 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3105 | |
Bram Moolenaar | ce024c3 | 2021-06-26 13:00:49 +0200 | [diff] [blame] | 3106 | if (!starts_with_colon) |
| 3107 | { |
| 3108 | int assign; |
Bram Moolenaar | 1cc2a94 | 2020-05-10 19:10:31 +0200 | [diff] [blame] | 3109 | |
Bram Moolenaar | ce024c3 | 2021-06-26 13:00:49 +0200 | [diff] [blame] | 3110 | // Check for assignment after command modifiers. |
| 3111 | assign = may_compile_assignment(&ea, &line, &cctx); |
| 3112 | if (assign == OK) |
| 3113 | goto nextline; |
| 3114 | if (assign == FAIL) |
| 3115 | goto erret; |
| 3116 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3117 | } |
| 3118 | |
| 3119 | /* |
| 3120 | * COMMAND after range |
Bram Moolenaar | 3d48e25 | 2020-07-15 14:15:52 +0200 | [diff] [blame] | 3121 | * 'text'->func() should not be confused with 'a mark |
Bram Moolenaar | c1e6c7b | 2022-02-20 18:26:46 +0000 | [diff] [blame] | 3122 | * 0z1234->func() should not be confused with a zero line number |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 3123 | * "++nr" and "--nr" are eval commands |
Bram Moolenaar | 5ca5cc6 | 2021-08-24 21:56:03 +0200 | [diff] [blame] | 3124 | * in "$ENV->func()" the "$" is not a range |
Bram Moolenaar | 31d9948 | 2022-05-26 22:24:43 +0100 | [diff] [blame] | 3125 | * "123->func()" is a method call |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3126 | */ |
Bram Moolenaar | df069ee | 2020-06-22 23:02:51 +0200 | [diff] [blame] | 3127 | cmd = ea.cmd; |
Bram Moolenaar | b579f6e | 2021-12-04 11:57:00 +0000 | [diff] [blame] | 3128 | if ((*cmd != '$' || starts_with_colon) |
Bram Moolenaar | c1e6c7b | 2022-02-20 18:26:46 +0000 | [diff] [blame] | 3129 | && (starts_with_colon |
| 3130 | || !(*cmd == '\'' |
| 3131 | || (cmd[0] == '0' && cmd[1] == 'z') |
| 3132 | || (cmd[0] != NUL && cmd[0] == cmd[1] |
Bram Moolenaar | 31d9948 | 2022-05-26 22:24:43 +0100 | [diff] [blame] | 3133 | && (*cmd == '+' || *cmd == '-')) |
| 3134 | || number_method(cmd)))) |
Bram Moolenaar | df069ee | 2020-06-22 23:02:51 +0200 | [diff] [blame] | 3135 | { |
Bram Moolenaar | 3bd8de4 | 2020-09-14 16:37:34 +0200 | [diff] [blame] | 3136 | ea.cmd = skip_range(ea.cmd, TRUE, NULL); |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3137 | if (ea.cmd > cmd) |
Bram Moolenaar | 3d48e25 | 2020-07-15 14:15:52 +0200 | [diff] [blame] | 3138 | { |
Bram Moolenaar | b579f6e | 2021-12-04 11:57:00 +0000 | [diff] [blame] | 3139 | if (!starts_with_colon |
| 3140 | && !(local_cmdmod.cmod_flags & CMOD_LEGACY)) |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3141 | { |
Bram Moolenaar | 6e2c2c5 | 2020-12-25 19:25:45 +0100 | [diff] [blame] | 3142 | semsg(_(e_colon_required_before_range_str), cmd); |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3143 | goto erret; |
| 3144 | } |
Bram Moolenaar | ada1d87 | 2021-02-20 08:16:51 +0100 | [diff] [blame] | 3145 | ea.addr_count = 1; |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3146 | if (ends_excmd2(line, ea.cmd)) |
| 3147 | { |
| 3148 | // A range without a command: jump to the line. |
Bram Moolenaar | e4eed8c | 2021-12-01 15:22:56 +0000 | [diff] [blame] | 3149 | generate_EXEC(&cctx, ISN_EXECRANGE, |
Bram Moolenaar | b579f6e | 2021-12-04 11:57:00 +0000 | [diff] [blame] | 3150 | vim_strnsave(cmd, ea.cmd - cmd)); |
Bram Moolenaar | e4eed8c | 2021-12-01 15:22:56 +0000 | [diff] [blame] | 3151 | line = ea.cmd; |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3152 | goto nextline; |
| 3153 | } |
Bram Moolenaar | 3d48e25 | 2020-07-15 14:15:52 +0200 | [diff] [blame] | 3154 | } |
Bram Moolenaar | df069ee | 2020-06-22 23:02:51 +0200 | [diff] [blame] | 3155 | } |
Bram Moolenaar | 47bc9c3 | 2021-07-17 21:24:56 +0200 | [diff] [blame] | 3156 | p = find_ex_command(&ea, NULL, |
| 3157 | starts_with_colon || (local_cmdmod.cmod_flags & CMOD_LEGACY) |
Bram Moolenaar | 77b10ff | 2021-03-14 13:21:35 +0100 | [diff] [blame] | 3158 | ? NULL : item_exists, &cctx); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3159 | |
Bram Moolenaar | d1510ee | 2021-01-04 16:15:58 +0100 | [diff] [blame] | 3160 | if (p == NULL) |
| 3161 | { |
| 3162 | if (cctx.ctx_skip != SKIP_YES) |
Bram Moolenaar | bed34f0 | 2022-01-19 20:48:37 +0000 | [diff] [blame] | 3163 | semsg(_(e_ambiguous_use_of_user_defined_command_str), ea.cmd); |
Bram Moolenaar | d1510ee | 2021-01-04 16:15:58 +0100 | [diff] [blame] | 3164 | goto erret; |
| 3165 | } |
| 3166 | |
Bram Moolenaar | 96cf4ba | 2021-04-24 14:15:41 +0200 | [diff] [blame] | 3167 | // When using ":legacy cmd" always use compile_exec(). |
| 3168 | if (local_cmdmod.cmod_flags & CMOD_LEGACY) |
Bram Moolenaar | 3b1373b | 2021-05-17 00:01:42 +0200 | [diff] [blame] | 3169 | { |
| 3170 | char_u *start = ea.cmd; |
| 3171 | |
Bram Moolenaar | c3cb1c9 | 2021-06-02 16:47:53 +0200 | [diff] [blame] | 3172 | switch (ea.cmdidx) |
| 3173 | { |
| 3174 | case CMD_if: |
| 3175 | case CMD_elseif: |
| 3176 | case CMD_else: |
| 3177 | case CMD_endif: |
| 3178 | case CMD_for: |
| 3179 | case CMD_endfor: |
| 3180 | case CMD_continue: |
| 3181 | case CMD_break: |
| 3182 | case CMD_while: |
| 3183 | case CMD_endwhile: |
| 3184 | case CMD_try: |
| 3185 | case CMD_catch: |
| 3186 | case CMD_finally: |
| 3187 | case CMD_endtry: |
| 3188 | semsg(_(e_cannot_use_legacy_with_command_str), ea.cmd); |
| 3189 | goto erret; |
| 3190 | default: break; |
| 3191 | } |
| 3192 | |
Bram Moolenaar | 3b1373b | 2021-05-17 00:01:42 +0200 | [diff] [blame] | 3193 | // ":legacy return expr" needs to be handled differently. |
| 3194 | if (checkforcmd(&start, "return", 4)) |
| 3195 | ea.cmdidx = CMD_return; |
| 3196 | else |
| 3197 | ea.cmdidx = CMD_legacy; |
| 3198 | } |
Bram Moolenaar | 96cf4ba | 2021-04-24 14:15:41 +0200 | [diff] [blame] | 3199 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3200 | if (p == ea.cmd && ea.cmdidx != CMD_SIZE) |
| 3201 | { |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 3202 | // "eval" is used for "val->func()" and "var" for "var = val", then |
| 3203 | // "p" is equal to "ea.cmd" for a valid command. |
| 3204 | if (ea.cmdidx == CMD_eval || ea.cmdidx == CMD_var) |
| 3205 | ; |
| 3206 | else if (cctx.ctx_skip == SKIP_YES) |
Bram Moolenaar | a259d8d | 2020-01-31 20:10:50 +0100 | [diff] [blame] | 3207 | { |
| 3208 | line += STRLEN(line); |
Bram Moolenaar | f665e97 | 2020-12-05 19:17:16 +0100 | [diff] [blame] | 3209 | goto nextline; |
Bram Moolenaar | a259d8d | 2020-01-31 20:10:50 +0100 | [diff] [blame] | 3210 | } |
Bram Moolenaar | 97f8c10 | 2022-04-02 19:43:57 +0100 | [diff] [blame] | 3211 | else |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3212 | { |
Bram Moolenaar | 52c124d | 2020-12-20 21:43:35 +0100 | [diff] [blame] | 3213 | semsg(_(e_command_not_recognized_str), ea.cmd); |
Bram Moolenaar | 007f9d6 | 2020-07-06 23:04:49 +0200 | [diff] [blame] | 3214 | goto erret; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3215 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3216 | } |
| 3217 | |
Bram Moolenaar | 3988f64 | 2020-08-27 22:43:03 +0200 | [diff] [blame] | 3218 | if (cctx.ctx_had_return |
Bram Moolenaar | a259d8d | 2020-01-31 20:10:50 +0100 | [diff] [blame] | 3219 | && ea.cmdidx != CMD_elseif |
| 3220 | && ea.cmdidx != CMD_else |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3221 | && ea.cmdidx != CMD_endif |
| 3222 | && ea.cmdidx != CMD_endfor |
| 3223 | && ea.cmdidx != CMD_endwhile |
| 3224 | && ea.cmdidx != CMD_catch |
| 3225 | && ea.cmdidx != CMD_finally |
| 3226 | && ea.cmdidx != CMD_endtry) |
| 3227 | { |
Bram Moolenaar | 3988f64 | 2020-08-27 22:43:03 +0200 | [diff] [blame] | 3228 | emsg(_(e_unreachable_code_after_return)); |
| 3229 | goto erret; |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3230 | } |
| 3231 | |
Bram Moolenaar | 0b4c66c | 2020-09-14 21:39:44 +0200 | [diff] [blame] | 3232 | p = skipwhite(p); |
| 3233 | if (ea.cmdidx != CMD_SIZE |
| 3234 | && ea.cmdidx != CMD_write && ea.cmdidx != CMD_read) |
| 3235 | { |
Bram Moolenaar | 9b123d8 | 2020-09-14 22:39:11 +0200 | [diff] [blame] | 3236 | if (ea.cmdidx >= 0) |
| 3237 | ea.argt = excmd_get_argt(ea.cmdidx); |
Bram Moolenaar | 0b4c66c | 2020-09-14 21:39:44 +0200 | [diff] [blame] | 3238 | if ((ea.argt & EX_BANG) && *p == '!') |
| 3239 | { |
| 3240 | ea.forceit = TRUE; |
| 3241 | p = skipwhite(p + 1); |
| 3242 | } |
Bram Moolenaar | 09d9421 | 2022-05-05 15:20:03 +0100 | [diff] [blame] | 3243 | if ((ea.argt & EX_RANGE) == 0 && ea.addr_count > 0) |
| 3244 | { |
| 3245 | emsg(_(e_no_range_allowed)); |
| 3246 | goto erret; |
| 3247 | } |
Bram Moolenaar | 0b4c66c | 2020-09-14 21:39:44 +0200 | [diff] [blame] | 3248 | } |
| 3249 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3250 | switch (ea.cmdidx) |
| 3251 | { |
| 3252 | case CMD_def: |
Bram Moolenaar | 3845352 | 2021-11-28 22:00:12 +0000 | [diff] [blame] | 3253 | case CMD_function: |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 3254 | ea.arg = p; |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 3255 | line = compile_nested_function(&ea, &cctx, &lines_to_free); |
Bram Moolenaar | 04b1269 | 2020-05-04 23:24:44 +0200 | [diff] [blame] | 3256 | break; |
| 3257 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3258 | case CMD_return: |
Bram Moolenaar | 3b1373b | 2021-05-17 00:01:42 +0200 | [diff] [blame] | 3259 | line = compile_return(p, check_return_type, |
| 3260 | local_cmdmod.cmod_flags & CMOD_LEGACY, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3261 | cctx.ctx_had_return = TRUE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3262 | break; |
| 3263 | |
| 3264 | case CMD_let: |
Bram Moolenaar | c58f545 | 2020-10-21 20:58:52 +0200 | [diff] [blame] | 3265 | emsg(_(e_cannot_use_let_in_vim9_script)); |
| 3266 | break; |
Bram Moolenaar | 30fd820 | 2020-09-26 15:09:30 +0200 | [diff] [blame] | 3267 | case CMD_var: |
| 3268 | case CMD_final: |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3269 | case CMD_const: |
Bram Moolenaar | bdc0f1c | 2021-04-24 19:08:24 +0200 | [diff] [blame] | 3270 | case CMD_increment: |
| 3271 | case CMD_decrement: |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3272 | line = compile_assignment(p, &ea, ea.cmdidx, &cctx); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 3273 | if (line == p) |
Bram Moolenaar | 8b716f5 | 2022-02-15 21:17:56 +0000 | [diff] [blame] | 3274 | { |
| 3275 | emsg(_(e_invalid_assignment)); |
Bram Moolenaar | 47a519a | 2020-06-14 23:05:10 +0200 | [diff] [blame] | 3276 | line = NULL; |
Bram Moolenaar | 8b716f5 | 2022-02-15 21:17:56 +0000 | [diff] [blame] | 3277 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3278 | break; |
| 3279 | |
Bram Moolenaar | d72c1bf | 2020-04-19 16:28:59 +0200 | [diff] [blame] | 3280 | case CMD_unlet: |
| 3281 | case CMD_unlockvar: |
| 3282 | case CMD_lockvar: |
| 3283 | line = compile_unletlock(p, &ea, &cctx); |
| 3284 | break; |
| 3285 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3286 | case CMD_import: |
Bram Moolenaar | 4db572e | 2021-07-18 18:21:38 +0200 | [diff] [blame] | 3287 | emsg(_(e_import_can_only_be_used_in_script)); |
| 3288 | line = NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3289 | break; |
| 3290 | |
| 3291 | case CMD_if: |
| 3292 | line = compile_if(p, &cctx); |
| 3293 | break; |
| 3294 | case CMD_elseif: |
| 3295 | line = compile_elseif(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3296 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3297 | break; |
| 3298 | case CMD_else: |
| 3299 | line = compile_else(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3300 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3301 | break; |
| 3302 | case CMD_endif: |
| 3303 | line = compile_endif(p, &cctx); |
| 3304 | break; |
| 3305 | |
| 3306 | case CMD_while: |
| 3307 | line = compile_while(p, &cctx); |
| 3308 | break; |
| 3309 | case CMD_endwhile: |
| 3310 | line = compile_endwhile(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3311 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3312 | break; |
| 3313 | |
| 3314 | case CMD_for: |
| 3315 | line = compile_for(p, &cctx); |
| 3316 | break; |
| 3317 | case CMD_endfor: |
| 3318 | line = compile_endfor(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3319 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3320 | break; |
| 3321 | case CMD_continue: |
| 3322 | line = compile_continue(p, &cctx); |
| 3323 | break; |
| 3324 | case CMD_break: |
| 3325 | line = compile_break(p, &cctx); |
| 3326 | break; |
| 3327 | |
| 3328 | case CMD_try: |
| 3329 | line = compile_try(p, &cctx); |
| 3330 | break; |
| 3331 | case CMD_catch: |
| 3332 | line = compile_catch(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3333 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3334 | break; |
| 3335 | case CMD_finally: |
| 3336 | line = compile_finally(p, &cctx); |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3337 | cctx.ctx_had_return = FALSE; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3338 | break; |
| 3339 | case CMD_endtry: |
| 3340 | line = compile_endtry(p, &cctx); |
| 3341 | break; |
| 3342 | case CMD_throw: |
| 3343 | line = compile_throw(p, &cctx); |
| 3344 | break; |
| 3345 | |
Bram Moolenaar | 007f9d6 | 2020-07-06 23:04:49 +0200 | [diff] [blame] | 3346 | case CMD_eval: |
Bram Moolenaar | c323527 | 2021-07-10 19:42:03 +0200 | [diff] [blame] | 3347 | line = compile_eval(p, &cctx); |
Bram Moolenaar | 007f9d6 | 2020-07-06 23:04:49 +0200 | [diff] [blame] | 3348 | break; |
| 3349 | |
Bram Moolenaar | 1d84f76 | 2022-09-03 21:35:53 +0100 | [diff] [blame] | 3350 | case CMD_defer: |
| 3351 | line = compile_defer(p, &cctx); |
| 3352 | break; |
| 3353 | |
Bram Moolenaar | bdc09a1 | 2022-10-07 14:31:45 +0100 | [diff] [blame] | 3354 | #ifdef HAS_MESSAGE_WINDOW |
| 3355 | case CMD_echowindow: |
| 3356 | { |
| 3357 | long cmd_count = get_cmd_count(line, &ea); |
Bram Moolenaar | 2eae3d2 | 2022-10-07 15:09:27 +0100 | [diff] [blame] | 3358 | if (cmd_count < 0) |
| 3359 | line = NULL; |
| 3360 | else |
Bram Moolenaar | bdc09a1 | 2022-10-07 14:31:45 +0100 | [diff] [blame] | 3361 | line = compile_mult_expr(p, ea.cmdidx, |
| 3362 | cmd_count, &cctx); |
| 3363 | } |
| 3364 | break; |
| 3365 | #endif |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3366 | case CMD_echo: |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3367 | case CMD_echon: |
Bram Moolenaar | 7de6262 | 2021-08-07 15:05:47 +0200 | [diff] [blame] | 3368 | case CMD_echoconsole: |
Bram Moolenaar | 7d7ad7b | 2022-09-01 16:00:53 +0100 | [diff] [blame] | 3369 | case CMD_echoerr: |
| 3370 | case CMD_echomsg: |
Bram Moolenaar | 7d7ad7b | 2022-09-01 16:00:53 +0100 | [diff] [blame] | 3371 | case CMD_execute: |
Bram Moolenaar | bdc09a1 | 2022-10-07 14:31:45 +0100 | [diff] [blame] | 3372 | line = compile_mult_expr(p, ea.cmdidx, 0, &cctx); |
Bram Moolenaar | ad39c09 | 2020-02-26 18:23:43 +0100 | [diff] [blame] | 3373 | break; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3374 | |
Bram Moolenaar | c3516f7 | 2020-09-08 22:45:35 +0200 | [diff] [blame] | 3375 | case CMD_put: |
| 3376 | ea.cmd = cmd; |
| 3377 | line = compile_put(p, &ea, &cctx); |
| 3378 | break; |
| 3379 | |
Bram Moolenaar | 4c13721 | 2021-04-19 16:48:48 +0200 | [diff] [blame] | 3380 | case CMD_substitute: |
Bram Moolenaar | 7b82926 | 2021-10-13 15:04:34 +0100 | [diff] [blame] | 3381 | if (check_global_and_subst(ea.cmd, p) == FAIL) |
| 3382 | goto erret; |
Bram Moolenaar | 4c13721 | 2021-04-19 16:48:48 +0200 | [diff] [blame] | 3383 | if (cctx.ctx_skip == SKIP_YES) |
| 3384 | line = (char_u *)""; |
| 3385 | else |
| 3386 | { |
| 3387 | ea.arg = p; |
| 3388 | line = compile_substitute(line, &ea, &cctx); |
| 3389 | } |
| 3390 | break; |
| 3391 | |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 3392 | case CMD_redir: |
| 3393 | ea.arg = p; |
| 3394 | line = compile_redir(line, &ea, &cctx); |
| 3395 | break; |
| 3396 | |
Bram Moolenaar | 5f7d4c0 | 2021-05-05 21:31:39 +0200 | [diff] [blame] | 3397 | case CMD_cexpr: |
| 3398 | case CMD_lexpr: |
| 3399 | case CMD_caddexpr: |
| 3400 | case CMD_laddexpr: |
| 3401 | case CMD_cgetexpr: |
| 3402 | case CMD_lgetexpr: |
Bram Moolenaar | b7c9781 | 2021-05-05 22:51:39 +0200 | [diff] [blame] | 3403 | #ifdef FEAT_QUICKFIX |
Bram Moolenaar | 5f7d4c0 | 2021-05-05 21:31:39 +0200 | [diff] [blame] | 3404 | ea.arg = p; |
| 3405 | line = compile_cexpr(line, &ea, &cctx); |
Bram Moolenaar | b7c9781 | 2021-05-05 22:51:39 +0200 | [diff] [blame] | 3406 | #else |
| 3407 | ex_ni(&ea); |
| 3408 | line = NULL; |
| 3409 | #endif |
Bram Moolenaar | 5f7d4c0 | 2021-05-05 21:31:39 +0200 | [diff] [blame] | 3410 | break; |
| 3411 | |
Bram Moolenaar | ae61649 | 2020-07-28 20:07:27 +0200 | [diff] [blame] | 3412 | case CMD_append: |
| 3413 | case CMD_change: |
| 3414 | case CMD_insert: |
Bram Moolenaar | 10b9421 | 2021-02-19 21:42:57 +0100 | [diff] [blame] | 3415 | case CMD_k: |
Bram Moolenaar | f5a4801 | 2020-08-01 17:00:03 +0200 | [diff] [blame] | 3416 | case CMD_t: |
Bram Moolenaar | ae61649 | 2020-07-28 20:07:27 +0200 | [diff] [blame] | 3417 | case CMD_xit: |
| 3418 | not_in_vim9(&ea); |
| 3419 | goto erret; |
| 3420 | |
Bram Moolenaar | 002262f | 2020-07-08 17:47:57 +0200 | [diff] [blame] | 3421 | case CMD_SIZE: |
Bram Moolenaar | 3988f64 | 2020-08-27 22:43:03 +0200 | [diff] [blame] | 3422 | if (cctx.ctx_skip != SKIP_YES) |
| 3423 | { |
| 3424 | semsg(_(e_invalid_command_str), ea.cmd); |
| 3425 | goto erret; |
| 3426 | } |
| 3427 | // We don't check for a next command here. |
| 3428 | line = (char_u *)""; |
| 3429 | break; |
Bram Moolenaar | 002262f | 2020-07-08 17:47:57 +0200 | [diff] [blame] | 3430 | |
Bram Moolenaar | 2067733 | 2021-06-06 17:02:53 +0200 | [diff] [blame] | 3431 | case CMD_lua: |
| 3432 | case CMD_mzscheme: |
| 3433 | case CMD_perl: |
| 3434 | case CMD_py3: |
| 3435 | case CMD_python3: |
| 3436 | case CMD_python: |
| 3437 | case CMD_pythonx: |
| 3438 | case CMD_ruby: |
| 3439 | case CMD_tcl: |
| 3440 | ea.arg = p; |
| 3441 | if (vim_strchr(line, '\n') == NULL) |
Bram Moolenaar | 5163fcc | 2020-08-27 23:37:09 +0200 | [diff] [blame] | 3442 | line = compile_exec(line, &ea, &cctx); |
Bram Moolenaar | 2067733 | 2021-06-06 17:02:53 +0200 | [diff] [blame] | 3443 | else |
| 3444 | // heredoc lines have been concatenated with NL |
| 3445 | // characters in get_function_body() |
| 3446 | line = compile_script(line, &cctx); |
| 3447 | break; |
| 3448 | |
Bram Moolenaar | 107f732 | 2022-02-06 17:30:41 +0000 | [diff] [blame] | 3449 | case CMD_vim9script: |
Bram Moolenaar | 8cbf249 | 2022-02-06 20:28:13 +0000 | [diff] [blame] | 3450 | if (cctx.ctx_skip != SKIP_YES) |
| 3451 | { |
| 3452 | emsg(_(e_vim9script_can_only_be_used_in_script)); |
| 3453 | goto erret; |
| 3454 | } |
| 3455 | line = (char_u *)""; |
| 3456 | break; |
Bram Moolenaar | 107f732 | 2022-02-06 17:30:41 +0000 | [diff] [blame] | 3457 | |
Bram Moolenaar | 7b82926 | 2021-10-13 15:04:34 +0100 | [diff] [blame] | 3458 | case CMD_global: |
| 3459 | if (check_global_and_subst(ea.cmd, p) == FAIL) |
| 3460 | goto erret; |
| 3461 | // FALLTHROUGH |
Bram Moolenaar | 2067733 | 2021-06-06 17:02:53 +0200 | [diff] [blame] | 3462 | default: |
| 3463 | // Not recognized, execute with do_cmdline_cmd(). |
| 3464 | ea.arg = p; |
| 3465 | line = compile_exec(line, &ea, &cctx); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3466 | break; |
| 3467 | } |
Bram Moolenaar | 5d72ce6 | 2020-08-20 23:04:06 +0200 | [diff] [blame] | 3468 | nextline: |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3469 | if (line == NULL) |
| 3470 | goto erret; |
Bram Moolenaar | 585fea7 | 2020-04-02 22:33:21 +0200 | [diff] [blame] | 3471 | line = skipwhite(line); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3472 | |
Bram Moolenaar | f4c6e1e | 2020-10-23 18:02:32 +0200 | [diff] [blame] | 3473 | // Undo any command modifiers. |
Bram Moolenaar | 02194d2 | 2020-10-24 23:08:38 +0200 | [diff] [blame] | 3474 | generate_undo_cmdmods(&cctx); |
Bram Moolenaar | f4c6e1e | 2020-10-23 18:02:32 +0200 | [diff] [blame] | 3475 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3476 | if (cctx.ctx_type_stack.ga_len < 0) |
| 3477 | { |
| 3478 | iemsg("Type stack underflow"); |
| 3479 | goto erret; |
| 3480 | } |
| 3481 | } |
| 3482 | |
| 3483 | if (cctx.ctx_scope != NULL) |
| 3484 | { |
| 3485 | if (cctx.ctx_scope->se_type == IF_SCOPE) |
Bram Moolenaar | 1a99222 | 2021-12-31 17:25:48 +0000 | [diff] [blame] | 3486 | emsg(_(e_missing_endif)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3487 | else if (cctx.ctx_scope->se_type == WHILE_SCOPE) |
Bram Moolenaar | 1a99222 | 2021-12-31 17:25:48 +0000 | [diff] [blame] | 3488 | emsg(_(e_missing_endwhile)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3489 | else if (cctx.ctx_scope->se_type == FOR_SCOPE) |
Bram Moolenaar | 1a99222 | 2021-12-31 17:25:48 +0000 | [diff] [blame] | 3490 | emsg(_(e_missing_endfor)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3491 | else |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 3492 | emsg(_(e_missing_rcurly)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3493 | goto erret; |
| 3494 | } |
| 3495 | |
Bram Moolenaar | efd8855 | 2020-06-18 20:50:10 +0200 | [diff] [blame] | 3496 | if (!cctx.ctx_had_return) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3497 | { |
Bram Moolenaar | e6174fd | 2021-06-12 18:30:56 +0200 | [diff] [blame] | 3498 | if (ufunc->uf_ret_type->tt_type == VAR_UNKNOWN) |
| 3499 | ufunc->uf_ret_type = &t_void; |
| 3500 | else if (ufunc->uf_ret_type->tt_type != VAR_VOID) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3501 | { |
Bram Moolenaar | 451c2e3 | 2020-08-15 16:33:28 +0200 | [diff] [blame] | 3502 | emsg(_(e_missing_return_statement)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3503 | goto erret; |
| 3504 | } |
| 3505 | |
Bram Moolenaar | f57b43c | 2021-06-15 22:13:27 +0200 | [diff] [blame] | 3506 | // Return void if there is no return at the end. |
| 3507 | generate_instr(&cctx, ISN_RETURN_VOID); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3508 | } |
| 3509 | |
Bram Moolenaar | 599410c | 2021-04-10 14:03:43 +0200 | [diff] [blame] | 3510 | // When compiled with ":silent!" and there was an error don't consider the |
| 3511 | // function compiled. |
| 3512 | if (emsg_silent == 0 || did_emsg_silent == did_emsg_silent_before) |
Bram Moolenaar | 05afcee | 2020-03-31 23:32:31 +0200 | [diff] [blame] | 3513 | { |
| 3514 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 3515 | + ufunc->uf_dfunc_idx; |
| 3516 | dfunc->df_deleted = FALSE; |
Bram Moolenaar | 4aab88d | 2020-12-24 21:56:41 +0100 | [diff] [blame] | 3517 | dfunc->df_script_seq = current_sctx.sc_seq; |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 3518 | #ifdef FEAT_PROFILE |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 3519 | if (cctx.ctx_compile_type == CT_PROFILE) |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3520 | { |
| 3521 | dfunc->df_instr_prof = instr->ga_data; |
| 3522 | dfunc->df_instr_prof_count = instr->ga_len; |
| 3523 | } |
| 3524 | else |
Bram Moolenaar | f002a41 | 2021-01-24 13:34:18 +0100 | [diff] [blame] | 3525 | #endif |
Bram Moolenaar | e99d422 | 2021-06-13 14:01:26 +0200 | [diff] [blame] | 3526 | if (cctx.ctx_compile_type == CT_DEBUG) |
| 3527 | { |
| 3528 | dfunc->df_instr_debug = instr->ga_data; |
| 3529 | dfunc->df_instr_debug_count = instr->ga_len; |
| 3530 | } |
| 3531 | else |
Bram Moolenaar | b204990 | 2021-01-24 12:53:53 +0100 | [diff] [blame] | 3532 | { |
| 3533 | dfunc->df_instr = instr->ga_data; |
| 3534 | dfunc->df_instr_count = instr->ga_len; |
| 3535 | } |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 3536 | dfunc->df_varcount = dfunc->df_var_names.ga_len; |
Bram Moolenaar | 148ce7a | 2020-09-23 21:57:23 +0200 | [diff] [blame] | 3537 | dfunc->df_has_closure = cctx.ctx_has_closure; |
Bram Moolenaar | b46c083 | 2022-09-15 17:19:37 +0100 | [diff] [blame] | 3538 | |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 3539 | if (cctx.ctx_outer_used) |
Bram Moolenaar | b46c083 | 2022-09-15 17:19:37 +0100 | [diff] [blame] | 3540 | { |
Bram Moolenaar | c8cd2b3 | 2020-05-01 19:29:08 +0200 | [diff] [blame] | 3541 | ufunc->uf_flags |= FC_CLOSURE; |
Bram Moolenaar | b46c083 | 2022-09-15 17:19:37 +0100 | [diff] [blame] | 3542 | if (outer_cctx != NULL) |
| 3543 | ++outer_cctx->ctx_closure_count; |
| 3544 | } |
| 3545 | |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 3546 | ufunc->uf_def_status = UF_COMPILED; |
Bram Moolenaar | 05afcee | 2020-03-31 23:32:31 +0200 | [diff] [blame] | 3547 | } |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3548 | |
| 3549 | ret = OK; |
| 3550 | |
| 3551 | erret: |
Bram Moolenaar | 599410c | 2021-04-10 14:03:43 +0200 | [diff] [blame] | 3552 | if (ufunc->uf_def_status == UF_COMPILING) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3553 | { |
Bram Moolenaar | 05afcee | 2020-03-31 23:32:31 +0200 | [diff] [blame] | 3554 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 3555 | + ufunc->uf_dfunc_idx; |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3556 | |
Bram Moolenaar | caf1a2f | 2021-06-15 11:27:21 +0200 | [diff] [blame] | 3557 | // Compiling aborted, free the generated instructions. |
Bram Moolenaar | 8238f08 | 2021-04-20 21:10:48 +0200 | [diff] [blame] | 3558 | clear_instr_ga(instr); |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3559 | VIM_CLEAR(dfunc->df_name); |
Bram Moolenaar | caf1a2f | 2021-06-15 11:27:21 +0200 | [diff] [blame] | 3560 | ga_clear_strings(&dfunc->df_var_names); |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3561 | |
Bram Moolenaar | 6c4bfe4 | 2020-07-23 18:26:30 +0200 | [diff] [blame] | 3562 | // If using the last entry in the table and it was added above, we |
| 3563 | // might as well remove it. |
| 3564 | if (!dfunc->df_deleted && new_def_function |
Bram Moolenaar | 45a1508 | 2020-05-25 00:28:33 +0200 | [diff] [blame] | 3565 | && ufunc->uf_dfunc_idx == def_functions.ga_len - 1) |
Bram Moolenaar | 6c4bfe4 | 2020-07-23 18:26:30 +0200 | [diff] [blame] | 3566 | { |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3567 | --def_functions.ga_len; |
Bram Moolenaar | 6c4bfe4 | 2020-07-23 18:26:30 +0200 | [diff] [blame] | 3568 | ufunc->uf_dfunc_idx = 0; |
| 3569 | } |
Bram Moolenaar | 701cc6c | 2021-04-10 13:33:48 +0200 | [diff] [blame] | 3570 | ufunc->uf_def_status = UF_COMPILE_ERROR; |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3571 | |
Bram Moolenaar | 3cca299 | 2020-04-02 22:57:36 +0200 | [diff] [blame] | 3572 | while (cctx.ctx_scope != NULL) |
| 3573 | drop_scope(&cctx); |
| 3574 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3575 | if (errormsg != NULL) |
| 3576 | emsg(errormsg); |
Bram Moolenaar | d66960b | 2020-10-30 20:46:26 +0100 | [diff] [blame] | 3577 | else if (did_emsg == did_emsg_before) |
Bram Moolenaar | e13bdec | 2020-10-16 23:16:47 +0200 | [diff] [blame] | 3578 | emsg(_(e_compiling_def_function_failed)); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3579 | } |
| 3580 | |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 3581 | if (cctx.ctx_redir_lhs.lhs_name != NULL) |
| 3582 | { |
| 3583 | if (ret == OK) |
| 3584 | { |
| 3585 | emsg(_(e_missing_redir_end)); |
| 3586 | ret = FAIL; |
| 3587 | } |
| 3588 | vim_free(cctx.ctx_redir_lhs.lhs_name); |
Bram Moolenaar | 753bcf8 | 2021-04-21 14:24:24 +0200 | [diff] [blame] | 3589 | vim_free(cctx.ctx_redir_lhs.lhs_whole); |
Bram Moolenaar | 2d1c57e | 2021-04-19 20:50:03 +0200 | [diff] [blame] | 3590 | } |
| 3591 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3592 | current_sctx = save_current_sctx; |
Bram Moolenaar | f4e8cdd | 2020-10-12 22:07:13 +0200 | [diff] [blame] | 3593 | estack_compiling = save_estack_compiling; |
Bram Moolenaar | dc4c230 | 2021-04-25 13:54:42 +0200 | [diff] [blame] | 3594 | cmdmod.cmod_flags = save_cmod_flags; |
Bram Moolenaar | 25e0f58 | 2020-05-25 22:36:50 +0200 | [diff] [blame] | 3595 | if (do_estack_push) |
| 3596 | estack_pop(); |
| 3597 | |
Bram Moolenaar | 9f1a39a | 2022-01-08 15:39:39 +0000 | [diff] [blame] | 3598 | ga_clear_strings(&lines_to_free); |
Bram Moolenaar | b84a381 | 2020-05-01 15:44:29 +0200 | [diff] [blame] | 3599 | free_locals(&cctx); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3600 | ga_clear(&cctx.ctx_type_stack); |
Bram Moolenaar | 822ba24 | 2020-05-24 23:00:18 +0200 | [diff] [blame] | 3601 | return ret; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3602 | } |
| 3603 | |
Bram Moolenaar | 6ff71d8 | 2020-05-24 23:45:24 +0200 | [diff] [blame] | 3604 | void |
| 3605 | set_function_type(ufunc_T *ufunc) |
| 3606 | { |
| 3607 | int varargs = ufunc->uf_va_name != NULL; |
| 3608 | int argcount = ufunc->uf_args.ga_len; |
| 3609 | |
| 3610 | // Create a type for the function, with the return type and any |
| 3611 | // argument types. |
| 3612 | // A vararg is included in uf_args.ga_len but not in uf_arg_types. |
| 3613 | // The type is included in "tt_args". |
| 3614 | if (argcount > 0 || varargs) |
| 3615 | { |
Bram Moolenaar | 18062fc | 2021-03-05 21:35:47 +0100 | [diff] [blame] | 3616 | if (ufunc->uf_type_list.ga_itemsize == 0) |
| 3617 | ga_init2(&ufunc->uf_type_list, sizeof(type_T *), 10); |
Bram Moolenaar | 6ff71d8 | 2020-05-24 23:45:24 +0200 | [diff] [blame] | 3618 | ufunc->uf_func_type = alloc_func_type(ufunc->uf_ret_type, |
| 3619 | argcount, &ufunc->uf_type_list); |
| 3620 | // Add argument types to the function type. |
| 3621 | if (func_type_add_arg_types(ufunc->uf_func_type, |
| 3622 | argcount + varargs, |
| 3623 | &ufunc->uf_type_list) == FAIL) |
| 3624 | return; |
| 3625 | ufunc->uf_func_type->tt_argcount = argcount + varargs; |
| 3626 | ufunc->uf_func_type->tt_min_argcount = |
| 3627 | argcount - ufunc->uf_def_args.ga_len; |
| 3628 | if (ufunc->uf_arg_types == NULL) |
| 3629 | { |
| 3630 | int i; |
| 3631 | |
| 3632 | // lambda does not have argument types. |
| 3633 | for (i = 0; i < argcount; ++i) |
| 3634 | ufunc->uf_func_type->tt_args[i] = &t_any; |
| 3635 | } |
| 3636 | else |
| 3637 | mch_memmove(ufunc->uf_func_type->tt_args, |
| 3638 | ufunc->uf_arg_types, sizeof(type_T *) * argcount); |
| 3639 | if (varargs) |
| 3640 | { |
| 3641 | ufunc->uf_func_type->tt_args[argcount] = |
Bram Moolenaar | 2a38908 | 2021-04-09 20:24:31 +0200 | [diff] [blame] | 3642 | ufunc->uf_va_type == NULL ? &t_list_any : ufunc->uf_va_type; |
Bram Moolenaar | 6ff71d8 | 2020-05-24 23:45:24 +0200 | [diff] [blame] | 3643 | ufunc->uf_func_type->tt_flags = TTFLAG_VARARGS; |
| 3644 | } |
| 3645 | } |
| 3646 | else |
| 3647 | // No arguments, can use a predefined type. |
| 3648 | ufunc->uf_func_type = get_func_type(ufunc->uf_ret_type, |
| 3649 | argcount, &ufunc->uf_type_list); |
| 3650 | } |
| 3651 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3652 | /* |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3653 | * Free all instructions for "dfunc" except df_name. |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3654 | */ |
| 3655 | static void |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 3656 | delete_def_function_contents(dfunc_T *dfunc, int mark_deleted) |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3657 | { |
| 3658 | int idx; |
| 3659 | |
| 3660 | ga_clear(&dfunc->df_def_args_isn); |
Bram Moolenaar | b69c6fb | 2021-06-14 20:40:37 +0200 | [diff] [blame] | 3661 | ga_clear_strings(&dfunc->df_var_names); |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3662 | |
| 3663 | if (dfunc->df_instr != NULL) |
| 3664 | { |
| 3665 | for (idx = 0; idx < dfunc->df_instr_count; ++idx) |
| 3666 | delete_instr(dfunc->df_instr + idx); |
| 3667 | VIM_CLEAR(dfunc->df_instr); |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 3668 | dfunc->df_instr = NULL; |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3669 | } |
Bram Moolenaar | c2dec4c | 2021-06-13 15:39:00 +0200 | [diff] [blame] | 3670 | if (dfunc->df_instr_debug != NULL) |
| 3671 | { |
| 3672 | for (idx = 0; idx < dfunc->df_instr_debug_count; ++idx) |
| 3673 | delete_instr(dfunc->df_instr_debug + idx); |
| 3674 | VIM_CLEAR(dfunc->df_instr_debug); |
| 3675 | dfunc->df_instr_debug = NULL; |
| 3676 | } |
Bram Moolenaar | c05fe07 | 2021-01-24 21:30:48 +0100 | [diff] [blame] | 3677 | #ifdef FEAT_PROFILE |
| 3678 | if (dfunc->df_instr_prof != NULL) |
| 3679 | { |
| 3680 | for (idx = 0; idx < dfunc->df_instr_prof_count; ++idx) |
| 3681 | delete_instr(dfunc->df_instr_prof + idx); |
| 3682 | VIM_CLEAR(dfunc->df_instr_prof); |
| 3683 | dfunc->df_instr_prof = NULL; |
| 3684 | } |
| 3685 | #endif |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3686 | |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 3687 | if (mark_deleted) |
| 3688 | dfunc->df_deleted = TRUE; |
| 3689 | if (dfunc->df_ufunc != NULL) |
| 3690 | dfunc->df_ufunc->uf_def_status = UF_NOT_COMPILED; |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3691 | } |
| 3692 | |
| 3693 | /* |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 3694 | * When a user function is deleted, clear the contents of any associated def |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3695 | * function, unless another user function still uses it. |
| 3696 | * The position in def_functions can be re-used. |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3697 | */ |
| 3698 | void |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3699 | unlink_def_function(ufunc_T *ufunc) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3700 | { |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 3701 | if (ufunc->uf_dfunc_idx > 0) |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3702 | { |
| 3703 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 3704 | + ufunc->uf_dfunc_idx; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3705 | |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3706 | if (--dfunc->df_refcount <= 0) |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 3707 | delete_def_function_contents(dfunc, TRUE); |
Bram Moolenaar | 0cb5bcf | 2020-06-20 18:19:09 +0200 | [diff] [blame] | 3708 | ufunc->uf_def_status = UF_NOT_COMPILED; |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3709 | ufunc->uf_dfunc_idx = 0; |
| 3710 | if (dfunc->df_ufunc == ufunc) |
| 3711 | dfunc->df_ufunc = NULL; |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3712 | } |
| 3713 | } |
| 3714 | |
Bram Moolenaar | fdeab65 | 2020-09-19 15:16:50 +0200 | [diff] [blame] | 3715 | /* |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3716 | * Used when a user function refers to an existing dfunc. |
Bram Moolenaar | fdeab65 | 2020-09-19 15:16:50 +0200 | [diff] [blame] | 3717 | */ |
| 3718 | void |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3719 | link_def_function(ufunc_T *ufunc) |
Bram Moolenaar | fdeab65 | 2020-09-19 15:16:50 +0200 | [diff] [blame] | 3720 | { |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3721 | if (ufunc->uf_dfunc_idx > 0) |
| 3722 | { |
| 3723 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) |
| 3724 | + ufunc->uf_dfunc_idx; |
Bram Moolenaar | fdeab65 | 2020-09-19 15:16:50 +0200 | [diff] [blame] | 3725 | |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3726 | ++dfunc->df_refcount; |
| 3727 | } |
Bram Moolenaar | fdeab65 | 2020-09-19 15:16:50 +0200 | [diff] [blame] | 3728 | } |
| 3729 | |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3730 | #if defined(EXITFREE) || defined(PROTO) |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3731 | /* |
| 3732 | * Free all functions defined with ":def". |
| 3733 | */ |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3734 | void |
| 3735 | free_def_functions(void) |
| 3736 | { |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3737 | int idx; |
| 3738 | |
| 3739 | for (idx = 0; idx < def_functions.ga_len; ++idx) |
| 3740 | { |
| 3741 | dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) + idx; |
| 3742 | |
Bram Moolenaar | cdc40c4 | 2020-12-26 17:43:08 +0100 | [diff] [blame] | 3743 | delete_def_function_contents(dfunc, TRUE); |
Bram Moolenaar | cd45ed0 | 2020-12-22 17:35:54 +0100 | [diff] [blame] | 3744 | vim_free(dfunc->df_name); |
Bram Moolenaar | 20431c9 | 2020-03-20 18:39:46 +0100 | [diff] [blame] | 3745 | } |
| 3746 | |
| 3747 | ga_clear(&def_functions); |
Bram Moolenaar | 8a7d654 | 2020-01-26 15:56:19 +0100 | [diff] [blame] | 3748 | } |
| 3749 | #endif |
| 3750 | |
| 3751 | |
| 3752 | #endif // FEAT_EVAL |