vim: src/vim9cmds.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	c1f730c2b51e
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	11 * vim9cmds.c: Dealing with commands of a compiled function
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	14 #define USING_FLOAT_STUFF
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	15 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	16
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	17 #if defined(FEAT_EVAL) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	18
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	19 // When not generating protos this is included in proto.h
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	20 #ifdef PROTO
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	21 # include "vim9.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	22 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	23
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	24 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	25 * Get the index of the current instruction.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	26 * This compensates for a preceding ISN_CMDMOD and ISN_PROF_START.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	27 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	28 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	29 current_instr_idx(cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	30 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	31 garray_T *instr = &cctx->ctx_instr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	32 int idx = instr->ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	33
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	34 while (idx > 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	35 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	36 if (cctx->ctx_has_cmdmod && ((isn_T *)instr->ga_data)[idx - 1]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	37 .isn_type == ISN_CMDMOD)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	38 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	39 --idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	40 continue;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	41 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	42 #ifdef FEAT_PROFILE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	43 if (((isn_T *)instr->ga_data)[idx - 1].isn_type == ISN_PROF_START)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	44 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	45 --idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	46 continue;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	47 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	48 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	49 if (((isn_T *)instr->ga_data)[idx - 1].isn_type == ISN_DEBUG)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	50 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	51 --idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	52 continue;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	53 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	54 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	55 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	56 return idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	57 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	58 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	59 * Remove local variables above "new_top".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	60 * Do this by clearing the name. If "keep" is TRUE do not reset the length, a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	61 * closure may still need location of the variable.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	62 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	63 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	64 unwind_locals(cctx_T *cctx, int new_top, int keep)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	65 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	66 if (cctx->ctx_locals.ga_len > new_top)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	67 for (int idx = new_top; idx < cctx->ctx_locals.ga_len; ++idx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	68 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	69 lvar_T lvar = ((lvar_T )cctx->ctx_locals.ga_data) + idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	70 VIM_CLEAR(lvar->lv_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	71 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	72 if (!keep)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	73 cctx->ctx_locals.ga_len = new_top;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	74 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	75
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	76 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	77 * Free all local variables.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	78 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	79 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	80 free_locals(cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	81 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	82 unwind_locals(cctx, 0, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	83 ga_clear(&cctx->ctx_locals);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	84 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	85
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	86
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	87 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	88 * Check if "name" can be "unlet".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	89 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	90 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	91 check_vim9_unlet(char_u *name)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	92 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	93 if (*name == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	94 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	95 semsg(_(e_argument_required_for_str), "unlet");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	96 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	97 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	98
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	99 if (name[1] != ':' \|\| vim_strchr((char_u )"gwtb", name) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	100 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	101 // "unlet s:var" is allowed in legacy script.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	102 if (*name == 's' && !script_is_vim9())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	103 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	104 semsg(_(e_cannot_unlet_str), name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	105 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	106 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	107 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	108 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	109
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	110 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	111 * Callback passed to ex_unletlock().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	112 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	113 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	114 compile_unlet(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	115 lval_T *lvp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	116 char_u *name_end,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	117 exarg_T *eap,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	118 int deep UNUSED,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	119 void *coookie)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	120 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	121 cctx_T *cctx = coookie;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	122 char_u *p = lvp->ll_name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	123 int cc = *name_end;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	124 int ret = OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	125
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	126 if (cctx->ctx_skip == SKIP_YES)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	127 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	128
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	129 *name_end = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	130 if (*p == '$')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	131 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	132 // :unlet $ENV_VAR
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	133 ret = generate_UNLET(cctx, ISN_UNLETENV, p + 1, eap->forceit);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	134 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	135 else if (vim_strchr(p, '.') != NULL \|\| vim_strchr(p, '[') != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	136 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	137 lhs_T lhs;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	138
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	139 // This is similar to assigning: lookup the list/dict, compile the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	140 // idx/key. Then instead of storing the value unlet the item.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	141 // unlet {list}[idx]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	142 // unlet {dict}[key] dict.key
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	143 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	144 // Figure out the LHS type and other properties.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	145 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	146 ret = compile_lhs(p, &lhs, CMD_unlet, FALSE, FALSE, 0, cctx);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	147
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	148 // Use the info in "lhs" to unlet the item at the index in the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	149 // list or dict.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	150 if (ret == OK)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	151 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	152 if (!lhs.lhs_has_index)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	153 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	154 semsg(_(e_cannot_unlet_imported_item_str), p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	155 ret = FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	156 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	157 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	158 ret = compile_assign_unlet(p, &lhs, FALSE, &t_void, cctx);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	159 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	160
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	161 vim_free(lhs.lhs_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	162 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	163 else if (check_vim9_unlet(p) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	164 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	165 ret = FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	166 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	167 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	168 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	169 // Normal name. Only supports g:, w:, t: and b: namespaces.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	170 ret = generate_UNLET(cctx, ISN_UNLET, p, eap->forceit);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	171 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	172
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	173 *name_end = cc;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	174 return ret;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	175 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	176
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	177 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	178 * Callback passed to ex_unletlock().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	179 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	180 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	181 compile_lock_unlock(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	182 lval_T *lvp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	183 char_u *name_end,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	184 exarg_T *eap,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	185 int deep,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	186 void *coookie)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	187 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	188 cctx_T *cctx = coookie;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	189 int cc = *name_end;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	190 char_u *p = lvp->ll_name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	191 int ret = OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	192 size_t len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	193 char_u *buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	194 isntype_T isn = ISN_EXEC;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	195 char *cmd = eap->cmdidx == CMD_lockvar ? "lockvar" : "unlockvar";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	196
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	197 if (cctx->ctx_skip == SKIP_YES)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	198 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	199
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	200 if (*p == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	201 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	202 semsg(_(e_argument_required_for_str), cmd);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	203 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	204 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	205
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	206 // Cannot use :lockvar and :unlockvar on local variables.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	207 if (p[1] != ':')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	208 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	209 char_u *end = find_name_end(p, NULL, NULL, FNE_CHECK_START);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	210
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	211 if (lookup_local(p, end - p, NULL, cctx) == OK)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	212 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	213 char_u *s = p;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	214
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	215 if (end != '.' && end != '[')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	216 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	217 emsg(_(e_cannot_lock_unlock_local_variable));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	218 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	219 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	220
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	221 // For "d.member" put the local variable on the stack, it will be
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	222 // passed to ex_lockvar() indirectly.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	223 if (compile_load(&s, end, cctx, FALSE, FALSE) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	224 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	225 isn = ISN_LOCKUNLOCK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	226 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	227 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	228
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	229 // Checking is done at runtime.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	230 *name_end = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	231 len = name_end - p + 20;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	232 buf = alloc(len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	233 if (buf == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	234 ret = FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	235 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	236 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	237 if (deep < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	238 vim_snprintf((char *)buf, len, "%s! %s", cmd, p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	239 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	240 vim_snprintf((char *)buf, len, "%s %d %s", cmd, deep, p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	241 ret = generate_EXEC_copy(cctx, isn, buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	242
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	243 vim_free(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	244 *name_end = cc;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	245 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	246 return ret;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	247 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	248
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	249 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	250 * compile "unlet var", "lock var" and "unlock var"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	251 * "arg" points to "var".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	252 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	253 char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	254 compile_unletlock(char_u arg, exarg_T eap, cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	255 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	256 int deep = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	257 char_u *p = arg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	258
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	259 if (eap->cmdidx != CMD_unlet)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	260 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	261 if (eap->forceit)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	262 deep = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	263 else if (vim_isdigit(*p))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	264 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	265 deep = getdigits(&p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	266 p = skipwhite(p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	267 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	268 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	269 deep = 2;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	270 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	271
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	272 ex_unletlock(eap, p, deep, GLV_NO_AUTOLOAD \| GLV_COMPILING,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	273 eap->cmdidx == CMD_unlet ? compile_unlet : compile_lock_unlock,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	274 cctx);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	275 return eap->nextcmd == NULL ? (char_u *)"" : eap->nextcmd;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	276 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	277
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	278 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	279 * Generate a jump to the ":endif"/":endfor"/":endwhile"/":finally"/":endtry".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	280 * "funcref_idx" is used for JUMP_WHILE_FALSE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	281 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	282 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	283 compile_jump_to_end(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	284 endlabel_T **el,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	285 jumpwhen_T when,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	286 int funcref_idx,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	287 cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	288 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	289 garray_T *instr = &cctx->ctx_instr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	290 endlabel_T *endlabel = ALLOC_CLEAR_ONE(endlabel_T);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	291
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	292 if (endlabel == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	293 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	294 endlabel->el_next = *el;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	295 *el = endlabel;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	296 endlabel->el_end_label = instr->ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	297
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	298 if (when == JUMP_WHILE_FALSE)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	299 generate_WHILE(cctx, funcref_idx);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	300 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	301 generate_JUMP(cctx, when, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	302 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	303 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	304
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	305 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	306 compile_fill_jump_to_end(endlabel_T *el, int jump_where, cctx_T cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	307 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	308 garray_T *instr = &cctx->ctx_instr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	309
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	310 while (*el != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	311 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	312 endlabel_T cur = (el);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	313 isn_T *isn;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	314
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	315 isn = ((isn_T *)instr->ga_data) + cur->el_end_label;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	316 isn->isn_arg.jump.jump_where = jump_where;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	317 *el = cur->el_next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	318 vim_free(cur);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	319 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	320 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	321
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	322 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	323 compile_free_jump_to_end(endlabel_T **el)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	324 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	325 while (*el != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	326 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	327 endlabel_T cur = (el);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	328
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	329 *el = cur->el_next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	330 vim_free(cur);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	331 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	332 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	333
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	334 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	335 * Create a new scope and set up the generic items.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	336 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	337 static scope_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	338 new_scope(cctx_T *cctx, scopetype_T type)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	339 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	340 scope_T *scope = ALLOC_CLEAR_ONE(scope_T);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	341
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	342 if (scope == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	343 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	344 scope->se_outer = cctx->ctx_scope;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	345 cctx->ctx_scope = scope;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	346 scope->se_type = type;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	347 scope->se_local_count = cctx->ctx_locals.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	348 if (scope->se_outer != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	349 scope->se_loop_depth = scope->se_outer->se_loop_depth;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	350 return scope;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	351 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	352
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	353 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	354 * Free the current scope and go back to the outer scope.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	355 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	356 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	357 drop_scope(cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	358 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	359 scope_T *scope = cctx->ctx_scope;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	360
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	361 if (scope == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	362 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	363 iemsg("calling drop_scope() without a scope");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	364 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	365 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	366 cctx->ctx_scope = scope->se_outer;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	367 switch (scope->se_type)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	368 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	369 case IF_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	370 compile_free_jump_to_end(&scope->se_u.se_if.is_end_label); break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	371 case FOR_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	372 compile_free_jump_to_end(&scope->se_u.se_for.fs_end_label); break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	373 case WHILE_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	374 compile_free_jump_to_end(&scope->se_u.se_while.ws_end_label); break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	375 case TRY_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	376 compile_free_jump_to_end(&scope->se_u.se_try.ts_end_label); break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	377 case NO_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	378 case BLOCK_SCOPE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	379 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	380 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	381 vim_free(scope);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	382 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	383
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	384 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	385 misplaced_cmdmod(cctx_T *cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	386 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	387 garray_T *instr = &cctx->ctx_instr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	388
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	389 if (cctx->ctx_has_cmdmod
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	390 && ((isn_T *)instr->ga_data)[instr->ga_len - 1].isn_type
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	391 == ISN_CMDMOD)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	392 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	393 emsg(_(e_misplaced_command_modifier));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	394 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	395 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	396 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	397 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	398
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	399 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	400 * compile "if expr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	401 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	402 * "if expr" Produces instructions:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	403 * EVAL expr Push result of "expr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	404 * JUMP_IF_FALSE end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	405 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	406 * end:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	407 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	408 * "if expr \| else" Produces instructions:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	409 * EVAL expr Push result of "expr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	410 * JUMP_IF_FALSE else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	411 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	412 * JUMP_ALWAYS end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	413 * else:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	414 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	415 * end:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	416 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	417 * "if expr1 \| elseif expr2 \| else" Produces instructions:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	418 * EVAL expr Push result of "expr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	419 * JUMP_IF_FALSE elseif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	420 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	421 * JUMP_ALWAYS end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	422 * elseif:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	423 * EVAL expr Push result of "expr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	424 * JUMP_IF_FALSE else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	425 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	426 * JUMP_ALWAYS end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	427 * else:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	428 * ... body ...
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	429 * end:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	430 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	431 char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	432 compile_if(char_u arg, cctx_T cctx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	433 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	434 char_u *p = arg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	435 garray_T *instr = &cctx->ctx_instr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	436 int instr_count = instr->ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	437 scope_T *scope;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	438 skip_T skip_save = cctx->ctx_skip;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	439 ppconst_T ppconst;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	440
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	441 CLEAR_FIELD(ppconst);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	442 if (compile_expr1(&p, cctx, &ppconst) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	443 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	444 clear_ppconst(&ppconst);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	445 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	446 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	447 if (!ends_excmd2(arg, skipwhite(p)))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	448 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	449 semsg(_(e_trailing_characters_str), p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	450 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	451 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	452 if (cctx->ctx_skip == SKIP_YES)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	453 clear_ppconst(&ppconst);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	454 else if (instr->ga_len == instr_count && ppconst.pp_used == 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	455 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	456 int error = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	457 int v;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	458
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	459 // The expression results in a constant.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	460 v = tv_get_bool_chk(&ppconst.pp_tv[0], &error);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	461 clear_ppconst(&ppconst);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	462 if (error)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	463 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	464 cctx->ctx_skip = v ? SKIP_NOT : SKIP_YES;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	465 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	466 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	467 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	468 // Not a constant, generate instructions for the expression.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	469 cctx->ctx_skip = SKIP_UNKNOWN;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	470 if (generate_ppconst(cctx, &ppconst) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	471 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	472 if (bool_on_stack(cctx) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	473 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	474 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	475
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	476 // CMDMOD_REV must come before the jump
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	477 generate_undo_cmdmods(cctx);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	478
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	479 scope = new_scope(cctx, IF_SCOPE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	480 if (scope == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	481 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	482 scope->se_skip_save = skip_save;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	483 // "is_had_return" will be reset if any block does not end in :return
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	484 scope->se_u.se_if.is_had_return = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	485
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	486 if (cctx->ctx_skip == SKIP_UNKNOWN)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	487 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	488 // "where" is set when ":elseif", "else" or ":endif" is found
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	489 scope->se_u.se_if.is_if_label = instr->ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	490 generate_JUMP(cctx, JUMP_IF_FALSE, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	491 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	492 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	493 scope->se_u.se_if.is_if_label = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	494
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	495 #ifdef FEAT_PROFILE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	496 if (cctx->ctx_compile_type == CT_PROFILE && cctx->ctx_skip == SKIP_YES
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	497 && skip_save != SKIP_YES)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	498 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	499 // generated a profile start, need to generate a profile end, since it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32452 diff changeset	500 // won't be done after returning

32669

448aef880252 normalize line endings