summaryrefslogtreecommitdiff
path: root/uvim/src/eval.c
diff options
context:
space:
mode:
authorMehmet Samet Duman <yongdohyun@projecttick.org>2026-04-03 22:21:25 +0300
committerMehmet Samet Duman <yongdohyun@projecttick.org>2026-04-04 00:23:03 +0300
commit2eae5db069dc171f74cd863487655f6a88e5384d (patch)
tree2d9d05e09978a2a44acbfbb8d651f240df3ca052 /uvim/src/eval.c
parent473d922faed49241a5d29d9e37dc4819cd512006 (diff)
downloadProject-Tick-2eae5db069dc171f74cd863487655f6a88e5384d.tar.gz
Project-Tick-2eae5db069dc171f74cd863487655f6a88e5384d.zip
NOISSUE rebrand vim to MNV's not Vim
Signed-off-by: Mehmet Samet Duman <yongdohyun@projecttick.org>
Diffstat (limited to 'uvim/src/eval.c')
-rw-r--r--uvim/src/eval.c448
1 files changed, 224 insertions, 224 deletions
diff --git a/uvim/src/eval.c b/uvim/src/eval.c
index e8b9cc8303..566cdbddae 100644
--- a/uvim/src/eval.c
+++ b/uvim/src/eval.c
@@ -1,10 +1,10 @@
/* vi:set ts=8 sts=4 sw=4 noet:
*
- * VIM - Vi IMproved by Bram Moolenaar
+ * MNV - MNV is not Vim by Bram Moolenaar
*
- * Do ":help uganda" in Vim to read copying and usage conditions.
- * Do ":help credits" in Vim to see a list of people who contributed.
- * See README.txt for an overview of the Vim source code.
+ * Do ":help uganda" in MNV to read copying and usage conditions.
+ * Do ":help credits" in MNV to see a list of people who contributed.
+ * See README.txt for an overview of the MNV source code.
*/
/*
@@ -12,7 +12,7 @@
*/
#define USING_FLOAT_STUFF
-#include "vim.h"
+#include "mnv.h"
#if defined(FEAT_EVAL)
@@ -46,7 +46,7 @@ num_divide(varnumber_T n1, varnumber_T n2, int *failed)
if (n2 == 0)
{
- if (in_vim9script())
+ if (in_mnv9script())
{
emsg(_(e_divide_by_zero));
if (failed != NULL)
@@ -78,7 +78,7 @@ num_divide(varnumber_T n1, varnumber_T n2, int *failed)
varnumber_T
num_modulus(varnumber_T n1, varnumber_T n2, int *failed)
{
- if (n2 == 0 && in_vim9script())
+ if (n2 == 0 && in_mnv9script())
{
emsg(_(e_divide_by_zero));
if (failed != NULL)
@@ -167,7 +167,7 @@ eval_to_bool(
*error = FALSE;
if (!skip)
{
- if (in_vim9script())
+ if (in_mnv9script())
retval = tv_get_bool_chk(&tv, error);
else
retval = (tv_get_number_chk(&tv, error) != 0);
@@ -319,7 +319,7 @@ eval_expr_func(
if (expr->v_type == VAR_FUNC)
s = expr->vval.v_string;
else
- s = tv_get_string_buf_chk_strict(expr, buf, in_vim9script());
+ s = tv_get_string_buf_chk_strict(expr, buf, in_mnv9script());
if (s == NULL || *s == NUL)
return FAIL;
@@ -343,7 +343,7 @@ eval_expr_string(
char_u *s;
char_u buf[NUMBUFLEN];
- s = tv_get_string_buf_chk_strict(expr, buf, in_vim9script());
+ s = tv_get_string_buf_chk_strict(expr, buf, in_mnv9script());
if (s == NULL)
return FAIL;
@@ -429,7 +429,7 @@ eval_to_string_skip(
retval = NULL;
else
{
- retval = vim_strsave(tv_get_string(&tv));
+ retval = mnv_strsave(tv_get_string(&tv));
clear_tv(&tv);
}
if (skip)
@@ -464,7 +464,7 @@ free_eval_tofree_later(evalarg_T *evalarg)
[evalarg->eval_tofree_ga.ga_len++]
= evalarg->eval_tofree;
else
- vim_free(evalarg->eval_tofree);
+ mnv_free(evalarg->eval_tofree);
}
/*
@@ -485,7 +485,7 @@ clear_evalarg(evalarg_T *evalarg, exarg_T *eap)
// We may need to keep the original command line, e.g. for
// ":let" it has the variable names. But we may also need
// the new one, "nextcmd" points into it. Keep both.
- vim_free(eap->cmdline_tofree);
+ mnv_free(eap->cmdline_tofree);
eap->cmdline_tofree = *eap->cmdlinep;
if (evalarg->eval_using_cmdline && etga->ga_len > 0)
@@ -494,18 +494,18 @@ clear_evalarg(evalarg_T *evalarg, exarg_T *eap)
// need to keep it around.
--etga->ga_len;
*eap->cmdlinep = ((char_u **)etga->ga_data)[etga->ga_len];
- vim_free(evalarg->eval_tofree);
+ mnv_free(evalarg->eval_tofree);
}
else
*eap->cmdlinep = evalarg->eval_tofree;
}
else
- vim_free(evalarg->eval_tofree);
+ mnv_free(evalarg->eval_tofree);
evalarg->eval_tofree = NULL;
}
ga_clear_strings(etga);
- VIM_CLEAR(evalarg->eval_tofree_lambda);
+ MNV_CLEAR(evalarg->eval_tofree_lambda);
}
/*
@@ -523,7 +523,7 @@ skip_expr(char_u **pp, evalarg_T *evalarg)
/*
* Skip over an expression at "*arg".
- * If in Vim9 script and line breaks are encountered, the lines are
+ * If in MNV9 script and line breaks are encountered, the lines are
* concatenated. "evalarg->eval_tofree" will be set accordingly.
* "arg" is advanced to just after the expression.
* "start" is set to the start of the expression, "end" to just after the end.
@@ -539,14 +539,14 @@ skip_expr_concatenate(
{
typval_T rettv;
int res;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
garray_T *gap = evalarg == NULL ? NULL : &evalarg->eval_ga;
garray_T *freegap = evalarg == NULL ? NULL : &evalarg->eval_freega;
int save_flags = evalarg == NULL ? 0 : evalarg->eval_flags;
int evaluate = evalarg == NULL
? FALSE : (evalarg->eval_flags & EVAL_EVALUATE);
- if (vim9script && evaluate
+ if (mnv9script && evaluate
&& (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL))
{
ga_init2(gap, sizeof(char_u *), 10);
@@ -566,7 +566,7 @@ skip_expr_concatenate(
if (evalarg != NULL)
evalarg->eval_flags = save_flags;
- if (vim9script && evaluate
+ if (mnv9script && evaluate
&& (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL))
{
if (evalarg->eval_ga.ga_len == 1)
@@ -610,7 +610,7 @@ skip_expr_concatenate(
if (p == NULL)
return FAIL;
*start = p;
- vim_free(evalarg->eval_tofree_lambda);
+ mnv_free(evalarg->eval_tofree_lambda);
evalarg->eval_tofree_lambda = p;
// Compute "end" relative to the end.
*end = *start + STRLEN(*start) - endoff;
@@ -671,10 +671,10 @@ typval2string(typval_T *tv, int join_list)
retval = tv2string(tv, &tofree, numbuf, 0);
// Make a copy if we have a value but it's not in allocated memory.
if (retval != NULL && tofree == NULL)
- retval = vim_strsave(retval);
+ retval = mnv_strsave(retval);
}
else
- retval = vim_strsave(tv_get_string(tv));
+ retval = mnv_strsave(tv_get_string(tv));
return retval;
}
@@ -726,7 +726,7 @@ eval_to_string(
/*
* Call eval_to_string() without using current local variables and using
* textlock. When "use_sandbox" is TRUE use the sandbox.
- * Use legacy Vim script syntax.
+ * Use legacy MNV script syntax.
*/
char_u *
eval_to_string_safe(
@@ -818,7 +818,7 @@ eval_expr_ext(char_u *arg, exarg_T *eap, int use_simple_function)
r = eval0(arg, tv, eap, &evalarg);
if (r == FAIL)
- VIM_CLEAR(tv);
+ MNV_CLEAR(tv);
}
clear_evalarg(&evalarg, eap);
@@ -888,7 +888,7 @@ deref_function_name(
}
else
{
- name = vim_strsave(partial_name(ref.vval.v_partial));
+ name = mnv_strsave(partial_name(ref.vval.v_partial));
*tofree = name;
}
}
@@ -907,13 +907,13 @@ theend:
}
/*
- * Call some Vim script function and return the result in "*rettv".
+ * Call some MNV script function and return the result in "*rettv".
* Uses argv[0] to argv[argc - 1] for the function arguments. argv[argc]
* should have type VAR_UNKNOWN.
* Returns OK or FAIL.
*/
int
-call_vim_function(
+call_mnv_function(
char_u *func,
int argc,
typval_T *argv,
@@ -936,7 +936,7 @@ call_vim_function(
// ignore errors for an undefined name. But we do want errors when an
// autoload script has errors. Guess that when there is a dot in the name
// showing errors is the right choice.
- ignore_errors = vim_strchr(func, '.') == NULL;
+ ignore_errors = mnv_strchr(func, '.') == NULL;
arg = func;
if (ignore_errors)
++emsg_off;
@@ -950,13 +950,13 @@ call_vim_function(
if (ret == FAIL)
clear_tv(rettv);
- vim_free(tofree);
+ mnv_free(tofree);
return ret;
}
/*
- * Call Vim script function "func" and return the result as a string.
+ * Call MNV script function "func" and return the result as a string.
* Uses "argv[0]" to "argv[argc - 1]" for the function arguments. "argv[argc]"
* should have type VAR_UNKNOWN.
* Returns NULL when calling the function fails.
@@ -970,16 +970,16 @@ call_func_retstr(
typval_T rettv;
char_u *retval;
- if (call_vim_function(func, argc, argv, &rettv) == FAIL)
+ if (call_mnv_function(func, argc, argv, &rettv) == FAIL)
return NULL;
- retval = vim_strsave(tv_get_string(&rettv));
+ retval = mnv_strsave(tv_get_string(&rettv));
clear_tv(&rettv);
return retval;
}
/*
- * Call Vim script function "func" and return the result as a List.
+ * Call MNV script function "func" and return the result as a List.
* Uses "argv" and "argc" as call_func_retstr().
* Returns NULL when there is something wrong.
* Gives an error when the returned value is not a list.
@@ -992,7 +992,7 @@ call_func_retlist(
{
typval_T rettv;
- if (call_vim_function(func, argc, argv, &rettv) == FAIL)
+ if (call_mnv_function(func, argc, argv, &rettv) == FAIL)
return NULL;
if (rettv.v_type != VAR_LIST)
@@ -1049,7 +1049,7 @@ eval_foldexpr(win_T *wp, int *cp)
// If the result is a string, check if there is a non-digit before
// the number.
s = tv.vval.v_string;
- if (*s != NUL && !VIM_ISDIGIT(*s) && *s != '-')
+ if (*s != NUL && !MNV_ISDIGIT(*s) && *s != '-')
*cp = *s++;
retval = atol((char *)s);
}
@@ -1193,10 +1193,10 @@ get_lval_check_access(
char *msg = NULL;
switch (om->ocm_access)
{
- case VIM_ACCESS_PRIVATE:
+ case MNV_ACCESS_PRIVATE:
msg = e_cannot_access_protected_variable_str;
break;
- case VIM_ACCESS_READ:
+ case MNV_ACCESS_READ:
// If [idx] or .key following, read only OK.
if (*p == '[' || *p == '.')
break;
@@ -1214,7 +1214,7 @@ get_lval_check_access(
msg = e_variable_is_not_writable_str;
}
break;
- case VIM_ACCESS_ALL:
+ case MNV_ACCESS_ALL:
break;
}
if (msg != NULL)
@@ -1395,7 +1395,7 @@ get_lval_dict_item(
if (lp->ll_di == NULL)
{
// Can't add "v:" or "a:" variable.
- if (lp->ll_dict == get_vimvar_dict()
+ if (lp->ll_dict == get_mnvvar_dict()
|| &lp->ll_dict->dv_hashtab == get_funccal_args_ht())
{
semsg(_(e_illegal_variable_name_str), name);
@@ -1410,9 +1410,9 @@ get_lval_dict_item(
return GLV_FAIL;
}
if (len == -1)
- lp->ll_newkey = vim_strsave(key);
+ lp->ll_newkey = mnv_strsave(key);
else
- lp->ll_newkey = vim_strnsave(key, len);
+ lp->ll_newkey = mnv_strnsave(key, len);
if (lp->ll_newkey == NULL)
p = NULL;
@@ -1907,19 +1907,19 @@ get_lval_subscript(
vartype_name(v_type));
#endif
- if (current_script_is_vim9() && lp->ll_valtype == NULL
+ if (current_script_is_mnv9() && lp->ll_valtype == NULL
&& v != NULL
&& lp->ll_tv == &v->di_tv
&& ht != NULL && ht == get_script_local_ht())
{
svar_T *sv = find_typval_in_script(lp->ll_tv, 0, TRUE);
- // Vim9 script local variable: get the type
+ // MNV9 script local variable: get the type
if (sv != NULL)
{
lp->ll_valtype = sv->sv_type;
#ifdef LOG_LOCKVAR
- ch_log(NULL, "LKVAR: ... loop: vim9 assign type: %s",
+ ch_log(NULL, "LKVAR: ... loop: mnv9 assign type: %s",
vartype_name(lp->ll_valtype->tt_type));
#endif
}
@@ -2110,7 +2110,7 @@ get_lval(
hashtab_T *ht = NULL;
int quiet = flags & GLV_QUIET;
int writing = 0;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
class_T *cl_exec = NULL; // class that is executing, or NULL.
#ifdef LOG_LOCKVAR
@@ -2137,11 +2137,11 @@ get_lval(
return lp->ll_name_end;
}
- // Cannot use "s:var" at the Vim9 script level. "s: type" is OK.
- if (vim9script && at_script_level()
- && name[0] == 's' && name[1] == ':' && !VIM_ISWHITE(name[2]))
+ // Cannot use "s:var" at the MNV9 script level. "s: type" is OK.
+ if (mnv9script && at_script_level()
+ && name[0] == 's' && name[1] == ':' && !MNV_ISWHITE(name[2]))
{
- semsg(_(e_cannot_use_s_colon_in_vim9_script_str), name);
+ semsg(_(e_cannot_use_s_colon_in_mnv9_script_str), name);
return NULL;
}
@@ -2151,7 +2151,7 @@ get_lval(
if (expr_start != NULL)
{
// Don't expand the name when we already know there is an error.
- if (unlet && !VIM_ISWHITE(*p) && !ends_excmd(*p)
+ if (unlet && !MNV_ISWHITE(*p) && !ends_excmd(*p)
&& *p != '[' && *p != '.')
{
semsg(_(e_trailing_characters_str), p);
@@ -2177,7 +2177,7 @@ get_lval(
{
lp->ll_name = name;
- if (vim9script)
+ if (mnv9script)
{
// "a: type" is declaring variable "a" with a type, not "a:".
// However, "g:[key]" is indexing a dictionary.
@@ -2195,7 +2195,7 @@ get_lval(
semsg(_(e_cannot_use_type_with_this_variable_str), name);
return NULL;
}
- if (VIM_ISWHITE(*p))
+ if (MNV_ISWHITE(*p))
{
semsg(_(e_no_white_space_allowed_before_colon_str), p);
return NULL;
@@ -2210,7 +2210,7 @@ get_lval(
semsg(_(e_using_type_not_in_script_context_str), p);
return NULL;
}
- if (vim9script && (flags & GLV_NO_DECL) &&
+ if (mnv9script && (flags & GLV_NO_DECL) &&
!(flags & GLV_FOR_LOOP))
{
// Using a type and not in a "var" declaration.
@@ -2239,7 +2239,7 @@ get_lval(
// In legacy script, when a local variable and import exists with this name,
// prioritize local variable over imports to avoid conflicts.
int var_exists = FALSE;
- if (!vim9script)
+ if (!mnv9script)
{
cc = *p;
*p = NUL;
@@ -2274,9 +2274,9 @@ get_lval(
return p;
}
- if (vim9script && lval_root != NULL)
+ if (mnv9script && lval_root != NULL)
cl_exec = lval_root->lr_cl_exec;
- if (vim9script && lval_root != NULL && lval_root->lr_tv != NULL)
+ if (mnv9script && lval_root != NULL && lval_root->lr_tv != NULL)
{
// using local variable
lp->ll_tv = lval_root->lr_tv;
@@ -2298,7 +2298,7 @@ get_lval(
lp->ll_tv = &v->di_tv;
}
- if (vim9script && (flags & GLV_NO_DECL) == 0)
+ if (mnv9script && (flags & GLV_NO_DECL) == 0)
{
if (!quiet)
semsg(_(e_variable_already_declared_str), lp->ll_name);
@@ -2310,11 +2310,11 @@ get_lval(
if (p == NULL)
return NULL;
- if (vim9script && lp->ll_valtype != NULL && rettv != NULL)
+ if (mnv9script && lp->ll_valtype != NULL && rettv != NULL)
{
where_T where = WHERE_INIT;
- // In a Vim9 script, do type check and make sure the variable is
+ // In a MNV9 script, do type check and make sure the variable is
// writable.
if (check_typval_type(lp->ll_valtype, rettv, where) == FAIL)
return NULL;
@@ -2330,8 +2330,8 @@ get_lval(
void
clear_lval(lval_T *lp)
{
- vim_free(lp->ll_exp_name);
- vim_free(lp->ll_newkey);
+ mnv_free(lp->ll_exp_name);
+ mnv_free(lp->ll_newkey);
clear_type_list(&lp->ll_type_list);
}
@@ -2358,7 +2358,7 @@ set_var_lval(
{
cc = *endp;
*endp = NUL;
- if (in_vim9script() && check_reserved_name(lp->ll_name, FALSE) == FAIL)
+ if (in_mnv9script() && check_reserved_name(lp->ll_name, FALSE) == FAIL)
return;
if (lp->ll_blob != NULL)
@@ -2474,7 +2474,7 @@ set_var_lval(
// If the lval is a List and the type of the list is not yet set,
// then set the item type from the declared type of the variable.
- if (in_vim9script() && rettv->v_type == VAR_LIST
+ if (in_mnv9script() && rettv->v_type == VAR_LIST
&& rettv->vval.v_list != NULL
&& rettv->vval.v_list->lv_type == NULL)
{
@@ -2501,7 +2501,7 @@ set_var_lval(
return;
if (dict_add(lp->ll_tv->vval.v_dict, di) == FAIL)
{
- vim_free(di);
+ mnv_free(di);
return;
}
lp->ll_tv = &di->di_tv;
@@ -2651,7 +2651,7 @@ grow_string_tv(typval_T *tv1, char_u *s2)
size_t len1 = STRLEN(tv1->vval.v_string);
size_t len2 = STRLEN(s2);
- char_u *p = vim_realloc(tv1->vval.v_string, len1 + len2 + 1);
+ char_u *p = mnv_realloc(tv1->vval.v_string, len1 + len2 + 1);
if (p == NULL)
return FAIL;
@@ -2700,7 +2700,7 @@ tv_op_nr_or_string(typval_T *tv1, typval_T *tv2, char_u *op)
if (tv2->v_type == VAR_LIST)
return FAIL;
- if (vim_strchr((char_u *)"+-*/%", *op) != NULL)
+ if (mnv_strchr((char_u *)"+-*/%", *op) != NULL)
return tv_op_number(tv1, tv2, op);
return tv_op_string(tv1, tv2, op);
@@ -2832,9 +2832,9 @@ eval_for_line(
expr = skipwhite_and_linebreak(var_list_end, evalarg);
if (expr[0] != 'i' || expr[1] != 'n'
- || !(expr[2] == NUL || VIM_ISWHITE(expr[2])))
+ || !(expr[2] == NUL || MNV_ISWHITE(expr[2])))
{
- if (in_vim9script() && *expr == ':' && expr != var_list_end)
+ if (in_mnv9script() && *expr == ':' && expr != var_list_end)
semsg(_(e_no_white_space_allowed_before_colon_str), expr);
else
emsg(_(e_missing_in_after_for));
@@ -2905,7 +2905,7 @@ eval_for_line(
fi->fi_string = tv.vval.v_string;
tv.vval.v_string = NULL;
if (fi->fi_string == NULL)
- fi->fi_string = vim_strsave((char_u *)"");
+ fi->fi_string = mnv_strsave((char_u *)"");
}
else
{
@@ -2945,7 +2945,7 @@ next_for_item(void *fi_void, char_u *arg)
{
forinfo_T *fi = (forinfo_T *)fi_void;
int result;
- int flag = ASSIGN_FOR_LOOP | (in_vim9script()
+ int flag = ASSIGN_FOR_LOOP | (in_mnv9script()
? (ASSIGN_FINAL
// first round: error if variable exists
| (fi->fi_bi == 0 ? 0 : ASSIGN_DECL)
@@ -2953,7 +2953,7 @@ next_for_item(void *fi_void, char_u *arg)
| ASSIGN_UPDATE_BLOCK_ID)
: 0);
listitem_T *item;
- int skip_assign = in_vim9script() && arg[0] == '_'
+ int skip_assign = in_mnv9script() && arg[0] == '_'
&& !eval_isnamec(arg[1]);
if (fi->fi_blob != NULL)
@@ -2982,7 +2982,7 @@ next_for_item(void *fi_void, char_u *arg)
return FALSE;
tv.v_type = VAR_STRING;
tv.v_lock = VAR_FIXED;
- tv.vval.v_string = vim_strnsave(fi->fi_string + fi->fi_byte_idx, len);
+ tv.vval.v_string = mnv_strnsave(fi->fi_string + fi->fi_byte_idx, len);
fi->fi_byte_idx += len;
++fi->fi_bi;
if (skip_assign)
@@ -2990,7 +2990,7 @@ next_for_item(void *fi_void, char_u *arg)
else
result = ex_let_vars(arg, &tv, TRUE, fi->fi_semicolon,
fi->fi_varcount, flag, NULL) == OK;
- vim_free(tv.vval.v_string);
+ mnv_free(tv.vval.v_string);
return result;
}
@@ -3046,8 +3046,8 @@ free_for_info(void *fi_void)
else if (fi->fi_tuple != NULL)
tuple_unref(fi->fi_tuple);
else
- vim_free(fi->fi_string);
- vim_free(fi);
+ mnv_free(fi->fi_string);
+ mnv_free(fi);
}
void
@@ -3064,14 +3064,14 @@ set_context_for_expression(
|| cmdidx == CMD_const || cmdidx == CMD_final)
{
xp->xp_context = EXPAND_USER_VARS;
- if (vim_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL)
+ if (mnv_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL)
{
// ":let var1 var2 ...": find last space.
for (p = arg + STRLEN(arg); p >= arg; )
{
xp->xp_pattern = p;
MB_PTR_BACK(arg, p);
- if (VIM_ISWHITE(*p))
+ if (MNV_ISWHITE(*p))
break;
}
return;
@@ -3080,7 +3080,7 @@ set_context_for_expression(
else
xp->xp_context = cmdidx == CMD_call ? EXPAND_FUNCTIONS
: EXPAND_EXPRESSION;
- while ((xp->xp_pattern = vim_strpbrk(arg,
+ while ((xp->xp_pattern = mnv_strpbrk(arg,
(char_u *)"\"'+-*/%.=!?~|&$([<>,#")) != NULL)
{
c = *xp->xp_pattern;
@@ -3118,7 +3118,7 @@ set_context_for_expression(
}
else if ((c == '<' || c == '#')
&& xp->xp_context == EXPAND_FUNCTIONS
- && vim_strchr(xp->xp_pattern, '(') == NULL)
+ && mnv_strchr(xp->xp_pattern, '(') == NULL)
{
// Function name can start with "<SNR>" and contain '#'.
break;
@@ -3199,12 +3199,12 @@ pattern_match(char_u *pat, char_u *text, int ic)
// avoid 'l' flag in 'cpoptions'
save_cpo = p_cpo;
p_cpo = empty_option;
- regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
+ regmatch.regprog = mnv_regcomp(pat, RE_MAGIC + RE_STRING);
if (regmatch.regprog != NULL)
{
regmatch.rm_ic = ic;
- matches = vim_regexec_nl(&regmatch, text, (colnr_T)0);
- vim_regfree(regmatch.regprog);
+ matches = mnv_regexec_nl(&regmatch, text, (colnr_T)0);
+ mnv_regfree(regmatch.regprog);
}
p_cpo = save_cpo;
return matches;
@@ -3239,11 +3239,11 @@ eval_func(
// If "s" is the name of a variable of type VAR_FUNC
// use its contents.
s = deref_func_name(s, &len, &partial,
- in_vim9script() ? &type : NULL, !evaluate, FALSE, &found_var);
+ in_mnv9script() ? &type : NULL, !evaluate, FALSE, &found_var);
// Need to make a copy, in case evaluating the arguments makes
// the name invalid.
- s = vim_strsave(s);
+ s = mnv_strsave(s);
if (s == NULL || (evaluate && *s == NUL))
ret = FAIL;
else
@@ -3269,7 +3269,7 @@ eval_func(
funcexe.fe_cctx = evalarg->eval_cctx;
ret = get_func_tv(s, len, rettv, arg, evalarg, &funcexe);
}
- vim_free(s);
+ mnv_free(s);
// If evaluate is FALSE rettv->v_type was not set in
// get_func_tv, but it's needed in handle_subscript() to parse
@@ -3306,9 +3306,9 @@ newline_skip_comments(char_u *arg)
if (*p == NUL)
break;
- if (vim9_comment_start(p))
+ if (mnv9_comment_start(p))
{
- char_u *nl = vim_strchr(p, NL);
+ char_u *nl = mnv_strchr(p, NL);
if (nl == NULL)
break;
@@ -3324,7 +3324,7 @@ newline_skip_comments(char_u *arg)
/*
* Get the next line source line without advancing. But do skip over comment
* lines.
- * Only called for Vim9 script.
+ * Only called for MNV9 script.
*/
static char_u *
getline_peek_skip_comments(evalarg_T *evalarg)
@@ -3338,7 +3338,7 @@ getline_peek_skip_comments(evalarg_T *evalarg)
if (next == NULL)
break;
p = skipwhite(next);
- if (*p != NUL && !vim9_comment_start(p))
+ if (*p != NUL && !mnv9_comment_start(p))
return next;
if (eval_next_line(NULL, evalarg) == NULL)
break;
@@ -3347,7 +3347,7 @@ getline_peek_skip_comments(evalarg_T *evalarg)
}
/*
- * If inside Vim9 script, "arg" points to the end of a line (ignoring a #
+ * If inside MNV9 script, "arg" points to the end of a line (ignoring a #
* comment) and there is a next line, return the next line (skipping blanks)
* and set "getnext".
* Otherwise return the next non-white at or after "arg" and set "getnext" to
@@ -3360,12 +3360,12 @@ eval_next_non_blank(char_u *arg, evalarg_T *evalarg, int *getnext)
char_u *p = skipwhite(arg);
*getnext = FALSE;
- if (in_vim9script()
+ if (in_mnv9script()
&& evalarg != NULL
&& (evalarg->eval_cookie != NULL || evalarg->eval_cctx != NULL
|| *p == NL)
&& (*p == NUL || *p == NL
- || (vim9_comment_start(p) && VIM_ISWHITE(p[-1]))))
+ || (mnv9_comment_start(p) && MNV_ISWHITE(p[-1]))))
{
char_u *next;
@@ -3387,7 +3387,7 @@ eval_next_non_blank(char_u *arg, evalarg_T *evalarg, int *getnext)
/*
* To be called after eval_next_non_blank() sets "getnext" to TRUE.
- * Only called for Vim9 script.
+ * Only called for MNV9 script.
*
* If "arg" is not NULL, then the caller should assign the return value to
* "arg".
@@ -3423,10 +3423,10 @@ eval_next_line(char_u *arg, evalarg_T *evalarg)
// Going to concatenate the lines after parsing. For an empty or
// comment line use an empty string.
- if (*p == NUL || vim9_comment_start(p))
+ if (*p == NUL || mnv9_comment_start(p))
{
- vim_free(line);
- line = vim_strsave((char_u *)"");
+ mnv_free(line);
+ line = mnv_strsave((char_u *)"");
}
((char_u **)gap->ga_data)[gap->ga_len] = line;
@@ -3558,13 +3558,13 @@ eval0_retarg(
expr_end = p;
p = skipwhite(p);
- // In Vim9 script a command block is not split at NL characters for
+ // In MNV9 script a command block is not split at NL characters for
// commands using an expression argument. Skip over a '#' comment to
// check for a following NL. Require white space before the '#'.
- if (in_vim9script() && p > expr_end && retarg == NULL)
+ if (in_mnv9script() && p > expr_end && retarg == NULL)
while (*p == '#')
{
- char_u *nl = vim_strchr(p, NL);
+ char_u *nl = mnv_strchr(p, NL);
if (nl == NULL)
break;
@@ -3591,7 +3591,7 @@ eval0_retarg(
if (!aborting()
&& did_emsg == did_emsg_before
&& called_emsg == called_emsg_before
- && (!in_vim9script() || !vim9_bad_comment(p)))
+ && (!in_mnv9script() || !mnv9_bad_comment(p)))
{
if (end_error)
semsg(_(e_trailing_characters_str), p);
@@ -3653,7 +3653,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
evalarg_T local_evalarg;
int orig_flags;
int evaluate;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
if (evalarg == NULL)
{
@@ -3667,7 +3667,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg_used);
else
{
- if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
+ if (evaluate && mnv9script && !MNV_ISWHITE(p[-1]))
{
error_white_both(p, op_falsy ? 2 : 1);
clear_tv(rettv);
@@ -3691,7 +3691,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
}
result = tv2bool(rettv);
}
- else if (vim9script)
+ else if (mnv9script)
result = tv_get_bool_chk(rettv, &error);
else if (tv_get_number_chk(rettv, &error) != 0)
result = TRUE;
@@ -3706,7 +3706,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*/
if (op_falsy)
++*arg;
- if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[1]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL((*arg)[1]))
{
error_white_both(*arg - (op_falsy ? 1 : 0), op_falsy ? 2 : 1);
clear_tv(rettv);
@@ -3741,7 +3741,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg_used);
else
{
- if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
+ if (evaluate && mnv9script && !MNV_ISWHITE(p[-1]))
{
error_white_both(p, 1);
clear_tv(rettv);
@@ -3754,7 +3754,7 @@ eval1(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
/*
* Get the third variable. Recursive!
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[1]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL((*arg)[1]))
{
error_white_both(*arg, 1);
clear_tv(rettv);
@@ -3818,7 +3818,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
long result = FALSE;
typval_T var2;
int error = FALSE;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
if (evalarg == NULL)
{
@@ -3829,7 +3829,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
evaluate = orig_flags & EVAL_EVALUATE;
if (evaluate)
{
- if (vim9script)
+ if (mnv9script)
result = tv_get_bool_chk(rettv, &error);
else if (tv_get_number_chk(rettv, &error) != 0)
result = TRUE;
@@ -3847,7 +3847,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg_used);
else
{
- if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
+ if (evaluate && mnv9script && !MNV_ISWHITE(p[-1]))
{
error_white_both(p, 2);
clear_tv(rettv);
@@ -3859,7 +3859,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
/*
* Get the second variable.
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[2]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL((*arg)[2]))
{
error_white_both(*arg, 2);
clear_tv(rettv);
@@ -3876,7 +3876,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*/
if (evaluate && !result)
{
- if (vim9script)
+ if (mnv9script)
result = tv_get_bool_chk(&var2, &error);
else if (tv_get_number_chk(&var2, &error) != 0)
result = TRUE;
@@ -3886,7 +3886,7 @@ eval2(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
}
if (evaluate)
{
- if (vim9script)
+ if (mnv9script)
{
rettv->v_type = VAR_BOOL;
rettv->vval.v_number = result ? VVAL_TRUE : VVAL_FALSE;
@@ -3944,7 +3944,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
long result = TRUE;
typval_T var2;
int error = FALSE;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
if (evalarg == NULL)
{
@@ -3955,7 +3955,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
evaluate = orig_flags & EVAL_EVALUATE;
if (evaluate)
{
- if (vim9script)
+ if (mnv9script)
result = tv_get_bool_chk(rettv, &error);
else if (tv_get_number_chk(rettv, &error) == 0)
result = FALSE;
@@ -3973,7 +3973,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg_used);
else
{
- if (evaluate && vim9script && !VIM_ISWHITE(p[-1]))
+ if (evaluate && mnv9script && !MNV_ISWHITE(p[-1]))
{
error_white_both(p, 2);
clear_tv(rettv);
@@ -3985,7 +3985,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
/*
* Get the second variable.
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[2]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL((*arg)[2]))
{
error_white_both(*arg, 2);
clear_tv(rettv);
@@ -4003,7 +4003,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*/
if (evaluate && result)
{
- if (vim9script)
+ if (mnv9script)
result = tv_get_bool_chk(&var2, &error);
else if (tv_get_number_chk(&var2, &error) == 0)
result = FALSE;
@@ -4013,7 +4013,7 @@ eval3(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
}
if (evaluate)
{
- if (vim9script)
+ if (mnv9script)
{
rettv->v_type = VAR_BOOL;
rettv->vval.v_number = result ? VVAL_TRUE : VVAL_FALSE;
@@ -4081,7 +4081,7 @@ eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
{
typval_T var2;
int ic;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
int evaluate = evalarg == NULL
? 0 : (evalarg->eval_flags & EVAL_EVALUATE);
long comp_lnum = SOURCING_LNUM;
@@ -4091,14 +4091,14 @@ eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg);
p = *arg;
}
- else if (evaluate && vim9script && !VIM_ISWHITE(**arg))
+ else if (evaluate && mnv9script && !MNV_ISWHITE(**arg))
{
error_white_both(*arg, len);
clear_tv(rettv);
return FAIL;
}
- if (vim9script && type_is && (p[len] == '?' || p[len] == '#'))
+ if (mnv9script && type_is && (p[len] == '?' || p[len] == '#'))
{
semsg(_(e_invalid_expression_str), p);
clear_tv(rettv);
@@ -4117,14 +4117,14 @@ eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
ic = FALSE;
++len;
}
- // nothing appended: use 'ignorecase' if not in Vim script
+ // nothing appended: use 'ignorecase' if not in MNV script
else
- ic = vim9script ? FALSE : p_ic;
+ ic = mnv9script ? FALSE : p_ic;
/*
* Get the second variable.
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL(p[len]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL(p[len]))
{
error_white_both(p, len);
clear_tv(rettv);
@@ -4142,7 +4142,7 @@ eval4(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
// use the line of the comparison for messages
SOURCING_LNUM = comp_lnum;
- if (vim9script && check_compare_types(type, rettv, &var2) == FAIL)
+ if (mnv9script && check_compare_types(type, rettv, &var2) == FAIL)
{
ret = FAIL;
clear_tv(rettv);
@@ -4218,10 +4218,10 @@ eval_addlist(typval_T *tv1, typval_T *tv2)
int
eval_addtuple(typval_T *tv1, typval_T *tv2)
{
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
typval_T var3;
- if (vim9script && tv1->vval.v_tuple != NULL && tv2->vval.v_tuple != NULL
+ if (mnv9script && tv1->vval.v_tuple != NULL && tv2->vval.v_tuple != NULL
&& tv1->vval.v_tuple->tv_type != NULL
&& tv2->vval.v_tuple->tv_type != NULL)
{
@@ -4305,7 +4305,7 @@ eval5(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
exprtype_T exprtype;
int evaluate;
typval_T var2;
- int vim9script;
+ int mnv9script;
p = eval_next_non_blank(*arg, evalarg, &getnext);
if (p[0] == '<' && p[1] == '<')
@@ -4325,13 +4325,13 @@ eval5(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
return FAIL;
}
- vim9script = in_vim9script();
+ mnv9script = in_mnv9script();
if (getnext)
{
*arg = eval_next_line(*arg, evalarg);
p = *arg;
}
- else if (evaluate && vim9script && !VIM_ISWHITE(**arg))
+ else if (evaluate && mnv9script && !MNV_ISWHITE(**arg))
{
error_white_both(*arg, 2);
clear_tv(rettv);
@@ -4341,7 +4341,7 @@ eval5(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
/*
* Get the second variable.
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL(p[2]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL(p[2]))
{
error_white_both(p, 2);
clear_tv(rettv);
@@ -4376,16 +4376,16 @@ eval_concat_str(typval_T *tv1, typval_T *tv2)
char_u *s1 = tv_get_string_buf(tv1, buf1);
char_u *s2 = NULL;
char_u *p;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
- if (vim9script && (tv2->v_type == VAR_VOID
+ if (mnv9script && (tv2->v_type == VAR_VOID
|| tv2->v_type == VAR_CHANNEL
|| tv2->v_type == VAR_JOB))
semsg(_(e_using_invalid_value_as_string_str),
vartype_name(tv2->v_type));
- else if (vim9script && tv2->v_type == VAR_FLOAT)
+ else if (mnv9script && tv2->v_type == VAR_FLOAT)
{
- vim_snprintf((char *)buf2, NUMBUFLEN, "%g",
+ mnv_snprintf((char *)buf2, NUMBUFLEN, "%g",
tv2->vval.v_float);
s2 = buf2;
}
@@ -4517,7 +4517,7 @@ eval6(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
int oplen;
int concat;
typval_T var2;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
long op_lnum = SOURCING_LNUM;
// "." is only string concatenation when scriptversion is 1
@@ -4538,7 +4538,7 @@ eval6(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
*arg = eval_next_line(*arg, evalarg);
else
{
- if (evaluate && vim9script && !VIM_ISWHITE(**arg))
+ if (evaluate && mnv9script && !MNV_ISWHITE(**arg))
{
error_white_both(*arg, oplen);
clear_tv(rettv);
@@ -4573,14 +4573,14 @@ eval6(char_u **arg, typval_T *rettv, evalarg_T *evalarg)
/*
* Get the second variable.
*/
- if (evaluate && vim9script && !IS_WHITE_OR_NUL((*arg)[oplen]))
+ if (evaluate && mnv9script && !IS_WHITE_OR_NUL((*arg)[oplen]))
{
error_white_both(*arg, oplen);
clear_tv(rettv);
return FAIL;
}
*arg = skipwhite_and_linebreak(*arg + oplen, evalarg);
- if (eval7(arg, &var2, evalarg, !vim9script && op == '.') == FAIL)
+ if (eval7(arg, &var2, evalarg, !mnv9script && op == '.') == FAIL)
{
clear_tv(rettv);
return FAIL;
@@ -4777,7 +4777,7 @@ eval7(
*arg = eval_next_line(*arg, evalarg);
else
{
- if (evaluate && in_vim9script() && !VIM_ISWHITE(**arg))
+ if (evaluate && in_mnv9script() && !MNV_ISWHITE(**arg))
{
error_white_both(*arg, 1);
clear_tv(rettv);
@@ -4789,7 +4789,7 @@ eval7(
/*
* Get the second variable.
*/
- if (evaluate && in_vim9script() && !IS_WHITE_OR_NUL((*arg)[1]))
+ if (evaluate && in_mnv9script() && !IS_WHITE_OR_NUL((*arg)[1]))
{
error_white_both(*arg, 1);
clear_tv(rettv);
@@ -4828,8 +4828,8 @@ eval8(
int evaluate = evalarg == NULL ? 0
: (evalarg->eval_flags & EVAL_EVALUATE);
- // Recognize <type> in Vim9 script only.
- if (in_vim9script() && **arg == '<' && eval_isnamec1((*arg)[1])
+ // Recognize <type> in MNV9 script only.
+ if (in_mnv9script() && **arg == '<' && eval_isnamec1((*arg)[1])
&& STRNCMP(*arg, "<SNR>", 5) != 0)
{
++*arg;
@@ -4891,7 +4891,7 @@ eval8(
}
int
-eval_leader(char_u **arg, int vim9)
+eval_leader(char_u **arg, int mnv9)
{
char_u *s = *arg;
char_u *p = *arg;
@@ -4900,8 +4900,8 @@ eval_leader(char_u **arg, int vim9)
{
char_u *n = skipwhite(p + 1);
- // ++, --, -+ and +- are not accepted in Vim9 script
- if (vim9 && (*p == '-' || *p == '+') && (*n == '-' || *n == '+'))
+ // ++, --, -+ and +- are not accepted in MNV9 script
+ if (mnv9 && (*p == '-' || *p == '+') && (*n == '-' || *n == '+'))
{
semsg(_(e_invalid_expression_str), s);
return FAIL;
@@ -5047,14 +5047,14 @@ eval9_reg_contents(
typval_T *rettv,
int evaluate)
{
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
++*arg; // skip '@'
if (evaluate)
{
- if (vim9script && IS_WHITE_OR_NUL(**arg))
+ if (mnv9script && IS_WHITE_OR_NUL(**arg))
semsg(_(e_syntax_error_at_str), *arg);
- else if (vim9script && !valid_yank_reg(**arg, FALSE))
+ else if (mnv9script && !valid_yank_reg(**arg, FALSE))
emsg_invreg(**arg);
else
{
@@ -5078,9 +5078,9 @@ eval9_nested_expr(
int evaluate)
{
int ret = NOTDONE;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
- if (vim9script)
+ if (mnv9script)
{
ret = get_lambda_tv(arg, rettv, TRUE, evalarg, NULL);
if (ret == OK && evaluate)
@@ -5147,7 +5147,7 @@ eval9_var_func_name(
int len;
char_u *alias;
int ret = OK;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
s = *arg;
len = get_name_len(arg, &alias, evaluate, TRUE);
@@ -5160,19 +5160,19 @@ eval9_var_func_name(
{
int flags = evalarg == NULL ? 0 : evalarg->eval_flags;
- if (evaluate && vim9script && len == 1 && *s == '_')
+ if (evaluate && mnv9script && len == 1 && *s == '_')
{
emsg(_(e_cannot_use_underscore_here));
ret = FAIL;
}
- else if (evaluate && vim9script && len > 2
+ else if (evaluate && mnv9script && len > 2
&& s[0] == 's' && s[1] == ':')
{
- semsg(_(e_cannot_use_s_colon_in_vim9_script_str), s);
+ semsg(_(e_cannot_use_s_colon_in_mnv9_script_str), s);
ret = FAIL;
}
- else if ((vim9script ? **arg : *skipwhite(*arg)) == '('
- || (vim9script && generic_func_call(arg)))
+ else if ((mnv9script ? **arg : *skipwhite(*arg)) == '('
+ || (mnv9script && generic_func_call(arg)))
{
// "name(..." recursive!
*arg = skipwhite(*arg);
@@ -5182,7 +5182,7 @@ eval9_var_func_name(
{
// get the value of "true", "false", etc. or a variable
ret = FAIL;
- if (vim9script)
+ if (mnv9script)
ret = handle_predefined(s, len, rettv);
if (ret == FAIL)
{
@@ -5192,7 +5192,7 @@ eval9_var_func_name(
// skip the generic function arguments (if present)
// they are already processed by eval_variable
- if (ret == OK && vim9script && **arg == '<'
+ if (ret == OK && mnv9script && **arg == '<'
&& rettv->v_type == VAR_FUNC)
ret = skip_generic_func_type_args(arg);
}
@@ -5204,7 +5204,7 @@ eval9_var_func_name(
ret = OK;
}
}
- vim_free(alias);
+ mnv_free(alias);
return ret;
}
@@ -5253,7 +5253,7 @@ eval9(
char_u *start_leader, *end_leader;
int ret = OK;
static int recurse = 0;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
/*
* Initialise variable so that clear_tv() can't mistake this for a
@@ -5265,7 +5265,7 @@ eval9(
* Skip '!', '-' and '+' characters. They are handled later.
*/
start_leader = *arg;
- if (eval_leader(arg, vim9script) == FAIL)
+ if (eval_leader(arg, mnv9script) == FAIL)
return FAIL;
end_leader = *arg;
@@ -5343,10 +5343,10 @@ eval9(
* Lambda: {arg, arg -> expr}
* Dictionary: {'key': val, 'key': val}
*/
- case '{': if (vim9script)
+ case '{': if (mnv9script)
ret = NOTDONE;
else
- ret = get_lambda_tv(arg, rettv, vim9script, evalarg, NULL);
+ ret = get_lambda_tv(arg, rettv, mnv9script, evalarg, NULL);
if (ret == NOTDONE)
ret = eval_dict(arg, rettv, evalarg, FALSE);
break;
@@ -5426,16 +5426,16 @@ eval9_leader(
int error = FALSE;
varnumber_T val = 0;
vartype_T type = rettv->v_type;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
float_T f = 0.0;
if (rettv->v_type == VAR_FLOAT)
f = rettv->vval.v_float;
else
{
- while (VIM_ISWHITE(end_leader[-1]))
+ while (MNV_ISWHITE(end_leader[-1]))
--end_leader;
- if (vim9script && end_leader[-1] == '!')
+ if (mnv9script && end_leader[-1] == '!')
{
// Is this typeval supported with the ! operator?
if (check_typval_is_value(rettv) == FAIL)
@@ -5496,7 +5496,7 @@ eval9_leader(
else
{
clear_tv(rettv);
- if (vim9script)
+ if (mnv9script)
rettv->v_type = type;
else
rettv->v_type = VAR_NUMBER;
@@ -5684,7 +5684,7 @@ eval_method(
*arg = skipwhite(*arg);
if (**arg != '(' && alias == NULL
- && (paren = vim_strchr(*arg, '(')) != NULL)
+ && (paren = mnv_strchr(*arg, '(')) != NULL)
{
*arg = name;
@@ -5725,7 +5725,7 @@ eval_method(
semsg(_(e_missing_parenthesis_str), name);
ret = FAIL;
}
- else if (VIM_ISWHITE((*arg)[-1]))
+ else if (MNV_ISWHITE((*arg)[-1]))
{
if (verbose)
emsg(_(e_no_white_space_allowed_before_parenthesis));
@@ -5741,10 +5741,10 @@ eval_method(
// evaluating the arguments is possible (see test55).
if (evaluate)
clear_tv(&base);
- vim_free(tofree);
+ mnv_free(tofree);
if (alias != NULL)
- vim_free(alias);
+ mnv_free(alias);
return ret;
}
@@ -5768,7 +5768,7 @@ eval_index(
int range = FALSE;
char_u *key = NULL;
int keylen = -1;
- int vim9script = in_vim9script();
+ int mnv9script = in_mnv9script();
if (check_can_index(rettv, evaluate, verbose) == FAIL)
return FAIL;
@@ -5785,7 +5785,7 @@ eval_index(
;
if (keylen == 0)
return FAIL;
- if (vim9script && key[keylen] == '<')
+ if (mnv9script && key[keylen] == '<')
{
// skip generic type arguments
char_u *p = &key[keylen];
@@ -5808,7 +5808,7 @@ eval_index(
empty1 = TRUE;
else if (eval1(arg, &var1, evalarg) == FAIL) // recursive!
return FAIL;
- else if (vim9script && **arg == ':')
+ else if (mnv9script && **arg == ':')
{
semsg(_(e_white_space_required_before_and_after_str_at_str),
":", *arg);
@@ -5820,14 +5820,14 @@ eval_index(
int error = FALSE;
// allow for indexing with float
- if (vim9script && rettv->v_type == VAR_DICT
+ if (mnv9script && rettv->v_type == VAR_DICT
&& var1.v_type == VAR_FLOAT)
{
var1.vval.v_string = typval_tostring(&var1, TRUE);
var1.v_type = VAR_STRING;
}
- if (vim9script && (rettv->v_type == VAR_LIST
+ if (mnv9script && (rettv->v_type == VAR_LIST
|| rettv->v_type == VAR_TUPLE))
tv_get_number_chk(&var1, &error);
else
@@ -5848,7 +5848,7 @@ eval_index(
{
range = TRUE;
++*arg;
- if (vim9script && !IS_WHITE_OR_NUL(**arg) && **arg != ']')
+ if (mnv9script && !IS_WHITE_OR_NUL(**arg) && **arg != ']')
{
semsg(_(e_white_space_required_before_and_after_str_at_str),
":", *arg - 1);
@@ -5952,7 +5952,7 @@ check_can_index(typval_T *rettv, int evaluate, int verbose)
case VAR_BLOB:
break;
case VAR_NUMBER:
- if (in_vim9script())
+ if (in_mnv9script())
emsg(_(e_cannot_index_number));
break;
}
@@ -6023,7 +6023,7 @@ eval_index_inner(
char_u *s = tv_get_string(rettv);
len = (long)STRLEN(s);
- if (in_vim9script() || exclusive)
+ if (in_mnv9script() || exclusive)
{
if (is_range)
s = string_slice(s, n1, n2, exclusive);
@@ -6047,7 +6047,7 @@ eval_index_inner(
if (n1 >= len || n2 < 0 || n1 > n2)
s = NULL;
else
- s = vim_strnsave(s + n1, n2 - n1 + 1);
+ s = mnv_strnsave(s + n1, n2 - n1 + 1);
}
else
{
@@ -6057,7 +6057,7 @@ eval_index_inner(
if (n1 >= len || n1 < 0)
s = NULL;
else
- s = vim_strnsave(s + n1, 1);
+ s = mnv_strnsave(s + n1, 1);
}
clear_tv(rettv);
rettv->v_type = VAR_STRING;
@@ -6147,12 +6147,12 @@ partial_free(partial_T *pt)
for (i = 0; i < pt->pt_argc; ++i)
clear_tv(&pt->pt_argv[i]);
- vim_free(pt->pt_argv);
+ mnv_free(pt->pt_argv);
dict_unref(pt->pt_dict);
if (pt->pt_name != NULL)
{
func_unref(pt->pt_name);
- vim_free(pt->pt_name);
+ mnv_free(pt->pt_name);
}
else
func_ptr_unref(pt->pt_func);
@@ -6180,7 +6180,7 @@ partial_free(partial_T *pt)
loopvars_check_refcount(pt->pt_loopvars[i]);
}
- vim_free(pt);
+ mnv_free(pt);
}
/*
@@ -6275,7 +6275,7 @@ func_tv2string(typval_T *tv, char_u **tofree, int echo_style)
r = make_ufunc_name_readable(tv->vval.v_string, buf,
MAX_FUNC_NAME_LEN);
if (r == buf)
- r = *tofree = vim_strsave(buf);
+ r = *tofree = mnv_strsave(buf);
}
}
else
@@ -6305,7 +6305,7 @@ method_tv2string(typval_T *tv, char_u **tofree, int echo_style)
char_u buf[MAX_FUNC_NAME_LEN];
partial_T *pt = tv->vval.v_partial;
- size_t len = vim_snprintf((char *)buf, sizeof(buf), "<SNR>%d_%s.%s",
+ size_t len = mnv_snprintf((char *)buf, sizeof(buf), "<SNR>%d_%s.%s",
pt->pt_func->uf_script_ctx.sc_sid,
pt->pt_func->uf_class->class_name.string,
pt->pt_func->uf_name);
@@ -6320,7 +6320,7 @@ method_tv2string(typval_T *tv, char_u **tofree, int echo_style)
return *tofree = string_quote((char_u*)"", TRUE);
}
- return *tofree = echo_style ? vim_strsave(buf) : string_quote(buf, TRUE);
+ return *tofree = echo_style ? mnv_strsave(buf) : string_quote(buf, TRUE);
}
/*
@@ -6351,14 +6351,14 @@ partial_tv2string(
{
// When using uf_name prepend "g:" for a global function.
if (pt != NULL && pt->pt_name == NULL && fname[0] == '\''
- && vim_isupper(fname[1]))
+ && mnv_isupper(fname[1]))
{
GA_CONCAT_LITERAL(&ga, "'g:");
ga_concat(&ga, fname + 1);
}
else
ga_concat(&ga, fname);
- vim_free(fname);
+ mnv_free(fname);
}
if (pt != NULL && pt->pt_argc > 0)
{
@@ -6368,7 +6368,7 @@ partial_tv2string(
if (i > 0)
GA_CONCAT_LITERAL(&ga, ", ");
ga_concat(&ga, tv2string(&pt->pt_argv[i], &tf, numbuf, copyID));
- vim_free(tf);
+ mnv_free(tf);
}
GA_CONCAT_LITERAL(&ga, "]");
}
@@ -6380,7 +6380,7 @@ partial_tv2string(
dtv.v_type = VAR_DICT;
dtv.vval.v_dict = pt->pt_dict;
ga_concat(&ga, tv2string(&dtv, &tf, numbuf, copyID));
- vim_free(tf);
+ mnv_free(tf);
}
// terminate with ')' and a NUL
GA_CONCAT_LITERAL(&ga, ")");
@@ -6593,7 +6593,7 @@ class_tv2string(typval_T *tv, char_u **tofree)
rsize = s.length + 1 + class_name.length + 1;
r = *tofree = alloc(rsize);
if (r != NULL)
- vim_snprintf((char *)r, rsize, "%s %s", s.string, (char *)class_name.string);
+ mnv_snprintf((char *)r, rsize, "%s %s", s.string, (char *)class_name.string);
return r;
}
@@ -6629,7 +6629,7 @@ object_tv2string(
size_t n = 25 + obj->obj_class->class_name.length;
r = alloc(n);
if (r != NULL)
- (void)vim_snprintf((char *)r, n, "object of %s {...}",
+ (void)mnv_snprintf((char *)r, n, "object of %s {...}",
obj->obj_class->class_name.string);
*tofree = r;
}
@@ -6753,7 +6753,7 @@ echo_string_core(
case VAR_FLOAT:
*tofree = NULL;
- vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
+ mnv_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
r = numbuf;
break;
@@ -6764,7 +6764,7 @@ echo_string_core(
break;
case VAR_TYPEALIAS:
- *tofree = vim_strsave(tv->vval.v_typealias->ta_name);
+ *tofree = mnv_strsave(tv->vval.v_typealias->ta_name);
r = *tofree;
if (r == NULL)
r = (char_u *)"";
@@ -6927,7 +6927,7 @@ var2fpos(
return &pos;
}
- if (in_vim9script() && check_for_string_arg(varp, 0) == FAIL)
+ if (in_mnv9script() && check_for_string_arg(varp, 0) == FAIL)
return NULL;
name = tv_get_string_chk(varp);
@@ -6938,7 +6938,7 @@ var2fpos(
pos.lnum = 0;
if (name[0] == '.')
{
- if (!in_vim9script() || name[1] == NUL)
+ if (!in_mnv9script() || name[1] == NUL)
{
error = FALSE;
// cursor
@@ -6955,7 +6955,7 @@ var2fpos(
}
else if (name[0] == '\'')
{
- if (!in_vim9script() || (name[1] != NUL && name[2] == NUL))
+ if (!in_mnv9script() || (name[1] != NUL && name[2] == NUL))
{
error = FALSE;
// mark
@@ -7026,7 +7026,7 @@ var2fpos(
}
return &pos;
}
- if (in_vim9script() && error)
+ if (in_mnv9script() && error)
semsg(_(e_invalid_value_for_line_number_str), name);
return NULL;
}
@@ -7118,7 +7118,7 @@ get_env_len(char_u **arg)
char_u *p;
int len;
- for (p = *arg; vim_isIDc(*p); ++p)
+ for (p = *arg; mnv_isIDc(*p); ++p)
;
if (p == *arg) // no name found
return 0;
@@ -7147,7 +7147,7 @@ get_id_len(char_u **arg)
// "s:" is start of "s:var", but "n:" is not and can be used in
// slice "[n:]". Also "xx:" is not a namespace.
len = (int)(p - *arg);
- if ((len == 1 && vim_strchr(NAMESPACE_CHAR, **arg) == NULL)
+ if ((len == 1 && mnv_strchr(NAMESPACE_CHAR, **arg) == NULL)
|| len > 1)
break;
}
@@ -7254,7 +7254,7 @@ find_name_end(
int br_nest = 0;
char_u *p;
int len;
- int allow_curly = !in_vim9script();
+ int allow_curly = !in_mnv9script();
if (expr_start != NULL)
{
@@ -7297,7 +7297,7 @@ find_name_end(
// "s:" is start of "s:var", but "n:" is not and can be used in
// slice "[n:]". Also "xx:" is not a namespace. But {ns}: is.
len = (int)(p - arg);
- if ((len == 1 && vim_strchr(NAMESPACE_CHAR, *arg) == NULL)
+ if ((len == 1 && mnv_strchr(NAMESPACE_CHAR, *arg) == NULL)
|| (len > 1 && p[-1] != '}'))
break;
}
@@ -7370,10 +7370,10 @@ make_expanded_name(
retval = alloc(retvalsize);
if (retval != NULL)
- vim_snprintf((char *)retval, retvalsize, "%s%s%s",
+ mnv_snprintf((char *)retval, retvalsize, "%s%s%s",
in_start, temp_result, expr_end + 1);
}
- vim_free(temp_result);
+ mnv_free(temp_result);
*in_end = c1; // put char back for error messages
*expr_start = '{';
@@ -7387,7 +7387,7 @@ make_expanded_name(
// Further expansion!
temp_result = make_expanded_name(retval, expr_start,
expr_end, temp_result);
- vim_free(retval);
+ mnv_free(retval);
retval = temp_result;
}
}
@@ -7462,7 +7462,7 @@ handle_subscript(
|| rettv->v_type == VAR_CLASS
|| rettv->v_type == VAR_OBJECT))
|| (p[0] == '-' && p[1] == '>' && (p[2] == '{'
- || ASCII_ISALPHA(in_vim9script() ? *skipwhite(p + 2)
+ || ASCII_ISALPHA(in_mnv9script() ? *skipwhite(p + 2)
: p[2])))))
{
*arg = eval_next_line(*arg, evalarg);
@@ -7535,7 +7535,7 @@ handle_subscript(
else
{
rettv->vval.v_string =
- vim_strnsave(ufunc->uf_name, ufunc->uf_namelen);
+ mnv_strnsave(ufunc->uf_name, ufunc->uf_namelen);
}
}
continue;
@@ -7543,7 +7543,7 @@ handle_subscript(
if ((**arg == '(' && (!evaluate || rettv->v_type == VAR_FUNC
|| rettv->v_type == VAR_PARTIAL))
- && (!check_white || !VIM_ISWHITE(*(*arg - 1))))
+ && (!check_white || !MNV_ISWHITE(*(*arg - 1))))
{
ret = call_func_rettv(arg, evalarg, rettv, evaluate,
selfdict, NULL);
@@ -7562,16 +7562,16 @@ handle_subscript(
}
else if (p[0] == '-' && p[1] == '>')
{
- if (in_vim9script())
+ if (in_mnv9script())
*arg = skipwhite(p + 2);
else
*arg = p + 2;
- if (VIM_ISWHITE(**arg))
+ if (MNV_ISWHITE(**arg))
{
emsg(_(e_no_white_space_allowed_before_parenthesis));
ret = FAIL;
}
- else if ((**arg == '{' && !in_vim9script()) || **arg == '(')
+ else if ((**arg == '{' && !in_mnv9script()) || **arg == '(')
// expr->{lambda}() or expr->(lambda)()
ret = eval_lambda(arg, rettv, evalarg, verbose);
else
@@ -7790,7 +7790,7 @@ echo_one(typval_T *rettv, int with_space, int *atstart, int *needclr)
(void)msg_outtrans_len_attr(p, 1, echo_attr);
}
}
- vim_free(tofree);
+ mnv_free(tofree);
}
/*
@@ -8000,9 +8000,9 @@ ex_execute(exarg_T *eap)
{
int save_sticky_cmdmod_flags = sticky_cmdmod_flags;
- // "legacy exe cmd" and "vim9cmd exe cmd" applies to "cmd".
+ // "legacy exe cmd" and "mnv9cmd exe cmd" applies to "cmd".
sticky_cmdmod_flags = cmdmod.cmod_flags
- & (CMOD_LEGACY | CMOD_VIM9CMD);
+ & (CMOD_LEGACY | CMOD_MNV9CMD);
do_cmdline((char_u *)ga.ga_data,
eap->ea_getline, eap->cookie, DOCMD_NOWAIT|DOCMD_VERBOSE);
sticky_cmdmod_flags = save_sticky_cmdmod_flags;
@@ -8078,7 +8078,7 @@ last_set_msg(sctx_T script_ctx)
msg_outnum((long)script_ctx.sc_lnum);
}
verbose_leave();
- vim_free(p);
+ mnv_free(p);
}
#endif // FEAT_EVAL
@@ -8111,7 +8111,7 @@ do_string_sub(
ga_init2(&ga, 1, 200);
regmatch.rm_ic = p_ic;
- regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
+ regmatch.regprog = mnv_regcomp(pat, RE_MAGIC + RE_STRING);
if (regmatch.regprog != NULL)
{
char_u *tail = str;
@@ -8121,7 +8121,7 @@ do_string_sub(
int i;
char_u *zero_width = NULL;
- while (vim_regexec_nl(&regmatch, str, (colnr_T)(tail - str)))
+ while (mnv_regexec_nl(&regmatch, str, (colnr_T)(tail - str)))
{
// Skip empty match except for first match.
if (regmatch.startp[0] == regmatch.endp[0])
@@ -8146,7 +8146,7 @@ do_string_sub(
* - The substituted text.
* - The text after the match.
*/
- sublen = vim_regsub(&regmatch, sub, expr, tail, 0, REGSUB_MAGIC);
+ sublen = mnv_regsub(&regmatch, sub, expr, tail, 0, REGSUB_MAGIC);
if (sublen <= 0)
{
ga_clear(&ga);
@@ -8163,7 +8163,7 @@ do_string_sub(
i = (int)(regmatch.startp[0] - tail);
mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail, (size_t)i);
// add the substituted text
- (void)vim_regsub(&regmatch, sub, expr,
+ (void)mnv_regsub(&regmatch, sub, expr,
(char_u *)ga.ga_data + ga.ga_len + i, sublen,
REGSUB_COPY | REGSUB_MAGIC);
ga.ga_len += i + sublen - 1;
@@ -8180,7 +8180,7 @@ do_string_sub(
ga.ga_len += (int)(end - tail);
}
- vim_regfree(regmatch.regprog);
+ mnv_regfree(regmatch.regprog);
}
if (ga.ga_data != NULL)
@@ -8188,7 +8188,7 @@ do_string_sub(
str = (char_u *)ga.ga_data;
len = (size_t)ga.ga_len;
}
- ret = vim_strnsave(str, len);
+ ret = mnv_strnsave(str, len);
ga_clear(&ga);
if (p_cpo == empty_option)
p_cpo = save_cpo;