}
}
}
- else if ((STRNCMP(arg, "s:", 2) == 0
- ? lookup_script(arg + 2, varlen - 2)
- : lookup_script(arg, varlen)) == OK
- || find_imported(arg, varlen, cctx) != NULL)
+ else if (STRNCMP(arg, "s:", 2) == 0
+ || lookup_script(arg, varlen) == OK
+ || find_imported(arg, varlen, cctx) != NULL)
{
dest = dest_script;
if (is_decl)
idx = get_script_item_idx(sid, rawname, TRUE);
// TODO: specific type
if (idx < 0)
- generate_OLDSCRIPT(cctx, ISN_STORES, rawname, sid, &t_any);
+ generate_OLDSCRIPT(cctx, ISN_STORES, name, sid, &t_any);
else
generate_VIM9SCRIPT(cctx, ISN_STORESCRIPT,
sid, idx, &t_any);
return OK;
}
+/*
+ * Store "tv" in variable "name".
+ * This is for s: and g: variables.
+ */
+ static void
+store_var(char_u *name, typval_T *tv)
+{
+ funccal_entry_T entry;
+
+ save_funccal(&entry);
+ set_var_const(name, NULL, tv, FALSE, 0);
+ restore_funccal();
+}
+
/*
* Execute a function by "name".
* This can be a builtin function, user function or a funcref.
iptr->isn_arg.loadstore.ls_sid);
char_u *name = iptr->isn_arg.loadstore.ls_name;
dictitem_T *di = find_var_in_ht(ht, 0, name, TRUE);
+
if (di == NULL)
{
semsg(_(e_undefvar), name);
// load g: variable
case ISN_LOADG:
{
- dictitem_T *di;
-
- di = find_var_in_ht(get_globvar_ht(), 0,
+ dictitem_T *di = find_var_in_ht(get_globvar_ht(), 0,
iptr->isn_arg.string, TRUE);
+
if (di == NULL)
{
semsg(_("E121: Undefined variable: g:%s"),
if (ga_grow(&ectx.ec_stack, 1) == FAIL)
goto failed;
- if (get_env_tv(&name, &optval, TRUE) == FAIL)
- {
- semsg(_("E1060: Invalid environment variable name: %s"),
- iptr->isn_arg.string);
- goto failed;
- }
+ // name is always valid, checked when compiling
+ (void)get_env_tv(&name, &optval, TRUE);
*STACK_TV_BOT(0) = optval;
++ectx.ec_stack.ga_len;
}
hashtab_T *ht = &SCRIPT_VARS(
iptr->isn_arg.loadstore.ls_sid);
char_u *name = iptr->isn_arg.loadstore.ls_name;
- dictitem_T *di = find_var_in_ht(ht, 0, name, TRUE);
+ dictitem_T *di = find_var_in_ht(ht, 0, name + 2, TRUE);
+ --ectx.ec_stack.ga_len;
if (di == NULL)
+ store_var(iptr->isn_arg.string, STACK_TV_BOT(0));
+ else
{
- semsg(_(e_undefvar), name);
- goto failed;
+ clear_tv(&di->di_tv);
+ di->di_tv = *STACK_TV_BOT(0);
}
- --ectx.ec_stack.ga_len;
- clear_tv(&di->di_tv);
- di->di_tv = *STACK_TV_BOT(0);
}
break;
di = find_var_in_ht(get_globvar_ht(), 0,
iptr->isn_arg.string + 2, TRUE);
if (di == NULL)
- {
- funccal_entry_T entry;
-
- save_funccal(&entry);
- set_var_const(iptr->isn_arg.string, NULL,
- STACK_TV_BOT(0), FALSE, 0);
- restore_funccal();
- }
+ store_var(iptr->isn_arg.string, STACK_TV_BOT(0));
else
{
clear_tv(&di->di_tv);
scriptitem_T *si = SCRIPT_ITEM(
iptr->isn_arg.loadstore.ls_sid);
- smsg("%4d STORES s:%s in %s", current,
+ smsg("%4d STORES %s in %s", current,
iptr->isn_arg.string, si->sn_name);
}
break;