blob: 242a1f81ec375eca5a7311b6076b4435be62eb19 [file] [log] [blame]
Bram Moolenaar071d4272004-06-13 20:20:40 +00001/* vi:set ts=8 sts=4 sw=4:
2 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 * See README.txt for an overview of the Vim source code.
8 */
9
10/*
11 * eval.c: Expression evaluation.
12 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013
14#include "vim.h"
15
Bram Moolenaar8c8de832008-06-24 22:58:06 +000016#if defined(FEAT_EVAL) || defined(PROTO)
17
Bram Moolenaar071d4272004-06-13 20:20:40 +000018#ifdef AMIGA
19# include <time.h> /* for strftime() */
20#endif
21
Bram Moolenaar314f11d2010-08-09 22:07:08 +020022#ifdef VMS
23# include <float.h>
24#endif
25
Bram Moolenaar071d4272004-06-13 20:20:40 +000026#ifdef MACOS
27# include <time.h> /* for time_t */
28#endif
29
Bram Moolenaar8c8de832008-06-24 22:58:06 +000030#if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
31# include <math.h>
Bram Moolenaar071d4272004-06-13 20:20:40 +000032#endif
33
Bram Moolenaar33570922005-01-25 22:26:29 +000034#define DICT_MAXNEST 100 /* maximum nesting of lists and dicts */
Bram Moolenaar071d4272004-06-13 20:20:40 +000035
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000036#define DO_NOT_FREE_CNT 99999 /* refcount for dict or list that should not
37 be freed. */
38
Bram Moolenaar071d4272004-06-13 20:20:40 +000039/*
Bram Moolenaar33570922005-01-25 22:26:29 +000040 * In a hashtab item "hi_key" points to "di_key" in a dictitem.
41 * This avoids adding a pointer to the hashtab item.
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000042 * DI2HIKEY() converts a dictitem pointer to a hashitem key pointer.
43 * HIKEY2DI() converts a hashitem key pointer to a dictitem pointer.
44 * HI2DI() converts a hashitem pointer to a dictitem pointer.
45 */
Bram Moolenaar33570922005-01-25 22:26:29 +000046static dictitem_T dumdi;
Bram Moolenaara7043832005-01-21 11:56:39 +000047#define DI2HIKEY(di) ((di)->di_key)
Bram Moolenaar33570922005-01-25 22:26:29 +000048#define HIKEY2DI(p) ((dictitem_T *)(p - (dumdi.di_key - (char_u *)&dumdi)))
Bram Moolenaara7043832005-01-21 11:56:39 +000049#define HI2DI(hi) HIKEY2DI((hi)->hi_key)
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000050
51/*
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000052 * Structure returned by get_lval() and used by set_var_lval().
53 * For a plain name:
54 * "name" points to the variable name.
55 * "exp_name" is NULL.
56 * "tv" is NULL
57 * For a magic braces name:
58 * "name" points to the expanded variable name.
59 * "exp_name" is non-NULL, to be freed later.
60 * "tv" is NULL
61 * For an index in a list:
62 * "name" points to the (expanded) variable name.
63 * "exp_name" NULL or non-NULL, to be freed later.
64 * "tv" points to the (first) list item value
65 * "li" points to the (first) list item
66 * "range", "n1", "n2" and "empty2" indicate what items are used.
67 * For an existing Dict item:
68 * "name" points to the (expanded) variable name.
69 * "exp_name" NULL or non-NULL, to be freed later.
70 * "tv" points to the dict item value
71 * "newkey" is NULL
72 * For a non-existing Dict item:
73 * "name" points to the (expanded) variable name.
74 * "exp_name" NULL or non-NULL, to be freed later.
Bram Moolenaar33570922005-01-25 22:26:29 +000075 * "tv" points to the Dictionary typval_T
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000076 * "newkey" is the key for the new item.
77 */
78typedef struct lval_S
79{
80 char_u *ll_name; /* start of variable name (can be NULL) */
81 char_u *ll_exp_name; /* NULL or expanded name in allocated memory. */
Bram Moolenaar33570922005-01-25 22:26:29 +000082 typval_T *ll_tv; /* Typeval of item being used. If "newkey"
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000083 isn't NULL it's the Dict to which to add
84 the item. */
Bram Moolenaar33570922005-01-25 22:26:29 +000085 listitem_T *ll_li; /* The list item or NULL. */
86 list_T *ll_list; /* The list or NULL. */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000087 int ll_range; /* TRUE when a [i:j] range was used */
88 long ll_n1; /* First index for list */
89 long ll_n2; /* Second index for list range */
90 int ll_empty2; /* Second index is empty: [i:] */
Bram Moolenaar33570922005-01-25 22:26:29 +000091 dict_T *ll_dict; /* The Dictionary or NULL */
92 dictitem_T *ll_di; /* The dictitem or NULL */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000093 char_u *ll_newkey; /* New key for Dict in alloc. mem or NULL. */
Bram Moolenaar33570922005-01-25 22:26:29 +000094} lval_T;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000095
Bram Moolenaar8c711452005-01-14 21:53:12 +000096
Bram Moolenaarc70646c2005-01-04 21:52:38 +000097static char *e_letunexp = N_("E18: Unexpected characters in :let");
Bram Moolenaare49b69a2005-01-08 16:11:57 +000098static char *e_listidx = N_("E684: list index out of range: %ld");
Bram Moolenaarc70646c2005-01-04 21:52:38 +000099static char *e_undefvar = N_("E121: Undefined variable: %s");
100static char *e_missbrac = N_("E111: Missing ']'");
Bram Moolenaar8c711452005-01-14 21:53:12 +0000101static char *e_listarg = N_("E686: Argument of %s must be a List");
Bram Moolenaar13fcaaf2005-04-15 21:13:42 +0000102static char *e_listdictarg = N_("E712: Argument of %s must be a List or Dictionary");
Bram Moolenaarce5e58e2005-01-19 22:24:34 +0000103static char *e_emptykey = N_("E713: Cannot use empty key for Dictionary");
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000104static char *e_listreq = N_("E714: List required");
105static char *e_dictreq = N_("E715: Dictionary required");
Bram Moolenaar8c711452005-01-14 21:53:12 +0000106static char *e_toomanyarg = N_("E118: Too many arguments for function: %s");
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000107static char *e_dictkey = N_("E716: Key not present in Dictionary: %s");
108static char *e_funcexts = N_("E122: Function %s already exists, add ! to replace it");
109static char *e_funcdict = N_("E717: Dictionary entry already exists");
110static char *e_funcref = N_("E718: Funcref required");
111static char *e_dictrange = N_("E719: Cannot use [:] with a Dictionary");
112static char *e_letwrong = N_("E734: Wrong variable type for %s=");
Bram Moolenaar05159a02005-02-26 23:04:13 +0000113static char *e_nofunc = N_("E130: Unknown function: %s");
Bram Moolenaar92124a32005-06-17 22:03:40 +0000114static char *e_illvar = N_("E461: Illegal variable name: %s");
Bram Moolenaar8c0e3222013-06-16 17:32:40 +0200115#ifdef FEAT_FLOAT
Bram Moolenaar2a876e42013-06-12 22:08:58 +0200116static char *e_float_as_string = N_("E806: using Float as a String");
Bram Moolenaar8c0e3222013-06-16 17:32:40 +0200117#endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000118
Bram Moolenaar230bb3f2013-04-24 14:07:45 +0200119static dictitem_T globvars_var; /* variable used for g: */
Bram Moolenaar33570922005-01-25 22:26:29 +0000120#define globvarht globvardict.dv_hashtab
Bram Moolenaar071d4272004-06-13 20:20:40 +0000121
122/*
Bram Moolenaar532c7802005-01-27 14:44:31 +0000123 * Old Vim variables such as "v:version" are also available without the "v:".
124 * Also in functions. We need a special hashtable for them.
125 */
Bram Moolenaar4debb442005-06-01 21:57:40 +0000126static hashtab_T compat_hashtab;
Bram Moolenaar532c7802005-01-27 14:44:31 +0000127
128/*
Bram Moolenaard9fba312005-06-26 22:34:35 +0000129 * When recursively copying lists and dicts we need to remember which ones we
130 * have done to avoid endless recursiveness. This unique ID is used for that.
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +0000131 * The last bit is used for previous_funccal, ignored when comparing.
Bram Moolenaard9fba312005-06-26 22:34:35 +0000132 */
133static int current_copyID = 0;
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +0000134#define COPYID_INC 2
135#define COPYID_MASK (~0x1)
Bram Moolenaard9fba312005-06-26 22:34:35 +0000136
Bram Moolenaar8502c702014-06-17 12:51:16 +0200137/* Abort conversion to string after a recursion error. */
138static int did_echo_string_emsg = FALSE;
139
Bram Moolenaard9fba312005-06-26 22:34:35 +0000140/*
Bram Moolenaar33570922005-01-25 22:26:29 +0000141 * Array to hold the hashtab with variables local to each sourced script.
142 * Each item holds a variable (nameless) that points to the dict_T.
Bram Moolenaar071d4272004-06-13 20:20:40 +0000143 */
Bram Moolenaar33570922005-01-25 22:26:29 +0000144typedef struct
145{
146 dictitem_T sv_var;
147 dict_T sv_dict;
148} scriptvar_T;
149
Bram Moolenaar9577c3e2010-05-14 12:16:25 +0200150static garray_T ga_scripts = {0, 0, sizeof(scriptvar_T *), 4, NULL};
151#define SCRIPT_SV(id) (((scriptvar_T **)ga_scripts.ga_data)[(id) - 1])
152#define SCRIPT_VARS(id) (SCRIPT_SV(id)->sv_dict.dv_hashtab)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000153
154static int echo_attr = 0; /* attributes used for ":echo" */
155
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000156/* Values for trans_function_name() argument: */
157#define TFN_INT 1 /* internal function name OK */
158#define TFN_QUIET 2 /* no error messages */
Bram Moolenaar6d977d62014-01-14 15:24:39 +0100159#define TFN_NO_AUTOLOAD 4 /* do not use script autoloading */
160
161/* Values for get_lval() flags argument: */
162#define GLV_QUIET TFN_QUIET /* no error messages */
163#define GLV_NO_AUTOLOAD TFN_NO_AUTOLOAD /* do not use script autoloading */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000164
Bram Moolenaar071d4272004-06-13 20:20:40 +0000165/*
166 * Structure to hold info for a user function.
167 */
168typedef struct ufunc ufunc_T;
169
170struct ufunc
171{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000172 int uf_varargs; /* variable nr of arguments */
173 int uf_flags;
174 int uf_calls; /* nr of active calls */
175 garray_T uf_args; /* arguments */
176 garray_T uf_lines; /* function lines */
Bram Moolenaar05159a02005-02-26 23:04:13 +0000177#ifdef FEAT_PROFILE
178 int uf_profiling; /* TRUE when func is being profiled */
179 /* profiling the function as a whole */
180 int uf_tm_count; /* nr of calls */
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000181 proftime_T uf_tm_total; /* time spent in function + children */
182 proftime_T uf_tm_self; /* time spent in function itself */
Bram Moolenaar05159a02005-02-26 23:04:13 +0000183 proftime_T uf_tm_children; /* time spent in children this call */
184 /* profiling the function per line */
185 int *uf_tml_count; /* nr of times line was executed */
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000186 proftime_T *uf_tml_total; /* time spent in a line + children */
187 proftime_T *uf_tml_self; /* time spent in a line itself */
Bram Moolenaar05159a02005-02-26 23:04:13 +0000188 proftime_T uf_tml_start; /* start time for current line */
189 proftime_T uf_tml_children; /* time spent in children for this line */
190 proftime_T uf_tml_wait; /* start wait time for current line */
191 int uf_tml_idx; /* index of line being timed; -1 if none */
192 int uf_tml_execed; /* line being timed was executed */
193#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000194 scid_T uf_script_ID; /* ID of script where function was defined,
Bram Moolenaar071d4272004-06-13 20:20:40 +0000195 used for s: variables */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000196 int uf_refcount; /* for numbered function: reference count */
197 char_u uf_name[1]; /* name of function (actually longer); can
198 start with <SNR>123_ (<SNR> is K_SPECIAL
199 KS_EXTRA KE_SNR) */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000200};
201
202/* function flags */
203#define FC_ABORT 1 /* abort function on error */
204#define FC_RANGE 2 /* function accepts range */
Bram Moolenaare9a41262005-01-15 22:18:47 +0000205#define FC_DICT 4 /* Dict function, uses "self" */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000206
207/*
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000208 * All user-defined functions are found in this hashtable.
Bram Moolenaar071d4272004-06-13 20:20:40 +0000209 */
Bram Moolenaar4debb442005-06-01 21:57:40 +0000210static hashtab_T func_hashtab;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000211
Bram Moolenaarc9b4b052006-04-30 18:54:39 +0000212/* The names of packages that once were loaded are remembered. */
Bram Moolenaaraa35dd12006-04-29 22:03:41 +0000213static garray_T ga_loaded = {0, 0, sizeof(char_u *), 4, NULL};
214
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000215/* list heads for garbage collection */
216static dict_T *first_dict = NULL; /* list of all dicts */
217static list_T *first_list = NULL; /* list of all lists */
218
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000219/* From user function to hashitem and back. */
220static ufunc_T dumuf;
221#define UF2HIKEY(fp) ((fp)->uf_name)
222#define HIKEY2UF(p) ((ufunc_T *)(p - (dumuf.uf_name - (char_u *)&dumuf)))
223#define HI2UF(hi) HIKEY2UF((hi)->hi_key)
224
225#define FUNCARG(fp, j) ((char_u **)(fp->uf_args.ga_data))[j]
226#define FUNCLINE(fp, j) ((char_u **)(fp->uf_lines.ga_data))[j]
Bram Moolenaar071d4272004-06-13 20:20:40 +0000227
Bram Moolenaar33570922005-01-25 22:26:29 +0000228#define MAX_FUNC_ARGS 20 /* maximum number of function arguments */
229#define VAR_SHORT_LEN 20 /* short variable name length */
230#define FIXVAR_CNT 12 /* number of fixed variables */
231
Bram Moolenaar071d4272004-06-13 20:20:40 +0000232/* structure to hold info for a function that is currently being executed. */
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000233typedef struct funccall_S funccall_T;
234
235struct funccall_S
Bram Moolenaar071d4272004-06-13 20:20:40 +0000236{
237 ufunc_T *func; /* function being called */
238 int linenr; /* next line to be executed */
239 int returned; /* ":return" used */
Bram Moolenaar33570922005-01-25 22:26:29 +0000240 struct /* fixed variables for arguments */
241 {
242 dictitem_T var; /* variable (without room for name) */
243 char_u room[VAR_SHORT_LEN]; /* room for the name */
244 } fixvar[FIXVAR_CNT];
245 dict_T l_vars; /* l: local function variables */
246 dictitem_T l_vars_var; /* variable for l: scope */
247 dict_T l_avars; /* a: argument variables */
248 dictitem_T l_avars_var; /* variable for a: scope */
249 list_T l_varlist; /* list for a:000 */
250 listitem_T l_listitems[MAX_FUNC_ARGS]; /* listitems for a:000 */
251 typval_T *rettv; /* return value */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000252 linenr_T breakpoint; /* next line with breakpoint or zero */
253 int dbg_tick; /* debug_tick when breakpoint was set */
254 int level; /* top nesting level of executed function */
Bram Moolenaar05159a02005-02-26 23:04:13 +0000255#ifdef FEAT_PROFILE
256 proftime_T prof_child; /* time spent in a child */
257#endif
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000258 funccall_T *caller; /* calling function or NULL */
259};
Bram Moolenaar071d4272004-06-13 20:20:40 +0000260
261/*
Bram Moolenaar3d60ec22005-01-05 22:19:46 +0000262 * Info used by a ":for" loop.
263 */
Bram Moolenaar33570922005-01-25 22:26:29 +0000264typedef struct
Bram Moolenaar3d60ec22005-01-05 22:19:46 +0000265{
266 int fi_semicolon; /* TRUE if ending in '; var]' */
267 int fi_varcount; /* nr of variables in the list */
Bram Moolenaar33570922005-01-25 22:26:29 +0000268 listwatch_T fi_lw; /* keep an eye on the item used. */
269 list_T *fi_list; /* list being used */
270} forinfo_T;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +0000271
Bram Moolenaar3d60ec22005-01-05 22:19:46 +0000272/*
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000273 * Struct used by trans_function_name()
274 */
275typedef struct
276{
Bram Moolenaar33570922005-01-25 22:26:29 +0000277 dict_T *fd_dict; /* Dictionary used */
Bram Moolenaar532c7802005-01-27 14:44:31 +0000278 char_u *fd_newkey; /* new key in "dict" in allocated memory */
Bram Moolenaar33570922005-01-25 22:26:29 +0000279 dictitem_T *fd_di; /* Dictionary item used */
280} funcdict_T;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000281
Bram Moolenaara7043832005-01-21 11:56:39 +0000282
283/*
Bram Moolenaar33570922005-01-25 22:26:29 +0000284 * Array to hold the value of v: variables.
285 * The value is in a dictitem, so that it can also be used in the v: scope.
286 * The reason to use this table anyway is for very quick access to the
287 * variables with the VV_ defines.
288 */
289#include "version.h"
290
291/* values for vv_flags: */
292#define VV_COMPAT 1 /* compatible, also used without "v:" */
293#define VV_RO 2 /* read-only */
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000294#define VV_RO_SBX 4 /* read-only in the sandbox */
Bram Moolenaar33570922005-01-25 22:26:29 +0000295
Bram Moolenaarcdb92af2009-06-03 12:26:06 +0000296#define VV_NAME(s, t) s, {{t, 0, {0}}, 0, {0}}, {0}
Bram Moolenaar33570922005-01-25 22:26:29 +0000297
298static struct vimvar
299{
300 char *vv_name; /* name of variable, without v: */
Bram Moolenaar33570922005-01-25 22:26:29 +0000301 dictitem_T vv_di; /* value and name for key */
302 char vv_filler[16]; /* space for LONGEST name below!!! */
303 char vv_flags; /* VV_COMPAT, VV_RO, VV_RO_SBX */
304} vimvars[VV_LEN] =
305{
306 /*
307 * The order here must match the VV_ defines in vim.h!
308 * Initializing a union does not work, leave tv.vval empty to get zero's.
309 */
310 {VV_NAME("count", VAR_NUMBER), VV_COMPAT+VV_RO},
311 {VV_NAME("count1", VAR_NUMBER), VV_RO},
312 {VV_NAME("prevcount", VAR_NUMBER), VV_RO},
313 {VV_NAME("errmsg", VAR_STRING), VV_COMPAT},
314 {VV_NAME("warningmsg", VAR_STRING), 0},
315 {VV_NAME("statusmsg", VAR_STRING), 0},
316 {VV_NAME("shell_error", VAR_NUMBER), VV_COMPAT+VV_RO},
317 {VV_NAME("this_session", VAR_STRING), VV_COMPAT},
318 {VV_NAME("version", VAR_NUMBER), VV_COMPAT+VV_RO},
319 {VV_NAME("lnum", VAR_NUMBER), VV_RO_SBX},
320 {VV_NAME("termresponse", VAR_STRING), VV_RO},
321 {VV_NAME("fname", VAR_STRING), VV_RO},
322 {VV_NAME("lang", VAR_STRING), VV_RO},
323 {VV_NAME("lc_time", VAR_STRING), VV_RO},
324 {VV_NAME("ctype", VAR_STRING), VV_RO},
325 {VV_NAME("charconvert_from", VAR_STRING), VV_RO},
326 {VV_NAME("charconvert_to", VAR_STRING), VV_RO},
327 {VV_NAME("fname_in", VAR_STRING), VV_RO},
328 {VV_NAME("fname_out", VAR_STRING), VV_RO},
329 {VV_NAME("fname_new", VAR_STRING), VV_RO},
330 {VV_NAME("fname_diff", VAR_STRING), VV_RO},
331 {VV_NAME("cmdarg", VAR_STRING), VV_RO},
332 {VV_NAME("foldstart", VAR_NUMBER), VV_RO_SBX},
333 {VV_NAME("foldend", VAR_NUMBER), VV_RO_SBX},
334 {VV_NAME("folddashes", VAR_STRING), VV_RO_SBX},
335 {VV_NAME("foldlevel", VAR_NUMBER), VV_RO_SBX},
336 {VV_NAME("progname", VAR_STRING), VV_RO},
337 {VV_NAME("servername", VAR_STRING), VV_RO},
338 {VV_NAME("dying", VAR_NUMBER), VV_RO},
339 {VV_NAME("exception", VAR_STRING), VV_RO},
340 {VV_NAME("throwpoint", VAR_STRING), VV_RO},
341 {VV_NAME("register", VAR_STRING), VV_RO},
342 {VV_NAME("cmdbang", VAR_NUMBER), VV_RO},
343 {VV_NAME("insertmode", VAR_STRING), VV_RO},
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000344 {VV_NAME("val", VAR_UNKNOWN), VV_RO},
345 {VV_NAME("key", VAR_UNKNOWN), VV_RO},
Bram Moolenaar05159a02005-02-26 23:04:13 +0000346 {VV_NAME("profiling", VAR_NUMBER), VV_RO},
Bram Moolenaar19a09a12005-03-04 23:39:37 +0000347 {VV_NAME("fcs_reason", VAR_STRING), VV_RO},
348 {VV_NAME("fcs_choice", VAR_STRING), 0},
Bram Moolenaare2ac10d2005-03-07 23:26:06 +0000349 {VV_NAME("beval_bufnr", VAR_NUMBER), VV_RO},
350 {VV_NAME("beval_winnr", VAR_NUMBER), VV_RO},
351 {VV_NAME("beval_lnum", VAR_NUMBER), VV_RO},
352 {VV_NAME("beval_col", VAR_NUMBER), VV_RO},
353 {VV_NAME("beval_text", VAR_STRING), VV_RO},
Bram Moolenaar761b1132005-10-03 22:05:45 +0000354 {VV_NAME("scrollstart", VAR_STRING), 0},
Bram Moolenaard5bc83f2005-12-07 21:07:59 +0000355 {VV_NAME("swapname", VAR_STRING), VV_RO},
356 {VV_NAME("swapchoice", VAR_STRING), 0},
Bram Moolenaar63a121b2005-12-11 21:36:39 +0000357 {VV_NAME("swapcommand", VAR_STRING), VV_RO},
Bram Moolenaare659c952011-05-19 17:25:41 +0200358 {VV_NAME("char", VAR_STRING), 0},
Bram Moolenaar219b8702006-11-01 14:32:36 +0000359 {VV_NAME("mouse_win", VAR_NUMBER), 0},
360 {VV_NAME("mouse_lnum", VAR_NUMBER), 0},
361 {VV_NAME("mouse_col", VAR_NUMBER), 0},
Bram Moolenaar8af1fbf2008-01-05 12:35:21 +0000362 {VV_NAME("operator", VAR_STRING), VV_RO},
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000363 {VV_NAME("searchforward", VAR_NUMBER), 0},
Bram Moolenaar8050efa2013-11-08 04:30:20 +0100364 {VV_NAME("hlsearch", VAR_NUMBER), 0},
Bram Moolenaard812df62008-11-09 12:46:09 +0000365 {VV_NAME("oldfiles", VAR_LIST), 0},
Bram Moolenaar727c8762010-10-20 19:17:48 +0200366 {VV_NAME("windowid", VAR_NUMBER), VV_RO},
Bram Moolenaara1706c92014-04-01 19:55:49 +0200367 {VV_NAME("progpath", VAR_STRING), VV_RO},
Bram Moolenaar33570922005-01-25 22:26:29 +0000368};
369
370/* shorthand */
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000371#define vv_type vv_di.di_tv.v_type
372#define vv_nr vv_di.di_tv.vval.v_number
373#define vv_float vv_di.di_tv.vval.v_float
374#define vv_str vv_di.di_tv.vval.v_string
Bram Moolenaard812df62008-11-09 12:46:09 +0000375#define vv_list vv_di.di_tv.vval.v_list
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000376#define vv_tv vv_di.di_tv
Bram Moolenaar33570922005-01-25 22:26:29 +0000377
Bram Moolenaar230bb3f2013-04-24 14:07:45 +0200378static dictitem_T vimvars_var; /* variable used for v: */
Bram Moolenaar33570922005-01-25 22:26:29 +0000379#define vimvarht vimvardict.dv_hashtab
380
Bram Moolenaara40058a2005-07-11 22:42:07 +0000381static void prepare_vimvar __ARGS((int idx, typval_T *save_tv));
382static void restore_vimvar __ARGS((int idx, typval_T *save_tv));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000383static int ex_let_vars __ARGS((char_u *arg, typval_T *tv, int copy, int semicolon, int var_count, char_u *nextchars));
384static char_u *skip_var_list __ARGS((char_u *arg, int *var_count, int *semicolon));
385static char_u *skip_var_one __ARGS((char_u *arg));
Bram Moolenaar7d61a922007-08-30 09:12:23 +0000386static void list_hashtable_vars __ARGS((hashtab_T *ht, char_u *prefix, int empty, int *first));
387static void list_glob_vars __ARGS((int *first));
388static void list_buf_vars __ARGS((int *first));
389static void list_win_vars __ARGS((int *first));
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000390#ifdef FEAT_WINDOWS
Bram Moolenaar7d61a922007-08-30 09:12:23 +0000391static void list_tab_vars __ARGS((int *first));
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000392#endif
Bram Moolenaar7d61a922007-08-30 09:12:23 +0000393static void list_vim_vars __ARGS((int *first));
394static void list_script_vars __ARGS((int *first));
395static void list_func_vars __ARGS((int *first));
396static char_u *list_arg_vars __ARGS((exarg_T *eap, char_u *arg, int *first));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000397static char_u *ex_let_one __ARGS((char_u *arg, typval_T *tv, int copy, char_u *endchars, char_u *op));
398static int check_changedtick __ARGS((char_u *arg));
Bram Moolenaar6d977d62014-01-14 15:24:39 +0100399static char_u *get_lval __ARGS((char_u *name, typval_T *rettv, lval_T *lp, int unlet, int skip, int flags, int fne_flags));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000400static void clear_lval __ARGS((lval_T *lp));
401static void set_var_lval __ARGS((lval_T *lp, char_u *endp, typval_T *rettv, int copy, char_u *op));
402static int tv_op __ARGS((typval_T *tv1, typval_T *tv2, char_u *op));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000403static void list_fix_watch __ARGS((list_T *l, listitem_T *item));
404static void ex_unletlock __ARGS((exarg_T *eap, char_u *argstart, int deep));
405static int do_unlet_var __ARGS((lval_T *lp, char_u *name_end, int forceit));
406static int do_lock_var __ARGS((lval_T *lp, char_u *name_end, int deep, int lock));
407static void item_lock __ARGS((typval_T *tv, int deep, int lock));
408static int tv_islocked __ARGS((typval_T *tv));
409
Bram Moolenaar33570922005-01-25 22:26:29 +0000410static int eval0 __ARGS((char_u *arg, typval_T *rettv, char_u **nextcmd, int evaluate));
411static int eval1 __ARGS((char_u **arg, typval_T *rettv, int evaluate));
412static int eval2 __ARGS((char_u **arg, typval_T *rettv, int evaluate));
413static int eval3 __ARGS((char_u **arg, typval_T *rettv, int evaluate));
414static int eval4 __ARGS((char_u **arg, typval_T *rettv, int evaluate));
415static int eval5 __ARGS((char_u **arg, typval_T *rettv, int evaluate));
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +0000416static int eval6 __ARGS((char_u **arg, typval_T *rettv, int evaluate, int want_string));
417static int eval7 __ARGS((char_u **arg, typval_T *rettv, int evaluate, int want_string));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000418
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000419static int eval_index __ARGS((char_u **arg, typval_T *rettv, int evaluate, int verbose));
Bram Moolenaar33570922005-01-25 22:26:29 +0000420static int get_option_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
421static int get_string_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
422static int get_lit_string_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
423static int get_list_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
Bram Moolenaareddf53b2006-02-27 00:11:10 +0000424static int rettv_list_alloc __ARGS((typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000425static long list_len __ARGS((list_T *l));
Bram Moolenaar67b3f992010-11-10 20:41:57 +0100426static int list_equal __ARGS((list_T *l1, list_T *l2, int ic, int recursive));
427static int dict_equal __ARGS((dict_T *d1, dict_T *d2, int ic, int recursive));
428static int tv_equal __ARGS((typval_T *tv1, typval_T *tv2, int ic, int recursive));
Bram Moolenaara5525202006-03-02 22:52:09 +0000429static long list_find_nr __ARGS((list_T *l, long idx, int *errorp));
Bram Moolenaar33570922005-01-25 22:26:29 +0000430static long list_idx_of_item __ARGS((list_T *l, listitem_T *item));
Bram Moolenaar4463f292005-09-25 22:20:24 +0000431static int list_append_number __ARGS((list_T *l, varnumber_T n));
Bram Moolenaar33570922005-01-25 22:26:29 +0000432static int list_extend __ARGS((list_T *l1, list_T *l2, listitem_T *bef));
433static int list_concat __ARGS((list_T *l1, list_T *l2, typval_T *tv));
Bram Moolenaar81bf7082005-02-12 14:31:42 +0000434static list_T *list_copy __ARGS((list_T *orig, int deep, int copyID));
Bram Moolenaarb71eaae2006-01-20 23:10:18 +0000435static char_u *list2string __ARGS((typval_T *tv, int copyID));
Bram Moolenaar3fe37d62012-02-06 00:13:22 +0100436static int list_join_inner __ARGS((garray_T *gap, list_T *l, char_u *sep, int echo_style, int copyID, garray_T *join_gap));
Bram Moolenaarb71eaae2006-01-20 23:10:18 +0000437static int list_join __ARGS((garray_T *gap, list_T *l, char_u *sep, int echo, int copyID));
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +0000438static int free_unref_items __ARGS((int copyID));
Bram Moolenaara800b422010-06-27 01:15:55 +0200439static int rettv_dict_alloc __ARGS((typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000440static dictitem_T *dictitem_copy __ARGS((dictitem_T *org));
441static void dictitem_remove __ARGS((dict_T *dict, dictitem_T *item));
Bram Moolenaar81bf7082005-02-12 14:31:42 +0000442static dict_T *dict_copy __ARGS((dict_T *orig, int deep, int copyID));
Bram Moolenaar33570922005-01-25 22:26:29 +0000443static long dict_len __ARGS((dict_T *d));
Bram Moolenaarb71eaae2006-01-20 23:10:18 +0000444static char_u *dict2string __ARGS((typval_T *tv, int copyID));
Bram Moolenaar33570922005-01-25 22:26:29 +0000445static int get_dict_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
Bram Moolenaarb71eaae2006-01-20 23:10:18 +0000446static char_u *echo_string __ARGS((typval_T *tv, char_u **tofree, char_u *numbuf, int copyID));
447static char_u *tv2string __ARGS((typval_T *tv, char_u **tofree, char_u *numbuf, int copyID));
Bram Moolenaar33570922005-01-25 22:26:29 +0000448static char_u *string_quote __ARGS((char_u *str, int function));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000449#ifdef FEAT_FLOAT
450static int string2float __ARGS((char_u *text, float_T *value));
451#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000452static int get_env_tv __ARGS((char_u **arg, typval_T *rettv, int evaluate));
453static int find_internal_func __ARGS((char_u *name));
Bram Moolenaar8822a9c2014-01-14 19:44:34 +0100454static char_u *deref_func_name __ARGS((char_u *name, int *lenp, int no_autoload));
Bram Moolenaar33570922005-01-25 22:26:29 +0000455static int get_func_tv __ARGS((char_u *name, int len, typval_T *rettv, char_u **arg, linenr_T firstline, linenr_T lastline, int *doesrange, int evaluate, dict_T *selfdict));
Bram Moolenaarf506c5b2010-06-22 06:28:58 +0200456static int call_func __ARGS((char_u *funcname, int len, typval_T *rettv, int argcount, typval_T *argvars, linenr_T firstline, linenr_T lastline, int *doesrange, int evaluate, dict_T *selfdict));
Bram Moolenaar89d40322006-08-29 15:30:07 +0000457static void emsg_funcname __ARGS((char *ermsg, char_u *name));
Bram Moolenaar05bb9532008-07-04 09:44:11 +0000458static int non_zero_arg __ARGS((typval_T *argvars));
Bram Moolenaar33570922005-01-25 22:26:29 +0000459
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000460#ifdef FEAT_FLOAT
461static void f_abs __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200462static void f_acos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000463#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000464static void f_add __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard6e256c2011-12-14 15:32:50 +0100465static void f_and __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000466static void f_append __ARGS((typval_T *argvars, typval_T *rettv));
467static void f_argc __ARGS((typval_T *argvars, typval_T *rettv));
468static void f_argidx __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2d1fe052014-05-28 18:22:57 +0200469static void f_arglistid __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000470static void f_argv __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000471#ifdef FEAT_FLOAT
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200472static void f_asin __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000473static void f_atan __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200474static void f_atan2 __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000475#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000476static void f_browse __ARGS((typval_T *argvars, typval_T *rettv));
477static void f_browsedir __ARGS((typval_T *argvars, typval_T *rettv));
478static void f_bufexists __ARGS((typval_T *argvars, typval_T *rettv));
479static void f_buflisted __ARGS((typval_T *argvars, typval_T *rettv));
480static void f_bufloaded __ARGS((typval_T *argvars, typval_T *rettv));
481static void f_bufname __ARGS((typval_T *argvars, typval_T *rettv));
482static void f_bufnr __ARGS((typval_T *argvars, typval_T *rettv));
483static void f_bufwinnr __ARGS((typval_T *argvars, typval_T *rettv));
484static void f_byte2line __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +0100485static void byteidx __ARGS((typval_T *argvars, typval_T *rettv, int comp));
Bram Moolenaar33570922005-01-25 22:26:29 +0000486static void f_byteidx __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +0100487static void f_byteidxcomp __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000488static void f_call __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000489#ifdef FEAT_FLOAT
490static void f_ceil __ARGS((typval_T *argvars, typval_T *rettv));
491#endif
Bram Moolenaarf0acfce2006-03-17 23:21:19 +0000492static void f_changenr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000493static void f_char2nr __ARGS((typval_T *argvars, typval_T *rettv));
494static void f_cindent __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6ee10162007-07-26 20:58:42 +0000495static void f_clearmatches __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000496static void f_col __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar572cb562005-08-05 21:35:02 +0000497#if defined(FEAT_INS_EXPAND)
Bram Moolenaarade00832006-03-10 21:46:58 +0000498static void f_complete __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar572cb562005-08-05 21:35:02 +0000499static void f_complete_add __ARGS((typval_T *argvars, typval_T *rettv));
500static void f_complete_check __ARGS((typval_T *argvars, typval_T *rettv));
501#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000502static void f_confirm __ARGS((typval_T *argvars, typval_T *rettv));
503static void f_copy __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000504#ifdef FEAT_FLOAT
505static void f_cos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200506static void f_cosh __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000507#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000508static void f_count __ARGS((typval_T *argvars, typval_T *rettv));
509static void f_cscope_connection __ARGS((typval_T *argvars, typval_T *rettv));
510static void f_cursor __ARGS((typval_T *argsvars, typval_T *rettv));
511static void f_deepcopy __ARGS((typval_T *argvars, typval_T *rettv));
512static void f_delete __ARGS((typval_T *argvars, typval_T *rettv));
513static void f_did_filetype __ARGS((typval_T *argvars, typval_T *rettv));
514static void f_diff_filler __ARGS((typval_T *argvars, typval_T *rettv));
515static void f_diff_hlID __ARGS((typval_T *argvars, typval_T *rettv));
516static void f_empty __ARGS((typval_T *argvars, typval_T *rettv));
517static void f_escape __ARGS((typval_T *argvars, typval_T *rettv));
518static void f_eval __ARGS((typval_T *argvars, typval_T *rettv));
519static void f_eventhandler __ARGS((typval_T *argvars, typval_T *rettv));
520static void f_executable __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarc7f02552014-04-01 21:00:59 +0200521static void f_exepath __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000522static void f_exists __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200523#ifdef FEAT_FLOAT
524static void f_exp __ARGS((typval_T *argvars, typval_T *rettv));
525#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000526static void f_expand __ARGS((typval_T *argvars, typval_T *rettv));
527static void f_extend __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarf9393ef2006-04-24 19:47:27 +0000528static void f_feedkeys __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000529static void f_filereadable __ARGS((typval_T *argvars, typval_T *rettv));
530static void f_filewritable __ARGS((typval_T *argvars, typval_T *rettv));
531static void f_filter __ARGS((typval_T *argvars, typval_T *rettv));
532static void f_finddir __ARGS((typval_T *argvars, typval_T *rettv));
533static void f_findfile __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000534#ifdef FEAT_FLOAT
535static void f_float2nr __ARGS((typval_T *argvars, typval_T *rettv));
536static void f_floor __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200537static void f_fmod __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000538#endif
Bram Moolenaaraebaf892008-05-28 14:49:58 +0000539static void f_fnameescape __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000540static void f_fnamemodify __ARGS((typval_T *argvars, typval_T *rettv));
541static void f_foldclosed __ARGS((typval_T *argvars, typval_T *rettv));
542static void f_foldclosedend __ARGS((typval_T *argvars, typval_T *rettv));
543static void f_foldlevel __ARGS((typval_T *argvars, typval_T *rettv));
544static void f_foldtext __ARGS((typval_T *argvars, typval_T *rettv));
545static void f_foldtextresult __ARGS((typval_T *argvars, typval_T *rettv));
546static void f_foreground __ARGS((typval_T *argvars, typval_T *rettv));
547static void f_function __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000548static void f_garbagecollect __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000549static void f_get __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar80fc0432005-07-20 22:06:07 +0000550static void f_getbufline __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000551static void f_getbufvar __ARGS((typval_T *argvars, typval_T *rettv));
552static void f_getchar __ARGS((typval_T *argvars, typval_T *rettv));
553static void f_getcharmod __ARGS((typval_T *argvars, typval_T *rettv));
554static void f_getcmdline __ARGS((typval_T *argvars, typval_T *rettv));
555static void f_getcmdpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +0000556static void f_getcmdtype __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c1329c2014-08-06 13:36:59 +0200557static void f_getcmdwintype __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000558static void f_getcwd __ARGS((typval_T *argvars, typval_T *rettv));
559static void f_getfontname __ARGS((typval_T *argvars, typval_T *rettv));
560static void f_getfperm __ARGS((typval_T *argvars, typval_T *rettv));
561static void f_getfsize __ARGS((typval_T *argvars, typval_T *rettv));
562static void f_getftime __ARGS((typval_T *argvars, typval_T *rettv));
563static void f_getftype __ARGS((typval_T *argvars, typval_T *rettv));
564static void f_getline __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6ee10162007-07-26 20:58:42 +0000565static void f_getmatches __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar18081e32008-02-20 19:11:07 +0000566static void f_getpid __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +0200567static void f_getcurpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaara5525202006-03-02 22:52:09 +0000568static void f_getpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2641f772005-03-25 21:58:17 +0000569static void f_getqflist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000570static void f_getreg __ARGS((typval_T *argvars, typval_T *rettv));
571static void f_getregtype __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar06b5d512010-05-22 15:37:44 +0200572static void f_gettabvar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar99ebf042006-04-15 20:28:54 +0000573static void f_gettabwinvar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000574static void f_getwinposx __ARGS((typval_T *argvars, typval_T *rettv));
575static void f_getwinposy __ARGS((typval_T *argvars, typval_T *rettv));
576static void f_getwinvar __ARGS((typval_T *argvars, typval_T *rettv));
577static void f_glob __ARGS((typval_T *argvars, typval_T *rettv));
578static void f_globpath __ARGS((typval_T *argvars, typval_T *rettv));
579static void f_has __ARGS((typval_T *argvars, typval_T *rettv));
580static void f_has_key __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard267b9c2007-04-26 15:06:45 +0000581static void f_haslocaldir __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000582static void f_hasmapto __ARGS((typval_T *argvars, typval_T *rettv));
583static void f_histadd __ARGS((typval_T *argvars, typval_T *rettv));
584static void f_histdel __ARGS((typval_T *argvars, typval_T *rettv));
585static void f_histget __ARGS((typval_T *argvars, typval_T *rettv));
586static void f_histnr __ARGS((typval_T *argvars, typval_T *rettv));
587static void f_hlID __ARGS((typval_T *argvars, typval_T *rettv));
588static void f_hlexists __ARGS((typval_T *argvars, typval_T *rettv));
589static void f_hostname __ARGS((typval_T *argvars, typval_T *rettv));
590static void f_iconv __ARGS((typval_T *argvars, typval_T *rettv));
591static void f_indent __ARGS((typval_T *argvars, typval_T *rettv));
592static void f_index __ARGS((typval_T *argvars, typval_T *rettv));
593static void f_input __ARGS((typval_T *argvars, typval_T *rettv));
594static void f_inputdialog __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6efa2b32005-09-10 19:26:26 +0000595static void f_inputlist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000596static void f_inputrestore __ARGS((typval_T *argvars, typval_T *rettv));
597static void f_inputsave __ARGS((typval_T *argvars, typval_T *rettv));
598static void f_inputsecret __ARGS((typval_T *argvars, typval_T *rettv));
599static void f_insert __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard6e256c2011-12-14 15:32:50 +0100600static void f_invert __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000601static void f_isdirectory __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2e6aff32005-01-31 19:25:36 +0000602static void f_islocked __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000603static void f_items __ARGS((typval_T *argvars, typval_T *rettv));
604static void f_join __ARGS((typval_T *argvars, typval_T *rettv));
605static void f_keys __ARGS((typval_T *argvars, typval_T *rettv));
606static void f_last_buffer_nr __ARGS((typval_T *argvars, typval_T *rettv));
607static void f_len __ARGS((typval_T *argvars, typval_T *rettv));
608static void f_libcall __ARGS((typval_T *argvars, typval_T *rettv));
609static void f_libcallnr __ARGS((typval_T *argvars, typval_T *rettv));
610static void f_line __ARGS((typval_T *argvars, typval_T *rettv));
611static void f_line2byte __ARGS((typval_T *argvars, typval_T *rettv));
612static void f_lispindent __ARGS((typval_T *argvars, typval_T *rettv));
613static void f_localtime __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000614#ifdef FEAT_FLOAT
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200615static void f_log __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000616static void f_log10 __ARGS((typval_T *argvars, typval_T *rettv));
617#endif
Bram Moolenaar1dced572012-04-05 16:54:08 +0200618#ifdef FEAT_LUA
619static void f_luaeval __ARGS((typval_T *argvars, typval_T *rettv));
620#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000621static void f_map __ARGS((typval_T *argvars, typval_T *rettv));
622static void f_maparg __ARGS((typval_T *argvars, typval_T *rettv));
623static void f_mapcheck __ARGS((typval_T *argvars, typval_T *rettv));
624static void f_match __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6ee10162007-07-26 20:58:42 +0000625static void f_matchadd __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarb3414592014-06-17 17:48:32 +0200626static void f_matchaddpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000627static void f_matcharg __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6ee10162007-07-26 20:58:42 +0000628static void f_matchdelete __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000629static void f_matchend __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000630static void f_matchlist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000631static void f_matchstr __ARGS((typval_T *argvars, typval_T *rettv));
632static void f_max __ARGS((typval_T *argvars, typval_T *rettv));
633static void f_min __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000634#ifdef vim_mkdir
635static void f_mkdir __ARGS((typval_T *argvars, typval_T *rettv));
636#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000637static void f_mode __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar7e506b62010-01-19 15:55:06 +0100638#ifdef FEAT_MZSCHEME
639static void f_mzeval __ARGS((typval_T *argvars, typval_T *rettv));
640#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000641static void f_nextnonblank __ARGS((typval_T *argvars, typval_T *rettv));
642static void f_nr2char __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard6e256c2011-12-14 15:32:50 +0100643static void f_or __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000644static void f_pathshorten __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000645#ifdef FEAT_FLOAT
646static void f_pow __ARGS((typval_T *argvars, typval_T *rettv));
647#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000648static void f_prevnonblank __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar4be06f92005-07-29 22:36:03 +0000649static void f_printf __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +0000650static void f_pumvisible __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb913952012-06-29 12:54:53 +0200651#ifdef FEAT_PYTHON3
652static void f_py3eval __ARGS((typval_T *argvars, typval_T *rettv));
653#endif
654#ifdef FEAT_PYTHON
655static void f_pyeval __ARGS((typval_T *argvars, typval_T *rettv));
656#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000657static void f_range __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000658static void f_readfile __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaare580b0c2006-03-21 21:33:03 +0000659static void f_reltime __ARGS((typval_T *argvars, typval_T *rettv));
660static void f_reltimestr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000661static void f_remote_expr __ARGS((typval_T *argvars, typval_T *rettv));
662static void f_remote_foreground __ARGS((typval_T *argvars, typval_T *rettv));
663static void f_remote_peek __ARGS((typval_T *argvars, typval_T *rettv));
664static void f_remote_read __ARGS((typval_T *argvars, typval_T *rettv));
665static void f_remote_send __ARGS((typval_T *argvars, typval_T *rettv));
666static void f_remove __ARGS((typval_T *argvars, typval_T *rettv));
667static void f_rename __ARGS((typval_T *argvars, typval_T *rettv));
668static void f_repeat __ARGS((typval_T *argvars, typval_T *rettv));
669static void f_resolve __ARGS((typval_T *argvars, typval_T *rettv));
670static void f_reverse __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000671#ifdef FEAT_FLOAT
672static void f_round __ARGS((typval_T *argvars, typval_T *rettv));
673#endif
Bram Moolenaar9a773482013-06-11 18:40:13 +0200674static void f_screenattr __ARGS((typval_T *argvars, typval_T *rettv));
675static void f_screenchar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar9750bb12012-12-05 16:10:42 +0100676static void f_screencol __ARGS((typval_T *argvars, typval_T *rettv));
677static void f_screenrow __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000678static void f_search __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardd2436f2005-09-05 22:14:46 +0000679static void f_searchdecl __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000680static void f_searchpair __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +0000681static void f_searchpairpos __ARGS((typval_T *argvars, typval_T *rettv));
682static void f_searchpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000683static void f_server2client __ARGS((typval_T *argvars, typval_T *rettv));
684static void f_serverlist __ARGS((typval_T *argvars, typval_T *rettv));
685static void f_setbufvar __ARGS((typval_T *argvars, typval_T *rettv));
686static void f_setcmdpos __ARGS((typval_T *argvars, typval_T *rettv));
687static void f_setline __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar17c7c012006-01-26 22:25:15 +0000688static void f_setloclist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar6ee10162007-07-26 20:58:42 +0000689static void f_setmatches __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar0e34f622006-03-03 23:00:03 +0000690static void f_setpos __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2641f772005-03-25 21:58:17 +0000691static void f_setqflist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000692static void f_setreg __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar06b5d512010-05-22 15:37:44 +0200693static void f_settabvar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar99ebf042006-04-15 20:28:54 +0000694static void f_settabwinvar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000695static void f_setwinvar __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaaraf9aeb92013-02-13 17:35:04 +0100696#ifdef FEAT_CRYPT
697static void f_sha256 __ARGS((typval_T *argvars, typval_T *rettv));
698#endif /* FEAT_CRYPT */
Bram Moolenaar60a495f2006-10-03 12:44:42 +0000699static void f_shellescape __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2d17fa32012-10-21 00:45:18 +0200700static void f_shiftwidth __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000701static void f_simplify __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000702#ifdef FEAT_FLOAT
703static void f_sin __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200704static void f_sinh __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000705#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000706static void f_sort __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +0000707static void f_soundfold __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard857f0e2005-06-21 22:37:39 +0000708static void f_spellbadword __ARGS((typval_T *argvars, typval_T *rettv));
709static void f_spellsuggest __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000710static void f_split __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000711#ifdef FEAT_FLOAT
712static void f_sqrt __ARGS((typval_T *argvars, typval_T *rettv));
713static void f_str2float __ARGS((typval_T *argvars, typval_T *rettv));
714#endif
Bram Moolenaar2c932302006-03-18 21:42:09 +0000715static void f_str2nr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar72597a52010-07-18 15:31:08 +0200716static void f_strchars __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000717#ifdef HAVE_STRFTIME
718static void f_strftime __ARGS((typval_T *argvars, typval_T *rettv));
719#endif
720static void f_stridx __ARGS((typval_T *argvars, typval_T *rettv));
721static void f_string __ARGS((typval_T *argvars, typval_T *rettv));
722static void f_strlen __ARGS((typval_T *argvars, typval_T *rettv));
723static void f_strpart __ARGS((typval_T *argvars, typval_T *rettv));
724static void f_strridx __ARGS((typval_T *argvars, typval_T *rettv));
725static void f_strtrans __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardc536092010-07-18 15:45:49 +0200726static void f_strdisplaywidth __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar72597a52010-07-18 15:31:08 +0200727static void f_strwidth __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000728static void f_submatch __ARGS((typval_T *argvars, typval_T *rettv));
729static void f_substitute __ARGS((typval_T *argvars, typval_T *rettv));
730static void f_synID __ARGS((typval_T *argvars, typval_T *rettv));
731static void f_synIDattr __ARGS((typval_T *argvars, typval_T *rettv));
732static void f_synIDtrans __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar9d188ab2008-01-10 21:24:39 +0000733static void f_synstack __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar7510fe72010-07-25 12:46:44 +0200734static void f_synconcealed __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000735static void f_system __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar39c29ed2014-04-05 19:44:40 +0200736static void f_systemlist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarfaa959a2006-02-20 21:37:40 +0000737static void f_tabpagebuflist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar7e8fd632006-02-18 22:14:51 +0000738static void f_tabpagenr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaarfaa959a2006-02-20 21:37:40 +0000739static void f_tabpagewinnr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar19a09a12005-03-04 23:39:37 +0000740static void f_taglist __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard43b6cf2005-09-09 19:53:42 +0000741static void f_tagfiles __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000742static void f_tempname __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard52d9742005-08-21 22:20:28 +0000743static void f_test __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaardb7c6862010-05-21 16:33:48 +0200744#ifdef FEAT_FLOAT
745static void f_tan __ARGS((typval_T *argvars, typval_T *rettv));
746static void f_tanh __ARGS((typval_T *argvars, typval_T *rettv));
747#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000748static void f_tolower __ARGS((typval_T *argvars, typval_T *rettv));
749static void f_toupper __ARGS((typval_T *argvars, typval_T *rettv));
750static void f_tr __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000751#ifdef FEAT_FLOAT
752static void f_trunc __ARGS((typval_T *argvars, typval_T *rettv));
753#endif
Bram Moolenaar33570922005-01-25 22:26:29 +0000754static void f_type __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaara17d4c12010-05-30 18:30:36 +0200755static void f_undofile __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaara800b422010-06-27 01:15:55 +0200756static void f_undotree __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar327aa022014-03-25 18:24:23 +0100757static void f_uniq __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000758static void f_values __ARGS((typval_T *argvars, typval_T *rettv));
759static void f_virtcol __ARGS((typval_T *argvars, typval_T *rettv));
760static void f_visualmode __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar8738fc12013-02-20 17:59:11 +0100761static void f_wildmenumode __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000762static void f_winbufnr __ARGS((typval_T *argvars, typval_T *rettv));
763static void f_wincol __ARGS((typval_T *argvars, typval_T *rettv));
764static void f_winheight __ARGS((typval_T *argvars, typval_T *rettv));
765static void f_winline __ARGS((typval_T *argvars, typval_T *rettv));
766static void f_winnr __ARGS((typval_T *argvars, typval_T *rettv));
767static void f_winrestcmd __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar768b8c42006-03-04 21:58:33 +0000768static void f_winrestview __ARGS((typval_T *argvars, typval_T *rettv));
769static void f_winsaveview __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000770static void f_winwidth __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000771static void f_writefile __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaard6e256c2011-12-14 15:32:50 +0100772static void f_xor __ARGS((typval_T *argvars, typval_T *rettv));
Bram Moolenaar33570922005-01-25 22:26:29 +0000773
Bram Moolenaar493c1782014-05-28 14:34:46 +0200774static int list2fpos __ARGS((typval_T *arg, pos_T *posp, int *fnump, colnr_T *curswantp));
Bram Moolenaar477933c2007-07-17 14:32:23 +0000775static pos_T *var2fpos __ARGS((typval_T *varp, int dollar_lnum, int *fnum));
Bram Moolenaar33570922005-01-25 22:26:29 +0000776static int get_env_len __ARGS((char_u **arg));
777static int get_id_len __ARGS((char_u **arg));
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000778static int get_name_len __ARGS((char_u **arg, char_u **alias, int evaluate, int verbose));
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +0000779static char_u *find_name_end __ARGS((char_u *arg, char_u **expr_start, char_u **expr_end, int flags));
780#define FNE_INCL_BR 1 /* find_name_end(): include [] in name */
781#define FNE_CHECK_START 2 /* find_name_end(): check name starts with
782 valid character */
Bram Moolenaara40058a2005-07-11 22:42:07 +0000783static char_u * make_expanded_name __ARGS((char_u *in_start, char_u *expr_start, char_u *expr_end, char_u *in_end));
Bram Moolenaar33570922005-01-25 22:26:29 +0000784static int eval_isnamec __ARGS((int c));
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +0000785static int eval_isnamec1 __ARGS((int c));
Bram Moolenaar6d977d62014-01-14 15:24:39 +0100786static int get_var_tv __ARGS((char_u *name, int len, typval_T *rettv, int verbose, int no_autoload));
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000787static int handle_subscript __ARGS((char_u **arg, typval_T *rettv, int evaluate, int verbose));
Bram Moolenaar33570922005-01-25 22:26:29 +0000788static typval_T *alloc_tv __ARGS((void));
789static typval_T *alloc_string_tv __ARGS((char_u *string));
Bram Moolenaar33570922005-01-25 22:26:29 +0000790static void init_tv __ARGS((typval_T *varp));
791static long get_tv_number __ARGS((typval_T *varp));
792static linenr_T get_tv_lnum __ARGS((typval_T *argvars));
Bram Moolenaar661b1822005-07-28 22:36:45 +0000793static linenr_T get_tv_lnum_buf __ARGS((typval_T *argvars, buf_T *buf));
Bram Moolenaar33570922005-01-25 22:26:29 +0000794static char_u *get_tv_string __ARGS((typval_T *varp));
795static char_u *get_tv_string_buf __ARGS((typval_T *varp, char_u *buf));
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +0000796static char_u *get_tv_string_buf_chk __ARGS((typval_T *varp, char_u *buf));
Bram Moolenaar6d977d62014-01-14 15:24:39 +0100797static dictitem_T *find_var __ARGS((char_u *name, hashtab_T **htp, int no_autoload));
798static dictitem_T *find_var_in_ht __ARGS((hashtab_T *ht, int htname, char_u *varname, int no_autoload));
Bram Moolenaar33570922005-01-25 22:26:29 +0000799static hashtab_T *find_var_ht __ARGS((char_u *name, char_u **varname));
800static void vars_clear_ext __ARGS((hashtab_T *ht, int free_val));
801static void delete_var __ARGS((hashtab_T *ht, hashitem_T *hi));
Bram Moolenaar7d61a922007-08-30 09:12:23 +0000802static void list_one_var __ARGS((dictitem_T *v, char_u *prefix, int *first));
803static void list_one_var_a __ARGS((char_u *prefix, char_u *name, int type, char_u *string, int *first));
Bram Moolenaar33570922005-01-25 22:26:29 +0000804static void set_var __ARGS((char_u *name, typval_T *varp, int copy));
805static int var_check_ro __ARGS((int flags, char_u *name));
Bram Moolenaar4e957af2006-09-02 11:41:07 +0000806static int var_check_fixed __ARGS((int flags, char_u *name));
Bram Moolenaar4228bec2011-03-27 16:03:15 +0200807static int var_check_func_name __ARGS((char_u *name, int new_var));
808static int valid_varname __ARGS((char_u *varname));
Bram Moolenaar2e6aff32005-01-31 19:25:36 +0000809static int tv_check_lock __ARGS((int lock, char_u *name));
Bram Moolenaar81bf7082005-02-12 14:31:42 +0000810static int item_copy __ARGS((typval_T *from, typval_T *to, int deep, int copyID));
Bram Moolenaar33570922005-01-25 22:26:29 +0000811static char_u *find_option_end __ARGS((char_u **arg, int *opt_flags));
812static char_u *trans_function_name __ARGS((char_u **pp, int skip, int flags, funcdict_T *fd));
813static int eval_fname_script __ARGS((char_u *p));
814static int eval_fname_sid __ARGS((char_u *p));
815static void list_func_head __ARGS((ufunc_T *fp, int indent));
Bram Moolenaar33570922005-01-25 22:26:29 +0000816static ufunc_T *find_func __ARGS((char_u *name));
817static int function_exists __ARGS((char_u *name));
Bram Moolenaar9bdfb002014-04-23 17:43:42 +0200818static int builtin_function __ARGS((char_u *name, int len));
Bram Moolenaar05159a02005-02-26 23:04:13 +0000819#ifdef FEAT_PROFILE
820static void func_do_profile __ARGS((ufunc_T *fp));
Bram Moolenaar73830342005-02-28 22:48:19 +0000821static void prof_sort_list __ARGS((FILE *fd, ufunc_T **sorttab, int st_len, char *title, int prefer_self));
822static void prof_func_line __ARGS((FILE *fd, int count, proftime_T *total, proftime_T *self, int prefer_self));
823static int
824# ifdef __BORLANDC__
825 _RTLENTRYF
826# endif
827 prof_total_cmp __ARGS((const void *s1, const void *s2));
828static int
829# ifdef __BORLANDC__
830 _RTLENTRYF
831# endif
832 prof_self_cmp __ARGS((const void *s1, const void *s2));
Bram Moolenaar05159a02005-02-26 23:04:13 +0000833#endif
Bram Moolenaar018acca2013-05-30 13:37:28 +0200834static int script_autoload __ARGS((char_u *name, int reload));
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000835static char_u *autoload_name __ARGS((char_u *name));
Bram Moolenaara40058a2005-07-11 22:42:07 +0000836static void cat_func_name __ARGS((char_u *buf, ufunc_T *fp));
Bram Moolenaar33570922005-01-25 22:26:29 +0000837static void func_free __ARGS((ufunc_T *fp));
Bram Moolenaar33570922005-01-25 22:26:29 +0000838static void call_user_func __ARGS((ufunc_T *fp, int argcount, typval_T *argvars, typval_T *rettv, linenr_T firstline, linenr_T lastline, dict_T *selfdict));
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +0000839static int can_free_funccal __ARGS((funccall_T *fc, int copyID)) ;
840static void free_funccal __ARGS((funccall_T *fc, int free_val));
Bram Moolenaar33570922005-01-25 22:26:29 +0000841static void add_nr_var __ARGS((dict_T *dp, dictitem_T *v, char *name, varnumber_T nr));
Bram Moolenaar99ebf042006-04-15 20:28:54 +0000842static win_T *find_win_by_nr __ARGS((typval_T *vp, tabpage_T *tp));
843static void getwinvar __ARGS((typval_T *argvars, typval_T *rettv, int off));
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +0000844static int searchpair_cmn __ARGS((typval_T *argvars, pos_T *match_pos));
Bram Moolenaar362e1a32006-03-06 23:29:24 +0000845static int search_cmn __ARGS((typval_T *argvars, pos_T *match_pos, int *flagsp));
Bram Moolenaar99ebf042006-04-15 20:28:54 +0000846static void setwinvar __ARGS((typval_T *argvars, typval_T *rettv, int off));
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +0200847static int write_list __ARGS((FILE *fd, list_T *list, int binary));
Bram Moolenaar39c29ed2014-04-05 19:44:40 +0200848static void get_cmd_output_as_rettv __ARGS((typval_T *argvars, typval_T *rettv, int retlist));
Bram Moolenaar33570922005-01-25 22:26:29 +0000849
Bram Moolenaar2c704a72010-06-03 21:17:25 +0200850
851#ifdef EBCDIC
852static int compare_func_name __ARGS((const void *s1, const void *s2));
853static void sortFunctions __ARGS(());
854#endif
855
Bram Moolenaar33570922005-01-25 22:26:29 +0000856/*
857 * Initialize the global and v: variables.
Bram Moolenaara7043832005-01-21 11:56:39 +0000858 */
859 void
860eval_init()
861{
Bram Moolenaar33570922005-01-25 22:26:29 +0000862 int i;
863 struct vimvar *p;
864
Bram Moolenaarbdb62052012-07-16 17:31:53 +0200865 init_var_dict(&globvardict, &globvars_var, VAR_DEF_SCOPE);
866 init_var_dict(&vimvardict, &vimvars_var, VAR_SCOPE);
Bram Moolenaar32f649e2011-04-11 13:46:13 +0200867 vimvardict.dv_lock = VAR_FIXED;
Bram Moolenaar532c7802005-01-27 14:44:31 +0000868 hash_init(&compat_hashtab);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000869 hash_init(&func_hashtab);
Bram Moolenaar33570922005-01-25 22:26:29 +0000870
871 for (i = 0; i < VV_LEN; ++i)
872 {
873 p = &vimvars[i];
874 STRCPY(p->vv_di.di_key, p->vv_name);
875 if (p->vv_flags & VV_RO)
876 p->vv_di.di_flags = DI_FLAGS_RO | DI_FLAGS_FIX;
877 else if (p->vv_flags & VV_RO_SBX)
878 p->vv_di.di_flags = DI_FLAGS_RO_SBX | DI_FLAGS_FIX;
879 else
880 p->vv_di.di_flags = DI_FLAGS_FIX;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +0000881
882 /* add to v: scope dict, unless the value is not always available */
883 if (p->vv_type != VAR_UNKNOWN)
884 hash_add(&vimvarht, p->vv_di.di_key);
Bram Moolenaar33570922005-01-25 22:26:29 +0000885 if (p->vv_flags & VV_COMPAT)
Bram Moolenaar532c7802005-01-27 14:44:31 +0000886 /* add to compat scope dict */
887 hash_add(&compat_hashtab, p->vv_di.di_key);
Bram Moolenaar33570922005-01-25 22:26:29 +0000888 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000889 set_vim_var_nr(VV_SEARCHFORWARD, 1L);
Bram Moolenaar8050efa2013-11-08 04:30:20 +0100890 set_vim_var_nr(VV_HLSEARCH, 1L);
Bram Moolenaarb429cde2012-04-25 18:24:29 +0200891 set_reg_var(0); /* default for v:register is not 0 but '"' */
Bram Moolenaar2c704a72010-06-03 21:17:25 +0200892
893#ifdef EBCDIC
894 /*
Bram Moolenaar195ea0f2011-11-30 14:57:31 +0100895 * Sort the function table, to enable binary search.
Bram Moolenaar2c704a72010-06-03 21:17:25 +0200896 */
897 sortFunctions();
898#endif
Bram Moolenaara7043832005-01-21 11:56:39 +0000899}
900
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +0000901#if defined(EXITFREE) || defined(PROTO)
902 void
903eval_clear()
904{
905 int i;
906 struct vimvar *p;
907
908 for (i = 0; i < VV_LEN; ++i)
909 {
910 p = &vimvars[i];
911 if (p->vv_di.di_tv.v_type == VAR_STRING)
Bram Moolenaard9fba312005-06-26 22:34:35 +0000912 {
Bram Moolenaar12193212008-11-09 16:22:01 +0000913 vim_free(p->vv_str);
914 p->vv_str = NULL;
Bram Moolenaard812df62008-11-09 12:46:09 +0000915 }
916 else if (p->vv_di.di_tv.v_type == VAR_LIST)
917 {
918 list_unref(p->vv_list);
919 p->vv_list = NULL;
Bram Moolenaard9fba312005-06-26 22:34:35 +0000920 }
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +0000921 }
922 hash_clear(&vimvarht);
Bram Moolenaar0f71c6d2008-11-12 14:29:28 +0000923 hash_init(&vimvarht); /* garbage_collect() will access it */
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +0000924 hash_clear(&compat_hashtab);
925
Bram Moolenaard9fba312005-06-26 22:34:35 +0000926 free_scriptnames();
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +0100927# if defined(FEAT_CMDL_COMPL)
Bram Moolenaar9b486ca2011-05-19 18:26:40 +0200928 free_locales();
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +0100929# endif
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +0000930
931 /* global variables */
932 vars_clear(&globvarht);
Bram Moolenaard9fba312005-06-26 22:34:35 +0000933
Bram Moolenaaraa35dd12006-04-29 22:03:41 +0000934 /* autoloaded script names */
935 ga_clear_strings(&ga_loaded);
936
Bram Moolenaarcca74132013-09-25 21:00:28 +0200937 /* Script-local variables. First clear all the variables and in a second
938 * loop free the scriptvar_T, because a variable in one script might hold
939 * a reference to the whole scope of another script. */
Bram Moolenaar9577c3e2010-05-14 12:16:25 +0200940 for (i = 1; i <= ga_scripts.ga_len; ++i)
Bram Moolenaar9577c3e2010-05-14 12:16:25 +0200941 vars_clear(&SCRIPT_VARS(i));
Bram Moolenaarcca74132013-09-25 21:00:28 +0200942 for (i = 1; i <= ga_scripts.ga_len; ++i)
Bram Moolenaar9577c3e2010-05-14 12:16:25 +0200943 vim_free(SCRIPT_SV(i));
Bram Moolenaar9577c3e2010-05-14 12:16:25 +0200944 ga_clear(&ga_scripts);
945
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +0000946 /* unreferenced lists and dicts */
947 (void)garbage_collect();
Bram Moolenaar8c8de832008-06-24 22:58:06 +0000948
949 /* functions */
950 free_all_functions();
951 hash_clear(&func_hashtab);
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +0000952}
953#endif
954
Bram Moolenaar9ef486d2005-01-17 22:23:00 +0000955/*
Bram Moolenaar071d4272004-06-13 20:20:40 +0000956 * Return the name of the executed function.
957 */
958 char_u *
959func_name(cookie)
960 void *cookie;
961{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +0000962 return ((funccall_T *)cookie)->func->uf_name;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000963}
964
965/*
966 * Return the address holding the next breakpoint line for a funccall cookie.
967 */
968 linenr_T *
969func_breakpoint(cookie)
970 void *cookie;
971{
Bram Moolenaar33570922005-01-25 22:26:29 +0000972 return &((funccall_T *)cookie)->breakpoint;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000973}
974
975/*
976 * Return the address holding the debug tick for a funccall cookie.
977 */
978 int *
979func_dbg_tick(cookie)
980 void *cookie;
981{
Bram Moolenaar33570922005-01-25 22:26:29 +0000982 return &((funccall_T *)cookie)->dbg_tick;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000983}
984
985/*
986 * Return the nesting level for a funccall cookie.
987 */
988 int
989func_level(cookie)
990 void *cookie;
991{
Bram Moolenaar33570922005-01-25 22:26:29 +0000992 return ((funccall_T *)cookie)->level;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000993}
994
995/* pointer to funccal for currently active function */
Bram Moolenaar33570922005-01-25 22:26:29 +0000996funccall_T *current_funccal = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000997
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +0000998/* pointer to list of previously used funccal, still around because some
999 * item in it is still being used. */
1000funccall_T *previous_funccal = NULL;
1001
Bram Moolenaar071d4272004-06-13 20:20:40 +00001002/*
1003 * Return TRUE when a function was ended by a ":return" command.
1004 */
1005 int
1006current_func_returned()
1007{
1008 return current_funccal->returned;
1009}
1010
1011
1012/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00001013 * Set an internal variable to a string value. Creates the variable if it does
1014 * not already exist.
1015 */
1016 void
1017set_internal_string_var(name, value)
1018 char_u *name;
1019 char_u *value;
1020{
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001021 char_u *val;
Bram Moolenaar33570922005-01-25 22:26:29 +00001022 typval_T *tvp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001023
1024 val = vim_strsave(value);
1025 if (val != NULL)
1026 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001027 tvp = alloc_string_tv(val);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001028 if (tvp != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001029 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001030 set_var(name, tvp, FALSE);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001031 free_tv(tvp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001032 }
1033 }
1034}
1035
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001036static lval_T *redir_lval = NULL;
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001037static garray_T redir_ga; /* only valid when redir_lval is not NULL */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001038static char_u *redir_endp = NULL;
1039static char_u *redir_varname = NULL;
1040
1041/*
1042 * Start recording command output to a variable
1043 * Returns OK if successfully completed the setup. FAIL otherwise.
1044 */
1045 int
1046var_redir_start(name, append)
1047 char_u *name;
1048 int append; /* append to an existing variable */
1049{
1050 int save_emsg;
1051 int err;
1052 typval_T tv;
1053
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001054 /* Catch a bad name early. */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00001055 if (!eval_isnamec1(*name))
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001056 {
1057 EMSG(_(e_invarg));
1058 return FAIL;
1059 }
1060
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001061 /* Make a copy of the name, it is used in redir_lval until redir ends. */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001062 redir_varname = vim_strsave(name);
1063 if (redir_varname == NULL)
1064 return FAIL;
1065
1066 redir_lval = (lval_T *)alloc_clear((unsigned)sizeof(lval_T));
1067 if (redir_lval == NULL)
1068 {
1069 var_redir_stop();
1070 return FAIL;
1071 }
1072
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001073 /* The output is stored in growarray "redir_ga" until redirection ends. */
1074 ga_init2(&redir_ga, (int)sizeof(char), 500);
1075
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001076 /* Parse the variable name (can be a dict or list entry). */
Bram Moolenaar6d977d62014-01-14 15:24:39 +01001077 redir_endp = get_lval(redir_varname, NULL, redir_lval, FALSE, FALSE, 0,
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00001078 FNE_CHECK_START);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001079 if (redir_endp == NULL || redir_lval->ll_name == NULL || *redir_endp != NUL)
1080 {
Bram Moolenaar1dba0fb2010-07-28 18:55:02 +02001081 clear_lval(redir_lval);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001082 if (redir_endp != NULL && *redir_endp != NUL)
1083 /* Trailing characters are present after the variable name */
1084 EMSG(_(e_trailing));
1085 else
1086 EMSG(_(e_invarg));
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001087 redir_endp = NULL; /* don't store a value, only cleanup */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001088 var_redir_stop();
1089 return FAIL;
1090 }
1091
1092 /* check if we can write to the variable: set it to or append an empty
1093 * string */
1094 save_emsg = did_emsg;
1095 did_emsg = FALSE;
1096 tv.v_type = VAR_STRING;
1097 tv.vval.v_string = (char_u *)"";
1098 if (append)
1099 set_var_lval(redir_lval, redir_endp, &tv, TRUE, (char_u *)".");
1100 else
1101 set_var_lval(redir_lval, redir_endp, &tv, TRUE, (char_u *)"=");
Bram Moolenaar1dba0fb2010-07-28 18:55:02 +02001102 clear_lval(redir_lval);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001103 err = did_emsg;
Bram Moolenaar1f35bf92006-03-07 22:38:47 +00001104 did_emsg |= save_emsg;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001105 if (err)
1106 {
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001107 redir_endp = NULL; /* don't store a value, only cleanup */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001108 var_redir_stop();
1109 return FAIL;
1110 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001111
1112 return OK;
1113}
1114
1115/*
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001116 * Append "value[value_len]" to the variable set by var_redir_start().
1117 * The actual appending is postponed until redirection ends, because the value
1118 * appended may in fact be the string we write to, changing it may cause freed
1119 * memory to be used:
1120 * :redir => foo
1121 * :let foo
1122 * :redir END
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001123 */
1124 void
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001125var_redir_str(value, value_len)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001126 char_u *value;
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001127 int value_len;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001128{
Bram Moolenaar5fdec472007-07-24 08:45:13 +00001129 int len;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001130
1131 if (redir_lval == NULL)
1132 return;
1133
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001134 if (value_len == -1)
Bram Moolenaar5fdec472007-07-24 08:45:13 +00001135 len = (int)STRLEN(value); /* Append the entire string */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001136 else
Bram Moolenaar5fdec472007-07-24 08:45:13 +00001137 len = value_len; /* Append only "value_len" characters */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001138
Bram Moolenaar5fdec472007-07-24 08:45:13 +00001139 if (ga_grow(&redir_ga, len) == OK)
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001140 {
1141 mch_memmove((char *)redir_ga.ga_data + redir_ga.ga_len, value, len);
Bram Moolenaar5fdec472007-07-24 08:45:13 +00001142 redir_ga.ga_len += len;
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001143 }
1144 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001145 var_redir_stop();
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001146}
1147
1148/*
1149 * Stop redirecting command output to a variable.
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001150 * Frees the allocated memory.
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001151 */
1152 void
1153var_redir_stop()
1154{
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001155 typval_T tv;
1156
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001157 if (redir_lval != NULL)
1158 {
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001159 /* If there was no error: assign the text to the variable. */
1160 if (redir_endp != NULL)
1161 {
1162 ga_append(&redir_ga, NUL); /* Append the trailing NUL. */
1163 tv.v_type = VAR_STRING;
1164 tv.vval.v_string = redir_ga.ga_data;
Bram Moolenaar1dba0fb2010-07-28 18:55:02 +02001165 /* Call get_lval() again, if it's inside a Dict or List it may
1166 * have changed. */
1167 redir_endp = get_lval(redir_varname, NULL, redir_lval,
Bram Moolenaar6d977d62014-01-14 15:24:39 +01001168 FALSE, FALSE, 0, FNE_CHECK_START);
Bram Moolenaar1dba0fb2010-07-28 18:55:02 +02001169 if (redir_endp != NULL && redir_lval->ll_name != NULL)
1170 set_var_lval(redir_lval, redir_endp, &tv, FALSE, (char_u *)".");
1171 clear_lval(redir_lval);
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001172 }
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001173
Bram Moolenaar2f59b5c2009-11-03 13:26:55 +00001174 /* free the collected output */
1175 vim_free(redir_ga.ga_data);
1176 redir_ga.ga_data = NULL;
Bram Moolenaar863b53b2007-01-14 14:28:34 +00001177
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00001178 vim_free(redir_lval);
1179 redir_lval = NULL;
1180 }
1181 vim_free(redir_varname);
1182 redir_varname = NULL;
1183}
1184
Bram Moolenaar071d4272004-06-13 20:20:40 +00001185# if defined(FEAT_MBYTE) || defined(PROTO)
1186 int
1187eval_charconvert(enc_from, enc_to, fname_from, fname_to)
1188 char_u *enc_from;
1189 char_u *enc_to;
1190 char_u *fname_from;
1191 char_u *fname_to;
1192{
1193 int err = FALSE;
1194
1195 set_vim_var_string(VV_CC_FROM, enc_from, -1);
1196 set_vim_var_string(VV_CC_TO, enc_to, -1);
1197 set_vim_var_string(VV_FNAME_IN, fname_from, -1);
1198 set_vim_var_string(VV_FNAME_OUT, fname_to, -1);
1199 if (eval_to_bool(p_ccv, &err, NULL, FALSE))
1200 err = TRUE;
1201 set_vim_var_string(VV_CC_FROM, NULL, -1);
1202 set_vim_var_string(VV_CC_TO, NULL, -1);
1203 set_vim_var_string(VV_FNAME_IN, NULL, -1);
1204 set_vim_var_string(VV_FNAME_OUT, NULL, -1);
1205
1206 if (err)
1207 return FAIL;
1208 return OK;
1209}
1210# endif
1211
1212# if defined(FEAT_POSTSCRIPT) || defined(PROTO)
1213 int
1214eval_printexpr(fname, args)
1215 char_u *fname;
1216 char_u *args;
1217{
1218 int err = FALSE;
1219
1220 set_vim_var_string(VV_FNAME_IN, fname, -1);
1221 set_vim_var_string(VV_CMDARG, args, -1);
1222 if (eval_to_bool(p_pexpr, &err, NULL, FALSE))
1223 err = TRUE;
1224 set_vim_var_string(VV_FNAME_IN, NULL, -1);
1225 set_vim_var_string(VV_CMDARG, NULL, -1);
1226
1227 if (err)
1228 {
1229 mch_remove(fname);
1230 return FAIL;
1231 }
1232 return OK;
1233}
1234# endif
1235
1236# if defined(FEAT_DIFF) || defined(PROTO)
1237 void
1238eval_diff(origfile, newfile, outfile)
1239 char_u *origfile;
1240 char_u *newfile;
1241 char_u *outfile;
1242{
1243 int err = FALSE;
1244
1245 set_vim_var_string(VV_FNAME_IN, origfile, -1);
1246 set_vim_var_string(VV_FNAME_NEW, newfile, -1);
1247 set_vim_var_string(VV_FNAME_OUT, outfile, -1);
1248 (void)eval_to_bool(p_dex, &err, NULL, FALSE);
1249 set_vim_var_string(VV_FNAME_IN, NULL, -1);
1250 set_vim_var_string(VV_FNAME_NEW, NULL, -1);
1251 set_vim_var_string(VV_FNAME_OUT, NULL, -1);
1252}
1253
1254 void
1255eval_patch(origfile, difffile, outfile)
1256 char_u *origfile;
1257 char_u *difffile;
1258 char_u *outfile;
1259{
1260 int err;
1261
1262 set_vim_var_string(VV_FNAME_IN, origfile, -1);
1263 set_vim_var_string(VV_FNAME_DIFF, difffile, -1);
1264 set_vim_var_string(VV_FNAME_OUT, outfile, -1);
1265 (void)eval_to_bool(p_pex, &err, NULL, FALSE);
1266 set_vim_var_string(VV_FNAME_IN, NULL, -1);
1267 set_vim_var_string(VV_FNAME_DIFF, NULL, -1);
1268 set_vim_var_string(VV_FNAME_OUT, NULL, -1);
1269}
1270# endif
1271
1272/*
1273 * Top level evaluation function, returning a boolean.
1274 * Sets "error" to TRUE if there was an error.
1275 * Return TRUE or FALSE.
1276 */
1277 int
1278eval_to_bool(arg, error, nextcmd, skip)
1279 char_u *arg;
1280 int *error;
1281 char_u **nextcmd;
1282 int skip; /* only parse, don't execute */
1283{
Bram Moolenaar33570922005-01-25 22:26:29 +00001284 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001285 int retval = FALSE;
1286
1287 if (skip)
1288 ++emsg_skip;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001289 if (eval0(arg, &tv, nextcmd, !skip) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001290 *error = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001291 else
1292 {
1293 *error = FALSE;
1294 if (!skip)
1295 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00001296 retval = (get_tv_number_chk(&tv, error) != 0);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001297 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001298 }
1299 }
1300 if (skip)
1301 --emsg_skip;
1302
1303 return retval;
1304}
1305
1306/*
1307 * Top level evaluation function, returning a string. If "skip" is TRUE,
1308 * only parsing to "nextcmd" is done, without reporting errors. Return
1309 * pointer to allocated memory, or NULL for failure or when "skip" is TRUE.
1310 */
1311 char_u *
1312eval_to_string_skip(arg, nextcmd, skip)
1313 char_u *arg;
1314 char_u **nextcmd;
1315 int skip; /* only parse, don't execute */
1316{
Bram Moolenaar33570922005-01-25 22:26:29 +00001317 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001318 char_u *retval;
1319
1320 if (skip)
1321 ++emsg_skip;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001322 if (eval0(arg, &tv, nextcmd, !skip) == FAIL || skip)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001323 retval = NULL;
1324 else
1325 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001326 retval = vim_strsave(get_tv_string(&tv));
1327 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001328 }
1329 if (skip)
1330 --emsg_skip;
1331
1332 return retval;
1333}
1334
1335/*
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00001336 * Skip over an expression at "*pp".
1337 * Return FAIL for an error, OK otherwise.
1338 */
1339 int
1340skip_expr(pp)
1341 char_u **pp;
1342{
Bram Moolenaar33570922005-01-25 22:26:29 +00001343 typval_T rettv;
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00001344
1345 *pp = skipwhite(*pp);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001346 return eval1(pp, &rettv, FALSE);
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00001347}
1348
1349/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00001350 * Top level evaluation function, returning a string.
Bram Moolenaara85fb752008-09-07 11:55:43 +00001351 * When "convert" is TRUE convert a List into a sequence of lines and convert
1352 * a Float to a String.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001353 * Return pointer to allocated memory, or NULL for failure.
1354 */
1355 char_u *
Bram Moolenaara85fb752008-09-07 11:55:43 +00001356eval_to_string(arg, nextcmd, convert)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001357 char_u *arg;
1358 char_u **nextcmd;
Bram Moolenaara85fb752008-09-07 11:55:43 +00001359 int convert;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001360{
Bram Moolenaar33570922005-01-25 22:26:29 +00001361 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001362 char_u *retval;
Bram Moolenaar362e1a32006-03-06 23:29:24 +00001363 garray_T ga;
Bram Moolenaar798b30b2009-04-22 10:56:16 +00001364#ifdef FEAT_FLOAT
Bram Moolenaara85fb752008-09-07 11:55:43 +00001365 char_u numbuf[NUMBUFLEN];
Bram Moolenaar798b30b2009-04-22 10:56:16 +00001366#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00001367
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001368 if (eval0(arg, &tv, nextcmd, TRUE) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001369 retval = NULL;
1370 else
1371 {
Bram Moolenaara85fb752008-09-07 11:55:43 +00001372 if (convert && tv.v_type == VAR_LIST)
Bram Moolenaar362e1a32006-03-06 23:29:24 +00001373 {
1374 ga_init2(&ga, (int)sizeof(char), 80);
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00001375 if (tv.vval.v_list != NULL)
Bram Moolenaar213b10a2011-08-10 12:38:08 +02001376 {
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00001377 list_join(&ga, tv.vval.v_list, (char_u *)"\n", TRUE, 0);
Bram Moolenaar213b10a2011-08-10 12:38:08 +02001378 if (tv.vval.v_list->lv_len > 0)
1379 ga_append(&ga, NL);
1380 }
Bram Moolenaar362e1a32006-03-06 23:29:24 +00001381 ga_append(&ga, NUL);
1382 retval = (char_u *)ga.ga_data;
1383 }
Bram Moolenaara85fb752008-09-07 11:55:43 +00001384#ifdef FEAT_FLOAT
1385 else if (convert && tv.v_type == VAR_FLOAT)
1386 {
1387 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv.vval.v_float);
1388 retval = vim_strsave(numbuf);
1389 }
1390#endif
Bram Moolenaar362e1a32006-03-06 23:29:24 +00001391 else
1392 retval = vim_strsave(get_tv_string(&tv));
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001393 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001394 }
1395
1396 return retval;
1397}
1398
1399/*
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001400 * Call eval_to_string() without using current local variables and using
1401 * textlock. When "use_sandbox" is TRUE use the sandbox.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001402 */
1403 char_u *
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001404eval_to_string_safe(arg, nextcmd, use_sandbox)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001405 char_u *arg;
1406 char_u **nextcmd;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001407 int use_sandbox;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001408{
1409 char_u *retval;
1410 void *save_funccalp;
1411
1412 save_funccalp = save_funccal();
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001413 if (use_sandbox)
1414 ++sandbox;
1415 ++textlock;
Bram Moolenaar362e1a32006-03-06 23:29:24 +00001416 retval = eval_to_string(arg, nextcmd, FALSE);
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001417 if (use_sandbox)
1418 --sandbox;
1419 --textlock;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001420 restore_funccal(save_funccalp);
1421 return retval;
1422}
1423
Bram Moolenaar071d4272004-06-13 20:20:40 +00001424/*
1425 * Top level evaluation function, returning a number.
1426 * Evaluates "expr" silently.
1427 * Returns -1 for an error.
1428 */
1429 int
1430eval_to_number(expr)
1431 char_u *expr;
1432{
Bram Moolenaar33570922005-01-25 22:26:29 +00001433 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001434 int retval;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00001435 char_u *p = skipwhite(expr);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001436
1437 ++emsg_off;
1438
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001439 if (eval1(&p, &rettv, TRUE) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001440 retval = -1;
1441 else
1442 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00001443 retval = get_tv_number_chk(&rettv, NULL);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001444 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001445 }
1446 --emsg_off;
1447
1448 return retval;
1449}
1450
Bram Moolenaara40058a2005-07-11 22:42:07 +00001451/*
1452 * Prepare v: variable "idx" to be used.
1453 * Save the current typeval in "save_tv".
1454 * When not used yet add the variable to the v: hashtable.
1455 */
1456 static void
1457prepare_vimvar(idx, save_tv)
1458 int idx;
1459 typval_T *save_tv;
1460{
1461 *save_tv = vimvars[idx].vv_tv;
1462 if (vimvars[idx].vv_type == VAR_UNKNOWN)
1463 hash_add(&vimvarht, vimvars[idx].vv_di.di_key);
1464}
1465
1466/*
1467 * Restore v: variable "idx" to typeval "save_tv".
1468 * When no longer defined, remove the variable from the v: hashtable.
1469 */
1470 static void
1471restore_vimvar(idx, save_tv)
1472 int idx;
1473 typval_T *save_tv;
1474{
1475 hashitem_T *hi;
1476
Bram Moolenaara40058a2005-07-11 22:42:07 +00001477 vimvars[idx].vv_tv = *save_tv;
1478 if (vimvars[idx].vv_type == VAR_UNKNOWN)
1479 {
1480 hi = hash_find(&vimvarht, vimvars[idx].vv_di.di_key);
1481 if (HASHITEM_EMPTY(hi))
1482 EMSG2(_(e_intern2), "restore_vimvar()");
1483 else
1484 hash_remove(&vimvarht, hi);
1485 }
1486}
1487
Bram Moolenaar3c56a962006-03-12 22:19:04 +00001488#if defined(FEAT_SPELL) || defined(PROTO)
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +00001489/*
1490 * Evaluate an expression to a list with suggestions.
1491 * For the "expr:" part of 'spellsuggest'.
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00001492 * Returns NULL when there is an error.
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +00001493 */
1494 list_T *
1495eval_spell_expr(badword, expr)
1496 char_u *badword;
1497 char_u *expr;
1498{
1499 typval_T save_val;
1500 typval_T rettv;
1501 list_T *list = NULL;
1502 char_u *p = skipwhite(expr);
1503
1504 /* Set "v:val" to the bad word. */
1505 prepare_vimvar(VV_VAL, &save_val);
1506 vimvars[VV_VAL].vv_type = VAR_STRING;
1507 vimvars[VV_VAL].vv_str = badword;
1508 if (p_verbose == 0)
1509 ++emsg_off;
1510
1511 if (eval1(&p, &rettv, TRUE) == OK)
1512 {
1513 if (rettv.v_type != VAR_LIST)
1514 clear_tv(&rettv);
1515 else
1516 list = rettv.vval.v_list;
1517 }
1518
1519 if (p_verbose == 0)
1520 --emsg_off;
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +00001521 restore_vimvar(VV_VAL, &save_val);
1522
1523 return list;
1524}
1525
1526/*
1527 * "list" is supposed to contain two items: a word and a number. Return the
1528 * word in "pp" and the number as the return value.
1529 * Return -1 if anything isn't right.
1530 * Used to get the good word and score from the eval_spell_expr() result.
1531 */
1532 int
1533get_spellword(list, pp)
1534 list_T *list;
1535 char_u **pp;
1536{
1537 listitem_T *li;
1538
1539 li = list->lv_first;
1540 if (li == NULL)
1541 return -1;
1542 *pp = get_tv_string(&li->li_tv);
1543
1544 li = li->li_next;
1545 if (li == NULL)
1546 return -1;
1547 return get_tv_number(&li->li_tv);
1548}
1549#endif
1550
Bram Moolenaar87e25fd2005-07-27 21:13:01 +00001551/*
Bram Moolenaar4770d092006-01-12 23:22:24 +00001552 * Top level evaluation function.
1553 * Returns an allocated typval_T with the result.
1554 * Returns NULL when there is an error.
Bram Moolenaar87e25fd2005-07-27 21:13:01 +00001555 */
1556 typval_T *
1557eval_expr(arg, nextcmd)
1558 char_u *arg;
1559 char_u **nextcmd;
1560{
1561 typval_T *tv;
1562
1563 tv = (typval_T *)alloc(sizeof(typval_T));
Bram Moolenaar4770d092006-01-12 23:22:24 +00001564 if (tv != NULL && eval0(arg, tv, nextcmd, TRUE) == FAIL)
Bram Moolenaar87e25fd2005-07-27 21:13:01 +00001565 {
1566 vim_free(tv);
Bram Moolenaar4770d092006-01-12 23:22:24 +00001567 tv = NULL;
Bram Moolenaar87e25fd2005-07-27 21:13:01 +00001568 }
1569
1570 return tv;
1571}
1572
1573
Bram Moolenaar071d4272004-06-13 20:20:40 +00001574/*
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001575 * Call some vimL function and return the result in "*rettv".
Bram Moolenaar8c8de832008-06-24 22:58:06 +00001576 * Uses argv[argc] for the function arguments. Only Number and String
1577 * arguments are currently supported.
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001578 * Returns OK or FAIL.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001579 */
Bram Moolenaar82139082011-09-14 16:52:09 +02001580 int
Bram Moolenaar0cbba942012-07-25 16:47:03 +02001581call_vim_function(func, argc, argv, safe, str_arg_only, rettv)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001582 char_u *func;
1583 int argc;
1584 char_u **argv;
1585 int safe; /* use the sandbox */
Bram Moolenaar0cbba942012-07-25 16:47:03 +02001586 int str_arg_only; /* all arguments are strings */
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001587 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001588{
Bram Moolenaar33570922005-01-25 22:26:29 +00001589 typval_T *argvars;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001590 long n;
1591 int len;
1592 int i;
1593 int doesrange;
1594 void *save_funccalp = NULL;
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001595 int ret;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001596
Bram Moolenaareb3593b2006-04-22 22:33:57 +00001597 argvars = (typval_T *)alloc((unsigned)((argc + 1) * sizeof(typval_T)));
Bram Moolenaar071d4272004-06-13 20:20:40 +00001598 if (argvars == NULL)
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001599 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001600
1601 for (i = 0; i < argc; i++)
1602 {
Bram Moolenaarcfbc5ee2004-07-02 15:38:35 +00001603 /* Pass a NULL or empty argument as an empty string */
1604 if (argv[i] == NULL || *argv[i] == NUL)
1605 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001606 argvars[i].v_type = VAR_STRING;
1607 argvars[i].vval.v_string = (char_u *)"";
Bram Moolenaarcfbc5ee2004-07-02 15:38:35 +00001608 continue;
1609 }
1610
Bram Moolenaar0cbba942012-07-25 16:47:03 +02001611 if (str_arg_only)
1612 len = 0;
1613 else
1614 /* Recognize a number argument, the others must be strings. */
1615 vim_str2nr(argv[i], NULL, &len, TRUE, TRUE, &n, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001616 if (len != 0 && len == (int)STRLEN(argv[i]))
1617 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001618 argvars[i].v_type = VAR_NUMBER;
1619 argvars[i].vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001620 }
1621 else
1622 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00001623 argvars[i].v_type = VAR_STRING;
1624 argvars[i].vval.v_string = argv[i];
Bram Moolenaar071d4272004-06-13 20:20:40 +00001625 }
1626 }
1627
1628 if (safe)
1629 {
1630 save_funccalp = save_funccal();
1631 ++sandbox;
1632 }
1633
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001634 rettv->v_type = VAR_UNKNOWN; /* clear_tv() uses this */
1635 ret = call_func(func, (int)STRLEN(func), rettv, argc, argvars,
Bram Moolenaar071d4272004-06-13 20:20:40 +00001636 curwin->w_cursor.lnum, curwin->w_cursor.lnum,
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001637 &doesrange, TRUE, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001638 if (safe)
1639 {
1640 --sandbox;
1641 restore_funccal(save_funccalp);
1642 }
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001643 vim_free(argvars);
1644
1645 if (ret == FAIL)
1646 clear_tv(rettv);
1647
1648 return ret;
1649}
1650
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +01001651/*
1652 * Call vimL function "func" and return the result as a number.
1653 * Returns -1 when calling the function fails.
1654 * Uses argv[argc] for the function arguments.
1655 */
1656 long
1657call_func_retnr(func, argc, argv, safe)
1658 char_u *func;
1659 int argc;
1660 char_u **argv;
1661 int safe; /* use the sandbox */
1662{
1663 typval_T rettv;
1664 long retval;
1665
1666 /* All arguments are passed as strings, no conversion to number. */
1667 if (call_vim_function(func, argc, argv, safe, TRUE, &rettv) == FAIL)
1668 return -1;
1669
1670 retval = get_tv_number_chk(&rettv, NULL);
1671 clear_tv(&rettv);
1672 return retval;
1673}
1674
1675#if (defined(FEAT_USR_CMDS) && defined(FEAT_CMDL_COMPL)) \
1676 || defined(FEAT_COMPL_FUNC) || defined(PROTO)
1677
Bram Moolenaar4f688582007-07-24 12:34:30 +00001678# if (defined(FEAT_USR_CMDS) && defined(FEAT_CMDL_COMPL)) || defined(PROTO)
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001679/*
Bram Moolenaar25ceb222005-07-30 22:45:36 +00001680 * Call vimL function "func" and return the result as a string.
1681 * Returns NULL when calling the function fails.
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001682 * Uses argv[argc] for the function arguments.
1683 */
1684 void *
1685call_func_retstr(func, argc, argv, safe)
1686 char_u *func;
1687 int argc;
1688 char_u **argv;
1689 int safe; /* use the sandbox */
1690{
1691 typval_T rettv;
Bram Moolenaar25ceb222005-07-30 22:45:36 +00001692 char_u *retval;
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001693
Bram Moolenaar0cbba942012-07-25 16:47:03 +02001694 /* All arguments are passed as strings, no conversion to number. */
1695 if (call_vim_function(func, argc, argv, safe, TRUE, &rettv) == FAIL)
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001696 return NULL;
1697
1698 retval = vim_strsave(get_tv_string(&rettv));
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001699 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001700 return retval;
1701}
Bram Moolenaar4f688582007-07-24 12:34:30 +00001702# endif
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001703
Bram Moolenaar25ceb222005-07-30 22:45:36 +00001704/*
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00001705 * Call vimL function "func" and return the result as a List.
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001706 * Uses argv[argc] for the function arguments.
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00001707 * Returns NULL when there is something wrong.
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001708 */
1709 void *
1710call_func_retlist(func, argc, argv, safe)
1711 char_u *func;
1712 int argc;
1713 char_u **argv;
1714 int safe; /* use the sandbox */
1715{
1716 typval_T rettv;
1717
Bram Moolenaar0cbba942012-07-25 16:47:03 +02001718 /* All arguments are passed as strings, no conversion to number. */
1719 if (call_vim_function(func, argc, argv, safe, TRUE, &rettv) == FAIL)
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00001720 return NULL;
1721
1722 if (rettv.v_type != VAR_LIST)
1723 {
1724 clear_tv(&rettv);
1725 return NULL;
1726 }
1727
1728 return rettv.vval.v_list;
1729}
Bram Moolenaar071d4272004-06-13 20:20:40 +00001730#endif
1731
1732/*
1733 * Save the current function call pointer, and set it to NULL.
1734 * Used when executing autocommands and for ":source".
1735 */
1736 void *
1737save_funccal()
1738{
Bram Moolenaar05159a02005-02-26 23:04:13 +00001739 funccall_T *fc = current_funccal;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001740
Bram Moolenaar071d4272004-06-13 20:20:40 +00001741 current_funccal = NULL;
1742 return (void *)fc;
1743}
1744
1745 void
Bram Moolenaar05159a02005-02-26 23:04:13 +00001746restore_funccal(vfc)
1747 void *vfc;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001748{
Bram Moolenaar05159a02005-02-26 23:04:13 +00001749 funccall_T *fc = (funccall_T *)vfc;
1750
1751 current_funccal = fc;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001752}
1753
Bram Moolenaar05159a02005-02-26 23:04:13 +00001754#if defined(FEAT_PROFILE) || defined(PROTO)
1755/*
1756 * Prepare profiling for entering a child or something else that is not
1757 * counted for the script/function itself.
1758 * Should always be called in pair with prof_child_exit().
1759 */
1760 void
1761prof_child_enter(tm)
1762 proftime_T *tm; /* place to store waittime */
1763{
1764 funccall_T *fc = current_funccal;
1765
1766 if (fc != NULL && fc->func->uf_profiling)
1767 profile_start(&fc->prof_child);
1768 script_prof_save(tm);
1769}
1770
1771/*
1772 * Take care of time spent in a child.
1773 * Should always be called after prof_child_enter().
1774 */
1775 void
1776prof_child_exit(tm)
1777 proftime_T *tm; /* where waittime was stored */
1778{
1779 funccall_T *fc = current_funccal;
1780
1781 if (fc != NULL && fc->func->uf_profiling)
1782 {
1783 profile_end(&fc->prof_child);
1784 profile_sub_wait(tm, &fc->prof_child); /* don't count waiting time */
1785 profile_add(&fc->func->uf_tm_children, &fc->prof_child);
1786 profile_add(&fc->func->uf_tml_children, &fc->prof_child);
1787 }
1788 script_prof_restore(tm);
1789}
1790#endif
1791
1792
Bram Moolenaar071d4272004-06-13 20:20:40 +00001793#ifdef FEAT_FOLDING
1794/*
1795 * Evaluate 'foldexpr'. Returns the foldlevel, and any character preceding
1796 * it in "*cp". Doesn't give error messages.
1797 */
1798 int
1799eval_foldexpr(arg, cp)
1800 char_u *arg;
1801 int *cp;
1802{
Bram Moolenaar33570922005-01-25 22:26:29 +00001803 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001804 int retval;
1805 char_u *s;
Bram Moolenaard1f56e62006-02-22 21:25:37 +00001806 int use_sandbox = was_set_insecurely((char_u *)"foldexpr",
1807 OPT_LOCAL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001808
1809 ++emsg_off;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001810 if (use_sandbox)
1811 ++sandbox;
1812 ++textlock;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001813 *cp = NUL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001814 if (eval0(arg, &tv, NULL, TRUE) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001815 retval = 0;
1816 else
1817 {
1818 /* If the result is a number, just return the number. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001819 if (tv.v_type == VAR_NUMBER)
1820 retval = tv.vval.v_number;
Bram Moolenaar758711c2005-02-02 23:11:38 +00001821 else if (tv.v_type != VAR_STRING || tv.vval.v_string == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00001822 retval = 0;
1823 else
1824 {
1825 /* If the result is a string, check if there is a non-digit before
1826 * the number. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001827 s = tv.vval.v_string;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001828 if (!VIM_ISDIGIT(*s) && *s != '-')
1829 *cp = *s++;
1830 retval = atol((char *)s);
1831 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001832 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001833 }
1834 --emsg_off;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00001835 if (use_sandbox)
1836 --sandbox;
1837 --textlock;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001838
1839 return retval;
1840}
1841#endif
1842
Bram Moolenaar071d4272004-06-13 20:20:40 +00001843/*
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001844 * ":let" list all variable values
1845 * ":let var1 var2" list variable values
1846 * ":let var = expr" assignment command.
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001847 * ":let var += expr" assignment command.
1848 * ":let var -= expr" assignment command.
1849 * ":let var .= expr" assignment command.
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001850 * ":let [var1, var2] = expr" unpack list.
Bram Moolenaar071d4272004-06-13 20:20:40 +00001851 */
1852 void
1853ex_let(eap)
1854 exarg_T *eap;
1855{
1856 char_u *arg = eap->arg;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001857 char_u *expr = NULL;
Bram Moolenaar33570922005-01-25 22:26:29 +00001858 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001859 int i;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001860 int var_count = 0;
1861 int semicolon = 0;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001862 char_u op[2];
Bram Moolenaardb552d602006-03-23 22:59:57 +00001863 char_u *argend;
Bram Moolenaar7d61a922007-08-30 09:12:23 +00001864 int first = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001865
Bram Moolenaardb552d602006-03-23 22:59:57 +00001866 argend = skip_var_list(arg, &var_count, &semicolon);
1867 if (argend == NULL)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001868 return;
Bram Moolenaar76b92b22006-03-24 22:46:53 +00001869 if (argend > arg && argend[-1] == '.') /* for var.='str' */
1870 --argend;
Bram Moolenaara3920382014-03-30 16:49:09 +02001871 expr = skipwhite(argend);
1872 if (*expr != '=' && !(vim_strchr((char_u *)"+-.", *expr) != NULL
1873 && expr[1] == '='))
Bram Moolenaar071d4272004-06-13 20:20:40 +00001874 {
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00001875 /*
1876 * ":let" without "=": list variables
1877 */
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001878 if (*arg == '[')
1879 EMSG(_(e_invarg));
1880 else if (!ends_excmd(*arg))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001881 /* ":let var1 var2" */
Bram Moolenaar7d61a922007-08-30 09:12:23 +00001882 arg = list_arg_vars(eap, arg, &first);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001883 else if (!eap->skip)
Bram Moolenaara7043832005-01-21 11:56:39 +00001884 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001885 /* ":let" */
Bram Moolenaar7d61a922007-08-30 09:12:23 +00001886 list_glob_vars(&first);
1887 list_buf_vars(&first);
1888 list_win_vars(&first);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00001889#ifdef FEAT_WINDOWS
Bram Moolenaar7d61a922007-08-30 09:12:23 +00001890 list_tab_vars(&first);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00001891#endif
Bram Moolenaar7d61a922007-08-30 09:12:23 +00001892 list_script_vars(&first);
1893 list_func_vars(&first);
1894 list_vim_vars(&first);
Bram Moolenaara7043832005-01-21 11:56:39 +00001895 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00001896 eap->nextcmd = check_nextcmd(arg);
1897 }
1898 else
1899 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001900 op[0] = '=';
1901 op[1] = NUL;
Bram Moolenaara3920382014-03-30 16:49:09 +02001902 if (*expr != '=')
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001903 {
Bram Moolenaara3920382014-03-30 16:49:09 +02001904 if (vim_strchr((char_u *)"+-.", *expr) != NULL)
1905 op[0] = *expr; /* +=, -= or .= */
1906 expr = skipwhite(expr + 2);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001907 }
Bram Moolenaara3920382014-03-30 16:49:09 +02001908 else
1909 expr = skipwhite(expr + 1);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001910
Bram Moolenaar071d4272004-06-13 20:20:40 +00001911 if (eap->skip)
1912 ++emsg_skip;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001913 i = eval0(expr, &rettv, &eap->nextcmd, !eap->skip);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001914 if (eap->skip)
1915 {
1916 if (i != FAIL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001917 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001918 --emsg_skip;
1919 }
1920 else if (i != FAIL)
1921 {
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001922 (void)ex_let_vars(eap->arg, &rettv, FALSE, semicolon, var_count,
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001923 op);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00001924 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001925 }
1926 }
1927}
1928
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001929/*
1930 * Assign the typevalue "tv" to the variable or variables at "arg_start".
1931 * Handles both "var" with any type and "[var, var; var]" with a list type.
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001932 * When "nextchars" is not NULL it points to a string with characters that
1933 * must appear after the variable(s). Use "+", "-" or "." for add, subtract
1934 * or concatenate.
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001935 * Returns OK or FAIL;
1936 */
1937 static int
1938ex_let_vars(arg_start, tv, copy, semicolon, var_count, nextchars)
1939 char_u *arg_start;
Bram Moolenaar33570922005-01-25 22:26:29 +00001940 typval_T *tv;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001941 int copy; /* copy values from "tv", don't move */
1942 int semicolon; /* from skip_var_list() */
1943 int var_count; /* from skip_var_list() */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001944 char_u *nextchars;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001945{
1946 char_u *arg = arg_start;
Bram Moolenaar33570922005-01-25 22:26:29 +00001947 list_T *l;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001948 int i;
Bram Moolenaar33570922005-01-25 22:26:29 +00001949 listitem_T *item;
1950 typval_T ltv;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001951
1952 if (*arg != '[')
1953 {
1954 /*
1955 * ":let var = expr" or ":for var in list"
1956 */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001957 if (ex_let_one(arg, tv, copy, nextchars, nextchars) == NULL)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001958 return FAIL;
1959 return OK;
1960 }
1961
1962 /*
1963 * ":let [v1, v2] = list" or ":for [v1, v2] in listlist"
1964 */
Bram Moolenaar758711c2005-02-02 23:11:38 +00001965 if (tv->v_type != VAR_LIST || (l = tv->vval.v_list) == NULL)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001966 {
1967 EMSG(_(e_listreq));
1968 return FAIL;
1969 }
1970
1971 i = list_len(l);
1972 if (semicolon == 0 && var_count < i)
1973 {
Bram Moolenaare49b69a2005-01-08 16:11:57 +00001974 EMSG(_("E687: Less targets than List items"));
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001975 return FAIL;
1976 }
1977 if (var_count - semicolon > i)
1978 {
Bram Moolenaare49b69a2005-01-08 16:11:57 +00001979 EMSG(_("E688: More targets than List items"));
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001980 return FAIL;
1981 }
1982
1983 item = l->lv_first;
1984 while (*arg != ']')
1985 {
1986 arg = skipwhite(arg + 1);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00001987 arg = ex_let_one(arg, &item->li_tv, TRUE, (char_u *)",;]", nextchars);
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00001988 item = item->li_next;
1989 if (arg == NULL)
1990 return FAIL;
1991
1992 arg = skipwhite(arg);
1993 if (*arg == ';')
1994 {
1995 /* Put the rest of the list (may be empty) in the var after ';'.
1996 * Create a new list for this. */
1997 l = list_alloc();
1998 if (l == NULL)
1999 return FAIL;
2000 while (item != NULL)
2001 {
2002 list_append_tv(l, &item->li_tv);
2003 item = item->li_next;
2004 }
2005
2006 ltv.v_type = VAR_LIST;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00002007 ltv.v_lock = 0;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002008 ltv.vval.v_list = l;
2009 l->lv_refcount = 1;
2010
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002011 arg = ex_let_one(skipwhite(arg + 1), &ltv, FALSE,
2012 (char_u *)"]", nextchars);
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002013 clear_tv(&ltv);
2014 if (arg == NULL)
2015 return FAIL;
2016 break;
2017 }
2018 else if (*arg != ',' && *arg != ']')
2019 {
2020 EMSG2(_(e_intern2), "ex_let_vars()");
2021 return FAIL;
2022 }
2023 }
2024
2025 return OK;
2026}
2027
2028/*
2029 * Skip over assignable variable "var" or list of variables "[var, var]".
2030 * Used for ":let varvar = expr" and ":for varvar in expr".
2031 * For "[var, var]" increment "*var_count" for each variable.
2032 * for "[var, var; var]" set "semicolon".
2033 * Return NULL for an error.
2034 */
2035 static char_u *
2036skip_var_list(arg, var_count, semicolon)
2037 char_u *arg;
2038 int *var_count;
2039 int *semicolon;
2040{
2041 char_u *p, *s;
2042
2043 if (*arg == '[')
2044 {
2045 /* "[var, var]": find the matching ']'. */
2046 p = arg;
Bram Moolenaard8e9bb22005-07-09 21:14:46 +00002047 for (;;)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002048 {
2049 p = skipwhite(p + 1); /* skip whites after '[', ';' or ',' */
2050 s = skip_var_one(p);
2051 if (s == p)
2052 {
2053 EMSG2(_(e_invarg2), p);
2054 return NULL;
2055 }
2056 ++*var_count;
2057
2058 p = skipwhite(s);
2059 if (*p == ']')
2060 break;
2061 else if (*p == ';')
2062 {
2063 if (*semicolon == 1)
2064 {
2065 EMSG(_("Double ; in list of variables"));
2066 return NULL;
2067 }
2068 *semicolon = 1;
2069 }
2070 else if (*p != ',')
2071 {
2072 EMSG2(_(e_invarg2), p);
2073 return NULL;
2074 }
2075 }
2076 return p + 1;
2077 }
2078 else
2079 return skip_var_one(arg);
2080}
2081
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002082/*
Bram Moolenaarbae0c162007-05-10 19:30:25 +00002083 * Skip one (assignable) variable name, including @r, $VAR, &option, d.key,
Bram Moolenaar92124a32005-06-17 22:03:40 +00002084 * l[idx].
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002085 */
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002086 static char_u *
2087skip_var_one(arg)
2088 char_u *arg;
2089{
Bram Moolenaar92124a32005-06-17 22:03:40 +00002090 if (*arg == '@' && arg[1] != NUL)
2091 return arg + 2;
2092 return find_name_end(*arg == '$' || *arg == '&' ? arg + 1 : arg,
2093 NULL, NULL, FNE_INCL_BR | FNE_CHECK_START);
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002094}
2095
Bram Moolenaara7043832005-01-21 11:56:39 +00002096/*
Bram Moolenaar33570922005-01-25 22:26:29 +00002097 * List variables for hashtab "ht" with prefix "prefix".
2098 * If "empty" is TRUE also list NULL strings as empty strings.
Bram Moolenaara7043832005-01-21 11:56:39 +00002099 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002100 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002101list_hashtable_vars(ht, prefix, empty, first)
Bram Moolenaar33570922005-01-25 22:26:29 +00002102 hashtab_T *ht;
Bram Moolenaara7043832005-01-21 11:56:39 +00002103 char_u *prefix;
Bram Moolenaar33570922005-01-25 22:26:29 +00002104 int empty;
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002105 int *first;
Bram Moolenaara7043832005-01-21 11:56:39 +00002106{
Bram Moolenaar33570922005-01-25 22:26:29 +00002107 hashitem_T *hi;
2108 dictitem_T *di;
Bram Moolenaara7043832005-01-21 11:56:39 +00002109 int todo;
2110
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00002111 todo = (int)ht->ht_used;
Bram Moolenaara7043832005-01-21 11:56:39 +00002112 for (hi = ht->ht_array; todo > 0 && !got_int; ++hi)
2113 {
2114 if (!HASHITEM_EMPTY(hi))
2115 {
2116 --todo;
Bram Moolenaar33570922005-01-25 22:26:29 +00002117 di = HI2DI(hi);
2118 if (empty || di->di_tv.v_type != VAR_STRING
2119 || di->di_tv.vval.v_string != NULL)
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002120 list_one_var(di, prefix, first);
Bram Moolenaara7043832005-01-21 11:56:39 +00002121 }
2122 }
2123}
2124
2125/*
2126 * List global variables.
2127 */
2128 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002129list_glob_vars(first)
2130 int *first;
Bram Moolenaara7043832005-01-21 11:56:39 +00002131{
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002132 list_hashtable_vars(&globvarht, (char_u *)"", TRUE, first);
Bram Moolenaara7043832005-01-21 11:56:39 +00002133}
2134
2135/*
2136 * List buffer variables.
2137 */
2138 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002139list_buf_vars(first)
2140 int *first;
Bram Moolenaara7043832005-01-21 11:56:39 +00002141{
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002142 char_u numbuf[NUMBUFLEN];
2143
Bram Moolenaar429fa852013-04-15 12:27:36 +02002144 list_hashtable_vars(&curbuf->b_vars->dv_hashtab, (char_u *)"b:",
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002145 TRUE, first);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002146
2147 sprintf((char *)numbuf, "%ld", (long)curbuf->b_changedtick);
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002148 list_one_var_a((char_u *)"b:", (char_u *)"changedtick", VAR_NUMBER,
2149 numbuf, first);
Bram Moolenaara7043832005-01-21 11:56:39 +00002150}
2151
2152/*
2153 * List window variables.
2154 */
2155 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002156list_win_vars(first)
2157 int *first;
Bram Moolenaara7043832005-01-21 11:56:39 +00002158{
Bram Moolenaar429fa852013-04-15 12:27:36 +02002159 list_hashtable_vars(&curwin->w_vars->dv_hashtab,
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002160 (char_u *)"w:", TRUE, first);
Bram Moolenaara7043832005-01-21 11:56:39 +00002161}
2162
Bram Moolenaar910f66f2006-04-05 20:41:53 +00002163#ifdef FEAT_WINDOWS
2164/*
2165 * List tab page variables.
2166 */
2167 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002168list_tab_vars(first)
2169 int *first;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00002170{
Bram Moolenaar429fa852013-04-15 12:27:36 +02002171 list_hashtable_vars(&curtab->tp_vars->dv_hashtab,
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002172 (char_u *)"t:", TRUE, first);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00002173}
2174#endif
2175
Bram Moolenaara7043832005-01-21 11:56:39 +00002176/*
2177 * List Vim variables.
2178 */
2179 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002180list_vim_vars(first)
2181 int *first;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002182{
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002183 list_hashtable_vars(&vimvarht, (char_u *)"v:", FALSE, first);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002184}
2185
2186/*
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00002187 * List script-local variables, if there is a script.
2188 */
2189 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002190list_script_vars(first)
2191 int *first;
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00002192{
2193 if (current_SID > 0 && current_SID <= ga_scripts.ga_len)
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002194 list_hashtable_vars(&SCRIPT_VARS(current_SID),
2195 (char_u *)"s:", FALSE, first);
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00002196}
2197
2198/*
2199 * List function variables, if there is a function.
2200 */
2201 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002202list_func_vars(first)
2203 int *first;
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00002204{
2205 if (current_funccal != NULL)
2206 list_hashtable_vars(&current_funccal->l_vars.dv_hashtab,
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002207 (char_u *)"l:", FALSE, first);
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00002208}
2209
2210/*
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002211 * List variables in "arg".
2212 */
2213 static char_u *
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002214list_arg_vars(eap, arg, first)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002215 exarg_T *eap;
2216 char_u *arg;
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002217 int *first;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002218{
2219 int error = FALSE;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002220 int len;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002221 char_u *name;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002222 char_u *name_start;
2223 char_u *arg_subsc;
2224 char_u *tofree;
2225 typval_T tv;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002226
2227 while (!ends_excmd(*arg) && !got_int)
2228 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002229 if (error || eap->skip)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002230 {
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00002231 arg = find_name_end(arg, NULL, NULL, FNE_INCL_BR | FNE_CHECK_START);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002232 if (!vim_iswhite(*arg) && !ends_excmd(*arg))
2233 {
2234 emsg_severe = TRUE;
2235 EMSG(_(e_trailing));
2236 break;
2237 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002238 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002239 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002240 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002241 /* get_name_len() takes care of expanding curly braces */
2242 name_start = name = arg;
2243 len = get_name_len(&arg, &tofree, TRUE, TRUE);
2244 if (len <= 0)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002245 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002246 /* This is mainly to keep test 49 working: when expanding
2247 * curly braces fails overrule the exception error message. */
2248 if (len < 0 && !aborting())
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002249 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002250 emsg_severe = TRUE;
2251 EMSG2(_(e_invarg2), arg);
2252 break;
2253 }
2254 error = TRUE;
2255 }
2256 else
2257 {
2258 if (tofree != NULL)
2259 name = tofree;
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002260 if (get_var_tv(name, len, &tv, TRUE, FALSE) == FAIL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002261 error = TRUE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002262 else
2263 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002264 /* handle d.key, l[idx], f(expr) */
2265 arg_subsc = arg;
2266 if (handle_subscript(&arg, &tv, TRUE, TRUE) == FAIL)
Bram Moolenaara7043832005-01-21 11:56:39 +00002267 error = TRUE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002268 else
Bram Moolenaara7043832005-01-21 11:56:39 +00002269 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002270 if (arg == arg_subsc && len == 2 && name[1] == ':')
Bram Moolenaara7043832005-01-21 11:56:39 +00002271 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002272 switch (*name)
Bram Moolenaara7043832005-01-21 11:56:39 +00002273 {
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002274 case 'g': list_glob_vars(first); break;
2275 case 'b': list_buf_vars(first); break;
2276 case 'w': list_win_vars(first); break;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00002277#ifdef FEAT_WINDOWS
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002278 case 't': list_tab_vars(first); break;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00002279#endif
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002280 case 'v': list_vim_vars(first); break;
2281 case 's': list_script_vars(first); break;
2282 case 'l': list_func_vars(first); break;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002283 default:
2284 EMSG2(_("E738: Can't list variables for %s"), name);
Bram Moolenaara7043832005-01-21 11:56:39 +00002285 }
Bram Moolenaara7043832005-01-21 11:56:39 +00002286 }
2287 else
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002288 {
2289 char_u numbuf[NUMBUFLEN];
2290 char_u *tf;
2291 int c;
2292 char_u *s;
2293
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00002294 s = echo_string(&tv, &tf, numbuf, 0);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002295 c = *arg;
2296 *arg = NUL;
2297 list_one_var_a((char_u *)"",
2298 arg == arg_subsc ? name : name_start,
Bram Moolenaar7d61a922007-08-30 09:12:23 +00002299 tv.v_type,
2300 s == NULL ? (char_u *)"" : s,
2301 first);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002302 *arg = c;
2303 vim_free(tf);
2304 }
2305 clear_tv(&tv);
Bram Moolenaara7043832005-01-21 11:56:39 +00002306 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002307 }
2308 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002309
2310 vim_free(tofree);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002311 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00002312
2313 arg = skipwhite(arg);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002314 }
2315
2316 return arg;
2317}
2318
2319/*
2320 * Set one item of ":let var = expr" or ":let [v1, v2] = list" to its value.
2321 * Returns a pointer to the char just after the var name.
2322 * Returns NULL if there is an error.
2323 */
2324 static char_u *
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002325ex_let_one(arg, tv, copy, endchars, op)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002326 char_u *arg; /* points to variable name */
Bram Moolenaar33570922005-01-25 22:26:29 +00002327 typval_T *tv; /* value to assign to variable */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002328 int copy; /* copy value from "tv" */
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002329 char_u *endchars; /* valid chars after variable name or NULL */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002330 char_u *op; /* "+", "-", "." or NULL*/
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002331{
2332 int c1;
2333 char_u *name;
2334 char_u *p;
2335 char_u *arg_end = NULL;
2336 int len;
2337 int opt_flags;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002338 char_u *tofree = NULL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002339
2340 /*
2341 * ":let $VAR = expr": Set environment variable.
2342 */
2343 if (*arg == '$')
2344 {
2345 /* Find the end of the name. */
2346 ++arg;
2347 name = arg;
2348 len = get_env_len(&arg);
2349 if (len == 0)
2350 EMSG2(_(e_invarg2), name - 1);
2351 else
2352 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002353 if (op != NULL && (*op == '+' || *op == '-'))
2354 EMSG2(_(e_letwrong), op);
2355 else if (endchars != NULL
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002356 && vim_strchr(endchars, *skipwhite(arg)) == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002357 EMSG(_(e_letunexp));
Bram Moolenaard4ddfaf2010-12-02 14:48:14 +01002358 else if (!check_secure())
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002359 {
2360 c1 = name[len];
2361 name[len] = NUL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002362 p = get_tv_string_chk(tv);
2363 if (p != NULL && op != NULL && *op == '.')
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002364 {
2365 int mustfree = FALSE;
2366 char_u *s = vim_getenv(name, &mustfree);
2367
2368 if (s != NULL)
2369 {
2370 p = tofree = concat_str(s, p);
2371 if (mustfree)
2372 vim_free(s);
2373 }
2374 }
2375 if (p != NULL)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002376 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002377 vim_setenv(name, p);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002378 if (STRICMP(name, "HOME") == 0)
2379 init_homedir();
2380 else if (didset_vim && STRICMP(name, "VIM") == 0)
2381 didset_vim = FALSE;
2382 else if (didset_vimruntime
2383 && STRICMP(name, "VIMRUNTIME") == 0)
2384 didset_vimruntime = FALSE;
2385 arg_end = arg;
2386 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002387 name[len] = c1;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002388 vim_free(tofree);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002389 }
2390 }
2391 }
2392
2393 /*
2394 * ":let &option = expr": Set option value.
2395 * ":let &l:option = expr": Set local option value.
2396 * ":let &g:option = expr": Set global option value.
2397 */
2398 else if (*arg == '&')
2399 {
2400 /* Find the end of the name. */
2401 p = find_option_end(&arg, &opt_flags);
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002402 if (p == NULL || (endchars != NULL
2403 && vim_strchr(endchars, *skipwhite(p)) == NULL))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002404 EMSG(_(e_letunexp));
2405 else
2406 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002407 long n;
2408 int opt_type;
2409 long numval;
2410 char_u *stringval = NULL;
2411 char_u *s;
2412
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002413 c1 = *p;
2414 *p = NUL;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002415
2416 n = get_tv_number(tv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002417 s = get_tv_string_chk(tv); /* != NULL if number or string */
2418 if (s != NULL && op != NULL && *op != '=')
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002419 {
2420 opt_type = get_option_value(arg, &numval,
2421 &stringval, opt_flags);
2422 if ((opt_type == 1 && *op == '.')
2423 || (opt_type == 0 && *op != '.'))
2424 EMSG2(_(e_letwrong), op);
2425 else
2426 {
2427 if (opt_type == 1) /* number */
2428 {
2429 if (*op == '+')
2430 n = numval + n;
2431 else
2432 n = numval - n;
2433 }
2434 else if (opt_type == 0 && stringval != NULL) /* string */
2435 {
2436 s = concat_str(stringval, s);
2437 vim_free(stringval);
2438 stringval = s;
2439 }
2440 }
2441 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002442 if (s != NULL)
2443 {
2444 set_option_value(arg, n, s, opt_flags);
2445 arg_end = p;
2446 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002447 *p = c1;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002448 vim_free(stringval);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002449 }
2450 }
2451
2452 /*
2453 * ":let @r = expr": Set register contents.
2454 */
2455 else if (*arg == '@')
2456 {
2457 ++arg;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002458 if (op != NULL && (*op == '+' || *op == '-'))
2459 EMSG2(_(e_letwrong), op);
2460 else if (endchars != NULL
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00002461 && vim_strchr(endchars, *skipwhite(arg + 1)) == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002462 EMSG(_(e_letunexp));
2463 else
2464 {
Bram Moolenaar89d40322006-08-29 15:30:07 +00002465 char_u *ptofree = NULL;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002466 char_u *s;
2467
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002468 p = get_tv_string_chk(tv);
2469 if (p != NULL && op != NULL && *op == '.')
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002470 {
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +02002471 s = get_reg_contents(*arg == '@' ? '"' : *arg, GREG_EXPR_SRC);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002472 if (s != NULL)
2473 {
Bram Moolenaar89d40322006-08-29 15:30:07 +00002474 p = ptofree = concat_str(s, p);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002475 vim_free(s);
2476 }
2477 }
2478 if (p != NULL)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002479 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002480 write_reg_contents(*arg == '@' ? '"' : *arg, p, -1, FALSE);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002481 arg_end = arg + 1;
2482 }
Bram Moolenaar89d40322006-08-29 15:30:07 +00002483 vim_free(ptofree);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002484 }
2485 }
2486
2487 /*
2488 * ":let var = expr": Set internal variable.
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002489 * ":let {expr} = expr": Idem, name made with curly braces
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002490 */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00002491 else if (eval_isnamec1(*arg) || *arg == '{')
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002492 {
Bram Moolenaar33570922005-01-25 22:26:29 +00002493 lval_T lv;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002494
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002495 p = get_lval(arg, tv, &lv, FALSE, FALSE, 0, FNE_CHECK_START);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002496 if (p != NULL && lv.ll_name != NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002497 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002498 if (endchars != NULL && vim_strchr(endchars, *skipwhite(p)) == NULL)
2499 EMSG(_(e_letunexp));
2500 else
2501 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002502 set_var_lval(&lv, p, tv, copy, op);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002503 arg_end = p;
2504 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002505 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002506 clear_lval(&lv);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002507 }
2508
2509 else
2510 EMSG2(_(e_invarg2), arg);
2511
2512 return arg_end;
2513}
2514
2515/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00002516 * If "arg" is equal to "b:changedtick" give an error and return TRUE.
2517 */
2518 static int
2519check_changedtick(arg)
2520 char_u *arg;
2521{
2522 if (STRNCMP(arg, "b:changedtick", 13) == 0 && !eval_isnamec(arg[13]))
2523 {
2524 EMSG2(_(e_readonlyvar), arg);
2525 return TRUE;
2526 }
2527 return FALSE;
2528}
2529
2530/*
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002531 * Get an lval: variable, Dict item or List item that can be assigned a value
2532 * to: "name", "na{me}", "name[expr]", "name[expr:expr]", "name[expr][expr]",
2533 * "name.key", "name.key[expr]" etc.
2534 * Indexing only works if "name" is an existing List or Dictionary.
2535 * "name" points to the start of the name.
2536 * If "rettv" is not NULL it points to the value to be assigned.
2537 * "unlet" is TRUE for ":unlet": slightly different behavior when something is
2538 * wrong; must end in space or cmd separator.
2539 *
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002540 * flags:
2541 * GLV_QUIET: do not give error messages
2542 * GLV_NO_AUTOLOAD: do not use script autoloading
2543 *
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002544 * Returns a pointer to just after the name, including indexes.
Bram Moolenaara7043832005-01-21 11:56:39 +00002545 * When an evaluation error occurs "lp->ll_name" is NULL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002546 * Returns NULL for a parsing error. Still need to free items in "lp"!
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002547 */
2548 static char_u *
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002549get_lval(name, rettv, lp, unlet, skip, flags, fne_flags)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002550 char_u *name;
Bram Moolenaar33570922005-01-25 22:26:29 +00002551 typval_T *rettv;
2552 lval_T *lp;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002553 int unlet;
2554 int skip;
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002555 int flags; /* GLV_ values */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00002556 int fne_flags; /* flags for find_name_end() */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002557{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002558 char_u *p;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002559 char_u *expr_start, *expr_end;
2560 int cc;
Bram Moolenaar33570922005-01-25 22:26:29 +00002561 dictitem_T *v;
2562 typval_T var1;
2563 typval_T var2;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002564 int empty1 = FALSE;
Bram Moolenaar33570922005-01-25 22:26:29 +00002565 listitem_T *ni;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002566 char_u *key = NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002567 int len;
Bram Moolenaar33570922005-01-25 22:26:29 +00002568 hashtab_T *ht;
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002569 int quiet = flags & GLV_QUIET;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002570
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002571 /* Clear everything in "lp". */
Bram Moolenaar33570922005-01-25 22:26:29 +00002572 vim_memset(lp, 0, sizeof(lval_T));
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002573
2574 if (skip)
2575 {
2576 /* When skipping just find the end of the name. */
2577 lp->ll_name = name;
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00002578 return find_name_end(name, NULL, NULL, FNE_INCL_BR | fne_flags);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002579 }
2580
2581 /* Find the end of the name. */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00002582 p = find_name_end(name, &expr_start, &expr_end, fne_flags);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002583 if (expr_start != NULL)
2584 {
2585 /* Don't expand the name when we already know there is an error. */
2586 if (unlet && !vim_iswhite(*p) && !ends_excmd(*p)
2587 && *p != '[' && *p != '.')
2588 {
2589 EMSG(_(e_trailing));
2590 return NULL;
2591 }
2592
2593 lp->ll_exp_name = make_expanded_name(name, expr_start, expr_end, p);
2594 if (lp->ll_exp_name == NULL)
2595 {
2596 /* Report an invalid expression in braces, unless the
2597 * expression evaluation has been cancelled due to an
2598 * aborting error, an interrupt, or an exception. */
2599 if (!aborting() && !quiet)
2600 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00002601 emsg_severe = TRUE;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002602 EMSG2(_(e_invarg2), name);
2603 return NULL;
2604 }
2605 }
2606 lp->ll_name = lp->ll_exp_name;
2607 }
2608 else
2609 lp->ll_name = name;
2610
2611 /* Without [idx] or .key we are done. */
2612 if ((*p != '[' && *p != '.') || lp->ll_name == NULL)
2613 return p;
2614
2615 cc = *p;
2616 *p = NUL;
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002617 v = find_var(lp->ll_name, &ht, flags & GLV_NO_AUTOLOAD);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002618 if (v == NULL && !quiet)
2619 EMSG2(_(e_undefvar), lp->ll_name);
2620 *p = cc;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002621 if (v == NULL)
2622 return NULL;
2623
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002624 /*
2625 * Loop until no more [idx] or .key is following.
2626 */
Bram Moolenaar33570922005-01-25 22:26:29 +00002627 lp->ll_tv = &v->di_tv;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002628 while (*p == '[' || (*p == '.' && lp->ll_tv->v_type == VAR_DICT))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002629 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002630 if (!(lp->ll_tv->v_type == VAR_LIST && lp->ll_tv->vval.v_list != NULL)
2631 && !(lp->ll_tv->v_type == VAR_DICT
2632 && lp->ll_tv->vval.v_dict != NULL))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002633 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002634 if (!quiet)
2635 EMSG(_("E689: Can only index a List or Dictionary"));
2636 return NULL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002637 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002638 if (lp->ll_range)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002639 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002640 if (!quiet)
2641 EMSG(_("E708: [:] must come last"));
2642 return NULL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002643 }
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002644
Bram Moolenaar8c711452005-01-14 21:53:12 +00002645 len = -1;
2646 if (*p == '.')
2647 {
2648 key = p + 1;
2649 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len)
2650 ;
2651 if (len == 0)
2652 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002653 if (!quiet)
2654 EMSG(_(e_emptykey));
2655 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002656 }
2657 p = key + len;
2658 }
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002659 else
2660 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00002661 /* Get the index [expr] or the first index [expr: ]. */
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002662 p = skipwhite(p + 1);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002663 if (*p == ':')
2664 empty1 = TRUE;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002665 else
2666 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00002667 empty1 = FALSE;
2668 if (eval1(&p, &var1, TRUE) == FAIL) /* recursive! */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002669 return NULL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002670 if (get_tv_string_chk(&var1) == NULL)
2671 {
2672 /* not a number or string */
2673 clear_tv(&var1);
2674 return NULL;
2675 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00002676 }
2677
2678 /* Optionally get the second index [ :expr]. */
2679 if (*p == ':')
2680 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002681 if (lp->ll_tv->v_type == VAR_DICT)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002682 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002683 if (!quiet)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002684 EMSG(_(e_dictrange));
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002685 if (!empty1)
2686 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002687 return NULL;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002688 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002689 if (rettv != NULL && (rettv->v_type != VAR_LIST
2690 || rettv->vval.v_list == NULL))
Bram Moolenaar8c711452005-01-14 21:53:12 +00002691 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002692 if (!quiet)
2693 EMSG(_("E709: [:] requires a List value"));
Bram Moolenaar8c711452005-01-14 21:53:12 +00002694 if (!empty1)
2695 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002696 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002697 }
2698 p = skipwhite(p + 1);
2699 if (*p == ']')
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002700 lp->ll_empty2 = TRUE;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002701 else
2702 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002703 lp->ll_empty2 = FALSE;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002704 if (eval1(&p, &var2, TRUE) == FAIL) /* recursive! */
2705 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00002706 if (!empty1)
2707 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002708 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002709 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002710 if (get_tv_string_chk(&var2) == NULL)
2711 {
2712 /* not a number or string */
2713 if (!empty1)
2714 clear_tv(&var1);
2715 clear_tv(&var2);
2716 return NULL;
2717 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00002718 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002719 lp->ll_range = TRUE;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002720 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00002721 else
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002722 lp->ll_range = FALSE;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002723
Bram Moolenaar8c711452005-01-14 21:53:12 +00002724 if (*p != ']')
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002725 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002726 if (!quiet)
2727 EMSG(_(e_missbrac));
Bram Moolenaar8c711452005-01-14 21:53:12 +00002728 if (!empty1)
2729 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002730 if (lp->ll_range && !lp->ll_empty2)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002731 clear_tv(&var2);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002732 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002733 }
2734
2735 /* Skip to past ']'. */
2736 ++p;
2737 }
2738
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002739 if (lp->ll_tv->v_type == VAR_DICT)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002740 {
2741 if (len == -1)
2742 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002743 /* "[key]": get key from "var1" */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002744 key = get_tv_string(&var1); /* is number or string */
Bram Moolenaar8c711452005-01-14 21:53:12 +00002745 if (*key == NUL)
2746 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002747 if (!quiet)
2748 EMSG(_(e_emptykey));
Bram Moolenaar8c711452005-01-14 21:53:12 +00002749 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002750 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002751 }
2752 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002753 lp->ll_list = NULL;
2754 lp->ll_dict = lp->ll_tv->vval.v_dict;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00002755 lp->ll_di = dict_find(lp->ll_dict, key, len);
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002756
Bram Moolenaarbdb62052012-07-16 17:31:53 +02002757 /* When assigning to a scope dictionary check that a function and
2758 * variable name is valid (only variable name unless it is l: or
2759 * g: dictionary). Disallow overwriting a builtin function. */
2760 if (rettv != NULL && lp->ll_dict->dv_scope != 0)
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002761 {
Bram Moolenaarbdb62052012-07-16 17:31:53 +02002762 int prevval;
2763 int wrong;
2764
2765 if (len != -1)
2766 {
2767 prevval = key[len];
2768 key[len] = NUL;
2769 }
Bram Moolenaar4380d1e2013-06-09 20:51:00 +02002770 else
2771 prevval = 0; /* avoid compiler warning */
Bram Moolenaarbdb62052012-07-16 17:31:53 +02002772 wrong = (lp->ll_dict->dv_scope == VAR_DEF_SCOPE
2773 && rettv->v_type == VAR_FUNC
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002774 && var_check_func_name(key, lp->ll_di == NULL))
Bram Moolenaarbdb62052012-07-16 17:31:53 +02002775 || !valid_varname(key);
2776 if (len != -1)
2777 key[len] = prevval;
2778 if (wrong)
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002779 return NULL;
2780 }
2781
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002782 if (lp->ll_di == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002783 {
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002784 /* Can't add "v:" variable. */
2785 if (lp->ll_dict == &vimvardict)
2786 {
2787 EMSG2(_(e_illvar), name);
2788 return NULL;
2789 }
2790
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00002791 /* Key does not exist in dict: may need to add it. */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002792 if (*p == '[' || *p == '.' || unlet)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002793 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002794 if (!quiet)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002795 EMSG2(_(e_dictkey), key);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002796 if (len == -1)
2797 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002798 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002799 }
2800 if (len == -1)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002801 lp->ll_newkey = vim_strsave(key);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002802 else
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002803 lp->ll_newkey = vim_strnsave(key, len);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002804 if (len == -1)
2805 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002806 if (lp->ll_newkey == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002807 p = NULL;
2808 break;
2809 }
Bram Moolenaar4228bec2011-03-27 16:03:15 +02002810 /* existing variable, need to check if it can be changed */
2811 else if (var_check_ro(lp->ll_di->di_flags, name))
2812 return NULL;
2813
Bram Moolenaar8c711452005-01-14 21:53:12 +00002814 if (len == -1)
2815 clear_tv(&var1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002816 lp->ll_tv = &lp->ll_di->di_tv;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002817 }
2818 else
2819 {
2820 /*
2821 * Get the number and item for the only or first index of the List.
2822 */
2823 if (empty1)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002824 lp->ll_n1 = 0;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002825 else
2826 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002827 lp->ll_n1 = get_tv_number(&var1); /* is number or string */
Bram Moolenaar8c711452005-01-14 21:53:12 +00002828 clear_tv(&var1);
2829 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002830 lp->ll_dict = NULL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002831 lp->ll_list = lp->ll_tv->vval.v_list;
2832 lp->ll_li = list_find(lp->ll_list, lp->ll_n1);
2833 if (lp->ll_li == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002834 {
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00002835 if (lp->ll_n1 < 0)
2836 {
2837 lp->ll_n1 = 0;
2838 lp->ll_li = list_find(lp->ll_list, lp->ll_n1);
2839 }
2840 }
2841 if (lp->ll_li == NULL)
2842 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002843 if (lp->ll_range && !lp->ll_empty2)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002844 clear_tv(&var2);
Bram Moolenaare9623882011-04-21 14:27:28 +02002845 if (!quiet)
2846 EMSGN(_(e_listidx), lp->ll_n1);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002847 return NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00002848 }
2849
2850 /*
2851 * May need to find the item or absolute index for the second
2852 * index of a range.
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002853 * When no index given: "lp->ll_empty2" is TRUE.
2854 * Otherwise "lp->ll_n2" is set to the second index.
Bram Moolenaar8c711452005-01-14 21:53:12 +00002855 */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002856 if (lp->ll_range && !lp->ll_empty2)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002857 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00002858 lp->ll_n2 = get_tv_number(&var2); /* is number or string */
Bram Moolenaar8c711452005-01-14 21:53:12 +00002859 clear_tv(&var2);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002860 if (lp->ll_n2 < 0)
Bram Moolenaar8c711452005-01-14 21:53:12 +00002861 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002862 ni = list_find(lp->ll_list, lp->ll_n2);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002863 if (ni == NULL)
Bram Moolenaare9623882011-04-21 14:27:28 +02002864 {
2865 if (!quiet)
2866 EMSGN(_(e_listidx), lp->ll_n2);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002867 return NULL;
Bram Moolenaare9623882011-04-21 14:27:28 +02002868 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002869 lp->ll_n2 = list_idx_of_item(lp->ll_list, ni);
Bram Moolenaar8c711452005-01-14 21:53:12 +00002870 }
2871
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002872 /* Check that lp->ll_n2 isn't before lp->ll_n1. */
2873 if (lp->ll_n1 < 0)
2874 lp->ll_n1 = list_idx_of_item(lp->ll_list, lp->ll_li);
2875 if (lp->ll_n2 < lp->ll_n1)
Bram Moolenaare9623882011-04-21 14:27:28 +02002876 {
2877 if (!quiet)
2878 EMSGN(_(e_listidx), lp->ll_n2);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002879 return NULL;
Bram Moolenaare9623882011-04-21 14:27:28 +02002880 }
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002881 }
2882
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002883 lp->ll_tv = &lp->ll_li->li_tv;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002884 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002885 }
2886
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002887 return p;
2888}
2889
2890/*
Bram Moolenaar33570922005-01-25 22:26:29 +00002891 * Clear lval "lp" that was filled by get_lval().
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002892 */
2893 static void
2894clear_lval(lp)
Bram Moolenaar33570922005-01-25 22:26:29 +00002895 lval_T *lp;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002896{
2897 vim_free(lp->ll_exp_name);
2898 vim_free(lp->ll_newkey);
2899}
2900
2901/*
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00002902 * Set a variable that was parsed by get_lval() to "rettv".
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002903 * "endp" points to just after the parsed name.
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002904 * "op" is NULL, "+" for "+=", "-" for "-=", "." for ".=" or "=" for "=".
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002905 */
2906 static void
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002907set_var_lval(lp, endp, rettv, copy, op)
Bram Moolenaar33570922005-01-25 22:26:29 +00002908 lval_T *lp;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002909 char_u *endp;
Bram Moolenaar33570922005-01-25 22:26:29 +00002910 typval_T *rettv;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002911 int copy;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002912 char_u *op;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002913{
2914 int cc;
Bram Moolenaar33570922005-01-25 22:26:29 +00002915 listitem_T *ri;
2916 dictitem_T *di;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002917
2918 if (lp->ll_tv == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002919 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002920 if (!check_changedtick(lp->ll_name))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002921 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002922 cc = *endp;
2923 *endp = NUL;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002924 if (op != NULL && *op != '=')
2925 {
Bram Moolenaar33570922005-01-25 22:26:29 +00002926 typval_T tv;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002927
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00002928 /* handle +=, -= and .= */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00002929 if (get_var_tv(lp->ll_name, (int)STRLEN(lp->ll_name),
Bram Moolenaar6d977d62014-01-14 15:24:39 +01002930 &tv, TRUE, FALSE) == OK)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002931 {
2932 if (tv_op(&tv, rettv, op) == OK)
2933 set_var(lp->ll_name, &tv, FALSE);
2934 clear_tv(&tv);
2935 }
2936 }
2937 else
2938 set_var(lp->ll_name, rettv, copy);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002939 *endp = cc;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00002940 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002941 }
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00002942 else if (tv_check_lock(lp->ll_newkey == NULL
2943 ? lp->ll_tv->v_lock
2944 : lp->ll_tv->vval.v_dict->dv_lock, lp->ll_name))
2945 ;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002946 else if (lp->ll_range)
2947 {
Bram Moolenaarf2d912e2014-08-29 09:46:10 +02002948 listitem_T *ll_li = lp->ll_li;
2949 int ll_n1 = lp->ll_n1;
2950
2951 /*
2952 * Check whether any of the list items is locked
2953 */
Bram Moolenaarb2a851f2014-12-07 00:18:33 +01002954 for (ri = rettv->vval.v_list->lv_first; ri != NULL && ll_li != NULL; )
Bram Moolenaarf2d912e2014-08-29 09:46:10 +02002955 {
2956 if (tv_check_lock(ll_li->li_tv.v_lock, lp->ll_name))
2957 return;
2958 ri = ri->li_next;
2959 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == ll_n1))
2960 break;
2961 ll_li = ll_li->li_next;
2962 ++ll_n1;
2963 }
2964
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002965 /*
2966 * Assign the List values to the list items.
2967 */
2968 for (ri = rettv->vval.v_list->lv_first; ri != NULL; )
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002969 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002970 if (op != NULL && *op != '=')
2971 tv_op(&lp->ll_li->li_tv, &ri->li_tv, op);
2972 else
2973 {
2974 clear_tv(&lp->ll_li->li_tv);
2975 copy_tv(&ri->li_tv, &lp->ll_li->li_tv);
2976 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002977 ri = ri->li_next;
2978 if (ri == NULL || (!lp->ll_empty2 && lp->ll_n2 == lp->ll_n1))
2979 break;
2980 if (lp->ll_li->li_next == NULL)
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002981 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002982 /* Need to add an empty item. */
Bram Moolenaar4463f292005-09-25 22:20:24 +00002983 if (list_append_number(lp->ll_list, 0) == FAIL)
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002984 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002985 ri = NULL;
2986 break;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002987 }
Bram Moolenaar6cc16192005-01-08 21:49:45 +00002988 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002989 lp->ll_li = lp->ll_li->li_next;
2990 ++lp->ll_n1;
2991 }
2992 if (ri != NULL)
2993 EMSG(_("E710: List value has more items than target"));
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00002994 else if (lp->ll_empty2
2995 ? (lp->ll_li != NULL && lp->ll_li->li_next != NULL)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00002996 : lp->ll_n1 != lp->ll_n2)
2997 EMSG(_("E711: List value has not enough items"));
2998 }
2999 else
3000 {
3001 /*
3002 * Assign to a List or Dictionary item.
3003 */
3004 if (lp->ll_newkey != NULL)
3005 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003006 if (op != NULL && *op != '=')
3007 {
3008 EMSG2(_(e_letwrong), op);
3009 return;
3010 }
3011
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003012 /* Need to add an item to the Dictionary. */
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003013 di = dictitem_alloc(lp->ll_newkey);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003014 if (di == NULL)
3015 return;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003016 if (dict_add(lp->ll_tv->vval.v_dict, di) == FAIL)
3017 {
3018 vim_free(di);
3019 return;
3020 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003021 lp->ll_tv = &di->di_tv;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00003022 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003023 else if (op != NULL && *op != '=')
3024 {
3025 tv_op(lp->ll_tv, rettv, op);
3026 return;
3027 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003028 else
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003029 clear_tv(lp->ll_tv);
Bram Moolenaar8c711452005-01-14 21:53:12 +00003030
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003031 /*
3032 * Assign the value to the variable or list item.
3033 */
3034 if (copy)
3035 copy_tv(rettv, lp->ll_tv);
3036 else
3037 {
3038 *lp->ll_tv = *rettv;
Bram Moolenaar758711c2005-02-02 23:11:38 +00003039 lp->ll_tv->v_lock = 0;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003040 init_tv(rettv);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003041 }
3042 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003043}
3044
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003045/*
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003046 * Handle "tv1 += tv2", "tv1 -= tv2" and "tv1 .= tv2"
3047 * Returns OK or FAIL.
3048 */
3049 static int
3050tv_op(tv1, tv2, op)
Bram Moolenaar33570922005-01-25 22:26:29 +00003051 typval_T *tv1;
3052 typval_T *tv2;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003053 char_u *op;
3054{
3055 long n;
3056 char_u numbuf[NUMBUFLEN];
3057 char_u *s;
3058
3059 /* Can't do anything with a Funcref or a Dict on the right. */
3060 if (tv2->v_type != VAR_FUNC && tv2->v_type != VAR_DICT)
3061 {
3062 switch (tv1->v_type)
3063 {
3064 case VAR_DICT:
3065 case VAR_FUNC:
3066 break;
3067
3068 case VAR_LIST:
3069 if (*op != '+' || tv2->v_type != VAR_LIST)
3070 break;
3071 /* List += List */
3072 if (tv1->vval.v_list != NULL && tv2->vval.v_list != NULL)
3073 list_extend(tv1->vval.v_list, tv2->vval.v_list, NULL);
3074 return OK;
3075
3076 case VAR_NUMBER:
3077 case VAR_STRING:
3078 if (tv2->v_type == VAR_LIST)
3079 break;
3080 if (*op == '+' || *op == '-')
3081 {
3082 /* nr += nr or nr -= nr*/
3083 n = get_tv_number(tv1);
Bram Moolenaar8c8de832008-06-24 22:58:06 +00003084#ifdef FEAT_FLOAT
3085 if (tv2->v_type == VAR_FLOAT)
3086 {
3087 float_T f = n;
3088
3089 if (*op == '+')
3090 f += tv2->vval.v_float;
3091 else
3092 f -= tv2->vval.v_float;
3093 clear_tv(tv1);
3094 tv1->v_type = VAR_FLOAT;
3095 tv1->vval.v_float = f;
3096 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003097 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00003098#endif
3099 {
3100 if (*op == '+')
3101 n += get_tv_number(tv2);
3102 else
3103 n -= get_tv_number(tv2);
3104 clear_tv(tv1);
3105 tv1->v_type = VAR_NUMBER;
3106 tv1->vval.v_number = n;
3107 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003108 }
3109 else
3110 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00003111 if (tv2->v_type == VAR_FLOAT)
3112 break;
3113
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003114 /* str .= str */
3115 s = get_tv_string(tv1);
3116 s = concat_str(s, get_tv_string_buf(tv2, numbuf));
3117 clear_tv(tv1);
3118 tv1->v_type = VAR_STRING;
3119 tv1->vval.v_string = s;
3120 }
3121 return OK;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00003122
3123#ifdef FEAT_FLOAT
3124 case VAR_FLOAT:
3125 {
3126 float_T f;
3127
3128 if (*op == '.' || (tv2->v_type != VAR_FLOAT
3129 && tv2->v_type != VAR_NUMBER
3130 && tv2->v_type != VAR_STRING))
3131 break;
3132 if (tv2->v_type == VAR_FLOAT)
3133 f = tv2->vval.v_float;
3134 else
3135 f = get_tv_number(tv2);
3136 if (*op == '+')
3137 tv1->vval.v_float += f;
3138 else
3139 tv1->vval.v_float -= f;
3140 }
3141 return OK;
3142#endif
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003143 }
3144 }
3145
3146 EMSG2(_(e_letwrong), op);
3147 return FAIL;
3148}
3149
3150/*
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003151 * Add a watcher to a list.
3152 */
Bram Moolenaarb6c589a2013-05-15 14:39:52 +02003153 void
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003154list_add_watch(l, lw)
Bram Moolenaar33570922005-01-25 22:26:29 +00003155 list_T *l;
3156 listwatch_T *lw;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003157{
3158 lw->lw_next = l->lv_watch;
3159 l->lv_watch = lw;
3160}
3161
3162/*
Bram Moolenaar758711c2005-02-02 23:11:38 +00003163 * Remove a watcher from a list.
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003164 * No warning when it isn't found...
3165 */
Bram Moolenaarb6c589a2013-05-15 14:39:52 +02003166 void
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003167list_rem_watch(l, lwrem)
Bram Moolenaar33570922005-01-25 22:26:29 +00003168 list_T *l;
3169 listwatch_T *lwrem;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003170{
Bram Moolenaar33570922005-01-25 22:26:29 +00003171 listwatch_T *lw, **lwp;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003172
3173 lwp = &l->lv_watch;
3174 for (lw = l->lv_watch; lw != NULL; lw = lw->lw_next)
3175 {
3176 if (lw == lwrem)
3177 {
3178 *lwp = lw->lw_next;
3179 break;
3180 }
3181 lwp = &lw->lw_next;
3182 }
3183}
3184
3185/*
3186 * Just before removing an item from a list: advance watchers to the next
3187 * item.
3188 */
3189 static void
3190list_fix_watch(l, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00003191 list_T *l;
3192 listitem_T *item;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003193{
Bram Moolenaar33570922005-01-25 22:26:29 +00003194 listwatch_T *lw;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003195
3196 for (lw = l->lv_watch; lw != NULL; lw = lw->lw_next)
3197 if (lw->lw_item == item)
3198 lw->lw_item = item->li_next;
3199}
3200
3201/*
3202 * Evaluate the expression used in a ":for var in expr" command.
3203 * "arg" points to "var".
3204 * Set "*errp" to TRUE for an error, FALSE otherwise;
3205 * Return a pointer that holds the info. Null when there is an error.
3206 */
3207 void *
3208eval_for_line(arg, errp, nextcmdp, skip)
3209 char_u *arg;
3210 int *errp;
3211 char_u **nextcmdp;
3212 int skip;
3213{
Bram Moolenaar33570922005-01-25 22:26:29 +00003214 forinfo_T *fi;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003215 char_u *expr;
Bram Moolenaar33570922005-01-25 22:26:29 +00003216 typval_T tv;
3217 list_T *l;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003218
3219 *errp = TRUE; /* default: there is an error */
3220
Bram Moolenaar33570922005-01-25 22:26:29 +00003221 fi = (forinfo_T *)alloc_clear(sizeof(forinfo_T));
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003222 if (fi == NULL)
3223 return NULL;
3224
3225 expr = skip_var_list(arg, &fi->fi_varcount, &fi->fi_semicolon);
3226 if (expr == NULL)
3227 return fi;
3228
3229 expr = skipwhite(expr);
3230 if (expr[0] != 'i' || expr[1] != 'n' || !vim_iswhite(expr[2]))
3231 {
Bram Moolenaare49b69a2005-01-08 16:11:57 +00003232 EMSG(_("E690: Missing \"in\" after :for"));
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003233 return fi;
3234 }
3235
3236 if (skip)
3237 ++emsg_skip;
3238 if (eval0(skipwhite(expr + 2), &tv, nextcmdp, !skip) == OK)
3239 {
3240 *errp = FALSE;
3241 if (!skip)
3242 {
3243 l = tv.vval.v_list;
3244 if (tv.v_type != VAR_LIST || l == NULL)
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00003245 {
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003246 EMSG(_(e_listreq));
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00003247 clear_tv(&tv);
3248 }
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003249 else
3250 {
Bram Moolenaar7bb4c6e2005-09-07 21:22:27 +00003251 /* No need to increment the refcount, it's already set for the
3252 * list being used in "tv". */
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003253 fi->fi_list = l;
3254 list_add_watch(l, &fi->fi_lw);
3255 fi->fi_lw.lw_item = l->lv_first;
3256 }
3257 }
3258 }
3259 if (skip)
3260 --emsg_skip;
3261
3262 return fi;
3263}
3264
3265/*
3266 * Use the first item in a ":for" list. Advance to the next.
3267 * Assign the values to the variable (list). "arg" points to the first one.
3268 * Return TRUE when a valid item was found, FALSE when at end of list or
3269 * something wrong.
3270 */
3271 int
3272next_for_item(fi_void, arg)
3273 void *fi_void;
3274 char_u *arg;
3275{
Bram Moolenaarc4b99e02013-06-23 14:30:47 +02003276 forinfo_T *fi = (forinfo_T *)fi_void;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003277 int result;
Bram Moolenaar33570922005-01-25 22:26:29 +00003278 listitem_T *item;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003279
3280 item = fi->fi_lw.lw_item;
3281 if (item == NULL)
3282 result = FALSE;
3283 else
3284 {
3285 fi->fi_lw.lw_item = item->li_next;
3286 result = (ex_let_vars(arg, &item->li_tv, TRUE,
3287 fi->fi_semicolon, fi->fi_varcount, NULL) == OK);
3288 }
3289 return result;
3290}
3291
3292/*
3293 * Free the structure used to store info used by ":for".
3294 */
3295 void
3296free_for_info(fi_void)
3297 void *fi_void;
3298{
Bram Moolenaar33570922005-01-25 22:26:29 +00003299 forinfo_T *fi = (forinfo_T *)fi_void;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003300
Bram Moolenaarab7013c2005-01-09 21:23:56 +00003301 if (fi != NULL && fi->fi_list != NULL)
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00003302 {
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003303 list_rem_watch(fi->fi_list, &fi->fi_lw);
Bram Moolenaarf461c8e2005-06-25 23:04:51 +00003304 list_unref(fi->fi_list);
3305 }
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003306 vim_free(fi);
3307}
3308
Bram Moolenaar071d4272004-06-13 20:20:40 +00003309#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
3310
3311 void
3312set_context_for_expression(xp, arg, cmdidx)
3313 expand_T *xp;
3314 char_u *arg;
3315 cmdidx_T cmdidx;
3316{
3317 int got_eq = FALSE;
3318 int c;
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003319 char_u *p;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003320
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003321 if (cmdidx == CMD_let)
3322 {
3323 xp->xp_context = EXPAND_USER_VARS;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00003324 if (vim_strpbrk(arg, (char_u *)"\"'+-*/%.=!?~|&$([<>,#") == NULL)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003325 {
3326 /* ":let var1 var2 ...": find last space. */
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00003327 for (p = arg + STRLEN(arg); p >= arg; )
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003328 {
3329 xp->xp_pattern = p;
Bram Moolenaar33570922005-01-25 22:26:29 +00003330 mb_ptr_back(arg, p);
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003331 if (vim_iswhite(*p))
3332 break;
3333 }
3334 return;
3335 }
3336 }
3337 else
3338 xp->xp_context = cmdidx == CMD_call ? EXPAND_FUNCTIONS
3339 : EXPAND_EXPRESSION;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003340 while ((xp->xp_pattern = vim_strpbrk(arg,
3341 (char_u *)"\"'+-*/%.=!?~|&$([<>,#")) != NULL)
3342 {
3343 c = *xp->xp_pattern;
3344 if (c == '&')
3345 {
3346 c = xp->xp_pattern[1];
3347 if (c == '&')
3348 {
3349 ++xp->xp_pattern;
3350 xp->xp_context = cmdidx != CMD_let || got_eq
3351 ? EXPAND_EXPRESSION : EXPAND_NOTHING;
3352 }
3353 else if (c != ' ')
Bram Moolenaar11cbeb12005-03-11 22:51:16 +00003354 {
Bram Moolenaar071d4272004-06-13 20:20:40 +00003355 xp->xp_context = EXPAND_SETTINGS;
Bram Moolenaar11cbeb12005-03-11 22:51:16 +00003356 if ((c == 'l' || c == 'g') && xp->xp_pattern[2] == ':')
3357 xp->xp_pattern += 2;
3358
3359 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003360 }
3361 else if (c == '$')
3362 {
3363 /* environment variable */
3364 xp->xp_context = EXPAND_ENV_VARS;
3365 }
3366 else if (c == '=')
3367 {
3368 got_eq = TRUE;
3369 xp->xp_context = EXPAND_EXPRESSION;
3370 }
Bram Moolenaar8a349ff2014-11-12 20:09:06 +01003371 else if ((c == '<' || c == '#')
Bram Moolenaar071d4272004-06-13 20:20:40 +00003372 && xp->xp_context == EXPAND_FUNCTIONS
3373 && vim_strchr(xp->xp_pattern, '(') == NULL)
3374 {
Bram Moolenaar8a349ff2014-11-12 20:09:06 +01003375 /* Function name can start with "<SNR>" and contain '#'. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003376 break;
3377 }
3378 else if (cmdidx != CMD_let || got_eq)
3379 {
3380 if (c == '"') /* string */
3381 {
3382 while ((c = *++xp->xp_pattern) != NUL && c != '"')
3383 if (c == '\\' && xp->xp_pattern[1] != NUL)
3384 ++xp->xp_pattern;
3385 xp->xp_context = EXPAND_NOTHING;
3386 }
3387 else if (c == '\'') /* literal string */
3388 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00003389 /* Trick: '' is like stopping and starting a literal string. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003390 while ((c = *++xp->xp_pattern) != NUL && c != '\'')
3391 /* skip */ ;
3392 xp->xp_context = EXPAND_NOTHING;
3393 }
3394 else if (c == '|')
3395 {
3396 if (xp->xp_pattern[1] == '|')
3397 {
3398 ++xp->xp_pattern;
3399 xp->xp_context = EXPAND_EXPRESSION;
3400 }
3401 else
3402 xp->xp_context = EXPAND_COMMANDS;
3403 }
3404 else
3405 xp->xp_context = EXPAND_EXPRESSION;
3406 }
3407 else
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00003408 /* Doesn't look like something valid, expand as an expression
3409 * anyway. */
3410 xp->xp_context = EXPAND_EXPRESSION;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003411 arg = xp->xp_pattern;
3412 if (*arg != NUL)
3413 while ((c = *++arg) != NUL && (c == ' ' || c == '\t'))
3414 /* skip */ ;
3415 }
3416 xp->xp_pattern = arg;
3417}
3418
3419#endif /* FEAT_CMDL_COMPL */
3420
3421/*
3422 * ":1,25call func(arg1, arg2)" function call.
3423 */
3424 void
3425ex_call(eap)
3426 exarg_T *eap;
3427{
3428 char_u *arg = eap->arg;
3429 char_u *startarg;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003430 char_u *name;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003431 char_u *tofree;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003432 int len;
Bram Moolenaar33570922005-01-25 22:26:29 +00003433 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003434 linenr_T lnum;
3435 int doesrange;
3436 int failed = FALSE;
Bram Moolenaar33570922005-01-25 22:26:29 +00003437 funcdict_T fudi;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003438
Bram Moolenaar6d0efda2011-01-04 19:03:27 +01003439 if (eap->skip)
3440 {
3441 /* trans_function_name() doesn't work well when skipping, use eval0()
3442 * instead to skip to any following command, e.g. for:
3443 * :if 0 | call dict.foo().bar() | endif */
Bram Moolenaar25091292011-09-30 18:35:57 +02003444 ++emsg_skip;
3445 if (eval0(eap->arg, &rettv, &eap->nextcmd, FALSE) != FAIL)
3446 clear_tv(&rettv);
3447 --emsg_skip;
Bram Moolenaar6d0efda2011-01-04 19:03:27 +01003448 return;
3449 }
3450
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003451 tofree = trans_function_name(&arg, eap->skip, TFN_INT, &fudi);
Bram Moolenaara2a31752006-10-24 11:49:25 +00003452 if (fudi.fd_newkey != NULL)
3453 {
3454 /* Still need to give an error message for missing key. */
3455 EMSG2(_(e_dictkey), fudi.fd_newkey);
3456 vim_free(fudi.fd_newkey);
3457 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003458 if (tofree == NULL)
3459 return;
3460
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003461 /* Increase refcount on dictionary, it could get deleted when evaluating
3462 * the arguments. */
3463 if (fudi.fd_dict != NULL)
3464 ++fudi.fd_dict->dv_refcount;
3465
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003466 /* If it is the name of a variable of type VAR_FUNC use its contents. */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00003467 len = (int)STRLEN(tofree);
Bram Moolenaar8822a9c2014-01-14 19:44:34 +01003468 name = deref_func_name(tofree, &len, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003469
Bram Moolenaar532c7802005-01-27 14:44:31 +00003470 /* Skip white space to allow ":call func ()". Not good, but required for
3471 * backward compatibility. */
3472 startarg = skipwhite(arg);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003473 rettv.v_type = VAR_UNKNOWN; /* clear_tv() uses this */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003474
3475 if (*startarg != '(')
3476 {
Bram Moolenaar8dd9ac52008-11-06 10:05:42 +00003477 EMSG2(_("E107: Missing parentheses: %s"), eap->arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003478 goto end;
3479 }
3480
3481 /*
3482 * When skipping, evaluate the function once, to find the end of the
3483 * arguments.
3484 * When the function takes a range, this is discovered after the first
3485 * call, and the loop is broken.
3486 */
3487 if (eap->skip)
3488 {
3489 ++emsg_skip;
3490 lnum = eap->line2; /* do it once, also with an invalid range */
3491 }
3492 else
3493 lnum = eap->line1;
3494 for ( ; lnum <= eap->line2; ++lnum)
3495 {
3496 if (!eap->skip && eap->addr_count > 0)
3497 {
3498 curwin->w_cursor.lnum = lnum;
3499 curwin->w_cursor.col = 0;
Bram Moolenaar0acc5612011-07-15 21:24:11 +02003500#ifdef FEAT_VIRTUALEDIT
3501 curwin->w_cursor.coladd = 0;
3502#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00003503 }
3504 arg = startarg;
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00003505 if (get_func_tv(name, (int)STRLEN(name), &rettv, &arg,
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003506 eap->line1, eap->line2, &doesrange,
3507 !eap->skip, fudi.fd_dict) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003508 {
3509 failed = TRUE;
3510 break;
3511 }
Bram Moolenaarf2789872006-11-28 19:54:04 +00003512
3513 /* Handle a function returning a Funcref, Dictionary or List. */
3514 if (handle_subscript(&arg, &rettv, !eap->skip, TRUE) == FAIL)
3515 {
3516 failed = TRUE;
3517 break;
3518 }
3519
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003520 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003521 if (doesrange || eap->skip)
3522 break;
Bram Moolenaarf2789872006-11-28 19:54:04 +00003523
Bram Moolenaar071d4272004-06-13 20:20:40 +00003524 /* Stop when immediately aborting on error, or when an interrupt
Bram Moolenaar49cd9572005-01-03 21:06:01 +00003525 * occurred or an exception was thrown but not caught.
Bram Moolenaarc70646c2005-01-04 21:52:38 +00003526 * get_func_tv() returned OK, so that the check for trailing
Bram Moolenaar49cd9572005-01-03 21:06:01 +00003527 * characters below is executed. */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003528 if (aborting())
3529 break;
3530 }
3531 if (eap->skip)
3532 --emsg_skip;
3533
3534 if (!failed)
3535 {
3536 /* Check for trailing illegal characters and a following command. */
3537 if (!ends_excmd(*arg))
3538 {
3539 emsg_severe = TRUE;
3540 EMSG(_(e_trailing));
3541 }
3542 else
3543 eap->nextcmd = check_nextcmd(arg);
3544 }
3545
3546end:
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003547 dict_unref(fudi.fd_dict);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00003548 vim_free(tofree);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003549}
3550
3551/*
3552 * ":unlet[!] var1 ... " command.
3553 */
3554 void
3555ex_unlet(eap)
3556 exarg_T *eap;
3557{
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003558 ex_unletlock(eap, eap->arg, 0);
3559}
3560
3561/*
3562 * ":lockvar" and ":unlockvar" commands
3563 */
3564 void
3565ex_lockvar(eap)
3566 exarg_T *eap;
3567{
Bram Moolenaar071d4272004-06-13 20:20:40 +00003568 char_u *arg = eap->arg;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003569 int deep = 2;
3570
3571 if (eap->forceit)
3572 deep = -1;
3573 else if (vim_isdigit(*arg))
3574 {
3575 deep = getdigits(&arg);
3576 arg = skipwhite(arg);
3577 }
3578
3579 ex_unletlock(eap, arg, deep);
3580}
3581
3582/*
3583 * ":unlet", ":lockvar" and ":unlockvar" are quite similar.
3584 */
3585 static void
3586ex_unletlock(eap, argstart, deep)
3587 exarg_T *eap;
3588 char_u *argstart;
3589 int deep;
3590{
3591 char_u *arg = argstart;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003592 char_u *name_end;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003593 int error = FALSE;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003594 lval_T lv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003595
3596 do
3597 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003598 /* Parse the name and find the end. */
Bram Moolenaar6d977d62014-01-14 15:24:39 +01003599 name_end = get_lval(arg, NULL, &lv, TRUE, eap->skip || error, 0,
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +00003600 FNE_CHECK_START);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003601 if (lv.ll_name == NULL)
3602 error = TRUE; /* error but continue parsing */
3603 if (name_end == NULL || (!vim_iswhite(*name_end)
3604 && !ends_excmd(*name_end)))
Bram Moolenaar071d4272004-06-13 20:20:40 +00003605 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003606 if (name_end != NULL)
3607 {
3608 emsg_severe = TRUE;
3609 EMSG(_(e_trailing));
3610 }
3611 if (!(eap->skip || error))
3612 clear_lval(&lv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003613 break;
3614 }
3615
3616 if (!error && !eap->skip)
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003617 {
3618 if (eap->cmdidx == CMD_unlet)
3619 {
3620 if (do_unlet_var(&lv, name_end, eap->forceit) == FAIL)
3621 error = TRUE;
3622 }
3623 else
3624 {
3625 if (do_lock_var(&lv, name_end, deep,
3626 eap->cmdidx == CMD_lockvar) == FAIL)
3627 error = TRUE;
3628 }
3629 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003630
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003631 if (!eap->skip)
3632 clear_lval(&lv);
3633
Bram Moolenaar071d4272004-06-13 20:20:40 +00003634 arg = skipwhite(name_end);
3635 } while (!ends_excmd(*arg));
3636
3637 eap->nextcmd = check_nextcmd(arg);
3638}
3639
Bram Moolenaar8c711452005-01-14 21:53:12 +00003640 static int
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003641do_unlet_var(lp, name_end, forceit)
Bram Moolenaar33570922005-01-25 22:26:29 +00003642 lval_T *lp;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003643 char_u *name_end;
Bram Moolenaar8c711452005-01-14 21:53:12 +00003644 int forceit;
3645{
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003646 int ret = OK;
3647 int cc;
3648
3649 if (lp->ll_tv == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00003650 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003651 cc = *name_end;
3652 *name_end = NUL;
3653
3654 /* Normal name or expanded name. */
3655 if (check_changedtick(lp->ll_name))
3656 ret = FAIL;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003657 else if (do_unlet(lp->ll_name, forceit) == FAIL)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003658 ret = FAIL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003659 *name_end = cc;
Bram Moolenaar8c711452005-01-14 21:53:12 +00003660 }
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003661 else if (tv_check_lock(lp->ll_tv->v_lock, lp->ll_name))
3662 return FAIL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003663 else if (lp->ll_range)
3664 {
Bram Moolenaar33570922005-01-25 22:26:29 +00003665 listitem_T *li;
Bram Moolenaarf2d912e2014-08-29 09:46:10 +02003666 listitem_T *ll_li = lp->ll_li;
3667 int ll_n1 = lp->ll_n1;
3668
3669 while (ll_li != NULL && (lp->ll_empty2 || lp->ll_n2 >= ll_n1))
3670 {
3671 li = ll_li->li_next;
3672 if (tv_check_lock(ll_li->li_tv.v_lock, lp->ll_name))
3673 return FAIL;
3674 ll_li = li;
3675 ++ll_n1;
3676 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003677
3678 /* Delete a range of List items. */
3679 while (lp->ll_li != NULL && (lp->ll_empty2 || lp->ll_n2 >= lp->ll_n1))
3680 {
3681 li = lp->ll_li->li_next;
3682 listitem_remove(lp->ll_list, lp->ll_li);
3683 lp->ll_li = li;
3684 ++lp->ll_n1;
3685 }
3686 }
3687 else
3688 {
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003689 if (lp->ll_list != NULL)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003690 /* unlet a List item. */
3691 listitem_remove(lp->ll_list, lp->ll_li);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003692 else
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003693 /* unlet a Dictionary item. */
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00003694 dictitem_remove(lp->ll_dict, lp->ll_di);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00003695 }
3696
3697 return ret;
Bram Moolenaar8c711452005-01-14 21:53:12 +00003698}
3699
Bram Moolenaar071d4272004-06-13 20:20:40 +00003700/*
3701 * "unlet" a variable. Return OK if it existed, FAIL if not.
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003702 * When "forceit" is TRUE don't complain if the variable doesn't exist.
Bram Moolenaar071d4272004-06-13 20:20:40 +00003703 */
3704 int
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003705do_unlet(name, forceit)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003706 char_u *name;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003707 int forceit;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003708{
Bram Moolenaar33570922005-01-25 22:26:29 +00003709 hashtab_T *ht;
3710 hashitem_T *hi;
Bram Moolenaara7043832005-01-21 11:56:39 +00003711 char_u *varname;
Bram Moolenaarafbdeb82008-01-05 21:16:31 +00003712 dictitem_T *di;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003713
Bram Moolenaar33570922005-01-25 22:26:29 +00003714 ht = find_var_ht(name, &varname);
3715 if (ht != NULL && *varname != NUL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003716 {
Bram Moolenaar33570922005-01-25 22:26:29 +00003717 hi = hash_find(ht, varname);
3718 if (!HASHITEM_EMPTY(hi))
Bram Moolenaara7043832005-01-21 11:56:39 +00003719 {
Bram Moolenaarafbdeb82008-01-05 21:16:31 +00003720 di = HI2DI(hi);
3721 if (var_check_fixed(di->di_flags, name)
3722 || var_check_ro(di->di_flags, name))
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003723 return FAIL;
3724 delete_var(ht, hi);
3725 return OK;
Bram Moolenaara7043832005-01-21 11:56:39 +00003726 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00003727 }
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003728 if (forceit)
3729 return OK;
3730 EMSG2(_("E108: No such variable: \"%s\""), name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003731 return FAIL;
3732}
3733
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003734/*
3735 * Lock or unlock variable indicated by "lp".
3736 * "deep" is the levels to go (-1 for unlimited);
3737 * "lock" is TRUE for ":lockvar", FALSE for ":unlockvar".
3738 */
3739 static int
3740do_lock_var(lp, name_end, deep, lock)
3741 lval_T *lp;
3742 char_u *name_end;
3743 int deep;
3744 int lock;
3745{
3746 int ret = OK;
3747 int cc;
3748 dictitem_T *di;
3749
3750 if (deep == 0) /* nothing to do */
3751 return OK;
3752
3753 if (lp->ll_tv == NULL)
3754 {
3755 cc = *name_end;
3756 *name_end = NUL;
3757
3758 /* Normal name or expanded name. */
3759 if (check_changedtick(lp->ll_name))
3760 ret = FAIL;
3761 else
3762 {
Bram Moolenaar6d977d62014-01-14 15:24:39 +01003763 di = find_var(lp->ll_name, NULL, TRUE);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003764 if (di == NULL)
3765 ret = FAIL;
3766 else
3767 {
3768 if (lock)
3769 di->di_flags |= DI_FLAGS_LOCK;
3770 else
3771 di->di_flags &= ~DI_FLAGS_LOCK;
3772 item_lock(&di->di_tv, deep, lock);
3773 }
3774 }
3775 *name_end = cc;
3776 }
3777 else if (lp->ll_range)
3778 {
3779 listitem_T *li = lp->ll_li;
3780
3781 /* (un)lock a range of List items. */
3782 while (li != NULL && (lp->ll_empty2 || lp->ll_n2 >= lp->ll_n1))
3783 {
3784 item_lock(&li->li_tv, deep, lock);
3785 li = li->li_next;
3786 ++lp->ll_n1;
3787 }
3788 }
3789 else if (lp->ll_list != NULL)
3790 /* (un)lock a List item. */
3791 item_lock(&lp->ll_li->li_tv, deep, lock);
3792 else
3793 /* un(lock) a Dictionary item. */
3794 item_lock(&lp->ll_di->di_tv, deep, lock);
3795
3796 return ret;
3797}
3798
3799/*
3800 * Lock or unlock an item. "deep" is nr of levels to go.
3801 */
3802 static void
3803item_lock(tv, deep, lock)
3804 typval_T *tv;
3805 int deep;
3806 int lock;
3807{
3808 static int recurse = 0;
3809 list_T *l;
3810 listitem_T *li;
3811 dict_T *d;
3812 hashitem_T *hi;
3813 int todo;
3814
3815 if (recurse >= DICT_MAXNEST)
3816 {
3817 EMSG(_("E743: variable nested too deep for (un)lock"));
3818 return;
3819 }
3820 if (deep == 0)
3821 return;
3822 ++recurse;
3823
3824 /* lock/unlock the item itself */
3825 if (lock)
3826 tv->v_lock |= VAR_LOCKED;
3827 else
3828 tv->v_lock &= ~VAR_LOCKED;
3829
3830 switch (tv->v_type)
3831 {
3832 case VAR_LIST:
3833 if ((l = tv->vval.v_list) != NULL)
3834 {
3835 if (lock)
3836 l->lv_lock |= VAR_LOCKED;
3837 else
3838 l->lv_lock &= ~VAR_LOCKED;
3839 if (deep < 0 || deep > 1)
3840 /* recursive: lock/unlock the items the List contains */
3841 for (li = l->lv_first; li != NULL; li = li->li_next)
3842 item_lock(&li->li_tv, deep - 1, lock);
3843 }
3844 break;
3845 case VAR_DICT:
3846 if ((d = tv->vval.v_dict) != NULL)
3847 {
3848 if (lock)
3849 d->dv_lock |= VAR_LOCKED;
3850 else
3851 d->dv_lock &= ~VAR_LOCKED;
3852 if (deep < 0 || deep > 1)
3853 {
3854 /* recursive: lock/unlock the items the List contains */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00003855 todo = (int)d->dv_hashtab.ht_used;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00003856 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
3857 {
3858 if (!HASHITEM_EMPTY(hi))
3859 {
3860 --todo;
3861 item_lock(&HI2DI(hi)->di_tv, deep - 1, lock);
3862 }
3863 }
3864 }
3865 }
3866 }
3867 --recurse;
3868}
3869
Bram Moolenaara40058a2005-07-11 22:42:07 +00003870/*
Bram Moolenaar61c4e2c2008-08-25 02:49:18 +00003871 * Return TRUE if typeval "tv" is locked: Either that value is locked itself
3872 * or it refers to a List or Dictionary that is locked.
Bram Moolenaara40058a2005-07-11 22:42:07 +00003873 */
3874 static int
3875tv_islocked(tv)
3876 typval_T *tv;
3877{
3878 return (tv->v_lock & VAR_LOCKED)
3879 || (tv->v_type == VAR_LIST
3880 && tv->vval.v_list != NULL
3881 && (tv->vval.v_list->lv_lock & VAR_LOCKED))
3882 || (tv->v_type == VAR_DICT
3883 && tv->vval.v_dict != NULL
3884 && (tv->vval.v_dict->dv_lock & VAR_LOCKED));
3885}
3886
Bram Moolenaar071d4272004-06-13 20:20:40 +00003887#if (defined(FEAT_MENU) && defined(FEAT_MULTI_LANG)) || defined(PROTO)
3888/*
3889 * Delete all "menutrans_" variables.
3890 */
3891 void
3892del_menutrans_vars()
3893{
Bram Moolenaar33570922005-01-25 22:26:29 +00003894 hashitem_T *hi;
Bram Moolenaara7043832005-01-21 11:56:39 +00003895 int todo;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003896
Bram Moolenaar33570922005-01-25 22:26:29 +00003897 hash_lock(&globvarht);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00003898 todo = (int)globvarht.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +00003899 for (hi = globvarht.ht_array; todo > 0 && !got_int; ++hi)
Bram Moolenaara7043832005-01-21 11:56:39 +00003900 {
3901 if (!HASHITEM_EMPTY(hi))
3902 {
3903 --todo;
Bram Moolenaar33570922005-01-25 22:26:29 +00003904 if (STRNCMP(HI2DI(hi)->di_key, "menutrans_", 10) == 0)
3905 delete_var(&globvarht, hi);
Bram Moolenaara7043832005-01-21 11:56:39 +00003906 }
3907 }
Bram Moolenaar33570922005-01-25 22:26:29 +00003908 hash_unlock(&globvarht);
Bram Moolenaar071d4272004-06-13 20:20:40 +00003909}
3910#endif
3911
3912#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
3913
3914/*
3915 * Local string buffer for the next two functions to store a variable name
3916 * with its prefix. Allocated in cat_prefix_varname(), freed later in
3917 * get_user_var_name().
3918 */
3919
3920static char_u *cat_prefix_varname __ARGS((int prefix, char_u *name));
3921
3922static char_u *varnamebuf = NULL;
3923static int varnamebuflen = 0;
3924
3925/*
3926 * Function to concatenate a prefix and a variable name.
3927 */
3928 static char_u *
3929cat_prefix_varname(prefix, name)
3930 int prefix;
3931 char_u *name;
3932{
3933 int len;
3934
3935 len = (int)STRLEN(name) + 3;
3936 if (len > varnamebuflen)
3937 {
3938 vim_free(varnamebuf);
3939 len += 10; /* some additional space */
3940 varnamebuf = alloc(len);
3941 if (varnamebuf == NULL)
3942 {
3943 varnamebuflen = 0;
3944 return NULL;
3945 }
3946 varnamebuflen = len;
3947 }
3948 *varnamebuf = prefix;
3949 varnamebuf[1] = ':';
3950 STRCPY(varnamebuf + 2, name);
3951 return varnamebuf;
3952}
3953
3954/*
3955 * Function given to ExpandGeneric() to obtain the list of user defined
3956 * (global/buffer/window/built-in) variable names.
3957 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00003958 char_u *
3959get_user_var_name(xp, idx)
3960 expand_T *xp;
3961 int idx;
3962{
Bram Moolenaar532c7802005-01-27 14:44:31 +00003963 static long_u gdone;
3964 static long_u bdone;
3965 static long_u wdone;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003966#ifdef FEAT_WINDOWS
3967 static long_u tdone;
3968#endif
Bram Moolenaar532c7802005-01-27 14:44:31 +00003969 static int vidx;
3970 static hashitem_T *hi;
3971 hashtab_T *ht;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003972
3973 if (idx == 0)
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003974 {
Bram Moolenaara7043832005-01-21 11:56:39 +00003975 gdone = bdone = wdone = vidx = 0;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00003976#ifdef FEAT_WINDOWS
3977 tdone = 0;
3978#endif
3979 }
Bram Moolenaar33570922005-01-25 22:26:29 +00003980
3981 /* Global variables */
3982 if (gdone < globvarht.ht_used)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003983 {
Bram Moolenaara7043832005-01-21 11:56:39 +00003984 if (gdone++ == 0)
Bram Moolenaar33570922005-01-25 22:26:29 +00003985 hi = globvarht.ht_array;
Bram Moolenaar532c7802005-01-27 14:44:31 +00003986 else
3987 ++hi;
Bram Moolenaara7043832005-01-21 11:56:39 +00003988 while (HASHITEM_EMPTY(hi))
3989 ++hi;
3990 if (STRNCMP("g:", xp->xp_pattern, 2) == 0)
3991 return cat_prefix_varname('g', hi->hi_key);
3992 return hi->hi_key;
Bram Moolenaar071d4272004-06-13 20:20:40 +00003993 }
Bram Moolenaar33570922005-01-25 22:26:29 +00003994
3995 /* b: variables */
Bram Moolenaar429fa852013-04-15 12:27:36 +02003996 ht = &curbuf->b_vars->dv_hashtab;
Bram Moolenaar33570922005-01-25 22:26:29 +00003997 if (bdone < ht->ht_used)
Bram Moolenaar071d4272004-06-13 20:20:40 +00003998 {
Bram Moolenaara7043832005-01-21 11:56:39 +00003999 if (bdone++ == 0)
Bram Moolenaar33570922005-01-25 22:26:29 +00004000 hi = ht->ht_array;
Bram Moolenaar532c7802005-01-27 14:44:31 +00004001 else
4002 ++hi;
Bram Moolenaara7043832005-01-21 11:56:39 +00004003 while (HASHITEM_EMPTY(hi))
4004 ++hi;
4005 return cat_prefix_varname('b', hi->hi_key);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004006 }
Bram Moolenaar33570922005-01-25 22:26:29 +00004007 if (bdone == ht->ht_used)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004008 {
Bram Moolenaara7043832005-01-21 11:56:39 +00004009 ++bdone;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004010 return (char_u *)"b:changedtick";
4011 }
Bram Moolenaar33570922005-01-25 22:26:29 +00004012
4013 /* w: variables */
Bram Moolenaar429fa852013-04-15 12:27:36 +02004014 ht = &curwin->w_vars->dv_hashtab;
Bram Moolenaar33570922005-01-25 22:26:29 +00004015 if (wdone < ht->ht_used)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004016 {
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00004017 if (wdone++ == 0)
Bram Moolenaar33570922005-01-25 22:26:29 +00004018 hi = ht->ht_array;
Bram Moolenaar532c7802005-01-27 14:44:31 +00004019 else
4020 ++hi;
Bram Moolenaara7043832005-01-21 11:56:39 +00004021 while (HASHITEM_EMPTY(hi))
4022 ++hi;
4023 return cat_prefix_varname('w', hi->hi_key);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004024 }
Bram Moolenaar33570922005-01-25 22:26:29 +00004025
Bram Moolenaar910f66f2006-04-05 20:41:53 +00004026#ifdef FEAT_WINDOWS
4027 /* t: variables */
Bram Moolenaar429fa852013-04-15 12:27:36 +02004028 ht = &curtab->tp_vars->dv_hashtab;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00004029 if (tdone < ht->ht_used)
4030 {
4031 if (tdone++ == 0)
4032 hi = ht->ht_array;
4033 else
4034 ++hi;
4035 while (HASHITEM_EMPTY(hi))
4036 ++hi;
4037 return cat_prefix_varname('t', hi->hi_key);
4038 }
4039#endif
4040
Bram Moolenaar33570922005-01-25 22:26:29 +00004041 /* v: variables */
4042 if (vidx < VV_LEN)
4043 return cat_prefix_varname('v', (char_u *)vimvars[vidx++].vv_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004044
4045 vim_free(varnamebuf);
4046 varnamebuf = NULL;
4047 varnamebuflen = 0;
4048 return NULL;
4049}
4050
4051#endif /* FEAT_CMDL_COMPL */
4052
4053/*
4054 * types for expressions.
4055 */
4056typedef enum
4057{
4058 TYPE_UNKNOWN = 0
4059 , TYPE_EQUAL /* == */
4060 , TYPE_NEQUAL /* != */
4061 , TYPE_GREATER /* > */
4062 , TYPE_GEQUAL /* >= */
4063 , TYPE_SMALLER /* < */
4064 , TYPE_SEQUAL /* <= */
4065 , TYPE_MATCH /* =~ */
4066 , TYPE_NOMATCH /* !~ */
4067} exptype_T;
4068
4069/*
4070 * The "evaluate" argument: When FALSE, the argument is only parsed but not
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004071 * executed. The function may return OK, but the rettv will be of type
Bram Moolenaar071d4272004-06-13 20:20:40 +00004072 * VAR_UNKNOWN. The function still returns FAIL for a syntax error.
4073 */
4074
4075/*
4076 * Handle zero level expression.
4077 * This calls eval1() and handles error message and nextcmd.
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004078 * Put the result in "rettv" when returning OK and "evaluate" is TRUE.
Bram Moolenaar4463f292005-09-25 22:20:24 +00004079 * Note: "rettv.v_lock" is not set.
Bram Moolenaar071d4272004-06-13 20:20:40 +00004080 * Return OK or FAIL.
4081 */
4082 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004083eval0(arg, rettv, nextcmd, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004084 char_u *arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004085 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004086 char_u **nextcmd;
4087 int evaluate;
4088{
4089 int ret;
4090 char_u *p;
4091
4092 p = skipwhite(arg);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004093 ret = eval1(&p, rettv, evaluate);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004094 if (ret == FAIL || !ends_excmd(*p))
4095 {
4096 if (ret != FAIL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004097 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004098 /*
4099 * Report the invalid expression unless the expression evaluation has
4100 * been cancelled due to an aborting error, an interrupt, or an
4101 * exception.
4102 */
4103 if (!aborting())
4104 EMSG2(_(e_invexpr2), arg);
4105 ret = FAIL;
4106 }
4107 if (nextcmd != NULL)
4108 *nextcmd = check_nextcmd(p);
4109
4110 return ret;
4111}
4112
4113/*
4114 * Handle top level expression:
Bram Moolenaarb67cc162009-02-04 15:27:06 +00004115 * expr2 ? expr1 : expr1
Bram Moolenaar071d4272004-06-13 20:20:40 +00004116 *
4117 * "arg" must point to the first non-white of the expression.
4118 * "arg" is advanced to the next non-white after the recognized expression.
4119 *
Bram Moolenaar4463f292005-09-25 22:20:24 +00004120 * Note: "rettv.v_lock" is not set.
4121 *
Bram Moolenaar071d4272004-06-13 20:20:40 +00004122 * Return OK or FAIL.
4123 */
4124 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004125eval1(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004126 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004127 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004128 int evaluate;
4129{
4130 int result;
Bram Moolenaar33570922005-01-25 22:26:29 +00004131 typval_T var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004132
4133 /*
4134 * Get the first variable.
4135 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004136 if (eval2(arg, rettv, evaluate) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004137 return FAIL;
4138
4139 if ((*arg)[0] == '?')
4140 {
4141 result = FALSE;
4142 if (evaluate)
4143 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004144 int error = FALSE;
4145
4146 if (get_tv_number_chk(rettv, &error) != 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004147 result = TRUE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004148 clear_tv(rettv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004149 if (error)
4150 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004151 }
4152
4153 /*
4154 * Get the second variable.
4155 */
4156 *arg = skipwhite(*arg + 1);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004157 if (eval1(arg, rettv, evaluate && result) == FAIL) /* recursive! */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004158 return FAIL;
4159
4160 /*
4161 * Check for the ":".
4162 */
4163 if ((*arg)[0] != ':')
4164 {
4165 EMSG(_("E109: Missing ':' after '?'"));
4166 if (evaluate && result)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004167 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004168 return FAIL;
4169 }
4170
4171 /*
4172 * Get the third variable.
4173 */
4174 *arg = skipwhite(*arg + 1);
4175 if (eval1(arg, &var2, evaluate && !result) == FAIL) /* recursive! */
4176 {
4177 if (evaluate && result)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004178 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004179 return FAIL;
4180 }
4181 if (evaluate && !result)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004182 *rettv = var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004183 }
4184
4185 return OK;
4186}
4187
4188/*
4189 * Handle first level expression:
4190 * expr2 || expr2 || expr2 logical OR
4191 *
4192 * "arg" must point to the first non-white of the expression.
4193 * "arg" is advanced to the next non-white after the recognized expression.
4194 *
4195 * Return OK or FAIL.
4196 */
4197 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004198eval2(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004199 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004200 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004201 int evaluate;
4202{
Bram Moolenaar33570922005-01-25 22:26:29 +00004203 typval_T var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004204 long result;
4205 int first;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004206 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004207
4208 /*
4209 * Get the first variable.
4210 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004211 if (eval3(arg, rettv, evaluate) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004212 return FAIL;
4213
4214 /*
4215 * Repeat until there is no following "||".
4216 */
4217 first = TRUE;
4218 result = FALSE;
4219 while ((*arg)[0] == '|' && (*arg)[1] == '|')
4220 {
4221 if (evaluate && first)
4222 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004223 if (get_tv_number_chk(rettv, &error) != 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004224 result = TRUE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004225 clear_tv(rettv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004226 if (error)
4227 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004228 first = FALSE;
4229 }
4230
4231 /*
4232 * Get the second variable.
4233 */
4234 *arg = skipwhite(*arg + 2);
4235 if (eval3(arg, &var2, evaluate && !result) == FAIL)
4236 return FAIL;
4237
4238 /*
4239 * Compute the result.
4240 */
4241 if (evaluate && !result)
4242 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004243 if (get_tv_number_chk(&var2, &error) != 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004244 result = TRUE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004245 clear_tv(&var2);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004246 if (error)
4247 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004248 }
4249 if (evaluate)
4250 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004251 rettv->v_type = VAR_NUMBER;
4252 rettv->vval.v_number = result;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004253 }
4254 }
4255
4256 return OK;
4257}
4258
4259/*
4260 * Handle second level expression:
4261 * expr3 && expr3 && expr3 logical AND
4262 *
4263 * "arg" must point to the first non-white of the expression.
4264 * "arg" is advanced to the next non-white after the recognized expression.
4265 *
4266 * Return OK or FAIL.
4267 */
4268 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004269eval3(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004270 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004271 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004272 int evaluate;
4273{
Bram Moolenaar33570922005-01-25 22:26:29 +00004274 typval_T var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004275 long result;
4276 int first;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004277 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004278
4279 /*
4280 * Get the first variable.
4281 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004282 if (eval4(arg, rettv, evaluate) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004283 return FAIL;
4284
4285 /*
4286 * Repeat until there is no following "&&".
4287 */
4288 first = TRUE;
4289 result = TRUE;
4290 while ((*arg)[0] == '&' && (*arg)[1] == '&')
4291 {
4292 if (evaluate && first)
4293 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004294 if (get_tv_number_chk(rettv, &error) == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004295 result = FALSE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004296 clear_tv(rettv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004297 if (error)
4298 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004299 first = FALSE;
4300 }
4301
4302 /*
4303 * Get the second variable.
4304 */
4305 *arg = skipwhite(*arg + 2);
4306 if (eval4(arg, &var2, evaluate && result) == FAIL)
4307 return FAIL;
4308
4309 /*
4310 * Compute the result.
4311 */
4312 if (evaluate && result)
4313 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004314 if (get_tv_number_chk(&var2, &error) == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004315 result = FALSE;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004316 clear_tv(&var2);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004317 if (error)
4318 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004319 }
4320 if (evaluate)
4321 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004322 rettv->v_type = VAR_NUMBER;
4323 rettv->vval.v_number = result;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004324 }
4325 }
4326
4327 return OK;
4328}
4329
4330/*
4331 * Handle third level expression:
4332 * var1 == var2
4333 * var1 =~ var2
4334 * var1 != var2
4335 * var1 !~ var2
4336 * var1 > var2
4337 * var1 >= var2
4338 * var1 < var2
4339 * var1 <= var2
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004340 * var1 is var2
4341 * var1 isnot var2
Bram Moolenaar071d4272004-06-13 20:20:40 +00004342 *
4343 * "arg" must point to the first non-white of the expression.
4344 * "arg" is advanced to the next non-white after the recognized expression.
4345 *
4346 * Return OK or FAIL.
4347 */
4348 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004349eval4(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004350 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004351 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004352 int evaluate;
4353{
Bram Moolenaar33570922005-01-25 22:26:29 +00004354 typval_T var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004355 char_u *p;
4356 int i;
4357 exptype_T type = TYPE_UNKNOWN;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004358 int type_is = FALSE; /* TRUE for "is" and "isnot" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004359 int len = 2;
4360 long n1, n2;
4361 char_u *s1, *s2;
4362 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
4363 regmatch_T regmatch;
4364 int ic;
4365 char_u *save_cpo;
4366
4367 /*
4368 * Get the first variable.
4369 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004370 if (eval5(arg, rettv, evaluate) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004371 return FAIL;
4372
4373 p = *arg;
4374 switch (p[0])
4375 {
4376 case '=': if (p[1] == '=')
4377 type = TYPE_EQUAL;
4378 else if (p[1] == '~')
4379 type = TYPE_MATCH;
4380 break;
4381 case '!': if (p[1] == '=')
4382 type = TYPE_NEQUAL;
4383 else if (p[1] == '~')
4384 type = TYPE_NOMATCH;
4385 break;
4386 case '>': if (p[1] != '=')
4387 {
4388 type = TYPE_GREATER;
4389 len = 1;
4390 }
4391 else
4392 type = TYPE_GEQUAL;
4393 break;
4394 case '<': if (p[1] != '=')
4395 {
4396 type = TYPE_SMALLER;
4397 len = 1;
4398 }
4399 else
4400 type = TYPE_SEQUAL;
4401 break;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004402 case 'i': if (p[1] == 's')
4403 {
4404 if (p[2] == 'n' && p[3] == 'o' && p[4] == 't')
4405 len = 5;
4406 if (!vim_isIDc(p[len]))
4407 {
4408 type = len == 2 ? TYPE_EQUAL : TYPE_NEQUAL;
4409 type_is = TRUE;
4410 }
4411 }
4412 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004413 }
4414
4415 /*
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004416 * If there is a comparative operator, use it.
Bram Moolenaar071d4272004-06-13 20:20:40 +00004417 */
4418 if (type != TYPE_UNKNOWN)
4419 {
4420 /* extra question mark appended: ignore case */
4421 if (p[len] == '?')
4422 {
4423 ic = TRUE;
4424 ++len;
4425 }
4426 /* extra '#' appended: match case */
4427 else if (p[len] == '#')
4428 {
4429 ic = FALSE;
4430 ++len;
4431 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004432 /* nothing appended: use 'ignorecase' */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004433 else
4434 ic = p_ic;
4435
4436 /*
4437 * Get the second variable.
4438 */
4439 *arg = skipwhite(p + len);
4440 if (eval5(arg, &var2, evaluate) == FAIL)
4441 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004442 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004443 return FAIL;
4444 }
4445
4446 if (evaluate)
4447 {
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004448 if (type_is && rettv->v_type != var2.v_type)
4449 {
4450 /* For "is" a different type always means FALSE, for "notis"
4451 * it means TRUE. */
4452 n1 = (type == TYPE_NEQUAL);
4453 }
4454 else if (rettv->v_type == VAR_LIST || var2.v_type == VAR_LIST)
4455 {
4456 if (type_is)
4457 {
4458 n1 = (rettv->v_type == var2.v_type
4459 && rettv->vval.v_list == var2.vval.v_list);
4460 if (type == TYPE_NEQUAL)
4461 n1 = !n1;
4462 }
4463 else if (rettv->v_type != var2.v_type
4464 || (type != TYPE_EQUAL && type != TYPE_NEQUAL))
4465 {
4466 if (rettv->v_type != var2.v_type)
Bram Moolenaare49b69a2005-01-08 16:11:57 +00004467 EMSG(_("E691: Can only compare List with List"));
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004468 else
Bram Moolenaar59838522014-05-13 13:46:33 +02004469 EMSG(_("E692: Invalid operation for List"));
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004470 clear_tv(rettv);
4471 clear_tv(&var2);
4472 return FAIL;
4473 }
4474 else
4475 {
4476 /* Compare two Lists for being equal or unequal. */
Bram Moolenaar67b3f992010-11-10 20:41:57 +01004477 n1 = list_equal(rettv->vval.v_list, var2.vval.v_list,
4478 ic, FALSE);
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004479 if (type == TYPE_NEQUAL)
4480 n1 = !n1;
4481 }
4482 }
4483
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00004484 else if (rettv->v_type == VAR_DICT || var2.v_type == VAR_DICT)
4485 {
4486 if (type_is)
4487 {
4488 n1 = (rettv->v_type == var2.v_type
4489 && rettv->vval.v_dict == var2.vval.v_dict);
4490 if (type == TYPE_NEQUAL)
4491 n1 = !n1;
4492 }
4493 else if (rettv->v_type != var2.v_type
4494 || (type != TYPE_EQUAL && type != TYPE_NEQUAL))
4495 {
4496 if (rettv->v_type != var2.v_type)
4497 EMSG(_("E735: Can only compare Dictionary with Dictionary"));
4498 else
4499 EMSG(_("E736: Invalid operation for Dictionary"));
4500 clear_tv(rettv);
4501 clear_tv(&var2);
4502 return FAIL;
4503 }
4504 else
4505 {
4506 /* Compare two Dictionaries for being equal or unequal. */
Bram Moolenaar67b3f992010-11-10 20:41:57 +01004507 n1 = dict_equal(rettv->vval.v_dict, var2.vval.v_dict,
4508 ic, FALSE);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00004509 if (type == TYPE_NEQUAL)
4510 n1 = !n1;
4511 }
4512 }
4513
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004514 else if (rettv->v_type == VAR_FUNC || var2.v_type == VAR_FUNC)
4515 {
4516 if (rettv->v_type != var2.v_type
4517 || (type != TYPE_EQUAL && type != TYPE_NEQUAL))
4518 {
4519 if (rettv->v_type != var2.v_type)
Bram Moolenaare49b69a2005-01-08 16:11:57 +00004520 EMSG(_("E693: Can only compare Funcref with Funcref"));
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004521 else
Bram Moolenaare49b69a2005-01-08 16:11:57 +00004522 EMSG(_("E694: Invalid operation for Funcrefs"));
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004523 clear_tv(rettv);
4524 clear_tv(&var2);
4525 return FAIL;
4526 }
4527 else
4528 {
4529 /* Compare two Funcrefs for being equal or unequal. */
4530 if (rettv->vval.v_string == NULL
4531 || var2.vval.v_string == NULL)
4532 n1 = FALSE;
4533 else
4534 n1 = STRCMP(rettv->vval.v_string,
4535 var2.vval.v_string) == 0;
4536 if (type == TYPE_NEQUAL)
4537 n1 = !n1;
4538 }
4539 }
4540
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004541#ifdef FEAT_FLOAT
4542 /*
4543 * If one of the two variables is a float, compare as a float.
4544 * When using "=~" or "!~", always compare as string.
4545 */
4546 else if ((rettv->v_type == VAR_FLOAT || var2.v_type == VAR_FLOAT)
4547 && type != TYPE_MATCH && type != TYPE_NOMATCH)
4548 {
4549 float_T f1, f2;
4550
4551 if (rettv->v_type == VAR_FLOAT)
4552 f1 = rettv->vval.v_float;
4553 else
4554 f1 = get_tv_number(rettv);
4555 if (var2.v_type == VAR_FLOAT)
4556 f2 = var2.vval.v_float;
4557 else
4558 f2 = get_tv_number(&var2);
4559 n1 = FALSE;
4560 switch (type)
4561 {
4562 case TYPE_EQUAL: n1 = (f1 == f2); break;
4563 case TYPE_NEQUAL: n1 = (f1 != f2); break;
4564 case TYPE_GREATER: n1 = (f1 > f2); break;
4565 case TYPE_GEQUAL: n1 = (f1 >= f2); break;
4566 case TYPE_SMALLER: n1 = (f1 < f2); break;
4567 case TYPE_SEQUAL: n1 = (f1 <= f2); break;
4568 case TYPE_UNKNOWN:
4569 case TYPE_MATCH:
4570 case TYPE_NOMATCH: break; /* avoid gcc warning */
4571 }
4572 }
4573#endif
4574
Bram Moolenaar071d4272004-06-13 20:20:40 +00004575 /*
4576 * If one of the two variables is a number, compare as a number.
4577 * When using "=~" or "!~", always compare as string.
4578 */
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004579 else if ((rettv->v_type == VAR_NUMBER || var2.v_type == VAR_NUMBER)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004580 && type != TYPE_MATCH && type != TYPE_NOMATCH)
4581 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004582 n1 = get_tv_number(rettv);
4583 n2 = get_tv_number(&var2);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004584 switch (type)
4585 {
4586 case TYPE_EQUAL: n1 = (n1 == n2); break;
4587 case TYPE_NEQUAL: n1 = (n1 != n2); break;
4588 case TYPE_GREATER: n1 = (n1 > n2); break;
4589 case TYPE_GEQUAL: n1 = (n1 >= n2); break;
4590 case TYPE_SMALLER: n1 = (n1 < n2); break;
4591 case TYPE_SEQUAL: n1 = (n1 <= n2); break;
4592 case TYPE_UNKNOWN:
4593 case TYPE_MATCH:
4594 case TYPE_NOMATCH: break; /* avoid gcc warning */
4595 }
4596 }
4597 else
4598 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004599 s1 = get_tv_string_buf(rettv, buf1);
4600 s2 = get_tv_string_buf(&var2, buf2);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004601 if (type != TYPE_MATCH && type != TYPE_NOMATCH)
4602 i = ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2);
4603 else
4604 i = 0;
4605 n1 = FALSE;
4606 switch (type)
4607 {
4608 case TYPE_EQUAL: n1 = (i == 0); break;
4609 case TYPE_NEQUAL: n1 = (i != 0); break;
4610 case TYPE_GREATER: n1 = (i > 0); break;
4611 case TYPE_GEQUAL: n1 = (i >= 0); break;
4612 case TYPE_SMALLER: n1 = (i < 0); break;
4613 case TYPE_SEQUAL: n1 = (i <= 0); break;
4614
4615 case TYPE_MATCH:
4616 case TYPE_NOMATCH:
4617 /* avoid 'l' flag in 'cpoptions' */
4618 save_cpo = p_cpo;
4619 p_cpo = (char_u *)"";
4620 regmatch.regprog = vim_regcomp(s2,
4621 RE_MAGIC + RE_STRING);
4622 regmatch.rm_ic = ic;
4623 if (regmatch.regprog != NULL)
4624 {
4625 n1 = vim_regexec_nl(&regmatch, s1, (colnr_T)0);
Bram Moolenaar473de612013-06-08 18:19:48 +02004626 vim_regfree(regmatch.regprog);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004627 if (type == TYPE_NOMATCH)
4628 n1 = !n1;
4629 }
4630 p_cpo = save_cpo;
4631 break;
4632
4633 case TYPE_UNKNOWN: break; /* avoid gcc warning */
4634 }
4635 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004636 clear_tv(rettv);
4637 clear_tv(&var2);
4638 rettv->v_type = VAR_NUMBER;
4639 rettv->vval.v_number = n1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004640 }
4641 }
4642
4643 return OK;
4644}
4645
4646/*
4647 * Handle fourth level expression:
4648 * + number addition
4649 * - number subtraction
4650 * . string concatenation
4651 *
4652 * "arg" must point to the first non-white of the expression.
4653 * "arg" is advanced to the next non-white after the recognized expression.
4654 *
4655 * Return OK or FAIL.
4656 */
4657 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004658eval5(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004659 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004660 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004661 int evaluate;
4662{
Bram Moolenaar33570922005-01-25 22:26:29 +00004663 typval_T var2;
4664 typval_T var3;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004665 int op;
4666 long n1, n2;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004667#ifdef FEAT_FLOAT
4668 float_T f1 = 0, f2 = 0;
4669#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004670 char_u *s1, *s2;
4671 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
4672 char_u *p;
4673
4674 /*
4675 * Get the first variable.
4676 */
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004677 if (eval6(arg, rettv, evaluate, FALSE) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004678 return FAIL;
4679
4680 /*
4681 * Repeat computing, until no '+', '-' or '.' is following.
4682 */
4683 for (;;)
4684 {
4685 op = **arg;
4686 if (op != '+' && op != '-' && op != '.')
4687 break;
4688
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004689 if ((op != '+' || rettv->v_type != VAR_LIST)
4690#ifdef FEAT_FLOAT
4691 && (op == '.' || rettv->v_type != VAR_FLOAT)
4692#endif
4693 )
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004694 {
4695 /* For "list + ...", an illegal use of the first operand as
4696 * a number cannot be determined before evaluating the 2nd
4697 * operand: if this is also a list, all is ok.
4698 * For "something . ...", "something - ..." or "non-list + ...",
4699 * we know that the first operand needs to be a string or number
4700 * without evaluating the 2nd operand. So check before to avoid
4701 * side effects after an error. */
4702 if (evaluate && get_tv_string_chk(rettv) == NULL)
4703 {
4704 clear_tv(rettv);
4705 return FAIL;
4706 }
4707 }
4708
Bram Moolenaar071d4272004-06-13 20:20:40 +00004709 /*
4710 * Get the second variable.
4711 */
4712 *arg = skipwhite(*arg + 1);
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004713 if (eval6(arg, &var2, evaluate, op == '.') == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004714 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004715 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004716 return FAIL;
4717 }
4718
4719 if (evaluate)
4720 {
4721 /*
4722 * Compute the result.
4723 */
4724 if (op == '.')
4725 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004726 s1 = get_tv_string_buf(rettv, buf1); /* already checked */
4727 s2 = get_tv_string_buf_chk(&var2, buf2);
4728 if (s2 == NULL) /* type error ? */
4729 {
4730 clear_tv(rettv);
4731 clear_tv(&var2);
4732 return FAIL;
4733 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00004734 p = concat_str(s1, s2);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004735 clear_tv(rettv);
4736 rettv->v_type = VAR_STRING;
4737 rettv->vval.v_string = p;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004738 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00004739 else if (op == '+' && rettv->v_type == VAR_LIST
4740 && var2.v_type == VAR_LIST)
Bram Moolenaar8a283e52005-01-06 23:28:25 +00004741 {
4742 /* concatenate Lists */
4743 if (list_concat(rettv->vval.v_list, var2.vval.v_list,
4744 &var3) == FAIL)
4745 {
4746 clear_tv(rettv);
4747 clear_tv(&var2);
4748 return FAIL;
4749 }
4750 clear_tv(rettv);
4751 *rettv = var3;
4752 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004753 else
4754 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004755 int error = FALSE;
4756
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004757#ifdef FEAT_FLOAT
4758 if (rettv->v_type == VAR_FLOAT)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004759 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004760 f1 = rettv->vval.v_float;
4761 n1 = 0;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004762 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004763 else
4764#endif
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004765 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004766 n1 = get_tv_number_chk(rettv, &error);
4767 if (error)
4768 {
4769 /* This can only happen for "list + non-list". For
4770 * "non-list + ..." or "something - ...", we returned
4771 * before evaluating the 2nd operand. */
4772 clear_tv(rettv);
4773 return FAIL;
4774 }
4775#ifdef FEAT_FLOAT
4776 if (var2.v_type == VAR_FLOAT)
4777 f1 = n1;
4778#endif
4779 }
4780#ifdef FEAT_FLOAT
4781 if (var2.v_type == VAR_FLOAT)
4782 {
4783 f2 = var2.vval.v_float;
4784 n2 = 0;
4785 }
4786 else
4787#endif
4788 {
4789 n2 = get_tv_number_chk(&var2, &error);
4790 if (error)
4791 {
4792 clear_tv(rettv);
4793 clear_tv(&var2);
4794 return FAIL;
4795 }
4796#ifdef FEAT_FLOAT
4797 if (rettv->v_type == VAR_FLOAT)
4798 f2 = n2;
4799#endif
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004800 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004801 clear_tv(rettv);
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004802
4803#ifdef FEAT_FLOAT
4804 /* If there is a float on either side the result is a float. */
4805 if (rettv->v_type == VAR_FLOAT || var2.v_type == VAR_FLOAT)
4806 {
4807 if (op == '+')
4808 f1 = f1 + f2;
4809 else
4810 f1 = f1 - f2;
4811 rettv->v_type = VAR_FLOAT;
4812 rettv->vval.v_float = f1;
4813 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004814 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004815#endif
4816 {
4817 if (op == '+')
4818 n1 = n1 + n2;
4819 else
4820 n1 = n1 - n2;
4821 rettv->v_type = VAR_NUMBER;
4822 rettv->vval.v_number = n1;
4823 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004824 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004825 clear_tv(&var2);
Bram Moolenaar071d4272004-06-13 20:20:40 +00004826 }
4827 }
4828 return OK;
4829}
4830
4831/*
4832 * Handle fifth level expression:
4833 * * number multiplication
4834 * / number division
4835 * % number modulo
4836 *
4837 * "arg" must point to the first non-white of the expression.
4838 * "arg" is advanced to the next non-white after the recognized expression.
4839 *
4840 * Return OK or FAIL.
4841 */
4842 static int
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004843eval6(arg, rettv, evaluate, want_string)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004844 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00004845 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004846 int evaluate;
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004847 int want_string; /* after "." operator */
Bram Moolenaar071d4272004-06-13 20:20:40 +00004848{
Bram Moolenaar33570922005-01-25 22:26:29 +00004849 typval_T var2;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004850 int op;
4851 long n1, n2;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004852#ifdef FEAT_FLOAT
4853 int use_float = FALSE;
4854 float_T f1 = 0, f2;
4855#endif
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004856 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004857
4858 /*
4859 * Get the first variable.
4860 */
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004861 if (eval7(arg, rettv, evaluate, want_string) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004862 return FAIL;
4863
4864 /*
4865 * Repeat computing, until no '*', '/' or '%' is following.
4866 */
4867 for (;;)
4868 {
4869 op = **arg;
4870 if (op != '*' && op != '/' && op != '%')
4871 break;
4872
4873 if (evaluate)
4874 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004875#ifdef FEAT_FLOAT
4876 if (rettv->v_type == VAR_FLOAT)
4877 {
4878 f1 = rettv->vval.v_float;
4879 use_float = TRUE;
4880 n1 = 0;
4881 }
4882 else
4883#endif
4884 n1 = get_tv_number_chk(rettv, &error);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00004885 clear_tv(rettv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00004886 if (error)
4887 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004888 }
4889 else
4890 n1 = 0;
4891
4892 /*
4893 * Get the second variable.
4894 */
4895 *arg = skipwhite(*arg + 1);
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00004896 if (eval7(arg, &var2, evaluate, FALSE) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004897 return FAIL;
4898
4899 if (evaluate)
4900 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004901#ifdef FEAT_FLOAT
4902 if (var2.v_type == VAR_FLOAT)
4903 {
4904 if (!use_float)
4905 {
4906 f1 = n1;
4907 use_float = TRUE;
4908 }
4909 f2 = var2.vval.v_float;
4910 n2 = 0;
4911 }
4912 else
4913#endif
4914 {
4915 n2 = get_tv_number_chk(&var2, &error);
4916 clear_tv(&var2);
4917 if (error)
4918 return FAIL;
4919#ifdef FEAT_FLOAT
4920 if (use_float)
4921 f2 = n2;
4922#endif
4923 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004924
4925 /*
4926 * Compute the result.
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004927 * When either side is a float the result is a float.
Bram Moolenaar071d4272004-06-13 20:20:40 +00004928 */
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004929#ifdef FEAT_FLOAT
4930 if (use_float)
Bram Moolenaar071d4272004-06-13 20:20:40 +00004931 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004932 if (op == '*')
4933 f1 = f1 * f2;
4934 else if (op == '/')
4935 {
Bram Moolenaarf878bcf2010-07-30 22:29:41 +02004936# ifdef VMS
4937 /* VMS crashes on divide by zero, work around it */
4938 if (f2 == 0.0)
4939 {
4940 if (f1 == 0)
Bram Moolenaar314f11d2010-08-09 22:07:08 +02004941 f1 = -1 * __F_FLT_MAX - 1L; /* similar to NaN */
Bram Moolenaarf878bcf2010-07-30 22:29:41 +02004942 else if (f1 < 0)
Bram Moolenaar314f11d2010-08-09 22:07:08 +02004943 f1 = -1 * __F_FLT_MAX;
Bram Moolenaarf878bcf2010-07-30 22:29:41 +02004944 else
Bram Moolenaar314f11d2010-08-09 22:07:08 +02004945 f1 = __F_FLT_MAX;
Bram Moolenaarf878bcf2010-07-30 22:29:41 +02004946 }
4947 else
4948 f1 = f1 / f2;
4949# else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004950 /* We rely on the floating point library to handle divide
4951 * by zero to result in "inf" and not a crash. */
4952 f1 = f1 / f2;
Bram Moolenaarf878bcf2010-07-30 22:29:41 +02004953# endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004954 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004955 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004956 {
Bram Moolenaar1378fca2008-07-04 16:51:55 +00004957 EMSG(_("E804: Cannot use '%' with Float"));
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004958 return FAIL;
4959 }
4960 rettv->v_type = VAR_FLOAT;
4961 rettv->vval.v_float = f1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004962 }
4963 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004964#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00004965 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004966 if (op == '*')
4967 n1 = n1 * n2;
4968 else if (op == '/')
4969 {
4970 if (n2 == 0) /* give an error message? */
4971 {
4972 if (n1 == 0)
4973 n1 = -0x7fffffffL - 1L; /* similar to NaN */
4974 else if (n1 < 0)
4975 n1 = -0x7fffffffL;
4976 else
4977 n1 = 0x7fffffffL;
4978 }
4979 else
4980 n1 = n1 / n2;
4981 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004982 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00004983 {
4984 if (n2 == 0) /* give an error message? */
4985 n1 = 0;
4986 else
4987 n1 = n1 % n2;
4988 }
4989 rettv->v_type = VAR_NUMBER;
4990 rettv->vval.v_number = n1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00004991 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00004992 }
4993 }
4994
4995 return OK;
4996}
4997
4998/*
4999 * Handle sixth level expression:
5000 * number number constant
Bram Moolenaarbae0c162007-05-10 19:30:25 +00005001 * "string" string constant
5002 * 'string' literal string constant
Bram Moolenaar071d4272004-06-13 20:20:40 +00005003 * &option-name option value
5004 * @r register contents
5005 * identifier variable value
5006 * function() function call
5007 * $VAR environment variable
5008 * (expression) nested expression
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00005009 * [expr, expr] List
5010 * {key: val, key: val} Dictionary
Bram Moolenaar071d4272004-06-13 20:20:40 +00005011 *
5012 * Also handle:
5013 * ! in front logical NOT
5014 * - in front unary minus
5015 * + in front unary plus (ignored)
Bram Moolenaar8c711452005-01-14 21:53:12 +00005016 * trailing [] subscript in String or List
5017 * trailing .name entry in Dictionary
Bram Moolenaar071d4272004-06-13 20:20:40 +00005018 *
5019 * "arg" must point to the first non-white of the expression.
5020 * "arg" is advanced to the next non-white after the recognized expression.
5021 *
5022 * Return OK or FAIL.
5023 */
5024 static int
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00005025eval7(arg, rettv, evaluate, want_string)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005026 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005027 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005028 int evaluate;
Bram Moolenaardb7c6862010-05-21 16:33:48 +02005029 int want_string UNUSED; /* after "." operator */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005030{
Bram Moolenaar071d4272004-06-13 20:20:40 +00005031 long n;
5032 int len;
5033 char_u *s;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005034 char_u *start_leader, *end_leader;
5035 int ret = OK;
5036 char_u *alias;
5037
5038 /*
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005039 * Initialise variable so that clear_tv() can't mistake this for a
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005040 * string and free a string that isn't there.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005041 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005042 rettv->v_type = VAR_UNKNOWN;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005043
5044 /*
5045 * Skip '!' and '-' characters. They are handled later.
5046 */
5047 start_leader = *arg;
5048 while (**arg == '!' || **arg == '-' || **arg == '+')
5049 *arg = skipwhite(*arg + 1);
5050 end_leader = *arg;
5051
5052 switch (**arg)
5053 {
5054 /*
5055 * Number constant.
5056 */
5057 case '0':
5058 case '1':
5059 case '2':
5060 case '3':
5061 case '4':
5062 case '5':
5063 case '6':
5064 case '7':
5065 case '8':
5066 case '9':
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005067 {
5068#ifdef FEAT_FLOAT
5069 char_u *p = skipdigits(*arg + 1);
5070 int get_float = FALSE;
5071
5072 /* We accept a float when the format matches
5073 * "[0-9]\+\.[0-9]\+\([eE][+-]\?[0-9]\+\)\?". This is very
Bram Moolenaar8d00f9c2008-06-28 13:09:56 +00005074 * strict to avoid backwards compatibility problems.
5075 * Don't look for a float after the "." operator, so that
5076 * ":let vers = 1.2.3" doesn't fail. */
5077 if (!want_string && p[0] == '.' && vim_isdigit(p[1]))
Bram Moolenaar071d4272004-06-13 20:20:40 +00005078 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005079 get_float = TRUE;
5080 p = skipdigits(p + 2);
5081 if (*p == 'e' || *p == 'E')
5082 {
5083 ++p;
5084 if (*p == '-' || *p == '+')
5085 ++p;
5086 if (!vim_isdigit(*p))
5087 get_float = FALSE;
5088 else
5089 p = skipdigits(p + 1);
5090 }
5091 if (ASCII_ISALPHA(*p) || *p == '.')
5092 get_float = FALSE;
5093 }
5094 if (get_float)
5095 {
5096 float_T f;
5097
5098 *arg += string2float(*arg, &f);
5099 if (evaluate)
5100 {
5101 rettv->v_type = VAR_FLOAT;
5102 rettv->vval.v_float = f;
5103 }
5104 }
5105 else
5106#endif
5107 {
5108 vim_str2nr(*arg, NULL, &len, TRUE, TRUE, &n, NULL);
5109 *arg += len;
5110 if (evaluate)
5111 {
5112 rettv->v_type = VAR_NUMBER;
5113 rettv->vval.v_number = n;
5114 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005115 }
5116 break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005117 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005118
5119 /*
5120 * String constant: "string".
5121 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005122 case '"': ret = get_string_tv(arg, rettv, evaluate);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005123 break;
5124
5125 /*
Bram Moolenaar8c711452005-01-14 21:53:12 +00005126 * Literal string constant: 'str''ing'.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005127 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005128 case '\'': ret = get_lit_string_tv(arg, rettv, evaluate);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005129 break;
5130
5131 /*
5132 * List: [expr, expr]
5133 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005134 case '[': ret = get_list_tv(arg, rettv, evaluate);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005135 break;
5136
5137 /*
Bram Moolenaar8c711452005-01-14 21:53:12 +00005138 * Dictionary: {key: val, key: val}
5139 */
5140 case '{': ret = get_dict_tv(arg, rettv, evaluate);
5141 break;
5142
5143 /*
Bram Moolenaare9a41262005-01-15 22:18:47 +00005144 * Option value: &name
Bram Moolenaar071d4272004-06-13 20:20:40 +00005145 */
Bram Moolenaare9a41262005-01-15 22:18:47 +00005146 case '&': ret = get_option_tv(arg, rettv, evaluate);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005147 break;
5148
5149 /*
5150 * Environment variable: $VAR.
5151 */
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005152 case '$': ret = get_env_tv(arg, rettv, evaluate);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005153 break;
5154
5155 /*
5156 * Register contents: @r.
5157 */
5158 case '@': ++*arg;
5159 if (evaluate)
5160 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005161 rettv->v_type = VAR_STRING;
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +02005162 rettv->vval.v_string = get_reg_contents(**arg,
5163 GREG_EXPR_SRC);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005164 }
5165 if (**arg != NUL)
5166 ++*arg;
5167 break;
5168
5169 /*
5170 * nested expression: (expression).
5171 */
5172 case '(': *arg = skipwhite(*arg + 1);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005173 ret = eval1(arg, rettv, evaluate); /* recursive! */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005174 if (**arg == ')')
5175 ++*arg;
5176 else if (ret == OK)
5177 {
5178 EMSG(_("E110: Missing ')'"));
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005179 clear_tv(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005180 ret = FAIL;
5181 }
5182 break;
5183
Bram Moolenaar8c711452005-01-14 21:53:12 +00005184 default: ret = NOTDONE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005185 break;
5186 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005187
5188 if (ret == NOTDONE)
5189 {
5190 /*
5191 * Must be a variable or function name.
5192 * Can also be a curly-braces kind of name: {expr}.
5193 */
5194 s = *arg;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005195 len = get_name_len(arg, &alias, evaluate, TRUE);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005196 if (alias != NULL)
5197 s = alias;
5198
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005199 if (len <= 0)
Bram Moolenaar8c711452005-01-14 21:53:12 +00005200 ret = FAIL;
5201 else
5202 {
5203 if (**arg == '(') /* recursive! */
5204 {
5205 /* If "s" is the name of a variable of type VAR_FUNC
5206 * use its contents. */
Bram Moolenaarf31ecce2014-02-05 22:13:05 +01005207 s = deref_func_name(s, &len, !evaluate);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005208
5209 /* Invoke the function. */
5210 ret = get_func_tv(s, len, rettv, arg,
5211 curwin->w_cursor.lnum, curwin->w_cursor.lnum,
Bram Moolenaare9a41262005-01-15 22:18:47 +00005212 &len, evaluate, NULL);
Bram Moolenaare17c2602013-02-26 19:36:15 +01005213
5214 /* If evaluate is FALSE rettv->v_type was not set in
5215 * get_func_tv, but it's needed in handle_subscript() to parse
5216 * what follows. So set it here. */
5217 if (rettv->v_type == VAR_UNKNOWN && !evaluate && **arg == '(')
5218 {
Bram Moolenaar988232f2013-02-26 21:43:32 +01005219 rettv->vval.v_string = vim_strsave((char_u *)"");
Bram Moolenaare17c2602013-02-26 19:36:15 +01005220 rettv->v_type = VAR_FUNC;
5221 }
5222
Bram Moolenaar8c711452005-01-14 21:53:12 +00005223 /* Stop the expression evaluation when immediately
5224 * aborting on error, or when an interrupt occurred or
5225 * an exception was thrown but not caught. */
5226 if (aborting())
5227 {
5228 if (ret == OK)
5229 clear_tv(rettv);
5230 ret = FAIL;
5231 }
5232 }
5233 else if (evaluate)
Bram Moolenaar6d977d62014-01-14 15:24:39 +01005234 ret = get_var_tv(s, len, rettv, TRUE, FALSE);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00005235 else
5236 ret = OK;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005237 }
Bram Moolenaar3c2d6532011-02-01 13:48:53 +01005238 vim_free(alias);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005239 }
5240
Bram Moolenaar071d4272004-06-13 20:20:40 +00005241 *arg = skipwhite(*arg);
5242
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005243 /* Handle following '[', '(' and '.' for expr[expr], expr.name,
5244 * expr(expr). */
5245 if (ret == OK)
5246 ret = handle_subscript(arg, rettv, evaluate, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005247
5248 /*
5249 * Apply logical NOT and unary '-', from right to left, ignore '+'.
5250 */
5251 if (ret == OK && evaluate && end_leader > start_leader)
5252 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005253 int error = FALSE;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005254 int val = 0;
5255#ifdef FEAT_FLOAT
5256 float_T f = 0.0;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005257
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005258 if (rettv->v_type == VAR_FLOAT)
5259 f = rettv->vval.v_float;
5260 else
5261#endif
5262 val = get_tv_number_chk(rettv, &error);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005263 if (error)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005264 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005265 clear_tv(rettv);
5266 ret = FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005267 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005268 else
5269 {
5270 while (end_leader > start_leader)
5271 {
5272 --end_leader;
5273 if (*end_leader == '!')
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005274 {
5275#ifdef FEAT_FLOAT
5276 if (rettv->v_type == VAR_FLOAT)
5277 f = !f;
5278 else
5279#endif
5280 val = !val;
5281 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005282 else if (*end_leader == '-')
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005283 {
5284#ifdef FEAT_FLOAT
5285 if (rettv->v_type == VAR_FLOAT)
5286 f = -f;
5287 else
5288#endif
5289 val = -val;
5290 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005291 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +00005292#ifdef FEAT_FLOAT
5293 if (rettv->v_type == VAR_FLOAT)
5294 {
5295 clear_tv(rettv);
5296 rettv->vval.v_float = f;
5297 }
5298 else
5299#endif
5300 {
5301 clear_tv(rettv);
5302 rettv->v_type = VAR_NUMBER;
5303 rettv->vval.v_number = val;
5304 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005305 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005306 }
5307
5308 return ret;
5309}
5310
5311/*
Bram Moolenaar9e54a0e2006-04-14 20:42:25 +00005312 * Evaluate an "[expr]" or "[expr:expr]" index. Also "dict.key".
5313 * "*arg" points to the '[' or '.'.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005314 * Returns FAIL or OK. "*arg" is advanced to after the ']'.
5315 */
5316 static int
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005317eval_index(arg, rettv, evaluate, verbose)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005318 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005319 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005320 int evaluate;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005321 int verbose; /* give error messages */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005322{
5323 int empty1 = FALSE, empty2 = FALSE;
Bram Moolenaar33570922005-01-25 22:26:29 +00005324 typval_T var1, var2;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005325 long n1, n2 = 0;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005326 long len = -1;
5327 int range = FALSE;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005328 char_u *s;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005329 char_u *key = NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005330
Bram Moolenaar2a876e42013-06-12 22:08:58 +02005331 if (rettv->v_type == VAR_FUNC)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005332 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005333 if (verbose)
5334 EMSG(_("E695: Cannot index a Funcref"));
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005335 return FAIL;
5336 }
Bram Moolenaar2a876e42013-06-12 22:08:58 +02005337#ifdef FEAT_FLOAT
5338 else if (rettv->v_type == VAR_FLOAT)
5339 {
5340 if (verbose)
5341 EMSG(_(e_float_as_string));
5342 return FAIL;
5343 }
5344#endif
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005345
Bram Moolenaar8c711452005-01-14 21:53:12 +00005346 if (**arg == '.')
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005347 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005348 /*
5349 * dict.name
5350 */
5351 key = *arg + 1;
5352 for (len = 0; ASCII_ISALNUM(key[len]) || key[len] == '_'; ++len)
5353 ;
5354 if (len == 0)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005355 return FAIL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005356 *arg = skipwhite(key + len);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005357 }
5358 else
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005359 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005360 /*
5361 * something[idx]
5362 *
5363 * Get the (first) variable from inside the [].
5364 */
5365 *arg = skipwhite(*arg + 1);
5366 if (**arg == ':')
5367 empty1 = TRUE;
5368 else if (eval1(arg, &var1, evaluate) == FAIL) /* recursive! */
5369 return FAIL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005370 else if (evaluate && get_tv_string_chk(&var1) == NULL)
5371 {
5372 /* not a number or string */
5373 clear_tv(&var1);
5374 return FAIL;
5375 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005376
5377 /*
5378 * Get the second variable from inside the [:].
5379 */
5380 if (**arg == ':')
5381 {
5382 range = TRUE;
5383 *arg = skipwhite(*arg + 1);
5384 if (**arg == ']')
5385 empty2 = TRUE;
5386 else if (eval1(arg, &var2, evaluate) == FAIL) /* recursive! */
5387 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00005388 if (!empty1)
5389 clear_tv(&var1);
5390 return FAIL;
5391 }
5392 else if (evaluate && get_tv_string_chk(&var2) == NULL)
5393 {
5394 /* not a number or string */
5395 if (!empty1)
5396 clear_tv(&var1);
5397 clear_tv(&var2);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005398 return FAIL;
5399 }
5400 }
5401
5402 /* Check for the ']'. */
5403 if (**arg != ']')
5404 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005405 if (verbose)
5406 EMSG(_(e_missbrac));
Bram Moolenaar8c711452005-01-14 21:53:12 +00005407 clear_tv(&var1);
5408 if (range)
5409 clear_tv(&var2);
5410 return FAIL;
5411 }
5412 *arg = skipwhite(*arg + 1); /* skip the ']' */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005413 }
5414
5415 if (evaluate)
5416 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005417 n1 = 0;
5418 if (!empty1 && rettv->v_type != VAR_DICT)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005419 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005420 n1 = get_tv_number(&var1);
5421 clear_tv(&var1);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005422 }
5423 if (range)
5424 {
5425 if (empty2)
5426 n2 = -1;
5427 else
5428 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005429 n2 = get_tv_number(&var2);
5430 clear_tv(&var2);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005431 }
5432 }
5433
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005434 switch (rettv->v_type)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005435 {
5436 case VAR_NUMBER:
5437 case VAR_STRING:
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005438 s = get_tv_string(rettv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005439 len = (long)STRLEN(s);
5440 if (range)
5441 {
5442 /* The resulting variable is a substring. If the indexes
5443 * are out of range the result is empty. */
5444 if (n1 < 0)
5445 {
5446 n1 = len + n1;
5447 if (n1 < 0)
5448 n1 = 0;
5449 }
5450 if (n2 < 0)
5451 n2 = len + n2;
5452 else if (n2 >= len)
5453 n2 = len;
5454 if (n1 >= len || n2 < 0 || n1 > n2)
5455 s = NULL;
5456 else
5457 s = vim_strnsave(s + n1, (int)(n2 - n1 + 1));
5458 }
5459 else
5460 {
5461 /* The resulting variable is a string of a single
5462 * character. If the index is too big or negative the
5463 * result is empty. */
5464 if (n1 >= len || n1 < 0)
5465 s = NULL;
5466 else
5467 s = vim_strnsave(s + n1, 1);
5468 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005469 clear_tv(rettv);
5470 rettv->v_type = VAR_STRING;
5471 rettv->vval.v_string = s;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005472 break;
5473
5474 case VAR_LIST:
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005475 len = list_len(rettv->vval.v_list);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005476 if (n1 < 0)
5477 n1 = len + n1;
5478 if (!empty1 && (n1 < 0 || n1 >= len))
5479 {
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00005480 /* For a range we allow invalid values and return an empty
5481 * list. A list index out of range is an error. */
5482 if (!range)
5483 {
5484 if (verbose)
5485 EMSGN(_(e_listidx), n1);
5486 return FAIL;
5487 }
5488 n1 = len;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005489 }
5490 if (range)
5491 {
Bram Moolenaar33570922005-01-25 22:26:29 +00005492 list_T *l;
5493 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005494
5495 if (n2 < 0)
5496 n2 = len + n2;
Bram Moolenaar9e54a0e2006-04-14 20:42:25 +00005497 else if (n2 >= len)
5498 n2 = len - 1;
5499 if (!empty2 && (n2 < 0 || n2 + 1 < n1))
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00005500 n2 = -1;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005501 l = list_alloc();
5502 if (l == NULL)
5503 return FAIL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005504 for (item = list_find(rettv->vval.v_list, n1);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005505 n1 <= n2; ++n1)
5506 {
5507 if (list_append_tv(l, &item->li_tv) == FAIL)
5508 {
Bram Moolenaar685295c2006-10-15 20:37:38 +00005509 list_free(l, TRUE);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005510 return FAIL;
5511 }
5512 item = item->li_next;
5513 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005514 clear_tv(rettv);
5515 rettv->v_type = VAR_LIST;
5516 rettv->vval.v_list = l;
Bram Moolenaar0d660222005-01-07 21:51:51 +00005517 ++l->lv_refcount;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005518 }
5519 else
5520 {
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00005521 copy_tv(&list_find(rettv->vval.v_list, n1)->li_tv, &var1);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005522 clear_tv(rettv);
5523 *rettv = var1;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005524 }
5525 break;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005526
5527 case VAR_DICT:
5528 if (range)
5529 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005530 if (verbose)
5531 EMSG(_(e_dictrange));
Bram Moolenaar8c711452005-01-14 21:53:12 +00005532 if (len == -1)
5533 clear_tv(&var1);
5534 return FAIL;
5535 }
5536 {
Bram Moolenaar33570922005-01-25 22:26:29 +00005537 dictitem_T *item;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005538
5539 if (len == -1)
5540 {
5541 key = get_tv_string(&var1);
5542 if (*key == NUL)
5543 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005544 if (verbose)
5545 EMSG(_(e_emptykey));
Bram Moolenaar8c711452005-01-14 21:53:12 +00005546 clear_tv(&var1);
5547 return FAIL;
5548 }
5549 }
5550
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00005551 item = dict_find(rettv->vval.v_dict, key, (int)len);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005552
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00005553 if (item == NULL && verbose)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00005554 EMSG2(_(e_dictkey), key);
Bram Moolenaar8c711452005-01-14 21:53:12 +00005555 if (len == -1)
5556 clear_tv(&var1);
5557 if (item == NULL)
5558 return FAIL;
5559
5560 copy_tv(&item->di_tv, &var1);
5561 clear_tv(rettv);
5562 *rettv = var1;
5563 }
5564 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005565 }
5566 }
5567
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005568 return OK;
5569}
5570
5571/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00005572 * Get an option value.
5573 * "arg" points to the '&' or '+' before the option name.
5574 * "arg" is advanced to character after the option name.
5575 * Return OK or FAIL.
5576 */
5577 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005578get_option_tv(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005579 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005580 typval_T *rettv; /* when NULL, only check if option exists */
Bram Moolenaar071d4272004-06-13 20:20:40 +00005581 int evaluate;
5582{
5583 char_u *option_end;
5584 long numval;
5585 char_u *stringval;
5586 int opt_type;
5587 int c;
5588 int working = (**arg == '+'); /* has("+option") */
5589 int ret = OK;
5590 int opt_flags;
5591
5592 /*
5593 * Isolate the option name and find its value.
5594 */
5595 option_end = find_option_end(arg, &opt_flags);
5596 if (option_end == NULL)
5597 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005598 if (rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005599 EMSG2(_("E112: Option name missing: %s"), *arg);
5600 return FAIL;
5601 }
5602
5603 if (!evaluate)
5604 {
5605 *arg = option_end;
5606 return OK;
5607 }
5608
5609 c = *option_end;
5610 *option_end = NUL;
5611 opt_type = get_option_value(*arg, &numval,
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005612 rettv == NULL ? NULL : &stringval, opt_flags);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005613
5614 if (opt_type == -3) /* invalid name */
5615 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005616 if (rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005617 EMSG2(_("E113: Unknown option: %s"), *arg);
5618 ret = FAIL;
5619 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005620 else if (rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005621 {
5622 if (opt_type == -2) /* hidden string option */
5623 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005624 rettv->v_type = VAR_STRING;
5625 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005626 }
5627 else if (opt_type == -1) /* hidden number option */
5628 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005629 rettv->v_type = VAR_NUMBER;
5630 rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005631 }
5632 else if (opt_type == 1) /* number option */
5633 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005634 rettv->v_type = VAR_NUMBER;
5635 rettv->vval.v_number = numval;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005636 }
5637 else /* string option */
5638 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005639 rettv->v_type = VAR_STRING;
5640 rettv->vval.v_string = stringval;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005641 }
5642 }
5643 else if (working && (opt_type == -2 || opt_type == -1))
5644 ret = FAIL;
5645
5646 *option_end = c; /* put back for error messages */
5647 *arg = option_end;
5648
5649 return ret;
5650}
5651
5652/*
5653 * Allocate a variable for a string constant.
5654 * Return OK or FAIL.
5655 */
5656 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005657get_string_tv(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005658 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005659 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005660 int evaluate;
5661{
5662 char_u *p;
5663 char_u *name;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005664 int extra = 0;
5665
5666 /*
5667 * Find the end of the string, skipping backslashed characters.
5668 */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005669 for (p = *arg + 1; *p != NUL && *p != '"'; mb_ptr_adv(p))
Bram Moolenaar071d4272004-06-13 20:20:40 +00005670 {
5671 if (*p == '\\' && p[1] != NUL)
5672 {
5673 ++p;
5674 /* A "\<x>" form occupies at least 4 characters, and produces up
5675 * to 6 characters: reserve space for 2 extra */
5676 if (*p == '<')
5677 extra += 2;
5678 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005679 }
5680
5681 if (*p != '"')
5682 {
5683 EMSG2(_("E114: Missing quote: %s"), *arg);
5684 return FAIL;
5685 }
5686
5687 /* If only parsing, set *arg and return here */
5688 if (!evaluate)
5689 {
5690 *arg = p + 1;
5691 return OK;
5692 }
5693
5694 /*
5695 * Copy the string into allocated memory, handling backslashed
5696 * characters.
5697 */
5698 name = alloc((unsigned)(p - *arg + extra));
5699 if (name == NULL)
5700 return FAIL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005701 rettv->v_type = VAR_STRING;
5702 rettv->vval.v_string = name;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005703
Bram Moolenaar8c711452005-01-14 21:53:12 +00005704 for (p = *arg + 1; *p != NUL && *p != '"'; )
Bram Moolenaar071d4272004-06-13 20:20:40 +00005705 {
5706 if (*p == '\\')
5707 {
5708 switch (*++p)
5709 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005710 case 'b': *name++ = BS; ++p; break;
5711 case 'e': *name++ = ESC; ++p; break;
5712 case 'f': *name++ = FF; ++p; break;
5713 case 'n': *name++ = NL; ++p; break;
5714 case 'r': *name++ = CAR; ++p; break;
5715 case 't': *name++ = TAB; ++p; break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005716
5717 case 'X': /* hex: "\x1", "\x12" */
5718 case 'x':
5719 case 'u': /* Unicode: "\u0023" */
5720 case 'U':
5721 if (vim_isxdigit(p[1]))
5722 {
5723 int n, nr;
5724 int c = toupper(*p);
5725
5726 if (c == 'X')
5727 n = 2;
5728 else
5729 n = 4;
5730 nr = 0;
5731 while (--n >= 0 && vim_isxdigit(p[1]))
5732 {
5733 ++p;
5734 nr = (nr << 4) + hex2nr(*p);
5735 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005736 ++p;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005737#ifdef FEAT_MBYTE
5738 /* For "\u" store the number according to
5739 * 'encoding'. */
5740 if (c != 'X')
Bram Moolenaar8c711452005-01-14 21:53:12 +00005741 name += (*mb_char2bytes)(nr, name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005742 else
5743#endif
Bram Moolenaar8c711452005-01-14 21:53:12 +00005744 *name++ = nr;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005745 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00005746 break;
5747
5748 /* octal: "\1", "\12", "\123" */
5749 case '0':
5750 case '1':
5751 case '2':
5752 case '3':
5753 case '4':
5754 case '5':
5755 case '6':
Bram Moolenaar8c711452005-01-14 21:53:12 +00005756 case '7': *name = *p++ - '0';
5757 if (*p >= '0' && *p <= '7')
Bram Moolenaar071d4272004-06-13 20:20:40 +00005758 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005759 *name = (*name << 3) + *p++ - '0';
5760 if (*p >= '0' && *p <= '7')
5761 *name = (*name << 3) + *p++ - '0';
Bram Moolenaar071d4272004-06-13 20:20:40 +00005762 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005763 ++name;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005764 break;
5765
5766 /* Special key, e.g.: "\<C-W>" */
Bram Moolenaar8c711452005-01-14 21:53:12 +00005767 case '<': extra = trans_special(&p, name, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005768 if (extra != 0)
5769 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005770 name += extra;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005771 break;
5772 }
5773 /* FALLTHROUGH */
5774
Bram Moolenaar8c711452005-01-14 21:53:12 +00005775 default: MB_COPY_CHAR(p, name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005776 break;
5777 }
5778 }
5779 else
Bram Moolenaar8c711452005-01-14 21:53:12 +00005780 MB_COPY_CHAR(p, name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00005781
Bram Moolenaar071d4272004-06-13 20:20:40 +00005782 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005783 *name = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005784 *arg = p + 1;
5785
Bram Moolenaar071d4272004-06-13 20:20:40 +00005786 return OK;
5787}
5788
5789/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00005790 * Allocate a variable for a 'str''ing' constant.
Bram Moolenaar071d4272004-06-13 20:20:40 +00005791 * Return OK or FAIL.
5792 */
5793 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005794get_lit_string_tv(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00005795 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005796 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00005797 int evaluate;
5798{
5799 char_u *p;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005800 char_u *str;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005801 int reduce = 0;
5802
5803 /*
Bram Moolenaar8c711452005-01-14 21:53:12 +00005804 * Find the end of the string, skipping ''.
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005805 */
5806 for (p = *arg + 1; *p != NUL; mb_ptr_adv(p))
5807 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005808 if (*p == '\'')
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005809 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005810 if (p[1] != '\'')
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005811 break;
5812 ++reduce;
5813 ++p;
5814 }
5815 }
5816
Bram Moolenaar8c711452005-01-14 21:53:12 +00005817 if (*p != '\'')
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005818 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005819 EMSG2(_("E115: Missing quote: %s"), *arg);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005820 return FAIL;
5821 }
5822
Bram Moolenaar8c711452005-01-14 21:53:12 +00005823 /* If only parsing return after setting "*arg" */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005824 if (!evaluate)
5825 {
5826 *arg = p + 1;
5827 return OK;
5828 }
5829
5830 /*
Bram Moolenaar8c711452005-01-14 21:53:12 +00005831 * Copy the string into allocated memory, handling '' to ' reduction.
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005832 */
5833 str = alloc((unsigned)((p - *arg) - reduce));
5834 if (str == NULL)
5835 return FAIL;
Bram Moolenaar8c711452005-01-14 21:53:12 +00005836 rettv->v_type = VAR_STRING;
5837 rettv->vval.v_string = str;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005838
Bram Moolenaar8c711452005-01-14 21:53:12 +00005839 for (p = *arg + 1; *p != NUL; )
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005840 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005841 if (*p == '\'')
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005842 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005843 if (p[1] != '\'')
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005844 break;
5845 ++p;
5846 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005847 MB_COPY_CHAR(p, str);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005848 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00005849 *str = NUL;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005850 *arg = p + 1;
5851
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00005852 return OK;
5853}
5854
5855/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005856 * Allocate a variable for a List and fill it from "*arg".
5857 * Return OK or FAIL.
5858 */
5859 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005860get_list_tv(arg, rettv, evaluate)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005861 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00005862 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005863 int evaluate;
5864{
Bram Moolenaar33570922005-01-25 22:26:29 +00005865 list_T *l = NULL;
5866 typval_T tv;
5867 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005868
5869 if (evaluate)
5870 {
5871 l = list_alloc();
5872 if (l == NULL)
5873 return FAIL;
5874 }
5875
5876 *arg = skipwhite(*arg + 1);
5877 while (**arg != ']' && **arg != NUL)
5878 {
5879 if (eval1(arg, &tv, evaluate) == FAIL) /* recursive! */
5880 goto failret;
5881 if (evaluate)
5882 {
5883 item = listitem_alloc();
5884 if (item != NULL)
5885 {
5886 item->li_tv = tv;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00005887 item->li_tv.v_lock = 0;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005888 list_append(l, item);
5889 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00005890 else
5891 clear_tv(&tv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005892 }
5893
5894 if (**arg == ']')
5895 break;
5896 if (**arg != ',')
5897 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005898 EMSG2(_("E696: Missing comma in List: %s"), *arg);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005899 goto failret;
5900 }
5901 *arg = skipwhite(*arg + 1);
5902 }
5903
5904 if (**arg != ']')
5905 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00005906 EMSG2(_("E697: Missing end of List ']': %s"), *arg);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005907failret:
5908 if (evaluate)
Bram Moolenaar685295c2006-10-15 20:37:38 +00005909 list_free(l, TRUE);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005910 return FAIL;
5911 }
5912
5913 *arg = skipwhite(*arg + 1);
5914 if (evaluate)
5915 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00005916 rettv->v_type = VAR_LIST;
5917 rettv->vval.v_list = l;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005918 ++l->lv_refcount;
5919 }
5920
5921 return OK;
5922}
5923
5924/*
5925 * Allocate an empty header for a list.
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00005926 * Caller should take care of the reference count.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005927 */
Bram Moolenaar1ef15e32006-02-01 21:56:25 +00005928 list_T *
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005929list_alloc()
5930{
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00005931 list_T *l;
5932
5933 l = (list_T *)alloc_clear(sizeof(list_T));
5934 if (l != NULL)
5935 {
5936 /* Prepend the list to the list of lists for garbage collection. */
5937 if (first_list != NULL)
5938 first_list->lv_used_prev = l;
5939 l->lv_used_prev = NULL;
5940 l->lv_used_next = first_list;
5941 first_list = l;
5942 }
5943 return l;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005944}
5945
5946/*
Bram Moolenaareddf53b2006-02-27 00:11:10 +00005947 * Allocate an empty list for a return value.
5948 * Returns OK or FAIL.
5949 */
5950 static int
5951rettv_list_alloc(rettv)
5952 typval_T *rettv;
5953{
5954 list_T *l = list_alloc();
5955
5956 if (l == NULL)
5957 return FAIL;
5958
5959 rettv->vval.v_list = l;
5960 rettv->v_type = VAR_LIST;
5961 ++l->lv_refcount;
5962 return OK;
5963}
5964
5965/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005966 * Unreference a list: decrement the reference count and free it when it
5967 * becomes zero.
5968 */
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +00005969 void
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005970list_unref(l)
Bram Moolenaar33570922005-01-25 22:26:29 +00005971 list_T *l;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005972{
Bram Moolenaar685295c2006-10-15 20:37:38 +00005973 if (l != NULL && --l->lv_refcount <= 0)
5974 list_free(l, TRUE);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005975}
5976
5977/*
5978 * Free a list, including all items it points to.
5979 * Ignores the reference count.
5980 */
Bram Moolenaar1ef15e32006-02-01 21:56:25 +00005981 void
Bram Moolenaar685295c2006-10-15 20:37:38 +00005982list_free(l, recurse)
5983 list_T *l;
5984 int recurse; /* Free Lists and Dictionaries recursively. */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005985{
Bram Moolenaar33570922005-01-25 22:26:29 +00005986 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005987
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00005988 /* Remove the list from the list of lists for garbage collection. */
5989 if (l->lv_used_prev == NULL)
5990 first_list = l->lv_used_next;
5991 else
5992 l->lv_used_prev->lv_used_next = l->lv_used_next;
5993 if (l->lv_used_next != NULL)
5994 l->lv_used_next->lv_used_prev = l->lv_used_prev;
5995
Bram Moolenaard9fba312005-06-26 22:34:35 +00005996 for (item = l->lv_first; item != NULL; item = l->lv_first)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00005997 {
Bram Moolenaard9fba312005-06-26 22:34:35 +00005998 /* Remove the item before deleting it. */
5999 l->lv_first = item->li_next;
Bram Moolenaar685295c2006-10-15 20:37:38 +00006000 if (recurse || (item->li_tv.v_type != VAR_LIST
6001 && item->li_tv.v_type != VAR_DICT))
6002 clear_tv(&item->li_tv);
6003 vim_free(item);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006004 }
6005 vim_free(l);
6006}
6007
6008/*
6009 * Allocate a list item.
Bram Moolenaar9a492d42015-01-27 13:49:31 +01006010 * It is not initialized, don't forget to set v_lock.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006011 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006012 listitem_T *
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006013listitem_alloc()
6014{
Bram Moolenaar33570922005-01-25 22:26:29 +00006015 return (listitem_T *)alloc(sizeof(listitem_T));
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006016}
6017
6018/*
Bram Moolenaar3d60ec22005-01-05 22:19:46 +00006019 * Free a list item. Also clears the value. Does not notify watchers.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006020 */
Bram Moolenaar9bb77d62013-05-30 12:14:49 +02006021 void
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006022listitem_free(item)
Bram Moolenaar33570922005-01-25 22:26:29 +00006023 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006024{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00006025 clear_tv(&item->li_tv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006026 vim_free(item);
6027}
6028
6029/*
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00006030 * Remove a list item from a List and free it. Also clears the value.
6031 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006032 void
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00006033listitem_remove(l, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00006034 list_T *l;
6035 listitem_T *item;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00006036{
Bram Moolenaar3ec7f4e2014-05-07 17:31:37 +02006037 vimlist_remove(l, item, item);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00006038 listitem_free(item);
6039}
6040
6041/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006042 * Get the number of items in a list.
6043 */
6044 static long
6045list_len(l)
Bram Moolenaar33570922005-01-25 22:26:29 +00006046 list_T *l;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006047{
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006048 if (l == NULL)
6049 return 0L;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006050 return l->lv_len;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006051}
6052
6053/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006054 * Return TRUE when two lists have exactly the same values.
6055 */
6056 static int
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006057list_equal(l1, l2, ic, recursive)
Bram Moolenaar33570922005-01-25 22:26:29 +00006058 list_T *l1;
6059 list_T *l2;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006060 int ic; /* ignore case for strings */
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006061 int recursive; /* TRUE when used recursively */
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006062{
Bram Moolenaar33570922005-01-25 22:26:29 +00006063 listitem_T *item1, *item2;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006064
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00006065 if (l1 == NULL || l2 == NULL)
6066 return FALSE;
Bram Moolenaar8b402a02006-10-17 13:16:39 +00006067 if (l1 == l2)
6068 return TRUE;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006069 if (list_len(l1) != list_len(l2))
6070 return FALSE;
6071
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006072 for (item1 = l1->lv_first, item2 = l2->lv_first;
6073 item1 != NULL && item2 != NULL;
6074 item1 = item1->li_next, item2 = item2->li_next)
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006075 if (!tv_equal(&item1->li_tv, &item2->li_tv, ic, recursive))
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006076 return FALSE;
6077 return item1 == NULL && item2 == NULL;
6078}
6079
Bram Moolenaarbd5e15f2010-07-17 21:19:38 +02006080#if defined(FEAT_RUBY) || defined(FEAT_PYTHON) || defined(FEAT_PYTHON3) \
6081 || defined(FEAT_MZSCHEME) || defined(FEAT_LUA) || defined(PROTO)
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00006082/*
6083 * Return the dictitem that an entry in a hashtable points to.
6084 */
6085 dictitem_T *
6086dict_lookup(hi)
6087 hashitem_T *hi;
6088{
6089 return HI2DI(hi);
6090}
6091#endif
6092
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006093/*
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006094 * Return TRUE when two dictionaries have exactly the same key/values.
6095 */
6096 static int
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006097dict_equal(d1, d2, ic, recursive)
Bram Moolenaar33570922005-01-25 22:26:29 +00006098 dict_T *d1;
6099 dict_T *d2;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006100 int ic; /* ignore case for strings */
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006101 int recursive; /* TRUE when used recursively */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006102{
Bram Moolenaar33570922005-01-25 22:26:29 +00006103 hashitem_T *hi;
6104 dictitem_T *item2;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00006105 int todo;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006106
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00006107 if (d1 == NULL || d2 == NULL)
6108 return FALSE;
Bram Moolenaar8b402a02006-10-17 13:16:39 +00006109 if (d1 == d2)
6110 return TRUE;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006111 if (dict_len(d1) != dict_len(d2))
6112 return FALSE;
6113
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006114 todo = (int)d1->dv_hashtab.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +00006115 for (hi = d1->dv_hashtab.ht_array; todo > 0; ++hi)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006116 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00006117 if (!HASHITEM_EMPTY(hi))
6118 {
6119 item2 = dict_find(d2, hi->hi_key, -1);
6120 if (item2 == NULL)
6121 return FALSE;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006122 if (!tv_equal(&HI2DI(hi)->di_tv, &item2->di_tv, ic, recursive))
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00006123 return FALSE;
6124 --todo;
6125 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006126 }
6127 return TRUE;
6128}
6129
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006130static int tv_equal_recurse_limit;
6131
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00006132/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006133 * Return TRUE if "tv1" and "tv2" have the same value.
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006134 * Compares the items just like "==" would compare them, but strings and
Bram Moolenaar8c8de832008-06-24 22:58:06 +00006135 * numbers are different. Floats and numbers are also different.
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006136 */
6137 static int
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006138tv_equal(tv1, tv2, ic, recursive)
Bram Moolenaar33570922005-01-25 22:26:29 +00006139 typval_T *tv1;
6140 typval_T *tv2;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006141 int ic; /* ignore case */
6142 int recursive; /* TRUE when used recursively */
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006143{
6144 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00006145 char_u *s1, *s2;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006146 static int recursive_cnt = 0; /* catch recursive loops */
Bram Moolenaarb47a2402006-10-15 13:09:12 +00006147 int r;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006148
Bram Moolenaar8b402a02006-10-17 13:16:39 +00006149 if (tv1->v_type != tv2->v_type)
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006150 return FALSE;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006151
Bram Moolenaar8b402a02006-10-17 13:16:39 +00006152 /* Catch lists and dicts that have an endless loop by limiting
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006153 * recursiveness to a limit. We guess they are equal then.
6154 * A fixed limit has the problem of still taking an awful long time.
6155 * Reduce the limit every time running into it. That should work fine for
6156 * deeply linked structures that are not recursively linked and catch
6157 * recursiveness quickly. */
6158 if (!recursive)
6159 tv_equal_recurse_limit = 1000;
6160 if (recursive_cnt >= tv_equal_recurse_limit)
6161 {
6162 --tv_equal_recurse_limit;
Bram Moolenaar8b402a02006-10-17 13:16:39 +00006163 return TRUE;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006164 }
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006165
6166 switch (tv1->v_type)
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006167 {
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006168 case VAR_LIST:
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006169 ++recursive_cnt;
6170 r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic, TRUE);
6171 --recursive_cnt;
Bram Moolenaarb47a2402006-10-15 13:09:12 +00006172 return r;
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006173
6174 case VAR_DICT:
Bram Moolenaar67b3f992010-11-10 20:41:57 +01006175 ++recursive_cnt;
6176 r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, TRUE);
6177 --recursive_cnt;
Bram Moolenaarb47a2402006-10-15 13:09:12 +00006178 return r;
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006179
6180 case VAR_FUNC:
6181 return (tv1->vval.v_string != NULL
6182 && tv2->vval.v_string != NULL
6183 && STRCMP(tv1->vval.v_string, tv2->vval.v_string) == 0);
6184
6185 case VAR_NUMBER:
6186 return tv1->vval.v_number == tv2->vval.v_number;
6187
Bram Moolenaar8c8de832008-06-24 22:58:06 +00006188#ifdef FEAT_FLOAT
6189 case VAR_FLOAT:
6190 return tv1->vval.v_float == tv2->vval.v_float;
6191#endif
6192
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006193 case VAR_STRING:
6194 s1 = get_tv_string_buf(tv1, buf1);
6195 s2 = get_tv_string_buf(tv2, buf2);
6196 return ((ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2)) == 0);
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006197 }
Bram Moolenaar7d1f5db2005-07-03 21:39:27 +00006198
6199 EMSG2(_(e_intern2), "tv_equal()");
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006200 return TRUE;
6201}
6202
6203/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006204 * Locate item with index "n" in list "l" and return it.
6205 * A negative index is counted from the end; -1 is the last item.
6206 * Returns NULL when "n" is out of range.
6207 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006208 listitem_T *
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006209list_find(l, n)
Bram Moolenaar33570922005-01-25 22:26:29 +00006210 list_T *l;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006211 long n;
6212{
Bram Moolenaar33570922005-01-25 22:26:29 +00006213 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006214 long idx;
6215
6216 if (l == NULL)
6217 return NULL;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006218
6219 /* Negative index is relative to the end. */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006220 if (n < 0)
Bram Moolenaar758711c2005-02-02 23:11:38 +00006221 n = l->lv_len + n;
6222
6223 /* Check for index out of range. */
6224 if (n < 0 || n >= l->lv_len)
6225 return NULL;
6226
6227 /* When there is a cached index may start search from there. */
6228 if (l->lv_idx_item != NULL)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006229 {
Bram Moolenaar758711c2005-02-02 23:11:38 +00006230 if (n < l->lv_idx / 2)
6231 {
6232 /* closest to the start of the list */
6233 item = l->lv_first;
6234 idx = 0;
6235 }
6236 else if (n > (l->lv_idx + l->lv_len) / 2)
6237 {
6238 /* closest to the end of the list */
6239 item = l->lv_last;
6240 idx = l->lv_len - 1;
6241 }
6242 else
6243 {
6244 /* closest to the cached index */
6245 item = l->lv_idx_item;
6246 idx = l->lv_idx;
6247 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006248 }
6249 else
6250 {
Bram Moolenaar758711c2005-02-02 23:11:38 +00006251 if (n < l->lv_len / 2)
6252 {
6253 /* closest to the start of the list */
6254 item = l->lv_first;
6255 idx = 0;
6256 }
6257 else
6258 {
6259 /* closest to the end of the list */
6260 item = l->lv_last;
6261 idx = l->lv_len - 1;
6262 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006263 }
Bram Moolenaar758711c2005-02-02 23:11:38 +00006264
6265 while (n > idx)
6266 {
6267 /* search forward */
6268 item = item->li_next;
6269 ++idx;
6270 }
6271 while (n < idx)
6272 {
6273 /* search backward */
6274 item = item->li_prev;
6275 --idx;
6276 }
6277
6278 /* cache the used index */
6279 l->lv_idx = idx;
6280 l->lv_idx_item = item;
6281
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006282 return item;
6283}
6284
6285/*
Bram Moolenaara5525202006-03-02 22:52:09 +00006286 * Get list item "l[idx]" as a number.
6287 */
6288 static long
6289list_find_nr(l, idx, errorp)
6290 list_T *l;
6291 long idx;
6292 int *errorp; /* set to TRUE when something wrong */
6293{
6294 listitem_T *li;
6295
6296 li = list_find(l, idx);
6297 if (li == NULL)
6298 {
6299 if (errorp != NULL)
6300 *errorp = TRUE;
6301 return -1L;
6302 }
6303 return get_tv_number_chk(&li->li_tv, errorp);
6304}
6305
6306/*
Bram Moolenaard812df62008-11-09 12:46:09 +00006307 * Get list item "l[idx - 1]" as a string. Returns NULL for failure.
6308 */
6309 char_u *
6310list_find_str(l, idx)
6311 list_T *l;
6312 long idx;
6313{
6314 listitem_T *li;
6315
6316 li = list_find(l, idx - 1);
6317 if (li == NULL)
6318 {
6319 EMSGN(_(e_listidx), idx);
6320 return NULL;
6321 }
6322 return get_tv_string(&li->li_tv);
6323}
6324
6325/*
Bram Moolenaar6cc16192005-01-08 21:49:45 +00006326 * Locate "item" list "l" and return its index.
6327 * Returns -1 when "item" is not in the list.
6328 */
6329 static long
6330list_idx_of_item(l, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00006331 list_T *l;
6332 listitem_T *item;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00006333{
6334 long idx = 0;
Bram Moolenaar33570922005-01-25 22:26:29 +00006335 listitem_T *li;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00006336
6337 if (l == NULL)
6338 return -1;
6339 idx = 0;
6340 for (li = l->lv_first; li != NULL && li != item; li = li->li_next)
6341 ++idx;
6342 if (li == NULL)
6343 return -1;
Bram Moolenaar75c50c42005-06-04 22:06:24 +00006344 return idx;
Bram Moolenaar6cc16192005-01-08 21:49:45 +00006345}
6346
6347/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006348 * Append item "item" to the end of list "l".
6349 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006350 void
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006351list_append(l, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00006352 list_T *l;
6353 listitem_T *item;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006354{
6355 if (l->lv_last == NULL)
6356 {
6357 /* empty list */
6358 l->lv_first = item;
6359 l->lv_last = item;
6360 item->li_prev = NULL;
6361 }
6362 else
6363 {
6364 l->lv_last->li_next = item;
6365 item->li_prev = l->lv_last;
6366 l->lv_last = item;
6367 }
Bram Moolenaar758711c2005-02-02 23:11:38 +00006368 ++l->lv_len;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006369 item->li_next = NULL;
6370}
6371
6372/*
Bram Moolenaar33570922005-01-25 22:26:29 +00006373 * Append typval_T "tv" to the end of list "l".
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006374 * Return FAIL when out of memory.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006375 */
Bram Moolenaar7e506b62010-01-19 15:55:06 +01006376 int
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006377list_append_tv(l, tv)
Bram Moolenaar33570922005-01-25 22:26:29 +00006378 list_T *l;
6379 typval_T *tv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006380{
Bram Moolenaar05159a02005-02-26 23:04:13 +00006381 listitem_T *li = listitem_alloc();
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006382
Bram Moolenaar05159a02005-02-26 23:04:13 +00006383 if (li == NULL)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006384 return FAIL;
Bram Moolenaar05159a02005-02-26 23:04:13 +00006385 copy_tv(tv, &li->li_tv);
6386 list_append(l, li);
6387 return OK;
6388}
6389
6390/*
Bram Moolenaar2641f772005-03-25 21:58:17 +00006391 * Add a dictionary to a list. Used by getqflist().
Bram Moolenaar05159a02005-02-26 23:04:13 +00006392 * Return FAIL when out of memory.
6393 */
6394 int
6395list_append_dict(list, dict)
6396 list_T *list;
6397 dict_T *dict;
6398{
6399 listitem_T *li = listitem_alloc();
6400
6401 if (li == NULL)
6402 return FAIL;
6403 li->li_tv.v_type = VAR_DICT;
6404 li->li_tv.v_lock = 0;
6405 li->li_tv.vval.v_dict = dict;
6406 list_append(list, li);
6407 ++dict->dv_refcount;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006408 return OK;
6409}
6410
6411/*
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00006412 * Make a copy of "str" and append it as an item to list "l".
Bram Moolenaar4463f292005-09-25 22:20:24 +00006413 * When "len" >= 0 use "str[len]".
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00006414 * Returns FAIL when out of memory.
6415 */
Bram Moolenaard812df62008-11-09 12:46:09 +00006416 int
Bram Moolenaar4463f292005-09-25 22:20:24 +00006417list_append_string(l, str, len)
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00006418 list_T *l;
6419 char_u *str;
Bram Moolenaar4463f292005-09-25 22:20:24 +00006420 int len;
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00006421{
6422 listitem_T *li = listitem_alloc();
6423
6424 if (li == NULL)
6425 return FAIL;
6426 list_append(l, li);
6427 li->li_tv.v_type = VAR_STRING;
6428 li->li_tv.v_lock = 0;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006429 if (str == NULL)
6430 li->li_tv.vval.v_string = NULL;
6431 else if ((li->li_tv.vval.v_string = (len >= 0 ? vim_strnsave(str, len)
Bram Moolenaar482aaeb2005-09-29 18:26:07 +00006432 : vim_strsave(str))) == NULL)
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00006433 return FAIL;
6434 return OK;
6435}
6436
6437/*
Bram Moolenaar4463f292005-09-25 22:20:24 +00006438 * Append "n" to list "l".
6439 * Returns FAIL when out of memory.
6440 */
6441 static int
6442list_append_number(l, n)
6443 list_T *l;
6444 varnumber_T n;
6445{
6446 listitem_T *li;
6447
6448 li = listitem_alloc();
6449 if (li == NULL)
6450 return FAIL;
6451 li->li_tv.v_type = VAR_NUMBER;
6452 li->li_tv.v_lock = 0;
6453 li->li_tv.vval.v_number = n;
6454 list_append(l, li);
6455 return OK;
6456}
6457
6458/*
Bram Moolenaar33570922005-01-25 22:26:29 +00006459 * Insert typval_T "tv" in list "l" before "item".
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006460 * If "item" is NULL append at the end.
6461 * Return FAIL when out of memory.
6462 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006463 int
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006464list_insert_tv(l, tv, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00006465 list_T *l;
6466 typval_T *tv;
6467 listitem_T *item;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006468{
Bram Moolenaar33570922005-01-25 22:26:29 +00006469 listitem_T *ni = listitem_alloc();
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006470
6471 if (ni == NULL)
6472 return FAIL;
6473 copy_tv(tv, &ni->li_tv);
Bram Moolenaar063a46b2014-01-14 16:36:51 +01006474 list_insert(l, ni, item);
6475 return OK;
6476}
6477
6478 void
6479list_insert(l, ni, item)
6480 list_T *l;
6481 listitem_T *ni;
6482 listitem_T *item;
6483{
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006484 if (item == NULL)
6485 /* Append new item at end of list. */
6486 list_append(l, ni);
6487 else
6488 {
6489 /* Insert new item before existing item. */
6490 ni->li_prev = item->li_prev;
6491 ni->li_next = item;
6492 if (item->li_prev == NULL)
Bram Moolenaar758711c2005-02-02 23:11:38 +00006493 {
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006494 l->lv_first = ni;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006495 ++l->lv_idx;
6496 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006497 else
Bram Moolenaar758711c2005-02-02 23:11:38 +00006498 {
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006499 item->li_prev->li_next = ni;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006500 l->lv_idx_item = NULL;
6501 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006502 item->li_prev = ni;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006503 ++l->lv_len;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006504 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006505}
6506
6507/*
6508 * Extend "l1" with "l2".
6509 * If "bef" is NULL append at the end, otherwise insert before this item.
6510 * Returns FAIL when out of memory.
6511 */
6512 static int
6513list_extend(l1, l2, bef)
Bram Moolenaar33570922005-01-25 22:26:29 +00006514 list_T *l1;
6515 list_T *l2;
6516 listitem_T *bef;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006517{
Bram Moolenaar33570922005-01-25 22:26:29 +00006518 listitem_T *item;
Bram Moolenaardc9cf9c2008-08-08 10:36:31 +00006519 int todo = l2->lv_len;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006520
Bram Moolenaardc9cf9c2008-08-08 10:36:31 +00006521 /* We also quit the loop when we have inserted the original item count of
6522 * the list, avoid a hang when we extend a list with itself. */
6523 for (item = l2->lv_first; item != NULL && --todo >= 0; item = item->li_next)
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006524 if (list_insert_tv(l1, &item->li_tv, bef) == FAIL)
6525 return FAIL;
6526 return OK;
6527}
6528
6529/*
6530 * Concatenate lists "l1" and "l2" into a new list, stored in "tv".
6531 * Return FAIL when out of memory.
6532 */
6533 static int
6534list_concat(l1, l2, tv)
Bram Moolenaar33570922005-01-25 22:26:29 +00006535 list_T *l1;
6536 list_T *l2;
6537 typval_T *tv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006538{
Bram Moolenaar33570922005-01-25 22:26:29 +00006539 list_T *l;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006540
Bram Moolenaar9bf749b2008-07-27 13:57:29 +00006541 if (l1 == NULL || l2 == NULL)
6542 return FAIL;
6543
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006544 /* make a copy of the first list. */
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006545 l = list_copy(l1, FALSE, 0);
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006546 if (l == NULL)
6547 return FAIL;
6548 tv->v_type = VAR_LIST;
6549 tv->vval.v_list = l;
6550
6551 /* append all items from the second list */
6552 return list_extend(l, l2, NULL);
6553}
6554
6555/*
Bram Moolenaare9a41262005-01-15 22:18:47 +00006556 * Make a copy of list "orig". Shallow if "deep" is FALSE.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006557 * The refcount of the new list is set to 1.
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006558 * See item_copy() for "copyID".
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006559 * Returns NULL when out of memory.
6560 */
Bram Moolenaar33570922005-01-25 22:26:29 +00006561 static list_T *
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006562list_copy(orig, deep, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00006563 list_T *orig;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006564 int deep;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006565 int copyID;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006566{
Bram Moolenaar33570922005-01-25 22:26:29 +00006567 list_T *copy;
6568 listitem_T *item;
6569 listitem_T *ni;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006570
6571 if (orig == NULL)
6572 return NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006573
6574 copy = list_alloc();
6575 if (copy != NULL)
6576 {
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006577 if (copyID != 0)
6578 {
6579 /* Do this before adding the items, because one of the items may
6580 * refer back to this list. */
6581 orig->lv_copyID = copyID;
6582 orig->lv_copylist = copy;
6583 }
6584 for (item = orig->lv_first; item != NULL && !got_int;
6585 item = item->li_next)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006586 {
6587 ni = listitem_alloc();
6588 if (ni == NULL)
6589 break;
Bram Moolenaare9a41262005-01-15 22:18:47 +00006590 if (deep)
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006591 {
6592 if (item_copy(&item->li_tv, &ni->li_tv, deep, copyID) == FAIL)
6593 {
6594 vim_free(ni);
6595 break;
6596 }
6597 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006598 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00006599 copy_tv(&item->li_tv, &ni->li_tv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006600 list_append(copy, ni);
6601 }
6602 ++copy->lv_refcount;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006603 if (item != NULL)
6604 {
6605 list_unref(copy);
6606 copy = NULL;
6607 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006608 }
6609
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006610 return copy;
6611}
6612
6613/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006614 * Remove items "item" to "item2" from list "l".
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00006615 * Does not free the listitem or the value!
Bram Moolenaar3ec7f4e2014-05-07 17:31:37 +02006616 * This used to be called list_remove, but that conflicts with a Sun header
6617 * file.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006618 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006619 void
Bram Moolenaar3ec7f4e2014-05-07 17:31:37 +02006620vimlist_remove(l, item, item2)
Bram Moolenaar33570922005-01-25 22:26:29 +00006621 list_T *l;
6622 listitem_T *item;
6623 listitem_T *item2;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006624{
Bram Moolenaar33570922005-01-25 22:26:29 +00006625 listitem_T *ip;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006626
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006627 /* notify watchers */
6628 for (ip = item; ip != NULL; ip = ip->li_next)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006629 {
Bram Moolenaar758711c2005-02-02 23:11:38 +00006630 --l->lv_len;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006631 list_fix_watch(l, ip);
6632 if (ip == item2)
6633 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006634 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +00006635
6636 if (item2->li_next == NULL)
6637 l->lv_last = item->li_prev;
6638 else
6639 item2->li_next->li_prev = item->li_prev;
6640 if (item->li_prev == NULL)
6641 l->lv_first = item2->li_next;
6642 else
6643 item->li_prev->li_next = item2->li_next;
Bram Moolenaar758711c2005-02-02 23:11:38 +00006644 l->lv_idx_item = NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006645}
6646
6647/*
6648 * Return an allocated string with the string representation of a list.
6649 * May return NULL.
6650 */
6651 static char_u *
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00006652list2string(tv, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00006653 typval_T *tv;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00006654 int copyID;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006655{
6656 garray_T ga;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006657
6658 if (tv->vval.v_list == NULL)
6659 return NULL;
6660 ga_init2(&ga, (int)sizeof(char), 80);
6661 ga_append(&ga, '[');
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00006662 if (list_join(&ga, tv->vval.v_list, (char_u *)", ", FALSE, copyID) == FAIL)
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006663 {
6664 vim_free(ga.ga_data);
6665 return NULL;
6666 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006667 ga_append(&ga, ']');
6668 ga_append(&ga, NUL);
6669 return (char_u *)ga.ga_data;
6670}
6671
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006672typedef struct join_S {
6673 char_u *s;
6674 char_u *tofree;
6675} join_T;
6676
6677 static int
6678list_join_inner(gap, l, sep, echo_style, copyID, join_gap)
6679 garray_T *gap; /* to store the result in */
6680 list_T *l;
6681 char_u *sep;
6682 int echo_style;
6683 int copyID;
6684 garray_T *join_gap; /* to keep each list item string */
6685{
6686 int i;
6687 join_T *p;
6688 int len;
6689 int sumlen = 0;
6690 int first = TRUE;
6691 char_u *tofree;
6692 char_u numbuf[NUMBUFLEN];
6693 listitem_T *item;
6694 char_u *s;
6695
6696 /* Stringify each item in the list. */
6697 for (item = l->lv_first; item != NULL && !got_int; item = item->li_next)
6698 {
6699 if (echo_style)
6700 s = echo_string(&item->li_tv, &tofree, numbuf, copyID);
6701 else
6702 s = tv2string(&item->li_tv, &tofree, numbuf, copyID);
6703 if (s == NULL)
6704 return FAIL;
6705
6706 len = (int)STRLEN(s);
6707 sumlen += len;
6708
6709 ga_grow(join_gap, 1);
6710 p = ((join_T *)join_gap->ga_data) + (join_gap->ga_len++);
6711 if (tofree != NULL || s != numbuf)
6712 {
6713 p->s = s;
6714 p->tofree = tofree;
6715 }
6716 else
6717 {
6718 p->s = vim_strnsave(s, len);
6719 p->tofree = p->s;
6720 }
6721
6722 line_breakcheck();
Bram Moolenaar8502c702014-06-17 12:51:16 +02006723 if (did_echo_string_emsg) /* recursion error, bail out */
6724 break;
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006725 }
6726
6727 /* Allocate result buffer with its total size, avoid re-allocation and
6728 * multiple copy operations. Add 2 for a tailing ']' and NUL. */
6729 if (join_gap->ga_len >= 2)
6730 sumlen += (int)STRLEN(sep) * (join_gap->ga_len - 1);
6731 if (ga_grow(gap, sumlen + 2) == FAIL)
6732 return FAIL;
6733
6734 for (i = 0; i < join_gap->ga_len && !got_int; ++i)
6735 {
6736 if (first)
6737 first = FALSE;
6738 else
6739 ga_concat(gap, sep);
6740 p = ((join_T *)join_gap->ga_data) + i;
6741
6742 if (p->s != NULL)
6743 ga_concat(gap, p->s);
6744 line_breakcheck();
6745 }
6746
6747 return OK;
6748}
6749
Bram Moolenaar49cd9572005-01-03 21:06:01 +00006750/*
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006751 * Join list "l" into a string in "*gap", using separator "sep".
Bram Moolenaar70b2a562012-01-10 22:26:17 +01006752 * When "echo_style" is TRUE use String as echoed, otherwise as inside a List.
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006753 * Return FAIL or OK.
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006754 */
Bram Moolenaar81bf7082005-02-12 14:31:42 +00006755 static int
Bram Moolenaar70b2a562012-01-10 22:26:17 +01006756list_join(gap, l, sep, echo_style, copyID)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006757 garray_T *gap;
Bram Moolenaar33570922005-01-25 22:26:29 +00006758 list_T *l;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006759 char_u *sep;
Bram Moolenaar70b2a562012-01-10 22:26:17 +01006760 int echo_style;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00006761 int copyID;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006762{
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006763 garray_T join_ga;
6764 int retval;
6765 join_T *p;
6766 int i;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006767
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006768 ga_init2(&join_ga, (int)sizeof(join_T), l->lv_len);
6769 retval = list_join_inner(gap, l, sep, echo_style, copyID, &join_ga);
6770
6771 /* Dispose each item in join_ga. */
6772 if (join_ga.ga_data != NULL)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006773 {
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006774 p = (join_T *)join_ga.ga_data;
6775 for (i = 0; i < join_ga.ga_len; ++i)
6776 {
6777 vim_free(p->tofree);
6778 ++p;
6779 }
6780 ga_clear(&join_ga);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006781 }
Bram Moolenaar3fe37d62012-02-06 00:13:22 +01006782
6783 return retval;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00006784}
6785
6786/*
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006787 * Garbage collection for lists and dictionaries.
6788 *
6789 * We use reference counts to be able to free most items right away when they
6790 * are no longer used. But for composite items it's possible that it becomes
6791 * unused while the reference count is > 0: When there is a recursive
6792 * reference. Example:
6793 * :let l = [1, 2, 3]
6794 * :let d = {9: l}
6795 * :let l[1] = d
6796 *
6797 * Since this is quite unusual we handle this with garbage collection: every
6798 * once in a while find out which lists and dicts are not referenced from any
6799 * variable.
6800 *
6801 * Here is a good reference text about garbage collection (refers to Python
6802 * but it applies to all reference-counting mechanisms):
6803 * http://python.ca/nas/python/gc/
Bram Moolenaard9fba312005-06-26 22:34:35 +00006804 */
Bram Moolenaard9fba312005-06-26 22:34:35 +00006805
6806/*
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006807 * Do garbage collection for lists and dicts.
6808 * Return TRUE if some memory was freed.
Bram Moolenaard9fba312005-06-26 22:34:35 +00006809 */
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006810 int
6811garbage_collect()
Bram Moolenaard9fba312005-06-26 22:34:35 +00006812{
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006813 int copyID;
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006814 buf_T *buf;
6815 win_T *wp;
6816 int i;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +00006817 funccall_T *fc, **pfc;
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006818 int did_free;
6819 int did_free_funccal = FALSE;
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006820#ifdef FEAT_WINDOWS
6821 tabpage_T *tp;
6822#endif
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006823
Bram Moolenaar9fecb462006-09-05 10:59:47 +00006824 /* Only do this once. */
6825 want_garbage_collect = FALSE;
6826 may_garbage_collect = FALSE;
Bram Moolenaar9d2c8c12007-09-25 16:00:00 +00006827 garbage_collect_at_exit = FALSE;
Bram Moolenaar9fecb462006-09-05 10:59:47 +00006828
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006829 /* We advance by two because we add one for items referenced through
6830 * previous_funccal. */
6831 current_copyID += COPYID_INC;
6832 copyID = current_copyID;
6833
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006834 /*
6835 * 1. Go through all accessible variables and mark all lists and dicts
6836 * with copyID.
6837 */
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006838
6839 /* Don't free variables in the previous_funccal list unless they are only
6840 * referenced through previous_funccal. This must be first, because if
Bram Moolenaar2c2398c2009-06-03 11:22:45 +00006841 * the item is referenced elsewhere the funccal must not be freed. */
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006842 for (fc = previous_funccal; fc != NULL; fc = fc->caller)
6843 {
6844 set_ref_in_ht(&fc->l_vars.dv_hashtab, copyID + 1);
6845 set_ref_in_ht(&fc->l_avars.dv_hashtab, copyID + 1);
6846 }
6847
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006848 /* script-local variables */
6849 for (i = 1; i <= ga_scripts.ga_len; ++i)
6850 set_ref_in_ht(&SCRIPT_VARS(i), copyID);
6851
6852 /* buffer-local variables */
6853 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
Bram Moolenaar429fa852013-04-15 12:27:36 +02006854 set_ref_in_item(&buf->b_bufvar.di_tv, copyID);
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006855
6856 /* window-local variables */
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006857 FOR_ALL_TAB_WINDOWS(tp, wp)
Bram Moolenaar429fa852013-04-15 12:27:36 +02006858 set_ref_in_item(&wp->w_winvar.di_tv, copyID);
Bram Moolenaar3bb28552013-04-15 18:25:59 +02006859#ifdef FEAT_AUTOCMD
6860 if (aucmd_win != NULL)
6861 set_ref_in_item(&aucmd_win->w_winvar.di_tv, copyID);
6862#endif
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006863
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006864#ifdef FEAT_WINDOWS
6865 /* tabpage-local variables */
6866 for (tp = first_tabpage; tp != NULL; tp = tp->tp_next)
Bram Moolenaar429fa852013-04-15 12:27:36 +02006867 set_ref_in_item(&tp->tp_winvar.di_tv, copyID);
Bram Moolenaar910f66f2006-04-05 20:41:53 +00006868#endif
6869
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006870 /* global variables */
6871 set_ref_in_ht(&globvarht, copyID);
6872
6873 /* function-local variables */
6874 for (fc = current_funccal; fc != NULL; fc = fc->caller)
6875 {
6876 set_ref_in_ht(&fc->l_vars.dv_hashtab, copyID);
6877 set_ref_in_ht(&fc->l_avars.dv_hashtab, copyID);
6878 }
6879
Bram Moolenaard812df62008-11-09 12:46:09 +00006880 /* v: vars */
6881 set_ref_in_ht(&vimvarht, copyID);
6882
Bram Moolenaar1dced572012-04-05 16:54:08 +02006883#ifdef FEAT_LUA
6884 set_ref_in_lua(copyID);
6885#endif
6886
Bram Moolenaardb913952012-06-29 12:54:53 +02006887#ifdef FEAT_PYTHON
6888 set_ref_in_python(copyID);
6889#endif
6890
6891#ifdef FEAT_PYTHON3
6892 set_ref_in_python3(copyID);
6893#endif
6894
Bram Moolenaar2c2398c2009-06-03 11:22:45 +00006895 /*
6896 * 2. Free lists and dictionaries that are not referenced.
6897 */
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006898 did_free = free_unref_items(copyID);
6899
Bram Moolenaar2c2398c2009-06-03 11:22:45 +00006900 /*
6901 * 3. Check if any funccal can be freed now.
6902 */
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006903 for (pfc = &previous_funccal; *pfc != NULL; )
6904 {
6905 if (can_free_funccal(*pfc, copyID))
6906 {
6907 fc = *pfc;
6908 *pfc = fc->caller;
6909 free_funccal(fc, TRUE);
6910 did_free = TRUE;
6911 did_free_funccal = TRUE;
6912 }
6913 else
6914 pfc = &(*pfc)->caller;
6915 }
6916 if (did_free_funccal)
6917 /* When a funccal was freed some more items might be garbage
6918 * collected, so run again. */
6919 (void)garbage_collect();
6920
6921 return did_free;
6922}
6923
6924/*
6925 * Free lists and dictionaries that are no longer referenced.
6926 */
6927 static int
6928free_unref_items(copyID)
6929 int copyID;
6930{
6931 dict_T *dd;
6932 list_T *ll;
6933 int did_free = FALSE;
6934
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006935 /*
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006936 * Go through the list of dicts and free items without the copyID.
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006937 */
6938 for (dd = first_dict; dd != NULL; )
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006939 if ((dd->dv_copyID & COPYID_MASK) != (copyID & COPYID_MASK))
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006940 {
Bram Moolenaar685295c2006-10-15 20:37:38 +00006941 /* Free the Dictionary and ordinary items it contains, but don't
6942 * recurse into Lists and Dictionaries, they will be in the list
6943 * of dicts or list of lists. */
6944 dict_free(dd, FALSE);
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006945 did_free = TRUE;
6946
6947 /* restart, next dict may also have been freed */
6948 dd = first_dict;
6949 }
6950 else
6951 dd = dd->dv_used_next;
6952
6953 /*
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006954 * Go through the list of lists and free items without the copyID.
6955 * But don't free a list that has a watcher (used in a for loop), these
6956 * are not referenced anywhere.
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006957 */
6958 for (ll = first_list; ll != NULL; )
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +00006959 if ((ll->lv_copyID & COPYID_MASK) != (copyID & COPYID_MASK)
6960 && ll->lv_watch == NULL)
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006961 {
Bram Moolenaar685295c2006-10-15 20:37:38 +00006962 /* Free the List and ordinary items it contains, but don't recurse
6963 * into Lists and Dictionaries, they will be in the list of dicts
6964 * or list of lists. */
6965 list_free(ll, FALSE);
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006966 did_free = TRUE;
6967
Bram Moolenaar7bb4c6e2005-09-07 21:22:27 +00006968 /* restart, next list may also have been freed */
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006969 ll = first_list;
6970 }
6971 else
6972 ll = ll->lv_used_next;
6973
6974 return did_free;
6975}
6976
6977/*
6978 * Mark all lists and dicts referenced through hashtab "ht" with "copyID".
6979 */
Bram Moolenaardb913952012-06-29 12:54:53 +02006980 void
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006981set_ref_in_ht(ht, copyID)
6982 hashtab_T *ht;
6983 int copyID;
6984{
6985 int todo;
6986 hashitem_T *hi;
6987
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00006988 todo = (int)ht->ht_used;
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00006989 for (hi = ht->ht_array; todo > 0; ++hi)
6990 if (!HASHITEM_EMPTY(hi))
6991 {
6992 --todo;
6993 set_ref_in_item(&HI2DI(hi)->di_tv, copyID);
6994 }
6995}
6996
6997/*
6998 * Mark all lists and dicts referenced through list "l" with "copyID".
6999 */
Bram Moolenaardb913952012-06-29 12:54:53 +02007000 void
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007001set_ref_in_list(l, copyID)
7002 list_T *l;
7003 int copyID;
7004{
7005 listitem_T *li;
7006
7007 for (li = l->lv_first; li != NULL; li = li->li_next)
7008 set_ref_in_item(&li->li_tv, copyID);
7009}
7010
7011/*
7012 * Mark all lists and dicts referenced through typval "tv" with "copyID".
7013 */
Bram Moolenaardb913952012-06-29 12:54:53 +02007014 void
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007015set_ref_in_item(tv, copyID)
7016 typval_T *tv;
7017 int copyID;
7018{
7019 dict_T *dd;
7020 list_T *ll;
Bram Moolenaard9fba312005-06-26 22:34:35 +00007021
7022 switch (tv->v_type)
7023 {
7024 case VAR_DICT:
7025 dd = tv->vval.v_dict;
Bram Moolenaard812df62008-11-09 12:46:09 +00007026 if (dd != NULL && dd->dv_copyID != copyID)
Bram Moolenaard9fba312005-06-26 22:34:35 +00007027 {
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007028 /* Didn't see this dict yet. */
7029 dd->dv_copyID = copyID;
7030 set_ref_in_ht(&dd->dv_hashtab, copyID);
Bram Moolenaard9fba312005-06-26 22:34:35 +00007031 }
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007032 break;
Bram Moolenaard9fba312005-06-26 22:34:35 +00007033
7034 case VAR_LIST:
7035 ll = tv->vval.v_list;
Bram Moolenaard812df62008-11-09 12:46:09 +00007036 if (ll != NULL && ll->lv_copyID != copyID)
Bram Moolenaard9fba312005-06-26 22:34:35 +00007037 {
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007038 /* Didn't see this list yet. */
7039 ll->lv_copyID = copyID;
7040 set_ref_in_list(ll, copyID);
Bram Moolenaard9fba312005-06-26 22:34:35 +00007041 }
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007042 break;
Bram Moolenaard9fba312005-06-26 22:34:35 +00007043 }
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007044 return;
Bram Moolenaard9fba312005-06-26 22:34:35 +00007045}
7046
7047/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007048 * Allocate an empty header for a dictionary.
7049 */
Bram Moolenaar05159a02005-02-26 23:04:13 +00007050 dict_T *
Bram Moolenaar8c711452005-01-14 21:53:12 +00007051dict_alloc()
7052{
Bram Moolenaar33570922005-01-25 22:26:29 +00007053 dict_T *d;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007054
Bram Moolenaar33570922005-01-25 22:26:29 +00007055 d = (dict_T *)alloc(sizeof(dict_T));
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007056 if (d != NULL)
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007057 {
Bram Moolenaarbdb62052012-07-16 17:31:53 +02007058 /* Add the dict to the list of dicts for garbage collection. */
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007059 if (first_dict != NULL)
7060 first_dict->dv_used_prev = d;
7061 d->dv_used_next = first_dict;
7062 d->dv_used_prev = NULL;
Bram Moolenaar685295c2006-10-15 20:37:38 +00007063 first_dict = d;
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007064
Bram Moolenaar33570922005-01-25 22:26:29 +00007065 hash_init(&d->dv_hashtab);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007066 d->dv_lock = 0;
Bram Moolenaarbdb62052012-07-16 17:31:53 +02007067 d->dv_scope = 0;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007068 d->dv_refcount = 0;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007069 d->dv_copyID = 0;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007070 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007071 return d;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007072}
7073
7074/*
Bram Moolenaara800b422010-06-27 01:15:55 +02007075 * Allocate an empty dict for a return value.
7076 * Returns OK or FAIL.
7077 */
7078 static int
7079rettv_dict_alloc(rettv)
7080 typval_T *rettv;
7081{
7082 dict_T *d = dict_alloc();
7083
7084 if (d == NULL)
7085 return FAIL;
7086
7087 rettv->vval.v_dict = d;
7088 rettv->v_type = VAR_DICT;
7089 ++d->dv_refcount;
7090 return OK;
7091}
7092
7093
7094/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007095 * Unreference a Dictionary: decrement the reference count and free it when it
7096 * becomes zero.
7097 */
Bram Moolenaar82139082011-09-14 16:52:09 +02007098 void
Bram Moolenaar8c711452005-01-14 21:53:12 +00007099dict_unref(d)
Bram Moolenaar33570922005-01-25 22:26:29 +00007100 dict_T *d;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007101{
Bram Moolenaar685295c2006-10-15 20:37:38 +00007102 if (d != NULL && --d->dv_refcount <= 0)
7103 dict_free(d, TRUE);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007104}
7105
7106/*
7107 * Free a Dictionary, including all items it contains.
7108 * Ignores the reference count.
7109 */
Bram Moolenaar9bb77d62013-05-30 12:14:49 +02007110 void
Bram Moolenaar685295c2006-10-15 20:37:38 +00007111dict_free(d, recurse)
7112 dict_T *d;
7113 int recurse; /* Free Lists and Dictionaries recursively. */
Bram Moolenaar8c711452005-01-14 21:53:12 +00007114{
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007115 int todo;
Bram Moolenaar33570922005-01-25 22:26:29 +00007116 hashitem_T *hi;
Bram Moolenaard9fba312005-06-26 22:34:35 +00007117 dictitem_T *di;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007118
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +00007119 /* Remove the dict from the list of dicts for garbage collection. */
7120 if (d->dv_used_prev == NULL)
7121 first_dict = d->dv_used_next;
7122 else
7123 d->dv_used_prev->dv_used_next = d->dv_used_next;
7124 if (d->dv_used_next != NULL)
7125 d->dv_used_next->dv_used_prev = d->dv_used_prev;
7126
7127 /* Lock the hashtab, we don't want it to resize while freeing items. */
Bram Moolenaard9fba312005-06-26 22:34:35 +00007128 hash_lock(&d->dv_hashtab);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007129 todo = (int)d->dv_hashtab.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +00007130 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
Bram Moolenaar8c711452005-01-14 21:53:12 +00007131 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007132 if (!HASHITEM_EMPTY(hi))
7133 {
Bram Moolenaard9fba312005-06-26 22:34:35 +00007134 /* Remove the item before deleting it, just in case there is
7135 * something recursive causing trouble. */
7136 di = HI2DI(hi);
7137 hash_remove(&d->dv_hashtab, hi);
Bram Moolenaar685295c2006-10-15 20:37:38 +00007138 if (recurse || (di->di_tv.v_type != VAR_LIST
7139 && di->di_tv.v_type != VAR_DICT))
7140 clear_tv(&di->di_tv);
7141 vim_free(di);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007142 --todo;
7143 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007144 }
Bram Moolenaar33570922005-01-25 22:26:29 +00007145 hash_clear(&d->dv_hashtab);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007146 vim_free(d);
7147}
7148
7149/*
7150 * Allocate a Dictionary item.
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007151 * The "key" is copied to the new item.
7152 * Note that the value of the item "di_tv" still needs to be initialized!
7153 * Returns NULL when out of memory.
Bram Moolenaar8c711452005-01-14 21:53:12 +00007154 */
Bram Moolenaar7e506b62010-01-19 15:55:06 +01007155 dictitem_T *
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007156dictitem_alloc(key)
7157 char_u *key;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007158{
Bram Moolenaar33570922005-01-25 22:26:29 +00007159 dictitem_T *di;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007160
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007161 di = (dictitem_T *)alloc((unsigned)(sizeof(dictitem_T) + STRLEN(key)));
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007162 if (di != NULL)
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007163 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007164 STRCPY(di->di_key, key);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007165 di->di_flags = 0;
7166 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007167 return di;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007168}
7169
7170/*
Bram Moolenaare9a41262005-01-15 22:18:47 +00007171 * Make a copy of a Dictionary item.
7172 */
Bram Moolenaar33570922005-01-25 22:26:29 +00007173 static dictitem_T *
Bram Moolenaare9a41262005-01-15 22:18:47 +00007174dictitem_copy(org)
Bram Moolenaar33570922005-01-25 22:26:29 +00007175 dictitem_T *org;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007176{
Bram Moolenaar33570922005-01-25 22:26:29 +00007177 dictitem_T *di;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007178
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007179 di = (dictitem_T *)alloc((unsigned)(sizeof(dictitem_T)
7180 + STRLEN(org->di_key)));
Bram Moolenaare9a41262005-01-15 22:18:47 +00007181 if (di != NULL)
7182 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007183 STRCPY(di->di_key, org->di_key);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007184 di->di_flags = 0;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007185 copy_tv(&org->di_tv, &di->di_tv);
7186 }
7187 return di;
7188}
7189
7190/*
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007191 * Remove item "item" from Dictionary "dict" and free it.
7192 */
7193 static void
7194dictitem_remove(dict, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00007195 dict_T *dict;
7196 dictitem_T *item;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007197{
Bram Moolenaar33570922005-01-25 22:26:29 +00007198 hashitem_T *hi;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007199
Bram Moolenaar33570922005-01-25 22:26:29 +00007200 hi = hash_find(&dict->dv_hashtab, item->di_key);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007201 if (HASHITEM_EMPTY(hi))
7202 EMSG2(_(e_intern2), "dictitem_remove()");
7203 else
Bram Moolenaar33570922005-01-25 22:26:29 +00007204 hash_remove(&dict->dv_hashtab, hi);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007205 dictitem_free(item);
7206}
7207
7208/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007209 * Free a dict item. Also clears the value.
7210 */
Bram Moolenaar7e506b62010-01-19 15:55:06 +01007211 void
Bram Moolenaar8c711452005-01-14 21:53:12 +00007212dictitem_free(item)
Bram Moolenaar33570922005-01-25 22:26:29 +00007213 dictitem_T *item;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007214{
Bram Moolenaar8c711452005-01-14 21:53:12 +00007215 clear_tv(&item->di_tv);
7216 vim_free(item);
7217}
7218
7219/*
Bram Moolenaare9a41262005-01-15 22:18:47 +00007220 * Make a copy of dict "d". Shallow if "deep" is FALSE.
7221 * The refcount of the new dict is set to 1.
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007222 * See item_copy() for "copyID".
Bram Moolenaare9a41262005-01-15 22:18:47 +00007223 * Returns NULL when out of memory.
7224 */
Bram Moolenaar33570922005-01-25 22:26:29 +00007225 static dict_T *
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007226dict_copy(orig, deep, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00007227 dict_T *orig;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007228 int deep;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007229 int copyID;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007230{
Bram Moolenaar33570922005-01-25 22:26:29 +00007231 dict_T *copy;
7232 dictitem_T *di;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007233 int todo;
Bram Moolenaar33570922005-01-25 22:26:29 +00007234 hashitem_T *hi;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007235
7236 if (orig == NULL)
7237 return NULL;
7238
7239 copy = dict_alloc();
7240 if (copy != NULL)
7241 {
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007242 if (copyID != 0)
7243 {
7244 orig->dv_copyID = copyID;
7245 orig->dv_copydict = copy;
7246 }
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007247 todo = (int)orig->dv_hashtab.ht_used;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007248 for (hi = orig->dv_hashtab.ht_array; todo > 0 && !got_int; ++hi)
Bram Moolenaare9a41262005-01-15 22:18:47 +00007249 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007250 if (!HASHITEM_EMPTY(hi))
Bram Moolenaare9a41262005-01-15 22:18:47 +00007251 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007252 --todo;
7253
7254 di = dictitem_alloc(hi->hi_key);
7255 if (di == NULL)
7256 break;
7257 if (deep)
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007258 {
7259 if (item_copy(&HI2DI(hi)->di_tv, &di->di_tv, deep,
7260 copyID) == FAIL)
7261 {
7262 vim_free(di);
7263 break;
7264 }
7265 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007266 else
7267 copy_tv(&HI2DI(hi)->di_tv, &di->di_tv);
7268 if (dict_add(copy, di) == FAIL)
7269 {
7270 dictitem_free(di);
7271 break;
7272 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007273 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007274 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007275
Bram Moolenaare9a41262005-01-15 22:18:47 +00007276 ++copy->dv_refcount;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007277 if (todo > 0)
7278 {
7279 dict_unref(copy);
7280 copy = NULL;
7281 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007282 }
7283
7284 return copy;
7285}
7286
7287/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007288 * Add item "item" to Dictionary "d".
Bram Moolenaara800b422010-06-27 01:15:55 +02007289 * Returns FAIL when out of memory and when key already exists.
Bram Moolenaar8c711452005-01-14 21:53:12 +00007290 */
Bram Moolenaar7e506b62010-01-19 15:55:06 +01007291 int
Bram Moolenaar8c711452005-01-14 21:53:12 +00007292dict_add(d, item)
Bram Moolenaar33570922005-01-25 22:26:29 +00007293 dict_T *d;
7294 dictitem_T *item;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007295{
Bram Moolenaar33570922005-01-25 22:26:29 +00007296 return hash_add(&d->dv_hashtab, item->di_key);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007297}
7298
Bram Moolenaar8c711452005-01-14 21:53:12 +00007299/*
Bram Moolenaar05159a02005-02-26 23:04:13 +00007300 * Add a number or string entry to dictionary "d".
7301 * When "str" is NULL use number "nr", otherwise use "str".
7302 * Returns FAIL when out of memory and when key already exists.
7303 */
7304 int
7305dict_add_nr_str(d, key, nr, str)
7306 dict_T *d;
7307 char *key;
7308 long nr;
7309 char_u *str;
7310{
7311 dictitem_T *item;
7312
7313 item = dictitem_alloc((char_u *)key);
7314 if (item == NULL)
7315 return FAIL;
7316 item->di_tv.v_lock = 0;
7317 if (str == NULL)
7318 {
7319 item->di_tv.v_type = VAR_NUMBER;
7320 item->di_tv.vval.v_number = nr;
7321 }
7322 else
7323 {
7324 item->di_tv.v_type = VAR_STRING;
7325 item->di_tv.vval.v_string = vim_strsave(str);
7326 }
7327 if (dict_add(d, item) == FAIL)
7328 {
7329 dictitem_free(item);
7330 return FAIL;
7331 }
7332 return OK;
7333}
7334
7335/*
Bram Moolenaar217d2852010-09-14 12:47:37 +02007336 * Add a list entry to dictionary "d".
Bram Moolenaara800b422010-06-27 01:15:55 +02007337 * Returns FAIL when out of memory and when key already exists.
7338 */
7339 int
7340dict_add_list(d, key, list)
7341 dict_T *d;
7342 char *key;
7343 list_T *list;
7344{
7345 dictitem_T *item;
7346
7347 item = dictitem_alloc((char_u *)key);
7348 if (item == NULL)
7349 return FAIL;
7350 item->di_tv.v_lock = 0;
7351 item->di_tv.v_type = VAR_LIST;
7352 item->di_tv.vval.v_list = list;
7353 if (dict_add(d, item) == FAIL)
7354 {
7355 dictitem_free(item);
7356 return FAIL;
7357 }
Bram Moolenaar217d2852010-09-14 12:47:37 +02007358 ++list->lv_refcount;
Bram Moolenaara800b422010-06-27 01:15:55 +02007359 return OK;
7360}
7361
7362/*
Bram Moolenaare9a41262005-01-15 22:18:47 +00007363 * Get the number of items in a Dictionary.
7364 */
7365 static long
7366dict_len(d)
Bram Moolenaar33570922005-01-25 22:26:29 +00007367 dict_T *d;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007368{
Bram Moolenaare9a41262005-01-15 22:18:47 +00007369 if (d == NULL)
7370 return 0L;
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007371 return (long)d->dv_hashtab.ht_used;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007372}
7373
7374/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007375 * Find item "key[len]" in Dictionary "d".
7376 * If "len" is negative use strlen(key).
7377 * Returns NULL when not found.
7378 */
Bram Moolenaar8bcf9652010-06-12 20:12:02 +02007379 dictitem_T *
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007380dict_find(d, key, len)
Bram Moolenaar33570922005-01-25 22:26:29 +00007381 dict_T *d;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007382 char_u *key;
7383 int len;
7384{
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007385#define AKEYLEN 200
7386 char_u buf[AKEYLEN];
7387 char_u *akey;
7388 char_u *tofree = NULL;
Bram Moolenaar33570922005-01-25 22:26:29 +00007389 hashitem_T *hi;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007390
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007391 if (len < 0)
7392 akey = key;
7393 else if (len >= AKEYLEN)
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00007394 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007395 tofree = akey = vim_strnsave(key, len);
7396 if (akey == NULL)
7397 return NULL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +00007398 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007399 else
7400 {
7401 /* Avoid a malloc/free by using buf[]. */
Bram Moolenaarce0842a2005-07-18 21:58:11 +00007402 vim_strncpy(buf, key, len);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007403 akey = buf;
7404 }
7405
Bram Moolenaar33570922005-01-25 22:26:29 +00007406 hi = hash_find(&d->dv_hashtab, akey);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007407 vim_free(tofree);
7408 if (HASHITEM_EMPTY(hi))
7409 return NULL;
7410 return HI2DI(hi);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007411}
7412
7413/*
Bram Moolenaar8b6144b2006-02-08 09:20:24 +00007414 * Get a string item from a dictionary.
7415 * When "save" is TRUE allocate memory for it.
Bram Moolenaar2641f772005-03-25 21:58:17 +00007416 * Returns NULL if the entry doesn't exist or out of memory.
7417 */
7418 char_u *
Bram Moolenaar8b6144b2006-02-08 09:20:24 +00007419get_dict_string(d, key, save)
Bram Moolenaar2641f772005-03-25 21:58:17 +00007420 dict_T *d;
7421 char_u *key;
Bram Moolenaar8b6144b2006-02-08 09:20:24 +00007422 int save;
Bram Moolenaar2641f772005-03-25 21:58:17 +00007423{
7424 dictitem_T *di;
Bram Moolenaar8b6144b2006-02-08 09:20:24 +00007425 char_u *s;
Bram Moolenaar2641f772005-03-25 21:58:17 +00007426
7427 di = dict_find(d, key, -1);
7428 if (di == NULL)
7429 return NULL;
Bram Moolenaar8b6144b2006-02-08 09:20:24 +00007430 s = get_tv_string(&di->di_tv);
7431 if (save && s != NULL)
7432 s = vim_strsave(s);
7433 return s;
Bram Moolenaar2641f772005-03-25 21:58:17 +00007434}
7435
7436/*
7437 * Get a number item from a dictionary.
7438 * Returns 0 if the entry doesn't exist or out of memory.
7439 */
7440 long
7441get_dict_number(d, key)
7442 dict_T *d;
7443 char_u *key;
7444{
7445 dictitem_T *di;
7446
7447 di = dict_find(d, key, -1);
7448 if (di == NULL)
7449 return 0;
7450 return get_tv_number(&di->di_tv);
7451}
7452
7453/*
Bram Moolenaar8c711452005-01-14 21:53:12 +00007454 * Return an allocated string with the string representation of a Dictionary.
7455 * May return NULL.
7456 */
7457 static char_u *
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007458dict2string(tv, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00007459 typval_T *tv;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007460 int copyID;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007461{
7462 garray_T ga;
7463 int first = TRUE;
7464 char_u *tofree;
7465 char_u numbuf[NUMBUFLEN];
Bram Moolenaar33570922005-01-25 22:26:29 +00007466 hashitem_T *hi;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007467 char_u *s;
Bram Moolenaar33570922005-01-25 22:26:29 +00007468 dict_T *d;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007469 int todo;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007470
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007471 if ((d = tv->vval.v_dict) == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00007472 return NULL;
7473 ga_init2(&ga, (int)sizeof(char), 80);
7474 ga_append(&ga, '{');
7475
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007476 todo = (int)d->dv_hashtab.ht_used;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007477 for (hi = d->dv_hashtab.ht_array; todo > 0 && !got_int; ++hi)
Bram Moolenaar8c711452005-01-14 21:53:12 +00007478 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007479 if (!HASHITEM_EMPTY(hi))
Bram Moolenaar8c711452005-01-14 21:53:12 +00007480 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007481 --todo;
7482
7483 if (first)
7484 first = FALSE;
7485 else
7486 ga_concat(&ga, (char_u *)", ");
7487
7488 tofree = string_quote(hi->hi_key, FALSE);
7489 if (tofree != NULL)
7490 {
7491 ga_concat(&ga, tofree);
7492 vim_free(tofree);
7493 }
7494 ga_concat(&ga, (char_u *)": ");
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007495 s = tv2string(&HI2DI(hi)->di_tv, &tofree, numbuf, copyID);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007496 if (s != NULL)
7497 ga_concat(&ga, s);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007498 vim_free(tofree);
Bram Moolenaar8502c702014-06-17 12:51:16 +02007499 if (s == NULL || did_echo_string_emsg)
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007500 break;
Bram Moolenaar8502c702014-06-17 12:51:16 +02007501 line_breakcheck();
7502
Bram Moolenaar8c711452005-01-14 21:53:12 +00007503 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007504 }
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007505 if (todo > 0)
7506 {
7507 vim_free(ga.ga_data);
7508 return NULL;
7509 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007510
7511 ga_append(&ga, '}');
7512 ga_append(&ga, NUL);
7513 return (char_u *)ga.ga_data;
7514}
7515
7516/*
7517 * Allocate a variable for a Dictionary and fill it from "*arg".
7518 * Return OK or FAIL. Returns NOTDONE for {expr}.
7519 */
7520 static int
7521get_dict_tv(arg, rettv, evaluate)
7522 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00007523 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007524 int evaluate;
7525{
Bram Moolenaar33570922005-01-25 22:26:29 +00007526 dict_T *d = NULL;
7527 typval_T tvkey;
7528 typval_T tv;
Bram Moolenaarad6c2272007-09-17 20:21:33 +00007529 char_u *key = NULL;
Bram Moolenaar33570922005-01-25 22:26:29 +00007530 dictitem_T *item;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007531 char_u *start = skipwhite(*arg + 1);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007532 char_u buf[NUMBUFLEN];
Bram Moolenaar8c711452005-01-14 21:53:12 +00007533
7534 /*
7535 * First check if it's not a curly-braces thing: {expr}.
7536 * Must do this without evaluating, otherwise a function may be called
7537 * twice. Unfortunately this means we need to call eval1() twice for the
7538 * first item.
Bram Moolenaare9a41262005-01-15 22:18:47 +00007539 * But {} is an empty Dictionary.
Bram Moolenaar8c711452005-01-14 21:53:12 +00007540 */
Bram Moolenaare9a41262005-01-15 22:18:47 +00007541 if (*start != '}')
7542 {
7543 if (eval1(&start, &tv, FALSE) == FAIL) /* recursive! */
7544 return FAIL;
7545 if (*start == '}')
7546 return NOTDONE;
7547 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007548
7549 if (evaluate)
7550 {
7551 d = dict_alloc();
7552 if (d == NULL)
7553 return FAIL;
7554 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007555 tvkey.v_type = VAR_UNKNOWN;
7556 tv.v_type = VAR_UNKNOWN;
Bram Moolenaar8c711452005-01-14 21:53:12 +00007557
7558 *arg = skipwhite(*arg + 1);
7559 while (**arg != '}' && **arg != NUL)
7560 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007561 if (eval1(arg, &tvkey, evaluate) == FAIL) /* recursive! */
Bram Moolenaar8c711452005-01-14 21:53:12 +00007562 goto failret;
7563 if (**arg != ':')
7564 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00007565 EMSG2(_("E720: Missing colon in Dictionary: %s"), *arg);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007566 clear_tv(&tvkey);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007567 goto failret;
7568 }
Bram Moolenaar037cc642007-09-13 18:40:54 +00007569 if (evaluate)
Bram Moolenaar8c711452005-01-14 21:53:12 +00007570 {
Bram Moolenaar037cc642007-09-13 18:40:54 +00007571 key = get_tv_string_buf_chk(&tvkey, buf);
7572 if (key == NULL || *key == NUL)
7573 {
7574 /* "key" is NULL when get_tv_string_buf_chk() gave an errmsg */
7575 if (key != NULL)
7576 EMSG(_(e_emptykey));
7577 clear_tv(&tvkey);
7578 goto failret;
7579 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007580 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007581
7582 *arg = skipwhite(*arg + 1);
7583 if (eval1(arg, &tv, evaluate) == FAIL) /* recursive! */
7584 {
Bram Moolenaar037cc642007-09-13 18:40:54 +00007585 if (evaluate)
7586 clear_tv(&tvkey);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007587 goto failret;
7588 }
7589 if (evaluate)
7590 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007591 item = dict_find(d, key, -1);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007592 if (item != NULL)
7593 {
Bram Moolenaarb982ca52005-03-28 21:02:15 +00007594 EMSG2(_("E721: Duplicate key in Dictionary: \"%s\""), key);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007595 clear_tv(&tvkey);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007596 clear_tv(&tv);
7597 goto failret;
7598 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007599 item = dictitem_alloc(key);
7600 clear_tv(&tvkey);
7601 if (item != NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +00007602 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00007603 item->di_tv = tv;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00007604 item->di_tv.v_lock = 0;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00007605 if (dict_add(d, item) == FAIL)
7606 dictitem_free(item);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007607 }
7608 }
7609
7610 if (**arg == '}')
7611 break;
7612 if (**arg != ',')
7613 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00007614 EMSG2(_("E722: Missing comma in Dictionary: %s"), *arg);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007615 goto failret;
7616 }
7617 *arg = skipwhite(*arg + 1);
7618 }
7619
7620 if (**arg != '}')
7621 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00007622 EMSG2(_("E723: Missing end of Dictionary '}': %s"), *arg);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007623failret:
7624 if (evaluate)
Bram Moolenaar685295c2006-10-15 20:37:38 +00007625 dict_free(d, TRUE);
Bram Moolenaar8c711452005-01-14 21:53:12 +00007626 return FAIL;
7627 }
7628
7629 *arg = skipwhite(*arg + 1);
7630 if (evaluate)
7631 {
7632 rettv->v_type = VAR_DICT;
7633 rettv->vval.v_dict = d;
7634 ++d->dv_refcount;
7635 }
7636
7637 return OK;
7638}
7639
Bram Moolenaar8c711452005-01-14 21:53:12 +00007640/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007641 * Return a string with the string representation of a variable.
7642 * If the memory is allocated "tofree" is set to it, otherwise NULL.
Bram Moolenaar8a283e52005-01-06 23:28:25 +00007643 * "numbuf" is used for a number.
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007644 * Does not put quotes around strings, as ":echo" displays values.
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007645 * When "copyID" is not NULL replace recursive lists and dicts with "...".
Bram Moolenaar92c5aba2007-08-14 20:29:31 +00007646 * May return NULL.
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007647 */
7648 static char_u *
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007649echo_string(tv, tofree, numbuf, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00007650 typval_T *tv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007651 char_u **tofree;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00007652 char_u *numbuf;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007653 int copyID;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007654{
Bram Moolenaare9a41262005-01-15 22:18:47 +00007655 static int recurse = 0;
7656 char_u *r = NULL;
7657
Bram Moolenaar33570922005-01-25 22:26:29 +00007658 if (recurse >= DICT_MAXNEST)
Bram Moolenaare9a41262005-01-15 22:18:47 +00007659 {
Bram Moolenaar8502c702014-06-17 12:51:16 +02007660 if (!did_echo_string_emsg)
7661 {
7662 /* Only give this message once for a recursive call to avoid
7663 * flooding the user with errors. And stop iterating over lists
7664 * and dicts. */
7665 did_echo_string_emsg = TRUE;
7666 EMSG(_("E724: variable nested too deep for displaying"));
7667 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007668 *tofree = NULL;
Bram Moolenaar8502c702014-06-17 12:51:16 +02007669 return (char_u *)"{E724}";
Bram Moolenaare9a41262005-01-15 22:18:47 +00007670 }
7671 ++recurse;
7672
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007673 switch (tv->v_type)
7674 {
7675 case VAR_FUNC:
7676 *tofree = NULL;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007677 r = tv->vval.v_string;
7678 break;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007679
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007680 case VAR_LIST:
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007681 if (tv->vval.v_list == NULL)
7682 {
7683 *tofree = NULL;
7684 r = NULL;
7685 }
7686 else if (copyID != 0 && tv->vval.v_list->lv_copyID == copyID)
7687 {
7688 *tofree = NULL;
7689 r = (char_u *)"[...]";
7690 }
7691 else
7692 {
7693 tv->vval.v_list->lv_copyID = copyID;
7694 *tofree = list2string(tv, copyID);
7695 r = *tofree;
7696 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007697 break;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007698
Bram Moolenaar8c711452005-01-14 21:53:12 +00007699 case VAR_DICT:
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007700 if (tv->vval.v_dict == NULL)
7701 {
7702 *tofree = NULL;
7703 r = NULL;
7704 }
7705 else if (copyID != 0 && tv->vval.v_dict->dv_copyID == copyID)
7706 {
7707 *tofree = NULL;
7708 r = (char_u *)"{...}";
7709 }
7710 else
7711 {
7712 tv->vval.v_dict->dv_copyID = copyID;
7713 *tofree = dict2string(tv, copyID);
7714 r = *tofree;
7715 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007716 break;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007717
Bram Moolenaarc70646c2005-01-04 21:52:38 +00007718 case VAR_STRING:
7719 case VAR_NUMBER:
Bram Moolenaare9a41262005-01-15 22:18:47 +00007720 *tofree = NULL;
7721 r = get_tv_string_buf(tv, numbuf);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007722 break;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007723
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007724#ifdef FEAT_FLOAT
7725 case VAR_FLOAT:
7726 *tofree = NULL;
7727 vim_snprintf((char *)numbuf, NUMBUFLEN, "%g", tv->vval.v_float);
7728 r = numbuf;
7729 break;
7730#endif
7731
Bram Moolenaarc70646c2005-01-04 21:52:38 +00007732 default:
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007733 EMSG2(_(e_intern2), "echo_string()");
Bram Moolenaare9a41262005-01-15 22:18:47 +00007734 *tofree = NULL;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007735 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00007736
Bram Moolenaar8502c702014-06-17 12:51:16 +02007737 if (--recurse == 0)
7738 did_echo_string_emsg = FALSE;
Bram Moolenaare9a41262005-01-15 22:18:47 +00007739 return r;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007740}
7741
7742/*
7743 * Return a string with the string representation of a variable.
7744 * If the memory is allocated "tofree" is set to it, otherwise NULL.
7745 * "numbuf" is used for a number.
7746 * Puts quotes around strings, so that they can be parsed back by eval().
Bram Moolenaar92c5aba2007-08-14 20:29:31 +00007747 * May return NULL.
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007748 */
7749 static char_u *
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007750tv2string(tv, tofree, numbuf, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +00007751 typval_T *tv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007752 char_u **tofree;
7753 char_u *numbuf;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007754 int copyID;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007755{
7756 switch (tv->v_type)
7757 {
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007758 case VAR_FUNC:
7759 *tofree = string_quote(tv->vval.v_string, TRUE);
7760 return *tofree;
7761 case VAR_STRING:
7762 *tofree = string_quote(tv->vval.v_string, FALSE);
7763 return *tofree;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007764#ifdef FEAT_FLOAT
7765 case VAR_FLOAT:
7766 *tofree = NULL;
7767 vim_snprintf((char *)numbuf, NUMBUFLEN - 1, "%g", tv->vval.v_float);
7768 return numbuf;
7769#endif
Bram Moolenaare9a41262005-01-15 22:18:47 +00007770 case VAR_NUMBER:
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007771 case VAR_LIST:
Bram Moolenaar8c711452005-01-14 21:53:12 +00007772 case VAR_DICT:
Bram Moolenaare9a41262005-01-15 22:18:47 +00007773 break;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007774 default:
Bram Moolenaarc70646c2005-01-04 21:52:38 +00007775 EMSG2(_(e_intern2), "tv2string()");
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007776 }
Bram Moolenaarb71eaae2006-01-20 23:10:18 +00007777 return echo_string(tv, tofree, numbuf, copyID);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007778}
7779
7780/*
Bram Moolenaar33570922005-01-25 22:26:29 +00007781 * Return string "str" in ' quotes, doubling ' characters.
7782 * If "str" is NULL an empty string is assumed.
Bram Moolenaar8c711452005-01-14 21:53:12 +00007783 * If "function" is TRUE make it function('string').
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007784 */
7785 static char_u *
7786string_quote(str, function)
7787 char_u *str;
7788 int function;
7789{
Bram Moolenaar33570922005-01-25 22:26:29 +00007790 unsigned len;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007791 char_u *p, *r, *s;
7792
Bram Moolenaar33570922005-01-25 22:26:29 +00007793 len = (function ? 13 : 3);
7794 if (str != NULL)
7795 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00007796 len += (unsigned)STRLEN(str);
Bram Moolenaar33570922005-01-25 22:26:29 +00007797 for (p = str; *p != NUL; mb_ptr_adv(p))
7798 if (*p == '\'')
7799 ++len;
7800 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007801 s = r = alloc(len);
7802 if (r != NULL)
7803 {
7804 if (function)
7805 {
Bram Moolenaar8c711452005-01-14 21:53:12 +00007806 STRCPY(r, "function('");
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007807 r += 10;
7808 }
7809 else
Bram Moolenaar8c711452005-01-14 21:53:12 +00007810 *r++ = '\'';
Bram Moolenaar33570922005-01-25 22:26:29 +00007811 if (str != NULL)
7812 for (p = str; *p != NUL; )
7813 {
7814 if (*p == '\'')
7815 *r++ = '\'';
7816 MB_COPY_CHAR(p, r);
7817 }
Bram Moolenaar8c711452005-01-14 21:53:12 +00007818 *r++ = '\'';
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007819 if (function)
7820 *r++ = ')';
7821 *r++ = NUL;
7822 }
7823 return s;
7824}
7825
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007826#ifdef FEAT_FLOAT
7827/*
7828 * Convert the string "text" to a floating point number.
7829 * This uses strtod(). setlocale(LC_NUMERIC, "C") has been used to make sure
7830 * this always uses a decimal point.
7831 * Returns the length of the text that was consumed.
7832 */
7833 static int
7834string2float(text, value)
7835 char_u *text;
7836 float_T *value; /* result stored here */
7837{
7838 char *s = (char *)text;
7839 float_T f;
7840
7841 f = strtod(s, &s);
7842 *value = f;
7843 return (int)((char_u *)s - text);
7844}
7845#endif
7846
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007847/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00007848 * Get the value of an environment variable.
7849 * "arg" is pointing to the '$'. It is advanced to after the name.
7850 * If the environment variable was not set, silently assume it is empty.
Bram Moolenaare512c8c2014-04-29 17:41:22 +02007851 * Return FAIL if the name is invalid.
Bram Moolenaar071d4272004-06-13 20:20:40 +00007852 */
7853 static int
Bram Moolenaarc70646c2005-01-04 21:52:38 +00007854get_env_tv(arg, rettv, evaluate)
Bram Moolenaar071d4272004-06-13 20:20:40 +00007855 char_u **arg;
Bram Moolenaar33570922005-01-25 22:26:29 +00007856 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007857 int evaluate;
7858{
7859 char_u *string = NULL;
7860 int len;
7861 int cc;
7862 char_u *name;
Bram Moolenaar05159a02005-02-26 23:04:13 +00007863 int mustfree = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007864
7865 ++*arg;
7866 name = *arg;
7867 len = get_env_len(arg);
7868 if (evaluate)
7869 {
Bram Moolenaare512c8c2014-04-29 17:41:22 +02007870 if (len == 0)
Bram Moolenaar615b9972015-01-14 17:15:05 +01007871 return FAIL; /* invalid empty name */
Bram Moolenaar05159a02005-02-26 23:04:13 +00007872
Bram Moolenaare512c8c2014-04-29 17:41:22 +02007873 cc = name[len];
7874 name[len] = NUL;
7875 /* first try vim_getenv(), fast for normal environment vars */
7876 string = vim_getenv(name, &mustfree);
7877 if (string != NULL && *string != NUL)
7878 {
7879 if (!mustfree)
7880 string = vim_strsave(string);
Bram Moolenaar071d4272004-06-13 20:20:40 +00007881 }
Bram Moolenaare512c8c2014-04-29 17:41:22 +02007882 else
7883 {
7884 if (mustfree)
7885 vim_free(string);
7886
7887 /* next try expanding things like $VIM and ${HOME} */
7888 string = expand_env_save(name - 1);
7889 if (string != NULL && *string == '$')
7890 {
7891 vim_free(string);
7892 string = NULL;
7893 }
7894 }
7895 name[len] = cc;
7896
Bram Moolenaarc70646c2005-01-04 21:52:38 +00007897 rettv->v_type = VAR_STRING;
7898 rettv->vval.v_string = string;
Bram Moolenaar071d4272004-06-13 20:20:40 +00007899 }
7900
7901 return OK;
7902}
7903
7904/*
7905 * Array with names and number of arguments of all internal functions
7906 * MUST BE KEPT SORTED IN strcmp() ORDER FOR BINARY SEARCH!
7907 */
7908static struct fst
7909{
7910 char *f_name; /* function name */
7911 char f_min_argc; /* minimal number of arguments */
7912 char f_max_argc; /* maximal number of arguments */
Bram Moolenaar33570922005-01-25 22:26:29 +00007913 void (*f_func) __ARGS((typval_T *args, typval_T *rvar));
Bram Moolenaarbae0c162007-05-10 19:30:25 +00007914 /* implementation of function */
Bram Moolenaar071d4272004-06-13 20:20:40 +00007915} functions[] =
7916{
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007917#ifdef FEAT_FLOAT
7918 {"abs", 1, 1, f_abs},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007919 {"acos", 1, 1, f_acos}, /* WJMc */
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007920#endif
Bram Moolenaar0d660222005-01-07 21:51:51 +00007921 {"add", 2, 2, f_add},
Bram Moolenaard6e256c2011-12-14 15:32:50 +01007922 {"and", 2, 2, f_and},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007923 {"append", 2, 2, f_append},
7924 {"argc", 0, 0, f_argc},
7925 {"argidx", 0, 0, f_argidx},
Bram Moolenaar2d1fe052014-05-28 18:22:57 +02007926 {"arglistid", 0, 2, f_arglistid},
Bram Moolenaare2f98b92006-03-29 21:18:24 +00007927 {"argv", 0, 1, f_argv},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007928#ifdef FEAT_FLOAT
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007929 {"asin", 1, 1, f_asin}, /* WJMc */
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007930 {"atan", 1, 1, f_atan},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007931 {"atan2", 2, 2, f_atan2},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007932#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007933 {"browse", 4, 4, f_browse},
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00007934 {"browsedir", 2, 2, f_browsedir},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007935 {"bufexists", 1, 1, f_bufexists},
7936 {"buffer_exists", 1, 1, f_bufexists}, /* obsolete */
7937 {"buffer_name", 1, 1, f_bufname}, /* obsolete */
7938 {"buffer_number", 1, 1, f_bufnr}, /* obsolete */
7939 {"buflisted", 1, 1, f_buflisted},
7940 {"bufloaded", 1, 1, f_bufloaded},
7941 {"bufname", 1, 1, f_bufname},
Bram Moolenaar0e34f622006-03-03 23:00:03 +00007942 {"bufnr", 1, 2, f_bufnr},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007943 {"bufwinnr", 1, 1, f_bufwinnr},
7944 {"byte2line", 1, 1, f_byte2line},
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00007945 {"byteidx", 2, 2, f_byteidx},
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +01007946 {"byteidxcomp", 2, 2, f_byteidxcomp},
Bram Moolenaare9a41262005-01-15 22:18:47 +00007947 {"call", 2, 3, f_call},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007948#ifdef FEAT_FLOAT
7949 {"ceil", 1, 1, f_ceil},
7950#endif
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00007951 {"changenr", 0, 0, f_changenr},
Bram Moolenaard35d7842013-01-23 17:17:10 +01007952 {"char2nr", 1, 2, f_char2nr},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007953 {"cindent", 1, 1, f_cindent},
Bram Moolenaar6ee10162007-07-26 20:58:42 +00007954 {"clearmatches", 0, 0, f_clearmatches},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007955 {"col", 1, 1, f_col},
Bram Moolenaar572cb562005-08-05 21:35:02 +00007956#if defined(FEAT_INS_EXPAND)
Bram Moolenaarade00832006-03-10 21:46:58 +00007957 {"complete", 2, 2, f_complete},
Bram Moolenaar572cb562005-08-05 21:35:02 +00007958 {"complete_add", 1, 1, f_complete_add},
7959 {"complete_check", 0, 0, f_complete_check},
7960#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00007961 {"confirm", 1, 4, f_confirm},
Bram Moolenaar49cd9572005-01-03 21:06:01 +00007962 {"copy", 1, 1, f_copy},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007963#ifdef FEAT_FLOAT
7964 {"cos", 1, 1, f_cos},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007965 {"cosh", 1, 1, f_cosh},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007966#endif
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007967 {"count", 2, 4, f_count},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007968 {"cscope_connection",0,3, f_cscope_connection},
Bram Moolenaara5525202006-03-02 22:52:09 +00007969 {"cursor", 1, 3, f_cursor},
Bram Moolenaar81bf7082005-02-12 14:31:42 +00007970 {"deepcopy", 1, 2, f_deepcopy},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007971 {"delete", 1, 1, f_delete},
7972 {"did_filetype", 0, 0, f_did_filetype},
Bram Moolenaar47136d72004-10-12 20:02:24 +00007973 {"diff_filler", 1, 1, f_diff_filler},
7974 {"diff_hlID", 2, 2, f_diff_hlID},
Bram Moolenaare49b69a2005-01-08 16:11:57 +00007975 {"empty", 1, 1, f_empty},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007976 {"escape", 2, 2, f_escape},
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007977 {"eval", 1, 1, f_eval},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007978 {"eventhandler", 0, 0, f_eventhandler},
7979 {"executable", 1, 1, f_executable},
Bram Moolenaarc7f02552014-04-01 21:00:59 +02007980 {"exepath", 1, 1, f_exepath},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007981 {"exists", 1, 1, f_exists},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007982#ifdef FEAT_FLOAT
7983 {"exp", 1, 1, f_exp},
7984#endif
Bram Moolenaar146e9c32012-03-07 19:18:23 +01007985 {"expand", 1, 3, f_expand},
Bram Moolenaar8a283e52005-01-06 23:28:25 +00007986 {"extend", 2, 3, f_extend},
Bram Moolenaarf9393ef2006-04-24 19:47:27 +00007987 {"feedkeys", 1, 2, f_feedkeys},
Bram Moolenaar071d4272004-06-13 20:20:40 +00007988 {"file_readable", 1, 1, f_filereadable}, /* obsolete */
7989 {"filereadable", 1, 1, f_filereadable},
7990 {"filewritable", 1, 1, f_filewritable},
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00007991 {"filter", 2, 2, f_filter},
Bram Moolenaar89cb5e02004-07-19 20:55:54 +00007992 {"finddir", 1, 3, f_finddir},
7993 {"findfile", 1, 3, f_findfile},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007994#ifdef FEAT_FLOAT
7995 {"float2nr", 1, 1, f_float2nr},
7996 {"floor", 1, 1, f_floor},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02007997 {"fmod", 2, 2, f_fmod},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00007998#endif
Bram Moolenaaraebaf892008-05-28 14:49:58 +00007999 {"fnameescape", 1, 1, f_fnameescape},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008000 {"fnamemodify", 2, 2, f_fnamemodify},
8001 {"foldclosed", 1, 1, f_foldclosed},
8002 {"foldclosedend", 1, 1, f_foldclosedend},
8003 {"foldlevel", 1, 1, f_foldlevel},
8004 {"foldtext", 0, 0, f_foldtext},
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00008005 {"foldtextresult", 1, 1, f_foldtextresult},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008006 {"foreground", 0, 0, f_foreground},
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008007 {"function", 1, 1, f_function},
Bram Moolenaar9d2c8c12007-09-25 16:00:00 +00008008 {"garbagecollect", 0, 1, f_garbagecollect},
Bram Moolenaar0d660222005-01-07 21:51:51 +00008009 {"get", 2, 3, f_get},
Bram Moolenaar80fc0432005-07-20 22:06:07 +00008010 {"getbufline", 2, 3, f_getbufline},
Bram Moolenaar63dbda12013-02-20 21:12:10 +01008011 {"getbufvar", 2, 3, f_getbufvar},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008012 {"getchar", 0, 1, f_getchar},
8013 {"getcharmod", 0, 0, f_getcharmod},
8014 {"getcmdline", 0, 0, f_getcmdline},
8015 {"getcmdpos", 0, 0, f_getcmdpos},
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +00008016 {"getcmdtype", 0, 0, f_getcmdtype},
Bram Moolenaar8c1329c2014-08-06 13:36:59 +02008017 {"getcmdwintype", 0, 0, f_getcmdwintype},
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +02008018 {"getcurpos", 0, 0, f_getcurpos},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008019 {"getcwd", 0, 0, f_getcwd},
Bram Moolenaar46c9c732004-12-12 11:37:09 +00008020 {"getfontname", 0, 1, f_getfontname},
Bram Moolenaar5eb86f92004-07-26 12:53:41 +00008021 {"getfperm", 1, 1, f_getfperm},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008022 {"getfsize", 1, 1, f_getfsize},
8023 {"getftime", 1, 1, f_getftime},
Bram Moolenaar5eb86f92004-07-26 12:53:41 +00008024 {"getftype", 1, 1, f_getftype},
Bram Moolenaar0d660222005-01-07 21:51:51 +00008025 {"getline", 1, 2, f_getline},
Bram Moolenaar280f1262006-01-30 00:14:18 +00008026 {"getloclist", 1, 1, f_getqflist},
Bram Moolenaar2240aeb2007-07-27 19:33:14 +00008027 {"getmatches", 0, 0, f_getmatches},
Bram Moolenaar18081e32008-02-20 19:11:07 +00008028 {"getpid", 0, 0, f_getpid},
Bram Moolenaara5525202006-03-02 22:52:09 +00008029 {"getpos", 1, 1, f_getpos},
Bram Moolenaar2641f772005-03-25 21:58:17 +00008030 {"getqflist", 0, 0, f_getqflist},
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +02008031 {"getreg", 0, 3, f_getreg},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008032 {"getregtype", 0, 1, f_getregtype},
Bram Moolenaar63dbda12013-02-20 21:12:10 +01008033 {"gettabvar", 2, 3, f_gettabvar},
8034 {"gettabwinvar", 3, 4, f_gettabwinvar},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008035 {"getwinposx", 0, 0, f_getwinposx},
8036 {"getwinposy", 0, 0, f_getwinposy},
Bram Moolenaar63dbda12013-02-20 21:12:10 +01008037 {"getwinvar", 2, 3, f_getwinvar},
Bram Moolenaar146e9c32012-03-07 19:18:23 +01008038 {"glob", 1, 3, f_glob},
Bram Moolenaar1b1063a2014-05-07 18:35:30 +02008039 {"globpath", 2, 4, f_globpath},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008040 {"has", 1, 1, f_has},
Bram Moolenaare9a41262005-01-15 22:18:47 +00008041 {"has_key", 2, 2, f_has_key},
Bram Moolenaard267b9c2007-04-26 15:06:45 +00008042 {"haslocaldir", 0, 0, f_haslocaldir},
Bram Moolenaar2c932302006-03-18 21:42:09 +00008043 {"hasmapto", 1, 3, f_hasmapto},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008044 {"highlightID", 1, 1, f_hlID}, /* obsolete */
8045 {"highlight_exists",1, 1, f_hlexists}, /* obsolete */
8046 {"histadd", 2, 2, f_histadd},
8047 {"histdel", 1, 2, f_histdel},
8048 {"histget", 1, 2, f_histget},
8049 {"histnr", 1, 1, f_histnr},
8050 {"hlID", 1, 1, f_hlID},
8051 {"hlexists", 1, 1, f_hlexists},
8052 {"hostname", 0, 0, f_hostname},
8053 {"iconv", 3, 3, f_iconv},
8054 {"indent", 1, 1, f_indent},
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00008055 {"index", 2, 4, f_index},
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +00008056 {"input", 1, 3, f_input},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008057 {"inputdialog", 1, 3, f_inputdialog},
Bram Moolenaar6efa2b32005-09-10 19:26:26 +00008058 {"inputlist", 1, 1, f_inputlist},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008059 {"inputrestore", 0, 0, f_inputrestore},
8060 {"inputsave", 0, 0, f_inputsave},
8061 {"inputsecret", 1, 2, f_inputsecret},
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008062 {"insert", 2, 3, f_insert},
Bram Moolenaard6e256c2011-12-14 15:32:50 +01008063 {"invert", 1, 1, f_invert},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008064 {"isdirectory", 1, 1, f_isdirectory},
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00008065 {"islocked", 1, 1, f_islocked},
Bram Moolenaar8c711452005-01-14 21:53:12 +00008066 {"items", 1, 1, f_items},
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00008067 {"join", 1, 2, f_join},
Bram Moolenaar8c711452005-01-14 21:53:12 +00008068 {"keys", 1, 1, f_keys},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008069 {"last_buffer_nr", 0, 0, f_last_buffer_nr},/* obsolete */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008070 {"len", 1, 1, f_len},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008071 {"libcall", 3, 3, f_libcall},
8072 {"libcallnr", 3, 3, f_libcallnr},
8073 {"line", 1, 1, f_line},
8074 {"line2byte", 1, 1, f_line2byte},
8075 {"lispindent", 1, 1, f_lispindent},
8076 {"localtime", 0, 0, f_localtime},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008077#ifdef FEAT_FLOAT
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008078 {"log", 1, 1, f_log},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008079 {"log10", 1, 1, f_log10},
8080#endif
Bram Moolenaar1dced572012-04-05 16:54:08 +02008081#ifdef FEAT_LUA
Bram Moolenaar9feaf622014-02-22 22:18:47 +01008082 {"luaeval", 1, 2, f_luaeval},
Bram Moolenaar1dced572012-04-05 16:54:08 +02008083#endif
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00008084 {"map", 2, 2, f_map},
Bram Moolenaarbd743252010-10-20 21:23:33 +02008085 {"maparg", 1, 4, f_maparg},
Bram Moolenaar2c932302006-03-18 21:42:09 +00008086 {"mapcheck", 1, 3, f_mapcheck},
Bram Moolenaar89cb5e02004-07-19 20:55:54 +00008087 {"match", 2, 4, f_match},
Bram Moolenaar6ee10162007-07-26 20:58:42 +00008088 {"matchadd", 2, 4, f_matchadd},
Bram Moolenaarb3414592014-06-17 17:48:32 +02008089 {"matchaddpos", 2, 4, f_matchaddpos},
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008090 {"matcharg", 1, 1, f_matcharg},
Bram Moolenaar6ee10162007-07-26 20:58:42 +00008091 {"matchdelete", 1, 1, f_matchdelete},
Bram Moolenaar89cb5e02004-07-19 20:55:54 +00008092 {"matchend", 2, 4, f_matchend},
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00008093 {"matchlist", 2, 4, f_matchlist},
Bram Moolenaar89cb5e02004-07-19 20:55:54 +00008094 {"matchstr", 2, 4, f_matchstr},
Bram Moolenaar6cc16192005-01-08 21:49:45 +00008095 {"max", 1, 1, f_max},
8096 {"min", 1, 1, f_min},
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008097#ifdef vim_mkdir
8098 {"mkdir", 1, 3, f_mkdir},
8099#endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008100 {"mode", 0, 1, f_mode},
Bram Moolenaar7e506b62010-01-19 15:55:06 +01008101#ifdef FEAT_MZSCHEME
8102 {"mzeval", 1, 1, f_mzeval},
8103#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008104 {"nextnonblank", 1, 1, f_nextnonblank},
Bram Moolenaard35d7842013-01-23 17:17:10 +01008105 {"nr2char", 1, 2, f_nr2char},
Bram Moolenaard6e256c2011-12-14 15:32:50 +01008106 {"or", 2, 2, f_or},
Bram Moolenaar910f66f2006-04-05 20:41:53 +00008107 {"pathshorten", 1, 1, f_pathshorten},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008108#ifdef FEAT_FLOAT
8109 {"pow", 2, 2, f_pow},
8110#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008111 {"prevnonblank", 1, 1, f_prevnonblank},
Bram Moolenaar4be06f92005-07-29 22:36:03 +00008112 {"printf", 2, 19, f_printf},
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +00008113 {"pumvisible", 0, 0, f_pumvisible},
Bram Moolenaardb913952012-06-29 12:54:53 +02008114#ifdef FEAT_PYTHON3
8115 {"py3eval", 1, 1, f_py3eval},
8116#endif
8117#ifdef FEAT_PYTHON
8118 {"pyeval", 1, 1, f_pyeval},
8119#endif
Bram Moolenaar8c711452005-01-14 21:53:12 +00008120 {"range", 1, 3, f_range},
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008121 {"readfile", 1, 3, f_readfile},
Bram Moolenaare580b0c2006-03-21 21:33:03 +00008122 {"reltime", 0, 2, f_reltime},
8123 {"reltimestr", 1, 1, f_reltimestr},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008124 {"remote_expr", 2, 3, f_remote_expr},
8125 {"remote_foreground", 1, 1, f_remote_foreground},
8126 {"remote_peek", 1, 2, f_remote_peek},
8127 {"remote_read", 1, 1, f_remote_read},
8128 {"remote_send", 2, 3, f_remote_send},
Bram Moolenaar8a283e52005-01-06 23:28:25 +00008129 {"remove", 2, 3, f_remove},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008130 {"rename", 2, 2, f_rename},
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00008131 {"repeat", 2, 2, f_repeat},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008132 {"resolve", 1, 1, f_resolve},
Bram Moolenaar0d660222005-01-07 21:51:51 +00008133 {"reverse", 1, 1, f_reverse},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008134#ifdef FEAT_FLOAT
8135 {"round", 1, 1, f_round},
8136#endif
Bram Moolenaar9a773482013-06-11 18:40:13 +02008137 {"screenattr", 2, 2, f_screenattr},
8138 {"screenchar", 2, 2, f_screenchar},
Bram Moolenaar9750bb12012-12-05 16:10:42 +01008139 {"screencol", 0, 0, f_screencol},
8140 {"screenrow", 0, 0, f_screenrow},
Bram Moolenaar76929292008-01-06 19:07:36 +00008141 {"search", 1, 4, f_search},
Bram Moolenaare6facf92005-09-13 21:22:27 +00008142 {"searchdecl", 1, 3, f_searchdecl},
Bram Moolenaar76929292008-01-06 19:07:36 +00008143 {"searchpair", 3, 7, f_searchpair},
8144 {"searchpairpos", 3, 7, f_searchpairpos},
8145 {"searchpos", 1, 4, f_searchpos},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008146 {"server2client", 2, 2, f_server2client},
8147 {"serverlist", 0, 0, f_serverlist},
8148 {"setbufvar", 3, 3, f_setbufvar},
8149 {"setcmdpos", 1, 1, f_setcmdpos},
8150 {"setline", 2, 2, f_setline},
Bram Moolenaar17c7c012006-01-26 22:25:15 +00008151 {"setloclist", 2, 3, f_setloclist},
Bram Moolenaar6ee10162007-07-26 20:58:42 +00008152 {"setmatches", 1, 1, f_setmatches},
Bram Moolenaar0e34f622006-03-03 23:00:03 +00008153 {"setpos", 2, 2, f_setpos},
Bram Moolenaarf4630b62005-05-20 21:31:17 +00008154 {"setqflist", 1, 2, f_setqflist},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008155 {"setreg", 2, 3, f_setreg},
Bram Moolenaar06b5d512010-05-22 15:37:44 +02008156 {"settabvar", 3, 3, f_settabvar},
Bram Moolenaar99ebf042006-04-15 20:28:54 +00008157 {"settabwinvar", 4, 4, f_settabwinvar},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008158 {"setwinvar", 3, 3, f_setwinvar},
Bram Moolenaaraf9aeb92013-02-13 17:35:04 +01008159#ifdef FEAT_CRYPT
8160 {"sha256", 1, 1, f_sha256},
8161#endif
Bram Moolenaar05bb9532008-07-04 09:44:11 +00008162 {"shellescape", 1, 2, f_shellescape},
Bram Moolenaar2d17fa32012-10-21 00:45:18 +02008163 {"shiftwidth", 0, 0, f_shiftwidth},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008164 {"simplify", 1, 1, f_simplify},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008165#ifdef FEAT_FLOAT
8166 {"sin", 1, 1, f_sin},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008167 {"sinh", 1, 1, f_sinh},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008168#endif
Bram Moolenaar5f894962011-06-19 02:55:37 +02008169 {"sort", 1, 3, f_sort},
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +00008170 {"soundfold", 1, 1, f_soundfold},
Bram Moolenaar4463f292005-09-25 22:20:24 +00008171 {"spellbadword", 0, 1, f_spellbadword},
Bram Moolenaar69e0ff92005-09-30 21:23:56 +00008172 {"spellsuggest", 1, 3, f_spellsuggest},
Bram Moolenaar67fe1a12005-05-22 22:12:58 +00008173 {"split", 1, 3, f_split},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008174#ifdef FEAT_FLOAT
8175 {"sqrt", 1, 1, f_sqrt},
8176 {"str2float", 1, 1, f_str2float},
8177#endif
Bram Moolenaar2c932302006-03-18 21:42:09 +00008178 {"str2nr", 1, 2, f_str2nr},
Bram Moolenaar72597a52010-07-18 15:31:08 +02008179 {"strchars", 1, 1, f_strchars},
Bram Moolenaardc536092010-07-18 15:45:49 +02008180 {"strdisplaywidth", 1, 2, f_strdisplaywidth},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008181#ifdef HAVE_STRFTIME
8182 {"strftime", 1, 2, f_strftime},
8183#endif
Bram Moolenaar33570922005-01-25 22:26:29 +00008184 {"stridx", 2, 3, f_stridx},
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008185 {"string", 1, 1, f_string},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008186 {"strlen", 1, 1, f_strlen},
8187 {"strpart", 2, 3, f_strpart},
Bram Moolenaar532c7802005-01-27 14:44:31 +00008188 {"strridx", 2, 3, f_strridx},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008189 {"strtrans", 1, 1, f_strtrans},
Bram Moolenaar72597a52010-07-18 15:31:08 +02008190 {"strwidth", 1, 1, f_strwidth},
Bram Moolenaar41571762014-04-02 19:00:58 +02008191 {"submatch", 1, 2, f_submatch},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008192 {"substitute", 4, 4, f_substitute},
8193 {"synID", 3, 3, f_synID},
8194 {"synIDattr", 2, 3, f_synIDattr},
8195 {"synIDtrans", 1, 1, f_synIDtrans},
Bram Moolenaar7510fe72010-07-25 12:46:44 +02008196 {"synconcealed", 2, 2, f_synconcealed},
Bram Moolenaar9d188ab2008-01-10 21:24:39 +00008197 {"synstack", 2, 2, f_synstack},
Bram Moolenaarc0197e22004-09-13 20:26:32 +00008198 {"system", 1, 2, f_system},
Bram Moolenaar39c29ed2014-04-05 19:44:40 +02008199 {"systemlist", 1, 2, f_systemlist},
Bram Moolenaarfaa959a2006-02-20 21:37:40 +00008200 {"tabpagebuflist", 0, 1, f_tabpagebuflist},
Bram Moolenaar7e8fd632006-02-18 22:14:51 +00008201 {"tabpagenr", 0, 1, f_tabpagenr},
Bram Moolenaarfaa959a2006-02-20 21:37:40 +00008202 {"tabpagewinnr", 1, 2, f_tabpagewinnr},
Bram Moolenaard43b6cf2005-09-09 19:53:42 +00008203 {"tagfiles", 0, 0, f_tagfiles},
Bram Moolenaar19a09a12005-03-04 23:39:37 +00008204 {"taglist", 1, 1, f_taglist},
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008205#ifdef FEAT_FLOAT
8206 {"tan", 1, 1, f_tan},
8207 {"tanh", 1, 1, f_tanh},
8208#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008209 {"tempname", 0, 0, f_tempname},
Bram Moolenaard52d9742005-08-21 22:20:28 +00008210 {"test", 1, 1, f_test},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008211 {"tolower", 1, 1, f_tolower},
8212 {"toupper", 1, 1, f_toupper},
Bram Moolenaar8299df92004-07-10 09:47:34 +00008213 {"tr", 3, 3, f_tr},
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008214#ifdef FEAT_FLOAT
8215 {"trunc", 1, 1, f_trunc},
8216#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00008217 {"type", 1, 1, f_type},
Bram Moolenaara17d4c12010-05-30 18:30:36 +02008218 {"undofile", 1, 1, f_undofile},
Bram Moolenaara800b422010-06-27 01:15:55 +02008219 {"undotree", 0, 0, f_undotree},
Bram Moolenaar327aa022014-03-25 18:24:23 +01008220 {"uniq", 1, 3, f_uniq},
Bram Moolenaar8c711452005-01-14 21:53:12 +00008221 {"values", 1, 1, f_values},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008222 {"virtcol", 1, 1, f_virtcol},
8223 {"visualmode", 0, 1, f_visualmode},
Bram Moolenaar8738fc12013-02-20 17:59:11 +01008224 {"wildmenumode", 0, 0, f_wildmenumode},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008225 {"winbufnr", 1, 1, f_winbufnr},
8226 {"wincol", 0, 0, f_wincol},
8227 {"winheight", 1, 1, f_winheight},
8228 {"winline", 0, 0, f_winline},
Bram Moolenaar5eb86f92004-07-26 12:53:41 +00008229 {"winnr", 0, 1, f_winnr},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008230 {"winrestcmd", 0, 0, f_winrestcmd},
Bram Moolenaar768b8c42006-03-04 21:58:33 +00008231 {"winrestview", 1, 1, f_winrestview},
8232 {"winsaveview", 0, 0, f_winsaveview},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008233 {"winwidth", 1, 1, f_winwidth},
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +00008234 {"writefile", 2, 3, f_writefile},
Bram Moolenaard6e256c2011-12-14 15:32:50 +01008235 {"xor", 2, 2, f_xor},
Bram Moolenaar071d4272004-06-13 20:20:40 +00008236};
8237
8238#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
8239
8240/*
8241 * Function given to ExpandGeneric() to obtain the list of internal
8242 * or user defined function names.
8243 */
8244 char_u *
8245get_function_name(xp, idx)
8246 expand_T *xp;
8247 int idx;
8248{
8249 static int intidx = -1;
8250 char_u *name;
8251
8252 if (idx == 0)
8253 intidx = -1;
8254 if (intidx < 0)
8255 {
8256 name = get_user_func_name(xp, idx);
8257 if (name != NULL)
8258 return name;
8259 }
8260 if (++intidx < (int)(sizeof(functions) / sizeof(struct fst)))
8261 {
8262 STRCPY(IObuff, functions[intidx].f_name);
8263 STRCAT(IObuff, "(");
8264 if (functions[intidx].f_max_argc == 0)
8265 STRCAT(IObuff, ")");
8266 return IObuff;
8267 }
8268
8269 return NULL;
8270}
8271
8272/*
8273 * Function given to ExpandGeneric() to obtain the list of internal or
8274 * user defined variable or function names.
8275 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008276 char_u *
8277get_expr_name(xp, idx)
8278 expand_T *xp;
8279 int idx;
8280{
8281 static int intidx = -1;
8282 char_u *name;
8283
8284 if (idx == 0)
8285 intidx = -1;
8286 if (intidx < 0)
8287 {
8288 name = get_function_name(xp, idx);
8289 if (name != NULL)
8290 return name;
8291 }
8292 return get_user_var_name(xp, ++intidx);
8293}
8294
8295#endif /* FEAT_CMDL_COMPL */
8296
Bram Moolenaar2c704a72010-06-03 21:17:25 +02008297#if defined(EBCDIC) || defined(PROTO)
8298/*
8299 * Compare struct fst by function name.
8300 */
8301 static int
8302compare_func_name(s1, s2)
8303 const void *s1;
8304 const void *s2;
8305{
8306 struct fst *p1 = (struct fst *)s1;
8307 struct fst *p2 = (struct fst *)s2;
8308
8309 return STRCMP(p1->f_name, p2->f_name);
8310}
8311
8312/*
8313 * Sort the function table by function name.
8314 * The sorting of the table above is ASCII dependant.
8315 * On machines using EBCDIC we have to sort it.
8316 */
8317 static void
8318sortFunctions()
8319{
8320 int funcCnt = (int)(sizeof(functions) / sizeof(struct fst)) - 1;
8321
8322 qsort(functions, (size_t)funcCnt, sizeof(struct fst), compare_func_name);
8323}
8324#endif
8325
8326
Bram Moolenaar071d4272004-06-13 20:20:40 +00008327/*
8328 * Find internal function in table above.
8329 * Return index, or -1 if not found
8330 */
8331 static int
8332find_internal_func(name)
8333 char_u *name; /* name of the function */
8334{
8335 int first = 0;
8336 int last = (int)(sizeof(functions) / sizeof(struct fst)) - 1;
8337 int cmp;
8338 int x;
8339
8340 /*
8341 * Find the function name in the table. Binary search.
8342 */
8343 while (first <= last)
8344 {
8345 x = first + ((unsigned)(last - first) >> 1);
8346 cmp = STRCMP(name, functions[x].f_name);
8347 if (cmp < 0)
8348 last = x - 1;
8349 else if (cmp > 0)
8350 first = x + 1;
8351 else
8352 return x;
8353 }
8354 return -1;
8355}
8356
8357/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008358 * Check if "name" is a variable of type VAR_FUNC. If so, return the function
8359 * name it contains, otherwise return "name".
8360 */
8361 static char_u *
Bram Moolenaar8822a9c2014-01-14 19:44:34 +01008362deref_func_name(name, lenp, no_autoload)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008363 char_u *name;
8364 int *lenp;
Bram Moolenaar8822a9c2014-01-14 19:44:34 +01008365 int no_autoload;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008366{
Bram Moolenaar33570922005-01-25 22:26:29 +00008367 dictitem_T *v;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008368 int cc;
8369
8370 cc = name[*lenp];
8371 name[*lenp] = NUL;
Bram Moolenaar8822a9c2014-01-14 19:44:34 +01008372 v = find_var(name, NULL, no_autoload);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008373 name[*lenp] = cc;
Bram Moolenaar33570922005-01-25 22:26:29 +00008374 if (v != NULL && v->di_tv.v_type == VAR_FUNC)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008375 {
Bram Moolenaar33570922005-01-25 22:26:29 +00008376 if (v->di_tv.vval.v_string == NULL)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008377 {
8378 *lenp = 0;
8379 return (char_u *)""; /* just in case */
8380 }
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00008381 *lenp = (int)STRLEN(v->di_tv.vval.v_string);
Bram Moolenaar33570922005-01-25 22:26:29 +00008382 return v->di_tv.vval.v_string;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008383 }
8384
8385 return name;
8386}
8387
8388/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00008389 * Allocate a variable for the result of a function.
8390 * Return OK or FAIL.
8391 */
8392 static int
Bram Moolenaare9a41262005-01-15 22:18:47 +00008393get_func_tv(name, len, rettv, arg, firstline, lastline, doesrange,
8394 evaluate, selfdict)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008395 char_u *name; /* name of the function */
8396 int len; /* length of "name" */
Bram Moolenaar33570922005-01-25 22:26:29 +00008397 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008398 char_u **arg; /* argument, pointing to the '(' */
8399 linenr_T firstline; /* first line of range */
8400 linenr_T lastline; /* last line of range */
8401 int *doesrange; /* return: function handled range */
8402 int evaluate;
Bram Moolenaar33570922005-01-25 22:26:29 +00008403 dict_T *selfdict; /* Dictionary for "self" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008404{
8405 char_u *argp;
8406 int ret = OK;
Bram Moolenaareb3593b2006-04-22 22:33:57 +00008407 typval_T argvars[MAX_FUNC_ARGS + 1]; /* vars for arguments */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008408 int argcount = 0; /* number of arguments found */
8409
8410 /*
8411 * Get the arguments.
8412 */
8413 argp = *arg;
8414 while (argcount < MAX_FUNC_ARGS)
8415 {
8416 argp = skipwhite(argp + 1); /* skip the '(' or ',' */
8417 if (*argp == ')' || *argp == ',' || *argp == NUL)
8418 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008419 if (eval1(&argp, &argvars[argcount], evaluate) == FAIL)
8420 {
8421 ret = FAIL;
8422 break;
8423 }
8424 ++argcount;
8425 if (*argp != ',')
8426 break;
8427 }
8428 if (*argp == ')')
8429 ++argp;
8430 else
8431 ret = FAIL;
8432
8433 if (ret == OK)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008434 ret = call_func(name, len, rettv, argcount, argvars,
Bram Moolenaare9a41262005-01-15 22:18:47 +00008435 firstline, lastline, doesrange, evaluate, selfdict);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008436 else if (!aborting())
Bram Moolenaar33570922005-01-25 22:26:29 +00008437 {
8438 if (argcount == MAX_FUNC_ARGS)
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +00008439 emsg_funcname(N_("E740: Too many arguments for function %s"), name);
Bram Moolenaar33570922005-01-25 22:26:29 +00008440 else
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +00008441 emsg_funcname(N_("E116: Invalid arguments for function %s"), name);
Bram Moolenaar33570922005-01-25 22:26:29 +00008442 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00008443
8444 while (--argcount >= 0)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008445 clear_tv(&argvars[argcount]);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008446
8447 *arg = skipwhite(argp);
8448 return ret;
8449}
8450
8451
8452/*
8453 * Call a function with its resolved parameters
Bram Moolenaar9bb77d62013-05-30 12:14:49 +02008454 * Return FAIL when the function can't be called, OK otherwise.
Bram Moolenaar280f1262006-01-30 00:14:18 +00008455 * Also returns OK when an error was encountered while executing the function.
Bram Moolenaar071d4272004-06-13 20:20:40 +00008456 */
8457 static int
Bram Moolenaarf506c5b2010-06-22 06:28:58 +02008458call_func(funcname, len, rettv, argcount, argvars, firstline, lastline,
Bram Moolenaare9a41262005-01-15 22:18:47 +00008459 doesrange, evaluate, selfdict)
Bram Moolenaarf506c5b2010-06-22 06:28:58 +02008460 char_u *funcname; /* name of the function */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008461 int len; /* length of "name" */
Bram Moolenaar33570922005-01-25 22:26:29 +00008462 typval_T *rettv; /* return value goes here */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008463 int argcount; /* number of "argvars" */
Bram Moolenaareb3593b2006-04-22 22:33:57 +00008464 typval_T *argvars; /* vars for arguments, must have "argcount"
8465 PLUS ONE elements! */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008466 linenr_T firstline; /* first line of range */
8467 linenr_T lastline; /* last line of range */
8468 int *doesrange; /* return: function handled range */
8469 int evaluate;
Bram Moolenaar33570922005-01-25 22:26:29 +00008470 dict_T *selfdict; /* Dictionary for "self" */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008471{
8472 int ret = FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008473#define ERROR_UNKNOWN 0
8474#define ERROR_TOOMANY 1
8475#define ERROR_TOOFEW 2
8476#define ERROR_SCRIPT 3
Bram Moolenaare9a41262005-01-15 22:18:47 +00008477#define ERROR_DICT 4
8478#define ERROR_NONE 5
8479#define ERROR_OTHER 6
Bram Moolenaar071d4272004-06-13 20:20:40 +00008480 int error = ERROR_NONE;
8481 int i;
8482 int llen;
8483 ufunc_T *fp;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008484#define FLEN_FIXED 40
8485 char_u fname_buf[FLEN_FIXED + 1];
8486 char_u *fname;
Bram Moolenaarbc42c1e2010-05-28 22:06:46 +02008487 char_u *name;
8488
8489 /* Make a copy of the name, if it comes from a funcref variable it could
8490 * be changed or deleted in the called function. */
Bram Moolenaarf506c5b2010-06-22 06:28:58 +02008491 name = vim_strnsave(funcname, len);
Bram Moolenaarbc42c1e2010-05-28 22:06:46 +02008492 if (name == NULL)
8493 return ret;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008494
8495 /*
8496 * In a script change <SID>name() and s:name() to K_SNR 123_name().
8497 * Change <SNR>123_name() to K_SNR 123_name().
8498 * Use fname_buf[] when it fits, otherwise allocate memory (slow).
8499 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008500 llen = eval_fname_script(name);
8501 if (llen > 0)
8502 {
8503 fname_buf[0] = K_SPECIAL;
8504 fname_buf[1] = KS_EXTRA;
8505 fname_buf[2] = (int)KE_SNR;
8506 i = 3;
8507 if (eval_fname_sid(name)) /* "<SID>" or "s:" */
8508 {
8509 if (current_SID <= 0)
8510 error = ERROR_SCRIPT;
8511 else
8512 {
8513 sprintf((char *)fname_buf + 3, "%ld_", (long)current_SID);
8514 i = (int)STRLEN(fname_buf);
8515 }
8516 }
8517 if (i + STRLEN(name + llen) < FLEN_FIXED)
8518 {
8519 STRCPY(fname_buf + i, name + llen);
8520 fname = fname_buf;
8521 }
8522 else
8523 {
8524 fname = alloc((unsigned)(i + STRLEN(name + llen) + 1));
8525 if (fname == NULL)
8526 error = ERROR_OTHER;
8527 else
8528 {
8529 mch_memmove(fname, fname_buf, (size_t)i);
8530 STRCPY(fname + i, name + llen);
8531 }
8532 }
8533 }
8534 else
8535 fname = name;
8536
8537 *doesrange = FALSE;
8538
8539
8540 /* execute the function if no errors detected and executing */
8541 if (evaluate && error == ERROR_NONE)
8542 {
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008543 char_u *rfname = fname;
8544
8545 /* Ignore "g:" before a function name. */
8546 if (fname[0] == 'g' && fname[1] == ':')
8547 rfname = fname + 2;
8548
Bram Moolenaar798b30b2009-04-22 10:56:16 +00008549 rettv->v_type = VAR_NUMBER; /* default rettv is number zero */
8550 rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008551 error = ERROR_UNKNOWN;
8552
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008553 if (!builtin_function(rfname, -1))
Bram Moolenaar071d4272004-06-13 20:20:40 +00008554 {
8555 /*
8556 * User defined function.
8557 */
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008558 fp = find_func(rfname);
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008559
Bram Moolenaar071d4272004-06-13 20:20:40 +00008560#ifdef FEAT_AUTOCMD
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008561 /* Trigger FuncUndefined event, may load the function. */
8562 if (fp == NULL
8563 && apply_autocmds(EVENT_FUNCUNDEFINED,
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008564 rfname, rfname, TRUE, NULL)
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008565 && !aborting())
Bram Moolenaar071d4272004-06-13 20:20:40 +00008566 {
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008567 /* executed an autocommand, search for the function again */
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008568 fp = find_func(rfname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008569 }
8570#endif
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008571 /* Try loading a package. */
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008572 if (fp == NULL && script_autoload(rfname, TRUE) && !aborting())
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008573 {
8574 /* loaded a package, search for the function again */
Bram Moolenaara4f317d2014-04-24 17:12:33 +02008575 fp = find_func(rfname);
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +00008576 }
8577
Bram Moolenaar071d4272004-06-13 20:20:40 +00008578 if (fp != NULL)
8579 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008580 if (fp->uf_flags & FC_RANGE)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008581 *doesrange = TRUE;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008582 if (argcount < fp->uf_args.ga_len)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008583 error = ERROR_TOOFEW;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008584 else if (!fp->uf_varargs && argcount > fp->uf_args.ga_len)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008585 error = ERROR_TOOMANY;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008586 else if ((fp->uf_flags & FC_DICT) && selfdict == NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +00008587 error = ERROR_DICT;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008588 else
8589 {
8590 /*
8591 * Call the user function.
8592 * Save and restore search patterns, script variables and
8593 * redo buffer.
8594 */
8595 save_search_patterns();
8596 saveRedobuff();
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008597 ++fp->uf_calls;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008598 call_user_func(fp, argcount, argvars, rettv,
Bram Moolenaare9a41262005-01-15 22:18:47 +00008599 firstline, lastline,
Bram Moolenaar5313dcb2005-02-22 08:56:13 +00008600 (fp->uf_flags & FC_DICT) ? selfdict : NULL);
8601 if (--fp->uf_calls <= 0 && isdigit(*fp->uf_name)
8602 && fp->uf_refcount <= 0)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +00008603 /* Function was unreferenced while being used, free it
8604 * now. */
8605 func_free(fp);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008606 restoreRedobuff();
8607 restore_search_patterns();
8608 error = ERROR_NONE;
8609 }
8610 }
8611 }
8612 else
8613 {
8614 /*
8615 * Find the function name in the table, call its implementation.
8616 */
8617 i = find_internal_func(fname);
8618 if (i >= 0)
8619 {
8620 if (argcount < functions[i].f_min_argc)
8621 error = ERROR_TOOFEW;
8622 else if (argcount > functions[i].f_max_argc)
8623 error = ERROR_TOOMANY;
8624 else
8625 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008626 argvars[argcount].v_type = VAR_UNKNOWN;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008627 functions[i].f_func(argvars, rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008628 error = ERROR_NONE;
8629 }
8630 }
8631 }
8632 /*
8633 * The function call (or "FuncUndefined" autocommand sequence) might
8634 * have been aborted by an error, an interrupt, or an explicitly thrown
8635 * exception that has not been caught so far. This situation can be
8636 * tested for by calling aborting(). For an error in an internal
8637 * function or for the "E132" error in call_user_func(), however, the
8638 * throw point at which the "force_abort" flag (temporarily reset by
8639 * emsg()) is normally updated has not been reached yet. We need to
8640 * update that flag first to make aborting() reliable.
8641 */
8642 update_force_abort();
8643 }
8644 if (error == ERROR_NONE)
8645 ret = OK;
8646
8647 /*
8648 * Report an error unless the argument evaluation or function call has been
8649 * cancelled due to an aborting error, an interrupt, or an exception.
8650 */
Bram Moolenaar8c711452005-01-14 21:53:12 +00008651 if (!aborting())
8652 {
8653 switch (error)
8654 {
8655 case ERROR_UNKNOWN:
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00008656 emsg_funcname(N_("E117: Unknown function: %s"), name);
Bram Moolenaar8c711452005-01-14 21:53:12 +00008657 break;
8658 case ERROR_TOOMANY:
Bram Moolenaar81bf7082005-02-12 14:31:42 +00008659 emsg_funcname(e_toomanyarg, name);
Bram Moolenaar8c711452005-01-14 21:53:12 +00008660 break;
8661 case ERROR_TOOFEW:
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00008662 emsg_funcname(N_("E119: Not enough arguments for function: %s"),
Bram Moolenaar8c711452005-01-14 21:53:12 +00008663 name);
8664 break;
8665 case ERROR_SCRIPT:
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00008666 emsg_funcname(N_("E120: Using <SID> not in a script context: %s"),
Bram Moolenaar8c711452005-01-14 21:53:12 +00008667 name);
8668 break;
Bram Moolenaare9a41262005-01-15 22:18:47 +00008669 case ERROR_DICT:
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00008670 emsg_funcname(N_("E725: Calling dict function without Dictionary: %s"),
Bram Moolenaare9a41262005-01-15 22:18:47 +00008671 name);
8672 break;
Bram Moolenaar8c711452005-01-14 21:53:12 +00008673 }
8674 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00008675
Bram Moolenaar071d4272004-06-13 20:20:40 +00008676 if (fname != name && fname != fname_buf)
8677 vim_free(fname);
Bram Moolenaarbc42c1e2010-05-28 22:06:46 +02008678 vim_free(name);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008679
8680 return ret;
8681}
8682
Bram Moolenaar81bf7082005-02-12 14:31:42 +00008683/*
8684 * Give an error message with a function name. Handle <SNR> things.
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +00008685 * "ermsg" is to be passed without translation, use N_() instead of _().
Bram Moolenaar81bf7082005-02-12 14:31:42 +00008686 */
8687 static void
Bram Moolenaar89d40322006-08-29 15:30:07 +00008688emsg_funcname(ermsg, name)
8689 char *ermsg;
Bram Moolenaar81bf7082005-02-12 14:31:42 +00008690 char_u *name;
8691{
8692 char_u *p;
8693
8694 if (*name == K_SPECIAL)
8695 p = concat_str((char_u *)"<SNR>", name + 3);
8696 else
8697 p = name;
Bram Moolenaar89d40322006-08-29 15:30:07 +00008698 EMSG2(_(ermsg), p);
Bram Moolenaar81bf7082005-02-12 14:31:42 +00008699 if (p != name)
8700 vim_free(p);
8701}
8702
Bram Moolenaar05bb9532008-07-04 09:44:11 +00008703/*
8704 * Return TRUE for a non-zero Number and a non-empty String.
8705 */
8706 static int
8707non_zero_arg(argvars)
8708 typval_T *argvars;
8709{
8710 return ((argvars[0].v_type == VAR_NUMBER
8711 && argvars[0].vval.v_number != 0)
8712 || (argvars[0].v_type == VAR_STRING
8713 && argvars[0].vval.v_string != NULL
8714 && *argvars[0].vval.v_string != NUL));
8715}
8716
Bram Moolenaar071d4272004-06-13 20:20:40 +00008717/*********************************************
8718 * Implementation of the built-in functions
8719 */
8720
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008721#ifdef FEAT_FLOAT
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008722static int get_float_arg __ARGS((typval_T *argvars, float_T *f));
8723
8724/*
8725 * Get the float value of "argvars[0]" into "f".
8726 * Returns FAIL when the argument is not a Number or Float.
8727 */
8728 static int
8729get_float_arg(argvars, f)
8730 typval_T *argvars;
8731 float_T *f;
8732{
8733 if (argvars[0].v_type == VAR_FLOAT)
8734 {
8735 *f = argvars[0].vval.v_float;
8736 return OK;
8737 }
8738 if (argvars[0].v_type == VAR_NUMBER)
8739 {
8740 *f = (float_T)argvars[0].vval.v_number;
8741 return OK;
8742 }
8743 EMSG(_("E808: Number or Float required"));
8744 return FAIL;
8745}
8746
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008747/*
8748 * "abs(expr)" function
8749 */
8750 static void
8751f_abs(argvars, rettv)
8752 typval_T *argvars;
8753 typval_T *rettv;
8754{
8755 if (argvars[0].v_type == VAR_FLOAT)
8756 {
8757 rettv->v_type = VAR_FLOAT;
8758 rettv->vval.v_float = fabs(argvars[0].vval.v_float);
8759 }
8760 else
8761 {
8762 varnumber_T n;
8763 int error = FALSE;
8764
8765 n = get_tv_number_chk(&argvars[0], &error);
8766 if (error)
8767 rettv->vval.v_number = -1;
8768 else if (n > 0)
8769 rettv->vval.v_number = n;
8770 else
8771 rettv->vval.v_number = -n;
8772 }
8773}
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008774
8775/*
8776 * "acos()" function
8777 */
8778 static void
8779f_acos(argvars, rettv)
8780 typval_T *argvars;
8781 typval_T *rettv;
8782{
8783 float_T f;
8784
8785 rettv->v_type = VAR_FLOAT;
8786 if (get_float_arg(argvars, &f) == OK)
8787 rettv->vval.v_float = acos(f);
8788 else
8789 rettv->vval.v_float = 0.0;
8790}
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008791#endif
8792
Bram Moolenaar071d4272004-06-13 20:20:40 +00008793/*
Bram Moolenaar0d660222005-01-07 21:51:51 +00008794 * "add(list, item)" function
Bram Moolenaar071d4272004-06-13 20:20:40 +00008795 */
8796 static void
Bram Moolenaar0d660222005-01-07 21:51:51 +00008797f_add(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00008798 typval_T *argvars;
8799 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008800{
Bram Moolenaar33570922005-01-25 22:26:29 +00008801 list_T *l;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008802
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008803 rettv->vval.v_number = 1; /* Default: Failed */
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008804 if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar071d4272004-06-13 20:20:40 +00008805 {
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00008806 if ((l = argvars[0].vval.v_list) != NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +02008807 && !tv_check_lock(l->lv_lock, (char_u *)_("add() argument"))
Bram Moolenaar2e6aff32005-01-31 19:25:36 +00008808 && list_append_tv(l, &argvars[1]) == OK)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008809 copy_tv(&argvars[0], rettv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008810 }
8811 else
Bram Moolenaar0d660222005-01-07 21:51:51 +00008812 EMSG(_(e_listreq));
8813}
8814
8815/*
Bram Moolenaard6e256c2011-12-14 15:32:50 +01008816 * "and(expr, expr)" function
8817 */
8818 static void
8819f_and(argvars, rettv)
8820 typval_T *argvars;
8821 typval_T *rettv;
8822{
8823 rettv->vval.v_number = get_tv_number_chk(&argvars[0], NULL)
8824 & get_tv_number_chk(&argvars[1], NULL);
8825}
8826
8827/*
Bram Moolenaar0d660222005-01-07 21:51:51 +00008828 * "append(lnum, string/list)" function
8829 */
8830 static void
8831f_append(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00008832 typval_T *argvars;
8833 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +00008834{
8835 long lnum;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008836 char_u *line;
Bram Moolenaar33570922005-01-25 22:26:29 +00008837 list_T *l = NULL;
8838 listitem_T *li = NULL;
8839 typval_T *tv;
Bram Moolenaar0d660222005-01-07 21:51:51 +00008840 long added = 0;
8841
Bram Moolenaar3c1e9c22013-07-04 20:25:41 +02008842 /* When coming here from Insert mode, sync undo, so that this can be
8843 * undone separately from what was previously inserted. */
8844 if (u_sync_once == 2)
8845 {
8846 u_sync_once = 1; /* notify that u_sync() was called */
8847 u_sync(TRUE);
8848 }
8849
Bram Moolenaar0d660222005-01-07 21:51:51 +00008850 lnum = get_tv_lnum(argvars);
8851 if (lnum >= 0
8852 && lnum <= curbuf->b_ml.ml_line_count
8853 && u_save(lnum, lnum + 1) == OK)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008854 {
Bram Moolenaar0d660222005-01-07 21:51:51 +00008855 if (argvars[1].v_type == VAR_LIST)
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008856 {
Bram Moolenaar0d660222005-01-07 21:51:51 +00008857 l = argvars[1].vval.v_list;
8858 if (l == NULL)
8859 return;
8860 li = l->lv_first;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00008861 }
Bram Moolenaar0d660222005-01-07 21:51:51 +00008862 for (;;)
8863 {
8864 if (l == NULL)
8865 tv = &argvars[1]; /* append a string */
8866 else if (li == NULL)
8867 break; /* end of list */
8868 else
8869 tv = &li->li_tv; /* append item from list */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008870 line = get_tv_string_chk(tv);
8871 if (line == NULL) /* type error */
8872 {
8873 rettv->vval.v_number = 1; /* Failed */
8874 break;
8875 }
8876 ml_append(lnum + added, line, (colnr_T)0, FALSE);
Bram Moolenaar0d660222005-01-07 21:51:51 +00008877 ++added;
8878 if (l == NULL)
8879 break;
8880 li = li->li_next;
8881 }
8882
8883 appended_lines_mark(lnum, added);
8884 if (curwin->w_cursor.lnum > lnum)
8885 curwin->w_cursor.lnum += added;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008886 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00008887 else
8888 rettv->vval.v_number = 1; /* Failed */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008889}
8890
8891/*
8892 * "argc()" function
8893 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008894 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008895f_argc(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00008896 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00008897 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008898{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008899 rettv->vval.v_number = ARGCOUNT;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008900}
8901
8902/*
8903 * "argidx()" function
8904 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00008905 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008906f_argidx(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00008907 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00008908 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008909{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008910 rettv->vval.v_number = curwin->w_arg_idx;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008911}
8912
8913/*
Bram Moolenaar2d1fe052014-05-28 18:22:57 +02008914 * "arglistid()" function
8915 */
8916 static void
8917f_arglistid(argvars, rettv)
8918 typval_T *argvars UNUSED;
8919 typval_T *rettv;
8920{
8921 win_T *wp;
8922 tabpage_T *tp = NULL;
8923 long n;
8924
8925 rettv->vval.v_number = -1;
8926 if (argvars[0].v_type != VAR_UNKNOWN)
8927 {
8928 if (argvars[1].v_type != VAR_UNKNOWN)
8929 {
8930 n = get_tv_number(&argvars[1]);
8931 if (n >= 0)
8932 tp = find_tabpage(n);
8933 }
8934 else
8935 tp = curtab;
8936
8937 if (tp != NULL)
8938 {
8939 wp = find_win_by_nr(&argvars[0], tp);
8940 if (wp != NULL)
8941 rettv->vval.v_number = wp->w_alist->id;
8942 }
8943 }
8944 else
8945 rettv->vval.v_number = curwin->w_alist->id;
8946}
8947
8948/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00008949 * "argv(nr)" function
8950 */
8951 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00008952f_argv(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00008953 typval_T *argvars;
8954 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00008955{
8956 int idx;
8957
Bram Moolenaare2f98b92006-03-29 21:18:24 +00008958 if (argvars[0].v_type != VAR_UNKNOWN)
8959 {
8960 idx = get_tv_number_chk(&argvars[0], NULL);
8961 if (idx >= 0 && idx < ARGCOUNT)
8962 rettv->vval.v_string = vim_strsave(alist_name(&ARGLIST[idx]));
8963 else
8964 rettv->vval.v_string = NULL;
8965 rettv->v_type = VAR_STRING;
8966 }
8967 else if (rettv_list_alloc(rettv) == OK)
8968 for (idx = 0; idx < ARGCOUNT; ++idx)
8969 list_append_string(rettv->vval.v_list,
8970 alist_name(&ARGLIST[idx]), -1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00008971}
8972
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008973#ifdef FEAT_FLOAT
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008974/*
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008975 * "asin()" function
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008976 */
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008977 static void
8978f_asin(argvars, rettv)
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008979 typval_T *argvars;
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008980 typval_T *rettv;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008981{
Bram Moolenaardb7c6862010-05-21 16:33:48 +02008982 float_T f;
8983
8984 rettv->v_type = VAR_FLOAT;
8985 if (get_float_arg(argvars, &f) == OK)
8986 rettv->vval.v_float = asin(f);
8987 else
8988 rettv->vval.v_float = 0.0;
Bram Moolenaar8c8de832008-06-24 22:58:06 +00008989}
8990
8991/*
8992 * "atan()" function
8993 */
8994 static void
8995f_atan(argvars, rettv)
8996 typval_T *argvars;
8997 typval_T *rettv;
8998{
8999 float_T f;
9000
9001 rettv->v_type = VAR_FLOAT;
9002 if (get_float_arg(argvars, &f) == OK)
9003 rettv->vval.v_float = atan(f);
9004 else
9005 rettv->vval.v_float = 0.0;
9006}
Bram Moolenaardb7c6862010-05-21 16:33:48 +02009007
9008/*
9009 * "atan2()" function
9010 */
9011 static void
9012f_atan2(argvars, rettv)
9013 typval_T *argvars;
9014 typval_T *rettv;
9015{
9016 float_T fx, fy;
9017
9018 rettv->v_type = VAR_FLOAT;
9019 if (get_float_arg(argvars, &fx) == OK
9020 && get_float_arg(&argvars[1], &fy) == OK)
9021 rettv->vval.v_float = atan2(fx, fy);
9022 else
9023 rettv->vval.v_float = 0.0;
9024}
Bram Moolenaar8c8de832008-06-24 22:58:06 +00009025#endif
9026
Bram Moolenaar071d4272004-06-13 20:20:40 +00009027/*
9028 * "browse(save, title, initdir, default)" function
9029 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009030 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009031f_browse(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00009032 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00009033 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009034{
9035#ifdef FEAT_BROWSE
9036 int save;
9037 char_u *title;
9038 char_u *initdir;
9039 char_u *defname;
9040 char_u buf[NUMBUFLEN];
9041 char_u buf2[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009042 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009043
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009044 save = get_tv_number_chk(&argvars[0], &error);
9045 title = get_tv_string_chk(&argvars[1]);
9046 initdir = get_tv_string_buf_chk(&argvars[2], buf);
9047 defname = get_tv_string_buf_chk(&argvars[3], buf2);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009048
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009049 if (error || title == NULL || initdir == NULL || defname == NULL)
9050 rettv->vval.v_string = NULL;
9051 else
9052 rettv->vval.v_string =
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009053 do_browse(save ? BROWSE_SAVE : 0,
9054 title, defname, NULL, initdir, NULL, curbuf);
9055#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009056 rettv->vval.v_string = NULL;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009057#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009058 rettv->v_type = VAR_STRING;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009059}
9060
9061/*
9062 * "browsedir(title, initdir)" function
9063 */
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009064 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009065f_browsedir(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00009066 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00009067 typval_T *rettv;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009068{
9069#ifdef FEAT_BROWSE
9070 char_u *title;
9071 char_u *initdir;
9072 char_u buf[NUMBUFLEN];
9073
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009074 title = get_tv_string_chk(&argvars[0]);
9075 initdir = get_tv_string_buf_chk(&argvars[1], buf);
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009076
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009077 if (title == NULL || initdir == NULL)
9078 rettv->vval.v_string = NULL;
9079 else
9080 rettv->vval.v_string = do_browse(BROWSE_DIR,
Bram Moolenaar7b0294c2004-10-11 10:16:09 +00009081 title, NULL, NULL, initdir, NULL, curbuf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009082#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009083 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009084#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009085 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009086}
9087
Bram Moolenaar33570922005-01-25 22:26:29 +00009088static buf_T *find_buffer __ARGS((typval_T *avar));
Bram Moolenaar0d660222005-01-07 21:51:51 +00009089
Bram Moolenaar071d4272004-06-13 20:20:40 +00009090/*
9091 * Find a buffer by number or exact name.
9092 */
9093 static buf_T *
9094find_buffer(avar)
Bram Moolenaar33570922005-01-25 22:26:29 +00009095 typval_T *avar;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009096{
9097 buf_T *buf = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009098
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009099 if (avar->v_type == VAR_NUMBER)
9100 buf = buflist_findnr((int)avar->vval.v_number);
Bram Moolenaar758711c2005-02-02 23:11:38 +00009101 else if (avar->v_type == VAR_STRING && avar->vval.v_string != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009102 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009103 buf = buflist_findname_exp(avar->vval.v_string);
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00009104 if (buf == NULL)
9105 {
9106 /* No full path name match, try a match with a URL or a "nofile"
9107 * buffer, these don't use the full path. */
9108 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
9109 if (buf->b_fname != NULL
9110 && (path_with_url(buf->b_fname)
9111#ifdef FEAT_QUICKFIX
9112 || bt_nofile(buf)
9113#endif
9114 )
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009115 && STRCMP(buf->b_fname, avar->vval.v_string) == 0)
Bram Moolenaar69a7cb42004-06-20 12:51:53 +00009116 break;
9117 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00009118 }
9119 return buf;
9120}
9121
9122/*
9123 * "bufexists(expr)" function
9124 */
9125 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009126f_bufexists(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009127 typval_T *argvars;
9128 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009129{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009130 rettv->vval.v_number = (find_buffer(&argvars[0]) != NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009131}
9132
9133/*
9134 * "buflisted(expr)" function
9135 */
9136 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009137f_buflisted(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009138 typval_T *argvars;
9139 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009140{
9141 buf_T *buf;
9142
9143 buf = find_buffer(&argvars[0]);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009144 rettv->vval.v_number = (buf != NULL && buf->b_p_bl);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009145}
9146
9147/*
9148 * "bufloaded(expr)" function
9149 */
9150 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009151f_bufloaded(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009152 typval_T *argvars;
9153 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009154{
9155 buf_T *buf;
9156
9157 buf = find_buffer(&argvars[0]);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009158 rettv->vval.v_number = (buf != NULL && buf->b_ml.ml_mfp != NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009159}
9160
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009161static buf_T *get_buf_tv __ARGS((typval_T *tv, int curtab_only));
Bram Moolenaar0d660222005-01-07 21:51:51 +00009162
Bram Moolenaar071d4272004-06-13 20:20:40 +00009163/*
9164 * Get buffer by number or pattern.
9165 */
9166 static buf_T *
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009167get_buf_tv(tv, curtab_only)
Bram Moolenaar33570922005-01-25 22:26:29 +00009168 typval_T *tv;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009169 int curtab_only;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009170{
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009171 char_u *name = tv->vval.v_string;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009172 int save_magic;
9173 char_u *save_cpo;
9174 buf_T *buf;
9175
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009176 if (tv->v_type == VAR_NUMBER)
9177 return buflist_findnr((int)tv->vval.v_number);
Bram Moolenaar758711c2005-02-02 23:11:38 +00009178 if (tv->v_type != VAR_STRING)
9179 return NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009180 if (name == NULL || *name == NUL)
9181 return curbuf;
9182 if (name[0] == '$' && name[1] == NUL)
9183 return lastbuf;
9184
9185 /* Ignore 'magic' and 'cpoptions' here to make scripts portable */
9186 save_magic = p_magic;
9187 p_magic = TRUE;
9188 save_cpo = p_cpo;
9189 p_cpo = (char_u *)"";
9190
9191 buf = buflist_findnr(buflist_findpat(name, name + STRLEN(name),
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009192 TRUE, FALSE, curtab_only));
Bram Moolenaar071d4272004-06-13 20:20:40 +00009193
9194 p_magic = save_magic;
9195 p_cpo = save_cpo;
9196
9197 /* If not found, try expanding the name, like done for bufexists(). */
9198 if (buf == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009199 buf = find_buffer(tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009200
9201 return buf;
9202}
9203
9204/*
9205 * "bufname(expr)" function
9206 */
9207 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009208f_bufname(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009209 typval_T *argvars;
9210 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009211{
9212 buf_T *buf;
9213
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009214 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009215 ++emsg_off;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009216 buf = get_buf_tv(&argvars[0], FALSE);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009217 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009218 if (buf != NULL && buf->b_fname != NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009219 rettv->vval.v_string = vim_strsave(buf->b_fname);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009220 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009221 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009222 --emsg_off;
9223}
9224
9225/*
9226 * "bufnr(expr)" function
9227 */
9228 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009229f_bufnr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009230 typval_T *argvars;
9231 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009232{
9233 buf_T *buf;
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009234 int error = FALSE;
9235 char_u *name;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009236
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009237 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009238 ++emsg_off;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009239 buf = get_buf_tv(&argvars[0], FALSE);
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009240 --emsg_off;
9241
9242 /* If the buffer isn't found and the second argument is not zero create a
9243 * new buffer. */
9244 if (buf == NULL
9245 && argvars[1].v_type != VAR_UNKNOWN
9246 && get_tv_number_chk(&argvars[1], &error) != 0
9247 && !error
9248 && (name = get_tv_string_chk(&argvars[0])) != NULL
9249 && !error)
9250 buf = buflist_new(name, NULL, (linenr_T)1, 0);
9251
Bram Moolenaar071d4272004-06-13 20:20:40 +00009252 if (buf != NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009253 rettv->vval.v_number = buf->b_fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009254 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009255 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009256}
9257
9258/*
9259 * "bufwinnr(nr)" function
9260 */
9261 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009262f_bufwinnr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009263 typval_T *argvars;
9264 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009265{
9266#ifdef FEAT_WINDOWS
9267 win_T *wp;
9268 int winnr = 0;
9269#endif
9270 buf_T *buf;
9271
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009272 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009273 ++emsg_off;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +01009274 buf = get_buf_tv(&argvars[0], TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009275#ifdef FEAT_WINDOWS
9276 for (wp = firstwin; wp; wp = wp->w_next)
9277 {
9278 ++winnr;
9279 if (wp->w_buffer == buf)
9280 break;
9281 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009282 rettv->vval.v_number = (wp != NULL ? winnr : -1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009283#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009284 rettv->vval.v_number = (curwin->w_buffer == buf ? 1 : -1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009285#endif
9286 --emsg_off;
9287}
9288
9289/*
9290 * "byte2line(byte)" function
9291 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009292 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009293f_byte2line(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009294 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00009295 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009296{
9297#ifndef FEAT_BYTEOFF
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009298 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009299#else
9300 long boff = 0;
9301
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009302 boff = get_tv_number(&argvars[0]) - 1; /* boff gets -1 on type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009303 if (boff < 0)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009304 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009305 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009306 rettv->vval.v_number = ml_find_line_or_offset(curbuf,
Bram Moolenaar071d4272004-06-13 20:20:40 +00009307 (linenr_T)0, &boff);
9308#endif
9309}
9310
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009311 static void
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +01009312byteidx(argvars, rettv, comp)
Bram Moolenaar33570922005-01-25 22:26:29 +00009313 typval_T *argvars;
9314 typval_T *rettv;
Bram Moolenaarf30caaf2014-02-23 22:54:58 +01009315 int comp UNUSED;
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009316{
9317#ifdef FEAT_MBYTE
9318 char_u *t;
9319#endif
9320 char_u *str;
9321 long idx;
9322
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009323 str = get_tv_string_chk(&argvars[0]);
9324 idx = get_tv_number_chk(&argvars[1], NULL);
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009325 rettv->vval.v_number = -1;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009326 if (str == NULL || idx < 0)
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009327 return;
9328
9329#ifdef FEAT_MBYTE
9330 t = str;
9331 for ( ; idx > 0; idx--)
9332 {
9333 if (*t == NUL) /* EOL reached */
9334 return;
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +01009335 if (enc_utf8 && comp)
9336 t += utf_ptr2len(t);
9337 else
9338 t += (*mb_ptr2len)(t);
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009339 }
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00009340 rettv->vval.v_number = (varnumber_T)(t - str);
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009341#else
Bram Moolenaar8c8de832008-06-24 22:58:06 +00009342 if ((size_t)idx <= STRLEN(str))
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009343 rettv->vval.v_number = idx;
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009344#endif
9345}
9346
Bram Moolenaar0ffbbf92013-11-02 23:29:26 +01009347/*
9348 * "byteidx()" function
9349 */
9350 static void
9351f_byteidx(argvars, rettv)
9352 typval_T *argvars;
9353 typval_T *rettv;
9354{
9355 byteidx(argvars, rettv, FALSE);
9356}
9357
9358/*
9359 * "byteidxcomp()" function
9360 */
9361 static void
9362f_byteidxcomp(argvars, rettv)
9363 typval_T *argvars;
9364 typval_T *rettv;
9365{
9366 byteidx(argvars, rettv, TRUE);
9367}
9368
Bram Moolenaardb913952012-06-29 12:54:53 +02009369 int
9370func_call(name, args, selfdict, rettv)
9371 char_u *name;
9372 typval_T *args;
9373 dict_T *selfdict;
9374 typval_T *rettv;
9375{
9376 listitem_T *item;
9377 typval_T argv[MAX_FUNC_ARGS + 1];
9378 int argc = 0;
9379 int dummy;
9380 int r = 0;
9381
9382 for (item = args->vval.v_list->lv_first; item != NULL;
9383 item = item->li_next)
9384 {
9385 if (argc == MAX_FUNC_ARGS)
9386 {
9387 EMSG(_("E699: Too many arguments"));
9388 break;
9389 }
9390 /* Make a copy of each argument. This is needed to be able to set
9391 * v_lock to VAR_FIXED in the copy without changing the original list.
9392 */
9393 copy_tv(&item->li_tv, &argv[argc++]);
9394 }
9395
9396 if (item == NULL)
9397 r = call_func(name, (int)STRLEN(name), rettv, argc, argv,
9398 curwin->w_cursor.lnum, curwin->w_cursor.lnum,
9399 &dummy, TRUE, selfdict);
9400
9401 /* Free the arguments. */
9402 while (argc > 0)
9403 clear_tv(&argv[--argc]);
9404
9405 return r;
9406}
9407
Bram Moolenaarab79bcb2004-07-18 21:34:53 +00009408/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009409 * "call(func, arglist)" function
9410 */
9411 static void
9412f_call(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009413 typval_T *argvars;
9414 typval_T *rettv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009415{
9416 char_u *func;
Bram Moolenaar33570922005-01-25 22:26:29 +00009417 dict_T *selfdict = NULL;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009418
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009419 if (argvars[1].v_type != VAR_LIST)
9420 {
9421 EMSG(_(e_listreq));
9422 return;
9423 }
9424 if (argvars[1].vval.v_list == NULL)
9425 return;
9426
9427 if (argvars[0].v_type == VAR_FUNC)
9428 func = argvars[0].vval.v_string;
9429 else
9430 func = get_tv_string(&argvars[0]);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009431 if (*func == NUL)
9432 return; /* type error or empty name */
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009433
Bram Moolenaare9a41262005-01-15 22:18:47 +00009434 if (argvars[2].v_type != VAR_UNKNOWN)
9435 {
9436 if (argvars[2].v_type != VAR_DICT)
9437 {
9438 EMSG(_(e_dictreq));
9439 return;
9440 }
9441 selfdict = argvars[2].vval.v_dict;
9442 }
9443
Bram Moolenaardb913952012-06-29 12:54:53 +02009444 (void)func_call(func, &argvars[1], selfdict, rettv);
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009445}
9446
Bram Moolenaar8c8de832008-06-24 22:58:06 +00009447#ifdef FEAT_FLOAT
9448/*
9449 * "ceil({float})" function
9450 */
9451 static void
9452f_ceil(argvars, rettv)
9453 typval_T *argvars;
9454 typval_T *rettv;
9455{
9456 float_T f;
9457
9458 rettv->v_type = VAR_FLOAT;
9459 if (get_float_arg(argvars, &f) == OK)
9460 rettv->vval.v_float = ceil(f);
9461 else
9462 rettv->vval.v_float = 0.0;
9463}
9464#endif
9465
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009466/*
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00009467 * "changenr()" function
9468 */
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00009469 static void
9470f_changenr(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00009471 typval_T *argvars UNUSED;
Bram Moolenaarf0acfce2006-03-17 23:21:19 +00009472 typval_T *rettv;
9473{
9474 rettv->vval.v_number = curbuf->b_u_seq_cur;
9475}
9476
9477/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00009478 * "char2nr(string)" function
9479 */
9480 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009481f_char2nr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009482 typval_T *argvars;
9483 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009484{
9485#ifdef FEAT_MBYTE
9486 if (has_mbyte)
Bram Moolenaard35d7842013-01-23 17:17:10 +01009487 {
9488 int utf8 = 0;
9489
9490 if (argvars[1].v_type != VAR_UNKNOWN)
9491 utf8 = get_tv_number_chk(&argvars[1], NULL);
9492
9493 if (utf8)
9494 rettv->vval.v_number = (*utf_ptr2char)(get_tv_string(&argvars[0]));
9495 else
9496 rettv->vval.v_number = (*mb_ptr2char)(get_tv_string(&argvars[0]));
9497 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00009498 else
9499#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009500 rettv->vval.v_number = get_tv_string(&argvars[0])[0];
Bram Moolenaar071d4272004-06-13 20:20:40 +00009501}
9502
9503/*
9504 * "cindent(lnum)" function
9505 */
9506 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009507f_cindent(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +01009508 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +00009509 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009510{
9511#ifdef FEAT_CINDENT
9512 pos_T pos;
9513 linenr_T lnum;
9514
9515 pos = curwin->w_cursor;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009516 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009517 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
9518 {
9519 curwin->w_cursor.lnum = lnum;
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009520 rettv->vval.v_number = get_c_indent();
Bram Moolenaar071d4272004-06-13 20:20:40 +00009521 curwin->w_cursor = pos;
9522 }
9523 else
9524#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009525 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009526}
9527
9528/*
Bram Moolenaar6ee10162007-07-26 20:58:42 +00009529 * "clearmatches()" function
9530 */
Bram Moolenaar6ee10162007-07-26 20:58:42 +00009531 static void
9532f_clearmatches(argvars, rettv)
Bram Moolenaar78a15312009-05-15 19:33:18 +00009533 typval_T *argvars UNUSED;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009534 typval_T *rettv UNUSED;
Bram Moolenaar6ee10162007-07-26 20:58:42 +00009535{
9536#ifdef FEAT_SEARCH_EXTRA
9537 clear_matches(curwin);
9538#endif
9539}
9540
9541/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00009542 * "col(string)" function
9543 */
9544 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009545f_col(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009546 typval_T *argvars;
9547 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009548{
9549 colnr_T col = 0;
9550 pos_T *fp;
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009551 int fnum = curbuf->b_fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009552
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009553 fp = var2fpos(&argvars[0], FALSE, &fnum);
9554 if (fp != NULL && fnum == curbuf->b_fnum)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009555 {
9556 if (fp->col == MAXCOL)
9557 {
9558 /* '> can be MAXCOL, get the length of the line then */
9559 if (fp->lnum <= curbuf->b_ml.ml_line_count)
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00009560 col = (colnr_T)STRLEN(ml_get(fp->lnum)) + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009561 else
9562 col = MAXCOL;
9563 }
9564 else
9565 {
9566 col = fp->col + 1;
9567#ifdef FEAT_VIRTUALEDIT
9568 /* col(".") when the cursor is on the NUL at the end of the line
9569 * because of "coladd" can be seen as an extra column. */
9570 if (virtual_active() && fp == &curwin->w_cursor)
9571 {
9572 char_u *p = ml_get_cursor();
9573
9574 if (curwin->w_cursor.coladd >= (colnr_T)chartabsize(p,
9575 curwin->w_virtcol - curwin->w_cursor.coladd))
9576 {
9577# ifdef FEAT_MBYTE
9578 int l;
9579
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00009580 if (*p != NUL && p[(l = (*mb_ptr2len)(p))] == NUL)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009581 col += l;
9582# else
9583 if (*p != NUL && p[1] == NUL)
9584 ++col;
9585# endif
9586 }
9587 }
9588#endif
9589 }
9590 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009591 rettv->vval.v_number = col;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009592}
9593
Bram Moolenaar572cb562005-08-05 21:35:02 +00009594#if defined(FEAT_INS_EXPAND)
9595/*
Bram Moolenaarade00832006-03-10 21:46:58 +00009596 * "complete()" function
9597 */
Bram Moolenaarade00832006-03-10 21:46:58 +00009598 static void
9599f_complete(argvars, rettv)
9600 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009601 typval_T *rettv UNUSED;
Bram Moolenaarade00832006-03-10 21:46:58 +00009602{
9603 int startcol;
9604
9605 if ((State & INSERT) == 0)
9606 {
9607 EMSG(_("E785: complete() can only be used in Insert mode"));
9608 return;
9609 }
Bram Moolenaarce6ef252006-07-12 19:49:41 +00009610
9611 /* Check for undo allowed here, because if something was already inserted
9612 * the line was already saved for undo and this check isn't done. */
9613 if (!undo_allowed())
9614 return;
9615
Bram Moolenaarade00832006-03-10 21:46:58 +00009616 if (argvars[1].v_type != VAR_LIST || argvars[1].vval.v_list == NULL)
9617 {
9618 EMSG(_(e_invarg));
9619 return;
9620 }
9621
9622 startcol = get_tv_number_chk(&argvars[0], NULL);
9623 if (startcol <= 0)
9624 return;
9625
9626 set_completion(startcol - 1, argvars[1].vval.v_list);
9627}
9628
9629/*
Bram Moolenaar572cb562005-08-05 21:35:02 +00009630 * "complete_add()" function
9631 */
Bram Moolenaar572cb562005-08-05 21:35:02 +00009632 static void
9633f_complete_add(argvars, rettv)
9634 typval_T *argvars;
9635 typval_T *rettv;
9636{
Bram Moolenaarceaf7b82006-03-19 22:18:55 +00009637 rettv->vval.v_number = ins_compl_add_tv(&argvars[0], 0);
Bram Moolenaar572cb562005-08-05 21:35:02 +00009638}
9639
9640/*
9641 * "complete_check()" function
9642 */
Bram Moolenaar572cb562005-08-05 21:35:02 +00009643 static void
9644f_complete_check(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009645 typval_T *argvars UNUSED;
Bram Moolenaar572cb562005-08-05 21:35:02 +00009646 typval_T *rettv;
9647{
9648 int saved = RedrawingDisabled;
9649
9650 RedrawingDisabled = 0;
9651 ins_compl_check_keys(0);
9652 rettv->vval.v_number = compl_interrupted;
9653 RedrawingDisabled = saved;
9654}
9655#endif
9656
Bram Moolenaar071d4272004-06-13 20:20:40 +00009657/*
9658 * "confirm(message, buttons[, default [, type]])" function
9659 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009660 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009661f_confirm(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009662 typval_T *argvars UNUSED;
9663 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009664{
9665#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
9666 char_u *message;
9667 char_u *buttons = NULL;
9668 char_u buf[NUMBUFLEN];
9669 char_u buf2[NUMBUFLEN];
9670 int def = 1;
9671 int type = VIM_GENERIC;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009672 char_u *typestr;
9673 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009674
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009675 message = get_tv_string_chk(&argvars[0]);
9676 if (message == NULL)
9677 error = TRUE;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009678 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009679 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009680 buttons = get_tv_string_buf_chk(&argvars[1], buf);
9681 if (buttons == NULL)
9682 error = TRUE;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009683 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009684 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009685 def = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009686 if (argvars[3].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009687 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009688 typestr = get_tv_string_buf_chk(&argvars[3], buf2);
9689 if (typestr == NULL)
9690 error = TRUE;
9691 else
Bram Moolenaar071d4272004-06-13 20:20:40 +00009692 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009693 switch (TOUPPER_ASC(*typestr))
9694 {
9695 case 'E': type = VIM_ERROR; break;
9696 case 'Q': type = VIM_QUESTION; break;
9697 case 'I': type = VIM_INFO; break;
9698 case 'W': type = VIM_WARNING; break;
9699 case 'G': type = VIM_GENERIC; break;
9700 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00009701 }
9702 }
9703 }
9704 }
9705
9706 if (buttons == NULL || *buttons == NUL)
9707 buttons = (char_u *)_("&Ok");
9708
Bram Moolenaar798b30b2009-04-22 10:56:16 +00009709 if (!error)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009710 rettv->vval.v_number = do_dialog(type, NULL, message, buttons,
Bram Moolenaard2c340a2011-01-17 20:08:11 +01009711 def, NULL, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009712#endif
9713}
9714
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009715/*
9716 * "copy()" function
9717 */
9718 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009719f_copy(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009720 typval_T *argvars;
9721 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009722{
Bram Moolenaar81bf7082005-02-12 14:31:42 +00009723 item_copy(&argvars[0], rettv, FALSE, 0);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009724}
Bram Moolenaar071d4272004-06-13 20:20:40 +00009725
Bram Moolenaar8c8de832008-06-24 22:58:06 +00009726#ifdef FEAT_FLOAT
9727/*
9728 * "cos()" function
9729 */
9730 static void
9731f_cos(argvars, rettv)
9732 typval_T *argvars;
9733 typval_T *rettv;
9734{
9735 float_T f;
9736
9737 rettv->v_type = VAR_FLOAT;
9738 if (get_float_arg(argvars, &f) == OK)
9739 rettv->vval.v_float = cos(f);
9740 else
9741 rettv->vval.v_float = 0.0;
9742}
Bram Moolenaardb7c6862010-05-21 16:33:48 +02009743
9744/*
9745 * "cosh()" function
9746 */
9747 static void
9748f_cosh(argvars, rettv)
9749 typval_T *argvars;
9750 typval_T *rettv;
9751{
9752 float_T f;
9753
9754 rettv->v_type = VAR_FLOAT;
9755 if (get_float_arg(argvars, &f) == OK)
9756 rettv->vval.v_float = cosh(f);
9757 else
9758 rettv->vval.v_float = 0.0;
9759}
Bram Moolenaar8c8de832008-06-24 22:58:06 +00009760#endif
9761
Bram Moolenaar071d4272004-06-13 20:20:40 +00009762/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009763 * "count()" function
9764 */
9765 static void
9766f_count(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009767 typval_T *argvars;
9768 typval_T *rettv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009769{
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009770 long n = 0;
9771 int ic = FALSE;
9772
Bram Moolenaare9a41262005-01-15 22:18:47 +00009773 if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009774 {
Bram Moolenaar33570922005-01-25 22:26:29 +00009775 listitem_T *li;
9776 list_T *l;
Bram Moolenaare9a41262005-01-15 22:18:47 +00009777 long idx;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +00009778
Bram Moolenaare9a41262005-01-15 22:18:47 +00009779 if ((l = argvars[0].vval.v_list) != NULL)
9780 {
9781 li = l->lv_first;
9782 if (argvars[2].v_type != VAR_UNKNOWN)
9783 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009784 int error = FALSE;
9785
9786 ic = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaare9a41262005-01-15 22:18:47 +00009787 if (argvars[3].v_type != VAR_UNKNOWN)
9788 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009789 idx = get_tv_number_chk(&argvars[3], &error);
9790 if (!error)
9791 {
9792 li = list_find(l, idx);
9793 if (li == NULL)
9794 EMSGN(_(e_listidx), idx);
9795 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00009796 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009797 if (error)
9798 li = NULL;
Bram Moolenaare9a41262005-01-15 22:18:47 +00009799 }
9800
9801 for ( ; li != NULL; li = li->li_next)
Bram Moolenaar67b3f992010-11-10 20:41:57 +01009802 if (tv_equal(&li->li_tv, &argvars[1], ic, FALSE))
Bram Moolenaare9a41262005-01-15 22:18:47 +00009803 ++n;
9804 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009805 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00009806 else if (argvars[0].v_type == VAR_DICT)
9807 {
Bram Moolenaar33570922005-01-25 22:26:29 +00009808 int todo;
9809 dict_T *d;
9810 hashitem_T *hi;
Bram Moolenaare9a41262005-01-15 22:18:47 +00009811
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00009812 if ((d = argvars[0].vval.v_dict) != NULL)
9813 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009814 int error = FALSE;
9815
Bram Moolenaare9a41262005-01-15 22:18:47 +00009816 if (argvars[2].v_type != VAR_UNKNOWN)
9817 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009818 ic = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaare9a41262005-01-15 22:18:47 +00009819 if (argvars[3].v_type != VAR_UNKNOWN)
9820 EMSG(_(e_invarg));
9821 }
9822
Bram Moolenaara93fa7e2006-04-17 22:14:47 +00009823 todo = error ? 0 : (int)d->dv_hashtab.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +00009824 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00009825 {
9826 if (!HASHITEM_EMPTY(hi))
9827 {
9828 --todo;
Bram Moolenaar67b3f992010-11-10 20:41:57 +01009829 if (tv_equal(&HI2DI(hi)->di_tv, &argvars[1], ic, FALSE))
Bram Moolenaarce5e58e2005-01-19 22:24:34 +00009830 ++n;
9831 }
9832 }
Bram Moolenaare9a41262005-01-15 22:18:47 +00009833 }
9834 }
9835 else
9836 EMSG2(_(e_listdictarg), "count()");
Bram Moolenaar8a283e52005-01-06 23:28:25 +00009837 rettv->vval.v_number = n;
9838}
9839
9840/*
Bram Moolenaar071d4272004-06-13 20:20:40 +00009841 * "cscope_connection([{num} , {dbpath} [, {prepend}]])" function
9842 *
9843 * Checks the existence of a cscope connection.
9844 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009845 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009846f_cscope_connection(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009847 typval_T *argvars UNUSED;
9848 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009849{
9850#ifdef FEAT_CSCOPE
9851 int num = 0;
9852 char_u *dbpath = NULL;
9853 char_u *prepend = NULL;
9854 char_u buf[NUMBUFLEN];
9855
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009856 if (argvars[0].v_type != VAR_UNKNOWN
9857 && argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +00009858 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009859 num = (int)get_tv_number(&argvars[0]);
9860 dbpath = get_tv_string(&argvars[1]);
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009861 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009862 prepend = get_tv_string_buf(&argvars[2], buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009863 }
9864
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009865 rettv->vval.v_number = cs_connection(num, dbpath, prepend);
Bram Moolenaar071d4272004-06-13 20:20:40 +00009866#endif
9867}
9868
9869/*
9870 * "cursor(lnum, col)" function
9871 *
Bram Moolenaar798b30b2009-04-22 10:56:16 +00009872 * Moves the cursor to the specified line and column.
9873 * Returns 0 when the position could be set, -1 otherwise.
Bram Moolenaar071d4272004-06-13 20:20:40 +00009874 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009875 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009876f_cursor(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009877 typval_T *argvars;
9878 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009879{
9880 long line, col;
Bram Moolenaara5525202006-03-02 22:52:09 +00009881#ifdef FEAT_VIRTUALEDIT
9882 long coladd = 0;
9883#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +00009884
Bram Moolenaar798b30b2009-04-22 10:56:16 +00009885 rettv->vval.v_number = -1;
Bram Moolenaara5525202006-03-02 22:52:09 +00009886 if (argvars[1].v_type == VAR_UNKNOWN)
9887 {
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009888 pos_T pos;
Bram Moolenaar493c1782014-05-28 14:34:46 +02009889 colnr_T curswant = -1;
Bram Moolenaara5525202006-03-02 22:52:09 +00009890
Bram Moolenaar493c1782014-05-28 14:34:46 +02009891 if (list2fpos(argvars, &pos, NULL, &curswant) == FAIL)
Bram Moolenaara5525202006-03-02 22:52:09 +00009892 return;
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009893 line = pos.lnum;
9894 col = pos.col;
Bram Moolenaara5525202006-03-02 22:52:09 +00009895#ifdef FEAT_VIRTUALEDIT
Bram Moolenaar0e34f622006-03-03 23:00:03 +00009896 coladd = pos.coladd;
Bram Moolenaara5525202006-03-02 22:52:09 +00009897#endif
Bram Moolenaar493c1782014-05-28 14:34:46 +02009898 if (curswant >= 0)
9899 curwin->w_curswant = curswant - 1;
Bram Moolenaara5525202006-03-02 22:52:09 +00009900 }
9901 else
9902 {
9903 line = get_tv_lnum(argvars);
9904 col = get_tv_number_chk(&argvars[1], NULL);
9905#ifdef FEAT_VIRTUALEDIT
9906 if (argvars[2].v_type != VAR_UNKNOWN)
9907 coladd = get_tv_number_chk(&argvars[2], NULL);
9908#endif
9909 }
9910 if (line < 0 || col < 0
9911#ifdef FEAT_VIRTUALEDIT
9912 || coladd < 0
9913#endif
9914 )
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009915 return; /* type error; errmsg already given */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009916 if (line > 0)
9917 curwin->w_cursor.lnum = line;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009918 if (col > 0)
9919 curwin->w_cursor.col = col - 1;
9920#ifdef FEAT_VIRTUALEDIT
Bram Moolenaara5525202006-03-02 22:52:09 +00009921 curwin->w_cursor.coladd = coladd;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009922#endif
9923
9924 /* Make sure the cursor is in a valid position. */
9925 check_cursor();
9926#ifdef FEAT_MBYTE
9927 /* Correct cursor for multi-byte character. */
9928 if (has_mbyte)
9929 mb_adjust_cursor();
9930#endif
Bram Moolenaarf4b8e572004-06-24 15:53:16 +00009931
9932 curwin->w_set_curswant = TRUE;
Bram Moolenaar798b30b2009-04-22 10:56:16 +00009933 rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009934}
9935
9936/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +00009937 * "deepcopy()" function
Bram Moolenaar071d4272004-06-13 20:20:40 +00009938 */
9939 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009940f_deepcopy(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009941 typval_T *argvars;
9942 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009943{
Bram Moolenaar81bf7082005-02-12 14:31:42 +00009944 int noref = 0;
9945
9946 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +00009947 noref = get_tv_number_chk(&argvars[1], NULL);
Bram Moolenaar81bf7082005-02-12 14:31:42 +00009948 if (noref < 0 || noref > 1)
9949 EMSG(_(e_invarg));
9950 else
Bram Moolenaar2c2398c2009-06-03 11:22:45 +00009951 {
9952 current_copyID += COPYID_INC;
9953 item_copy(&argvars[0], rettv, TRUE, noref == 0 ? current_copyID : 0);
9954 }
Bram Moolenaar071d4272004-06-13 20:20:40 +00009955}
9956
9957/*
9958 * "delete()" function
9959 */
9960 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009961f_delete(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +00009962 typval_T *argvars;
9963 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009964{
9965 if (check_restricted() || check_secure())
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009966 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009967 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009968 rettv->vval.v_number = mch_remove(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +00009969}
9970
9971/*
9972 * "did_filetype()" function
9973 */
Bram Moolenaar071d4272004-06-13 20:20:40 +00009974 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009975f_did_filetype(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009976 typval_T *argvars UNUSED;
9977 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009978{
9979#ifdef FEAT_AUTOCMD
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009980 rettv->vval.v_number = did_filetype;
Bram Moolenaar071d4272004-06-13 20:20:40 +00009981#endif
9982}
9983
9984/*
Bram Moolenaar47136d72004-10-12 20:02:24 +00009985 * "diff_filler()" function
9986 */
Bram Moolenaar47136d72004-10-12 20:02:24 +00009987 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009988f_diff_filler(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +00009989 typval_T *argvars UNUSED;
9990 typval_T *rettv UNUSED;
Bram Moolenaar47136d72004-10-12 20:02:24 +00009991{
9992#ifdef FEAT_DIFF
Bram Moolenaarc70646c2005-01-04 21:52:38 +00009993 rettv->vval.v_number = diff_check_fill(curwin, get_tv_lnum(argvars));
Bram Moolenaar47136d72004-10-12 20:02:24 +00009994#endif
9995}
9996
9997/*
9998 * "diff_hlID()" function
9999 */
Bram Moolenaar47136d72004-10-12 20:02:24 +000010000 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010001f_diff_hlID(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000010002 typval_T *argvars UNUSED;
10003 typval_T *rettv UNUSED;
Bram Moolenaar47136d72004-10-12 20:02:24 +000010004{
10005#ifdef FEAT_DIFF
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010006 linenr_T lnum = get_tv_lnum(argvars);
Bram Moolenaar47136d72004-10-12 20:02:24 +000010007 static linenr_T prev_lnum = 0;
10008 static int changedtick = 0;
10009 static int fnum = 0;
10010 static int change_start = 0;
10011 static int change_end = 0;
Bram Moolenaar6f192452007-11-08 19:49:02 +000010012 static hlf_T hlID = (hlf_T)0;
Bram Moolenaar47136d72004-10-12 20:02:24 +000010013 int filler_lines;
10014 int col;
10015
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010016 if (lnum < 0) /* ignore type error in {lnum} arg */
10017 lnum = 0;
Bram Moolenaar47136d72004-10-12 20:02:24 +000010018 if (lnum != prev_lnum
10019 || changedtick != curbuf->b_changedtick
10020 || fnum != curbuf->b_fnum)
10021 {
10022 /* New line, buffer, change: need to get the values. */
10023 filler_lines = diff_check(curwin, lnum);
10024 if (filler_lines < 0)
10025 {
10026 if (filler_lines == -1)
10027 {
10028 change_start = MAXCOL;
10029 change_end = -1;
10030 if (diff_find_change(curwin, lnum, &change_start, &change_end))
10031 hlID = HLF_ADD; /* added line */
10032 else
10033 hlID = HLF_CHD; /* changed line */
10034 }
10035 else
10036 hlID = HLF_ADD; /* added line */
10037 }
10038 else
Bram Moolenaar482aaeb2005-09-29 18:26:07 +000010039 hlID = (hlf_T)0;
Bram Moolenaar47136d72004-10-12 20:02:24 +000010040 prev_lnum = lnum;
10041 changedtick = curbuf->b_changedtick;
10042 fnum = curbuf->b_fnum;
10043 }
10044
10045 if (hlID == HLF_CHD || hlID == HLF_TXD)
10046 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010047 col = get_tv_number(&argvars[1]) - 1; /* ignore type error in {col} */
Bram Moolenaar47136d72004-10-12 20:02:24 +000010048 if (col >= change_start && col <= change_end)
10049 hlID = HLF_TXD; /* changed text */
10050 else
10051 hlID = HLF_CHD; /* changed line */
10052 }
Bram Moolenaar482aaeb2005-09-29 18:26:07 +000010053 rettv->vval.v_number = hlID == (hlf_T)0 ? 0 : (int)hlID;
Bram Moolenaar47136d72004-10-12 20:02:24 +000010054#endif
10055}
10056
10057/*
Bram Moolenaare49b69a2005-01-08 16:11:57 +000010058 * "empty({expr})" function
10059 */
10060 static void
10061f_empty(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010062 typval_T *argvars;
10063 typval_T *rettv;
Bram Moolenaare49b69a2005-01-08 16:11:57 +000010064{
10065 int n;
10066
10067 switch (argvars[0].v_type)
10068 {
10069 case VAR_STRING:
10070 case VAR_FUNC:
10071 n = argvars[0].vval.v_string == NULL
10072 || *argvars[0].vval.v_string == NUL;
10073 break;
10074 case VAR_NUMBER:
10075 n = argvars[0].vval.v_number == 0;
10076 break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000010077#ifdef FEAT_FLOAT
10078 case VAR_FLOAT:
10079 n = argvars[0].vval.v_float == 0.0;
10080 break;
10081#endif
Bram Moolenaare49b69a2005-01-08 16:11:57 +000010082 case VAR_LIST:
10083 n = argvars[0].vval.v_list == NULL
10084 || argvars[0].vval.v_list->lv_first == NULL;
10085 break;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010086 case VAR_DICT:
10087 n = argvars[0].vval.v_dict == NULL
Bram Moolenaar33570922005-01-25 22:26:29 +000010088 || argvars[0].vval.v_dict->dv_hashtab.ht_used == 0;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010089 break;
Bram Moolenaare49b69a2005-01-08 16:11:57 +000010090 default:
10091 EMSG2(_(e_intern2), "f_empty()");
10092 n = 0;
10093 }
10094
10095 rettv->vval.v_number = n;
10096}
10097
10098/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000010099 * "escape({string}, {chars})" function
10100 */
10101 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010102f_escape(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010103 typval_T *argvars;
10104 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010105{
10106 char_u buf[NUMBUFLEN];
10107
Bram Moolenaar758711c2005-02-02 23:11:38 +000010108 rettv->vval.v_string = vim_strsave_escaped(get_tv_string(&argvars[0]),
10109 get_tv_string_buf(&argvars[1], buf));
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010110 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010111}
10112
10113/*
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010114 * "eval()" function
10115 */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010116 static void
10117f_eval(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010118 typval_T *argvars;
10119 typval_T *rettv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010120{
Bram Moolenaar615b9972015-01-14 17:15:05 +010010121 char_u *s, *p;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010122
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010123 s = get_tv_string_chk(&argvars[0]);
10124 if (s != NULL)
10125 s = skipwhite(s);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010126
Bram Moolenaar615b9972015-01-14 17:15:05 +010010127 p = s;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010128 if (s == NULL || eval1(&s, rettv, TRUE) == FAIL)
10129 {
Bram Moolenaar615b9972015-01-14 17:15:05 +010010130 if (p != NULL && !aborting())
10131 EMSG2(_(e_invexpr2), p);
10132 need_clr_eos = FALSE;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010133 rettv->v_type = VAR_NUMBER;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010134 rettv->vval.v_number = 0;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010135 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010136 else if (*s != NUL)
10137 EMSG(_(e_trailing));
10138}
10139
10140/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000010141 * "eventhandler()" function
10142 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000010143 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010144f_eventhandler(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000010145 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000010146 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010147{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010148 rettv->vval.v_number = vgetc_busy;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010149}
10150
10151/*
10152 * "executable()" function
10153 */
10154 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010155f_executable(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010156 typval_T *argvars;
10157 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010158{
Bram Moolenaarc7f02552014-04-01 21:00:59 +020010159 rettv->vval.v_number = mch_can_exe(get_tv_string(&argvars[0]), NULL);
10160}
10161
10162/*
10163 * "exepath()" function
10164 */
10165 static void
10166f_exepath(argvars, rettv)
10167 typval_T *argvars;
10168 typval_T *rettv;
10169{
10170 char_u *p = NULL;
10171
10172 (void)mch_can_exe(get_tv_string(&argvars[0]), &p);
10173 rettv->v_type = VAR_STRING;
10174 rettv->vval.v_string = p;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010175}
10176
10177/*
10178 * "exists()" function
10179 */
10180 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010181f_exists(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010182 typval_T *argvars;
10183 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010184{
10185 char_u *p;
10186 char_u *name;
10187 int n = FALSE;
10188 int len = 0;
10189
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010190 p = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010191 if (*p == '$') /* environment variable */
10192 {
10193 /* first try "normal" environment variables (fast) */
10194 if (mch_getenv(p + 1) != NULL)
10195 n = TRUE;
10196 else
10197 {
10198 /* try expanding things like $VIM and ${HOME} */
10199 p = expand_env_save(p);
10200 if (p != NULL && *p != '$')
10201 n = TRUE;
10202 vim_free(p);
10203 }
10204 }
10205 else if (*p == '&' || *p == '+') /* option */
Bram Moolenaar79783442006-05-05 21:18:03 +000010206 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010207 n = (get_option_tv(&p, NULL, TRUE) == OK);
Bram Moolenaar79783442006-05-05 21:18:03 +000010208 if (*skipwhite(p) != NUL)
10209 n = FALSE; /* trailing garbage */
10210 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000010211 else if (*p == '*') /* internal or user defined function */
10212 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000010213 n = function_exists(p + 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010214 }
10215 else if (*p == ':')
10216 {
10217 n = cmd_exists(p + 1);
10218 }
10219 else if (*p == '#')
10220 {
10221#ifdef FEAT_AUTOCMD
Bram Moolenaarf4cd3e82005-12-22 22:47:02 +000010222 if (p[1] == '#')
10223 n = autocmd_supported(p + 2);
10224 else
10225 n = au_exists(p + 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010226#endif
10227 }
10228 else /* internal variable */
10229 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010230 char_u *tofree;
10231 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010232
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010233 /* get_name_len() takes care of expanding curly braces */
10234 name = p;
10235 len = get_name_len(&p, &tofree, TRUE, FALSE);
10236 if (len > 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000010237 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010238 if (tofree != NULL)
10239 name = tofree;
Bram Moolenaar6d977d62014-01-14 15:24:39 +010010240 n = (get_var_tv(name, len, &tv, FALSE, TRUE) == OK);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010241 if (n)
Bram Moolenaar071d4272004-06-13 20:20:40 +000010242 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010243 /* handle d.key, l[idx], f(expr) */
10244 n = (handle_subscript(&p, &tv, TRUE, FALSE) == OK);
10245 if (n)
10246 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010247 }
10248 }
Bram Moolenaar79783442006-05-05 21:18:03 +000010249 if (*p != NUL)
10250 n = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010251
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000010252 vim_free(tofree);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010253 }
10254
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010255 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010256}
10257
Bram Moolenaardb7c6862010-05-21 16:33:48 +020010258#ifdef FEAT_FLOAT
10259/*
10260 * "exp()" function
10261 */
10262 static void
10263f_exp(argvars, rettv)
10264 typval_T *argvars;
10265 typval_T *rettv;
10266{
10267 float_T f;
10268
10269 rettv->v_type = VAR_FLOAT;
10270 if (get_float_arg(argvars, &f) == OK)
10271 rettv->vval.v_float = exp(f);
10272 else
10273 rettv->vval.v_float = 0.0;
10274}
10275#endif
10276
Bram Moolenaar071d4272004-06-13 20:20:40 +000010277/*
10278 * "expand()" function
10279 */
10280 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010281f_expand(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010282 typval_T *argvars;
10283 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010284{
10285 char_u *s;
10286 int len;
10287 char_u *errormsg;
Bram Moolenaar005c3c22010-12-02 21:44:40 +010010288 int options = WILD_SILENT|WILD_USE_NL|WILD_LIST_NOTFOUND;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010289 expand_T xpc;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010290 int error = FALSE;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010010291 char_u *result;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010292
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010293 rettv->v_type = VAR_STRING;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010010294 if (argvars[1].v_type != VAR_UNKNOWN
10295 && argvars[2].v_type != VAR_UNKNOWN
10296 && get_tv_number_chk(&argvars[2], &error)
10297 && !error)
10298 {
10299 rettv->v_type = VAR_LIST;
10300 rettv->vval.v_list = NULL;
10301 }
10302
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010303 s = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010304 if (*s == '%' || *s == '#' || *s == '<')
10305 {
10306 ++emsg_off;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010010307 result = eval_vars(s, s, &len, NULL, &errormsg, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010308 --emsg_off;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010010309 if (rettv->v_type == VAR_LIST)
10310 {
10311 if (rettv_list_alloc(rettv) != FAIL && result != NULL)
10312 list_append_string(rettv->vval.v_list, result, -1);
10313 else
10314 vim_free(result);
10315 }
10316 else
10317 rettv->vval.v_string = result;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010318 }
10319 else
10320 {
10321 /* When the optional second argument is non-zero, don't remove matches
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000010322 * for 'wildignore' and don't put matches for 'suffixes' at the end. */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010323 if (argvars[1].v_type != VAR_UNKNOWN
10324 && get_tv_number_chk(&argvars[1], &error))
Bram Moolenaar005c3c22010-12-02 21:44:40 +010010325 options |= WILD_KEEP_ALL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010326 if (!error)
10327 {
10328 ExpandInit(&xpc);
10329 xpc.xp_context = EXPAND_FILES;
Bram Moolenaar005c3c22010-12-02 21:44:40 +010010330 if (p_wic)
10331 options += WILD_ICASE;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010010332 if (rettv->v_type == VAR_STRING)
10333 rettv->vval.v_string = ExpandOne(&xpc, s, NULL,
10334 options, WILD_ALL);
10335 else if (rettv_list_alloc(rettv) != FAIL)
10336 {
10337 int i;
10338
10339 ExpandOne(&xpc, s, NULL, options, WILD_ALL_KEEP);
10340 for (i = 0; i < xpc.xp_numfiles; i++)
10341 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
10342 ExpandCleanup(&xpc);
10343 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010344 }
10345 else
10346 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010347 }
10348}
10349
10350/*
Bram Moolenaara9922d62013-05-30 13:01:18 +020010351 * Go over all entries in "d2" and add them to "d1".
10352 * When "action" is "error" then a duplicate key is an error.
10353 * When "action" is "force" then a duplicate key is overwritten.
10354 * Otherwise duplicate keys are ignored ("action" is "keep").
10355 */
10356 void
10357dict_extend(d1, d2, action)
10358 dict_T *d1;
10359 dict_T *d2;
10360 char_u *action;
10361{
10362 dictitem_T *di1;
10363 hashitem_T *hi2;
10364 int todo;
10365
10366 todo = (int)d2->dv_hashtab.ht_used;
10367 for (hi2 = d2->dv_hashtab.ht_array; todo > 0; ++hi2)
10368 {
10369 if (!HASHITEM_EMPTY(hi2))
10370 {
10371 --todo;
10372 di1 = dict_find(d1, hi2->hi_key, -1);
10373 if (d1->dv_scope != 0)
10374 {
10375 /* Disallow replacing a builtin function in l: and g:.
10376 * Check the key to be valid when adding to any
10377 * scope. */
10378 if (d1->dv_scope == VAR_DEF_SCOPE
10379 && HI2DI(hi2)->di_tv.v_type == VAR_FUNC
10380 && var_check_func_name(hi2->hi_key,
10381 di1 == NULL))
10382 break;
10383 if (!valid_varname(hi2->hi_key))
10384 break;
10385 }
10386 if (di1 == NULL)
10387 {
10388 di1 = dictitem_copy(HI2DI(hi2));
10389 if (di1 != NULL && dict_add(d1, di1) == FAIL)
10390 dictitem_free(di1);
10391 }
10392 else if (*action == 'e')
10393 {
10394 EMSG2(_("E737: Key already exists: %s"), hi2->hi_key);
10395 break;
10396 }
10397 else if (*action == 'f' && HI2DI(hi2) != di1)
10398 {
10399 clear_tv(&di1->di_tv);
10400 copy_tv(&HI2DI(hi2)->di_tv, &di1->di_tv);
10401 }
10402 }
10403 }
10404}
10405
10406/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010407 * "extend(list, list [, idx])" function
Bram Moolenaare9a41262005-01-15 22:18:47 +000010408 * "extend(dict, dict [, action])" function
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010409 */
10410 static void
10411f_extend(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010412 typval_T *argvars;
10413 typval_T *rettv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010414{
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010415 char *arg_errmsg = N_("extend() argument");
10416
Bram Moolenaare9a41262005-01-15 22:18:47 +000010417 if (argvars[0].v_type == VAR_LIST && argvars[1].v_type == VAR_LIST)
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010418 {
Bram Moolenaar33570922005-01-25 22:26:29 +000010419 list_T *l1, *l2;
10420 listitem_T *item;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010421 long before;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010422 int error = FALSE;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010423
Bram Moolenaare9a41262005-01-15 22:18:47 +000010424 l1 = argvars[0].vval.v_list;
10425 l2 = argvars[1].vval.v_list;
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010426 if (l1 != NULL && !tv_check_lock(l1->lv_lock, (char_u *)_(arg_errmsg))
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000010427 && l2 != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000010428 {
10429 if (argvars[2].v_type != VAR_UNKNOWN)
10430 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010431 before = get_tv_number_chk(&argvars[2], &error);
10432 if (error)
10433 return; /* type error; errmsg already given */
10434
Bram Moolenaar758711c2005-02-02 23:11:38 +000010435 if (before == l1->lv_len)
10436 item = NULL;
10437 else
Bram Moolenaare9a41262005-01-15 22:18:47 +000010438 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000010439 item = list_find(l1, before);
10440 if (item == NULL)
10441 {
10442 EMSGN(_(e_listidx), before);
10443 return;
10444 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000010445 }
10446 }
10447 else
10448 item = NULL;
10449 list_extend(l1, l2, item);
10450
Bram Moolenaare9a41262005-01-15 22:18:47 +000010451 copy_tv(&argvars[0], rettv);
10452 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010453 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000010454 else if (argvars[0].v_type == VAR_DICT && argvars[1].v_type == VAR_DICT)
10455 {
Bram Moolenaara9922d62013-05-30 13:01:18 +020010456 dict_T *d1, *d2;
10457 char_u *action;
10458 int i;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010459
10460 d1 = argvars[0].vval.v_dict;
10461 d2 = argvars[1].vval.v_dict;
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010462 if (d1 != NULL && !tv_check_lock(d1->dv_lock, (char_u *)_(arg_errmsg))
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000010463 && d2 != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000010464 {
10465 /* Check the third argument. */
10466 if (argvars[2].v_type != VAR_UNKNOWN)
10467 {
10468 static char *(av[]) = {"keep", "force", "error"};
10469
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010470 action = get_tv_string_chk(&argvars[2]);
10471 if (action == NULL)
10472 return; /* type error; errmsg already given */
Bram Moolenaare9a41262005-01-15 22:18:47 +000010473 for (i = 0; i < 3; ++i)
10474 if (STRCMP(action, av[i]) == 0)
10475 break;
10476 if (i == 3)
10477 {
Bram Moolenaareb3593b2006-04-22 22:33:57 +000010478 EMSG2(_(e_invarg2), action);
Bram Moolenaare9a41262005-01-15 22:18:47 +000010479 return;
10480 }
10481 }
10482 else
10483 action = (char_u *)"force";
10484
Bram Moolenaara9922d62013-05-30 13:01:18 +020010485 dict_extend(d1, d2, action);
Bram Moolenaare9a41262005-01-15 22:18:47 +000010486
Bram Moolenaare9a41262005-01-15 22:18:47 +000010487 copy_tv(&argvars[0], rettv);
10488 }
10489 }
10490 else
10491 EMSG2(_(e_listdictarg), "extend()");
Bram Moolenaar8a283e52005-01-06 23:28:25 +000010492}
10493
10494/*
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010495 * "feedkeys()" function
10496 */
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010497 static void
10498f_feedkeys(argvars, rettv)
10499 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000010500 typval_T *rettv UNUSED;
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010501{
10502 int remap = TRUE;
10503 char_u *keys, *flags;
10504 char_u nbuf[NUMBUFLEN];
10505 int typed = FALSE;
Bram Moolenaarf193fff2006-04-27 00:02:13 +000010506 char_u *keys_esc;
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010507
Bram Moolenaar3d43a662007-04-27 20:15:55 +000010508 /* This is not allowed in the sandbox. If the commands would still be
10509 * executed in the sandbox it would be OK, but it probably happens later,
10510 * when "sandbox" is no longer set. */
10511 if (check_secure())
10512 return;
10513
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010514 keys = get_tv_string(&argvars[0]);
10515 if (*keys != NUL)
10516 {
10517 if (argvars[1].v_type != VAR_UNKNOWN)
10518 {
10519 flags = get_tv_string_buf(&argvars[1], nbuf);
10520 for ( ; *flags != NUL; ++flags)
10521 {
10522 switch (*flags)
10523 {
10524 case 'n': remap = FALSE; break;
10525 case 'm': remap = TRUE; break;
10526 case 't': typed = TRUE; break;
10527 }
10528 }
10529 }
10530
Bram Moolenaarf193fff2006-04-27 00:02:13 +000010531 /* Need to escape K_SPECIAL and CSI before putting the string in the
10532 * typeahead buffer. */
10533 keys_esc = vim_strsave_escape_csi(keys);
10534 if (keys_esc != NULL)
10535 {
10536 ins_typebuf(keys_esc, (remap ? REMAP_YES : REMAP_NONE),
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010537 typebuf.tb_len, !typed, FALSE);
Bram Moolenaarf193fff2006-04-27 00:02:13 +000010538 vim_free(keys_esc);
Bram Moolenaar437df8f2006-04-27 21:47:44 +000010539 if (vgetc_busy)
10540 typebuf_was_filled = TRUE;
Bram Moolenaarf193fff2006-04-27 00:02:13 +000010541 }
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000010542 }
10543}
10544
10545/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000010546 * "filereadable()" function
10547 */
10548 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010549f_filereadable(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010550 typval_T *argvars;
10551 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010552{
Bram Moolenaarc236c162008-07-13 17:41:49 +000010553 int fd;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010554 char_u *p;
10555 int n;
10556
Bram Moolenaarc236c162008-07-13 17:41:49 +000010557#ifndef O_NONBLOCK
10558# define O_NONBLOCK 0
10559#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010560 p = get_tv_string(&argvars[0]);
Bram Moolenaarc236c162008-07-13 17:41:49 +000010561 if (*p && !mch_isdir(p) && (fd = mch_open((char *)p,
10562 O_RDONLY | O_NONBLOCK, 0)) >= 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000010563 {
10564 n = TRUE;
Bram Moolenaarc236c162008-07-13 17:41:49 +000010565 close(fd);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010566 }
10567 else
10568 n = FALSE;
10569
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010570 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010571}
10572
10573/*
Bram Moolenaar0e4d8772005-06-07 21:12:49 +000010574 * Return 0 for not writable, 1 for writable file, 2 for a dir which we have
Bram Moolenaar071d4272004-06-13 20:20:40 +000010575 * rights to write into.
10576 */
10577 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010578f_filewritable(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010579 typval_T *argvars;
10580 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010581{
Bram Moolenaar0e4d8772005-06-07 21:12:49 +000010582 rettv->vval.v_number = filewritable(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000010583}
10584
Bram Moolenaar4d0ec162008-02-20 11:24:52 +000010585static void findfilendir __ARGS((typval_T *argvars, typval_T *rettv, int find_what));
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010586
10587 static void
Bram Moolenaar4d0ec162008-02-20 11:24:52 +000010588findfilendir(argvars, rettv, find_what)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010010589 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000010590 typval_T *rettv;
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010010591 int find_what UNUSED;
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010592{
10593#ifdef FEAT_SEARCHPATH
10594 char_u *fname;
10595 char_u *fresult = NULL;
10596 char_u *path = *curbuf->b_p_path == NUL ? p_path : curbuf->b_p_path;
10597 char_u *p;
10598 char_u pathbuf[NUMBUFLEN];
10599 int count = 1;
10600 int first = TRUE;
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010601 int error = FALSE;
10602#endif
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010603
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010604 rettv->vval.v_string = NULL;
10605 rettv->v_type = VAR_STRING;
10606
10607#ifdef FEAT_SEARCHPATH
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010608 fname = get_tv_string(&argvars[0]);
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010609
Bram Moolenaar49cd9572005-01-03 21:06:01 +000010610 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010611 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010612 p = get_tv_string_buf_chk(&argvars[1], pathbuf);
10613 if (p == NULL)
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010614 error = TRUE;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010615 else
10616 {
10617 if (*p != NUL)
10618 path = p;
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010619
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010620 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010621 count = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010622 }
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010623 }
10624
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010625 if (count < 0 && rettv_list_alloc(rettv) == FAIL)
10626 error = TRUE;
10627
10628 if (*fname != NUL && !error)
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010629 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010630 do
10631 {
Bram Moolenaardf2bc272013-06-24 22:17:32 +020010632 if (rettv->v_type == VAR_STRING || rettv->v_type == VAR_LIST)
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010633 vim_free(fresult);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010634 fresult = find_file_in_path_option(first ? fname : NULL,
10635 first ? (int)STRLEN(fname) : 0,
Bram Moolenaar4d0ec162008-02-20 11:24:52 +000010636 0, first, path,
10637 find_what,
10638 curbuf->b_ffname,
10639 find_what == FINDFILE_DIR
10640 ? (char_u *)"" : curbuf->b_p_sua);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010641 first = FALSE;
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010642
10643 if (fresult != NULL && rettv->v_type == VAR_LIST)
10644 list_append_string(rettv->vval.v_list, fresult, -1);
10645
10646 } while ((rettv->v_type == VAR_LIST || --count > 0) && fresult != NULL);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010647 }
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010648
Bram Moolenaar899dddf2006-03-26 21:06:50 +000010649 if (rettv->v_type == VAR_STRING)
10650 rettv->vval.v_string = fresult;
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010651#endif
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010652}
10653
Bram Moolenaar33570922005-01-25 22:26:29 +000010654static void filter_map __ARGS((typval_T *argvars, typval_T *rettv, int map));
10655static int filter_map_one __ARGS((typval_T *tv, char_u *expr, int map, int *remp));
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010656
10657/*
10658 * Implementation of map() and filter().
10659 */
10660 static void
10661filter_map(argvars, rettv, map)
Bram Moolenaar33570922005-01-25 22:26:29 +000010662 typval_T *argvars;
10663 typval_T *rettv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010664 int map;
10665{
10666 char_u buf[NUMBUFLEN];
Bram Moolenaare9a41262005-01-15 22:18:47 +000010667 char_u *expr;
Bram Moolenaar33570922005-01-25 22:26:29 +000010668 listitem_T *li, *nli;
10669 list_T *l = NULL;
10670 dictitem_T *di;
10671 hashtab_T *ht;
10672 hashitem_T *hi;
10673 dict_T *d = NULL;
10674 typval_T save_val;
10675 typval_T save_key;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010676 int rem;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000010677 int todo;
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010678 char_u *ermsg = (char_u *)(map ? "map()" : "filter()");
10679 char *arg_errmsg = (map ? N_("map() argument")
10680 : N_("filter() argument"));
Bram Moolenaar1f35bf92006-03-07 22:38:47 +000010681 int save_did_emsg;
Bram Moolenaarf506c5b2010-06-22 06:28:58 +020010682 int idx = 0;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010683
Bram Moolenaare9a41262005-01-15 22:18:47 +000010684 if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010685 {
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000010686 if ((l = argvars[0].vval.v_list) == NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010687 || tv_check_lock(l->lv_lock, (char_u *)_(arg_errmsg)))
Bram Moolenaare9a41262005-01-15 22:18:47 +000010688 return;
10689 }
10690 else if (argvars[0].v_type == VAR_DICT)
10691 {
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000010692 if ((d = argvars[0].vval.v_dict) == NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010693 || tv_check_lock(d->dv_lock, (char_u *)_(arg_errmsg)))
Bram Moolenaare9a41262005-01-15 22:18:47 +000010694 return;
10695 }
10696 else
10697 {
Bram Moolenaar89d40322006-08-29 15:30:07 +000010698 EMSG2(_(e_listdictarg), ermsg);
Bram Moolenaare9a41262005-01-15 22:18:47 +000010699 return;
10700 }
10701
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010702 expr = get_tv_string_buf_chk(&argvars[1], buf);
10703 /* On type errors, the preceding call has already displayed an error
10704 * message. Avoid a misleading error message for an empty string that
10705 * was not passed as argument. */
10706 if (expr != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000010707 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010708 prepare_vimvar(VV_VAL, &save_val);
10709 expr = skipwhite(expr);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000010710
Bram Moolenaar1f35bf92006-03-07 22:38:47 +000010711 /* We reset "did_emsg" to be able to detect whether an error
10712 * occurred during evaluation of the expression. */
10713 save_did_emsg = did_emsg;
10714 did_emsg = FALSE;
Bram Moolenaar280f1262006-01-30 00:14:18 +000010715
Bram Moolenaar627b1d32009-11-17 11:20:35 +000010716 prepare_vimvar(VV_KEY, &save_key);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010717 if (argvars[0].v_type == VAR_DICT)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010718 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010719 vimvars[VV_KEY].vv_type = VAR_STRING;
10720
10721 ht = &d->dv_hashtab;
10722 hash_lock(ht);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000010723 todo = (int)ht->ht_used;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010724 for (hi = ht->ht_array; todo > 0; ++hi)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010725 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010726 if (!HASHITEM_EMPTY(hi))
10727 {
Bram Moolenaarb738c9a2014-11-19 20:04:48 +010010728 int r;
10729
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010730 --todo;
10731 di = HI2DI(hi);
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010732 if (tv_check_lock(di->di_tv.v_lock,
10733 (char_u *)_(arg_errmsg)))
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010734 break;
10735 vimvars[VV_KEY].vv_str = vim_strsave(di->di_key);
Bram Moolenaarb738c9a2014-11-19 20:04:48 +010010736 r = filter_map_one(&di->di_tv, expr, map, &rem);
10737 clear_tv(&vimvars[VV_KEY].vv_tv);
10738 if (r == FAIL || did_emsg)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010739 break;
10740 if (!map && rem)
10741 dictitem_remove(d, di);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010742 }
10743 }
10744 hash_unlock(ht);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010745 }
10746 else
10747 {
Bram Moolenaar627b1d32009-11-17 11:20:35 +000010748 vimvars[VV_KEY].vv_type = VAR_NUMBER;
10749
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010750 for (li = l->lv_first; li != NULL; li = nli)
10751 {
Bram Moolenaar32f649e2011-04-11 13:46:13 +020010752 if (tv_check_lock(li->li_tv.v_lock, (char_u *)_(arg_errmsg)))
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000010753 break;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010754 nli = li->li_next;
Bram Moolenaarf506c5b2010-06-22 06:28:58 +020010755 vimvars[VV_KEY].vv_nr = idx;
Bram Moolenaar280f1262006-01-30 00:14:18 +000010756 if (filter_map_one(&li->li_tv, expr, map, &rem) == FAIL
Bram Moolenaar1f35bf92006-03-07 22:38:47 +000010757 || did_emsg)
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000010758 break;
10759 if (!map && rem)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010760 listitem_remove(l, li);
Bram Moolenaarf506c5b2010-06-22 06:28:58 +020010761 ++idx;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010762 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010763 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000010764
Bram Moolenaar627b1d32009-11-17 11:20:35 +000010765 restore_vimvar(VV_KEY, &save_key);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010766 restore_vimvar(VV_VAL, &save_val);
Bram Moolenaar280f1262006-01-30 00:14:18 +000010767
Bram Moolenaar1f35bf92006-03-07 22:38:47 +000010768 did_emsg |= save_did_emsg;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010769 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000010770
10771 copy_tv(&argvars[0], rettv);
10772}
10773
10774 static int
10775filter_map_one(tv, expr, map, remp)
Bram Moolenaar33570922005-01-25 22:26:29 +000010776 typval_T *tv;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010777 char_u *expr;
10778 int map;
10779 int *remp;
10780{
Bram Moolenaar33570922005-01-25 22:26:29 +000010781 typval_T rettv;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010782 char_u *s;
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010783 int retval = FAIL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010784
Bram Moolenaar33570922005-01-25 22:26:29 +000010785 copy_tv(tv, &vimvars[VV_VAL].vv_tv);
Bram Moolenaare9a41262005-01-15 22:18:47 +000010786 s = expr;
10787 if (eval1(&s, &rettv, TRUE) == FAIL)
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010788 goto theend;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010789 if (*s != NUL) /* check for trailing chars after expr */
10790 {
10791 EMSG2(_(e_invexpr2), s);
Bram Moolenaarb738c9a2014-11-19 20:04:48 +010010792 clear_tv(&rettv);
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010793 goto theend;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010794 }
10795 if (map)
10796 {
10797 /* map(): replace the list item value */
10798 clear_tv(tv);
Bram Moolenaar4463f292005-09-25 22:20:24 +000010799 rettv.v_lock = 0;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010800 *tv = rettv;
10801 }
10802 else
10803 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010804 int error = FALSE;
10805
Bram Moolenaare9a41262005-01-15 22:18:47 +000010806 /* filter(): when expr is zero remove the item */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010807 *remp = (get_tv_number_chk(&rettv, &error) == 0);
Bram Moolenaare9a41262005-01-15 22:18:47 +000010808 clear_tv(&rettv);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010809 /* On type error, nothing has been removed; return FAIL to stop the
10810 * loop. The error message was given by get_tv_number_chk(). */
10811 if (error)
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010812 goto theend;
Bram Moolenaare9a41262005-01-15 22:18:47 +000010813 }
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010814 retval = OK;
10815theend:
Bram Moolenaar33570922005-01-25 22:26:29 +000010816 clear_tv(&vimvars[VV_VAL].vv_tv);
Bram Moolenaarb4066a12007-09-17 19:38:08 +000010817 return retval;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010818}
10819
10820/*
10821 * "filter()" function
10822 */
10823 static void
10824f_filter(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010825 typval_T *argvars;
10826 typval_T *rettv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000010827{
10828 filter_map(argvars, rettv, FALSE);
10829}
10830
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000010831/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000010832 * "finddir({fname}[, {path}[, {count}]])" function
10833 */
10834 static void
10835f_finddir(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010836 typval_T *argvars;
10837 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000010838{
Bram Moolenaar4d0ec162008-02-20 11:24:52 +000010839 findfilendir(argvars, rettv, FINDFILE_DIR);
Bram Moolenaar0d660222005-01-07 21:51:51 +000010840}
10841
10842/*
10843 * "findfile({fname}[, {path}[, {count}]])" function
10844 */
10845 static void
10846f_findfile(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010847 typval_T *argvars;
10848 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000010849{
Bram Moolenaar4d0ec162008-02-20 11:24:52 +000010850 findfilendir(argvars, rettv, FINDFILE_FILE);
Bram Moolenaar0d660222005-01-07 21:51:51 +000010851}
10852
Bram Moolenaar8c8de832008-06-24 22:58:06 +000010853#ifdef FEAT_FLOAT
10854/*
10855 * "float2nr({float})" function
10856 */
10857 static void
10858f_float2nr(argvars, rettv)
10859 typval_T *argvars;
10860 typval_T *rettv;
10861{
10862 float_T f;
10863
10864 if (get_float_arg(argvars, &f) == OK)
10865 {
10866 if (f < -0x7fffffff)
10867 rettv->vval.v_number = -0x7fffffff;
10868 else if (f > 0x7fffffff)
10869 rettv->vval.v_number = 0x7fffffff;
10870 else
10871 rettv->vval.v_number = (varnumber_T)f;
10872 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +000010873}
10874
10875/*
10876 * "floor({float})" function
10877 */
10878 static void
10879f_floor(argvars, rettv)
10880 typval_T *argvars;
10881 typval_T *rettv;
10882{
10883 float_T f;
10884
10885 rettv->v_type = VAR_FLOAT;
10886 if (get_float_arg(argvars, &f) == OK)
10887 rettv->vval.v_float = floor(f);
10888 else
10889 rettv->vval.v_float = 0.0;
10890}
Bram Moolenaardb7c6862010-05-21 16:33:48 +020010891
10892/*
10893 * "fmod()" function
10894 */
10895 static void
10896f_fmod(argvars, rettv)
10897 typval_T *argvars;
10898 typval_T *rettv;
10899{
10900 float_T fx, fy;
10901
10902 rettv->v_type = VAR_FLOAT;
10903 if (get_float_arg(argvars, &fx) == OK
10904 && get_float_arg(&argvars[1], &fy) == OK)
10905 rettv->vval.v_float = fmod(fx, fy);
10906 else
10907 rettv->vval.v_float = 0.0;
10908}
Bram Moolenaar8c8de832008-06-24 22:58:06 +000010909#endif
10910
Bram Moolenaar0d660222005-01-07 21:51:51 +000010911/*
Bram Moolenaaraebaf892008-05-28 14:49:58 +000010912 * "fnameescape({string})" function
10913 */
10914 static void
10915f_fnameescape(argvars, rettv)
10916 typval_T *argvars;
10917 typval_T *rettv;
10918{
10919 rettv->vval.v_string = vim_strsave_fnameescape(
10920 get_tv_string(&argvars[0]), FALSE);
10921 rettv->v_type = VAR_STRING;
10922}
10923
10924/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000010925 * "fnamemodify({fname}, {mods})" function
10926 */
10927 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010928f_fnamemodify(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010929 typval_T *argvars;
10930 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010931{
10932 char_u *fname;
10933 char_u *mods;
10934 int usedlen = 0;
10935 int len;
10936 char_u *fbuf = NULL;
10937 char_u buf[NUMBUFLEN];
10938
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000010939 fname = get_tv_string_chk(&argvars[0]);
10940 mods = get_tv_string_buf_chk(&argvars[1], buf);
10941 if (fname == NULL || mods == NULL)
10942 fname = NULL;
10943 else
10944 {
10945 len = (int)STRLEN(fname);
10946 (void)modify_fname(mods, &usedlen, &fname, &fbuf, &len);
10947 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000010948
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010949 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010950 if (fname == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010951 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010952 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010953 rettv->vval.v_string = vim_strnsave(fname, len);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010954 vim_free(fbuf);
10955}
10956
Bram Moolenaar33570922005-01-25 22:26:29 +000010957static void foldclosed_both __ARGS((typval_T *argvars, typval_T *rettv, int end));
Bram Moolenaar071d4272004-06-13 20:20:40 +000010958
10959/*
10960 * "foldclosed()" function
10961 */
10962 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010963foldclosed_both(argvars, rettv, end)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010010964 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000010965 typval_T *rettv;
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010010966 int end UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010967{
10968#ifdef FEAT_FOLDING
10969 linenr_T lnum;
10970 linenr_T first, last;
10971
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010972 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +000010973 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
10974 {
10975 if (hasFoldingWin(curwin, lnum, &first, &last, FALSE, NULL))
10976 {
10977 if (end)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010978 rettv->vval.v_number = (varnumber_T)last;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010979 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010980 rettv->vval.v_number = (varnumber_T)first;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010981 return;
10982 }
10983 }
10984#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000010985 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000010986}
10987
10988/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000010989 * "foldclosed()" function
10990 */
10991 static void
10992f_foldclosed(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000010993 typval_T *argvars;
10994 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000010995{
10996 foldclosed_both(argvars, rettv, FALSE);
10997}
10998
10999/*
11000 * "foldclosedend()" function
11001 */
11002 static void
11003f_foldclosedend(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011004 typval_T *argvars;
11005 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011006{
11007 foldclosed_both(argvars, rettv, TRUE);
11008}
11009
11010/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011011 * "foldlevel()" function
11012 */
11013 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011014f_foldlevel(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010011015 typval_T *argvars UNUSED;
11016 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011017{
11018#ifdef FEAT_FOLDING
11019 linenr_T lnum;
11020
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011021 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011022 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011023 rettv->vval.v_number = foldLevel(lnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011024#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000011025}
11026
11027/*
11028 * "foldtext()" function
11029 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011030 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011031f_foldtext(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011032 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011033 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011034{
11035#ifdef FEAT_FOLDING
11036 linenr_T lnum;
11037 char_u *s;
11038 char_u *r;
11039 int len;
11040 char *txt;
11041#endif
11042
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011043 rettv->v_type = VAR_STRING;
11044 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011045#ifdef FEAT_FOLDING
Bram Moolenaare9a41262005-01-15 22:18:47 +000011046 if ((linenr_T)vimvars[VV_FOLDSTART].vv_nr > 0
11047 && (linenr_T)vimvars[VV_FOLDEND].vv_nr
11048 <= curbuf->b_ml.ml_line_count
11049 && vimvars[VV_FOLDDASHES].vv_str != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000011050 {
11051 /* Find first non-empty line in the fold. */
Bram Moolenaare9a41262005-01-15 22:18:47 +000011052 lnum = (linenr_T)vimvars[VV_FOLDSTART].vv_nr;
11053 while (lnum < (linenr_T)vimvars[VV_FOLDEND].vv_nr)
Bram Moolenaar071d4272004-06-13 20:20:40 +000011054 {
11055 if (!linewhite(lnum))
11056 break;
11057 ++lnum;
11058 }
11059
11060 /* Find interesting text in this line. */
11061 s = skipwhite(ml_get(lnum));
11062 /* skip C comment-start */
11063 if (s[0] == '/' && (s[1] == '*' || s[1] == '/'))
Bram Moolenaar293ee4d2004-12-09 21:34:53 +000011064 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000011065 s = skipwhite(s + 2);
Bram Moolenaar293ee4d2004-12-09 21:34:53 +000011066 if (*skipwhite(s) == NUL
Bram Moolenaare9a41262005-01-15 22:18:47 +000011067 && lnum + 1 < (linenr_T)vimvars[VV_FOLDEND].vv_nr)
Bram Moolenaar293ee4d2004-12-09 21:34:53 +000011068 {
11069 s = skipwhite(ml_get(lnum + 1));
11070 if (*s == '*')
11071 s = skipwhite(s + 1);
11072 }
11073 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000011074 txt = _("+-%s%3ld lines: ");
11075 r = alloc((unsigned)(STRLEN(txt)
Bram Moolenaare9a41262005-01-15 22:18:47 +000011076 + STRLEN(vimvars[VV_FOLDDASHES].vv_str) /* for %s */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011077 + 20 /* for %3ld */
11078 + STRLEN(s))); /* concatenated */
11079 if (r != NULL)
11080 {
Bram Moolenaare9a41262005-01-15 22:18:47 +000011081 sprintf((char *)r, txt, vimvars[VV_FOLDDASHES].vv_str,
11082 (long)((linenr_T)vimvars[VV_FOLDEND].vv_nr
11083 - (linenr_T)vimvars[VV_FOLDSTART].vv_nr + 1));
Bram Moolenaar071d4272004-06-13 20:20:40 +000011084 len = (int)STRLEN(r);
11085 STRCAT(r, s);
11086 /* remove 'foldmarker' and 'commentstring' */
11087 foldtext_cleanup(r + len);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011088 rettv->vval.v_string = r;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011089 }
11090 }
11091#endif
11092}
11093
11094/*
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011095 * "foldtextresult(lnum)" function
11096 */
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011097 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011098f_foldtextresult(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011099 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011100 typval_T *rettv;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011101{
11102#ifdef FEAT_FOLDING
11103 linenr_T lnum;
11104 char_u *text;
11105 char_u buf[51];
11106 foldinfo_T foldinfo;
11107 int fold_count;
11108#endif
11109
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011110 rettv->v_type = VAR_STRING;
11111 rettv->vval.v_string = NULL;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011112#ifdef FEAT_FOLDING
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011113 lnum = get_tv_lnum(argvars);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011114 /* treat illegal types and illegal string values for {lnum} the same */
11115 if (lnum < 0)
11116 lnum = 0;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011117 fold_count = foldedCount(curwin, lnum, &foldinfo);
11118 if (fold_count > 0)
11119 {
11120 text = get_foldtext(curwin, lnum, lnum + fold_count - 1,
11121 &foldinfo, buf);
11122 if (text == buf)
11123 text = vim_strsave(text);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011124 rettv->vval.v_string = text;
Bram Moolenaar7b0294c2004-10-11 10:16:09 +000011125 }
11126#endif
11127}
11128
11129/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011130 * "foreground()" function
11131 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011132 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011133f_foreground(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011134 typval_T *argvars UNUSED;
11135 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011136{
Bram Moolenaar071d4272004-06-13 20:20:40 +000011137#ifdef FEAT_GUI
11138 if (gui.in_use)
11139 gui_mch_set_foreground();
11140#else
11141# ifdef WIN32
11142 win32_set_foreground();
11143# endif
11144#endif
11145}
11146
11147/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011148 * "function()" function
11149 */
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011150 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011151f_function(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011152 typval_T *argvars;
11153 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011154{
11155 char_u *s;
11156
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011157 s = get_tv_string(&argvars[0]);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000011158 if (s == NULL || *s == NUL || VIM_ISDIGIT(*s))
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011159 EMSG2(_(e_invarg2), s);
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011160 /* Don't check an autoload name for existence here. */
11161 else if (vim_strchr(s, AUTOLOAD_CHAR) == NULL && !function_exists(s))
Bram Moolenaare49b69a2005-01-08 16:11:57 +000011162 EMSG2(_("E700: Unknown function: %s"), s);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011163 else
11164 {
Bram Moolenaar0c6633a2013-06-13 21:24:06 +020011165 if (STRNCMP(s, "s:", 2) == 0 || STRNCMP(s, "<SID>", 5) == 0)
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011166 {
11167 char sid_buf[25];
Bram Moolenaar0c6633a2013-06-13 21:24:06 +020011168 int off = *s == 's' ? 2 : 5;
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011169
Bram Moolenaar0c6633a2013-06-13 21:24:06 +020011170 /* Expand s: and <SID> into <SNR>nr_, so that the function can
11171 * also be called from another script. Using trans_function_name()
11172 * would also work, but some plugins depend on the name being
11173 * printable text. */
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011174 sprintf(sid_buf, "<SNR>%ld_", (long)current_SID);
Bram Moolenaaredb07a22013-06-12 18:13:38 +020011175 rettv->vval.v_string =
Bram Moolenaar0c6633a2013-06-13 21:24:06 +020011176 alloc((int)(STRLEN(sid_buf) + STRLEN(s + off) + 1));
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011177 if (rettv->vval.v_string != NULL)
11178 {
11179 STRCPY(rettv->vval.v_string, sid_buf);
Bram Moolenaar0c6633a2013-06-13 21:24:06 +020011180 STRCAT(rettv->vval.v_string, s + off);
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011181 }
11182 }
Bram Moolenaara1544c02013-05-30 12:35:52 +020011183 else
Bram Moolenaar60bf1f52013-06-12 13:37:43 +020011184 rettv->vval.v_string = vim_strsave(s);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011185 rettv->v_type = VAR_FUNC;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011186 }
11187}
11188
11189/*
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000011190 * "garbagecollect()" function
11191 */
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000011192 static void
11193f_garbagecollect(argvars, rettv)
11194 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011195 typval_T *rettv UNUSED;
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000011196{
Bram Moolenaar9fecb462006-09-05 10:59:47 +000011197 /* This is postponed until we are back at the toplevel, because we may be
11198 * using Lists and Dicts internally. E.g.: ":echo [garbagecollect()]". */
11199 want_garbage_collect = TRUE;
Bram Moolenaar9d2c8c12007-09-25 16:00:00 +000011200
11201 if (argvars[0].v_type != VAR_UNKNOWN && get_tv_number(&argvars[0]) == 1)
11202 garbage_collect_at_exit = TRUE;
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000011203}
11204
11205/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000011206 * "get()" function
11207 */
11208 static void
11209f_get(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011210 typval_T *argvars;
11211 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011212{
Bram Moolenaar33570922005-01-25 22:26:29 +000011213 listitem_T *li;
11214 list_T *l;
11215 dictitem_T *di;
11216 dict_T *d;
11217 typval_T *tv = NULL;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011218
Bram Moolenaare9a41262005-01-15 22:18:47 +000011219 if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar0d660222005-01-07 21:51:51 +000011220 {
Bram Moolenaare9a41262005-01-15 22:18:47 +000011221 if ((l = argvars[0].vval.v_list) != NULL)
Bram Moolenaar0d660222005-01-07 21:51:51 +000011222 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011223 int error = FALSE;
11224
11225 li = list_find(l, get_tv_number_chk(&argvars[1], &error));
11226 if (!error && li != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000011227 tv = &li->li_tv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011228 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000011229 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000011230 else if (argvars[0].v_type == VAR_DICT)
11231 {
11232 if ((d = argvars[0].vval.v_dict) != NULL)
11233 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000011234 di = dict_find(d, get_tv_string(&argvars[1]), -1);
Bram Moolenaare9a41262005-01-15 22:18:47 +000011235 if (di != NULL)
11236 tv = &di->di_tv;
11237 }
11238 }
11239 else
11240 EMSG2(_(e_listdictarg), "get()");
11241
11242 if (tv == NULL)
11243 {
Bram Moolenaar798b30b2009-04-22 10:56:16 +000011244 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaare9a41262005-01-15 22:18:47 +000011245 copy_tv(&argvars[2], rettv);
11246 }
11247 else
11248 copy_tv(tv, rettv);
Bram Moolenaar0d660222005-01-07 21:51:51 +000011249}
11250
Bram Moolenaar342337a2005-07-21 21:11:17 +000011251static void get_buffer_lines __ARGS((buf_T *buf, linenr_T start, linenr_T end, int retlist, typval_T *rettv));
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011252
11253/*
11254 * Get line or list of lines from buffer "buf" into "rettv".
Bram Moolenaar342337a2005-07-21 21:11:17 +000011255 * Return a range (from start to end) of lines in rettv from the specified
11256 * buffer.
11257 * If 'retlist' is TRUE, then the lines are returned as a Vim List.
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011258 */
11259 static void
Bram Moolenaar342337a2005-07-21 21:11:17 +000011260get_buffer_lines(buf, start, end, retlist, rettv)
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011261 buf_T *buf;
11262 linenr_T start;
11263 linenr_T end;
Bram Moolenaar342337a2005-07-21 21:11:17 +000011264 int retlist;
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011265 typval_T *rettv;
11266{
11267 char_u *p;
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011268
Bram Moolenaar959a1432013-12-14 12:17:38 +010011269 rettv->v_type = VAR_STRING;
11270 rettv->vval.v_string = NULL;
Bram Moolenaar798b30b2009-04-22 10:56:16 +000011271 if (retlist && rettv_list_alloc(rettv) == FAIL)
11272 return;
Bram Moolenaar342337a2005-07-21 21:11:17 +000011273
11274 if (buf == NULL || buf->b_ml.ml_mfp == NULL || start < 0)
11275 return;
11276
11277 if (!retlist)
11278 {
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011279 if (start >= 1 && start <= buf->b_ml.ml_line_count)
11280 p = ml_get_buf(buf, start, FALSE);
11281 else
11282 p = (char_u *)"";
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011283 rettv->vval.v_string = vim_strsave(p);
11284 }
11285 else
11286 {
11287 if (end < start)
Bram Moolenaar342337a2005-07-21 21:11:17 +000011288 return;
11289
11290 if (start < 1)
11291 start = 1;
11292 if (end > buf->b_ml.ml_line_count)
11293 end = buf->b_ml.ml_line_count;
11294 while (start <= end)
Bram Moolenaareddf53b2006-02-27 00:11:10 +000011295 if (list_append_string(rettv->vval.v_list,
11296 ml_get_buf(buf, start++, FALSE), -1) == FAIL)
Bram Moolenaar342337a2005-07-21 21:11:17 +000011297 break;
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011298 }
11299}
11300
11301/*
11302 * "getbufline()" function
11303 */
11304 static void
11305f_getbufline(argvars, rettv)
11306 typval_T *argvars;
11307 typval_T *rettv;
11308{
11309 linenr_T lnum;
11310 linenr_T end;
11311 buf_T *buf;
11312
11313 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
11314 ++emsg_off;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +010011315 buf = get_buf_tv(&argvars[0], FALSE);
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011316 --emsg_off;
11317
Bram Moolenaar661b1822005-07-28 22:36:45 +000011318 lnum = get_tv_lnum_buf(&argvars[1], buf);
Bram Moolenaar342337a2005-07-21 21:11:17 +000011319 if (argvars[2].v_type == VAR_UNKNOWN)
11320 end = lnum;
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011321 else
Bram Moolenaar661b1822005-07-28 22:36:45 +000011322 end = get_tv_lnum_buf(&argvars[2], buf);
11323
Bram Moolenaar342337a2005-07-21 21:11:17 +000011324 get_buffer_lines(buf, lnum, end, TRUE, rettv);
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011325}
11326
Bram Moolenaar0d660222005-01-07 21:51:51 +000011327/*
11328 * "getbufvar()" function
11329 */
11330 static void
11331f_getbufvar(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011332 typval_T *argvars;
11333 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011334{
11335 buf_T *buf;
11336 buf_T *save_curbuf;
11337 char_u *varname;
Bram Moolenaar33570922005-01-25 22:26:29 +000011338 dictitem_T *v;
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011339 int done = FALSE;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011340
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011341 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
11342 varname = get_tv_string_chk(&argvars[1]);
Bram Moolenaar0d660222005-01-07 21:51:51 +000011343 ++emsg_off;
Bram Moolenaar0c279bb2013-03-19 14:25:54 +010011344 buf = get_buf_tv(&argvars[0], FALSE);
Bram Moolenaar0d660222005-01-07 21:51:51 +000011345
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011346 rettv->v_type = VAR_STRING;
11347 rettv->vval.v_string = NULL;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011348
11349 if (buf != NULL && varname != NULL)
11350 {
Bram Moolenaar632deed2008-06-27 18:26:11 +000011351 /* set curbuf to be our buf, temporarily */
11352 save_curbuf = curbuf;
11353 curbuf = buf;
11354
Bram Moolenaar0d660222005-01-07 21:51:51 +000011355 if (*varname == '&') /* buffer-local-option */
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011356 {
11357 if (get_option_tv(&varname, rettv, TRUE) == OK)
11358 done = TRUE;
11359 }
Bram Moolenaar445edda2011-01-22 01:13:39 +010011360 else if (STRCMP(varname, "changedtick") == 0)
11361 {
11362 rettv->v_type = VAR_NUMBER;
11363 rettv->vval.v_number = curbuf->b_changedtick;
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011364 done = TRUE;
Bram Moolenaar445edda2011-01-22 01:13:39 +010011365 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000011366 else
11367 {
Bram Moolenaar332ac062013-04-15 13:06:21 +020011368 /* Look up the variable. */
11369 /* Let getbufvar({nr}, "") return the "b:" dictionary. */
11370 v = find_var_in_ht(&curbuf->b_vars->dv_hashtab,
11371 'b', varname, FALSE);
Bram Moolenaar0d660222005-01-07 21:51:51 +000011372 if (v != NULL)
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011373 {
Bram Moolenaar33570922005-01-25 22:26:29 +000011374 copy_tv(&v->di_tv, rettv);
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011375 done = TRUE;
11376 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000011377 }
Bram Moolenaar632deed2008-06-27 18:26:11 +000011378
11379 /* restore previous notion of curbuf */
11380 curbuf = save_curbuf;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011381 }
11382
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020011383 if (!done && argvars[2].v_type != VAR_UNKNOWN)
11384 /* use the default value */
11385 copy_tv(&argvars[2], rettv);
11386
Bram Moolenaar0d660222005-01-07 21:51:51 +000011387 --emsg_off;
11388}
11389
11390/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011391 * "getchar()" function
11392 */
11393 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011394f_getchar(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011395 typval_T *argvars;
11396 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011397{
11398 varnumber_T n;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011399 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011400
Bram Moolenaar4015b2c2006-06-22 19:01:34 +000011401 /* Position the cursor. Needed after a message that ends in a space. */
11402 windgoto(msg_row, msg_col);
11403
Bram Moolenaar071d4272004-06-13 20:20:40 +000011404 ++no_mapping;
11405 ++allow_keys;
Bram Moolenaar9c8791f2007-09-05 19:47:23 +000011406 for (;;)
11407 {
11408 if (argvars[0].v_type == VAR_UNKNOWN)
11409 /* getchar(): blocking wait. */
11410 n = safe_vgetc();
11411 else if (get_tv_number_chk(&argvars[0], &error) == 1)
11412 /* getchar(1): only check if char avail */
Bram Moolenaar9a665ba2014-05-22 18:59:58 +020011413 n = vpeekc_any();
11414 else if (error || vpeekc_any() == NUL)
Bram Moolenaar9c8791f2007-09-05 19:47:23 +000011415 /* illegal argument or getchar(0) and no char avail: return zero */
11416 n = 0;
11417 else
11418 /* getchar(0) and char avail: return char */
11419 n = safe_vgetc();
Bram Moolenaar9a665ba2014-05-22 18:59:58 +020011420
Bram Moolenaar9c8791f2007-09-05 19:47:23 +000011421 if (n == K_IGNORE)
11422 continue;
11423 break;
11424 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000011425 --no_mapping;
11426 --allow_keys;
11427
Bram Moolenaar219b8702006-11-01 14:32:36 +000011428 vimvars[VV_MOUSE_WIN].vv_nr = 0;
11429 vimvars[VV_MOUSE_LNUM].vv_nr = 0;
11430 vimvars[VV_MOUSE_COL].vv_nr = 0;
11431
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011432 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011433 if (IS_SPECIAL(n) || mod_mask != 0)
11434 {
11435 char_u temp[10]; /* modifier: 3, mbyte-char: 6, NUL: 1 */
11436 int i = 0;
11437
11438 /* Turn a special key into three bytes, plus modifier. */
11439 if (mod_mask != 0)
11440 {
11441 temp[i++] = K_SPECIAL;
11442 temp[i++] = KS_MODIFIER;
11443 temp[i++] = mod_mask;
11444 }
11445 if (IS_SPECIAL(n))
11446 {
11447 temp[i++] = K_SPECIAL;
11448 temp[i++] = K_SECOND(n);
11449 temp[i++] = K_THIRD(n);
11450 }
11451#ifdef FEAT_MBYTE
11452 else if (has_mbyte)
11453 i += (*mb_char2bytes)(n, temp + i);
11454#endif
11455 else
11456 temp[i++] = n;
11457 temp[i++] = NUL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011458 rettv->v_type = VAR_STRING;
11459 rettv->vval.v_string = vim_strsave(temp);
Bram Moolenaar219b8702006-11-01 14:32:36 +000011460
11461#ifdef FEAT_MOUSE
Bram Moolenaar2526ef22013-03-16 14:20:51 +010011462 if (is_mouse_key(n))
Bram Moolenaar219b8702006-11-01 14:32:36 +000011463 {
11464 int row = mouse_row;
11465 int col = mouse_col;
11466 win_T *win;
11467 linenr_T lnum;
11468# ifdef FEAT_WINDOWS
11469 win_T *wp;
11470# endif
Bram Moolenaarfe86f2d2008-11-28 20:29:07 +000011471 int winnr = 1;
Bram Moolenaar219b8702006-11-01 14:32:36 +000011472
11473 if (row >= 0 && col >= 0)
11474 {
11475 /* Find the window at the mouse coordinates and compute the
11476 * text position. */
11477 win = mouse_find_win(&row, &col);
11478 (void)mouse_comp_pos(win, &row, &col, &lnum);
11479# ifdef FEAT_WINDOWS
11480 for (wp = firstwin; wp != win; wp = wp->w_next)
Bram Moolenaarfe86f2d2008-11-28 20:29:07 +000011481 ++winnr;
Bram Moolenaar219b8702006-11-01 14:32:36 +000011482# endif
Bram Moolenaarfe86f2d2008-11-28 20:29:07 +000011483 vimvars[VV_MOUSE_WIN].vv_nr = winnr;
Bram Moolenaar219b8702006-11-01 14:32:36 +000011484 vimvars[VV_MOUSE_LNUM].vv_nr = lnum;
11485 vimvars[VV_MOUSE_COL].vv_nr = col + 1;
11486 }
11487 }
11488#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000011489 }
11490}
11491
11492/*
11493 * "getcharmod()" function
11494 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011495 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011496f_getcharmod(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011497 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011498 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011499{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011500 rettv->vval.v_number = mod_mask;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011501}
11502
11503/*
11504 * "getcmdline()" function
11505 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011506 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011507f_getcmdline(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011508 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011509 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011510{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011511 rettv->v_type = VAR_STRING;
11512 rettv->vval.v_string = get_cmdline_str();
Bram Moolenaar071d4272004-06-13 20:20:40 +000011513}
11514
11515/*
11516 * "getcmdpos()" function
11517 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011518 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011519f_getcmdpos(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011520 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011521 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011522{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011523 rettv->vval.v_number = get_cmdline_pos() + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011524}
11525
11526/*
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000011527 * "getcmdtype()" function
11528 */
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000011529 static void
11530f_getcmdtype(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011531 typval_T *argvars UNUSED;
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000011532 typval_T *rettv;
11533{
11534 rettv->v_type = VAR_STRING;
11535 rettv->vval.v_string = alloc(2);
11536 if (rettv->vval.v_string != NULL)
11537 {
11538 rettv->vval.v_string[0] = get_cmdline_type();
11539 rettv->vval.v_string[1] = NUL;
11540 }
11541}
11542
11543/*
Bram Moolenaar8c1329c2014-08-06 13:36:59 +020011544 * "getcmdwintype()" function
11545 */
11546 static void
11547f_getcmdwintype(argvars, rettv)
11548 typval_T *argvars UNUSED;
11549 typval_T *rettv;
11550{
11551 rettv->v_type = VAR_STRING;
11552 rettv->vval.v_string = NULL;
11553#ifdef FEAT_CMDWIN
11554 rettv->vval.v_string = alloc(2);
11555 if (rettv->vval.v_string != NULL)
11556 {
11557 rettv->vval.v_string[0] = cmdwin_type;
11558 rettv->vval.v_string[1] = NUL;
11559 }
11560#endif
11561}
11562
11563/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011564 * "getcwd()" function
11565 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000011566 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011567f_getcwd(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011568 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011569 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011570{
Bram Moolenaard9462e32011-04-11 21:35:11 +020011571 char_u *cwd;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011572
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011573 rettv->v_type = VAR_STRING;
Bram Moolenaard9462e32011-04-11 21:35:11 +020011574 rettv->vval.v_string = NULL;
11575 cwd = alloc(MAXPATHL);
11576 if (cwd != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000011577 {
Bram Moolenaard9462e32011-04-11 21:35:11 +020011578 if (mch_dirname(cwd, MAXPATHL) != FAIL)
11579 {
11580 rettv->vval.v_string = vim_strsave(cwd);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011581#ifdef BACKSLASH_IN_FILENAME
Bram Moolenaard9462e32011-04-11 21:35:11 +020011582 if (rettv->vval.v_string != NULL)
11583 slash_adjust(rettv->vval.v_string);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011584#endif
Bram Moolenaard9462e32011-04-11 21:35:11 +020011585 }
11586 vim_free(cwd);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011587 }
11588}
11589
11590/*
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011591 * "getfontname()" function
11592 */
11593 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011594f_getfontname(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011595 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000011596 typval_T *rettv;
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011597{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011598 rettv->v_type = VAR_STRING;
11599 rettv->vval.v_string = NULL;
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011600#ifdef FEAT_GUI
11601 if (gui.in_use)
11602 {
11603 GuiFont font;
11604 char_u *name = NULL;
11605
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011606 if (argvars[0].v_type == VAR_UNKNOWN)
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011607 {
11608 /* Get the "Normal" font. Either the name saved by
11609 * hl_set_font_name() or from the font ID. */
11610 font = gui.norm_font;
11611 name = hl_get_font_name();
11612 }
11613 else
11614 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011615 name = get_tv_string(&argvars[0]);
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011616 if (STRCMP(name, "*") == 0) /* don't use font dialog */
11617 return;
11618 font = gui_mch_get_font(name, FALSE);
11619 if (font == NOFONT)
11620 return; /* Invalid font name, return empty string. */
11621 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011622 rettv->vval.v_string = gui_mch_get_fontname(font, name);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011623 if (argvars[0].v_type != VAR_UNKNOWN)
Bram Moolenaar46c9c732004-12-12 11:37:09 +000011624 gui_mch_free_font(font);
11625 }
11626#endif
11627}
11628
11629/*
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011630 * "getfperm({fname})" function
11631 */
11632 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011633f_getfperm(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011634 typval_T *argvars;
11635 typval_T *rettv;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011636{
11637 char_u *fname;
11638 struct stat st;
11639 char_u *perm = NULL;
11640 char_u flags[] = "rwx";
11641 int i;
11642
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011643 fname = get_tv_string(&argvars[0]);
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011644
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011645 rettv->v_type = VAR_STRING;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011646 if (mch_stat((char *)fname, &st) >= 0)
11647 {
11648 perm = vim_strsave((char_u *)"---------");
11649 if (perm != NULL)
11650 {
11651 for (i = 0; i < 9; i++)
11652 {
11653 if (st.st_mode & (1 << (8 - i)))
11654 perm[i] = flags[i % 3];
11655 }
11656 }
11657 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011658 rettv->vval.v_string = perm;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011659}
11660
11661/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011662 * "getfsize({fname})" function
11663 */
11664 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011665f_getfsize(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011666 typval_T *argvars;
11667 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011668{
11669 char_u *fname;
11670 struct stat st;
11671
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011672 fname = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011673
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011674 rettv->v_type = VAR_NUMBER;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011675
11676 if (mch_stat((char *)fname, &st) >= 0)
11677 {
11678 if (mch_isdir(fname))
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011679 rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011680 else
Bram Moolenaard827ada2007-06-19 15:19:55 +000011681 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011682 rettv->vval.v_number = (varnumber_T)st.st_size;
Bram Moolenaard827ada2007-06-19 15:19:55 +000011683
11684 /* non-perfect check for overflow */
11685 if ((off_t)rettv->vval.v_number != (off_t)st.st_size)
11686 rettv->vval.v_number = -2;
11687 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000011688 }
11689 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011690 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011691}
11692
11693/*
11694 * "getftime({fname})" function
11695 */
11696 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011697f_getftime(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011698 typval_T *argvars;
11699 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011700{
11701 char_u *fname;
11702 struct stat st;
11703
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011704 fname = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000011705
11706 if (mch_stat((char *)fname, &st) >= 0)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011707 rettv->vval.v_number = (varnumber_T)st.st_mtime;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011708 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011709 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011710}
11711
11712/*
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011713 * "getftype({fname})" function
11714 */
11715 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011716f_getftype(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011717 typval_T *argvars;
11718 typval_T *rettv;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011719{
11720 char_u *fname;
11721 struct stat st;
11722 char_u *type = NULL;
11723 char *t;
11724
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011725 fname = get_tv_string(&argvars[0]);
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011726
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011727 rettv->v_type = VAR_STRING;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011728 if (mch_lstat((char *)fname, &st) >= 0)
11729 {
11730#ifdef S_ISREG
11731 if (S_ISREG(st.st_mode))
11732 t = "file";
11733 else if (S_ISDIR(st.st_mode))
11734 t = "dir";
11735# ifdef S_ISLNK
11736 else if (S_ISLNK(st.st_mode))
11737 t = "link";
11738# endif
11739# ifdef S_ISBLK
11740 else if (S_ISBLK(st.st_mode))
11741 t = "bdev";
11742# endif
11743# ifdef S_ISCHR
11744 else if (S_ISCHR(st.st_mode))
11745 t = "cdev";
11746# endif
11747# ifdef S_ISFIFO
11748 else if (S_ISFIFO(st.st_mode))
11749 t = "fifo";
11750# endif
11751# ifdef S_ISSOCK
11752 else if (S_ISSOCK(st.st_mode))
11753 t = "fifo";
11754# endif
11755 else
11756 t = "other";
11757#else
11758# ifdef S_IFMT
11759 switch (st.st_mode & S_IFMT)
11760 {
11761 case S_IFREG: t = "file"; break;
11762 case S_IFDIR: t = "dir"; break;
11763# ifdef S_IFLNK
11764 case S_IFLNK: t = "link"; break;
11765# endif
11766# ifdef S_IFBLK
11767 case S_IFBLK: t = "bdev"; break;
11768# endif
11769# ifdef S_IFCHR
11770 case S_IFCHR: t = "cdev"; break;
11771# endif
11772# ifdef S_IFIFO
11773 case S_IFIFO: t = "fifo"; break;
11774# endif
11775# ifdef S_IFSOCK
11776 case S_IFSOCK: t = "socket"; break;
11777# endif
11778 default: t = "other";
11779 }
11780# else
11781 if (mch_isdir(fname))
11782 t = "dir";
11783 else
11784 t = "file";
11785# endif
11786#endif
11787 type = vim_strsave((char_u *)t);
11788 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011789 rettv->vval.v_string = type;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000011790}
11791
11792/*
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011793 * "getline(lnum, [end])" function
Bram Moolenaar0d660222005-01-07 21:51:51 +000011794 */
11795 static void
11796f_getline(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011797 typval_T *argvars;
11798 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011799{
11800 linenr_T lnum;
11801 linenr_T end;
Bram Moolenaar342337a2005-07-21 21:11:17 +000011802 int retlist;
Bram Moolenaar0d660222005-01-07 21:51:51 +000011803
11804 lnum = get_tv_lnum(argvars);
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011805 if (argvars[1].v_type == VAR_UNKNOWN)
Bram Moolenaar342337a2005-07-21 21:11:17 +000011806 {
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011807 end = 0;
Bram Moolenaar342337a2005-07-21 21:11:17 +000011808 retlist = FALSE;
11809 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000011810 else
Bram Moolenaar342337a2005-07-21 21:11:17 +000011811 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000011812 end = get_tv_lnum(&argvars[1]);
Bram Moolenaar342337a2005-07-21 21:11:17 +000011813 retlist = TRUE;
11814 }
Bram Moolenaar80fc0432005-07-20 22:06:07 +000011815
Bram Moolenaar342337a2005-07-21 21:11:17 +000011816 get_buffer_lines(curbuf, lnum, end, retlist, rettv);
Bram Moolenaar0d660222005-01-07 21:51:51 +000011817}
11818
11819/*
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011820 * "getmatches()" function
11821 */
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011822 static void
11823f_getmatches(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011824 typval_T *argvars UNUSED;
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010011825 typval_T *rettv UNUSED;
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011826{
11827#ifdef FEAT_SEARCH_EXTRA
11828 dict_T *dict;
11829 matchitem_T *cur = curwin->w_match_head;
Bram Moolenaarb3414592014-06-17 17:48:32 +020011830 int i;
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011831
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011832 if (rettv_list_alloc(rettv) == OK)
11833 {
11834 while (cur != NULL)
11835 {
11836 dict = dict_alloc();
11837 if (dict == NULL)
11838 return;
Bram Moolenaarb3414592014-06-17 17:48:32 +020011839 if (cur->match.regprog == NULL)
11840 {
11841 /* match added with matchaddpos() */
11842 for (i = 0; i < MAXPOSMATCH; ++i)
11843 {
11844 llpos_T *llpos;
11845 char buf[6];
11846 list_T *l;
11847
11848 llpos = &cur->pos.pos[i];
11849 if (llpos->lnum == 0)
11850 break;
11851 l = list_alloc();
11852 if (l == NULL)
11853 break;
11854 list_append_number(l, (varnumber_T)llpos->lnum);
11855 if (llpos->col > 0)
11856 {
11857 list_append_number(l, (varnumber_T)llpos->col);
11858 list_append_number(l, (varnumber_T)llpos->len);
11859 }
11860 sprintf(buf, "pos%d", i + 1);
11861 dict_add_list(dict, buf, l);
11862 }
11863 }
11864 else
11865 {
11866 dict_add_nr_str(dict, "pattern", 0L, cur->pattern);
11867 }
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011868 dict_add_nr_str(dict, "group", 0L, syn_id2name(cur->hlg_id));
Bram Moolenaar6ee10162007-07-26 20:58:42 +000011869 dict_add_nr_str(dict, "priority", (long)cur->priority, NULL);
11870 dict_add_nr_str(dict, "id", (long)cur->id, NULL);
11871 list_append_dict(rettv->vval.v_list, dict);
11872 cur = cur->next;
11873 }
11874 }
11875#endif
11876}
11877
11878/*
Bram Moolenaar18081e32008-02-20 19:11:07 +000011879 * "getpid()" function
11880 */
Bram Moolenaar18081e32008-02-20 19:11:07 +000011881 static void
11882f_getpid(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011883 typval_T *argvars UNUSED;
Bram Moolenaar18081e32008-02-20 19:11:07 +000011884 typval_T *rettv;
11885{
11886 rettv->vval.v_number = mch_get_pid();
11887}
11888
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +020011889static void getpos_both __ARGS((typval_T *argvars, typval_T *rettv, int getcurpos));
11890
11891/*
11892 * "getcurpos()" function
11893 */
11894 static void
11895f_getcurpos(argvars, rettv)
11896 typval_T *argvars;
11897 typval_T *rettv;
11898{
11899 getpos_both(argvars, rettv, TRUE);
11900}
11901
Bram Moolenaar18081e32008-02-20 19:11:07 +000011902/*
Bram Moolenaara5525202006-03-02 22:52:09 +000011903 * "getpos(string)" function
11904 */
11905 static void
11906f_getpos(argvars, rettv)
11907 typval_T *argvars;
11908 typval_T *rettv;
11909{
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +020011910 getpos_both(argvars, rettv, FALSE);
11911}
11912
11913 static void
11914getpos_both(argvars, rettv, getcurpos)
11915 typval_T *argvars;
11916 typval_T *rettv;
11917 int getcurpos;
11918{
Bram Moolenaara5525202006-03-02 22:52:09 +000011919 pos_T *fp;
11920 list_T *l;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000011921 int fnum = -1;
Bram Moolenaara5525202006-03-02 22:52:09 +000011922
11923 if (rettv_list_alloc(rettv) == OK)
11924 {
11925 l = rettv->vval.v_list;
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +020011926 if (getcurpos)
11927 fp = &curwin->w_cursor;
11928 else
11929 fp = var2fpos(&argvars[0], TRUE, &fnum);
Bram Moolenaar0e34f622006-03-03 23:00:03 +000011930 if (fnum != -1)
11931 list_append_number(l, (varnumber_T)fnum);
11932 else
11933 list_append_number(l, (varnumber_T)0);
Bram Moolenaara5525202006-03-02 22:52:09 +000011934 list_append_number(l, (fp != NULL) ? (varnumber_T)fp->lnum
11935 : (varnumber_T)0);
Bram Moolenaare65f7322007-10-02 20:08:54 +000011936 list_append_number(l, (fp != NULL)
11937 ? (varnumber_T)(fp->col == MAXCOL ? MAXCOL : fp->col + 1)
Bram Moolenaara5525202006-03-02 22:52:09 +000011938 : (varnumber_T)0);
11939 list_append_number(l,
11940#ifdef FEAT_VIRTUALEDIT
11941 (fp != NULL) ? (varnumber_T)fp->coladd :
11942#endif
11943 (varnumber_T)0);
Bram Moolenaar6f6c0f82014-05-28 20:31:42 +020011944 if (getcurpos)
Bram Moolenaar084abae2015-01-14 19:00:38 +010011945 list_append_number(l, curwin->w_curswant == MAXCOL ?
11946 (varnumber_T)MAXCOL : (varnumber_T)curwin->w_curswant + 1);
Bram Moolenaara5525202006-03-02 22:52:09 +000011947 }
11948 else
11949 rettv->vval.v_number = FALSE;
11950}
11951
11952/*
Bram Moolenaar280f1262006-01-30 00:14:18 +000011953 * "getqflist()" and "getloclist()" functions
Bram Moolenaar2641f772005-03-25 21:58:17 +000011954 */
Bram Moolenaar2641f772005-03-25 21:58:17 +000011955 static void
Bram Moolenaar280f1262006-01-30 00:14:18 +000011956f_getqflist(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000011957 typval_T *argvars UNUSED;
11958 typval_T *rettv UNUSED;
Bram Moolenaar2641f772005-03-25 21:58:17 +000011959{
11960#ifdef FEAT_QUICKFIX
Bram Moolenaar280f1262006-01-30 00:14:18 +000011961 win_T *wp;
Bram Moolenaar2641f772005-03-25 21:58:17 +000011962#endif
11963
Bram Moolenaar2641f772005-03-25 21:58:17 +000011964#ifdef FEAT_QUICKFIX
Bram Moolenaareddf53b2006-02-27 00:11:10 +000011965 if (rettv_list_alloc(rettv) == OK)
Bram Moolenaar2641f772005-03-25 21:58:17 +000011966 {
Bram Moolenaar280f1262006-01-30 00:14:18 +000011967 wp = NULL;
11968 if (argvars[0].v_type != VAR_UNKNOWN) /* getloclist() */
11969 {
Bram Moolenaar99ebf042006-04-15 20:28:54 +000011970 wp = find_win_by_nr(&argvars[0], NULL);
Bram Moolenaar280f1262006-01-30 00:14:18 +000011971 if (wp == NULL)
11972 return;
11973 }
11974
Bram Moolenaareddf53b2006-02-27 00:11:10 +000011975 (void)get_errorlist(wp, rettv->vval.v_list);
Bram Moolenaar2641f772005-03-25 21:58:17 +000011976 }
11977#endif
11978}
11979
11980/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000011981 * "getreg()" function
11982 */
11983 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000011984f_getreg(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000011985 typval_T *argvars;
11986 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011987{
11988 char_u *strregname;
11989 int regname;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000011990 int arg2 = FALSE;
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020011991 int return_list = FALSE;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011992 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000011993
Bram Moolenaar49cd9572005-01-03 21:06:01 +000011994 if (argvars[0].v_type != VAR_UNKNOWN)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000011995 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000011996 strregname = get_tv_string_chk(&argvars[0]);
11997 error = strregname == NULL;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000011998 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020011999 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000012000 arg2 = get_tv_number_chk(&argvars[1], &error);
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020012001 if (!error && argvars[2].v_type != VAR_UNKNOWN)
12002 return_list = get_tv_number_chk(&argvars[2], &error);
12003 }
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000012004 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000012005 else
Bram Moolenaare9a41262005-01-15 22:18:47 +000012006 strregname = vimvars[VV_REG].vv_str;
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020012007
12008 if (error)
12009 return;
12010
Bram Moolenaar071d4272004-06-13 20:20:40 +000012011 regname = (strregname == NULL ? '"' : *strregname);
12012 if (regname == 0)
12013 regname = '"';
12014
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020012015 if (return_list)
12016 {
12017 rettv->v_type = VAR_LIST;
12018 rettv->vval.v_list = (list_T *)get_reg_contents(regname,
12019 (arg2 ? GREG_EXPR_SRC : 0) | GREG_LIST);
Bram Moolenaar42d84f82014-11-12 18:49:16 +010012020 if (rettv->vval.v_list != NULL)
12021 ++rettv->vval.v_list->lv_refcount;
Bram Moolenaarb7cb42b2014-04-02 19:55:10 +020012022 }
12023 else
12024 {
12025 rettv->v_type = VAR_STRING;
12026 rettv->vval.v_string = get_reg_contents(regname,
12027 arg2 ? GREG_EXPR_SRC : 0);
12028 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000012029}
12030
12031/*
12032 * "getregtype()" function
12033 */
12034 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012035f_getregtype(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012036 typval_T *argvars;
12037 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012038{
12039 char_u *strregname;
12040 int regname;
12041 char_u buf[NUMBUFLEN + 2];
12042 long reglen = 0;
12043
Bram Moolenaar49cd9572005-01-03 21:06:01 +000012044 if (argvars[0].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000012045 {
12046 strregname = get_tv_string_chk(&argvars[0]);
12047 if (strregname == NULL) /* type error; errmsg already given */
12048 {
12049 rettv->v_type = VAR_STRING;
12050 rettv->vval.v_string = NULL;
12051 return;
12052 }
12053 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000012054 else
12055 /* Default to v:register */
Bram Moolenaare9a41262005-01-15 22:18:47 +000012056 strregname = vimvars[VV_REG].vv_str;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012057
12058 regname = (strregname == NULL ? '"' : *strregname);
12059 if (regname == 0)
12060 regname = '"';
12061
12062 buf[0] = NUL;
12063 buf[1] = NUL;
12064 switch (get_reg_type(regname, &reglen))
12065 {
12066 case MLINE: buf[0] = 'V'; break;
12067 case MCHAR: buf[0] = 'v'; break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012068 case MBLOCK:
12069 buf[0] = Ctrl_V;
12070 sprintf((char *)buf + 1, "%ld", reglen + 1);
12071 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012072 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012073 rettv->v_type = VAR_STRING;
12074 rettv->vval.v_string = vim_strsave(buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000012075}
12076
12077/*
Bram Moolenaar06b5d512010-05-22 15:37:44 +020012078 * "gettabvar()" function
12079 */
12080 static void
12081f_gettabvar(argvars, rettv)
12082 typval_T *argvars;
12083 typval_T *rettv;
12084{
Bram Moolenaar3089a102014-09-09 23:11:49 +020012085 win_T *oldcurwin;
Bram Moolenaar0e2ea1b2014-09-09 16:13:08 +020012086 tabpage_T *tp, *oldtabpage;
Bram Moolenaar06b5d512010-05-22 15:37:44 +020012087 dictitem_T *v;
12088 char_u *varname;
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012089 int done = FALSE;
Bram Moolenaar06b5d512010-05-22 15:37:44 +020012090
12091 rettv->v_type = VAR_STRING;
12092 rettv->vval.v_string = NULL;
12093
12094 varname = get_tv_string_chk(&argvars[1]);
12095 tp = find_tabpage((int)get_tv_number_chk(&argvars[0], NULL));
12096 if (tp != NULL && varname != NULL)
12097 {
Bram Moolenaar3089a102014-09-09 23:11:49 +020012098 /* Set tp to be our tabpage, temporarily. Also set the window to the
12099 * first window in the tabpage, otherwise the window is not valid. */
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020012100 if (switch_win(&oldcurwin, &oldtabpage, tp->tp_firstwin, tp, TRUE)
12101 == OK)
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012102 {
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020012103 /* look up the variable */
12104 /* Let gettabvar({nr}, "") return the "t:" dictionary. */
12105 v = find_var_in_ht(&tp->tp_vars->dv_hashtab, 't', varname, FALSE);
12106 if (v != NULL)
12107 {
12108 copy_tv(&v->di_tv, rettv);
12109 done = TRUE;
12110 }
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012111 }
Bram Moolenaar0e2ea1b2014-09-09 16:13:08 +020012112
12113 /* restore previous notion of curwin */
12114 restore_win(oldcurwin, oldtabpage, TRUE);
Bram Moolenaar06b5d512010-05-22 15:37:44 +020012115 }
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012116
12117 if (!done && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar63dbda12013-02-20 21:12:10 +010012118 copy_tv(&argvars[2], rettv);
Bram Moolenaar06b5d512010-05-22 15:37:44 +020012119}
12120
12121/*
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012122 * "gettabwinvar()" function
12123 */
12124 static void
12125f_gettabwinvar(argvars, rettv)
12126 typval_T *argvars;
12127 typval_T *rettv;
12128{
12129 getwinvar(argvars, rettv, 1);
12130}
12131
12132/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000012133 * "getwinposx()" function
12134 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000012135 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012136f_getwinposx(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000012137 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000012138 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012139{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012140 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012141#ifdef FEAT_GUI
12142 if (gui.in_use)
12143 {
12144 int x, y;
12145
12146 if (gui_mch_get_winpos(&x, &y) == OK)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012147 rettv->vval.v_number = x;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012148 }
12149#endif
12150}
12151
12152/*
12153 * "getwinposy()" function
12154 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000012155 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012156f_getwinposy(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000012157 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000012158 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012159{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012160 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012161#ifdef FEAT_GUI
12162 if (gui.in_use)
12163 {
12164 int x, y;
12165
12166 if (gui_mch_get_winpos(&x, &y) == OK)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012167 rettv->vval.v_number = y;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012168 }
12169#endif
12170}
12171
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012172/*
Bram Moolenaar8c8de832008-06-24 22:58:06 +000012173 * Find window specified by "vp" in tabpage "tp".
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012174 */
Bram Moolenaara40058a2005-07-11 22:42:07 +000012175 static win_T *
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012176find_win_by_nr(vp, tp)
Bram Moolenaara40058a2005-07-11 22:42:07 +000012177 typval_T *vp;
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020012178 tabpage_T *tp UNUSED; /* NULL for current tab page */
Bram Moolenaara40058a2005-07-11 22:42:07 +000012179{
12180#ifdef FEAT_WINDOWS
12181 win_T *wp;
12182#endif
12183 int nr;
12184
12185 nr = get_tv_number_chk(vp, NULL);
12186
12187#ifdef FEAT_WINDOWS
12188 if (nr < 0)
12189 return NULL;
12190 if (nr == 0)
12191 return curwin;
12192
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012193 for (wp = (tp == NULL || tp == curtab) ? firstwin : tp->tp_firstwin;
12194 wp != NULL; wp = wp->w_next)
Bram Moolenaara40058a2005-07-11 22:42:07 +000012195 if (--nr <= 0)
12196 break;
12197 return wp;
12198#else
12199 if (nr == 0 || nr == 1)
12200 return curwin;
12201 return NULL;
12202#endif
12203}
12204
Bram Moolenaar071d4272004-06-13 20:20:40 +000012205/*
12206 * "getwinvar()" function
12207 */
12208 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012209f_getwinvar(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012210 typval_T *argvars;
12211 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012212{
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012213 getwinvar(argvars, rettv, 0);
12214}
12215
12216/*
12217 * getwinvar() and gettabwinvar()
12218 */
12219 static void
12220getwinvar(argvars, rettv, off)
12221 typval_T *argvars;
12222 typval_T *rettv;
12223 int off; /* 1 for gettabwinvar() */
12224{
Bram Moolenaar071d4272004-06-13 20:20:40 +000012225 win_T *win, *oldcurwin;
12226 char_u *varname;
Bram Moolenaar33570922005-01-25 22:26:29 +000012227 dictitem_T *v;
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020012228 tabpage_T *tp = NULL;
12229 tabpage_T *oldtabpage;
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012230 int done = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012231
Bram Moolenaar99ebf042006-04-15 20:28:54 +000012232#ifdef FEAT_WINDOWS
12233 if (off == 1)
12234 tp = find_tabpage((int)get_tv_number_chk(&argvars[0], NULL));
12235 else
12236 tp = curtab;
12237#endif
12238 win = find_win_by_nr(&argvars[off], tp);
12239 varname = get_tv_string_chk(&argvars[off + 1]);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000012240 ++emsg_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012241
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012242 rettv->v_type = VAR_STRING;
12243 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012244
12245 if (win != NULL && varname != NULL)
12246 {
Bram Moolenaar105bc352013-05-17 16:03:57 +020012247 /* Set curwin to be our win, temporarily. Also set the tabpage,
12248 * otherwise the window is not valid. */
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020012249 if (switch_win(&oldcurwin, &oldtabpage, win, tp, TRUE) == OK)
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012250 {
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020012251 if (*varname == '&') /* window-local-option */
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012252 {
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020012253 if (get_option_tv(&varname, rettv, 1) == OK)
12254 done = TRUE;
12255 }
12256 else
12257 {
12258 /* Look up the variable. */
12259 /* Let getwinvar({nr}, "") return the "w:" dictionary. */
12260 v = find_var_in_ht(&win->w_vars->dv_hashtab, 'w',
12261 varname, FALSE);
12262 if (v != NULL)
12263 {
12264 copy_tv(&v->di_tv, rettv);
12265 done = TRUE;
12266 }
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012267 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000012268 }
Bram Moolenaar69a7e432006-10-10 10:55:47 +000012269
12270 /* restore previous notion of curwin */
Bram Moolenaard6949742013-06-16 14:18:28 +020012271 restore_win(oldcurwin, oldtabpage, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000012272 }
12273
Bram Moolenaar54c34fa2013-04-15 15:15:35 +020012274 if (!done && argvars[off + 2].v_type != VAR_UNKNOWN)
12275 /* use the default return value */
12276 copy_tv(&argvars[off + 2], rettv);
12277
Bram Moolenaar071d4272004-06-13 20:20:40 +000012278 --emsg_off;
12279}
12280
12281/*
12282 * "glob()" function
12283 */
12284 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012285f_glob(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012286 typval_T *argvars;
12287 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012288{
Bram Moolenaar005c3c22010-12-02 21:44:40 +010012289 int options = WILD_SILENT|WILD_USE_NL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012290 expand_T xpc;
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012291 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012292
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012293 /* When the optional second argument is non-zero, don't remove matches
Bram Moolenaar146e9c32012-03-07 19:18:23 +010012294 * for 'wildignore' and don't put matches for 'suffixes' at the end. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012295 rettv->v_type = VAR_STRING;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010012296 if (argvars[1].v_type != VAR_UNKNOWN)
12297 {
12298 if (get_tv_number_chk(&argvars[1], &error))
12299 options |= WILD_KEEP_ALL;
12300 if (argvars[2].v_type != VAR_UNKNOWN
12301 && get_tv_number_chk(&argvars[2], &error))
12302 {
12303 rettv->v_type = VAR_LIST;
12304 rettv->vval.v_list = NULL;
12305 }
12306 }
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012307 if (!error)
12308 {
12309 ExpandInit(&xpc);
12310 xpc.xp_context = EXPAND_FILES;
Bram Moolenaar005c3c22010-12-02 21:44:40 +010012311 if (p_wic)
12312 options += WILD_ICASE;
Bram Moolenaar146e9c32012-03-07 19:18:23 +010012313 if (rettv->v_type == VAR_STRING)
12314 rettv->vval.v_string = ExpandOne(&xpc, get_tv_string(&argvars[0]),
Bram Moolenaar005c3c22010-12-02 21:44:40 +010012315 NULL, options, WILD_ALL);
Bram Moolenaar146e9c32012-03-07 19:18:23 +010012316 else if (rettv_list_alloc(rettv) != FAIL)
12317 {
12318 int i;
12319
12320 ExpandOne(&xpc, get_tv_string(&argvars[0]),
12321 NULL, options, WILD_ALL_KEEP);
12322 for (i = 0; i < xpc.xp_numfiles; i++)
12323 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
12324
12325 ExpandCleanup(&xpc);
12326 }
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012327 }
12328 else
12329 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012330}
12331
12332/*
12333 * "globpath()" function
12334 */
12335 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012336f_globpath(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012337 typval_T *argvars;
12338 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012339{
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012340 int flags = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012341 char_u buf1[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000012342 char_u *file = get_tv_string_buf_chk(&argvars[1], buf1);
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012343 int error = FALSE;
Bram Moolenaar1b1063a2014-05-07 18:35:30 +020012344 garray_T ga;
12345 int i;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012346
Bram Moolenaarbb5ddda2008-11-28 10:01:10 +000012347 /* When the optional second argument is non-zero, don't remove matches
12348 * for 'wildignore' and don't put matches for 'suffixes' at the end. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012349 rettv->v_type = VAR_STRING;
Bram Moolenaar1b1063a2014-05-07 18:35:30 +020012350 if (argvars[2].v_type != VAR_UNKNOWN)
12351 {
12352 if (get_tv_number_chk(&argvars[2], &error))
12353 flags |= WILD_KEEP_ALL;
12354 if (argvars[3].v_type != VAR_UNKNOWN
12355 && get_tv_number_chk(&argvars[3], &error))
12356 {
12357 rettv->v_type = VAR_LIST;
12358 rettv->vval.v_list = NULL;
12359 }
12360 }
12361 if (file != NULL && !error)
12362 {
12363 ga_init2(&ga, (int)sizeof(char_u *), 10);
12364 globpath(get_tv_string(&argvars[0]), file, &ga, flags);
12365 if (rettv->v_type == VAR_STRING)
12366 rettv->vval.v_string = ga_concat_strings(&ga, "\n");
12367 else if (rettv_list_alloc(rettv) != FAIL)
12368 for (i = 0; i < ga.ga_len; ++i)
12369 list_append_string(rettv->vval.v_list,
12370 ((char_u **)(ga.ga_data))[i], -1);
12371 ga_clear_strings(&ga);
12372 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000012373 else
Bram Moolenaar1b1063a2014-05-07 18:35:30 +020012374 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012375}
12376
12377/*
12378 * "has()" function
12379 */
12380 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012381f_has(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012382 typval_T *argvars;
12383 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012384{
12385 int i;
12386 char_u *name;
12387 int n = FALSE;
12388 static char *(has_list[]) =
12389 {
12390#ifdef AMIGA
12391 "amiga",
12392# ifdef FEAT_ARP
12393 "arp",
12394# endif
12395#endif
12396#ifdef __BEOS__
12397 "beos",
12398#endif
12399#ifdef MSDOS
12400# ifdef DJGPP
12401 "dos32",
12402# else
12403 "dos16",
12404# endif
12405#endif
Bram Moolenaar241a8aa2005-12-06 20:04:44 +000012406#ifdef MACOS
Bram Moolenaar071d4272004-06-13 20:20:40 +000012407 "mac",
12408#endif
12409#if defined(MACOS_X_UNIX)
12410 "macunix",
12411#endif
12412#ifdef OS2
12413 "os2",
12414#endif
12415#ifdef __QNX__
12416 "qnx",
12417#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012418#ifdef UNIX
12419 "unix",
12420#endif
12421#ifdef VMS
12422 "vms",
12423#endif
12424#ifdef WIN16
12425 "win16",
12426#endif
12427#ifdef WIN32
12428 "win32",
12429#endif
12430#if defined(UNIX) && (defined(__CYGWIN32__) || defined(__CYGWIN__))
12431 "win32unix",
12432#endif
Bram Moolenaare37d7992010-01-12 13:18:33 +010012433#if defined(WIN64) || defined(_WIN64)
Bram Moolenaar071d4272004-06-13 20:20:40 +000012434 "win64",
12435#endif
12436#ifdef EBCDIC
12437 "ebcdic",
12438#endif
12439#ifndef CASE_INSENSITIVE_FILENAME
12440 "fname_case",
12441#endif
Bram Moolenaarb5ef5e12013-08-30 16:35:44 +020012442#ifdef HAVE_ACL
12443 "acl",
12444#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012445#ifdef FEAT_ARABIC
12446 "arabic",
12447#endif
12448#ifdef FEAT_AUTOCMD
12449 "autocmd",
12450#endif
12451#ifdef FEAT_BEVAL
12452 "balloon_eval",
Bram Moolenaar342337a2005-07-21 21:11:17 +000012453# ifndef FEAT_GUI_W32 /* other GUIs always have multiline balloons */
12454 "balloon_multiline",
12455# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012456#endif
12457#if defined(SOME_BUILTIN_TCAPS) || defined(ALL_BUILTIN_TCAPS)
12458 "builtin_terms",
12459# ifdef ALL_BUILTIN_TCAPS
12460 "all_builtin_terms",
12461# endif
12462#endif
Bram Moolenaar77c604d2012-07-10 13:41:14 +020012463#if defined(FEAT_BROWSE) && (defined(USE_FILE_CHOOSER) \
12464 || defined(FEAT_GUI_W32) \
12465 || defined(FEAT_GUI_MOTIF))
12466 "browsefilter",
12467#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012468#ifdef FEAT_BYTEOFF
12469 "byte_offset",
12470#endif
12471#ifdef FEAT_CINDENT
12472 "cindent",
12473#endif
12474#ifdef FEAT_CLIENTSERVER
12475 "clientserver",
12476#endif
12477#ifdef FEAT_CLIPBOARD
12478 "clipboard",
12479#endif
12480#ifdef FEAT_CMDL_COMPL
12481 "cmdline_compl",
12482#endif
12483#ifdef FEAT_CMDHIST
12484 "cmdline_hist",
12485#endif
12486#ifdef FEAT_COMMENTS
12487 "comments",
12488#endif
Bram Moolenaar860cae12010-06-05 23:22:07 +020012489#ifdef FEAT_CONCEAL
12490 "conceal",
12491#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012492#ifdef FEAT_CRYPT
12493 "cryptv",
12494#endif
12495#ifdef FEAT_CSCOPE
12496 "cscope",
12497#endif
Bram Moolenaar860cae12010-06-05 23:22:07 +020012498#ifdef FEAT_CURSORBIND
12499 "cursorbind",
12500#endif
Bram Moolenaarac6e65f2005-08-29 22:25:38 +000012501#ifdef CURSOR_SHAPE
12502 "cursorshape",
12503#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012504#ifdef DEBUG
12505 "debug",
12506#endif
12507#ifdef FEAT_CON_DIALOG
12508 "dialog_con",
12509#endif
12510#ifdef FEAT_GUI_DIALOG
12511 "dialog_gui",
12512#endif
12513#ifdef FEAT_DIFF
12514 "diff",
12515#endif
12516#ifdef FEAT_DIGRAPHS
12517 "digraphs",
12518#endif
Bram Moolenaarb5a7a8b2014-08-06 14:52:30 +020012519#ifdef FEAT_DIRECTX
12520 "directx",
12521#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012522#ifdef FEAT_DND
12523 "dnd",
12524#endif
12525#ifdef FEAT_EMACS_TAGS
12526 "emacs_tags",
12527#endif
12528 "eval", /* always present, of course! */
12529#ifdef FEAT_EX_EXTRA
12530 "ex_extra",
12531#endif
12532#ifdef FEAT_SEARCH_EXTRA
12533 "extra_search",
12534#endif
12535#ifdef FEAT_FKMAP
12536 "farsi",
12537#endif
12538#ifdef FEAT_SEARCHPATH
12539 "file_in_path",
12540#endif
Bram Moolenaar68a33fc2012-04-25 16:50:48 +020012541#ifdef FEAT_FILTERPIPE
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000012542 "filterpipe",
12543#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012544#ifdef FEAT_FIND_ID
12545 "find_in_path",
12546#endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +000012547#ifdef FEAT_FLOAT
12548 "float",
12549#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012550#ifdef FEAT_FOLDING
12551 "folding",
12552#endif
12553#ifdef FEAT_FOOTER
12554 "footer",
12555#endif
12556#if !defined(USE_SYSTEM) && defined(UNIX)
12557 "fork",
12558#endif
12559#ifdef FEAT_GETTEXT
12560 "gettext",
12561#endif
12562#ifdef FEAT_GUI
12563 "gui",
12564#endif
12565#ifdef FEAT_GUI_ATHENA
12566# ifdef FEAT_GUI_NEXTAW
12567 "gui_neXtaw",
12568# else
12569 "gui_athena",
12570# endif
12571#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012572#ifdef FEAT_GUI_GTK
12573 "gui_gtk",
Bram Moolenaar071d4272004-06-13 20:20:40 +000012574 "gui_gtk2",
Bram Moolenaar071d4272004-06-13 20:20:40 +000012575#endif
Bram Moolenaar7b188622007-09-25 10:51:12 +000012576#ifdef FEAT_GUI_GNOME
12577 "gui_gnome",
12578#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012579#ifdef FEAT_GUI_MAC
12580 "gui_mac",
12581#endif
12582#ifdef FEAT_GUI_MOTIF
12583 "gui_motif",
12584#endif
12585#ifdef FEAT_GUI_PHOTON
12586 "gui_photon",
12587#endif
12588#ifdef FEAT_GUI_W16
12589 "gui_win16",
12590#endif
12591#ifdef FEAT_GUI_W32
12592 "gui_win32",
12593#endif
12594#ifdef FEAT_HANGULIN
12595 "hangul_input",
12596#endif
12597#if defined(HAVE_ICONV_H) && defined(USE_ICONV)
12598 "iconv",
12599#endif
12600#ifdef FEAT_INS_EXPAND
12601 "insert_expand",
12602#endif
12603#ifdef FEAT_JUMPLIST
12604 "jumplist",
12605#endif
12606#ifdef FEAT_KEYMAP
12607 "keymap",
12608#endif
12609#ifdef FEAT_LANGMAP
12610 "langmap",
12611#endif
12612#ifdef FEAT_LIBCALL
12613 "libcall",
12614#endif
12615#ifdef FEAT_LINEBREAK
12616 "linebreak",
12617#endif
12618#ifdef FEAT_LISP
12619 "lispindent",
12620#endif
12621#ifdef FEAT_LISTCMDS
12622 "listcmds",
12623#endif
12624#ifdef FEAT_LOCALMAP
12625 "localmap",
12626#endif
Bram Moolenaar0ba04292010-07-14 23:23:17 +020012627#ifdef FEAT_LUA
12628# ifndef DYNAMIC_LUA
12629 "lua",
12630# endif
12631#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012632#ifdef FEAT_MENU
12633 "menu",
12634#endif
12635#ifdef FEAT_SESSION
12636 "mksession",
12637#endif
12638#ifdef FEAT_MODIFY_FNAME
12639 "modify_fname",
12640#endif
12641#ifdef FEAT_MOUSE
12642 "mouse",
12643#endif
12644#ifdef FEAT_MOUSESHAPE
12645 "mouseshape",
12646#endif
12647#if defined(UNIX) || defined(VMS)
12648# ifdef FEAT_MOUSE_DEC
12649 "mouse_dec",
12650# endif
12651# ifdef FEAT_MOUSE_GPM
12652 "mouse_gpm",
12653# endif
12654# ifdef FEAT_MOUSE_JSB
12655 "mouse_jsbterm",
12656# endif
12657# ifdef FEAT_MOUSE_NET
12658 "mouse_netterm",
12659# endif
12660# ifdef FEAT_MOUSE_PTERM
12661 "mouse_pterm",
12662# endif
Bram Moolenaarcfb80702012-10-21 02:17:45 +020012663# ifdef FEAT_MOUSE_SGR
12664 "mouse_sgr",
12665# endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +000012666# ifdef FEAT_SYSMOUSE
12667 "mouse_sysmouse",
12668# endif
Bram Moolenaarcfb80702012-10-21 02:17:45 +020012669# ifdef FEAT_MOUSE_URXVT
12670 "mouse_urxvt",
12671# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012672# ifdef FEAT_MOUSE_XTERM
12673 "mouse_xterm",
12674# endif
12675#endif
12676#ifdef FEAT_MBYTE
12677 "multi_byte",
12678#endif
12679#ifdef FEAT_MBYTE_IME
12680 "multi_byte_ime",
12681#endif
12682#ifdef FEAT_MULTI_LANG
12683 "multi_lang",
12684#endif
Bram Moolenaar325b7a22004-07-05 15:58:32 +000012685#ifdef FEAT_MZSCHEME
Bram Moolenaar33570922005-01-25 22:26:29 +000012686#ifndef DYNAMIC_MZSCHEME
Bram Moolenaar325b7a22004-07-05 15:58:32 +000012687 "mzscheme",
12688#endif
Bram Moolenaar33570922005-01-25 22:26:29 +000012689#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012690#ifdef FEAT_OLE
12691 "ole",
12692#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012693#ifdef FEAT_PATH_EXTRA
12694 "path_extra",
12695#endif
12696#ifdef FEAT_PERL
12697#ifndef DYNAMIC_PERL
12698 "perl",
12699#endif
12700#endif
Bram Moolenaar55debbe2010-05-23 23:34:36 +020012701#ifdef FEAT_PERSISTENT_UNDO
12702 "persistent_undo",
12703#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012704#ifdef FEAT_PYTHON
12705#ifndef DYNAMIC_PYTHON
12706 "python",
12707#endif
12708#endif
Bram Moolenaarbd5e15f2010-07-17 21:19:38 +020012709#ifdef FEAT_PYTHON3
12710#ifndef DYNAMIC_PYTHON3
12711 "python3",
12712#endif
12713#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012714#ifdef FEAT_POSTSCRIPT
12715 "postscript",
12716#endif
12717#ifdef FEAT_PRINTER
12718 "printer",
12719#endif
Bram Moolenaar05159a02005-02-26 23:04:13 +000012720#ifdef FEAT_PROFILE
12721 "profile",
12722#endif
Bram Moolenaare580b0c2006-03-21 21:33:03 +000012723#ifdef FEAT_RELTIME
12724 "reltime",
12725#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012726#ifdef FEAT_QUICKFIX
12727 "quickfix",
12728#endif
12729#ifdef FEAT_RIGHTLEFT
12730 "rightleft",
12731#endif
12732#if defined(FEAT_RUBY) && !defined(DYNAMIC_RUBY)
12733 "ruby",
12734#endif
12735#ifdef FEAT_SCROLLBIND
12736 "scrollbind",
12737#endif
12738#ifdef FEAT_CMDL_INFO
12739 "showcmd",
12740 "cmdline_info",
12741#endif
12742#ifdef FEAT_SIGNS
12743 "signs",
12744#endif
12745#ifdef FEAT_SMARTINDENT
12746 "smartindent",
12747#endif
12748#ifdef FEAT_SNIFF
12749 "sniff",
12750#endif
Bram Moolenaaref94eec2009-11-11 13:22:11 +000012751#ifdef STARTUPTIME
12752 "startuptime",
12753#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012754#ifdef FEAT_STL_OPT
12755 "statusline",
12756#endif
12757#ifdef FEAT_SUN_WORKSHOP
12758 "sun_workshop",
12759#endif
12760#ifdef FEAT_NETBEANS_INTG
12761 "netbeans_intg",
12762#endif
Bram Moolenaar3c56a962006-03-12 22:19:04 +000012763#ifdef FEAT_SPELL
Bram Moolenaar0e4d8772005-06-07 21:12:49 +000012764 "spell",
12765#endif
12766#ifdef FEAT_SYN_HL
Bram Moolenaar071d4272004-06-13 20:20:40 +000012767 "syntax",
12768#endif
12769#if defined(USE_SYSTEM) || !defined(UNIX)
12770 "system",
12771#endif
12772#ifdef FEAT_TAG_BINS
12773 "tag_binary",
12774#endif
12775#ifdef FEAT_TAG_OLDSTATIC
12776 "tag_old_static",
12777#endif
12778#ifdef FEAT_TAG_ANYWHITE
12779 "tag_any_white",
12780#endif
12781#ifdef FEAT_TCL
12782# ifndef DYNAMIC_TCL
12783 "tcl",
12784# endif
12785#endif
12786#ifdef TERMINFO
12787 "terminfo",
12788#endif
12789#ifdef FEAT_TERMRESPONSE
12790 "termresponse",
12791#endif
12792#ifdef FEAT_TEXTOBJ
12793 "textobjects",
12794#endif
12795#ifdef HAVE_TGETENT
12796 "tgetent",
12797#endif
12798#ifdef FEAT_TITLE
12799 "title",
12800#endif
12801#ifdef FEAT_TOOLBAR
12802 "toolbar",
12803#endif
Bram Moolenaarbf9680e2010-12-02 21:43:16 +010012804#if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
12805 "unnamedplus",
12806#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012807#ifdef FEAT_USR_CMDS
12808 "user-commands", /* was accidentally included in 5.4 */
12809 "user_commands",
12810#endif
12811#ifdef FEAT_VIMINFO
12812 "viminfo",
12813#endif
12814#ifdef FEAT_VERTSPLIT
12815 "vertsplit",
12816#endif
12817#ifdef FEAT_VIRTUALEDIT
12818 "virtualedit",
12819#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012820 "visual",
Bram Moolenaar071d4272004-06-13 20:20:40 +000012821#ifdef FEAT_VISUALEXTRA
12822 "visualextra",
12823#endif
12824#ifdef FEAT_VREPLACE
12825 "vreplace",
12826#endif
12827#ifdef FEAT_WILDIGN
12828 "wildignore",
12829#endif
12830#ifdef FEAT_WILDMENU
12831 "wildmenu",
12832#endif
12833#ifdef FEAT_WINDOWS
12834 "windows",
12835#endif
12836#ifdef FEAT_WAK
12837 "winaltkeys",
12838#endif
12839#ifdef FEAT_WRITEBACKUP
12840 "writebackup",
12841#endif
12842#ifdef FEAT_XIM
12843 "xim",
12844#endif
12845#ifdef FEAT_XFONTSET
12846 "xfontset",
12847#endif
Bram Moolenaar79a2a492012-01-04 14:35:37 +010012848#ifdef FEAT_XPM_W32
Bram Moolenaarb5ef5e12013-08-30 16:35:44 +020012849 "xpm",
12850 "xpm_w32", /* for backward compatibility */
12851#else
12852# if defined(HAVE_XPM)
12853 "xpm",
12854# endif
Bram Moolenaar79a2a492012-01-04 14:35:37 +010012855#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012856#ifdef USE_XSMP
12857 "xsmp",
12858#endif
12859#ifdef USE_XSMP_INTERACT
12860 "xsmp_interact",
12861#endif
12862#ifdef FEAT_XCLIPBOARD
12863 "xterm_clipboard",
12864#endif
12865#ifdef FEAT_XTERM_SAVE
12866 "xterm_save",
12867#endif
12868#if defined(UNIX) && defined(FEAT_X11)
12869 "X11",
12870#endif
12871 NULL
12872 };
12873
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012874 name = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000012875 for (i = 0; has_list[i] != NULL; ++i)
12876 if (STRICMP(name, has_list[i]) == 0)
12877 {
12878 n = TRUE;
12879 break;
12880 }
12881
12882 if (n == FALSE)
12883 {
12884 if (STRNICMP(name, "patch", 5) == 0)
Bram Moolenaar7f3be402014-04-01 22:08:54 +020012885 {
12886 if (name[5] == '-'
12887 && STRLEN(name) > 11
12888 && vim_isdigit(name[6])
12889 && vim_isdigit(name[8])
12890 && vim_isdigit(name[10]))
12891 {
12892 int major = atoi((char *)name + 6);
12893 int minor = atoi((char *)name + 8);
Bram Moolenaar7f3be402014-04-01 22:08:54 +020012894
12895 /* Expect "patch-9.9.01234". */
12896 n = (major < VIM_VERSION_MAJOR
12897 || (major == VIM_VERSION_MAJOR
12898 && (minor < VIM_VERSION_MINOR
12899 || (minor == VIM_VERSION_MINOR
Bram Moolenaar6716d9a2014-04-02 12:12:08 +020012900 && has_patch(atoi((char *)name + 10))))));
Bram Moolenaar7f3be402014-04-01 22:08:54 +020012901 }
12902 else
12903 n = has_patch(atoi((char *)name + 5));
12904 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000012905 else if (STRICMP(name, "vim_starting") == 0)
12906 n = (starting != 0);
Bram Moolenaar42022d52008-12-09 09:57:49 +000012907#ifdef FEAT_MBYTE
12908 else if (STRICMP(name, "multi_byte_encoding") == 0)
12909 n = has_mbyte;
12910#endif
Bram Moolenaar342337a2005-07-21 21:11:17 +000012911#if defined(FEAT_BEVAL) && defined(FEAT_GUI_W32)
12912 else if (STRICMP(name, "balloon_multiline") == 0)
12913 n = multiline_balloon_available();
12914#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012915#ifdef DYNAMIC_TCL
12916 else if (STRICMP(name, "tcl") == 0)
12917 n = tcl_enabled(FALSE);
12918#endif
12919#if defined(USE_ICONV) && defined(DYNAMIC_ICONV)
12920 else if (STRICMP(name, "iconv") == 0)
12921 n = iconv_enabled(FALSE);
12922#endif
Bram Moolenaar0ba04292010-07-14 23:23:17 +020012923#ifdef DYNAMIC_LUA
12924 else if (STRICMP(name, "lua") == 0)
12925 n = lua_enabled(FALSE);
12926#endif
Bram Moolenaar33570922005-01-25 22:26:29 +000012927#ifdef DYNAMIC_MZSCHEME
12928 else if (STRICMP(name, "mzscheme") == 0)
12929 n = mzscheme_enabled(FALSE);
12930#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012931#ifdef DYNAMIC_RUBY
12932 else if (STRICMP(name, "ruby") == 0)
12933 n = ruby_enabled(FALSE);
12934#endif
Bram Moolenaarbd5e15f2010-07-17 21:19:38 +020012935#ifdef FEAT_PYTHON
Bram Moolenaar071d4272004-06-13 20:20:40 +000012936#ifdef DYNAMIC_PYTHON
12937 else if (STRICMP(name, "python") == 0)
12938 n = python_enabled(FALSE);
12939#endif
Bram Moolenaarbd5e15f2010-07-17 21:19:38 +020012940#endif
12941#ifdef FEAT_PYTHON3
12942#ifdef DYNAMIC_PYTHON3
12943 else if (STRICMP(name, "python3") == 0)
12944 n = python3_enabled(FALSE);
12945#endif
12946#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012947#ifdef DYNAMIC_PERL
12948 else if (STRICMP(name, "perl") == 0)
12949 n = perl_enabled(FALSE);
12950#endif
12951#ifdef FEAT_GUI
12952 else if (STRICMP(name, "gui_running") == 0)
12953 n = (gui.in_use || gui.starting);
12954# ifdef FEAT_GUI_W32
12955 else if (STRICMP(name, "gui_win32s") == 0)
12956 n = gui_is_win32s();
12957# endif
12958# ifdef FEAT_BROWSE
12959 else if (STRICMP(name, "browse") == 0)
12960 n = gui.in_use; /* gui_mch_browse() works when GUI is running */
12961# endif
12962#endif
12963#ifdef FEAT_SYN_HL
12964 else if (STRICMP(name, "syntax_items") == 0)
Bram Moolenaar860cae12010-06-05 23:22:07 +020012965 n = syntax_present(curwin);
Bram Moolenaar071d4272004-06-13 20:20:40 +000012966#endif
12967#if defined(WIN3264)
12968 else if (STRICMP(name, "win95") == 0)
12969 n = mch_windows95();
12970#endif
Bram Moolenaar35a9aaa2004-10-24 19:23:07 +000012971#ifdef FEAT_NETBEANS_INTG
12972 else if (STRICMP(name, "netbeans_enabled") == 0)
Bram Moolenaarb26e6322010-05-22 21:34:09 +020012973 n = netbeans_active();
Bram Moolenaar35a9aaa2004-10-24 19:23:07 +000012974#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000012975 }
12976
Bram Moolenaarc70646c2005-01-04 21:52:38 +000012977 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000012978}
12979
12980/*
Bram Moolenaare9a41262005-01-15 22:18:47 +000012981 * "has_key()" function
12982 */
12983 static void
12984f_has_key(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000012985 typval_T *argvars;
12986 typval_T *rettv;
Bram Moolenaare9a41262005-01-15 22:18:47 +000012987{
Bram Moolenaare9a41262005-01-15 22:18:47 +000012988 if (argvars[0].v_type != VAR_DICT)
12989 {
12990 EMSG(_(e_dictreq));
12991 return;
12992 }
12993 if (argvars[0].vval.v_dict == NULL)
12994 return;
12995
12996 rettv->vval.v_number = dict_find(argvars[0].vval.v_dict,
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000012997 get_tv_string(&argvars[1]), -1) != NULL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000012998}
12999
13000/*
Bram Moolenaard267b9c2007-04-26 15:06:45 +000013001 * "haslocaldir()" function
13002 */
Bram Moolenaard267b9c2007-04-26 15:06:45 +000013003 static void
13004f_haslocaldir(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013005 typval_T *argvars UNUSED;
Bram Moolenaard267b9c2007-04-26 15:06:45 +000013006 typval_T *rettv;
13007{
13008 rettv->vval.v_number = (curwin->w_localdir != NULL);
13009}
13010
13011/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013012 * "hasmapto()" function
13013 */
13014 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013015f_hasmapto(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013016 typval_T *argvars;
13017 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013018{
13019 char_u *name;
13020 char_u *mode;
13021 char_u buf[NUMBUFLEN];
Bram Moolenaar2c932302006-03-18 21:42:09 +000013022 int abbr = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013023
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013024 name = get_tv_string(&argvars[0]);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013025 if (argvars[1].v_type == VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000013026 mode = (char_u *)"nvo";
13027 else
Bram Moolenaar2c932302006-03-18 21:42:09 +000013028 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013029 mode = get_tv_string_buf(&argvars[1], buf);
Bram Moolenaar2c932302006-03-18 21:42:09 +000013030 if (argvars[2].v_type != VAR_UNKNOWN)
13031 abbr = get_tv_number(&argvars[2]);
13032 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000013033
Bram Moolenaar2c932302006-03-18 21:42:09 +000013034 if (map_to_exists(name, mode, abbr))
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013035 rettv->vval.v_number = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013036 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013037 rettv->vval.v_number = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013038}
13039
13040/*
13041 * "histadd()" function
13042 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013043 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013044f_histadd(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013045 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013046 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013047{
13048#ifdef FEAT_CMDHIST
13049 int histype;
13050 char_u *str;
13051 char_u buf[NUMBUFLEN];
13052#endif
13053
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013054 rettv->vval.v_number = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013055 if (check_restricted() || check_secure())
13056 return;
13057#ifdef FEAT_CMDHIST
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013058 str = get_tv_string_chk(&argvars[0]); /* NULL on type error */
13059 histype = str != NULL ? get_histtype(str) : -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013060 if (histype >= 0)
13061 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013062 str = get_tv_string_buf(&argvars[1], buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013063 if (*str != NUL)
13064 {
Bram Moolenaarc7be3f32009-12-24 14:01:12 +000013065 init_history();
Bram Moolenaar071d4272004-06-13 20:20:40 +000013066 add_to_history(histype, str, FALSE, NUL);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013067 rettv->vval.v_number = TRUE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013068 return;
13069 }
13070 }
13071#endif
13072}
13073
13074/*
13075 * "histdel()" function
13076 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013077 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013078f_histdel(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013079 typval_T *argvars UNUSED;
13080 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013081{
13082#ifdef FEAT_CMDHIST
13083 int n;
13084 char_u buf[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013085 char_u *str;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013086
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013087 str = get_tv_string_chk(&argvars[0]); /* NULL on type error */
13088 if (str == NULL)
13089 n = 0;
13090 else if (argvars[1].v_type == VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000013091 /* only one argument: clear entire history */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013092 n = clr_history(get_histtype(str));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013093 else if (argvars[1].v_type == VAR_NUMBER)
Bram Moolenaar071d4272004-06-13 20:20:40 +000013094 /* index given: remove that entry */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013095 n = del_history_idx(get_histtype(str),
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013096 (int)get_tv_number(&argvars[1]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000013097 else
13098 /* string given: remove all matching entries */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013099 n = del_history_entry(get_histtype(str),
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013100 get_tv_string_buf(&argvars[1], buf));
13101 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013102#endif
13103}
13104
13105/*
13106 * "histget()" function
13107 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013108 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013109f_histget(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013110 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013111 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013112{
13113#ifdef FEAT_CMDHIST
13114 int type;
13115 int idx;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013116 char_u *str;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013117
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013118 str = get_tv_string_chk(&argvars[0]); /* NULL on type error */
13119 if (str == NULL)
13120 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013121 else
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013122 {
13123 type = get_histtype(str);
13124 if (argvars[1].v_type == VAR_UNKNOWN)
13125 idx = get_history_idx(type);
13126 else
13127 idx = (int)get_tv_number_chk(&argvars[1], NULL);
13128 /* -1 on type error */
13129 rettv->vval.v_string = vim_strsave(get_history_entry(type, idx));
13130 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000013131#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013132 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013133#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013134 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013135}
13136
13137/*
13138 * "histnr()" function
13139 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013140 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013141f_histnr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013142 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013143 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013144{
13145 int i;
13146
13147#ifdef FEAT_CMDHIST
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013148 char_u *history = get_tv_string_chk(&argvars[0]);
13149
13150 i = history == NULL ? HIST_CMD - 1 : get_histtype(history);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013151 if (i >= HIST_CMD && i < HIST_COUNT)
13152 i = get_history_idx(i);
13153 else
13154#endif
13155 i = -1;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013156 rettv->vval.v_number = i;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013157}
13158
13159/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013160 * "highlightID(name)" function
13161 */
13162 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013163f_hlID(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013164 typval_T *argvars;
13165 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013166{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013167 rettv->vval.v_number = syn_name2id(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000013168}
13169
13170/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000013171 * "highlight_exists()" function
13172 */
13173 static void
13174f_hlexists(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013175 typval_T *argvars;
13176 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000013177{
13178 rettv->vval.v_number = highlight_exists(get_tv_string(&argvars[0]));
13179}
13180
13181/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013182 * "hostname()" function
13183 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013184 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013185f_hostname(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013186 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013187 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013188{
13189 char_u hostname[256];
13190
13191 mch_get_host_name(hostname, 256);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013192 rettv->v_type = VAR_STRING;
13193 rettv->vval.v_string = vim_strsave(hostname);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013194}
13195
13196/*
13197 * iconv() function
13198 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013199 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013200f_iconv(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013201 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013202 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013203{
13204#ifdef FEAT_MBYTE
13205 char_u buf1[NUMBUFLEN];
13206 char_u buf2[NUMBUFLEN];
13207 char_u *from, *to, *str;
13208 vimconv_T vimconv;
13209#endif
13210
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013211 rettv->v_type = VAR_STRING;
13212 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013213
13214#ifdef FEAT_MBYTE
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013215 str = get_tv_string(&argvars[0]);
13216 from = enc_canonize(enc_skip(get_tv_string_buf(&argvars[1], buf1)));
13217 to = enc_canonize(enc_skip(get_tv_string_buf(&argvars[2], buf2)));
Bram Moolenaar071d4272004-06-13 20:20:40 +000013218 vimconv.vc_type = CONV_NONE;
13219 convert_setup(&vimconv, from, to);
13220
13221 /* If the encodings are equal, no conversion needed. */
13222 if (vimconv.vc_type == CONV_NONE)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013223 rettv->vval.v_string = vim_strsave(str);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013224 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013225 rettv->vval.v_string = string_convert(&vimconv, str, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013226
13227 convert_setup(&vimconv, NULL, NULL);
13228 vim_free(from);
13229 vim_free(to);
13230#endif
13231}
13232
13233/*
13234 * "indent()" function
13235 */
13236 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013237f_indent(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013238 typval_T *argvars;
13239 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013240{
13241 linenr_T lnum;
13242
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013243 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013244 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013245 rettv->vval.v_number = get_indent_lnum(lnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013246 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013247 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013248}
13249
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013250/*
13251 * "index()" function
13252 */
13253 static void
13254f_index(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013255 typval_T *argvars;
13256 typval_T *rettv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013257{
Bram Moolenaar33570922005-01-25 22:26:29 +000013258 list_T *l;
13259 listitem_T *item;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013260 long idx = 0;
13261 int ic = FALSE;
13262
13263 rettv->vval.v_number = -1;
13264 if (argvars[0].v_type != VAR_LIST)
13265 {
13266 EMSG(_(e_listreq));
13267 return;
13268 }
13269 l = argvars[0].vval.v_list;
13270 if (l != NULL)
13271 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000013272 item = l->lv_first;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013273 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013274 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013275 int error = FALSE;
13276
Bram Moolenaar758711c2005-02-02 23:11:38 +000013277 /* Start at specified item. Use the cached index that list_find()
13278 * sets, so that a negative number also works. */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013279 item = list_find(l, get_tv_number_chk(&argvars[2], &error));
Bram Moolenaar758711c2005-02-02 23:11:38 +000013280 idx = l->lv_idx;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013281 if (argvars[3].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013282 ic = get_tv_number_chk(&argvars[3], &error);
13283 if (error)
13284 item = NULL;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013285 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013286
Bram Moolenaar758711c2005-02-02 23:11:38 +000013287 for ( ; item != NULL; item = item->li_next, ++idx)
Bram Moolenaar67b3f992010-11-10 20:41:57 +010013288 if (tv_equal(&item->li_tv, &argvars[1], ic, FALSE))
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013289 {
13290 rettv->vval.v_number = idx;
13291 break;
13292 }
13293 }
13294}
13295
Bram Moolenaar071d4272004-06-13 20:20:40 +000013296static int inputsecret_flag = 0;
13297
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013298static void get_user_input __ARGS((typval_T *argvars, typval_T *rettv, int inputdialog));
13299
Bram Moolenaar071d4272004-06-13 20:20:40 +000013300/*
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013301 * This function is used by f_input() and f_inputdialog() functions. The third
13302 * argument to f_input() specifies the type of completion to use at the
13303 * prompt. The third argument to f_inputdialog() specifies the value to return
13304 * when the user cancels the prompt.
Bram Moolenaar071d4272004-06-13 20:20:40 +000013305 */
13306 static void
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013307get_user_input(argvars, rettv, inputdialog)
Bram Moolenaar33570922005-01-25 22:26:29 +000013308 typval_T *argvars;
13309 typval_T *rettv;
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013310 int inputdialog;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013311{
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013312 char_u *prompt = get_tv_string_chk(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013313 char_u *p = NULL;
13314 int c;
13315 char_u buf[NUMBUFLEN];
13316 int cmd_silent_save = cmd_silent;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013317 char_u *defstr = (char_u *)"";
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013318 int xp_type = EXPAND_NOTHING;
13319 char_u *xp_arg = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013320
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013321 rettv->v_type = VAR_STRING;
Bram Moolenaarce85c562007-09-16 12:21:16 +000013322 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013323
13324#ifdef NO_CONSOLE_INPUT
13325 /* While starting up, there is no place to enter text. */
13326 if (no_console_input())
Bram Moolenaar071d4272004-06-13 20:20:40 +000013327 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013328#endif
13329
13330 cmd_silent = FALSE; /* Want to see the prompt. */
13331 if (prompt != NULL)
13332 {
13333 /* Only the part of the message after the last NL is considered as
13334 * prompt for the command line */
13335 p = vim_strrchr(prompt, '\n');
13336 if (p == NULL)
13337 p = prompt;
13338 else
13339 {
13340 ++p;
13341 c = *p;
13342 *p = NUL;
13343 msg_start();
13344 msg_clr_eos();
13345 msg_puts_attr(prompt, echo_attr);
13346 msg_didout = FALSE;
13347 msg_starthere();
13348 *p = c;
13349 }
13350 cmdline_row = msg_row;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013351
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013352 if (argvars[1].v_type != VAR_UNKNOWN)
13353 {
13354 defstr = get_tv_string_buf_chk(&argvars[1], buf);
13355 if (defstr != NULL)
13356 stuffReadbuffSpec(defstr);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013357
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013358 if (!inputdialog && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar4463f292005-09-25 22:20:24 +000013359 {
13360 char_u *xp_name;
Bram Moolenaar86c9ee22006-05-13 11:33:27 +000013361 int xp_namelen;
Bram Moolenaar4463f292005-09-25 22:20:24 +000013362 long argt;
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013363
Bram Moolenaarb5c9cb52012-07-16 19:27:29 +020013364 /* input() with a third argument: completion */
Bram Moolenaar4463f292005-09-25 22:20:24 +000013365 rettv->vval.v_string = NULL;
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013366
Bram Moolenaar4463f292005-09-25 22:20:24 +000013367 xp_name = get_tv_string_buf_chk(&argvars[2], buf);
13368 if (xp_name == NULL)
13369 return;
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013370
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000013371 xp_namelen = (int)STRLEN(xp_name);
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013372
Bram Moolenaar4463f292005-09-25 22:20:24 +000013373 if (parse_compl_arg(xp_name, xp_namelen, &xp_type, &argt,
13374 &xp_arg) == FAIL)
13375 return;
13376 }
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013377 }
13378
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013379 if (defstr != NULL)
Bram Moolenaar35a7c682013-10-02 16:46:28 +020013380 {
13381# ifdef FEAT_EX_EXTRA
13382 int save_ex_normal_busy = ex_normal_busy;
13383 ex_normal_busy = 0;
13384# endif
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013385 rettv->vval.v_string =
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013386 getcmdline_prompt(inputsecret_flag ? NUL : '@', p, echo_attr,
13387 xp_type, xp_arg);
Bram Moolenaar35a7c682013-10-02 16:46:28 +020013388# ifdef FEAT_EX_EXTRA
13389 ex_normal_busy = save_ex_normal_busy;
13390# endif
13391 }
Bram Moolenaar04b27512012-08-08 14:33:21 +020013392 if (inputdialog && rettv->vval.v_string == NULL
Bram Moolenaarb5c9cb52012-07-16 19:27:29 +020013393 && argvars[1].v_type != VAR_UNKNOWN
13394 && argvars[2].v_type != VAR_UNKNOWN)
13395 rettv->vval.v_string = vim_strsave(get_tv_string_buf(
13396 &argvars[2], buf));
Bram Moolenaarbfd8fc02005-09-20 23:22:24 +000013397
13398 vim_free(xp_arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013399
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013400 /* since the user typed this, no need to wait for return */
13401 need_wait_return = FALSE;
13402 msg_didout = FALSE;
13403 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000013404 cmd_silent = cmd_silent_save;
13405}
13406
13407/*
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013408 * "input()" function
13409 * Also handles inputsecret() when inputsecret is set.
13410 */
13411 static void
13412f_input(argvars, rettv)
13413 typval_T *argvars;
13414 typval_T *rettv;
13415{
13416 get_user_input(argvars, rettv, FALSE);
13417}
13418
13419/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013420 * "inputdialog()" function
13421 */
13422 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013423f_inputdialog(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013424 typval_T *argvars;
13425 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013426{
13427#if defined(FEAT_GUI_TEXTDIALOG)
13428 /* Use a GUI dialog if the GUI is running and 'c' is not in 'guioptions' */
13429 if (gui.in_use && vim_strchr(p_go, GO_CONDIALOG) == NULL)
13430 {
13431 char_u *message;
13432 char_u buf[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013433 char_u *defstr = (char_u *)"";
Bram Moolenaar071d4272004-06-13 20:20:40 +000013434
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013435 message = get_tv_string_chk(&argvars[0]);
13436 if (argvars[1].v_type != VAR_UNKNOWN
Bram Moolenaarc05f93f2006-05-02 22:09:31 +000013437 && (defstr = get_tv_string_buf_chk(&argvars[1], buf)) != NULL)
Bram Moolenaarce0842a2005-07-18 21:58:11 +000013438 vim_strncpy(IObuff, defstr, IOSIZE - 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013439 else
13440 IObuff[0] = NUL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013441 if (message != NULL && defstr != NULL
13442 && do_dialog(VIM_QUESTION, NULL, message,
Bram Moolenaard2c340a2011-01-17 20:08:11 +010013443 (char_u *)_("&OK\n&Cancel"), 1, IObuff, FALSE) == 1)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013444 rettv->vval.v_string = vim_strsave(IObuff);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013445 else
13446 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013447 if (message != NULL && defstr != NULL
13448 && argvars[1].v_type != VAR_UNKNOWN
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013449 && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013450 rettv->vval.v_string = vim_strsave(
13451 get_tv_string_buf(&argvars[2], buf));
Bram Moolenaar071d4272004-06-13 20:20:40 +000013452 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013453 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013454 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013455 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013456 }
13457 else
13458#endif
Bram Moolenaarecbaf552006-07-13 06:31:00 +000013459 get_user_input(argvars, rettv, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013460}
13461
Bram Moolenaar6efa2b32005-09-10 19:26:26 +000013462/*
13463 * "inputlist()" function
13464 */
13465 static void
13466f_inputlist(argvars, rettv)
13467 typval_T *argvars;
13468 typval_T *rettv;
13469{
13470 listitem_T *li;
13471 int selected;
13472 int mouse_used;
13473
Bram Moolenaar6efa2b32005-09-10 19:26:26 +000013474#ifdef NO_CONSOLE_INPUT
13475 /* While starting up, there is no place to enter text. */
13476 if (no_console_input())
13477 return;
13478#endif
13479 if (argvars[0].v_type != VAR_LIST || argvars[0].vval.v_list == NULL)
13480 {
13481 EMSG2(_(e_listarg), "inputlist()");
13482 return;
13483 }
13484
13485 msg_start();
Bram Moolenaar412f7442006-07-23 19:51:57 +000013486 msg_row = Rows - 1; /* for when 'cmdheight' > 1 */
Bram Moolenaar6efa2b32005-09-10 19:26:26 +000013487 lines_left = Rows; /* avoid more prompt */
13488 msg_scroll = TRUE;
13489 msg_clr_eos();
13490
13491 for (li = argvars[0].vval.v_list->lv_first; li != NULL; li = li->li_next)
13492 {
13493 msg_puts(get_tv_string(&li->li_tv));
13494 msg_putchar('\n');
13495 }
13496
13497 /* Ask for choice. */
13498 selected = prompt_for_number(&mouse_used);
13499 if (mouse_used)
13500 selected -= lines_left;
13501
13502 rettv->vval.v_number = selected;
13503}
13504
13505
Bram Moolenaar071d4272004-06-13 20:20:40 +000013506static garray_T ga_userinput = {0, 0, sizeof(tasave_T), 4, NULL};
13507
13508/*
13509 * "inputrestore()" function
13510 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013511 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013512f_inputrestore(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013513 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013514 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013515{
13516 if (ga_userinput.ga_len > 0)
13517 {
13518 --ga_userinput.ga_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013519 restore_typeahead((tasave_T *)(ga_userinput.ga_data)
13520 + ga_userinput.ga_len);
Bram Moolenaar798b30b2009-04-22 10:56:16 +000013521 /* default return is zero == OK */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013522 }
13523 else if (p_verbose > 1)
13524 {
Bram Moolenaar54ee7752005-05-31 22:22:17 +000013525 verb_msg((char_u *)_("called inputrestore() more often than inputsave()"));
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013526 rettv->vval.v_number = 1; /* Failed */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013527 }
13528}
13529
13530/*
13531 * "inputsave()" function
13532 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013533 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013534f_inputsave(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013535 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013536 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013537{
Bram Moolenaar8c8de832008-06-24 22:58:06 +000013538 /* Add an entry to the stack of typeahead storage. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013539 if (ga_grow(&ga_userinput, 1) == OK)
13540 {
13541 save_typeahead((tasave_T *)(ga_userinput.ga_data)
13542 + ga_userinput.ga_len);
13543 ++ga_userinput.ga_len;
Bram Moolenaar798b30b2009-04-22 10:56:16 +000013544 /* default return is zero == OK */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013545 }
13546 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013547 rettv->vval.v_number = 1; /* Failed */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013548}
13549
13550/*
13551 * "inputsecret()" function
13552 */
13553 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013554f_inputsecret(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013555 typval_T *argvars;
13556 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013557{
13558 ++cmdline_star;
13559 ++inputsecret_flag;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013560 f_input(argvars, rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013561 --cmdline_star;
13562 --inputsecret_flag;
13563}
13564
13565/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013566 * "insert()" function
13567 */
13568 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013569f_insert(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013570 typval_T *argvars;
13571 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013572{
13573 long before = 0;
Bram Moolenaar33570922005-01-25 22:26:29 +000013574 listitem_T *item;
13575 list_T *l;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013576 int error = FALSE;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013577
13578 if (argvars[0].v_type != VAR_LIST)
Bram Moolenaar0d660222005-01-07 21:51:51 +000013579 EMSG2(_(e_listarg), "insert()");
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013580 else if ((l = argvars[0].vval.v_list) != NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020013581 && !tv_check_lock(l->lv_lock, (char_u *)_("insert() argument")))
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013582 {
13583 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013584 before = get_tv_number_chk(&argvars[2], &error);
13585 if (error)
13586 return; /* type error; errmsg already given */
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013587
Bram Moolenaar758711c2005-02-02 23:11:38 +000013588 if (before == l->lv_len)
13589 item = NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013590 else
13591 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000013592 item = list_find(l, before);
13593 if (item == NULL)
13594 {
13595 EMSGN(_(e_listidx), before);
13596 l = NULL;
13597 }
13598 }
13599 if (l != NULL)
13600 {
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013601 list_insert_tv(l, &argvars[1], item);
Bram Moolenaar8a283e52005-01-06 23:28:25 +000013602 copy_tv(&argvars[0], rettv);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013603 }
13604 }
13605}
13606
13607/*
Bram Moolenaard6e256c2011-12-14 15:32:50 +010013608 * "invert(expr)" function
13609 */
13610 static void
13611f_invert(argvars, rettv)
13612 typval_T *argvars;
13613 typval_T *rettv;
13614{
13615 rettv->vval.v_number = ~get_tv_number_chk(&argvars[0], NULL);
13616}
13617
13618/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013619 * "isdirectory()" function
13620 */
13621 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013622f_isdirectory(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013623 typval_T *argvars;
13624 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013625{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013626 rettv->vval.v_number = mch_isdir(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000013627}
13628
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013629/*
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013630 * "islocked()" function
13631 */
13632 static void
13633f_islocked(argvars, rettv)
13634 typval_T *argvars;
13635 typval_T *rettv;
13636{
13637 lval_T lv;
13638 char_u *end;
13639 dictitem_T *di;
13640
13641 rettv->vval.v_number = -1;
Bram Moolenaar6d977d62014-01-14 15:24:39 +010013642 end = get_lval(get_tv_string(&argvars[0]), NULL, &lv, FALSE, FALSE,
13643 GLV_NO_AUTOLOAD, FNE_CHECK_START);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013644 if (end != NULL && lv.ll_name != NULL)
13645 {
13646 if (*end != NUL)
13647 EMSG(_(e_trailing));
13648 else
13649 {
13650 if (lv.ll_tv == NULL)
13651 {
13652 if (check_changedtick(lv.ll_name))
13653 rettv->vval.v_number = 1; /* always locked */
13654 else
13655 {
Bram Moolenaar6d977d62014-01-14 15:24:39 +010013656 di = find_var(lv.ll_name, NULL, TRUE);
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013657 if (di != NULL)
13658 {
13659 /* Consider a variable locked when:
13660 * 1. the variable itself is locked
13661 * 2. the value of the variable is locked.
13662 * 3. the List or Dict value is locked.
13663 */
13664 rettv->vval.v_number = ((di->di_flags & DI_FLAGS_LOCK)
13665 || tv_islocked(&di->di_tv));
13666 }
13667 }
13668 }
13669 else if (lv.ll_range)
Bram Moolenaar910f66f2006-04-05 20:41:53 +000013670 EMSG(_("E786: Range not allowed"));
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013671 else if (lv.ll_newkey != NULL)
13672 EMSG2(_(e_dictkey), lv.ll_newkey);
13673 else if (lv.ll_list != NULL)
13674 /* List item. */
13675 rettv->vval.v_number = tv_islocked(&lv.ll_li->li_tv);
13676 else
13677 /* Dictionary item. */
13678 rettv->vval.v_number = tv_islocked(&lv.ll_di->di_tv);
13679 }
13680 }
13681
13682 clear_lval(&lv);
13683}
13684
Bram Moolenaar33570922005-01-25 22:26:29 +000013685static void dict_list __ARGS((typval_T *argvars, typval_T *rettv, int what));
Bram Moolenaar8c711452005-01-14 21:53:12 +000013686
13687/*
13688 * Turn a dict into a list:
13689 * "what" == 0: list of keys
13690 * "what" == 1: list of values
13691 * "what" == 2: list of items
13692 */
13693 static void
13694dict_list(argvars, rettv, what)
Bram Moolenaar33570922005-01-25 22:26:29 +000013695 typval_T *argvars;
13696 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +000013697 int what;
13698{
Bram Moolenaar33570922005-01-25 22:26:29 +000013699 list_T *l2;
13700 dictitem_T *di;
13701 hashitem_T *hi;
13702 listitem_T *li;
13703 listitem_T *li2;
13704 dict_T *d;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013705 int todo;
Bram Moolenaar8c711452005-01-14 21:53:12 +000013706
Bram Moolenaar8c711452005-01-14 21:53:12 +000013707 if (argvars[0].v_type != VAR_DICT)
13708 {
13709 EMSG(_(e_dictreq));
13710 return;
13711 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013712 if ((d = argvars[0].vval.v_dict) == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +000013713 return;
13714
Bram Moolenaareddf53b2006-02-27 00:11:10 +000013715 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar8c711452005-01-14 21:53:12 +000013716 return;
Bram Moolenaar8c711452005-01-14 21:53:12 +000013717
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000013718 todo = (int)d->dv_hashtab.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +000013719 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
Bram Moolenaar8c711452005-01-14 21:53:12 +000013720 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013721 if (!HASHITEM_EMPTY(hi))
Bram Moolenaar8c711452005-01-14 21:53:12 +000013722 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013723 --todo;
13724 di = HI2DI(hi);
Bram Moolenaar8c711452005-01-14 21:53:12 +000013725
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013726 li = listitem_alloc();
13727 if (li == NULL)
Bram Moolenaar8c711452005-01-14 21:53:12 +000013728 break;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000013729 list_append(rettv->vval.v_list, li);
Bram Moolenaar8c711452005-01-14 21:53:12 +000013730
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013731 if (what == 0)
13732 {
13733 /* keys() */
13734 li->li_tv.v_type = VAR_STRING;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013735 li->li_tv.v_lock = 0;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013736 li->li_tv.vval.v_string = vim_strsave(di->di_key);
13737 }
13738 else if (what == 1)
13739 {
13740 /* values() */
13741 copy_tv(&di->di_tv, &li->li_tv);
13742 }
13743 else
13744 {
13745 /* items() */
13746 l2 = list_alloc();
13747 li->li_tv.v_type = VAR_LIST;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013748 li->li_tv.v_lock = 0;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013749 li->li_tv.vval.v_list = l2;
13750 if (l2 == NULL)
13751 break;
13752 ++l2->lv_refcount;
13753
13754 li2 = listitem_alloc();
13755 if (li2 == NULL)
13756 break;
13757 list_append(l2, li2);
13758 li2->li_tv.v_type = VAR_STRING;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000013759 li2->li_tv.v_lock = 0;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000013760 li2->li_tv.vval.v_string = vim_strsave(di->di_key);
13761
13762 li2 = listitem_alloc();
13763 if (li2 == NULL)
13764 break;
13765 list_append(l2, li2);
13766 copy_tv(&di->di_tv, &li2->li_tv);
13767 }
Bram Moolenaar8c711452005-01-14 21:53:12 +000013768 }
13769 }
13770}
13771
13772/*
13773 * "items(dict)" function
13774 */
13775 static void
13776f_items(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013777 typval_T *argvars;
13778 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +000013779{
13780 dict_list(argvars, rettv, 2);
13781}
13782
Bram Moolenaar071d4272004-06-13 20:20:40 +000013783/*
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013784 * "join()" function
13785 */
13786 static void
13787f_join(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013788 typval_T *argvars;
13789 typval_T *rettv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013790{
13791 garray_T ga;
13792 char_u *sep;
13793
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013794 if (argvars[0].v_type != VAR_LIST)
13795 {
13796 EMSG(_(e_listreq));
13797 return;
13798 }
13799 if (argvars[0].vval.v_list == NULL)
13800 return;
13801 if (argvars[1].v_type == VAR_UNKNOWN)
13802 sep = (char_u *)" ";
13803 else
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013804 sep = get_tv_string_chk(&argvars[1]);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013805
13806 rettv->v_type = VAR_STRING;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013807
13808 if (sep != NULL)
13809 {
13810 ga_init2(&ga, (int)sizeof(char), 80);
Bram Moolenaarb71eaae2006-01-20 23:10:18 +000013811 list_join(&ga, argvars[0].vval.v_list, sep, TRUE, 0);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000013812 ga_append(&ga, NUL);
13813 rettv->vval.v_string = (char_u *)ga.ga_data;
13814 }
13815 else
13816 rettv->vval.v_string = NULL;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000013817}
13818
13819/*
Bram Moolenaar8c711452005-01-14 21:53:12 +000013820 * "keys()" function
13821 */
13822 static void
13823f_keys(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013824 typval_T *argvars;
13825 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +000013826{
13827 dict_list(argvars, rettv, 0);
13828}
13829
13830/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013831 * "last_buffer_nr()" function.
13832 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013833 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013834f_last_buffer_nr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013835 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013836 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013837{
13838 int n = 0;
13839 buf_T *buf;
13840
13841 for (buf = firstbuf; buf != NULL; buf = buf->b_next)
13842 if (n < buf->b_fnum)
13843 n = buf->b_fnum;
13844
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013845 rettv->vval.v_number = n;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013846}
13847
13848/*
13849 * "len()" function
13850 */
13851 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013852f_len(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013853 typval_T *argvars;
13854 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013855{
13856 switch (argvars[0].v_type)
13857 {
13858 case VAR_STRING:
13859 case VAR_NUMBER:
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013860 rettv->vval.v_number = (varnumber_T)STRLEN(
13861 get_tv_string(&argvars[0]));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013862 break;
13863 case VAR_LIST:
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013864 rettv->vval.v_number = list_len(argvars[0].vval.v_list);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013865 break;
Bram Moolenaare9a41262005-01-15 22:18:47 +000013866 case VAR_DICT:
13867 rettv->vval.v_number = dict_len(argvars[0].vval.v_dict);
13868 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013869 default:
Bram Moolenaare49b69a2005-01-08 16:11:57 +000013870 EMSG(_("E701: Invalid type for len()"));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013871 break;
13872 }
13873}
13874
Bram Moolenaar33570922005-01-25 22:26:29 +000013875static void libcall_common __ARGS((typval_T *argvars, typval_T *rettv, int type));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013876
13877 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013878libcall_common(argvars, rettv, type)
Bram Moolenaar33570922005-01-25 22:26:29 +000013879 typval_T *argvars;
13880 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013881 int type;
13882{
13883#ifdef FEAT_LIBCALL
13884 char_u *string_in;
13885 char_u **string_result;
13886 int nr_result;
13887#endif
13888
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013889 rettv->v_type = type;
Bram Moolenaar798b30b2009-04-22 10:56:16 +000013890 if (type != VAR_NUMBER)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013891 rettv->vval.v_string = NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013892
13893 if (check_restricted() || check_secure())
13894 return;
13895
13896#ifdef FEAT_LIBCALL
13897 /* The first two args must be strings, otherwise its meaningless */
13898 if (argvars[0].v_type == VAR_STRING && argvars[1].v_type == VAR_STRING)
13899 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000013900 string_in = NULL;
13901 if (argvars[2].v_type == VAR_STRING)
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013902 string_in = argvars[2].vval.v_string;
13903 if (type == VAR_NUMBER)
13904 string_result = NULL;
13905 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013906 string_result = &rettv->vval.v_string;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013907 if (mch_libcall(argvars[0].vval.v_string,
13908 argvars[1].vval.v_string,
13909 string_in,
13910 argvars[2].vval.v_number,
13911 string_result,
13912 &nr_result) == OK
13913 && type == VAR_NUMBER)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013914 rettv->vval.v_number = nr_result;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000013915 }
13916#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000013917}
13918
13919/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000013920 * "libcall()" function
13921 */
13922 static void
13923f_libcall(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013924 typval_T *argvars;
13925 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000013926{
13927 libcall_common(argvars, rettv, VAR_STRING);
13928}
13929
13930/*
13931 * "libcallnr()" function
13932 */
13933 static void
13934f_libcallnr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013935 typval_T *argvars;
13936 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000013937{
13938 libcall_common(argvars, rettv, VAR_NUMBER);
13939}
13940
13941/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000013942 * "line(string)" function
13943 */
13944 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013945f_line(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000013946 typval_T *argvars;
13947 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013948{
13949 linenr_T lnum = 0;
13950 pos_T *fp;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000013951 int fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013952
Bram Moolenaar0e34f622006-03-03 23:00:03 +000013953 fp = var2fpos(&argvars[0], TRUE, &fnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013954 if (fp != NULL)
13955 lnum = fp->lnum;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013956 rettv->vval.v_number = lnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013957}
13958
13959/*
13960 * "line2byte(lnum)" function
13961 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000013962 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013963f_line2byte(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000013964 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013965 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013966{
13967#ifndef FEAT_BYTEOFF
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013968 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013969#else
13970 linenr_T lnum;
13971
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013972 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013973 if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count + 1)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013974 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013975 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013976 rettv->vval.v_number = ml_find_line_or_offset(curbuf, lnum, NULL);
13977 if (rettv->vval.v_number >= 0)
13978 ++rettv->vval.v_number;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013979#endif
13980}
13981
13982/*
13983 * "lispindent(lnum)" function
13984 */
13985 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013986f_lispindent(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010013987 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000013988 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000013989{
13990#ifdef FEAT_LISP
13991 pos_T pos;
13992 linenr_T lnum;
13993
13994 pos = curwin->w_cursor;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013995 lnum = get_tv_lnum(argvars);
Bram Moolenaar071d4272004-06-13 20:20:40 +000013996 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
13997 {
13998 curwin->w_cursor.lnum = lnum;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000013999 rettv->vval.v_number = get_lisp_indent();
Bram Moolenaar071d4272004-06-13 20:20:40 +000014000 curwin->w_cursor = pos;
14001 }
14002 else
14003#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014004 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014005}
14006
14007/*
14008 * "localtime()" function
14009 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000014010 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014011f_localtime(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000014012 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000014013 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014014{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014015 rettv->vval.v_number = (varnumber_T)time(NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014016}
14017
Bram Moolenaar33570922005-01-25 22:26:29 +000014018static void get_maparg __ARGS((typval_T *argvars, typval_T *rettv, int exact));
Bram Moolenaar071d4272004-06-13 20:20:40 +000014019
14020 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014021get_maparg(argvars, rettv, exact)
Bram Moolenaar33570922005-01-25 22:26:29 +000014022 typval_T *argvars;
14023 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014024 int exact;
14025{
14026 char_u *keys;
14027 char_u *which;
14028 char_u buf[NUMBUFLEN];
14029 char_u *keys_buf = NULL;
14030 char_u *rhs;
14031 int mode;
Bram Moolenaar2c932302006-03-18 21:42:09 +000014032 int abbr = FALSE;
Bram Moolenaar3fe37d62012-02-06 00:13:22 +010014033 int get_dict = FALSE;
Bram Moolenaarbd743252010-10-20 21:23:33 +020014034 mapblock_T *mp;
14035 int buffer_local;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014036
14037 /* return empty string for failure */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014038 rettv->v_type = VAR_STRING;
14039 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014040
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014041 keys = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014042 if (*keys == NUL)
14043 return;
14044
Bram Moolenaar49cd9572005-01-03 21:06:01 +000014045 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar2c932302006-03-18 21:42:09 +000014046 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014047 which = get_tv_string_buf_chk(&argvars[1], buf);
Bram Moolenaar2c932302006-03-18 21:42:09 +000014048 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaarbd743252010-10-20 21:23:33 +020014049 {
Bram Moolenaar2c932302006-03-18 21:42:09 +000014050 abbr = get_tv_number(&argvars[2]);
Bram Moolenaarbd743252010-10-20 21:23:33 +020014051 if (argvars[3].v_type != VAR_UNKNOWN)
14052 get_dict = get_tv_number(&argvars[3]);
14053 }
Bram Moolenaar2c932302006-03-18 21:42:09 +000014054 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000014055 else
14056 which = (char_u *)"";
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014057 if (which == NULL)
14058 return;
14059
Bram Moolenaar071d4272004-06-13 20:20:40 +000014060 mode = get_map_mode(&which, 0);
14061
Bram Moolenaar3fb9eda2006-05-03 21:29:58 +000014062 keys = replace_termcodes(keys, &keys_buf, TRUE, TRUE, FALSE);
Bram Moolenaarbd743252010-10-20 21:23:33 +020014063 rhs = check_map(keys, mode, exact, FALSE, abbr, &mp, &buffer_local);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014064 vim_free(keys_buf);
Bram Moolenaarbd743252010-10-20 21:23:33 +020014065
14066 if (!get_dict)
Bram Moolenaar071d4272004-06-13 20:20:40 +000014067 {
Bram Moolenaarbd743252010-10-20 21:23:33 +020014068 /* Return a string. */
14069 if (rhs != NULL)
14070 rettv->vval.v_string = str2special_save(rhs, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014071
Bram Moolenaarbd743252010-10-20 21:23:33 +020014072 }
14073 else if (rettv_dict_alloc(rettv) != FAIL && rhs != NULL)
14074 {
14075 /* Return a dictionary. */
14076 char_u *lhs = str2special_save(mp->m_keys, TRUE);
14077 char_u *mapmode = map_mode_to_chars(mp->m_mode);
14078 dict_T *dict = rettv->vval.v_dict;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014079
Bram Moolenaarbd743252010-10-20 21:23:33 +020014080 dict_add_nr_str(dict, "lhs", 0L, lhs);
14081 dict_add_nr_str(dict, "rhs", 0L, mp->m_orig_str);
14082 dict_add_nr_str(dict, "noremap", mp->m_noremap ? 1L : 0L , NULL);
14083 dict_add_nr_str(dict, "expr", mp->m_expr ? 1L : 0L, NULL);
14084 dict_add_nr_str(dict, "silent", mp->m_silent ? 1L : 0L, NULL);
14085 dict_add_nr_str(dict, "sid", (long)mp->m_script_ID, NULL);
14086 dict_add_nr_str(dict, "buffer", (long)buffer_local, NULL);
Bram Moolenaar72179e12013-06-29 13:58:31 +020014087 dict_add_nr_str(dict, "nowait", mp->m_nowait ? 1L : 0L, NULL);
Bram Moolenaarbd743252010-10-20 21:23:33 +020014088 dict_add_nr_str(dict, "mode", 0L, mapmode);
14089
14090 vim_free(lhs);
14091 vim_free(mapmode);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014092 }
14093}
14094
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014095#ifdef FEAT_FLOAT
14096/*
Bram Moolenaardb7c6862010-05-21 16:33:48 +020014097 * "log()" function
14098 */
14099 static void
14100f_log(argvars, rettv)
14101 typval_T *argvars;
14102 typval_T *rettv;
14103{
14104 float_T f;
14105
14106 rettv->v_type = VAR_FLOAT;
14107 if (get_float_arg(argvars, &f) == OK)
14108 rettv->vval.v_float = log(f);
14109 else
14110 rettv->vval.v_float = 0.0;
14111}
14112
14113/*
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014114 * "log10()" function
14115 */
14116 static void
14117f_log10(argvars, rettv)
14118 typval_T *argvars;
14119 typval_T *rettv;
14120{
14121 float_T f;
14122
14123 rettv->v_type = VAR_FLOAT;
14124 if (get_float_arg(argvars, &f) == OK)
14125 rettv->vval.v_float = log10(f);
14126 else
14127 rettv->vval.v_float = 0.0;
14128}
14129#endif
14130
Bram Moolenaar1dced572012-04-05 16:54:08 +020014131#ifdef FEAT_LUA
14132/*
14133 * "luaeval()" function
14134 */
14135 static void
14136f_luaeval(argvars, rettv)
14137 typval_T *argvars;
14138 typval_T *rettv;
14139{
14140 char_u *str;
14141 char_u buf[NUMBUFLEN];
14142
14143 str = get_tv_string_buf(&argvars[0], buf);
14144 do_luaeval(str, argvars + 1, rettv);
14145}
14146#endif
14147
Bram Moolenaar071d4272004-06-13 20:20:40 +000014148/*
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014149 * "map()" function
14150 */
14151 static void
14152f_map(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014153 typval_T *argvars;
14154 typval_T *rettv;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014155{
14156 filter_map(argvars, rettv, TRUE);
14157}
14158
14159/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014160 * "maparg()" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000014161 */
14162 static void
Bram Moolenaar0d660222005-01-07 21:51:51 +000014163f_maparg(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014164 typval_T *argvars;
14165 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014166{
Bram Moolenaar0d660222005-01-07 21:51:51 +000014167 get_maparg(argvars, rettv, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014168}
14169
14170/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014171 * "mapcheck()" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000014172 */
14173 static void
Bram Moolenaar0d660222005-01-07 21:51:51 +000014174f_mapcheck(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014175 typval_T *argvars;
14176 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014177{
Bram Moolenaar0d660222005-01-07 21:51:51 +000014178 get_maparg(argvars, rettv, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014179}
14180
Bram Moolenaar33570922005-01-25 22:26:29 +000014181static void find_some_match __ARGS((typval_T *argvars, typval_T *rettv, int start));
Bram Moolenaar071d4272004-06-13 20:20:40 +000014182
14183 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014184find_some_match(argvars, rettv, type)
Bram Moolenaar33570922005-01-25 22:26:29 +000014185 typval_T *argvars;
14186 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014187 int type;
14188{
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014189 char_u *str = NULL;
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014190 long len = 0;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014191 char_u *expr = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014192 char_u *pat;
14193 regmatch_T regmatch;
14194 char_u patbuf[NUMBUFLEN];
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014195 char_u strbuf[NUMBUFLEN];
Bram Moolenaar071d4272004-06-13 20:20:40 +000014196 char_u *save_cpo;
14197 long start = 0;
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014198 long nth = 1;
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000014199 colnr_T startcol = 0;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000014200 int match = 0;
Bram Moolenaar33570922005-01-25 22:26:29 +000014201 list_T *l = NULL;
14202 listitem_T *li = NULL;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014203 long idx = 0;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014204 char_u *tofree = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014205
14206 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
14207 save_cpo = p_cpo;
14208 p_cpo = (char_u *)"";
14209
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014210 rettv->vval.v_number = -1;
14211 if (type == 3)
14212 {
14213 /* return empty list when there are no matches */
Bram Moolenaareddf53b2006-02-27 00:11:10 +000014214 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014215 goto theend;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014216 }
14217 else if (type == 2)
Bram Moolenaar071d4272004-06-13 20:20:40 +000014218 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014219 rettv->v_type = VAR_STRING;
14220 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014221 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000014222
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014223 if (argvars[0].v_type == VAR_LIST)
14224 {
14225 if ((l = argvars[0].vval.v_list) == NULL)
14226 goto theend;
14227 li = l->lv_first;
14228 }
14229 else
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014230 {
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014231 expr = str = get_tv_string(&argvars[0]);
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014232 len = (long)STRLEN(str);
14233 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014234
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014235 pat = get_tv_string_buf_chk(&argvars[1], patbuf);
14236 if (pat == NULL)
14237 goto theend;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014238
Bram Moolenaar49cd9572005-01-03 21:06:01 +000014239 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000014240 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014241 int error = FALSE;
14242
14243 start = get_tv_number_chk(&argvars[2], &error);
14244 if (error)
14245 goto theend;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014246 if (l != NULL)
14247 {
14248 li = list_find(l, start);
14249 if (li == NULL)
14250 goto theend;
Bram Moolenaar758711c2005-02-02 23:11:38 +000014251 idx = l->lv_idx; /* use the cached index */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014252 }
14253 else
14254 {
14255 if (start < 0)
14256 start = 0;
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014257 if (start > len)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014258 goto theend;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000014259 /* When "count" argument is there ignore matches before "start",
14260 * otherwise skip part of the string. Differs when pattern is "^"
14261 * or "\<". */
14262 if (argvars[3].v_type != VAR_UNKNOWN)
14263 startcol = start;
14264 else
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014265 {
Bram Moolenaar0e34f622006-03-03 23:00:03 +000014266 str += start;
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014267 len -= start;
14268 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014269 }
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014270
Bram Moolenaar49cd9572005-01-03 21:06:01 +000014271 if (argvars[3].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014272 nth = get_tv_number_chk(&argvars[3], &error);
14273 if (error)
14274 goto theend;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014275 }
14276
14277 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
14278 if (regmatch.regprog != NULL)
14279 {
14280 regmatch.rm_ic = p_ic;
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014281
Bram Moolenaard8e9bb22005-07-09 21:14:46 +000014282 for (;;)
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014283 {
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014284 if (l != NULL)
14285 {
14286 if (li == NULL)
14287 {
14288 match = FALSE;
14289 break;
14290 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014291 vim_free(tofree);
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000014292 str = echo_string(&li->li_tv, &tofree, strbuf, 0);
Bram Moolenaar81bf7082005-02-12 14:31:42 +000014293 if (str == NULL)
14294 break;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014295 }
14296
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000014297 match = vim_regexec_nl(&regmatch, str, (colnr_T)startcol);
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014298
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014299 if (match && --nth <= 0)
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014300 break;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014301 if (l == NULL && !match)
14302 break;
14303
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014304 /* Advance to just after the match. */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014305 if (l != NULL)
14306 {
14307 li = li->li_next;
14308 ++idx;
14309 }
14310 else
14311 {
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014312#ifdef FEAT_MBYTE
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000014313 startcol = (colnr_T)(regmatch.startp[0]
14314 + (*mb_ptr2len)(regmatch.startp[0]) - str);
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014315#else
Bram Moolenaar8765a4a2010-07-27 22:41:43 +020014316 startcol = (colnr_T)(regmatch.startp[0] + 1 - str);
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014317#endif
Bram Moolenaar9feaf622014-02-22 22:18:47 +010014318 if (startcol > (colnr_T)len
14319 || str + startcol <= regmatch.startp[0])
14320 {
14321 match = FALSE;
14322 break;
14323 }
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014324 }
Bram Moolenaar89cb5e02004-07-19 20:55:54 +000014325 }
14326
14327 if (match)
Bram Moolenaar071d4272004-06-13 20:20:40 +000014328 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014329 if (type == 3)
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014330 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014331 int i;
14332
14333 /* return list with matched string and submatches */
14334 for (i = 0; i < NSUBEXP; ++i)
14335 {
14336 if (regmatch.endp[i] == NULL)
Bram Moolenaarf9393ef2006-04-24 19:47:27 +000014337 {
14338 if (list_append_string(rettv->vval.v_list,
14339 (char_u *)"", 0) == FAIL)
14340 break;
14341 }
14342 else if (list_append_string(rettv->vval.v_list,
Bram Moolenaar4463f292005-09-25 22:20:24 +000014343 regmatch.startp[i],
14344 (int)(regmatch.endp[i] - regmatch.startp[i]))
14345 == FAIL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014346 break;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014347 }
14348 }
14349 else if (type == 2)
14350 {
14351 /* return matched string */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014352 if (l != NULL)
14353 copy_tv(&li->li_tv, rettv);
14354 else
14355 rettv->vval.v_string = vim_strnsave(regmatch.startp[0],
Bram Moolenaar071d4272004-06-13 20:20:40 +000014356 (int)(regmatch.endp[0] - regmatch.startp[0]));
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000014357 }
14358 else if (l != NULL)
14359 rettv->vval.v_number = idx;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014360 else
14361 {
14362 if (type != 0)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014363 rettv->vval.v_number =
Bram Moolenaar071d4272004-06-13 20:20:40 +000014364 (varnumber_T)(regmatch.startp[0] - str);
14365 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014366 rettv->vval.v_number =
Bram Moolenaar071d4272004-06-13 20:20:40 +000014367 (varnumber_T)(regmatch.endp[0] - str);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000014368 rettv->vval.v_number += (varnumber_T)(str - expr);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014369 }
14370 }
Bram Moolenaar473de612013-06-08 18:19:48 +020014371 vim_regfree(regmatch.regprog);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014372 }
14373
14374theend:
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014375 vim_free(tofree);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014376 p_cpo = save_cpo;
14377}
14378
14379/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014380 * "match()" function
14381 */
14382 static void
14383f_match(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014384 typval_T *argvars;
14385 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000014386{
14387 find_some_match(argvars, rettv, 1);
14388}
14389
14390/*
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014391 * "matchadd()" function
14392 */
14393 static void
14394f_matchadd(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010014395 typval_T *argvars UNUSED;
14396 typval_T *rettv UNUSED;
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014397{
14398#ifdef FEAT_SEARCH_EXTRA
14399 char_u buf[NUMBUFLEN];
14400 char_u *grp = get_tv_string_buf_chk(&argvars[0], buf); /* group */
14401 char_u *pat = get_tv_string_buf_chk(&argvars[1], buf); /* pattern */
14402 int prio = 10; /* default priority */
14403 int id = -1;
14404 int error = FALSE;
14405
14406 rettv->vval.v_number = -1;
14407
14408 if (grp == NULL || pat == NULL)
14409 return;
14410 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar2240aeb2007-07-27 19:33:14 +000014411 {
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014412 prio = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaar2240aeb2007-07-27 19:33:14 +000014413 if (argvars[3].v_type != VAR_UNKNOWN)
14414 id = get_tv_number_chk(&argvars[3], &error);
14415 }
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014416 if (error == TRUE)
14417 return;
14418 if (id >= 1 && id <= 3)
14419 {
14420 EMSGN("E798: ID is reserved for \":match\": %ld", id);
14421 return;
14422 }
14423
Bram Moolenaarb3414592014-06-17 17:48:32 +020014424 rettv->vval.v_number = match_add(curwin, grp, pat, prio, id, NULL);
14425#endif
14426}
14427
14428/*
14429 * "matchaddpos()" function
14430 */
14431 static void
14432f_matchaddpos(argvars, rettv)
14433 typval_T *argvars UNUSED;
14434 typval_T *rettv UNUSED;
14435{
14436#ifdef FEAT_SEARCH_EXTRA
14437 char_u buf[NUMBUFLEN];
14438 char_u *group;
14439 int prio = 10;
14440 int id = -1;
14441 int error = FALSE;
14442 list_T *l;
14443
14444 rettv->vval.v_number = -1;
14445
14446 group = get_tv_string_buf_chk(&argvars[0], buf);
14447 if (group == NULL)
14448 return;
14449
14450 if (argvars[1].v_type != VAR_LIST)
14451 {
14452 EMSG2(_(e_listarg), "matchaddpos()");
14453 return;
14454 }
14455 l = argvars[1].vval.v_list;
14456 if (l == NULL)
14457 return;
14458
14459 if (argvars[2].v_type != VAR_UNKNOWN)
14460 {
14461 prio = get_tv_number_chk(&argvars[2], &error);
14462 if (argvars[3].v_type != VAR_UNKNOWN)
14463 id = get_tv_number_chk(&argvars[3], &error);
14464 }
14465 if (error == TRUE)
14466 return;
14467
14468 /* id == 3 is ok because matchaddpos() is supposed to substitute :3match */
14469 if (id == 1 || id == 2)
14470 {
14471 EMSGN("E798: ID is reserved for \":match\": %ld", id);
14472 return;
14473 }
14474
14475 rettv->vval.v_number = match_add(curwin, group, NULL, prio, id, l);
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014476#endif
14477}
14478
14479/*
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014480 * "matcharg()" function
14481 */
14482 static void
14483f_matcharg(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010014484 typval_T *argvars UNUSED;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014485 typval_T *rettv;
14486{
14487 if (rettv_list_alloc(rettv) == OK)
14488 {
14489#ifdef FEAT_SEARCH_EXTRA
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014490 int id = get_tv_number(&argvars[0]);
14491 matchitem_T *m;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014492
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014493 if (id >= 1 && id <= 3)
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014494 {
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014495 if ((m = (matchitem_T *)get_match(curwin, id)) != NULL)
14496 {
14497 list_append_string(rettv->vval.v_list,
14498 syn_id2name(m->hlg_id), -1);
14499 list_append_string(rettv->vval.v_list, m->pattern, -1);
14500 }
14501 else
14502 {
Bram Moolenaar5f4c8402014-01-06 06:19:11 +010014503 list_append_string(rettv->vval.v_list, NULL, -1);
14504 list_append_string(rettv->vval.v_list, NULL, -1);
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014505 }
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014506 }
14507#endif
14508 }
14509}
14510
14511/*
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014512 * "matchdelete()" function
14513 */
14514 static void
14515f_matchdelete(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010014516 typval_T *argvars UNUSED;
14517 typval_T *rettv UNUSED;
Bram Moolenaar6ee10162007-07-26 20:58:42 +000014518{
14519#ifdef FEAT_SEARCH_EXTRA
14520 rettv->vval.v_number = match_delete(curwin,
14521 (int)get_tv_number(&argvars[0]), TRUE);
14522#endif
14523}
14524
14525/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014526 * "matchend()" function
14527 */
14528 static void
14529f_matchend(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014530 typval_T *argvars;
14531 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000014532{
14533 find_some_match(argvars, rettv, 0);
14534}
14535
14536/*
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000014537 * "matchlist()" function
14538 */
14539 static void
14540f_matchlist(argvars, rettv)
14541 typval_T *argvars;
14542 typval_T *rettv;
14543{
14544 find_some_match(argvars, rettv, 3);
14545}
14546
14547/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014548 * "matchstr()" function
14549 */
14550 static void
14551f_matchstr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014552 typval_T *argvars;
14553 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000014554{
14555 find_some_match(argvars, rettv, 2);
14556}
14557
Bram Moolenaar33570922005-01-25 22:26:29 +000014558static void max_min __ARGS((typval_T *argvars, typval_T *rettv, int domax));
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014559
14560 static void
14561max_min(argvars, rettv, domax)
Bram Moolenaar33570922005-01-25 22:26:29 +000014562 typval_T *argvars;
14563 typval_T *rettv;
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014564 int domax;
14565{
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014566 long n = 0;
14567 long i;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014568 int error = FALSE;
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014569
14570 if (argvars[0].v_type == VAR_LIST)
14571 {
Bram Moolenaar33570922005-01-25 22:26:29 +000014572 list_T *l;
14573 listitem_T *li;
Bram Moolenaare9a41262005-01-15 22:18:47 +000014574
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014575 l = argvars[0].vval.v_list;
14576 if (l != NULL)
14577 {
14578 li = l->lv_first;
14579 if (li != NULL)
14580 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014581 n = get_tv_number_chk(&li->li_tv, &error);
Bram Moolenaard8e9bb22005-07-09 21:14:46 +000014582 for (;;)
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014583 {
14584 li = li->li_next;
14585 if (li == NULL)
14586 break;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014587 i = get_tv_number_chk(&li->li_tv, &error);
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014588 if (domax ? i > n : i < n)
14589 n = i;
14590 }
14591 }
14592 }
14593 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000014594 else if (argvars[0].v_type == VAR_DICT)
14595 {
Bram Moolenaar33570922005-01-25 22:26:29 +000014596 dict_T *d;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000014597 int first = TRUE;
Bram Moolenaar33570922005-01-25 22:26:29 +000014598 hashitem_T *hi;
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000014599 int todo;
Bram Moolenaare9a41262005-01-15 22:18:47 +000014600
14601 d = argvars[0].vval.v_dict;
14602 if (d != NULL)
14603 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000014604 todo = (int)d->dv_hashtab.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +000014605 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
Bram Moolenaare9a41262005-01-15 22:18:47 +000014606 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000014607 if (!HASHITEM_EMPTY(hi))
Bram Moolenaare9a41262005-01-15 22:18:47 +000014608 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000014609 --todo;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014610 i = get_tv_number_chk(&HI2DI(hi)->di_tv, &error);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000014611 if (first)
14612 {
14613 n = i;
14614 first = FALSE;
14615 }
14616 else if (domax ? i > n : i < n)
Bram Moolenaare9a41262005-01-15 22:18:47 +000014617 n = i;
14618 }
14619 }
14620 }
14621 }
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014622 else
Bram Moolenaar758711c2005-02-02 23:11:38 +000014623 EMSG(_(e_listdictarg));
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014624 rettv->vval.v_number = error ? 0 : n;
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014625}
14626
14627/*
14628 * "max()" function
14629 */
14630 static void
14631f_max(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014632 typval_T *argvars;
14633 typval_T *rettv;
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014634{
14635 max_min(argvars, rettv, TRUE);
14636}
14637
14638/*
14639 * "min()" function
14640 */
14641 static void
14642f_min(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014643 typval_T *argvars;
14644 typval_T *rettv;
Bram Moolenaar6cc16192005-01-08 21:49:45 +000014645{
14646 max_min(argvars, rettv, FALSE);
14647}
14648
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000014649static int mkdir_recurse __ARGS((char_u *dir, int prot));
14650
14651/*
14652 * Create the directory in which "dir" is located, and higher levels when
14653 * needed.
14654 */
14655 static int
14656mkdir_recurse(dir, prot)
14657 char_u *dir;
14658 int prot;
14659{
14660 char_u *p;
14661 char_u *updir;
14662 int r = FAIL;
14663
14664 /* Get end of directory name in "dir".
14665 * We're done when it's "/" or "c:/". */
14666 p = gettail_sep(dir);
14667 if (p <= get_past_head(dir))
14668 return OK;
14669
14670 /* If the directory exists we're done. Otherwise: create it.*/
14671 updir = vim_strnsave(dir, (int)(p - dir));
14672 if (updir == NULL)
14673 return FAIL;
14674 if (mch_isdir(updir))
14675 r = OK;
14676 else if (mkdir_recurse(updir, prot) == OK)
14677 r = vim_mkdir_emsg(updir, prot);
14678 vim_free(updir);
14679 return r;
14680}
14681
14682#ifdef vim_mkdir
14683/*
14684 * "mkdir()" function
14685 */
14686 static void
14687f_mkdir(argvars, rettv)
14688 typval_T *argvars;
14689 typval_T *rettv;
14690{
14691 char_u *dir;
14692 char_u buf[NUMBUFLEN];
14693 int prot = 0755;
14694
14695 rettv->vval.v_number = FAIL;
14696 if (check_restricted() || check_secure())
14697 return;
14698
14699 dir = get_tv_string_buf(&argvars[0], buf);
Bram Moolenaar195ef0c2013-08-30 16:00:08 +020014700 if (*dir == NUL)
14701 rettv->vval.v_number = FAIL;
14702 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000014703 {
Bram Moolenaar195ef0c2013-08-30 16:00:08 +020014704 if (*gettail(dir) == NUL)
14705 /* remove trailing slashes */
14706 *gettail_sep(dir) = NUL;
14707
14708 if (argvars[1].v_type != VAR_UNKNOWN)
14709 {
14710 if (argvars[2].v_type != VAR_UNKNOWN)
14711 prot = get_tv_number_chk(&argvars[2], NULL);
14712 if (prot != -1 && STRCMP(get_tv_string(&argvars[1]), "p") == 0)
14713 mkdir_recurse(dir, prot);
14714 }
14715 rettv->vval.v_number = prot == -1 ? FAIL : vim_mkdir_emsg(dir, prot);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000014716 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000014717}
14718#endif
14719
Bram Moolenaar0d660222005-01-07 21:51:51 +000014720/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000014721 * "mode()" function
14722 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000014723 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014724f_mode(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014725 typval_T *argvars;
14726 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014727{
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014728 char_u buf[3];
14729
14730 buf[1] = NUL;
14731 buf[2] = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014732
Bram Moolenaar071d4272004-06-13 20:20:40 +000014733 if (VIsual_active)
14734 {
14735 if (VIsual_select)
14736 buf[0] = VIsual_mode + 's' - 'v';
14737 else
14738 buf[0] = VIsual_mode;
14739 }
Bram Moolenaarf7ff6e82014-03-23 15:13:05 +010014740 else if (State == HITRETURN || State == ASKMORE || State == SETWSIZE
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014741 || State == CONFIRM)
14742 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000014743 buf[0] = 'r';
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014744 if (State == ASKMORE)
14745 buf[1] = 'm';
14746 else if (State == CONFIRM)
14747 buf[1] = '?';
14748 }
14749 else if (State == EXTERNCMD)
14750 buf[0] = '!';
Bram Moolenaar071d4272004-06-13 20:20:40 +000014751 else if (State & INSERT)
14752 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014753#ifdef FEAT_VREPLACE
14754 if (State & VREPLACE_FLAG)
14755 {
14756 buf[0] = 'R';
14757 buf[1] = 'v';
14758 }
14759 else
14760#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000014761 if (State & REPLACE_FLAG)
14762 buf[0] = 'R';
14763 else
14764 buf[0] = 'i';
14765 }
14766 else if (State & CMDLINE)
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014767 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000014768 buf[0] = 'c';
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014769 if (exmode_active)
14770 buf[1] = 'v';
14771 }
14772 else if (exmode_active)
14773 {
14774 buf[0] = 'c';
14775 buf[1] = 'e';
14776 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000014777 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014778 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000014779 buf[0] = 'n';
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014780 if (finish_op)
14781 buf[1] = 'o';
14782 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000014783
Bram Moolenaar05bb9532008-07-04 09:44:11 +000014784 /* Clear out the minor mode when the argument is not a non-zero number or
14785 * non-empty string. */
14786 if (!non_zero_arg(&argvars[0]))
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014787 buf[1] = NUL;
14788
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014789 rettv->vval.v_string = vim_strsave(buf);
14790 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014791}
14792
Bram Moolenaar429fa852013-04-15 12:27:36 +020014793#if defined(FEAT_MZSCHEME) || defined(PROTO)
Bram Moolenaar7e506b62010-01-19 15:55:06 +010014794/*
14795 * "mzeval()" function
14796 */
14797 static void
14798f_mzeval(argvars, rettv)
14799 typval_T *argvars;
14800 typval_T *rettv;
14801{
14802 char_u *str;
14803 char_u buf[NUMBUFLEN];
14804
14805 str = get_tv_string_buf(&argvars[0], buf);
14806 do_mzeval(str, rettv);
14807}
Bram Moolenaar75676462013-01-30 14:55:42 +010014808
14809 void
14810mzscheme_call_vim(name, args, rettv)
14811 char_u *name;
14812 typval_T *args;
14813 typval_T *rettv;
14814{
14815 typval_T argvars[3];
14816
14817 argvars[0].v_type = VAR_STRING;
14818 argvars[0].vval.v_string = name;
14819 copy_tv(args, &argvars[1]);
14820 argvars[2].v_type = VAR_UNKNOWN;
14821 f_call(argvars, rettv);
14822 clear_tv(&argvars[1]);
14823}
Bram Moolenaar7e506b62010-01-19 15:55:06 +010014824#endif
14825
Bram Moolenaar071d4272004-06-13 20:20:40 +000014826/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014827 * "nextnonblank()" function
14828 */
14829 static void
14830f_nextnonblank(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014831 typval_T *argvars;
14832 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000014833{
14834 linenr_T lnum;
14835
14836 for (lnum = get_tv_lnum(argvars); ; ++lnum)
14837 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000014838 if (lnum < 0 || lnum > curbuf->b_ml.ml_line_count)
Bram Moolenaar0d660222005-01-07 21:51:51 +000014839 {
14840 lnum = 0;
14841 break;
14842 }
14843 if (*skipwhite(ml_get(lnum)) != NUL)
14844 break;
14845 }
14846 rettv->vval.v_number = lnum;
14847}
14848
14849/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000014850 * "nr2char()" function
14851 */
14852 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014853f_nr2char(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014854 typval_T *argvars;
14855 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000014856{
14857 char_u buf[NUMBUFLEN];
14858
14859#ifdef FEAT_MBYTE
14860 if (has_mbyte)
Bram Moolenaard35d7842013-01-23 17:17:10 +010014861 {
14862 int utf8 = 0;
14863
14864 if (argvars[1].v_type != VAR_UNKNOWN)
14865 utf8 = get_tv_number_chk(&argvars[1], NULL);
14866 if (utf8)
14867 buf[(*utf_char2bytes)((int)get_tv_number(&argvars[0]), buf)] = NUL;
14868 else
14869 buf[(*mb_char2bytes)((int)get_tv_number(&argvars[0]), buf)] = NUL;
14870 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000014871 else
14872#endif
14873 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014874 buf[0] = (char_u)get_tv_number(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000014875 buf[1] = NUL;
14876 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000014877 rettv->v_type = VAR_STRING;
14878 rettv->vval.v_string = vim_strsave(buf);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000014879}
14880
14881/*
Bram Moolenaard6e256c2011-12-14 15:32:50 +010014882 * "or(expr, expr)" function
14883 */
14884 static void
14885f_or(argvars, rettv)
14886 typval_T *argvars;
14887 typval_T *rettv;
14888{
14889 rettv->vval.v_number = get_tv_number_chk(&argvars[0], NULL)
14890 | get_tv_number_chk(&argvars[1], NULL);
14891}
14892
14893/*
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014894 * "pathshorten()" function
14895 */
14896 static void
14897f_pathshorten(argvars, rettv)
14898 typval_T *argvars;
14899 typval_T *rettv;
14900{
14901 char_u *p;
14902
14903 rettv->v_type = VAR_STRING;
14904 p = get_tv_string_chk(&argvars[0]);
14905 if (p == NULL)
14906 rettv->vval.v_string = NULL;
14907 else
14908 {
14909 p = vim_strsave(p);
14910 rettv->vval.v_string = p;
14911 if (p != NULL)
14912 shorten_dir(p);
14913 }
14914}
14915
Bram Moolenaar8c8de832008-06-24 22:58:06 +000014916#ifdef FEAT_FLOAT
14917/*
14918 * "pow()" function
14919 */
14920 static void
14921f_pow(argvars, rettv)
14922 typval_T *argvars;
14923 typval_T *rettv;
14924{
14925 float_T fx, fy;
14926
14927 rettv->v_type = VAR_FLOAT;
14928 if (get_float_arg(argvars, &fx) == OK
14929 && get_float_arg(&argvars[1], &fy) == OK)
14930 rettv->vval.v_float = pow(fx, fy);
14931 else
14932 rettv->vval.v_float = 0.0;
14933}
14934#endif
14935
Bram Moolenaar910f66f2006-04-05 20:41:53 +000014936/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000014937 * "prevnonblank()" function
14938 */
14939 static void
14940f_prevnonblank(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000014941 typval_T *argvars;
14942 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000014943{
14944 linenr_T lnum;
14945
14946 lnum = get_tv_lnum(argvars);
14947 if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count)
14948 lnum = 0;
14949 else
14950 while (lnum >= 1 && *skipwhite(ml_get(lnum)) == NUL)
14951 --lnum;
14952 rettv->vval.v_number = lnum;
14953}
14954
Bram Moolenaara6c840d2005-08-22 22:59:46 +000014955#ifdef HAVE_STDARG_H
14956/* This dummy va_list is here because:
14957 * - passing a NULL pointer doesn't work when va_list isn't a pointer
14958 * - locally in the function results in a "used before set" warning
14959 * - using va_start() to initialize it gives "function with fixed args" error */
14960static va_list ap;
14961#endif
14962
Bram Moolenaar8c711452005-01-14 21:53:12 +000014963/*
Bram Moolenaar4be06f92005-07-29 22:36:03 +000014964 * "printf()" function
14965 */
14966 static void
14967f_printf(argvars, rettv)
14968 typval_T *argvars;
14969 typval_T *rettv;
14970{
14971 rettv->v_type = VAR_STRING;
14972 rettv->vval.v_string = NULL;
Bram Moolenaard52d9742005-08-21 22:20:28 +000014973#ifdef HAVE_STDARG_H /* only very old compilers can't do this */
Bram Moolenaar4be06f92005-07-29 22:36:03 +000014974 {
14975 char_u buf[NUMBUFLEN];
14976 int len;
14977 char_u *s;
14978 int saved_did_emsg = did_emsg;
14979 char *fmt;
14980
14981 /* Get the required length, allocate the buffer and do it for real. */
14982 did_emsg = FALSE;
14983 fmt = (char *)get_tv_string_buf(&argvars[0], buf);
Bram Moolenaar5b8d8fd2005-08-16 23:01:50 +000014984 len = vim_vsnprintf(NULL, 0, fmt, ap, argvars + 1);
Bram Moolenaar4be06f92005-07-29 22:36:03 +000014985 if (!did_emsg)
14986 {
14987 s = alloc(len + 1);
14988 if (s != NULL)
14989 {
14990 rettv->vval.v_string = s;
Bram Moolenaar5b8d8fd2005-08-16 23:01:50 +000014991 (void)vim_vsnprintf((char *)s, len + 1, fmt, ap, argvars + 1);
Bram Moolenaar4be06f92005-07-29 22:36:03 +000014992 }
14993 }
14994 did_emsg |= saved_did_emsg;
14995 }
14996#endif
14997}
14998
14999/*
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000015000 * "pumvisible()" function
15001 */
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000015002 static void
15003f_pumvisible(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015004 typval_T *argvars UNUSED;
15005 typval_T *rettv UNUSED;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000015006{
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000015007#ifdef FEAT_INS_EXPAND
15008 if (pum_visible())
15009 rettv->vval.v_number = 1;
15010#endif
15011}
15012
Bram Moolenaardb913952012-06-29 12:54:53 +020015013#ifdef FEAT_PYTHON3
15014/*
15015 * "py3eval()" function
15016 */
15017 static void
15018f_py3eval(argvars, rettv)
15019 typval_T *argvars;
15020 typval_T *rettv;
15021{
15022 char_u *str;
15023 char_u buf[NUMBUFLEN];
15024
15025 str = get_tv_string_buf(&argvars[0], buf);
15026 do_py3eval(str, rettv);
15027}
15028#endif
15029
15030#ifdef FEAT_PYTHON
15031/*
15032 * "pyeval()" function
15033 */
15034 static void
15035f_pyeval(argvars, rettv)
15036 typval_T *argvars;
15037 typval_T *rettv;
15038{
15039 char_u *str;
15040 char_u buf[NUMBUFLEN];
15041
15042 str = get_tv_string_buf(&argvars[0], buf);
15043 do_pyeval(str, rettv);
15044}
15045#endif
15046
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000015047/*
Bram Moolenaar8c711452005-01-14 21:53:12 +000015048 * "range()" function
15049 */
15050 static void
15051f_range(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000015052 typval_T *argvars;
15053 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +000015054{
15055 long start;
15056 long end;
15057 long stride = 1;
15058 long i;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015059 int error = FALSE;
Bram Moolenaar8c711452005-01-14 21:53:12 +000015060
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015061 start = get_tv_number_chk(&argvars[0], &error);
Bram Moolenaar8c711452005-01-14 21:53:12 +000015062 if (argvars[1].v_type == VAR_UNKNOWN)
15063 {
15064 end = start - 1;
15065 start = 0;
15066 }
15067 else
15068 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015069 end = get_tv_number_chk(&argvars[1], &error);
Bram Moolenaar8c711452005-01-14 21:53:12 +000015070 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015071 stride = get_tv_number_chk(&argvars[2], &error);
Bram Moolenaar8c711452005-01-14 21:53:12 +000015072 }
15073
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015074 if (error)
15075 return; /* type error; errmsg already given */
Bram Moolenaar8c711452005-01-14 21:53:12 +000015076 if (stride == 0)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000015077 EMSG(_("E726: Stride is zero"));
Bram Moolenaar92124a32005-06-17 22:03:40 +000015078 else if (stride > 0 ? end + 1 < start : end - 1 > start)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000015079 EMSG(_("E727: Start past end"));
Bram Moolenaar8c711452005-01-14 21:53:12 +000015080 else
15081 {
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015082 if (rettv_list_alloc(rettv) == OK)
Bram Moolenaar8c711452005-01-14 21:53:12 +000015083 for (i = start; stride > 0 ? i <= end : i >= end; i += stride)
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015084 if (list_append_number(rettv->vval.v_list,
15085 (varnumber_T)i) == FAIL)
Bram Moolenaar8c711452005-01-14 21:53:12 +000015086 break;
Bram Moolenaar8c711452005-01-14 21:53:12 +000015087 }
15088}
15089
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015090/*
15091 * "readfile()" function
15092 */
15093 static void
15094f_readfile(argvars, rettv)
15095 typval_T *argvars;
15096 typval_T *rettv;
15097{
15098 int binary = FALSE;
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015099 int failed = FALSE;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015100 char_u *fname;
15101 FILE *fd;
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015102 char_u buf[(IOSIZE/256)*256]; /* rounded to avoid odd + 1 */
15103 int io_size = sizeof(buf);
15104 int readlen; /* size of last fread() */
15105 char_u *prev = NULL; /* previously read bytes, if any */
15106 long prevlen = 0; /* length of data in prev */
15107 long prevsize = 0; /* size of prev buffer */
15108 long maxline = MAXLNUM;
15109 long cnt = 0;
15110 char_u *p; /* position in buf */
15111 char_u *start; /* start of current line */
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015112
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000015113 if (argvars[1].v_type != VAR_UNKNOWN)
15114 {
15115 if (STRCMP(get_tv_string(&argvars[1]), "b") == 0)
15116 binary = TRUE;
15117 if (argvars[2].v_type != VAR_UNKNOWN)
15118 maxline = get_tv_number(&argvars[2]);
15119 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015120
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015121 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015122 return;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015123
15124 /* Always open the file in binary mode, library functions have a mind of
15125 * their own about CR-LF conversion. */
15126 fname = get_tv_string(&argvars[0]);
15127 if (*fname == NUL || (fd = mch_fopen((char *)fname, READBIN)) == NULL)
15128 {
15129 EMSG2(_(e_notopen), *fname == NUL ? (char_u *)_("<empty>") : fname);
15130 return;
15131 }
15132
Bram Moolenaarb982ca52005-03-28 21:02:15 +000015133 while (cnt < maxline || maxline < 0)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015134 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015135 readlen = (int)fread(buf, 1, io_size, fd);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015136
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015137 /* This for loop processes what was read, but is also entered at end
15138 * of file so that either:
15139 * - an incomplete line gets written
15140 * - a "binary" file gets an empty line at the end if it ends in a
15141 * newline. */
15142 for (p = buf, start = buf;
15143 p < buf + readlen || (readlen <= 0 && (prevlen > 0 || binary));
15144 ++p)
15145 {
15146 if (*p == '\n' || readlen <= 0)
15147 {
15148 listitem_T *li;
15149 char_u *s = NULL;
15150 long_u len = p - start;
15151
15152 /* Finished a line. Remove CRs before NL. */
15153 if (readlen > 0 && !binary)
15154 {
15155 while (len > 0 && start[len - 1] == '\r')
15156 --len;
15157 /* removal may cross back to the "prev" string */
15158 if (len == 0)
15159 while (prevlen > 0 && prev[prevlen - 1] == '\r')
15160 --prevlen;
15161 }
15162 if (prevlen == 0)
Bram Moolenaar68ba0dd2012-02-11 20:44:10 +010015163 s = vim_strnsave(start, (int)len);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015164 else
15165 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015166 /* Change "prev" buffer to be the right size. This way
15167 * the bytes are only copied once, and very long lines are
15168 * allocated only once. */
15169 if ((s = vim_realloc(prev, prevlen + len + 1)) != NULL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015170 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015171 mch_memmove(s + prevlen, start, len);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015172 s[prevlen + len] = NUL;
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015173 prev = NULL; /* the list will own the string */
15174 prevlen = prevsize = 0;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015175 }
15176 }
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015177 if (s == NULL)
15178 {
15179 do_outofmem_msg((long_u) prevlen + len + 1);
15180 failed = TRUE;
15181 break;
15182 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015183
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015184 if ((li = listitem_alloc()) == NULL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015185 {
15186 vim_free(s);
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015187 failed = TRUE;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015188 break;
15189 }
15190 li->li_tv.v_type = VAR_STRING;
15191 li->li_tv.v_lock = 0;
15192 li->li_tv.vval.v_string = s;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015193 list_append(rettv->vval.v_list, li);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015194
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015195 start = p + 1; /* step over newline */
15196 if ((++cnt >= maxline && maxline >= 0) || readlen <= 0)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015197 break;
15198 }
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015199 else if (*p == NUL)
15200 *p = '\n';
Bram Moolenaar06583f12010-08-07 20:30:49 +020015201#ifdef FEAT_MBYTE
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015202 /* Check for utf8 "bom"; U+FEFF is encoded as EF BB BF. Do this
15203 * when finding the BF and check the previous two bytes. */
15204 else if (*p == 0xbf && enc_utf8 && !binary)
Bram Moolenaar06583f12010-08-07 20:30:49 +020015205 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015206 /* Find the two bytes before the 0xbf. If p is at buf, or buf
15207 * + 1, these may be in the "prev" string. */
15208 char_u back1 = p >= buf + 1 ? p[-1]
15209 : prevlen >= 1 ? prev[prevlen - 1] : NUL;
15210 char_u back2 = p >= buf + 2 ? p[-2]
15211 : p == buf + 1 && prevlen >= 1 ? prev[prevlen - 1]
15212 : prevlen >= 2 ? prev[prevlen - 2] : NUL;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015213
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015214 if (back2 == 0xef && back1 == 0xbb)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015215 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015216 char_u *dest = p - 2;
15217
15218 /* Usually a BOM is at the beginning of a file, and so at
15219 * the beginning of a line; then we can just step over it.
15220 */
15221 if (start == dest)
15222 start = p + 1;
15223 else
Bram Moolenaar27b60562011-04-01 16:07:46 +020015224 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015225 /* have to shuffle buf to close gap */
15226 int adjust_prevlen = 0;
15227
15228 if (dest < buf)
15229 {
Bram Moolenaar68ba0dd2012-02-11 20:44:10 +010015230 adjust_prevlen = (int)(buf - dest); /* must be 1 or 2 */
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015231 dest = buf;
15232 }
15233 if (readlen > p - buf + 1)
15234 mch_memmove(dest, p + 1, readlen - (p - buf) - 1);
15235 readlen -= 3 - adjust_prevlen;
15236 prevlen -= adjust_prevlen;
15237 p = dest - 1;
Bram Moolenaar27b60562011-04-01 16:07:46 +020015238 }
15239 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015240 }
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015241#endif
15242 } /* for */
15243
15244 if (failed || (cnt >= maxline && maxline >= 0) || readlen <= 0)
15245 break;
15246 if (start < p)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015247 {
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015248 /* There's part of a line in buf, store it in "prev". */
15249 if (p - start + prevlen >= prevsize)
15250 {
15251 /* need bigger "prev" buffer */
15252 char_u *newprev;
15253
15254 /* A common use case is ordinary text files and "prev" gets a
15255 * fragment of a line, so the first allocation is made
15256 * small, to avoid repeatedly 'allocing' large and
15257 * 'reallocing' small. */
15258 if (prevsize == 0)
Bram Moolenaar68ba0dd2012-02-11 20:44:10 +010015259 prevsize = (long)(p - start);
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015260 else
15261 {
15262 long grow50pc = (prevsize * 3) / 2;
Bram Moolenaar68ba0dd2012-02-11 20:44:10 +010015263 long growmin = (long)((p - start) * 2 + prevlen);
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015264 prevsize = grow50pc > growmin ? grow50pc : growmin;
15265 }
Bram Moolenaar455981e2012-05-18 18:34:19 +020015266 newprev = prev == NULL ? alloc(prevsize)
15267 : vim_realloc(prev, prevsize);
15268 if (newprev == NULL)
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015269 {
15270 do_outofmem_msg((long_u)prevsize);
15271 failed = TRUE;
15272 break;
15273 }
15274 prev = newprev;
15275 }
15276 /* Add the line part to end of "prev". */
15277 mch_memmove(prev + prevlen, start, p - start);
Bram Moolenaar68ba0dd2012-02-11 20:44:10 +010015278 prevlen += (long)(p - start);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015279 }
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015280 } /* while */
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015281
Bram Moolenaarb982ca52005-03-28 21:02:15 +000015282 /*
15283 * For a negative line count use only the lines at the end of the file,
15284 * free the rest.
15285 */
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015286 if (!failed && maxline < 0)
Bram Moolenaarb982ca52005-03-28 21:02:15 +000015287 while (cnt > -maxline)
15288 {
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015289 listitem_remove(rettv->vval.v_list, rettv->vval.v_list->lv_first);
Bram Moolenaarb982ca52005-03-28 21:02:15 +000015290 --cnt;
15291 }
15292
Bram Moolenaara489e1d2012-02-05 00:39:18 +010015293 if (failed)
15294 {
15295 list_free(rettv->vval.v_list, TRUE);
15296 /* readfile doc says an empty list is returned on error */
15297 rettv->vval.v_list = list_alloc();
15298 }
15299
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000015300 vim_free(prev);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015301 fclose(fd);
15302}
15303
Bram Moolenaare580b0c2006-03-21 21:33:03 +000015304#if defined(FEAT_RELTIME)
15305static int list2proftime __ARGS((typval_T *arg, proftime_T *tm));
15306
15307/*
15308 * Convert a List to proftime_T.
15309 * Return FAIL when there is something wrong.
15310 */
15311 static int
15312list2proftime(arg, tm)
15313 typval_T *arg;
15314 proftime_T *tm;
15315{
15316 long n1, n2;
15317 int error = FALSE;
15318
15319 if (arg->v_type != VAR_LIST || arg->vval.v_list == NULL
15320 || arg->vval.v_list->lv_len != 2)
15321 return FAIL;
15322 n1 = list_find_nr(arg->vval.v_list, 0L, &error);
15323 n2 = list_find_nr(arg->vval.v_list, 1L, &error);
15324# ifdef WIN3264
Bram Moolenaardb552d602006-03-23 22:59:57 +000015325 tm->HighPart = n1;
15326 tm->LowPart = n2;
Bram Moolenaare580b0c2006-03-21 21:33:03 +000015327# else
15328 tm->tv_sec = n1;
15329 tm->tv_usec = n2;
15330# endif
15331 return error ? FAIL : OK;
15332}
15333#endif /* FEAT_RELTIME */
15334
15335/*
15336 * "reltime()" function
15337 */
15338 static void
15339f_reltime(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010015340 typval_T *argvars UNUSED;
15341 typval_T *rettv UNUSED;
Bram Moolenaare580b0c2006-03-21 21:33:03 +000015342{
15343#ifdef FEAT_RELTIME
15344 proftime_T res;
15345 proftime_T start;
15346
15347 if (argvars[0].v_type == VAR_UNKNOWN)
15348 {
15349 /* No arguments: get current time. */
15350 profile_start(&res);
15351 }
15352 else if (argvars[1].v_type == VAR_UNKNOWN)
15353 {
15354 if (list2proftime(&argvars[0], &res) == FAIL)
15355 return;
15356 profile_end(&res);
15357 }
15358 else
15359 {
15360 /* Two arguments: compute the difference. */
15361 if (list2proftime(&argvars[0], &start) == FAIL
15362 || list2proftime(&argvars[1], &res) == FAIL)
15363 return;
15364 profile_sub(&res, &start);
15365 }
15366
15367 if (rettv_list_alloc(rettv) == OK)
15368 {
15369 long n1, n2;
15370
15371# ifdef WIN3264
Bram Moolenaardb552d602006-03-23 22:59:57 +000015372 n1 = res.HighPart;
15373 n2 = res.LowPart;
Bram Moolenaare580b0c2006-03-21 21:33:03 +000015374# else
15375 n1 = res.tv_sec;
15376 n2 = res.tv_usec;
15377# endif
15378 list_append_number(rettv->vval.v_list, (varnumber_T)n1);
15379 list_append_number(rettv->vval.v_list, (varnumber_T)n2);
15380 }
15381#endif
15382}
15383
15384/*
15385 * "reltimestr()" function
15386 */
15387 static void
15388f_reltimestr(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010015389 typval_T *argvars UNUSED;
Bram Moolenaare580b0c2006-03-21 21:33:03 +000015390 typval_T *rettv;
15391{
15392#ifdef FEAT_RELTIME
15393 proftime_T tm;
15394#endif
15395
15396 rettv->v_type = VAR_STRING;
15397 rettv->vval.v_string = NULL;
15398#ifdef FEAT_RELTIME
15399 if (list2proftime(&argvars[0], &tm) == OK)
15400 rettv->vval.v_string = vim_strsave((char_u *)profile_msg(&tm));
15401#endif
15402}
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000015403
Bram Moolenaar0d660222005-01-07 21:51:51 +000015404#if defined(FEAT_CLIENTSERVER) && defined(FEAT_X11)
15405static void make_connection __ARGS((void));
15406static int check_connection __ARGS((void));
15407
15408 static void
15409make_connection()
15410{
15411 if (X_DISPLAY == NULL
15412# ifdef FEAT_GUI
15413 && !gui.in_use
15414# endif
15415 )
15416 {
15417 x_force_connect = TRUE;
15418 setup_term_clip();
15419 x_force_connect = FALSE;
15420 }
15421}
15422
15423 static int
15424check_connection()
15425{
15426 make_connection();
15427 if (X_DISPLAY == NULL)
15428 {
15429 EMSG(_("E240: No connection to Vim server"));
15430 return FAIL;
15431 }
15432 return OK;
15433}
15434#endif
15435
15436#ifdef FEAT_CLIENTSERVER
Bram Moolenaar33570922005-01-25 22:26:29 +000015437static void remote_common __ARGS((typval_T *argvars, typval_T *rettv, int expr));
Bram Moolenaar0d660222005-01-07 21:51:51 +000015438
15439 static void
15440remote_common(argvars, rettv, expr)
Bram Moolenaar33570922005-01-25 22:26:29 +000015441 typval_T *argvars;
15442 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015443 int expr;
15444{
15445 char_u *server_name;
15446 char_u *keys;
15447 char_u *r = NULL;
15448 char_u buf[NUMBUFLEN];
15449# ifdef WIN32
15450 HWND w;
15451# else
15452 Window w;
15453# endif
15454
15455 if (check_restricted() || check_secure())
15456 return;
15457
15458# ifdef FEAT_X11
15459 if (check_connection() == FAIL)
15460 return;
15461# endif
15462
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015463 server_name = get_tv_string_chk(&argvars[0]);
15464 if (server_name == NULL)
15465 return; /* type error; errmsg already given */
Bram Moolenaar0d660222005-01-07 21:51:51 +000015466 keys = get_tv_string_buf(&argvars[1], buf);
15467# ifdef WIN32
15468 if (serverSendToVim(server_name, keys, &r, &w, expr, TRUE) < 0)
15469# else
15470 if (serverSendToVim(X_DISPLAY, server_name, keys, &r, &w, expr, 0, TRUE)
15471 < 0)
15472# endif
15473 {
15474 if (r != NULL)
15475 EMSG(r); /* sending worked but evaluation failed */
15476 else
15477 EMSG2(_("E241: Unable to send to %s"), server_name);
15478 return;
15479 }
15480
15481 rettv->vval.v_string = r;
15482
15483 if (argvars[2].v_type != VAR_UNKNOWN)
15484 {
Bram Moolenaar33570922005-01-25 22:26:29 +000015485 dictitem_T v;
Bram Moolenaar555b2802005-05-19 21:08:39 +000015486 char_u str[30];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015487 char_u *idvar;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015488
Bram Moolenaareb3593b2006-04-22 22:33:57 +000015489 sprintf((char *)str, PRINTF_HEX_LONG_U, (long_u)w);
Bram Moolenaar33570922005-01-25 22:26:29 +000015490 v.di_tv.v_type = VAR_STRING;
15491 v.di_tv.vval.v_string = vim_strsave(str);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015492 idvar = get_tv_string_chk(&argvars[2]);
15493 if (idvar != NULL)
15494 set_var(idvar, &v.di_tv, FALSE);
Bram Moolenaar33570922005-01-25 22:26:29 +000015495 vim_free(v.di_tv.vval.v_string);
Bram Moolenaar0d660222005-01-07 21:51:51 +000015496 }
15497}
15498#endif
15499
15500/*
15501 * "remote_expr()" function
15502 */
Bram Moolenaar0d660222005-01-07 21:51:51 +000015503 static void
15504f_remote_expr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015505 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000015506 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015507{
15508 rettv->v_type = VAR_STRING;
15509 rettv->vval.v_string = NULL;
15510#ifdef FEAT_CLIENTSERVER
15511 remote_common(argvars, rettv, TRUE);
15512#endif
15513}
15514
15515/*
15516 * "remote_foreground()" function
15517 */
Bram Moolenaar0d660222005-01-07 21:51:51 +000015518 static void
15519f_remote_foreground(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015520 typval_T *argvars UNUSED;
15521 typval_T *rettv UNUSED;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015522{
Bram Moolenaar0d660222005-01-07 21:51:51 +000015523#ifdef FEAT_CLIENTSERVER
15524# ifdef WIN32
15525 /* On Win32 it's done in this application. */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015526 {
15527 char_u *server_name = get_tv_string_chk(&argvars[0]);
15528
15529 if (server_name != NULL)
15530 serverForeground(server_name);
15531 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000015532# else
15533 /* Send a foreground() expression to the server. */
15534 argvars[1].v_type = VAR_STRING;
15535 argvars[1].vval.v_string = vim_strsave((char_u *)"foreground()");
15536 argvars[2].v_type = VAR_UNKNOWN;
15537 remote_common(argvars, rettv, TRUE);
15538 vim_free(argvars[1].vval.v_string);
15539# endif
15540#endif
15541}
15542
Bram Moolenaar0d660222005-01-07 21:51:51 +000015543 static void
15544f_remote_peek(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015545 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000015546 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015547{
15548#ifdef FEAT_CLIENTSERVER
Bram Moolenaar33570922005-01-25 22:26:29 +000015549 dictitem_T v;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015550 char_u *s = NULL;
15551# ifdef WIN32
Bram Moolenaareb3593b2006-04-22 22:33:57 +000015552 long_u n = 0;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015553# endif
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015554 char_u *serverid;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015555
15556 if (check_restricted() || check_secure())
15557 {
15558 rettv->vval.v_number = -1;
15559 return;
15560 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015561 serverid = get_tv_string_chk(&argvars[0]);
15562 if (serverid == NULL)
15563 {
15564 rettv->vval.v_number = -1;
15565 return; /* type error; errmsg already given */
15566 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000015567# ifdef WIN32
Bram Moolenaareb3593b2006-04-22 22:33:57 +000015568 sscanf(serverid, SCANF_HEX_LONG_U, &n);
Bram Moolenaar0d660222005-01-07 21:51:51 +000015569 if (n == 0)
15570 rettv->vval.v_number = -1;
15571 else
15572 {
15573 s = serverGetReply((HWND)n, FALSE, FALSE, FALSE);
15574 rettv->vval.v_number = (s != NULL);
15575 }
15576# else
Bram Moolenaar0d660222005-01-07 21:51:51 +000015577 if (check_connection() == FAIL)
15578 return;
15579
15580 rettv->vval.v_number = serverPeekReply(X_DISPLAY,
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015581 serverStrToWin(serverid), &s);
Bram Moolenaar0d660222005-01-07 21:51:51 +000015582# endif
15583
15584 if (argvars[1].v_type != VAR_UNKNOWN && rettv->vval.v_number > 0)
15585 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015586 char_u *retvar;
15587
Bram Moolenaar33570922005-01-25 22:26:29 +000015588 v.di_tv.v_type = VAR_STRING;
15589 v.di_tv.vval.v_string = vim_strsave(s);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015590 retvar = get_tv_string_chk(&argvars[1]);
15591 if (retvar != NULL)
15592 set_var(retvar, &v.di_tv, FALSE);
Bram Moolenaar33570922005-01-25 22:26:29 +000015593 vim_free(v.di_tv.vval.v_string);
Bram Moolenaar0d660222005-01-07 21:51:51 +000015594 }
15595#else
15596 rettv->vval.v_number = -1;
15597#endif
15598}
15599
Bram Moolenaar0d660222005-01-07 21:51:51 +000015600 static void
15601f_remote_read(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015602 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000015603 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015604{
15605 char_u *r = NULL;
15606
15607#ifdef FEAT_CLIENTSERVER
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015608 char_u *serverid = get_tv_string_chk(&argvars[0]);
15609
15610 if (serverid != NULL && !check_restricted() && !check_secure())
Bram Moolenaar0d660222005-01-07 21:51:51 +000015611 {
15612# ifdef WIN32
15613 /* The server's HWND is encoded in the 'id' parameter */
Bram Moolenaareb3593b2006-04-22 22:33:57 +000015614 long_u n = 0;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015615
Bram Moolenaareb3593b2006-04-22 22:33:57 +000015616 sscanf(serverid, SCANF_HEX_LONG_U, &n);
Bram Moolenaar0d660222005-01-07 21:51:51 +000015617 if (n != 0)
15618 r = serverGetReply((HWND)n, FALSE, TRUE, TRUE);
15619 if (r == NULL)
15620# else
15621 if (check_connection() == FAIL || serverReadReply(X_DISPLAY,
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015622 serverStrToWin(serverid), &r, FALSE) < 0)
Bram Moolenaar0d660222005-01-07 21:51:51 +000015623# endif
15624 EMSG(_("E277: Unable to read a server reply"));
15625 }
15626#endif
15627 rettv->v_type = VAR_STRING;
15628 rettv->vval.v_string = r;
15629}
15630
15631/*
15632 * "remote_send()" function
15633 */
Bram Moolenaar0d660222005-01-07 21:51:51 +000015634 static void
15635f_remote_send(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000015636 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000015637 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000015638{
15639 rettv->v_type = VAR_STRING;
15640 rettv->vval.v_string = NULL;
15641#ifdef FEAT_CLIENTSERVER
15642 remote_common(argvars, rettv, FALSE);
15643#endif
15644}
15645
15646/*
Bram Moolenaar8c711452005-01-14 21:53:12 +000015647 * "remove()" function
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015648 */
15649 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015650f_remove(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000015651 typval_T *argvars;
15652 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015653{
Bram Moolenaar33570922005-01-25 22:26:29 +000015654 list_T *l;
15655 listitem_T *item, *item2;
15656 listitem_T *li;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015657 long idx;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015658 long end;
Bram Moolenaar8c711452005-01-14 21:53:12 +000015659 char_u *key;
Bram Moolenaar33570922005-01-25 22:26:29 +000015660 dict_T *d;
15661 dictitem_T *di;
Bram Moolenaar32f649e2011-04-11 13:46:13 +020015662 char *arg_errmsg = N_("remove() argument");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015663
Bram Moolenaar8c711452005-01-14 21:53:12 +000015664 if (argvars[0].v_type == VAR_DICT)
15665 {
15666 if (argvars[2].v_type != VAR_UNKNOWN)
15667 EMSG2(_(e_toomanyarg), "remove()");
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000015668 else if ((d = argvars[0].vval.v_dict) != NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020015669 && !tv_check_lock(d->dv_lock, (char_u *)_(arg_errmsg)))
Bram Moolenaar8c711452005-01-14 21:53:12 +000015670 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015671 key = get_tv_string_chk(&argvars[1]);
15672 if (key != NULL)
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000015673 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015674 di = dict_find(d, key, -1);
15675 if (di == NULL)
15676 EMSG2(_(e_dictkey), key);
15677 else
15678 {
15679 *rettv = di->di_tv;
15680 init_tv(&di->di_tv);
15681 dictitem_remove(d, di);
15682 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000015683 }
Bram Moolenaar8c711452005-01-14 21:53:12 +000015684 }
15685 }
15686 else if (argvars[0].v_type != VAR_LIST)
15687 EMSG2(_(e_listdictarg), "remove()");
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000015688 else if ((l = argvars[0].vval.v_list) != NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020015689 && !tv_check_lock(l->lv_lock, (char_u *)_(arg_errmsg)))
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015690 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015691 int error = FALSE;
15692
15693 idx = get_tv_number_chk(&argvars[1], &error);
15694 if (error)
15695 ; /* type error: do nothing, errmsg already given */
15696 else if ((item = list_find(l, idx)) == NULL)
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015697 EMSGN(_(e_listidx), idx);
15698 else
15699 {
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015700 if (argvars[2].v_type == VAR_UNKNOWN)
15701 {
15702 /* Remove one item, return its value. */
Bram Moolenaar3ec7f4e2014-05-07 17:31:37 +020015703 vimlist_remove(l, item, item);
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015704 *rettv = item->li_tv;
15705 vim_free(item);
15706 }
15707 else
15708 {
15709 /* Remove range of items, return list with values. */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000015710 end = get_tv_number_chk(&argvars[2], &error);
15711 if (error)
15712 ; /* type error: do nothing */
15713 else if ((item2 = list_find(l, end)) == NULL)
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015714 EMSGN(_(e_listidx), end);
15715 else
15716 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000015717 int cnt = 0;
15718
15719 for (li = item; li != NULL; li = li->li_next)
15720 {
15721 ++cnt;
15722 if (li == item2)
15723 break;
15724 }
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015725 if (li == NULL) /* didn't find "item2" after "item" */
15726 EMSG(_(e_invrange));
15727 else
15728 {
Bram Moolenaar3ec7f4e2014-05-07 17:31:37 +020015729 vimlist_remove(l, item, item2);
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015730 if (rettv_list_alloc(rettv) == OK)
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015731 {
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015732 l = rettv->vval.v_list;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015733 l->lv_first = item;
15734 l->lv_last = item2;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015735 item->li_prev = NULL;
15736 item2->li_next = NULL;
Bram Moolenaar758711c2005-02-02 23:11:38 +000015737 l->lv_len = cnt;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015738 }
15739 }
15740 }
15741 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +000015742 }
15743 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000015744}
15745
15746/*
15747 * "rename({from}, {to})" function
15748 */
15749 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015750f_rename(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000015751 typval_T *argvars;
15752 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000015753{
15754 char_u buf[NUMBUFLEN];
15755
15756 if (check_restricted() || check_secure())
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015757 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000015758 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015759 rettv->vval.v_number = vim_rename(get_tv_string(&argvars[0]),
15760 get_tv_string_buf(&argvars[1], buf));
Bram Moolenaar071d4272004-06-13 20:20:40 +000015761}
15762
15763/*
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015764 * "repeat()" function
15765 */
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015766 static void
15767f_repeat(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000015768 typval_T *argvars;
15769 typval_T *rettv;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015770{
15771 char_u *p;
15772 int n;
15773 int slen;
15774 int len;
15775 char_u *r;
15776 int i;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015777
15778 n = get_tv_number(&argvars[1]);
15779 if (argvars[0].v_type == VAR_LIST)
15780 {
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015781 if (rettv_list_alloc(rettv) == OK && argvars[0].vval.v_list != NULL)
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015782 while (n-- > 0)
Bram Moolenaareddf53b2006-02-27 00:11:10 +000015783 if (list_extend(rettv->vval.v_list,
15784 argvars[0].vval.v_list, NULL) == FAIL)
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015785 break;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000015786 }
15787 else
15788 {
15789 p = get_tv_string(&argvars[0]);
15790 rettv->v_type = VAR_STRING;
15791 rettv->vval.v_string = NULL;
15792
15793 slen = (int)STRLEN(p);
15794 len = slen * n;
15795 if (len <= 0)
15796 return;
15797
15798 r = alloc(len + 1);
15799 if (r != NULL)
15800 {
15801 for (i = 0; i < n; i++)
15802 mch_memmove(r + i * slen, p, (size_t)slen);
15803 r[len] = NUL;
15804 }
15805
15806 rettv->vval.v_string = r;
15807 }
15808}
15809
15810/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000015811 * "resolve()" function
15812 */
15813 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015814f_resolve(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000015815 typval_T *argvars;
15816 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000015817{
15818 char_u *p;
Bram Moolenaard9462e32011-04-11 21:35:11 +020015819#ifdef HAVE_READLINK
15820 char_u *buf = NULL;
15821#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000015822
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015823 p = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015824#ifdef FEAT_SHORTCUT
15825 {
15826 char_u *v = NULL;
15827
15828 v = mch_resolve_shortcut(p);
15829 if (v != NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015830 rettv->vval.v_string = v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000015831 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015832 rettv->vval.v_string = vim_strsave(p);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015833 }
15834#else
15835# ifdef HAVE_READLINK
15836 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000015837 char_u *cpy;
15838 int len;
15839 char_u *remain = NULL;
15840 char_u *q;
15841 int is_relative_to_current = FALSE;
15842 int has_trailing_pathsep = FALSE;
15843 int limit = 100;
15844
15845 p = vim_strsave(p);
15846
15847 if (p[0] == '.' && (vim_ispathsep(p[1])
15848 || (p[1] == '.' && (vim_ispathsep(p[2])))))
15849 is_relative_to_current = TRUE;
15850
15851 len = STRLEN(p);
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000015852 if (len > 0 && after_pathsep(p, p + len))
Bram Moolenaar1385c3e2011-05-19 14:59:10 +020015853 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000015854 has_trailing_pathsep = TRUE;
Bram Moolenaar1385c3e2011-05-19 14:59:10 +020015855 p[len - 1] = NUL; /* the trailing slash breaks readlink() */
15856 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000015857
15858 q = getnextcomp(p);
15859 if (*q != NUL)
15860 {
15861 /* Separate the first path component in "p", and keep the
15862 * remainder (beginning with the path separator). */
15863 remain = vim_strsave(q - 1);
15864 q[-1] = NUL;
15865 }
15866
Bram Moolenaard9462e32011-04-11 21:35:11 +020015867 buf = alloc(MAXPATHL + 1);
15868 if (buf == NULL)
15869 goto fail;
15870
Bram Moolenaar071d4272004-06-13 20:20:40 +000015871 for (;;)
15872 {
15873 for (;;)
15874 {
15875 len = readlink((char *)p, (char *)buf, MAXPATHL);
15876 if (len <= 0)
15877 break;
15878 buf[len] = NUL;
15879
15880 if (limit-- == 0)
15881 {
15882 vim_free(p);
15883 vim_free(remain);
15884 EMSG(_("E655: Too many symbolic links (cycle?)"));
Bram Moolenaarc70646c2005-01-04 21:52:38 +000015885 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000015886 goto fail;
15887 }
15888
15889 /* Ensure that the result will have a trailing path separator
15890 * if the argument has one. */
15891 if (remain == NULL && has_trailing_pathsep)
15892 add_pathsep(buf);
15893
15894 /* Separate the first path component in the link value and
15895 * concatenate the remainders. */
15896 q = getnextcomp(vim_ispathsep(*buf) ? buf + 1 : buf);
15897 if (*q != NUL)
15898 {
15899 if (remain == NULL)
15900 remain = vim_strsave(q - 1);
15901 else
15902 {
Bram Moolenaar900b4d72005-12-12 22:05:50 +000015903 cpy = concat_str(q - 1, remain);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015904 if (cpy != NULL)
15905 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000015906 vim_free(remain);
15907 remain = cpy;
15908 }
15909 }
15910 q[-1] = NUL;
15911 }
15912
15913 q = gettail(p);
15914 if (q > p && *q == NUL)
15915 {
15916 /* Ignore trailing path separator. */
15917 q[-1] = NUL;
15918 q = gettail(p);
15919 }
15920 if (q > p && !mch_isFullName(buf))
15921 {
15922 /* symlink is relative to directory of argument */
15923 cpy = alloc((unsigned)(STRLEN(p) + STRLEN(buf) + 1));
15924 if (cpy != NULL)
15925 {
15926 STRCPY(cpy, p);
15927 STRCPY(gettail(cpy), buf);
15928 vim_free(p);
15929 p = cpy;
15930 }
15931 }
15932 else
15933 {
15934 vim_free(p);
15935 p = vim_strsave(buf);
15936 }
15937 }
15938
15939 if (remain == NULL)
15940 break;
15941
15942 /* Append the first path component of "remain" to "p". */
15943 q = getnextcomp(remain + 1);
15944 len = q - remain - (*q != NUL);
15945 cpy = vim_strnsave(p, STRLEN(p) + len);
15946 if (cpy != NULL)
15947 {
15948 STRNCAT(cpy, remain, len);
15949 vim_free(p);
15950 p = cpy;
15951 }
15952 /* Shorten "remain". */
15953 if (*q != NUL)
Bram Moolenaar8c8de832008-06-24 22:58:06 +000015954 STRMOVE(remain, q - 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015955 else
15956 {
15957 vim_free(remain);
15958 remain = NULL;
15959 }
15960 }
15961
15962 /* If the result is a relative path name, make it explicitly relative to
15963 * the current directory if and only if the argument had this form. */
15964 if (!vim_ispathsep(*p))
15965 {
15966 if (is_relative_to_current
15967 && *p != NUL
15968 && !(p[0] == '.'
15969 && (p[1] == NUL
15970 || vim_ispathsep(p[1])
15971 || (p[1] == '.'
15972 && (p[2] == NUL
15973 || vim_ispathsep(p[2]))))))
15974 {
15975 /* Prepend "./". */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000015976 cpy = concat_str((char_u *)"./", p);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015977 if (cpy != NULL)
15978 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000015979 vim_free(p);
15980 p = cpy;
15981 }
15982 }
15983 else if (!is_relative_to_current)
15984 {
15985 /* Strip leading "./". */
15986 q = p;
15987 while (q[0] == '.' && vim_ispathsep(q[1]))
15988 q += 2;
15989 if (q > p)
Bram Moolenaar8c8de832008-06-24 22:58:06 +000015990 STRMOVE(p, p + 2);
Bram Moolenaar071d4272004-06-13 20:20:40 +000015991 }
15992 }
15993
15994 /* Ensure that the result will have no trailing path separator
15995 * if the argument had none. But keep "/" or "//". */
15996 if (!has_trailing_pathsep)
15997 {
15998 q = p + STRLEN(p);
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000015999 if (after_pathsep(p, q))
16000 *gettail_sep(p) = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016001 }
16002
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016003 rettv->vval.v_string = p;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016004 }
16005# else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016006 rettv->vval.v_string = vim_strsave(p);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016007# endif
16008#endif
16009
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016010 simplify_filename(rettv->vval.v_string);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016011
16012#ifdef HAVE_READLINK
16013fail:
Bram Moolenaard9462e32011-04-11 21:35:11 +020016014 vim_free(buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016015#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016016 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016017}
16018
16019/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000016020 * "reverse({list})" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000016021 */
16022 static void
Bram Moolenaar0d660222005-01-07 21:51:51 +000016023f_reverse(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000016024 typval_T *argvars;
16025 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016026{
Bram Moolenaar33570922005-01-25 22:26:29 +000016027 list_T *l;
16028 listitem_T *li, *ni;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016029
Bram Moolenaar0d660222005-01-07 21:51:51 +000016030 if (argvars[0].v_type != VAR_LIST)
16031 EMSG2(_(e_listarg), "reverse()");
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000016032 else if ((l = argvars[0].vval.v_list) != NULL
Bram Moolenaar32f649e2011-04-11 13:46:13 +020016033 && !tv_check_lock(l->lv_lock, (char_u *)_("reverse() argument")))
Bram Moolenaar0d660222005-01-07 21:51:51 +000016034 {
16035 li = l->lv_last;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000016036 l->lv_first = l->lv_last = NULL;
Bram Moolenaar758711c2005-02-02 23:11:38 +000016037 l->lv_len = 0;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016038 while (li != NULL)
16039 {
16040 ni = li->li_prev;
16041 list_append(l, li);
16042 li = ni;
16043 }
16044 rettv->vval.v_list = l;
16045 rettv->v_type = VAR_LIST;
16046 ++l->lv_refcount;
Bram Moolenaar52514562008-04-01 11:12:09 +000016047 l->lv_idx = l->lv_len - l->lv_idx - 1;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016048 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000016049}
16050
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016051#define SP_NOMOVE 0x01 /* don't move cursor */
16052#define SP_REPEAT 0x02 /* repeat to find outer pair */
16053#define SP_RETCOUNT 0x04 /* return matchcount */
16054#define SP_SETPCMARK 0x08 /* set previous context mark */
16055#define SP_START 0x10 /* accept match at start position */
16056#define SP_SUBPAT 0x20 /* return nr of matching sub-pattern */
16057#define SP_END 0x40 /* leave cursor at end of match */
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016058
Bram Moolenaar33570922005-01-25 22:26:29 +000016059static int get_search_arg __ARGS((typval_T *varp, int *flagsp));
Bram Moolenaar0d660222005-01-07 21:51:51 +000016060
16061/*
16062 * Get flags for a search function.
16063 * Possibly sets "p_ws".
16064 * Returns BACKWARD, FORWARD or zero (for an error).
16065 */
16066 static int
16067get_search_arg(varp, flagsp)
Bram Moolenaar33570922005-01-25 22:26:29 +000016068 typval_T *varp;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016069 int *flagsp;
16070{
16071 int dir = FORWARD;
16072 char_u *flags;
16073 char_u nbuf[NUMBUFLEN];
16074 int mask;
16075
16076 if (varp->v_type != VAR_UNKNOWN)
16077 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016078 flags = get_tv_string_buf_chk(varp, nbuf);
16079 if (flags == NULL)
16080 return 0; /* type error; errmsg already given */
Bram Moolenaar0d660222005-01-07 21:51:51 +000016081 while (*flags != NUL)
16082 {
16083 switch (*flags)
16084 {
16085 case 'b': dir = BACKWARD; break;
16086 case 'w': p_ws = TRUE; break;
16087 case 'W': p_ws = FALSE; break;
16088 default: mask = 0;
16089 if (flagsp != NULL)
16090 switch (*flags)
16091 {
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016092 case 'c': mask = SP_START; break;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016093 case 'e': mask = SP_END; break;
16094 case 'm': mask = SP_RETCOUNT; break;
16095 case 'n': mask = SP_NOMOVE; break;
16096 case 'p': mask = SP_SUBPAT; break;
16097 case 'r': mask = SP_REPEAT; break;
16098 case 's': mask = SP_SETPCMARK; break;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016099 }
16100 if (mask == 0)
16101 {
16102 EMSG2(_(e_invarg2), flags);
16103 dir = 0;
16104 }
16105 else
16106 *flagsp |= mask;
16107 }
16108 if (dir == 0)
16109 break;
16110 ++flags;
16111 }
16112 }
16113 return dir;
16114}
16115
Bram Moolenaar071d4272004-06-13 20:20:40 +000016116/*
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016117 * Shared by search() and searchpos() functions
Bram Moolenaar071d4272004-06-13 20:20:40 +000016118 */
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016119 static int
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016120search_cmn(argvars, match_pos, flagsp)
Bram Moolenaar33570922005-01-25 22:26:29 +000016121 typval_T *argvars;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016122 pos_T *match_pos;
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016123 int *flagsp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016124{
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016125 int flags;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016126 char_u *pat;
16127 pos_T pos;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016128 pos_T save_cursor;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016129 int save_p_ws = p_ws;
16130 int dir;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016131 int retval = 0; /* default: FAIL */
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016132 long lnum_stop = 0;
Bram Moolenaar76929292008-01-06 19:07:36 +000016133 proftime_T tm;
16134#ifdef FEAT_RELTIME
16135 long time_limit = 0;
16136#endif
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016137 int options = SEARCH_KEEP;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016138 int subpatnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016139
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016140 pat = get_tv_string(&argvars[0]);
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016141 dir = get_search_arg(&argvars[1], flagsp); /* may set p_ws */
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016142 if (dir == 0)
16143 goto theend;
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016144 flags = *flagsp;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016145 if (flags & SP_START)
16146 options |= SEARCH_START;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016147 if (flags & SP_END)
16148 options |= SEARCH_END;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016149
Bram Moolenaar76929292008-01-06 19:07:36 +000016150 /* Optional arguments: line number to stop searching and timeout. */
16151 if (argvars[1].v_type != VAR_UNKNOWN && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016152 {
16153 lnum_stop = get_tv_number_chk(&argvars[2], NULL);
16154 if (lnum_stop < 0)
16155 goto theend;
Bram Moolenaar76929292008-01-06 19:07:36 +000016156#ifdef FEAT_RELTIME
16157 if (argvars[3].v_type != VAR_UNKNOWN)
16158 {
16159 time_limit = get_tv_number_chk(&argvars[3], NULL);
16160 if (time_limit < 0)
16161 goto theend;
16162 }
16163#endif
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016164 }
16165
Bram Moolenaar76929292008-01-06 19:07:36 +000016166#ifdef FEAT_RELTIME
16167 /* Set the time limit, if there is one. */
16168 profile_setlimit(time_limit, &tm);
16169#endif
16170
Bram Moolenaar231334e2005-07-25 20:46:57 +000016171 /*
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016172 * This function does not accept SP_REPEAT and SP_RETCOUNT flags.
Bram Moolenaar231334e2005-07-25 20:46:57 +000016173 * Check to make sure only those flags are set.
16174 * Also, Only the SP_NOMOVE or the SP_SETPCMARK flag can be set. Both
16175 * flags cannot be set. Check for that condition also.
16176 */
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016177 if (((flags & (SP_REPEAT | SP_RETCOUNT)) != 0)
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016178 || ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016179 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016180 EMSG2(_(e_invarg2), get_tv_string(&argvars[1]));
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016181 goto theend;
16182 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000016183
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016184 pos = save_cursor = curwin->w_cursor;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016185 subpatnum = searchit(curwin, curbuf, &pos, dir, pat, 1L,
Bram Moolenaar76929292008-01-06 19:07:36 +000016186 options, RE_SEARCH, (linenr_T)lnum_stop, &tm);
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016187 if (subpatnum != FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000016188 {
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016189 if (flags & SP_SUBPAT)
16190 retval = subpatnum;
16191 else
16192 retval = pos.lnum;
Bram Moolenaar231334e2005-07-25 20:46:57 +000016193 if (flags & SP_SETPCMARK)
16194 setpcmark();
Bram Moolenaar071d4272004-06-13 20:20:40 +000016195 curwin->w_cursor = pos;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016196 if (match_pos != NULL)
16197 {
16198 /* Store the match cursor position */
16199 match_pos->lnum = pos.lnum;
16200 match_pos->col = pos.col + 1;
16201 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000016202 /* "/$" will put the cursor after the end of the line, may need to
16203 * correct that here */
16204 check_cursor();
16205 }
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016206
16207 /* If 'n' flag is used: restore cursor position. */
16208 if (flags & SP_NOMOVE)
16209 curwin->w_cursor = save_cursor;
Bram Moolenaar7a42fa32007-07-10 11:28:55 +000016210 else
16211 curwin->w_set_curswant = TRUE;
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016212theend:
Bram Moolenaar071d4272004-06-13 20:20:40 +000016213 p_ws = save_p_ws;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016214
16215 return retval;
16216}
16217
Bram Moolenaar8c8de832008-06-24 22:58:06 +000016218#ifdef FEAT_FLOAT
Bram Moolenaara2e14fc2013-06-10 20:10:44 +020016219
16220/*
16221 * round() is not in C90, use ceil() or floor() instead.
16222 */
16223 float_T
16224vim_round(f)
16225 float_T f;
16226{
16227 return f > 0 ? floor(f + 0.5) : ceil(f - 0.5);
16228}
16229
Bram Moolenaar8c8de832008-06-24 22:58:06 +000016230/*
16231 * "round({float})" function
16232 */
16233 static void
16234f_round(argvars, rettv)
16235 typval_T *argvars;
16236 typval_T *rettv;
16237{
16238 float_T f;
16239
16240 rettv->v_type = VAR_FLOAT;
16241 if (get_float_arg(argvars, &f) == OK)
Bram Moolenaara2e14fc2013-06-10 20:10:44 +020016242 rettv->vval.v_float = vim_round(f);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000016243 else
16244 rettv->vval.v_float = 0.0;
16245}
16246#endif
16247
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016248/*
Bram Moolenaar9a773482013-06-11 18:40:13 +020016249 * "screenattr()" function
16250 */
16251 static void
16252f_screenattr(argvars, rettv)
16253 typval_T *argvars UNUSED;
16254 typval_T *rettv;
16255{
16256 int row;
16257 int col;
16258 int c;
16259
16260 row = get_tv_number_chk(&argvars[0], NULL) - 1;
16261 col = get_tv_number_chk(&argvars[1], NULL) - 1;
16262 if (row < 0 || row >= screen_Rows
16263 || col < 0 || col >= screen_Columns)
16264 c = -1;
16265 else
16266 c = ScreenAttrs[LineOffset[row] + col];
16267 rettv->vval.v_number = c;
16268}
16269
16270/*
16271 * "screenchar()" function
16272 */
16273 static void
16274f_screenchar(argvars, rettv)
16275 typval_T *argvars UNUSED;
16276 typval_T *rettv;
16277{
16278 int row;
16279 int col;
16280 int off;
16281 int c;
16282
16283 row = get_tv_number_chk(&argvars[0], NULL) - 1;
16284 col = get_tv_number_chk(&argvars[1], NULL) - 1;
16285 if (row < 0 || row >= screen_Rows
16286 || col < 0 || col >= screen_Columns)
16287 c = -1;
16288 else
16289 {
16290 off = LineOffset[row] + col;
16291#ifdef FEAT_MBYTE
16292 if (enc_utf8 && ScreenLinesUC[off] != 0)
16293 c = ScreenLinesUC[off];
16294 else
16295#endif
16296 c = ScreenLines[off];
16297 }
16298 rettv->vval.v_number = c;
16299}
16300
16301/*
Bram Moolenaar9750bb12012-12-05 16:10:42 +010016302 * "screencol()" function
16303 *
16304 * First column is 1 to be consistent with virtcol().
16305 */
16306 static void
16307f_screencol(argvars, rettv)
16308 typval_T *argvars UNUSED;
16309 typval_T *rettv;
16310{
16311 rettv->vval.v_number = screen_screencol() + 1;
16312}
16313
16314/*
16315 * "screenrow()" function
16316 */
16317 static void
16318f_screenrow(argvars, rettv)
16319 typval_T *argvars UNUSED;
16320 typval_T *rettv;
16321{
16322 rettv->vval.v_number = screen_screenrow() + 1;
16323}
16324
16325/*
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016326 * "search()" function
16327 */
16328 static void
16329f_search(argvars, rettv)
16330 typval_T *argvars;
16331 typval_T *rettv;
16332{
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016333 int flags = 0;
16334
16335 rettv->vval.v_number = search_cmn(argvars, NULL, &flags);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016336}
16337
Bram Moolenaar071d4272004-06-13 20:20:40 +000016338/*
Bram Moolenaardd2436f2005-09-05 22:14:46 +000016339 * "searchdecl()" function
16340 */
16341 static void
16342f_searchdecl(argvars, rettv)
16343 typval_T *argvars;
16344 typval_T *rettv;
16345{
16346 int locally = 1;
Bram Moolenaare6facf92005-09-13 21:22:27 +000016347 int thisblock = 0;
Bram Moolenaardd2436f2005-09-05 22:14:46 +000016348 int error = FALSE;
16349 char_u *name;
16350
16351 rettv->vval.v_number = 1; /* default: FAIL */
16352
16353 name = get_tv_string_chk(&argvars[0]);
16354 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaare6facf92005-09-13 21:22:27 +000016355 {
Bram Moolenaardd2436f2005-09-05 22:14:46 +000016356 locally = get_tv_number_chk(&argvars[1], &error) == 0;
Bram Moolenaare6facf92005-09-13 21:22:27 +000016357 if (!error && argvars[2].v_type != VAR_UNKNOWN)
16358 thisblock = get_tv_number_chk(&argvars[2], &error) != 0;
16359 }
Bram Moolenaardd2436f2005-09-05 22:14:46 +000016360 if (!error && name != NULL)
16361 rettv->vval.v_number = find_decl(name, (int)STRLEN(name),
Bram Moolenaare6facf92005-09-13 21:22:27 +000016362 locally, thisblock, SEARCH_KEEP) == FAIL;
Bram Moolenaardd2436f2005-09-05 22:14:46 +000016363}
16364
16365/*
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016366 * Used by searchpair() and searchpairpos()
Bram Moolenaar071d4272004-06-13 20:20:40 +000016367 */
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016368 static int
16369searchpair_cmn(argvars, match_pos)
Bram Moolenaar33570922005-01-25 22:26:29 +000016370 typval_T *argvars;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016371 pos_T *match_pos;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016372{
16373 char_u *spat, *mpat, *epat;
16374 char_u *skip;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016375 int save_p_ws = p_ws;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016376 int dir;
16377 int flags = 0;
16378 char_u nbuf1[NUMBUFLEN];
16379 char_u nbuf2[NUMBUFLEN];
16380 char_u nbuf3[NUMBUFLEN];
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016381 int retval = 0; /* default: FAIL */
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016382 long lnum_stop = 0;
Bram Moolenaar76929292008-01-06 19:07:36 +000016383 long time_limit = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016384
Bram Moolenaar071d4272004-06-13 20:20:40 +000016385 /* Get the three pattern arguments: start, middle, end. */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016386 spat = get_tv_string_chk(&argvars[0]);
16387 mpat = get_tv_string_buf_chk(&argvars[1], nbuf1);
16388 epat = get_tv_string_buf_chk(&argvars[2], nbuf2);
16389 if (spat == NULL || mpat == NULL || epat == NULL)
16390 goto theend; /* type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +000016391
Bram Moolenaar071d4272004-06-13 20:20:40 +000016392 /* Handle the optional fourth argument: flags */
16393 dir = get_search_arg(&argvars[3], &flags); /* may set p_ws */
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000016394 if (dir == 0)
16395 goto theend;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016396
16397 /* Don't accept SP_END or SP_SUBPAT.
Bram Moolenaar231334e2005-07-25 20:46:57 +000016398 * Only one of the SP_NOMOVE or SP_SETPCMARK flags can be set.
16399 */
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016400 if ((flags & (SP_END | SP_SUBPAT)) != 0
16401 || ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
Bram Moolenaar231334e2005-07-25 20:46:57 +000016402 {
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016403 EMSG2(_(e_invarg2), get_tv_string(&argvars[3]));
Bram Moolenaar231334e2005-07-25 20:46:57 +000016404 goto theend;
16405 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000016406
Bram Moolenaar92de73d2008-01-22 10:59:38 +000016407 /* Using 'r' implies 'W', otherwise it doesn't work. */
16408 if (flags & SP_REPEAT)
16409 p_ws = FALSE;
16410
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016411 /* Optional fifth argument: skip expression */
Bram Moolenaar49cd9572005-01-03 21:06:01 +000016412 if (argvars[3].v_type == VAR_UNKNOWN
16413 || argvars[4].v_type == VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000016414 skip = (char_u *)"";
16415 else
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016416 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016417 skip = get_tv_string_buf_chk(&argvars[4], nbuf3);
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016418 if (argvars[5].v_type != VAR_UNKNOWN)
16419 {
16420 lnum_stop = get_tv_number_chk(&argvars[5], NULL);
16421 if (lnum_stop < 0)
16422 goto theend;
Bram Moolenaar76929292008-01-06 19:07:36 +000016423#ifdef FEAT_RELTIME
16424 if (argvars[6].v_type != VAR_UNKNOWN)
16425 {
16426 time_limit = get_tv_number_chk(&argvars[6], NULL);
16427 if (time_limit < 0)
16428 goto theend;
16429 }
16430#endif
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016431 }
16432 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016433 if (skip == NULL)
16434 goto theend; /* type error */
Bram Moolenaar071d4272004-06-13 20:20:40 +000016435
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016436 retval = do_searchpair(spat, mpat, epat, dir, skip, flags,
Bram Moolenaar76929292008-01-06 19:07:36 +000016437 match_pos, lnum_stop, time_limit);
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016438
16439theend:
16440 p_ws = save_p_ws;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016441
16442 return retval;
16443}
16444
16445/*
16446 * "searchpair()" function
16447 */
16448 static void
16449f_searchpair(argvars, rettv)
16450 typval_T *argvars;
16451 typval_T *rettv;
16452{
16453 rettv->vval.v_number = searchpair_cmn(argvars, NULL);
16454}
16455
16456/*
16457 * "searchpairpos()" function
16458 */
16459 static void
16460f_searchpairpos(argvars, rettv)
16461 typval_T *argvars;
16462 typval_T *rettv;
16463{
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016464 pos_T match_pos;
16465 int lnum = 0;
16466 int col = 0;
16467
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016468 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016469 return;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016470
16471 if (searchpair_cmn(argvars, &match_pos) > 0)
16472 {
16473 lnum = match_pos.lnum;
16474 col = match_pos.col;
16475 }
16476
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016477 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
16478 list_append_number(rettv->vval.v_list, (varnumber_T)col);
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016479}
16480
16481/*
16482 * Search for a start/middle/end thing.
16483 * Used by searchpair(), see its documentation for the details.
16484 * Returns 0 or -1 for no match,
16485 */
16486 long
Bram Moolenaar76929292008-01-06 19:07:36 +000016487do_searchpair(spat, mpat, epat, dir, skip, flags, match_pos,
16488 lnum_stop, time_limit)
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016489 char_u *spat; /* start pattern */
16490 char_u *mpat; /* middle pattern */
16491 char_u *epat; /* end pattern */
16492 int dir; /* BACKWARD or FORWARD */
16493 char_u *skip; /* skip expression */
Bram Moolenaar768b8c42006-03-04 21:58:33 +000016494 int flags; /* SP_SETPCMARK and other SP_ values */
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016495 pos_T *match_pos;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016496 linenr_T lnum_stop; /* stop at this line if not zero */
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010016497 long time_limit UNUSED; /* stop after this many msec */
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016498{
16499 char_u *save_cpo;
16500 char_u *pat, *pat2 = NULL, *pat3 = NULL;
16501 long retval = 0;
16502 pos_T pos;
16503 pos_T firstpos;
16504 pos_T foundpos;
16505 pos_T save_cursor;
16506 pos_T save_pos;
16507 int n;
16508 int r;
16509 int nest = 1;
16510 int err;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016511 int options = SEARCH_KEEP;
Bram Moolenaar76929292008-01-06 19:07:36 +000016512 proftime_T tm;
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016513
16514 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
16515 save_cpo = p_cpo;
Bram Moolenaar9c24ccc2008-07-14 21:05:15 +000016516 p_cpo = empty_option;
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016517
Bram Moolenaar76929292008-01-06 19:07:36 +000016518#ifdef FEAT_RELTIME
16519 /* Set the time limit, if there is one. */
16520 profile_setlimit(time_limit, &tm);
16521#endif
16522
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016523 /* Make two search patterns: start/end (pat2, for in nested pairs) and
16524 * start/middle/end (pat3, for the top pair). */
16525 pat2 = alloc((unsigned)(STRLEN(spat) + STRLEN(epat) + 15));
16526 pat3 = alloc((unsigned)(STRLEN(spat) + STRLEN(mpat) + STRLEN(epat) + 23));
16527 if (pat2 == NULL || pat3 == NULL)
16528 goto theend;
16529 sprintf((char *)pat2, "\\(%s\\m\\)\\|\\(%s\\m\\)", spat, epat);
16530 if (*mpat == NUL)
16531 STRCPY(pat3, pat2);
16532 else
16533 sprintf((char *)pat3, "\\(%s\\m\\)\\|\\(%s\\m\\)\\|\\(%s\\m\\)",
16534 spat, epat, mpat);
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016535 if (flags & SP_START)
16536 options |= SEARCH_START;
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016537
Bram Moolenaar071d4272004-06-13 20:20:40 +000016538 save_cursor = curwin->w_cursor;
16539 pos = curwin->w_cursor;
Bram Moolenaar261bfea2006-03-01 22:12:31 +000016540 clearpos(&firstpos);
16541 clearpos(&foundpos);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016542 pat = pat3;
16543 for (;;)
16544 {
16545 n = searchit(curwin, curbuf, &pos, dir, pat, 1L,
Bram Moolenaar76929292008-01-06 19:07:36 +000016546 options, RE_SEARCH, lnum_stop, &tm);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016547 if (n == FAIL || (firstpos.lnum != 0 && equalpos(pos, firstpos)))
16548 /* didn't find it or found the first match again: FAIL */
16549 break;
16550
16551 if (firstpos.lnum == 0)
16552 firstpos = pos;
Bram Moolenaarc9a2d2e2005-04-24 22:09:56 +000016553 if (equalpos(pos, foundpos))
16554 {
16555 /* Found the same position again. Can happen with a pattern that
16556 * has "\zs" at the end and searching backwards. Advance one
16557 * character and try again. */
16558 if (dir == BACKWARD)
16559 decl(&pos);
16560 else
16561 incl(&pos);
16562 }
16563 foundpos = pos;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016564
Bram Moolenaar92de73d2008-01-22 10:59:38 +000016565 /* clear the start flag to avoid getting stuck here */
16566 options &= ~SEARCH_START;
16567
Bram Moolenaar071d4272004-06-13 20:20:40 +000016568 /* If the skip pattern matches, ignore this match. */
16569 if (*skip != NUL)
16570 {
16571 save_pos = curwin->w_cursor;
16572 curwin->w_cursor = pos;
16573 r = eval_to_bool(skip, &err, NULL, FALSE);
16574 curwin->w_cursor = save_pos;
16575 if (err)
16576 {
16577 /* Evaluating {skip} caused an error, break here. */
16578 curwin->w_cursor = save_cursor;
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016579 retval = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016580 break;
16581 }
16582 if (r)
16583 continue;
16584 }
16585
16586 if ((dir == BACKWARD && n == 3) || (dir == FORWARD && n == 2))
16587 {
16588 /* Found end when searching backwards or start when searching
16589 * forward: nested pair. */
16590 ++nest;
16591 pat = pat2; /* nested, don't search for middle */
16592 }
16593 else
16594 {
16595 /* Found end when searching forward or start when searching
16596 * backward: end of (nested) pair; or found middle in outer pair. */
16597 if (--nest == 1)
16598 pat = pat3; /* outer level, search for middle */
16599 }
16600
16601 if (nest == 0)
16602 {
16603 /* Found the match: return matchcount or line number. */
16604 if (flags & SP_RETCOUNT)
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016605 ++retval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016606 else
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016607 retval = pos.lnum;
Bram Moolenaar231334e2005-07-25 20:46:57 +000016608 if (flags & SP_SETPCMARK)
16609 setpcmark();
Bram Moolenaar071d4272004-06-13 20:20:40 +000016610 curwin->w_cursor = pos;
16611 if (!(flags & SP_REPEAT))
16612 break;
16613 nest = 1; /* search for next unmatched */
16614 }
16615 }
16616
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016617 if (match_pos != NULL)
16618 {
16619 /* Store the match cursor position */
16620 match_pos->lnum = curwin->w_cursor.lnum;
16621 match_pos->col = curwin->w_cursor.col + 1;
16622 }
16623
Bram Moolenaar071d4272004-06-13 20:20:40 +000016624 /* If 'n' flag is used or search failed: restore cursor position. */
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016625 if ((flags & SP_NOMOVE) || retval == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000016626 curwin->w_cursor = save_cursor;
16627
16628theend:
16629 vim_free(pat2);
16630 vim_free(pat3);
Bram Moolenaar9c24ccc2008-07-14 21:05:15 +000016631 if (p_cpo == empty_option)
16632 p_cpo = save_cpo;
16633 else
16634 /* Darn, evaluating the {skip} expression changed the value. */
16635 free_string_option(save_cpo);
Bram Moolenaar9fad3082005-07-19 22:22:13 +000016636
16637 return retval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016638}
16639
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016640/*
16641 * "searchpos()" function
16642 */
16643 static void
16644f_searchpos(argvars, rettv)
16645 typval_T *argvars;
16646 typval_T *rettv;
16647{
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016648 pos_T match_pos;
16649 int lnum = 0;
16650 int col = 0;
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016651 int n;
16652 int flags = 0;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016653
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016654 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016655 return;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016656
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016657 n = search_cmn(argvars, &match_pos, &flags);
16658 if (n > 0)
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016659 {
16660 lnum = match_pos.lnum;
16661 col = match_pos.col;
16662 }
16663
Bram Moolenaareddf53b2006-02-27 00:11:10 +000016664 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
16665 list_append_number(rettv->vval.v_list, (varnumber_T)col);
Bram Moolenaar362e1a32006-03-06 23:29:24 +000016666 if (flags & SP_SUBPAT)
16667 list_append_number(rettv->vval.v_list, (varnumber_T)n);
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000016668}
16669
16670
Bram Moolenaar0d660222005-01-07 21:51:51 +000016671 static void
16672f_server2client(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000016673 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000016674 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016675{
Bram Moolenaar0d660222005-01-07 21:51:51 +000016676#ifdef FEAT_CLIENTSERVER
16677 char_u buf[NUMBUFLEN];
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016678 char_u *server = get_tv_string_chk(&argvars[0]);
16679 char_u *reply = get_tv_string_buf_chk(&argvars[1], buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016680
Bram Moolenaar0d660222005-01-07 21:51:51 +000016681 rettv->vval.v_number = -1;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016682 if (server == NULL || reply == NULL)
16683 return;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016684 if (check_restricted() || check_secure())
16685 return;
16686# ifdef FEAT_X11
16687 if (check_connection() == FAIL)
16688 return;
16689# endif
16690
16691 if (serverSendReply(server, reply) < 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000016692 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000016693 EMSG(_("E258: Unable to send to client"));
16694 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016695 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000016696 rettv->vval.v_number = 0;
16697#else
16698 rettv->vval.v_number = -1;
16699#endif
16700}
16701
Bram Moolenaar0d660222005-01-07 21:51:51 +000016702 static void
16703f_serverlist(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000016704 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000016705 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000016706{
16707 char_u *r = NULL;
16708
16709#ifdef FEAT_CLIENTSERVER
16710# ifdef WIN32
16711 r = serverGetVimNames();
16712# else
16713 make_connection();
16714 if (X_DISPLAY != NULL)
16715 r = serverGetVimNames(X_DISPLAY);
16716# endif
16717#endif
16718 rettv->v_type = VAR_STRING;
16719 rettv->vval.v_string = r;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016720}
16721
16722/*
16723 * "setbufvar()" function
16724 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000016725 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016726f_setbufvar(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000016727 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000016728 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016729{
16730 buf_T *buf;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016731 aco_save_T aco;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016732 char_u *varname, *bufvarname;
Bram Moolenaar33570922005-01-25 22:26:29 +000016733 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016734 char_u nbuf[NUMBUFLEN];
16735
16736 if (check_restricted() || check_secure())
16737 return;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016738 (void)get_tv_number(&argvars[0]); /* issue errmsg if type error */
16739 varname = get_tv_string_chk(&argvars[1]);
Bram Moolenaar0c279bb2013-03-19 14:25:54 +010016740 buf = get_buf_tv(&argvars[0], FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016741 varp = &argvars[2];
16742
16743 if (buf != NULL && varname != NULL && varp != NULL)
16744 {
16745 /* set curbuf to be our buf, temporarily */
Bram Moolenaar071d4272004-06-13 20:20:40 +000016746 aucmd_prepbuf(&aco, buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016747
16748 if (*varname == '&')
16749 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016750 long numval;
16751 char_u *strval;
16752 int error = FALSE;
16753
Bram Moolenaar071d4272004-06-13 20:20:40 +000016754 ++varname;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016755 numval = get_tv_number_chk(varp, &error);
16756 strval = get_tv_string_buf_chk(varp, nbuf);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016757 if (!error && strval != NULL)
16758 set_option_value(varname, numval, strval, OPT_LOCAL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016759 }
16760 else
16761 {
16762 bufvarname = alloc((unsigned)STRLEN(varname) + 3);
16763 if (bufvarname != NULL)
16764 {
16765 STRCPY(bufvarname, "b:");
16766 STRCPY(bufvarname + 2, varname);
Bram Moolenaar1c2fda22005-01-02 11:43:19 +000016767 set_var(bufvarname, varp, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016768 vim_free(bufvarname);
16769 }
16770 }
16771
16772 /* reset notion of buffer */
Bram Moolenaar071d4272004-06-13 20:20:40 +000016773 aucmd_restbuf(&aco);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016774 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000016775}
16776
16777/*
16778 * "setcmdpos()" function
16779 */
16780 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016781f_setcmdpos(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000016782 typval_T *argvars;
16783 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016784{
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016785 int pos = (int)get_tv_number(&argvars[0]) - 1;
16786
16787 if (pos >= 0)
16788 rettv->vval.v_number = set_cmdline_pos(pos);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016789}
16790
16791/*
16792 * "setline()" function
16793 */
16794 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000016795f_setline(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000016796 typval_T *argvars;
16797 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016798{
16799 linenr_T lnum;
Bram Moolenaar0e6830e2005-05-27 20:23:44 +000016800 char_u *line = NULL;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016801 list_T *l = NULL;
16802 listitem_T *li = NULL;
16803 long added = 0;
16804 linenr_T lcount = curbuf->b_ml.ml_line_count;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016805
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016806 lnum = get_tv_lnum(&argvars[0]);
16807 if (argvars[1].v_type == VAR_LIST)
Bram Moolenaar071d4272004-06-13 20:20:40 +000016808 {
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016809 l = argvars[1].vval.v_list;
16810 li = l->lv_first;
Bram Moolenaar071d4272004-06-13 20:20:40 +000016811 }
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016812 else
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016813 line = get_tv_string_chk(&argvars[1]);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016814
Bram Moolenaar798b30b2009-04-22 10:56:16 +000016815 /* default result is zero == OK */
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016816 for (;;)
16817 {
16818 if (l != NULL)
16819 {
16820 /* list argument, get next string */
16821 if (li == NULL)
16822 break;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016823 line = get_tv_string_chk(&li->li_tv);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016824 li = li->li_next;
16825 }
16826
16827 rettv->vval.v_number = 1; /* FAIL */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016828 if (line == NULL || lnum < 1 || lnum > curbuf->b_ml.ml_line_count + 1)
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016829 break;
Bram Moolenaar3c1e9c22013-07-04 20:25:41 +020016830
16831 /* When coming here from Insert mode, sync undo, so that this can be
16832 * undone separately from what was previously inserted. */
16833 if (u_sync_once == 2)
16834 {
16835 u_sync_once = 1; /* notify that u_sync() was called */
16836 u_sync(TRUE);
16837 }
16838
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016839 if (lnum <= curbuf->b_ml.ml_line_count)
16840 {
16841 /* existing line, replace it */
16842 if (u_savesub(lnum) == OK && ml_replace(lnum, line, TRUE) == OK)
16843 {
16844 changed_bytes(lnum, 0);
Bram Moolenaar87c19962007-04-26 08:54:21 +000016845 if (lnum == curwin->w_cursor.lnum)
16846 check_cursor_col();
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000016847 rettv->vval.v_number = 0; /* OK */
16848 }
16849 }
16850 else if (added > 0 || u_save(lnum - 1, lnum) == OK)
16851 {
16852 /* lnum is one past the last line, append the line */
16853 ++added;
16854 if (ml_append(lnum - 1, line, (colnr_T)0, FALSE) == OK)
16855 rettv->vval.v_number = 0; /* OK */
16856 }
16857
16858 if (l == NULL) /* only one string argument */
16859 break;
16860 ++lnum;
16861 }
16862
16863 if (added > 0)
16864 appended_lines_mark(lcount, added);
Bram Moolenaar071d4272004-06-13 20:20:40 +000016865}
16866
Bram Moolenaard9ff7d52008-03-20 12:23:49 +000016867static void set_qf_ll_list __ARGS((win_T *wp, typval_T *list_arg, typval_T *action_arg, typval_T *rettv));
16868
Bram Moolenaar071d4272004-06-13 20:20:40 +000016869/*
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016870 * Used by "setqflist()" and "setloclist()" functions
Bram Moolenaar2641f772005-03-25 21:58:17 +000016871 */
Bram Moolenaar2641f772005-03-25 21:58:17 +000016872 static void
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016873set_qf_ll_list(wp, list_arg, action_arg, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000016874 win_T *wp UNUSED;
16875 typval_T *list_arg UNUSED;
16876 typval_T *action_arg UNUSED;
Bram Moolenaar2641f772005-03-25 21:58:17 +000016877 typval_T *rettv;
16878{
Bram Moolenaar0ac93792006-01-21 22:16:51 +000016879#ifdef FEAT_QUICKFIX
Bram Moolenaarf4630b62005-05-20 21:31:17 +000016880 char_u *act;
16881 int action = ' ';
Bram Moolenaar0ac93792006-01-21 22:16:51 +000016882#endif
Bram Moolenaarf4630b62005-05-20 21:31:17 +000016883
Bram Moolenaar2641f772005-03-25 21:58:17 +000016884 rettv->vval.v_number = -1;
16885
16886#ifdef FEAT_QUICKFIX
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016887 if (list_arg->v_type != VAR_LIST)
Bram Moolenaar2641f772005-03-25 21:58:17 +000016888 EMSG(_(e_listreq));
16889 else
16890 {
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016891 list_T *l = list_arg->vval.v_list;
Bram Moolenaar2641f772005-03-25 21:58:17 +000016892
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016893 if (action_arg->v_type == VAR_STRING)
Bram Moolenaarf4630b62005-05-20 21:31:17 +000016894 {
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016895 act = get_tv_string_chk(action_arg);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000016896 if (act == NULL)
16897 return; /* type error; errmsg already given */
Bram Moolenaarf4630b62005-05-20 21:31:17 +000016898 if (*act == 'a' || *act == 'r')
16899 action = *act;
16900 }
16901
Bram Moolenaar81484f42012-12-05 15:16:47 +010016902 if (l != NULL && set_errorlist(wp, l, action,
16903 (char_u *)(wp == NULL ? "setqflist()" : "setloclist()")) == OK)
Bram Moolenaar2641f772005-03-25 21:58:17 +000016904 rettv->vval.v_number = 0;
16905 }
16906#endif
16907}
16908
16909/*
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016910 * "setloclist()" function
16911 */
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016912 static void
16913f_setloclist(argvars, rettv)
16914 typval_T *argvars;
16915 typval_T *rettv;
16916{
16917 win_T *win;
16918
16919 rettv->vval.v_number = -1;
16920
Bram Moolenaar99ebf042006-04-15 20:28:54 +000016921 win = find_win_by_nr(&argvars[0], NULL);
Bram Moolenaar17c7c012006-01-26 22:25:15 +000016922 if (win != NULL)
16923 set_qf_ll_list(win, &argvars[1], &argvars[2], rettv);
16924}
16925
16926/*
Bram Moolenaar6ee10162007-07-26 20:58:42 +000016927 * "setmatches()" function
16928 */
16929 static void
16930f_setmatches(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010016931 typval_T *argvars UNUSED;
16932 typval_T *rettv UNUSED;
Bram Moolenaar6ee10162007-07-26 20:58:42 +000016933{
16934#ifdef FEAT_SEARCH_EXTRA
16935 list_T *l;
16936 listitem_T *li;
16937 dict_T *d;
16938
16939 rettv->vval.v_number = -1;
16940 if (argvars[0].v_type != VAR_LIST)
16941 {
16942 EMSG(_(e_listreq));
16943 return;
16944 }
16945 if ((l = argvars[0].vval.v_list) != NULL)
16946 {
16947
16948 /* To some extent make sure that we are dealing with a list from
16949 * "getmatches()". */
16950 li = l->lv_first;
16951 while (li != NULL)
16952 {
16953 if (li->li_tv.v_type != VAR_DICT
16954 || (d = li->li_tv.vval.v_dict) == NULL)
16955 {
16956 EMSG(_(e_invarg));
16957 return;
16958 }
16959 if (!(dict_find(d, (char_u *)"group", -1) != NULL
16960 && dict_find(d, (char_u *)"pattern", -1) != NULL
16961 && dict_find(d, (char_u *)"priority", -1) != NULL
16962 && dict_find(d, (char_u *)"id", -1) != NULL))
16963 {
16964 EMSG(_(e_invarg));
16965 return;
16966 }
16967 li = li->li_next;
16968 }
16969
16970 clear_matches(curwin);
16971 li = l->lv_first;
16972 while (li != NULL)
16973 {
16974 d = li->li_tv.vval.v_dict;
16975 match_add(curwin, get_dict_string(d, (char_u *)"group", FALSE),
16976 get_dict_string(d, (char_u *)"pattern", FALSE),
16977 (int)get_dict_number(d, (char_u *)"priority"),
Bram Moolenaarb3414592014-06-17 17:48:32 +020016978 (int)get_dict_number(d, (char_u *)"id"), NULL);
Bram Moolenaar6ee10162007-07-26 20:58:42 +000016979 li = li->li_next;
16980 }
16981 rettv->vval.v_number = 0;
16982 }
16983#endif
16984}
16985
16986/*
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016987 * "setpos()" function
16988 */
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016989 static void
16990f_setpos(argvars, rettv)
16991 typval_T *argvars;
16992 typval_T *rettv;
16993{
16994 pos_T pos;
16995 int fnum;
16996 char_u *name;
Bram Moolenaar493c1782014-05-28 14:34:46 +020016997 colnr_T curswant = -1;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000016998
Bram Moolenaar08250432008-02-13 11:42:46 +000016999 rettv->vval.v_number = -1;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017000 name = get_tv_string_chk(argvars);
17001 if (name != NULL)
17002 {
Bram Moolenaar493c1782014-05-28 14:34:46 +020017003 if (list2fpos(&argvars[1], &pos, &fnum, &curswant) == OK)
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017004 {
Bram Moolenaar742d1ec2009-12-31 12:18:30 +000017005 if (--pos.col < 0)
17006 pos.col = 0;
Bram Moolenaar08250432008-02-13 11:42:46 +000017007 if (name[0] == '.' && name[1] == NUL)
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017008 {
Bram Moolenaar08250432008-02-13 11:42:46 +000017009 /* set cursor */
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017010 if (fnum == curbuf->b_fnum)
17011 {
17012 curwin->w_cursor = pos;
Bram Moolenaar493c1782014-05-28 14:34:46 +020017013 if (curswant >= 0)
17014 curwin->w_curswant = curswant - 1;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017015 check_cursor();
Bram Moolenaar08250432008-02-13 11:42:46 +000017016 rettv->vval.v_number = 0;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017017 }
17018 else
17019 EMSG(_(e_invarg));
17020 }
Bram Moolenaar08250432008-02-13 11:42:46 +000017021 else if (name[0] == '\'' && name[1] != NUL && name[2] == NUL)
17022 {
17023 /* set mark */
17024 if (setmark_pos(name[1], &pos, fnum) == OK)
17025 rettv->vval.v_number = 0;
17026 }
Bram Moolenaar0e34f622006-03-03 23:00:03 +000017027 else
17028 EMSG(_(e_invarg));
17029 }
17030 }
17031}
17032
17033/*
Bram Moolenaar17c7c012006-01-26 22:25:15 +000017034 * "setqflist()" function
17035 */
Bram Moolenaar17c7c012006-01-26 22:25:15 +000017036 static void
17037f_setqflist(argvars, rettv)
17038 typval_T *argvars;
17039 typval_T *rettv;
17040{
17041 set_qf_ll_list(NULL, &argvars[0], &argvars[1], rettv);
17042}
17043
17044/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000017045 * "setreg()" function
17046 */
17047 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000017048f_setreg(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000017049 typval_T *argvars;
17050 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017051{
17052 int regname;
17053 char_u *strregname;
17054 char_u *stropt;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017055 char_u *strval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017056 int append;
17057 char_u yank_type;
17058 long block_len;
17059
17060 block_len = -1;
17061 yank_type = MAUTO;
17062 append = FALSE;
17063
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017064 strregname = get_tv_string_chk(argvars);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000017065 rettv->vval.v_number = 1; /* FAIL is default */
Bram Moolenaar071d4272004-06-13 20:20:40 +000017066
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017067 if (strregname == NULL)
17068 return; /* type error; errmsg already given */
17069 regname = *strregname;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017070 if (regname == 0 || regname == '@')
17071 regname = '"';
Bram Moolenaar071d4272004-06-13 20:20:40 +000017072
Bram Moolenaar49cd9572005-01-03 21:06:01 +000017073 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000017074 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017075 stropt = get_tv_string_chk(&argvars[2]);
17076 if (stropt == NULL)
17077 return; /* type error */
17078 for (; *stropt != NUL; ++stropt)
Bram Moolenaar071d4272004-06-13 20:20:40 +000017079 switch (*stropt)
17080 {
17081 case 'a': case 'A': /* append */
17082 append = TRUE;
17083 break;
17084 case 'v': case 'c': /* character-wise selection */
17085 yank_type = MCHAR;
17086 break;
17087 case 'V': case 'l': /* line-wise selection */
17088 yank_type = MLINE;
17089 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017090 case 'b': case Ctrl_V: /* block-wise selection */
17091 yank_type = MBLOCK;
17092 if (VIM_ISDIGIT(stropt[1]))
17093 {
17094 ++stropt;
17095 block_len = getdigits(&stropt) - 1;
17096 --stropt;
17097 }
17098 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017099 }
17100 }
17101
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017102 if (argvars[1].v_type == VAR_LIST)
17103 {
17104 char_u **lstval;
Bram Moolenaar7d647822014-04-05 21:28:56 +020017105 char_u **allocval;
17106 char_u buf[NUMBUFLEN];
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017107 char_u **curval;
Bram Moolenaar7d647822014-04-05 21:28:56 +020017108 char_u **curallocval;
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017109 int len = argvars[1].vval.v_list->lv_len;
17110 listitem_T *li;
17111
Bram Moolenaar7d647822014-04-05 21:28:56 +020017112 /* First half: use for pointers to result lines; second half: use for
17113 * pointers to allocated copies. */
17114 lstval = (char_u **)alloc(sizeof(char_u *) * ((len + 1) * 2));
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017115 if (lstval == NULL)
17116 return;
17117 curval = lstval;
Bram Moolenaar7d647822014-04-05 21:28:56 +020017118 allocval = lstval + len + 2;
17119 curallocval = allocval;
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017120
17121 for (li = argvars[1].vval.v_list->lv_first; li != NULL;
17122 li = li->li_next)
17123 {
Bram Moolenaar7d647822014-04-05 21:28:56 +020017124 strval = get_tv_string_buf_chk(&li->li_tv, buf);
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017125 if (strval == NULL)
Bram Moolenaar7d647822014-04-05 21:28:56 +020017126 goto free_lstval;
17127 if (strval == buf)
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017128 {
Bram Moolenaar7d647822014-04-05 21:28:56 +020017129 /* Need to make a copy, next get_tv_string_buf_chk() will
17130 * overwrite the string. */
17131 strval = vim_strsave(buf);
17132 if (strval == NULL)
17133 goto free_lstval;
17134 *curallocval++ = strval;
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017135 }
17136 *curval++ = strval;
17137 }
17138 *curval++ = NULL;
17139
17140 write_reg_contents_lst(regname, lstval, -1,
17141 append, yank_type, block_len);
Bram Moolenaar7d647822014-04-05 21:28:56 +020017142free_lstval:
17143 while (curallocval > allocval)
17144 vim_free(*--curallocval);
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017145 vim_free(lstval);
17146 }
17147 else
17148 {
17149 strval = get_tv_string_chk(&argvars[1]);
17150 if (strval == NULL)
17151 return;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017152 write_reg_contents_ex(regname, strval, -1,
Bram Moolenaar071d4272004-06-13 20:20:40 +000017153 append, yank_type, block_len);
Bram Moolenaar5a50c222014-04-02 22:17:10 +020017154 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000017155 rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017156}
17157
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017158/*
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017159 * "settabvar()" function
17160 */
17161 static void
17162f_settabvar(argvars, rettv)
17163 typval_T *argvars;
17164 typval_T *rettv;
17165{
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017166#ifdef FEAT_WINDOWS
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017167 tabpage_T *save_curtab;
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017168 tabpage_T *tp;
17169#endif
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017170 char_u *varname, *tabvarname;
17171 typval_T *varp;
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017172
17173 rettv->vval.v_number = 0;
17174
17175 if (check_restricted() || check_secure())
17176 return;
17177
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017178#ifdef FEAT_WINDOWS
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017179 tp = find_tabpage((int)get_tv_number_chk(&argvars[0], NULL));
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017180#endif
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017181 varname = get_tv_string_chk(&argvars[1]);
17182 varp = &argvars[2];
17183
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017184 if (varname != NULL && varp != NULL
17185#ifdef FEAT_WINDOWS
17186 && tp != NULL
17187#endif
17188 )
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017189 {
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017190#ifdef FEAT_WINDOWS
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017191 save_curtab = curtab;
Bram Moolenaar49e649f2013-05-06 04:50:35 +020017192 goto_tabpage_tp(tp, FALSE, FALSE);
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017193#endif
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017194
17195 tabvarname = alloc((unsigned)STRLEN(varname) + 3);
17196 if (tabvarname != NULL)
17197 {
17198 STRCPY(tabvarname, "t:");
17199 STRCPY(tabvarname + 2, varname);
17200 set_var(tabvarname, varp, TRUE);
17201 vim_free(tabvarname);
17202 }
17203
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017204#ifdef FEAT_WINDOWS
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017205 /* Restore current tabpage */
17206 if (valid_tabpage(save_curtab))
Bram Moolenaar49e649f2013-05-06 04:50:35 +020017207 goto_tabpage_tp(save_curtab, FALSE, FALSE);
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017208#endif
Bram Moolenaar06b5d512010-05-22 15:37:44 +020017209 }
17210}
17211
17212/*
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017213 * "settabwinvar()" function
17214 */
17215 static void
17216f_settabwinvar(argvars, rettv)
17217 typval_T *argvars;
17218 typval_T *rettv;
17219{
17220 setwinvar(argvars, rettv, 1);
17221}
Bram Moolenaar071d4272004-06-13 20:20:40 +000017222
17223/*
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017224 * "setwinvar()" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000017225 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000017226 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000017227f_setwinvar(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000017228 typval_T *argvars;
17229 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017230{
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017231 setwinvar(argvars, rettv, 0);
17232}
17233
17234/*
17235 * "setwinvar()" and "settabwinvar()" functions
17236 */
Bram Moolenaar84e0f6c2013-05-06 03:52:55 +020017237
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017238 static void
17239setwinvar(argvars, rettv, off)
17240 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000017241 typval_T *rettv UNUSED;
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017242 int off;
17243{
Bram Moolenaar071d4272004-06-13 20:20:40 +000017244 win_T *win;
17245#ifdef FEAT_WINDOWS
17246 win_T *save_curwin;
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017247 tabpage_T *save_curtab;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017248#endif
17249 char_u *varname, *winvarname;
Bram Moolenaar33570922005-01-25 22:26:29 +000017250 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017251 char_u nbuf[NUMBUFLEN];
Bram Moolenaar8c0e3222013-06-16 17:32:40 +020017252 tabpage_T *tp = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017253
17254 if (check_restricted() || check_secure())
17255 return;
Bram Moolenaar99ebf042006-04-15 20:28:54 +000017256
17257#ifdef FEAT_WINDOWS
17258 if (off == 1)
17259 tp = find_tabpage((int)get_tv_number_chk(&argvars[0], NULL));
17260 else
17261 tp = curtab;
17262#endif
17263 win = find_win_by_nr(&argvars[off], tp);
17264 varname = get_tv_string_chk(&argvars[off + 1]);
17265 varp = &argvars[off + 2];
Bram Moolenaar071d4272004-06-13 20:20:40 +000017266
17267 if (win != NULL && varname != NULL && varp != NULL)
17268 {
17269#ifdef FEAT_WINDOWS
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020017270 if (switch_win(&save_curwin, &save_curtab, win, tp, TRUE) == OK)
Bram Moolenaar071d4272004-06-13 20:20:40 +000017271#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000017272 {
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020017273 if (*varname == '&')
Bram Moolenaar071d4272004-06-13 20:20:40 +000017274 {
Bram Moolenaar5d2bae82014-09-19 14:26:36 +020017275 long numval;
17276 char_u *strval;
17277 int error = FALSE;
17278
17279 ++varname;
17280 numval = get_tv_number_chk(varp, &error);
17281 strval = get_tv_string_buf_chk(varp, nbuf);
17282 if (!error && strval != NULL)
17283 set_option_value(varname, numval, strval, OPT_LOCAL);
17284 }
17285 else
17286 {
17287 winvarname = alloc((unsigned)STRLEN(varname) + 3);
17288 if (winvarname != NULL)
17289 {
17290 STRCPY(winvarname, "w:");
17291 STRCPY(winvarname + 2, varname);
17292 set_var(winvarname, varp, TRUE);
17293 vim_free(winvarname);
17294 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017295 }
17296 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017297#ifdef FEAT_WINDOWS
Bram Moolenaard6949742013-06-16 14:18:28 +020017298 restore_win(save_curwin, save_curtab, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000017299#endif
17300 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017301}
17302
Bram Moolenaaraf9aeb92013-02-13 17:35:04 +010017303#ifdef FEAT_CRYPT
17304/*
17305 * "sha256({string})" function
17306 */
17307 static void
17308f_sha256(argvars, rettv)
17309 typval_T *argvars;
17310 typval_T *rettv;
17311{
17312 char_u *p;
17313
17314 p = get_tv_string(&argvars[0]);
17315 rettv->vval.v_string = vim_strsave(
17316 sha256_bytes(p, (int)STRLEN(p), NULL, 0));
17317 rettv->v_type = VAR_STRING;
17318}
17319#endif /* FEAT_CRYPT */
17320
Bram Moolenaar071d4272004-06-13 20:20:40 +000017321/*
Bram Moolenaar60a495f2006-10-03 12:44:42 +000017322 * "shellescape({string})" function
17323 */
17324 static void
17325f_shellescape(argvars, rettv)
17326 typval_T *argvars;
17327 typval_T *rettv;
17328{
Bram Moolenaar05bb9532008-07-04 09:44:11 +000017329 rettv->vval.v_string = vim_strsave_shellescape(
Bram Moolenaar26df0922014-02-23 23:39:13 +010017330 get_tv_string(&argvars[0]), non_zero_arg(&argvars[1]), TRUE);
Bram Moolenaar60a495f2006-10-03 12:44:42 +000017331 rettv->v_type = VAR_STRING;
17332}
17333
17334/*
Bram Moolenaar2d17fa32012-10-21 00:45:18 +020017335 * shiftwidth() function
17336 */
17337 static void
17338f_shiftwidth(argvars, rettv)
Bram Moolenaar95e09ea2012-10-21 23:56:05 +020017339 typval_T *argvars UNUSED;
Bram Moolenaar2d17fa32012-10-21 00:45:18 +020017340 typval_T *rettv;
17341{
Bram Moolenaar6bcbcc52013-11-05 07:13:41 +010017342 rettv->vval.v_number = get_sw_value(curbuf);
Bram Moolenaar2d17fa32012-10-21 00:45:18 +020017343}
17344
17345/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000017346 * "simplify()" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000017347 */
17348 static void
Bram Moolenaar0d660222005-01-07 21:51:51 +000017349f_simplify(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000017350 typval_T *argvars;
17351 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017352{
Bram Moolenaar0d660222005-01-07 21:51:51 +000017353 char_u *p;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017354
Bram Moolenaar0d660222005-01-07 21:51:51 +000017355 p = get_tv_string(&argvars[0]);
17356 rettv->vval.v_string = vim_strsave(p);
17357 simplify_filename(rettv->vval.v_string); /* simplify in place */
17358 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017359}
17360
Bram Moolenaar8c8de832008-06-24 22:58:06 +000017361#ifdef FEAT_FLOAT
17362/*
17363 * "sin()" function
17364 */
17365 static void
17366f_sin(argvars, rettv)
17367 typval_T *argvars;
17368 typval_T *rettv;
17369{
17370 float_T f;
17371
17372 rettv->v_type = VAR_FLOAT;
17373 if (get_float_arg(argvars, &f) == OK)
17374 rettv->vval.v_float = sin(f);
17375 else
17376 rettv->vval.v_float = 0.0;
17377}
Bram Moolenaardb7c6862010-05-21 16:33:48 +020017378
17379/*
17380 * "sinh()" function
17381 */
17382 static void
17383f_sinh(argvars, rettv)
17384 typval_T *argvars;
17385 typval_T *rettv;
17386{
17387 float_T f;
17388
17389 rettv->v_type = VAR_FLOAT;
17390 if (get_float_arg(argvars, &f) == OK)
17391 rettv->vval.v_float = sinh(f);
17392 else
17393 rettv->vval.v_float = 0.0;
17394}
Bram Moolenaar8c8de832008-06-24 22:58:06 +000017395#endif
17396
Bram Moolenaar0d660222005-01-07 21:51:51 +000017397static int
17398#ifdef __BORLANDC__
17399 _RTLENTRYF
17400#endif
17401 item_compare __ARGS((const void *s1, const void *s2));
17402static int
17403#ifdef __BORLANDC__
17404 _RTLENTRYF
17405#endif
17406 item_compare2 __ARGS((const void *s1, const void *s2));
17407
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017408/* struct used in the array that's given to qsort() */
17409typedef struct
17410{
17411 listitem_T *item;
17412 int idx;
17413} sortItem_T;
17414
Bram Moolenaar0d660222005-01-07 21:51:51 +000017415static int item_compare_ic;
Bram Moolenaare8a34922014-06-25 17:31:09 +020017416static int item_compare_numeric;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017417static char_u *item_compare_func;
Bram Moolenaar5f894962011-06-19 02:55:37 +020017418static dict_T *item_compare_selfdict;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017419static int item_compare_func_err;
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017420static int item_compare_keep_zero;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017421static void do_sort_uniq __ARGS((typval_T *argvars, typval_T *rettv, int sort));
Bram Moolenaar0d660222005-01-07 21:51:51 +000017422#define ITEM_COMPARE_FAIL 999
17423
Bram Moolenaar071d4272004-06-13 20:20:40 +000017424/*
Bram Moolenaar327aa022014-03-25 18:24:23 +010017425 * Compare functions for f_sort() and f_uniq() below.
Bram Moolenaar071d4272004-06-13 20:20:40 +000017426 */
Bram Moolenaar0d660222005-01-07 21:51:51 +000017427 static int
17428#ifdef __BORLANDC__
17429_RTLENTRYF
17430#endif
17431item_compare(s1, s2)
17432 const void *s1;
17433 const void *s2;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017434{
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017435 sortItem_T *si1, *si2;
Bram Moolenaar1b338d22014-08-22 13:13:27 +020017436 typval_T *tv1, *tv2;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017437 char_u *p1, *p2;
Bram Moolenaar1b338d22014-08-22 13:13:27 +020017438 char_u *tofree1 = NULL, *tofree2 = NULL;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017439 int res;
17440 char_u numbuf1[NUMBUFLEN];
17441 char_u numbuf2[NUMBUFLEN];
Bram Moolenaar071d4272004-06-13 20:20:40 +000017442
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017443 si1 = (sortItem_T *)s1;
17444 si2 = (sortItem_T *)s2;
Bram Moolenaar1b338d22014-08-22 13:13:27 +020017445 tv1 = &si1->item->li_tv;
17446 tv2 = &si2->item->li_tv;
17447 /* tv2string() puts quotes around a string and allocates memory. Don't do
17448 * that for string variables. Use a single quote when comparing with a
17449 * non-string to do what the docs promise. */
17450 if (tv1->v_type == VAR_STRING)
17451 {
17452 if (tv2->v_type != VAR_STRING || item_compare_numeric)
17453 p1 = (char_u *)"'";
17454 else
17455 p1 = tv1->vval.v_string;
17456 }
17457 else
17458 p1 = tv2string(tv1, &tofree1, numbuf1, 0);
17459 if (tv2->v_type == VAR_STRING)
17460 {
17461 if (tv1->v_type != VAR_STRING || item_compare_numeric)
17462 p2 = (char_u *)"'";
17463 else
17464 p2 = tv2->vval.v_string;
17465 }
17466 else
17467 p2 = tv2string(tv2, &tofree2, numbuf2, 0);
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000017468 if (p1 == NULL)
17469 p1 = (char_u *)"";
17470 if (p2 == NULL)
17471 p2 = (char_u *)"";
Bram Moolenaare8a34922014-06-25 17:31:09 +020017472 if (!item_compare_numeric)
17473 {
17474 if (item_compare_ic)
17475 res = STRICMP(p1, p2);
17476 else
17477 res = STRCMP(p1, p2);
17478 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017479 else
Bram Moolenaare8a34922014-06-25 17:31:09 +020017480 {
17481 double n1, n2;
17482 n1 = strtod((char *)p1, (char **)&p1);
17483 n2 = strtod((char *)p2, (char **)&p2);
17484 res = n1 == n2 ? 0 : n1 > n2 ? 1 : -1;
17485 }
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017486
Bram Moolenaar1b338d22014-08-22 13:13:27 +020017487 /* When the result would be zero, compare the item indexes. Makes the
17488 * sort stable. */
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017489 if (res == 0 && !item_compare_keep_zero)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017490 res = si1->idx > si2->idx ? 1 : -1;
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017491
Bram Moolenaar0d660222005-01-07 21:51:51 +000017492 vim_free(tofree1);
17493 vim_free(tofree2);
17494 return res;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017495}
17496
17497 static int
Bram Moolenaar0d660222005-01-07 21:51:51 +000017498#ifdef __BORLANDC__
17499_RTLENTRYF
Bram Moolenaar071d4272004-06-13 20:20:40 +000017500#endif
Bram Moolenaar0d660222005-01-07 21:51:51 +000017501item_compare2(s1, s2)
17502 const void *s1;
17503 const void *s2;
17504{
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017505 sortItem_T *si1, *si2;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017506 int res;
Bram Moolenaar33570922005-01-25 22:26:29 +000017507 typval_T rettv;
Bram Moolenaareb3593b2006-04-22 22:33:57 +000017508 typval_T argv[3];
Bram Moolenaar0d660222005-01-07 21:51:51 +000017509 int dummy;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017510
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017511 /* shortcut after failure in previous call; compare all items equal */
17512 if (item_compare_func_err)
17513 return 0;
17514
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017515 si1 = (sortItem_T *)s1;
17516 si2 = (sortItem_T *)s2;
17517
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017518 /* Copy the values. This is needed to be able to set v_lock to VAR_FIXED
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000017519 * in the copy without changing the original list items. */
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017520 copy_tv(&si1->item->li_tv, &argv[0]);
17521 copy_tv(&si2->item->li_tv, &argv[1]);
Bram Moolenaar0d660222005-01-07 21:51:51 +000017522
17523 rettv.v_type = VAR_UNKNOWN; /* clear_tv() uses this */
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000017524 res = call_func(item_compare_func, (int)STRLEN(item_compare_func),
Bram Moolenaar5f894962011-06-19 02:55:37 +020017525 &rettv, 2, argv, 0L, 0L, &dummy, TRUE,
17526 item_compare_selfdict);
Bram Moolenaar0d660222005-01-07 21:51:51 +000017527 clear_tv(&argv[0]);
17528 clear_tv(&argv[1]);
17529
17530 if (res == FAIL)
17531 res = ITEM_COMPARE_FAIL;
17532 else
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017533 res = get_tv_number_chk(&rettv, &item_compare_func_err);
17534 if (item_compare_func_err)
Bram Moolenaar61c4e2c2008-08-25 02:49:18 +000017535 res = ITEM_COMPARE_FAIL; /* return value has wrong type */
Bram Moolenaar0d660222005-01-07 21:51:51 +000017536 clear_tv(&rettv);
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017537
17538 /* When the result would be zero, compare the pointers themselves. Makes
17539 * the sort stable. */
17540 if (res == 0 && !item_compare_keep_zero)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017541 res = si1->idx > si2->idx ? 1 : -1;
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017542
Bram Moolenaar0d660222005-01-07 21:51:51 +000017543 return res;
17544}
17545
17546/*
17547 * "sort({list})" function
17548 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000017549 static void
Bram Moolenaar327aa022014-03-25 18:24:23 +010017550do_sort_uniq(argvars, rettv, sort)
Bram Moolenaar33570922005-01-25 22:26:29 +000017551 typval_T *argvars;
17552 typval_T *rettv;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017553 int sort;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017554{
Bram Moolenaar33570922005-01-25 22:26:29 +000017555 list_T *l;
17556 listitem_T *li;
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017557 sortItem_T *ptrs;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017558 long len;
17559 long i;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017560
Bram Moolenaar0d660222005-01-07 21:51:51 +000017561 if (argvars[0].v_type != VAR_LIST)
Bram Moolenaar327aa022014-03-25 18:24:23 +010017562 EMSG2(_(e_listarg), sort ? "sort()" : "uniq()");
Bram Moolenaar071d4272004-06-13 20:20:40 +000017563 else
17564 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000017565 l = argvars[0].vval.v_list;
Bram Moolenaar32f649e2011-04-11 13:46:13 +020017566 if (l == NULL || tv_check_lock(l->lv_lock,
Bram Moolenaar327aa022014-03-25 18:24:23 +010017567 (char_u *)(sort ? _("sort() argument") : _("uniq() argument"))))
Bram Moolenaar0d660222005-01-07 21:51:51 +000017568 return;
17569 rettv->vval.v_list = l;
17570 rettv->v_type = VAR_LIST;
17571 ++l->lv_refcount;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017572
Bram Moolenaar0d660222005-01-07 21:51:51 +000017573 len = list_len(l);
17574 if (len <= 1)
17575 return; /* short list sorts pretty quickly */
Bram Moolenaar071d4272004-06-13 20:20:40 +000017576
Bram Moolenaar0d660222005-01-07 21:51:51 +000017577 item_compare_ic = FALSE;
Bram Moolenaare8a34922014-06-25 17:31:09 +020017578 item_compare_numeric = FALSE;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017579 item_compare_func = NULL;
Bram Moolenaar5f894962011-06-19 02:55:37 +020017580 item_compare_selfdict = NULL;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017581 if (argvars[1].v_type != VAR_UNKNOWN)
17582 {
Bram Moolenaar5f894962011-06-19 02:55:37 +020017583 /* optional second argument: {func} */
Bram Moolenaar0d660222005-01-07 21:51:51 +000017584 if (argvars[1].v_type == VAR_FUNC)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017585 item_compare_func = argvars[1].vval.v_string;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017586 else
17587 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017588 int error = FALSE;
17589
17590 i = get_tv_number_chk(&argvars[1], &error);
17591 if (error)
17592 return; /* type error; errmsg already given */
Bram Moolenaar0d660222005-01-07 21:51:51 +000017593 if (i == 1)
17594 item_compare_ic = TRUE;
17595 else
17596 item_compare_func = get_tv_string(&argvars[1]);
Bram Moolenaare8a34922014-06-25 17:31:09 +020017597 if (item_compare_func != NULL)
17598 {
17599 if (STRCMP(item_compare_func, "n") == 0)
17600 {
17601 item_compare_func = NULL;
17602 item_compare_numeric = TRUE;
17603 }
17604 else if (STRCMP(item_compare_func, "i") == 0)
17605 {
17606 item_compare_func = NULL;
17607 item_compare_ic = TRUE;
17608 }
17609 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000017610 }
Bram Moolenaar5f894962011-06-19 02:55:37 +020017611
17612 if (argvars[2].v_type != VAR_UNKNOWN)
17613 {
17614 /* optional third argument: {dict} */
17615 if (argvars[2].v_type != VAR_DICT)
17616 {
17617 EMSG(_(e_dictreq));
17618 return;
17619 }
17620 item_compare_selfdict = argvars[2].vval.v_dict;
17621 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000017622 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017623
Bram Moolenaar0d660222005-01-07 21:51:51 +000017624 /* Make an array with each entry pointing to an item in the List. */
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017625 ptrs = (sortItem_T *)alloc((int)(len * sizeof(sortItem_T)));
Bram Moolenaar0d660222005-01-07 21:51:51 +000017626 if (ptrs == NULL)
17627 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017628
Bram Moolenaar327aa022014-03-25 18:24:23 +010017629 i = 0;
17630 if (sort)
17631 {
17632 /* sort(): ptrs will be the list to sort */
17633 for (li = l->lv_first; li != NULL; li = li->li_next)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017634 {
17635 ptrs[i].item = li;
17636 ptrs[i].idx = i;
17637 ++i;
17638 }
Bram Moolenaar327aa022014-03-25 18:24:23 +010017639
17640 item_compare_func_err = FALSE;
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017641 item_compare_keep_zero = FALSE;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017642 /* test the compare function */
17643 if (item_compare_func != NULL
17644 && item_compare2((void *)&ptrs[0], (void *)&ptrs[1])
Bram Moolenaar0d660222005-01-07 21:51:51 +000017645 == ITEM_COMPARE_FAIL)
Bram Moolenaar327aa022014-03-25 18:24:23 +010017646 EMSG(_("E702: Sort compare function failed"));
17647 else
17648 {
17649 /* Sort the array with item pointers. */
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017650 qsort((void *)ptrs, (size_t)len, sizeof(sortItem_T),
Bram Moolenaar327aa022014-03-25 18:24:23 +010017651 item_compare_func == NULL ? item_compare : item_compare2);
17652
17653 if (!item_compare_func_err)
17654 {
17655 /* Clear the List and append the items in sorted order. */
17656 l->lv_first = l->lv_last = l->lv_idx_item = NULL;
17657 l->lv_len = 0;
17658 for (i = 0; i < len; ++i)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017659 list_append(l, ptrs[i].item);
Bram Moolenaar327aa022014-03-25 18:24:23 +010017660 }
17661 }
17662 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017663 else
Bram Moolenaar0d660222005-01-07 21:51:51 +000017664 {
Bram Moolenaar327aa022014-03-25 18:24:23 +010017665 int (*item_compare_func_ptr)__ARGS((const void *, const void *));
17666
17667 /* f_uniq(): ptrs will be a stack of items to remove */
17668 item_compare_func_err = FALSE;
Bram Moolenaarc35e3de2014-07-02 19:06:18 +020017669 item_compare_keep_zero = TRUE;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017670 item_compare_func_ptr = item_compare_func
17671 ? item_compare2 : item_compare;
17672
17673 for (li = l->lv_first; li != NULL && li->li_next != NULL;
17674 li = li->li_next)
17675 {
17676 if (item_compare_func_ptr((void *)&li, (void *)&li->li_next)
17677 == 0)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017678 ptrs[i++].item = li;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017679 if (item_compare_func_err)
17680 {
17681 EMSG(_("E882: Uniq compare function failed"));
17682 break;
17683 }
17684 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000017685
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017686 if (!item_compare_func_err)
17687 {
Bram Moolenaar327aa022014-03-25 18:24:23 +010017688 while (--i >= 0)
17689 {
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017690 li = ptrs[i].item->li_next;
17691 ptrs[i].item->li_next = li->li_next;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017692 if (li->li_next != NULL)
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017693 li->li_next->li_prev = ptrs[i].item;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017694 else
Bram Moolenaar6bf55482014-07-09 17:51:51 +020017695 l->lv_last = ptrs[i].item;
Bram Moolenaar327aa022014-03-25 18:24:23 +010017696 list_fix_watch(l, li);
17697 listitem_free(li);
17698 l->lv_len--;
17699 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017700 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000017701 }
17702
17703 vim_free(ptrs);
17704 }
17705}
17706
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017707/*
Bram Moolenaar327aa022014-03-25 18:24:23 +010017708 * "sort({list})" function
17709 */
17710 static void
17711f_sort(argvars, rettv)
17712 typval_T *argvars;
17713 typval_T *rettv;
17714{
17715 do_sort_uniq(argvars, rettv, TRUE);
17716}
17717
17718/*
17719 * "uniq({list})" function
17720 */
17721 static void
17722f_uniq(argvars, rettv)
17723 typval_T *argvars;
17724 typval_T *rettv;
17725{
17726 do_sort_uniq(argvars, rettv, FALSE);
17727}
17728
17729/*
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +000017730 * "soundfold({word})" function
17731 */
17732 static void
17733f_soundfold(argvars, rettv)
17734 typval_T *argvars;
17735 typval_T *rettv;
17736{
17737 char_u *s;
17738
17739 rettv->v_type = VAR_STRING;
17740 s = get_tv_string(&argvars[0]);
Bram Moolenaar3c56a962006-03-12 22:19:04 +000017741#ifdef FEAT_SPELL
Bram Moolenaar24bbcfe2005-06-28 23:32:02 +000017742 rettv->vval.v_string = eval_soundfold(s);
17743#else
17744 rettv->vval.v_string = vim_strsave(s);
17745#endif
17746}
17747
17748/*
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017749 * "spellbadword()" function
17750 */
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017751 static void
17752f_spellbadword(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000017753 typval_T *argvars UNUSED;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017754 typval_T *rettv;
17755{
Bram Moolenaar4463f292005-09-25 22:20:24 +000017756 char_u *word = (char_u *)"";
Bram Moolenaar482aaeb2005-09-29 18:26:07 +000017757 hlf_T attr = HLF_COUNT;
Bram Moolenaar1d2ba7f2006-02-14 22:29:30 +000017758 int len = 0;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017759
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017760 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar4463f292005-09-25 22:20:24 +000017761 return;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017762
Bram Moolenaar3c56a962006-03-12 22:19:04 +000017763#ifdef FEAT_SPELL
Bram Moolenaar4463f292005-09-25 22:20:24 +000017764 if (argvars[0].v_type == VAR_UNKNOWN)
17765 {
17766 /* Find the start and length of the badly spelled word. */
17767 len = spell_move_to(curwin, FORWARD, TRUE, TRUE, &attr);
17768 if (len != 0)
17769 word = ml_get_cursor();
17770 }
Bram Moolenaar860cae12010-06-05 23:22:07 +020017771 else if (curwin->w_p_spell && *curbuf->b_s.b_p_spl != NUL)
Bram Moolenaar4463f292005-09-25 22:20:24 +000017772 {
17773 char_u *str = get_tv_string_chk(&argvars[0]);
17774 int capcol = -1;
17775
17776 if (str != NULL)
17777 {
17778 /* Check the argument for spelling. */
17779 while (*str != NUL)
17780 {
Bram Moolenaar4770d092006-01-12 23:22:24 +000017781 len = spell_check(curwin, str, &attr, &capcol, FALSE);
Bram Moolenaar482aaeb2005-09-29 18:26:07 +000017782 if (attr != HLF_COUNT)
Bram Moolenaar4463f292005-09-25 22:20:24 +000017783 {
17784 word = str;
17785 break;
17786 }
17787 str += len;
17788 }
17789 }
17790 }
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017791#endif
Bram Moolenaar4463f292005-09-25 22:20:24 +000017792
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017793 list_append_string(rettv->vval.v_list, word, len);
17794 list_append_string(rettv->vval.v_list, (char_u *)(
Bram Moolenaar482aaeb2005-09-29 18:26:07 +000017795 attr == HLF_SPB ? "bad" :
17796 attr == HLF_SPR ? "rare" :
17797 attr == HLF_SPL ? "local" :
17798 attr == HLF_SPC ? "caps" :
17799 ""), -1);
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017800}
17801
17802/*
17803 * "spellsuggest()" function
17804 */
17805 static void
17806f_spellsuggest(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000017807 typval_T *argvars UNUSED;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017808 typval_T *rettv;
17809{
Bram Moolenaar3c56a962006-03-12 22:19:04 +000017810#ifdef FEAT_SPELL
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017811 char_u *str;
Bram Moolenaar69e0ff92005-09-30 21:23:56 +000017812 int typeerr = FALSE;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017813 int maxcount;
17814 garray_T ga;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017815 int i;
Bram Moolenaar69e0ff92005-09-30 21:23:56 +000017816 listitem_T *li;
17817 int need_capital = FALSE;
17818#endif
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017819
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017820 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017821 return;
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017822
Bram Moolenaar3c56a962006-03-12 22:19:04 +000017823#ifdef FEAT_SPELL
Bram Moolenaar860cae12010-06-05 23:22:07 +020017824 if (curwin->w_p_spell && *curwin->w_s->b_p_spl != NUL)
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017825 {
17826 str = get_tv_string(&argvars[0]);
17827 if (argvars[1].v_type != VAR_UNKNOWN)
17828 {
Bram Moolenaar69e0ff92005-09-30 21:23:56 +000017829 maxcount = get_tv_number_chk(&argvars[1], &typeerr);
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017830 if (maxcount <= 0)
17831 return;
Bram Moolenaar69e0ff92005-09-30 21:23:56 +000017832 if (argvars[2].v_type != VAR_UNKNOWN)
17833 {
17834 need_capital = get_tv_number_chk(&argvars[2], &typeerr);
17835 if (typeerr)
17836 return;
17837 }
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017838 }
17839 else
17840 maxcount = 25;
17841
Bram Moolenaar4770d092006-01-12 23:22:24 +000017842 spell_suggest_list(&ga, str, maxcount, need_capital, FALSE);
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017843
17844 for (i = 0; i < ga.ga_len; ++i)
17845 {
17846 str = ((char_u **)ga.ga_data)[i];
17847
17848 li = listitem_alloc();
17849 if (li == NULL)
17850 vim_free(str);
17851 else
17852 {
17853 li->li_tv.v_type = VAR_STRING;
17854 li->li_tv.v_lock = 0;
17855 li->li_tv.vval.v_string = str;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017856 list_append(rettv->vval.v_list, li);
Bram Moolenaard857f0e2005-06-21 22:37:39 +000017857 }
17858 }
17859 ga_clear(&ga);
17860 }
17861#endif
17862}
17863
Bram Moolenaar0d660222005-01-07 21:51:51 +000017864 static void
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000017865f_split(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000017866 typval_T *argvars;
17867 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017868{
17869 char_u *str;
17870 char_u *end;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017871 char_u *pat = NULL;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017872 regmatch_T regmatch;
17873 char_u patbuf[NUMBUFLEN];
17874 char_u *save_cpo;
17875 int match;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017876 colnr_T col = 0;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017877 int keepempty = FALSE;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017878 int typeerr = FALSE;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017879
17880 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
17881 save_cpo = p_cpo;
17882 p_cpo = (char_u *)"";
17883
17884 str = get_tv_string(&argvars[0]);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017885 if (argvars[1].v_type != VAR_UNKNOWN)
17886 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017887 pat = get_tv_string_buf_chk(&argvars[1], patbuf);
17888 if (pat == NULL)
17889 typeerr = TRUE;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017890 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017891 keepempty = get_tv_number_chk(&argvars[2], &typeerr);
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017892 }
17893 if (pat == NULL || *pat == NUL)
17894 pat = (char_u *)"[\\x01- ]\\+";
Bram Moolenaar0d660222005-01-07 21:51:51 +000017895
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017896 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000017897 return;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000017898 if (typeerr)
17899 return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017900
Bram Moolenaar0d660222005-01-07 21:51:51 +000017901 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
17902 if (regmatch.regprog != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000017903 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000017904 regmatch.rm_ic = FALSE;
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017905 while (*str != NUL || keepempty)
Bram Moolenaar0d660222005-01-07 21:51:51 +000017906 {
Bram Moolenaar67fe1a12005-05-22 22:12:58 +000017907 if (*str == NUL)
17908 match = FALSE; /* empty item at the end */
17909 else
17910 match = vim_regexec_nl(&regmatch, str, col);
Bram Moolenaar0d660222005-01-07 21:51:51 +000017911 if (match)
17912 end = regmatch.startp[0];
17913 else
17914 end = str + STRLEN(str);
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017915 if (keepempty || end > str || (rettv->vval.v_list->lv_len > 0
17916 && *str != NUL && match && end < regmatch.endp[0]))
Bram Moolenaar0d660222005-01-07 21:51:51 +000017917 {
Bram Moolenaareddf53b2006-02-27 00:11:10 +000017918 if (list_append_string(rettv->vval.v_list, str,
17919 (int)(end - str)) == FAIL)
Bram Moolenaar0d660222005-01-07 21:51:51 +000017920 break;
Bram Moolenaar0d660222005-01-07 21:51:51 +000017921 }
17922 if (!match)
17923 break;
17924 /* Advance to just after the match. */
17925 if (regmatch.endp[0] > str)
17926 col = 0;
17927 else
17928 {
17929 /* Don't get stuck at the same match. */
17930#ifdef FEAT_MBYTE
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000017931 col = (*mb_ptr2len)(regmatch.endp[0]);
Bram Moolenaar0d660222005-01-07 21:51:51 +000017932#else
17933 col = 1;
17934#endif
17935 }
17936 str = regmatch.endp[0];
17937 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017938
Bram Moolenaar473de612013-06-08 18:19:48 +020017939 vim_regfree(regmatch.regprog);
Bram Moolenaar071d4272004-06-13 20:20:40 +000017940 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000017941
Bram Moolenaar0d660222005-01-07 21:51:51 +000017942 p_cpo = save_cpo;
Bram Moolenaar071d4272004-06-13 20:20:40 +000017943}
17944
Bram Moolenaar8c8de832008-06-24 22:58:06 +000017945#ifdef FEAT_FLOAT
17946/*
17947 * "sqrt()" function
17948 */
17949 static void
17950f_sqrt(argvars, rettv)
17951 typval_T *argvars;
17952 typval_T *rettv;
17953{
17954 float_T f;
17955
17956 rettv->v_type = VAR_FLOAT;
17957 if (get_float_arg(argvars, &f) == OK)
17958 rettv->vval.v_float = sqrt(f);
17959 else
17960 rettv->vval.v_float = 0.0;
17961}
17962
17963/*
17964 * "str2float()" function
17965 */
17966 static void
17967f_str2float(argvars, rettv)
17968 typval_T *argvars;
17969 typval_T *rettv;
17970{
17971 char_u *p = skipwhite(get_tv_string(&argvars[0]));
17972
17973 if (*p == '+')
17974 p = skipwhite(p + 1);
17975 (void)string2float(p, &rettv->vval.v_float);
17976 rettv->v_type = VAR_FLOAT;
17977}
17978#endif
17979
Bram Moolenaar2c932302006-03-18 21:42:09 +000017980/*
17981 * "str2nr()" function
17982 */
17983 static void
17984f_str2nr(argvars, rettv)
17985 typval_T *argvars;
17986 typval_T *rettv;
17987{
17988 int base = 10;
17989 char_u *p;
17990 long n;
17991
17992 if (argvars[1].v_type != VAR_UNKNOWN)
17993 {
17994 base = get_tv_number(&argvars[1]);
17995 if (base != 8 && base != 10 && base != 16)
17996 {
17997 EMSG(_(e_invarg));
17998 return;
17999 }
18000 }
18001
18002 p = skipwhite(get_tv_string(&argvars[0]));
Bram Moolenaar8c8de832008-06-24 22:58:06 +000018003 if (*p == '+')
18004 p = skipwhite(p + 1);
Bram Moolenaar2c932302006-03-18 21:42:09 +000018005 vim_str2nr(p, NULL, NULL, base == 8 ? 2 : 0, base == 16 ? 2 : 0, &n, NULL);
18006 rettv->vval.v_number = n;
18007}
18008
Bram Moolenaar071d4272004-06-13 20:20:40 +000018009#ifdef HAVE_STRFTIME
18010/*
18011 * "strftime({format}[, {time}])" function
18012 */
18013 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018014f_strftime(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018015 typval_T *argvars;
18016 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018017{
18018 char_u result_buf[256];
18019 struct tm *curtime;
18020 time_t seconds;
18021 char_u *p;
18022
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018023 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018024
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018025 p = get_tv_string(&argvars[0]);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018026 if (argvars[1].v_type == VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000018027 seconds = time(NULL);
18028 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018029 seconds = (time_t)get_tv_number(&argvars[1]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018030 curtime = localtime(&seconds);
18031 /* MSVC returns NULL for an invalid value of seconds. */
18032 if (curtime == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018033 rettv->vval.v_string = vim_strsave((char_u *)_("(Invalid)"));
Bram Moolenaar071d4272004-06-13 20:20:40 +000018034 else
18035 {
18036# ifdef FEAT_MBYTE
18037 vimconv_T conv;
18038 char_u *enc;
18039
18040 conv.vc_type = CONV_NONE;
18041 enc = enc_locale();
18042 convert_setup(&conv, p_enc, enc);
18043 if (conv.vc_type != CONV_NONE)
18044 p = string_convert(&conv, p, NULL);
18045# endif
18046 if (p != NULL)
18047 (void)strftime((char *)result_buf, sizeof(result_buf),
18048 (char *)p, curtime);
18049 else
18050 result_buf[0] = NUL;
18051
18052# ifdef FEAT_MBYTE
18053 if (conv.vc_type != CONV_NONE)
18054 vim_free(p);
18055 convert_setup(&conv, enc, p_enc);
18056 if (conv.vc_type != CONV_NONE)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018057 rettv->vval.v_string = string_convert(&conv, result_buf, NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018058 else
18059# endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018060 rettv->vval.v_string = vim_strsave(result_buf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018061
18062# ifdef FEAT_MBYTE
18063 /* Release conversion descriptors */
18064 convert_setup(&conv, NULL, NULL);
18065 vim_free(enc);
18066# endif
18067 }
18068}
18069#endif
18070
18071/*
18072 * "stridx()" function
18073 */
18074 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018075f_stridx(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018076 typval_T *argvars;
18077 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018078{
18079 char_u buf[NUMBUFLEN];
18080 char_u *needle;
18081 char_u *haystack;
Bram Moolenaar33570922005-01-25 22:26:29 +000018082 char_u *save_haystack;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018083 char_u *pos;
Bram Moolenaar33570922005-01-25 22:26:29 +000018084 int start_idx;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018085
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018086 needle = get_tv_string_chk(&argvars[1]);
18087 save_haystack = haystack = get_tv_string_buf_chk(&argvars[0], buf);
Bram Moolenaar33570922005-01-25 22:26:29 +000018088 rettv->vval.v_number = -1;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018089 if (needle == NULL || haystack == NULL)
18090 return; /* type error; errmsg already given */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018091
Bram Moolenaar33570922005-01-25 22:26:29 +000018092 if (argvars[2].v_type != VAR_UNKNOWN)
18093 {
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018094 int error = FALSE;
18095
18096 start_idx = get_tv_number_chk(&argvars[2], &error);
18097 if (error || start_idx >= (int)STRLEN(haystack))
Bram Moolenaar33570922005-01-25 22:26:29 +000018098 return;
Bram Moolenaar532c7802005-01-27 14:44:31 +000018099 if (start_idx >= 0)
18100 haystack += start_idx;
Bram Moolenaar33570922005-01-25 22:26:29 +000018101 }
18102
18103 pos = (char_u *)strstr((char *)haystack, (char *)needle);
18104 if (pos != NULL)
18105 rettv->vval.v_number = (varnumber_T)(pos - save_haystack);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018106}
18107
18108/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018109 * "string()" function
18110 */
18111 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018112f_string(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018113 typval_T *argvars;
18114 typval_T *rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018115{
18116 char_u *tofree;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000018117 char_u numbuf[NUMBUFLEN];
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018118
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018119 rettv->v_type = VAR_STRING;
Bram Moolenaarb71eaae2006-01-20 23:10:18 +000018120 rettv->vval.v_string = tv2string(&argvars[0], &tofree, numbuf, 0);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000018121 /* Make a copy if we have a value but it's not in allocated memory. */
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000018122 if (rettv->vval.v_string != NULL && tofree == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018123 rettv->vval.v_string = vim_strsave(rettv->vval.v_string);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018124}
18125
18126/*
18127 * "strlen()" function
18128 */
18129 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018130f_strlen(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018131 typval_T *argvars;
18132 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018133{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018134 rettv->vval.v_number = (varnumber_T)(STRLEN(
18135 get_tv_string(&argvars[0])));
Bram Moolenaar071d4272004-06-13 20:20:40 +000018136}
18137
18138/*
Bram Moolenaar72597a52010-07-18 15:31:08 +020018139 * "strchars()" function
18140 */
18141 static void
18142f_strchars(argvars, rettv)
18143 typval_T *argvars;
18144 typval_T *rettv;
18145{
18146 char_u *s = get_tv_string(&argvars[0]);
18147#ifdef FEAT_MBYTE
18148 varnumber_T len = 0;
18149
18150 while (*s != NUL)
18151 {
18152 mb_cptr2char_adv(&s);
18153 ++len;
18154 }
18155 rettv->vval.v_number = len;
18156#else
18157 rettv->vval.v_number = (varnumber_T)(STRLEN(s));
18158#endif
18159}
18160
18161/*
Bram Moolenaardc536092010-07-18 15:45:49 +020018162 * "strdisplaywidth()" function
18163 */
18164 static void
18165f_strdisplaywidth(argvars, rettv)
18166 typval_T *argvars;
18167 typval_T *rettv;
18168{
18169 char_u *s = get_tv_string(&argvars[0]);
18170 int col = 0;
18171
18172 if (argvars[1].v_type != VAR_UNKNOWN)
18173 col = get_tv_number(&argvars[1]);
18174
Bram Moolenaar8a09b982010-07-22 22:20:57 +020018175 rettv->vval.v_number = (varnumber_T)(linetabsize_col(col, s) - col);
Bram Moolenaardc536092010-07-18 15:45:49 +020018176}
18177
18178/*
Bram Moolenaar72597a52010-07-18 15:31:08 +020018179 * "strwidth()" function
18180 */
18181 static void
18182f_strwidth(argvars, rettv)
18183 typval_T *argvars;
18184 typval_T *rettv;
18185{
18186 char_u *s = get_tv_string(&argvars[0]);
18187
18188 rettv->vval.v_number = (varnumber_T)(
18189#ifdef FEAT_MBYTE
18190 mb_string2cells(s, -1)
18191#else
18192 STRLEN(s)
18193#endif
18194 );
18195}
18196
18197/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000018198 * "strpart()" function
18199 */
18200 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018201f_strpart(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018202 typval_T *argvars;
18203 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018204{
18205 char_u *p;
18206 int n;
18207 int len;
18208 int slen;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018209 int error = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018210
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018211 p = get_tv_string(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018212 slen = (int)STRLEN(p);
18213
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018214 n = get_tv_number_chk(&argvars[1], &error);
18215 if (error)
18216 len = 0;
18217 else if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018218 len = get_tv_number(&argvars[2]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018219 else
18220 len = slen - n; /* default len: all bytes that are available. */
18221
18222 /*
18223 * Only return the overlap between the specified part and the actual
18224 * string.
18225 */
18226 if (n < 0)
18227 {
18228 len += n;
18229 n = 0;
18230 }
18231 else if (n > slen)
18232 n = slen;
18233 if (len < 0)
18234 len = 0;
18235 else if (n + len > slen)
18236 len = slen - n;
18237
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018238 rettv->v_type = VAR_STRING;
18239 rettv->vval.v_string = vim_strnsave(p + n, len);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018240}
18241
18242/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000018243 * "strridx()" function
18244 */
18245 static void
18246f_strridx(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018247 typval_T *argvars;
18248 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000018249{
18250 char_u buf[NUMBUFLEN];
18251 char_u *needle;
18252 char_u *haystack;
18253 char_u *rest;
18254 char_u *lastmatch = NULL;
Bram Moolenaar532c7802005-01-27 14:44:31 +000018255 int haystack_len, end_idx;
Bram Moolenaar0d660222005-01-07 21:51:51 +000018256
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018257 needle = get_tv_string_chk(&argvars[1]);
18258 haystack = get_tv_string_buf_chk(&argvars[0], buf);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018259
18260 rettv->vval.v_number = -1;
18261 if (needle == NULL || haystack == NULL)
18262 return; /* type error; errmsg already given */
Bram Moolenaareb3593b2006-04-22 22:33:57 +000018263
18264 haystack_len = (int)STRLEN(haystack);
Bram Moolenaar05159a02005-02-26 23:04:13 +000018265 if (argvars[2].v_type != VAR_UNKNOWN)
18266 {
18267 /* Third argument: upper limit for index */
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018268 end_idx = get_tv_number_chk(&argvars[2], NULL);
Bram Moolenaar05159a02005-02-26 23:04:13 +000018269 if (end_idx < 0)
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018270 return; /* can never find a match */
Bram Moolenaar05159a02005-02-26 23:04:13 +000018271 }
18272 else
18273 end_idx = haystack_len;
18274
Bram Moolenaar0d660222005-01-07 21:51:51 +000018275 if (*needle == NUL)
Bram Moolenaar05159a02005-02-26 23:04:13 +000018276 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000018277 /* Empty string matches past the end. */
Bram Moolenaar05159a02005-02-26 23:04:13 +000018278 lastmatch = haystack + end_idx;
18279 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000018280 else
Bram Moolenaar532c7802005-01-27 14:44:31 +000018281 {
Bram Moolenaar0d660222005-01-07 21:51:51 +000018282 for (rest = haystack; *rest != '\0'; ++rest)
18283 {
18284 rest = (char_u *)strstr((char *)rest, (char *)needle);
Bram Moolenaar532c7802005-01-27 14:44:31 +000018285 if (rest == NULL || rest > haystack + end_idx)
Bram Moolenaar0d660222005-01-07 21:51:51 +000018286 break;
18287 lastmatch = rest;
18288 }
Bram Moolenaar532c7802005-01-27 14:44:31 +000018289 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000018290
18291 if (lastmatch == NULL)
18292 rettv->vval.v_number = -1;
18293 else
18294 rettv->vval.v_number = (varnumber_T)(lastmatch - haystack);
18295}
18296
18297/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000018298 * "strtrans()" function
18299 */
18300 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018301f_strtrans(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018302 typval_T *argvars;
18303 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018304{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018305 rettv->v_type = VAR_STRING;
18306 rettv->vval.v_string = transstr(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000018307}
18308
18309/*
Bram Moolenaar0d660222005-01-07 21:51:51 +000018310 * "submatch()" function
18311 */
18312 static void
18313f_submatch(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018314 typval_T *argvars;
18315 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000018316{
Bram Moolenaar41571762014-04-02 19:00:58 +020018317 int error = FALSE;
Bram Moolenaar41571762014-04-02 19:00:58 +020018318 int no;
18319 int retList = 0;
18320
18321 no = (int)get_tv_number_chk(&argvars[0], &error);
18322 if (error)
18323 return;
18324 error = FALSE;
18325 if (argvars[1].v_type != VAR_UNKNOWN)
18326 retList = get_tv_number_chk(&argvars[1], &error);
18327 if (error)
18328 return;
18329
18330 if (retList == 0)
18331 {
18332 rettv->v_type = VAR_STRING;
18333 rettv->vval.v_string = reg_submatch(no);
18334 }
18335 else
18336 {
18337 rettv->v_type = VAR_LIST;
18338 rettv->vval.v_list = reg_submatch_list(no);
18339 }
Bram Moolenaar0d660222005-01-07 21:51:51 +000018340}
18341
18342/*
18343 * "substitute()" function
18344 */
18345 static void
18346f_substitute(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000018347 typval_T *argvars;
18348 typval_T *rettv;
Bram Moolenaar0d660222005-01-07 21:51:51 +000018349{
18350 char_u patbuf[NUMBUFLEN];
18351 char_u subbuf[NUMBUFLEN];
18352 char_u flagsbuf[NUMBUFLEN];
18353
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018354 char_u *str = get_tv_string_chk(&argvars[0]);
18355 char_u *pat = get_tv_string_buf_chk(&argvars[1], patbuf);
18356 char_u *sub = get_tv_string_buf_chk(&argvars[2], subbuf);
18357 char_u *flg = get_tv_string_buf_chk(&argvars[3], flagsbuf);
18358
Bram Moolenaar0d660222005-01-07 21:51:51 +000018359 rettv->v_type = VAR_STRING;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018360 if (str == NULL || pat == NULL || sub == NULL || flg == NULL)
18361 rettv->vval.v_string = NULL;
18362 else
18363 rettv->vval.v_string = do_string_sub(str, pat, sub, flg);
Bram Moolenaar0d660222005-01-07 21:51:51 +000018364}
18365
18366/*
Bram Moolenaar54ff3412005-04-20 19:48:33 +000018367 * "synID(lnum, col, trans)" function
Bram Moolenaar071d4272004-06-13 20:20:40 +000018368 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018369 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018370f_synID(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018371 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000018372 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018373{
18374 int id = 0;
18375#ifdef FEAT_SYN_HL
Bram Moolenaar54ff3412005-04-20 19:48:33 +000018376 long lnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018377 long col;
18378 int trans;
Bram Moolenaar92124a32005-06-17 22:03:40 +000018379 int transerr = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018380
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018381 lnum = get_tv_lnum(argvars); /* -1 on type error */
18382 col = get_tv_number(&argvars[1]) - 1; /* -1 on type error */
18383 trans = get_tv_number_chk(&argvars[2], &transerr);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018384
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018385 if (!transerr && lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
Bram Moolenaar54ff3412005-04-20 19:48:33 +000018386 && col >= 0 && col < (long)STRLEN(ml_get(lnum)))
Bram Moolenaar56cefaf2008-01-12 15:47:10 +000018387 id = syn_get_id(curwin, lnum, (colnr_T)col, trans, NULL, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018388#endif
18389
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018390 rettv->vval.v_number = id;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018391}
18392
18393/*
18394 * "synIDattr(id, what [, mode])" function
18395 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018396 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018397f_synIDattr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018398 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000018399 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018400{
18401 char_u *p = NULL;
18402#ifdef FEAT_SYN_HL
18403 int id;
18404 char_u *what;
18405 char_u *mode;
18406 char_u modebuf[NUMBUFLEN];
18407 int modec;
18408
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018409 id = get_tv_number(&argvars[0]);
18410 what = get_tv_string(&argvars[1]);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018411 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000018412 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018413 mode = get_tv_string_buf(&argvars[2], modebuf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018414 modec = TOLOWER_ASC(mode[0]);
Bram Moolenaar61623362010-07-14 22:04:22 +020018415 if (modec != 't' && modec != 'c' && modec != 'g')
Bram Moolenaar071d4272004-06-13 20:20:40 +000018416 modec = 0; /* replace invalid with current */
18417 }
18418 else
18419 {
18420#ifdef FEAT_GUI
18421 if (gui.in_use)
18422 modec = 'g';
18423 else
18424#endif
18425 if (t_colors > 1)
18426 modec = 'c';
18427 else
18428 modec = 't';
18429 }
18430
18431
18432 switch (TOLOWER_ASC(what[0]))
18433 {
18434 case 'b':
18435 if (TOLOWER_ASC(what[1]) == 'g') /* bg[#] */
18436 p = highlight_color(id, what, modec);
18437 else /* bold */
18438 p = highlight_has_attr(id, HL_BOLD, modec);
18439 break;
18440
Bram Moolenaar12682fd2010-03-10 13:43:49 +010018441 case 'f': /* fg[#] or font */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018442 p = highlight_color(id, what, modec);
18443 break;
18444
18445 case 'i':
18446 if (TOLOWER_ASC(what[1]) == 'n') /* inverse */
18447 p = highlight_has_attr(id, HL_INVERSE, modec);
18448 else /* italic */
18449 p = highlight_has_attr(id, HL_ITALIC, modec);
18450 break;
18451
18452 case 'n': /* name */
18453 p = get_highlight_name(NULL, id - 1);
18454 break;
18455
18456 case 'r': /* reverse */
18457 p = highlight_has_attr(id, HL_INVERSE, modec);
18458 break;
18459
Bram Moolenaar6f507d62008-11-28 10:16:05 +000018460 case 's':
18461 if (TOLOWER_ASC(what[1]) == 'p') /* sp[#] */
18462 p = highlight_color(id, what, modec);
18463 else /* standout */
18464 p = highlight_has_attr(id, HL_STANDOUT, modec);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018465 break;
18466
Bram Moolenaar5b743bf2005-03-15 22:50:43 +000018467 case 'u':
18468 if (STRLEN(what) <= 5 || TOLOWER_ASC(what[5]) != 'c')
18469 /* underline */
18470 p = highlight_has_attr(id, HL_UNDERLINE, modec);
18471 else
18472 /* undercurl */
18473 p = highlight_has_attr(id, HL_UNDERCURL, modec);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018474 break;
18475 }
18476
18477 if (p != NULL)
18478 p = vim_strsave(p);
18479#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018480 rettv->v_type = VAR_STRING;
18481 rettv->vval.v_string = p;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018482}
18483
18484/*
18485 * "synIDtrans(id)" function
18486 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018487 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018488f_synIDtrans(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018489 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000018490 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018491{
18492 int id;
18493
18494#ifdef FEAT_SYN_HL
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018495 id = get_tv_number(&argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018496
18497 if (id > 0)
18498 id = syn_get_final_id(id);
18499 else
18500#endif
18501 id = 0;
18502
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018503 rettv->vval.v_number = id;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018504}
18505
18506/*
Bram Moolenaar7510fe72010-07-25 12:46:44 +020018507 * "synconcealed(lnum, col)" function
18508 */
18509 static void
18510f_synconcealed(argvars, rettv)
18511 typval_T *argvars UNUSED;
18512 typval_T *rettv;
18513{
18514#if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
18515 long lnum;
18516 long col;
18517 int syntax_flags = 0;
18518 int cchar;
18519 int matchid = 0;
18520 char_u str[NUMBUFLEN];
18521#endif
18522
18523 rettv->v_type = VAR_LIST;
18524 rettv->vval.v_list = NULL;
18525
18526#if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
18527 lnum = get_tv_lnum(argvars); /* -1 on type error */
18528 col = get_tv_number(&argvars[1]) - 1; /* -1 on type error */
18529
18530 vim_memset(str, NUL, sizeof(str));
18531
18532 if (rettv_list_alloc(rettv) != FAIL)
18533 {
18534 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
18535 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
18536 && curwin->w_p_cole > 0)
18537 {
18538 (void)syn_get_id(curwin, lnum, col, FALSE, NULL, FALSE);
18539 syntax_flags = get_syntax_info(&matchid);
18540
18541 /* get the conceal character */
18542 if ((syntax_flags & HL_CONCEAL) && curwin->w_p_cole < 3)
18543 {
18544 cchar = syn_get_sub_char();
18545 if (cchar == NUL && curwin->w_p_cole == 1 && lcs_conceal != NUL)
18546 cchar = lcs_conceal;
18547 if (cchar != NUL)
18548 {
18549# ifdef FEAT_MBYTE
18550 if (has_mbyte)
18551 (*mb_char2bytes)(cchar, str);
18552 else
18553# endif
18554 str[0] = cchar;
18555 }
18556 }
18557 }
18558
18559 list_append_number(rettv->vval.v_list,
18560 (syntax_flags & HL_CONCEAL) != 0);
18561 /* -1 to auto-determine strlen */
18562 list_append_string(rettv->vval.v_list, str, -1);
18563 list_append_number(rettv->vval.v_list, matchid);
18564 }
18565#endif
18566}
18567
18568/*
Bram Moolenaar9d188ab2008-01-10 21:24:39 +000018569 * "synstack(lnum, col)" function
18570 */
Bram Moolenaar9d188ab2008-01-10 21:24:39 +000018571 static void
18572f_synstack(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018573 typval_T *argvars UNUSED;
Bram Moolenaar9d188ab2008-01-10 21:24:39 +000018574 typval_T *rettv;
18575{
18576#ifdef FEAT_SYN_HL
18577 long lnum;
18578 long col;
18579 int i;
18580 int id;
18581#endif
18582
18583 rettv->v_type = VAR_LIST;
18584 rettv->vval.v_list = NULL;
18585
18586#ifdef FEAT_SYN_HL
18587 lnum = get_tv_lnum(argvars); /* -1 on type error */
18588 col = get_tv_number(&argvars[1]) - 1; /* -1 on type error */
18589
18590 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
Bram Moolenaard04b7502010-07-08 22:27:55 +020018591 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
Bram Moolenaar9d188ab2008-01-10 21:24:39 +000018592 && rettv_list_alloc(rettv) != FAIL)
18593 {
Bram Moolenaar56cefaf2008-01-12 15:47:10 +000018594 (void)syn_get_id(curwin, lnum, (colnr_T)col, FALSE, NULL, TRUE);
Bram Moolenaar9d188ab2008-01-10 21:24:39 +000018595 for (i = 0; ; ++i)
18596 {
18597 id = syn_get_stack_item(i);
18598 if (id < 0)
18599 break;
18600 if (list_append_number(rettv->vval.v_list, id) == FAIL)
18601 break;
18602 }
18603 }
18604#endif
18605}
18606
Bram Moolenaar071d4272004-06-13 20:20:40 +000018607 static void
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018608get_cmd_output_as_rettv(argvars, rettv, retlist)
Bram Moolenaar33570922005-01-25 22:26:29 +000018609 typval_T *argvars;
18610 typval_T *rettv;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018611 int retlist;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018612{
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018613 char_u *res = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018614 char_u *p;
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018615 char_u *infile = NULL;
18616 char_u buf[NUMBUFLEN];
18617 int err = FALSE;
18618 FILE *fd;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018619 list_T *list = NULL;
Bram Moolenaar52a72462014-08-29 15:53:52 +020018620 int flags = SHELL_SILENT;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018621
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018622 rettv->v_type = VAR_STRING;
18623 rettv->vval.v_string = NULL;
Bram Moolenaard9fe7c42007-04-29 11:53:56 +000018624 if (check_restricted() || check_secure())
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018625 goto errret;
Bram Moolenaard9fe7c42007-04-29 11:53:56 +000018626
Bram Moolenaar49cd9572005-01-03 21:06:01 +000018627 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018628 {
18629 /*
18630 * Write the string to a temp file, to be used for input of the shell
18631 * command.
18632 */
18633 if ((infile = vim_tempname('i')) == NULL)
18634 {
18635 EMSG(_(e_notmp));
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018636 goto errret;
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018637 }
18638
18639 fd = mch_fopen((char *)infile, WRITEBIN);
18640 if (fd == NULL)
18641 {
18642 EMSG2(_(e_notopen), infile);
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018643 goto errret;
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018644 }
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018645 if (argvars[1].v_type == VAR_LIST)
Bram Moolenaareb3593b2006-04-22 22:33:57 +000018646 {
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018647 if (write_list(fd, argvars[1].vval.v_list, TRUE) == FAIL)
18648 err = TRUE;
Bram Moolenaareb3593b2006-04-22 22:33:57 +000018649 }
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018650 else
18651 {
Bram Moolenaar1ecfd9c2014-09-19 20:45:23 +020018652 size_t len;
18653
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018654 p = get_tv_string_buf_chk(&argvars[1], buf);
18655 if (p == NULL)
18656 {
18657 fclose(fd);
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018658 goto errret; /* type error; errmsg already given */
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018659 }
Bram Moolenaar1ecfd9c2014-09-19 20:45:23 +020018660 len = STRLEN(p);
18661 if (len > 0 && fwrite(p, len, 1, fd) != 1)
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020018662 err = TRUE;
18663 }
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018664 if (fclose(fd) != 0)
18665 err = TRUE;
18666 if (err)
18667 {
18668 EMSG(_("E677: Error writing temp file"));
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018669 goto errret;
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018670 }
18671 }
18672
Bram Moolenaar52a72462014-08-29 15:53:52 +020018673 /* Omit SHELL_COOKED when invoked with ":silent". Avoids that the shell
18674 * echoes typeahead, that messes up the display. */
18675 if (!msg_silent)
18676 flags += SHELL_COOKED;
18677
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018678 if (retlist)
Bram Moolenaar071d4272004-06-13 20:20:40 +000018679 {
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018680 int len;
18681 listitem_T *li;
18682 char_u *s = NULL;
18683 char_u *start;
18684 char_u *end;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018685 int i;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018686
Bram Moolenaar52a72462014-08-29 15:53:52 +020018687 res = get_cmd_output(get_tv_string(&argvars[0]), infile, flags, &len);
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018688 if (res == NULL)
18689 goto errret;
18690
18691 list = list_alloc();
18692 if (list == NULL)
18693 goto errret;
18694
18695 for (i = 0; i < len; ++i)
Bram Moolenaar071d4272004-06-13 20:20:40 +000018696 {
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018697 start = res + i;
Bram Moolenaarb21a29b2014-04-11 10:22:53 +020018698 while (i < len && res[i] != NL)
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018699 ++i;
Bram Moolenaarb21a29b2014-04-11 10:22:53 +020018700 end = res + i;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018701
Bram Moolenaarb21a29b2014-04-11 10:22:53 +020018702 s = alloc((unsigned)(end - start + 1));
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018703 if (s == NULL)
18704 goto errret;
18705
Bram Moolenaarb21a29b2014-04-11 10:22:53 +020018706 for (p = s; start < end; ++p, ++start)
18707 *p = *start == NUL ? NL : *start;
18708 *p = NUL;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018709
18710 li = listitem_alloc();
18711 if (li == NULL)
18712 {
18713 vim_free(s);
18714 goto errret;
18715 }
18716 li->li_tv.v_type = VAR_STRING;
Bram Moolenaar9a492d42015-01-27 13:49:31 +010018717 li->li_tv.v_lock = 0;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018718 li->li_tv.vval.v_string = s;
18719 list_append(list, li);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018720 }
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018721
Bram Moolenaarb21a29b2014-04-11 10:22:53 +020018722 ++list->lv_refcount;
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018723 rettv->v_type = VAR_LIST;
18724 rettv->vval.v_list = list;
18725 list = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018726 }
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018727 else
18728 {
Bram Moolenaar52a72462014-08-29 15:53:52 +020018729 res = get_cmd_output(get_tv_string(&argvars[0]), infile, flags, NULL);
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018730#ifdef USE_CR
18731 /* translate <CR> into <NL> */
18732 if (res != NULL)
18733 {
18734 char_u *s;
18735
18736 for (s = res; *s; ++s)
18737 {
18738 if (*s == CAR)
18739 *s = NL;
18740 }
18741 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000018742#else
18743# ifdef USE_CRNL
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018744 /* translate <CR><NL> into <NL> */
18745 if (res != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000018746 {
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018747 char_u *s, *d;
18748
18749 d = res;
18750 for (s = res; *s; ++s)
18751 {
18752 if (s[0] == CAR && s[1] == NL)
18753 ++s;
18754 *d++ = *s;
18755 }
18756 *d = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018757 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000018758# endif
18759#endif
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018760 rettv->vval.v_string = res;
18761 res = NULL;
18762 }
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018763
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018764errret:
Bram Moolenaarc0197e22004-09-13 20:26:32 +000018765 if (infile != NULL)
18766 {
18767 mch_remove(infile);
18768 vim_free(infile);
18769 }
Bram Moolenaar39c29ed2014-04-05 19:44:40 +020018770 if (res != NULL)
18771 vim_free(res);
18772 if (list != NULL)
18773 list_free(list, TRUE);
18774}
18775
18776/*
18777 * "system()" function
18778 */
18779 static void
18780f_system(argvars, rettv)
18781 typval_T *argvars;
18782 typval_T *rettv;
18783{
18784 get_cmd_output_as_rettv(argvars, rettv, FALSE);
18785}
18786
18787/*
18788 * "systemlist()" function
18789 */
18790 static void
18791f_systemlist(argvars, rettv)
18792 typval_T *argvars;
18793 typval_T *rettv;
18794{
18795 get_cmd_output_as_rettv(argvars, rettv, TRUE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018796}
18797
18798/*
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018799 * "tabpagebuflist()" function
18800 */
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018801 static void
18802f_tabpagebuflist(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018803 typval_T *argvars UNUSED;
18804 typval_T *rettv UNUSED;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018805{
Bram Moolenaar798b30b2009-04-22 10:56:16 +000018806#ifdef FEAT_WINDOWS
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018807 tabpage_T *tp;
18808 win_T *wp = NULL;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018809
18810 if (argvars[0].v_type == VAR_UNKNOWN)
18811 wp = firstwin;
18812 else
18813 {
18814 tp = find_tabpage((int)get_tv_number(&argvars[0]));
18815 if (tp != NULL)
Bram Moolenaar238a5642006-02-21 22:12:05 +000018816 wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018817 }
Bram Moolenaar798b30b2009-04-22 10:56:16 +000018818 if (wp != NULL && rettv_list_alloc(rettv) != FAIL)
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018819 {
Bram Moolenaar798b30b2009-04-22 10:56:16 +000018820 for (; wp != NULL; wp = wp->w_next)
18821 if (list_append_number(rettv->vval.v_list,
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018822 wp->w_buffer->b_fnum) == FAIL)
Bram Moolenaar798b30b2009-04-22 10:56:16 +000018823 break;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018824 }
18825#endif
18826}
18827
18828
18829/*
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018830 * "tabpagenr()" function
18831 */
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018832 static void
18833f_tabpagenr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018834 typval_T *argvars UNUSED;
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018835 typval_T *rettv;
18836{
18837 int nr = 1;
18838#ifdef FEAT_WINDOWS
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018839 char_u *arg;
18840
18841 if (argvars[0].v_type != VAR_UNKNOWN)
18842 {
18843 arg = get_tv_string_chk(&argvars[0]);
18844 nr = 0;
18845 if (arg != NULL)
18846 {
18847 if (STRCMP(arg, "$") == 0)
Bram Moolenaara5621492006-02-25 21:55:24 +000018848 nr = tabpage_index(NULL) - 1;
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018849 else
18850 EMSG2(_(e_invexpr2), arg);
18851 }
18852 }
18853 else
Bram Moolenaar32466aa2006-02-24 23:53:04 +000018854 nr = tabpage_index(curtab);
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018855#endif
18856 rettv->vval.v_number = nr;
18857}
18858
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018859
18860#ifdef FEAT_WINDOWS
18861static int get_winnr __ARGS((tabpage_T *tp, typval_T *argvar));
18862
18863/*
18864 * Common code for tabpagewinnr() and winnr().
18865 */
18866 static int
18867get_winnr(tp, argvar)
18868 tabpage_T *tp;
18869 typval_T *argvar;
18870{
18871 win_T *twin;
18872 int nr = 1;
18873 win_T *wp;
18874 char_u *arg;
18875
18876 twin = (tp == curtab) ? curwin : tp->tp_curwin;
18877 if (argvar->v_type != VAR_UNKNOWN)
18878 {
18879 arg = get_tv_string_chk(argvar);
18880 if (arg == NULL)
18881 nr = 0; /* type error; errmsg already given */
18882 else if (STRCMP(arg, "$") == 0)
18883 twin = (tp == curtab) ? lastwin : tp->tp_lastwin;
18884 else if (STRCMP(arg, "#") == 0)
18885 {
18886 twin = (tp == curtab) ? prevwin : tp->tp_prevwin;
18887 if (twin == NULL)
18888 nr = 0;
18889 }
18890 else
18891 {
18892 EMSG2(_(e_invexpr2), arg);
18893 nr = 0;
18894 }
18895 }
18896
18897 if (nr > 0)
18898 for (wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
18899 wp != twin; wp = wp->w_next)
Bram Moolenaar4940e3f2007-03-25 15:49:08 +000018900 {
18901 if (wp == NULL)
18902 {
18903 /* didn't find it in this tabpage */
18904 nr = 0;
18905 break;
18906 }
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018907 ++nr;
Bram Moolenaar4940e3f2007-03-25 15:49:08 +000018908 }
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018909 return nr;
18910}
18911#endif
18912
18913/*
18914 * "tabpagewinnr()" function
18915 */
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018916 static void
18917f_tabpagewinnr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018918 typval_T *argvars UNUSED;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000018919 typval_T *rettv;
18920{
18921 int nr = 1;
18922#ifdef FEAT_WINDOWS
18923 tabpage_T *tp;
18924
18925 tp = find_tabpage((int)get_tv_number(&argvars[0]));
18926 if (tp == NULL)
18927 nr = 0;
18928 else
18929 nr = get_winnr(tp, &argvars[1]);
18930#endif
18931 rettv->vval.v_number = nr;
18932}
18933
18934
Bram Moolenaar7e8fd632006-02-18 22:14:51 +000018935/*
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018936 * "tagfiles()" function
18937 */
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018938 static void
18939f_tagfiles(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018940 typval_T *argvars UNUSED;
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018941 typval_T *rettv;
18942{
Bram Moolenaard9462e32011-04-11 21:35:11 +020018943 char_u *fname;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018944 tagname_T tn;
18945 int first;
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018946
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018947 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018948 return;
Bram Moolenaard9462e32011-04-11 21:35:11 +020018949 fname = alloc(MAXPATHL);
18950 if (fname == NULL)
18951 return;
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018952
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018953 for (first = TRUE; ; first = FALSE)
18954 if (get_tagfname(&tn, first, fname) == FAIL
18955 || list_append_string(rettv->vval.v_list, fname, -1) == FAIL)
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018956 break;
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018957 tagname_free(&tn);
Bram Moolenaard9462e32011-04-11 21:35:11 +020018958 vim_free(fname);
Bram Moolenaard43b6cf2005-09-09 19:53:42 +000018959}
18960
18961/*
Bram Moolenaare2ac10d2005-03-07 23:26:06 +000018962 * "taglist()" function
Bram Moolenaar19a09a12005-03-04 23:39:37 +000018963 */
18964 static void
18965f_taglist(argvars, rettv)
18966 typval_T *argvars;
18967 typval_T *rettv;
18968{
18969 char_u *tag_pattern;
Bram Moolenaar19a09a12005-03-04 23:39:37 +000018970
18971 tag_pattern = get_tv_string(&argvars[0]);
18972
18973 rettv->vval.v_number = FALSE;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000018974 if (*tag_pattern == NUL)
18975 return;
Bram Moolenaar19a09a12005-03-04 23:39:37 +000018976
Bram Moolenaareddf53b2006-02-27 00:11:10 +000018977 if (rettv_list_alloc(rettv) == OK)
18978 (void)get_tags(rettv->vval.v_list, tag_pattern);
Bram Moolenaar19a09a12005-03-04 23:39:37 +000018979}
18980
18981/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000018982 * "tempname()" function
18983 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000018984 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018985f_tempname(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000018986 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000018987 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000018988{
18989 static int x = 'A';
18990
Bram Moolenaarc70646c2005-01-04 21:52:38 +000018991 rettv->v_type = VAR_STRING;
18992 rettv->vval.v_string = vim_tempname(x);
Bram Moolenaar071d4272004-06-13 20:20:40 +000018993
18994 /* Advance 'x' to use A-Z and 0-9, so that there are at least 34 different
18995 * names. Skip 'I' and 'O', they are used for shell redirection. */
18996 do
18997 {
18998 if (x == 'Z')
18999 x = '0';
19000 else if (x == '9')
19001 x = 'A';
19002 else
19003 {
19004#ifdef EBCDIC
19005 if (x == 'I')
19006 x = 'J';
19007 else if (x == 'R')
19008 x = 'S';
19009 else
19010#endif
19011 ++x;
19012 }
19013 } while (x == 'I' || x == 'O');
19014}
19015
19016/*
Bram Moolenaard52d9742005-08-21 22:20:28 +000019017 * "test(list)" function: Just checking the walls...
19018 */
Bram Moolenaard52d9742005-08-21 22:20:28 +000019019 static void
19020f_test(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019021 typval_T *argvars UNUSED;
19022 typval_T *rettv UNUSED;
Bram Moolenaard52d9742005-08-21 22:20:28 +000019023{
19024 /* Used for unit testing. Change the code below to your liking. */
19025#if 0
19026 listitem_T *li;
19027 list_T *l;
19028 char_u *bad, *good;
19029
19030 if (argvars[0].v_type != VAR_LIST)
19031 return;
19032 l = argvars[0].vval.v_list;
19033 if (l == NULL)
19034 return;
19035 li = l->lv_first;
19036 if (li == NULL)
19037 return;
19038 bad = get_tv_string(&li->li_tv);
19039 li = li->li_next;
19040 if (li == NULL)
19041 return;
19042 good = get_tv_string(&li->li_tv);
19043 rettv->vval.v_number = test_edit_score(bad, good);
19044#endif
19045}
19046
Bram Moolenaardb7c6862010-05-21 16:33:48 +020019047#ifdef FEAT_FLOAT
19048/*
19049 * "tan()" function
19050 */
19051 static void
19052f_tan(argvars, rettv)
19053 typval_T *argvars;
19054 typval_T *rettv;
19055{
19056 float_T f;
19057
19058 rettv->v_type = VAR_FLOAT;
19059 if (get_float_arg(argvars, &f) == OK)
19060 rettv->vval.v_float = tan(f);
19061 else
19062 rettv->vval.v_float = 0.0;
19063}
19064
19065/*
19066 * "tanh()" function
19067 */
19068 static void
19069f_tanh(argvars, rettv)
19070 typval_T *argvars;
19071 typval_T *rettv;
19072{
19073 float_T f;
19074
19075 rettv->v_type = VAR_FLOAT;
19076 if (get_float_arg(argvars, &f) == OK)
19077 rettv->vval.v_float = tanh(f);
19078 else
19079 rettv->vval.v_float = 0.0;
19080}
19081#endif
19082
Bram Moolenaard52d9742005-08-21 22:20:28 +000019083/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019084 * "tolower(string)" function
19085 */
19086 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019087f_tolower(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019088 typval_T *argvars;
19089 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019090{
19091 char_u *p;
19092
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019093 p = vim_strsave(get_tv_string(&argvars[0]));
19094 rettv->v_type = VAR_STRING;
19095 rettv->vval.v_string = p;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019096
19097 if (p != NULL)
19098 while (*p != NUL)
19099 {
19100#ifdef FEAT_MBYTE
19101 int l;
19102
19103 if (enc_utf8)
19104 {
19105 int c, lc;
19106
19107 c = utf_ptr2char(p);
19108 lc = utf_tolower(c);
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000019109 l = utf_ptr2len(p);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019110 /* TODO: reallocate string when byte count changes. */
19111 if (utf_char2len(lc) == l)
19112 utf_char2bytes(lc, p);
19113 p += l;
19114 }
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000019115 else if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
Bram Moolenaar071d4272004-06-13 20:20:40 +000019116 p += l; /* skip multi-byte character */
19117 else
19118#endif
19119 {
19120 *p = TOLOWER_LOC(*p); /* note that tolower() can be a macro */
19121 ++p;
19122 }
19123 }
19124}
19125
19126/*
19127 * "toupper(string)" function
19128 */
19129 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019130f_toupper(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019131 typval_T *argvars;
19132 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019133{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019134 rettv->v_type = VAR_STRING;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000019135 rettv->vval.v_string = strup_save(get_tv_string(&argvars[0]));
Bram Moolenaar071d4272004-06-13 20:20:40 +000019136}
19137
19138/*
Bram Moolenaar8299df92004-07-10 09:47:34 +000019139 * "tr(string, fromstr, tostr)" function
19140 */
19141 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019142f_tr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019143 typval_T *argvars;
19144 typval_T *rettv;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019145{
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019146 char_u *in_str;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019147 char_u *fromstr;
19148 char_u *tostr;
19149 char_u *p;
19150#ifdef FEAT_MBYTE
Bram Moolenaar342337a2005-07-21 21:11:17 +000019151 int inlen;
19152 int fromlen;
19153 int tolen;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019154 int idx;
19155 char_u *cpstr;
19156 int cplen;
19157 int first = TRUE;
19158#endif
19159 char_u buf[NUMBUFLEN];
19160 char_u buf2[NUMBUFLEN];
19161 garray_T ga;
19162
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019163 in_str = get_tv_string(&argvars[0]);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000019164 fromstr = get_tv_string_buf_chk(&argvars[1], buf);
19165 tostr = get_tv_string_buf_chk(&argvars[2], buf2);
Bram Moolenaar8299df92004-07-10 09:47:34 +000019166
19167 /* Default return value: empty string. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019168 rettv->v_type = VAR_STRING;
19169 rettv->vval.v_string = NULL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000019170 if (fromstr == NULL || tostr == NULL)
19171 return; /* type error; errmsg already given */
Bram Moolenaar8299df92004-07-10 09:47:34 +000019172 ga_init2(&ga, (int)sizeof(char), 80);
19173
19174#ifdef FEAT_MBYTE
19175 if (!has_mbyte)
19176#endif
19177 /* not multi-byte: fromstr and tostr must be the same length */
19178 if (STRLEN(fromstr) != STRLEN(tostr))
19179 {
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000019180#ifdef FEAT_MBYTE
Bram Moolenaar8299df92004-07-10 09:47:34 +000019181error:
Bram Moolenaar5eb86f92004-07-26 12:53:41 +000019182#endif
Bram Moolenaar8299df92004-07-10 09:47:34 +000019183 EMSG2(_(e_invarg2), fromstr);
19184 ga_clear(&ga);
19185 return;
19186 }
19187
19188 /* fromstr and tostr have to contain the same number of chars */
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019189 while (*in_str != NUL)
Bram Moolenaar8299df92004-07-10 09:47:34 +000019190 {
19191#ifdef FEAT_MBYTE
19192 if (has_mbyte)
19193 {
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019194 inlen = (*mb_ptr2len)(in_str);
19195 cpstr = in_str;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019196 cplen = inlen;
19197 idx = 0;
19198 for (p = fromstr; *p != NUL; p += fromlen)
19199 {
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000019200 fromlen = (*mb_ptr2len)(p);
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019201 if (fromlen == inlen && STRNCMP(in_str, p, inlen) == 0)
Bram Moolenaar8299df92004-07-10 09:47:34 +000019202 {
19203 for (p = tostr; *p != NUL; p += tolen)
19204 {
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000019205 tolen = (*mb_ptr2len)(p);
Bram Moolenaar8299df92004-07-10 09:47:34 +000019206 if (idx-- == 0)
19207 {
19208 cplen = tolen;
19209 cpstr = p;
19210 break;
19211 }
19212 }
19213 if (*p == NUL) /* tostr is shorter than fromstr */
19214 goto error;
19215 break;
19216 }
19217 ++idx;
19218 }
19219
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019220 if (first && cpstr == in_str)
Bram Moolenaar8299df92004-07-10 09:47:34 +000019221 {
19222 /* Check that fromstr and tostr have the same number of
19223 * (multi-byte) characters. Done only once when a character
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019224 * of in_str doesn't appear in fromstr. */
Bram Moolenaar8299df92004-07-10 09:47:34 +000019225 first = FALSE;
19226 for (p = tostr; *p != NUL; p += tolen)
19227 {
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000019228 tolen = (*mb_ptr2len)(p);
Bram Moolenaar8299df92004-07-10 09:47:34 +000019229 --idx;
19230 }
19231 if (idx != 0)
19232 goto error;
19233 }
19234
19235 ga_grow(&ga, cplen);
Bram Moolenaar2df6dcc2004-07-12 15:53:54 +000019236 mch_memmove((char *)ga.ga_data + ga.ga_len, cpstr, (size_t)cplen);
Bram Moolenaar8299df92004-07-10 09:47:34 +000019237 ga.ga_len += cplen;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019238
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019239 in_str += inlen;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019240 }
19241 else
19242#endif
19243 {
19244 /* When not using multi-byte chars we can do it faster. */
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019245 p = vim_strchr(fromstr, *in_str);
Bram Moolenaar8299df92004-07-10 09:47:34 +000019246 if (p != NULL)
19247 ga_append(&ga, tostr[p - fromstr]);
19248 else
Bram Moolenaar70b2a562012-01-10 22:26:17 +010019249 ga_append(&ga, *in_str);
19250 ++in_str;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019251 }
19252 }
19253
Bram Moolenaar61b974b2006-12-05 09:32:29 +000019254 /* add a terminating NUL */
19255 ga_grow(&ga, 1);
19256 ga_append(&ga, NUL);
19257
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019258 rettv->vval.v_string = ga.ga_data;
Bram Moolenaar8299df92004-07-10 09:47:34 +000019259}
19260
Bram Moolenaar8c8de832008-06-24 22:58:06 +000019261#ifdef FEAT_FLOAT
19262/*
19263 * "trunc({float})" function
19264 */
19265 static void
19266f_trunc(argvars, rettv)
19267 typval_T *argvars;
19268 typval_T *rettv;
19269{
19270 float_T f;
19271
19272 rettv->v_type = VAR_FLOAT;
19273 if (get_float_arg(argvars, &f) == OK)
19274 /* trunc() is not in C90, use floor() or ceil() instead. */
19275 rettv->vval.v_float = f > 0 ? floor(f) : ceil(f);
19276 else
19277 rettv->vval.v_float = 0.0;
19278}
19279#endif
19280
Bram Moolenaar8299df92004-07-10 09:47:34 +000019281/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019282 * "type(expr)" function
19283 */
19284 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019285f_type(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019286 typval_T *argvars;
19287 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019288{
Bram Moolenaar6cc16192005-01-08 21:49:45 +000019289 int n;
19290
19291 switch (argvars[0].v_type)
19292 {
19293 case VAR_NUMBER: n = 0; break;
19294 case VAR_STRING: n = 1; break;
19295 case VAR_FUNC: n = 2; break;
19296 case VAR_LIST: n = 3; break;
Bram Moolenaar758711c2005-02-02 23:11:38 +000019297 case VAR_DICT: n = 4; break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000019298#ifdef FEAT_FLOAT
19299 case VAR_FLOAT: n = 5; break;
19300#endif
Bram Moolenaar6cc16192005-01-08 21:49:45 +000019301 default: EMSG2(_(e_intern2), "f_type()"); n = 0; break;
19302 }
19303 rettv->vval.v_number = n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019304}
19305
19306/*
Bram Moolenaara17d4c12010-05-30 18:30:36 +020019307 * "undofile(name)" function
19308 */
19309 static void
19310f_undofile(argvars, rettv)
Bram Moolenaarb2c5a5a2013-02-14 22:11:39 +010019311 typval_T *argvars UNUSED;
Bram Moolenaara17d4c12010-05-30 18:30:36 +020019312 typval_T *rettv;
19313{
19314 rettv->v_type = VAR_STRING;
19315#ifdef FEAT_PERSISTENT_UNDO
Bram Moolenaar945e2db2010-06-05 17:43:32 +020019316 {
Bram Moolenaarb41d9682012-04-30 17:35:48 +020019317 char_u *fname = get_tv_string(&argvars[0]);
Bram Moolenaar945e2db2010-06-05 17:43:32 +020019318
Bram Moolenaarb41d9682012-04-30 17:35:48 +020019319 if (*fname == NUL)
19320 {
19321 /* If there is no file name there will be no undo file. */
19322 rettv->vval.v_string = NULL;
19323 }
19324 else
19325 {
19326 char_u *ffname = FullName_save(fname, FALSE);
19327
19328 if (ffname != NULL)
19329 rettv->vval.v_string = u_get_undo_file_name(ffname, FALSE);
19330 vim_free(ffname);
19331 }
Bram Moolenaar945e2db2010-06-05 17:43:32 +020019332 }
Bram Moolenaara17d4c12010-05-30 18:30:36 +020019333#else
19334 rettv->vval.v_string = NULL;
19335#endif
19336}
19337
19338/*
Bram Moolenaara800b422010-06-27 01:15:55 +020019339 * "undotree()" function
19340 */
19341 static void
19342f_undotree(argvars, rettv)
19343 typval_T *argvars UNUSED;
19344 typval_T *rettv;
19345{
19346 if (rettv_dict_alloc(rettv) == OK)
19347 {
19348 dict_T *dict = rettv->vval.v_dict;
19349 list_T *list;
19350
Bram Moolenaar730cde92010-06-27 05:18:54 +020019351 dict_add_nr_str(dict, "synced", (long)curbuf->b_u_synced, NULL);
Bram Moolenaara800b422010-06-27 01:15:55 +020019352 dict_add_nr_str(dict, "seq_last", curbuf->b_u_seq_last, NULL);
Bram Moolenaar730cde92010-06-27 05:18:54 +020019353 dict_add_nr_str(dict, "save_last",
19354 (long)curbuf->b_u_save_nr_last, NULL);
Bram Moolenaara800b422010-06-27 01:15:55 +020019355 dict_add_nr_str(dict, "seq_cur", curbuf->b_u_seq_cur, NULL);
19356 dict_add_nr_str(dict, "time_cur", (long)curbuf->b_u_time_cur, NULL);
Bram Moolenaar730cde92010-06-27 05:18:54 +020019357 dict_add_nr_str(dict, "save_cur", (long)curbuf->b_u_save_nr_cur, NULL);
Bram Moolenaara800b422010-06-27 01:15:55 +020019358
19359 list = list_alloc();
19360 if (list != NULL)
19361 {
19362 u_eval_tree(curbuf->b_u_oldhead, list);
19363 dict_add_list(dict, "entries", list);
19364 }
19365 }
19366}
19367
19368/*
Bram Moolenaar8c711452005-01-14 21:53:12 +000019369 * "values(dict)" function
19370 */
19371 static void
19372f_values(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019373 typval_T *argvars;
19374 typval_T *rettv;
Bram Moolenaar8c711452005-01-14 21:53:12 +000019375{
19376 dict_list(argvars, rettv, 1);
19377}
19378
19379/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019380 * "virtcol(string)" function
19381 */
19382 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019383f_virtcol(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019384 typval_T *argvars;
19385 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019386{
19387 colnr_T vcol = 0;
19388 pos_T *fp;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019389 int fnum = curbuf->b_fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019390
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019391 fp = var2fpos(&argvars[0], FALSE, &fnum);
19392 if (fp != NULL && fp->lnum <= curbuf->b_ml.ml_line_count
19393 && fnum == curbuf->b_fnum)
Bram Moolenaar071d4272004-06-13 20:20:40 +000019394 {
19395 getvvcol(curwin, fp, NULL, NULL, &vcol);
19396 ++vcol;
19397 }
19398
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019399 rettv->vval.v_number = vcol;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019400}
19401
19402/*
19403 * "visualmode()" function
19404 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019405 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019406f_visualmode(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019407 typval_T *argvars UNUSED;
19408 typval_T *rettv UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019409{
Bram Moolenaar071d4272004-06-13 20:20:40 +000019410 char_u str[2];
19411
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019412 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019413 str[0] = curbuf->b_visual_mode_eval;
19414 str[1] = NUL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019415 rettv->vval.v_string = vim_strsave(str);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019416
19417 /* A non-zero number or non-empty string argument: reset mode. */
Bram Moolenaar05bb9532008-07-04 09:44:11 +000019418 if (non_zero_arg(&argvars[0]))
Bram Moolenaar071d4272004-06-13 20:20:40 +000019419 curbuf->b_visual_mode_eval = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019420}
19421
19422/*
Bram Moolenaar8738fc12013-02-20 17:59:11 +010019423 * "wildmenumode()" function
19424 */
19425 static void
19426f_wildmenumode(argvars, rettv)
19427 typval_T *argvars UNUSED;
19428 typval_T *rettv UNUSED;
19429{
19430#ifdef FEAT_WILDMENU
19431 if (wild_menu_showing)
19432 rettv->vval.v_number = 1;
19433#endif
19434}
19435
19436/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019437 * "winbufnr(nr)" function
19438 */
19439 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019440f_winbufnr(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019441 typval_T *argvars;
19442 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019443{
19444 win_T *wp;
19445
Bram Moolenaar99ebf042006-04-15 20:28:54 +000019446 wp = find_win_by_nr(&argvars[0], NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019447 if (wp == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019448 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019449 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019450 rettv->vval.v_number = wp->w_buffer->b_fnum;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019451}
19452
19453/*
19454 * "wincol()" function
19455 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019456 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019457f_wincol(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019458 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000019459 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019460{
19461 validate_cursor();
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019462 rettv->vval.v_number = curwin->w_wcol + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019463}
19464
19465/*
19466 * "winheight(nr)" function
19467 */
19468 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019469f_winheight(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019470 typval_T *argvars;
19471 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019472{
19473 win_T *wp;
19474
Bram Moolenaar99ebf042006-04-15 20:28:54 +000019475 wp = find_win_by_nr(&argvars[0], NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019476 if (wp == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019477 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019478 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019479 rettv->vval.v_number = wp->w_height;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019480}
19481
19482/*
19483 * "winline()" function
19484 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019485 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019486f_winline(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019487 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000019488 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019489{
19490 validate_cursor();
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019491 rettv->vval.v_number = curwin->w_wrow + 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019492}
19493
19494/*
19495 * "winnr()" function
19496 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019497 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019498f_winnr(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019499 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000019500 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019501{
19502 int nr = 1;
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000019503
Bram Moolenaar071d4272004-06-13 20:20:40 +000019504#ifdef FEAT_WINDOWS
Bram Moolenaarfaa959a2006-02-20 21:37:40 +000019505 nr = get_winnr(curtab, &argvars[0]);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019506#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019507 rettv->vval.v_number = nr;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019508}
19509
19510/*
19511 * "winrestcmd()" function
19512 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019513 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019514f_winrestcmd(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019515 typval_T *argvars UNUSED;
Bram Moolenaar33570922005-01-25 22:26:29 +000019516 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019517{
19518#ifdef FEAT_WINDOWS
19519 win_T *wp;
19520 int winnr = 1;
19521 garray_T ga;
19522 char_u buf[50];
19523
19524 ga_init2(&ga, (int)sizeof(char), 70);
19525 for (wp = firstwin; wp != NULL; wp = wp->w_next)
19526 {
19527 sprintf((char *)buf, "%dresize %d|", winnr, wp->w_height);
19528 ga_concat(&ga, buf);
19529# ifdef FEAT_VERTSPLIT
19530 sprintf((char *)buf, "vert %dresize %d|", winnr, wp->w_width);
19531 ga_concat(&ga, buf);
19532# endif
19533 ++winnr;
19534 }
Bram Moolenaar269ec652004-07-29 08:43:53 +000019535 ga_append(&ga, NUL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019536
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019537 rettv->vval.v_string = ga.ga_data;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019538#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019539 rettv->vval.v_string = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019540#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019541 rettv->v_type = VAR_STRING;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019542}
19543
19544/*
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019545 * "winrestview()" function
19546 */
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019547 static void
19548f_winrestview(argvars, rettv)
19549 typval_T *argvars;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019550 typval_T *rettv UNUSED;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019551{
19552 dict_T *dict;
19553
19554 if (argvars[0].v_type != VAR_DICT
19555 || (dict = argvars[0].vval.v_dict) == NULL)
19556 EMSG(_(e_invarg));
19557 else
19558 {
Bram Moolenaar82c25852014-05-28 16:47:16 +020019559 if (dict_find(dict, (char_u *)"lnum", -1) != NULL)
19560 curwin->w_cursor.lnum = get_dict_number(dict, (char_u *)"lnum");
19561 if (dict_find(dict, (char_u *)"col", -1) != NULL)
19562 curwin->w_cursor.col = get_dict_number(dict, (char_u *)"col");
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019563#ifdef FEAT_VIRTUALEDIT
Bram Moolenaar82c25852014-05-28 16:47:16 +020019564 if (dict_find(dict, (char_u *)"coladd", -1) != NULL)
19565 curwin->w_cursor.coladd = get_dict_number(dict, (char_u *)"coladd");
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019566#endif
Bram Moolenaar82c25852014-05-28 16:47:16 +020019567 if (dict_find(dict, (char_u *)"curswant", -1) != NULL)
19568 {
19569 curwin->w_curswant = get_dict_number(dict, (char_u *)"curswant");
19570 curwin->w_set_curswant = FALSE;
19571 }
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019572
Bram Moolenaar82c25852014-05-28 16:47:16 +020019573 if (dict_find(dict, (char_u *)"topline", -1) != NULL)
19574 set_topline(curwin, get_dict_number(dict, (char_u *)"topline"));
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019575#ifdef FEAT_DIFF
Bram Moolenaar82c25852014-05-28 16:47:16 +020019576 if (dict_find(dict, (char_u *)"topfill", -1) != NULL)
19577 curwin->w_topfill = get_dict_number(dict, (char_u *)"topfill");
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019578#endif
Bram Moolenaar82c25852014-05-28 16:47:16 +020019579 if (dict_find(dict, (char_u *)"leftcol", -1) != NULL)
19580 curwin->w_leftcol = get_dict_number(dict, (char_u *)"leftcol");
19581 if (dict_find(dict, (char_u *)"skipcol", -1) != NULL)
19582 curwin->w_skipcol = get_dict_number(dict, (char_u *)"skipcol");
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019583
19584 check_cursor();
Bram Moolenaar6763c142012-07-19 18:05:44 +020019585 win_new_height(curwin, curwin->w_height);
19586# ifdef FEAT_VERTSPLIT
19587 win_new_width(curwin, W_WIDTH(curwin));
19588# endif
Bram Moolenaarab984db2012-06-06 16:29:10 +020019589 changed_window_setting();
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019590
Bram Moolenaarb851a962014-10-31 15:45:52 +010019591 if (curwin->w_topline <= 0)
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019592 curwin->w_topline = 1;
19593 if (curwin->w_topline > curbuf->b_ml.ml_line_count)
19594 curwin->w_topline = curbuf->b_ml.ml_line_count;
19595#ifdef FEAT_DIFF
19596 check_topfill(curwin, TRUE);
19597#endif
19598 }
19599}
19600
19601/*
19602 * "winsaveview()" function
19603 */
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019604 static void
19605f_winsaveview(argvars, rettv)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000019606 typval_T *argvars UNUSED;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019607 typval_T *rettv;
19608{
19609 dict_T *dict;
19610
Bram Moolenaara800b422010-06-27 01:15:55 +020019611 if (rettv_dict_alloc(rettv) == FAIL)
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019612 return;
Bram Moolenaara800b422010-06-27 01:15:55 +020019613 dict = rettv->vval.v_dict;
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019614
19615 dict_add_nr_str(dict, "lnum", (long)curwin->w_cursor.lnum, NULL);
19616 dict_add_nr_str(dict, "col", (long)curwin->w_cursor.col, NULL);
19617#ifdef FEAT_VIRTUALEDIT
19618 dict_add_nr_str(dict, "coladd", (long)curwin->w_cursor.coladd, NULL);
19619#endif
Bram Moolenaar9af1ba92006-08-29 19:55:53 +000019620 update_curswant();
Bram Moolenaar768b8c42006-03-04 21:58:33 +000019621 dict_add_nr_str(dict, "curswant", (long)curwin->w_curswant, NULL);
19622
19623 dict_add_nr_str(dict, "topline", (long)curwin->w_topline, NULL);
19624#ifdef FEAT_DIFF
19625 dict_add_nr_str(dict, "topfill", (long)curwin->w_topfill, NULL);
19626#endif
19627 dict_add_nr_str(dict, "leftcol", (long)curwin->w_leftcol, NULL);
19628 dict_add_nr_str(dict, "skipcol", (long)curwin->w_skipcol, NULL);
19629}
19630
19631/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019632 * "winwidth(nr)" function
19633 */
19634 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019635f_winwidth(argvars, rettv)
Bram Moolenaar33570922005-01-25 22:26:29 +000019636 typval_T *argvars;
19637 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019638{
19639 win_T *wp;
19640
Bram Moolenaar99ebf042006-04-15 20:28:54 +000019641 wp = find_win_by_nr(&argvars[0], NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019642 if (wp == NULL)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019643 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019644 else
19645#ifdef FEAT_VERTSPLIT
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019646 rettv->vval.v_number = wp->w_width;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019647#else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000019648 rettv->vval.v_number = Columns;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019649#endif
19650}
19651
Bram Moolenaar071d4272004-06-13 20:20:40 +000019652/*
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020019653 * Write list of strings to file
19654 */
19655 static int
19656write_list(fd, list, binary)
19657 FILE *fd;
19658 list_T *list;
19659 int binary;
19660{
19661 listitem_T *li;
19662 int c;
19663 int ret = OK;
19664 char_u *s;
19665
19666 for (li = list->lv_first; li != NULL; li = li->li_next)
19667 {
19668 for (s = get_tv_string(&li->li_tv); *s != NUL; ++s)
19669 {
19670 if (*s == '\n')
19671 c = putc(NUL, fd);
19672 else
19673 c = putc(*s, fd);
19674 if (c == EOF)
19675 {
19676 ret = FAIL;
19677 break;
19678 }
19679 }
19680 if (!binary || li->li_next != NULL)
19681 if (putc('\n', fd) == EOF)
19682 {
19683 ret = FAIL;
19684 break;
19685 }
19686 if (ret == FAIL)
19687 {
19688 EMSG(_(e_write));
19689 break;
19690 }
19691 }
19692 return ret;
19693}
19694
19695/*
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019696 * "writefile()" function
19697 */
19698 static void
19699f_writefile(argvars, rettv)
19700 typval_T *argvars;
19701 typval_T *rettv;
19702{
19703 int binary = FALSE;
Bram Moolenaar6b2e9382014-11-05 18:06:01 +010019704 int append = FALSE;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019705 char_u *fname;
19706 FILE *fd;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019707 int ret = 0;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019708
Bram Moolenaard9fe7c42007-04-29 11:53:56 +000019709 if (check_restricted() || check_secure())
19710 return;
19711
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019712 if (argvars[0].v_type != VAR_LIST)
19713 {
19714 EMSG2(_(e_listarg), "writefile()");
19715 return;
19716 }
19717 if (argvars[0].vval.v_list == NULL)
19718 return;
19719
Bram Moolenaar6b2e9382014-11-05 18:06:01 +010019720 if (argvars[2].v_type != VAR_UNKNOWN)
19721 {
19722 if (vim_strchr(get_tv_string(&argvars[2]), 'b') != NULL)
19723 binary = TRUE;
19724 if (vim_strchr(get_tv_string(&argvars[2]), 'a') != NULL)
19725 append = TRUE;
19726 }
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019727
19728 /* Always open the file in binary mode, library functions have a mind of
19729 * their own about CR-LF conversion. */
19730 fname = get_tv_string(&argvars[1]);
Bram Moolenaar6b2e9382014-11-05 18:06:01 +010019731 if (*fname == NUL || (fd = mch_fopen((char *)fname,
19732 append ? APPENDBIN : WRITEBIN)) == NULL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019733 {
19734 EMSG2(_(e_notcreate), *fname == NUL ? (char_u *)_("<empty>") : fname);
19735 ret = -1;
19736 }
19737 else
19738 {
Bram Moolenaar57ebe6e2014-04-05 18:55:46 +020019739 if (write_list(fd, argvars[0].vval.v_list, binary) == FAIL)
19740 ret = -1;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019741 fclose(fd);
19742 }
19743
19744 rettv->vval.v_number = ret;
19745}
19746
19747/*
Bram Moolenaard6e256c2011-12-14 15:32:50 +010019748 * "xor(expr, expr)" function
19749 */
19750 static void
19751f_xor(argvars, rettv)
19752 typval_T *argvars;
19753 typval_T *rettv;
19754{
19755 rettv->vval.v_number = get_tv_number_chk(&argvars[0], NULL)
19756 ^ get_tv_number_chk(&argvars[1], NULL);
19757}
19758
19759
19760/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019761 * Translate a String variable into a position.
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019762 * Returns NULL when there is an error.
Bram Moolenaar071d4272004-06-13 20:20:40 +000019763 */
19764 static pos_T *
Bram Moolenaar477933c2007-07-17 14:32:23 +000019765var2fpos(varp, dollar_lnum, fnum)
Bram Moolenaar33570922005-01-25 22:26:29 +000019766 typval_T *varp;
Bram Moolenaar477933c2007-07-17 14:32:23 +000019767 int dollar_lnum; /* TRUE when $ is last line */
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019768 int *fnum; /* set to fnum for '0, 'A, etc. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019769{
Bram Moolenaar261bfea2006-03-01 22:12:31 +000019770 char_u *name;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019771 static pos_T pos;
Bram Moolenaar261bfea2006-03-01 22:12:31 +000019772 pos_T *pp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019773
Bram Moolenaara5525202006-03-02 22:52:09 +000019774 /* Argument can be [lnum, col, coladd]. */
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019775 if (varp->v_type == VAR_LIST)
19776 {
19777 list_T *l;
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019778 int len;
Bram Moolenaara5525202006-03-02 22:52:09 +000019779 int error = FALSE;
Bram Moolenaar477933c2007-07-17 14:32:23 +000019780 listitem_T *li;
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019781
19782 l = varp->vval.v_list;
19783 if (l == NULL)
19784 return NULL;
19785
19786 /* Get the line number */
Bram Moolenaara5525202006-03-02 22:52:09 +000019787 pos.lnum = list_find_nr(l, 0L, &error);
19788 if (error || pos.lnum <= 0 || pos.lnum > curbuf->b_ml.ml_line_count)
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019789 return NULL; /* invalid line number */
19790
19791 /* Get the column number */
Bram Moolenaara5525202006-03-02 22:52:09 +000019792 pos.col = list_find_nr(l, 1L, &error);
19793 if (error)
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019794 return NULL;
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019795 len = (long)STRLEN(ml_get(pos.lnum));
Bram Moolenaar477933c2007-07-17 14:32:23 +000019796
19797 /* We accept "$" for the column number: last column. */
19798 li = list_find(l, 1L);
19799 if (li != NULL && li->li_tv.v_type == VAR_STRING
19800 && li->li_tv.vval.v_string != NULL
19801 && STRCMP(li->li_tv.vval.v_string, "$") == 0)
19802 pos.col = len + 1;
19803
Bram Moolenaara5525202006-03-02 22:52:09 +000019804 /* Accept a position up to the NUL after the line. */
Bram Moolenaar4c3f5362006-04-11 21:38:50 +000019805 if (pos.col == 0 || (int)pos.col > len + 1)
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019806 return NULL; /* invalid column number */
Bram Moolenaara5525202006-03-02 22:52:09 +000019807 --pos.col;
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019808
Bram Moolenaara5525202006-03-02 22:52:09 +000019809#ifdef FEAT_VIRTUALEDIT
19810 /* Get the virtual offset. Defaults to zero. */
19811 pos.coladd = list_find_nr(l, 2L, &error);
19812 if (error)
19813 pos.coladd = 0;
19814#endif
19815
Bram Moolenaar32466aa2006-02-24 23:53:04 +000019816 return &pos;
19817 }
19818
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000019819 name = get_tv_string_chk(varp);
19820 if (name == NULL)
19821 return NULL;
Bram Moolenaar9ecd0232008-06-20 15:31:51 +000019822 if (name[0] == '.') /* cursor */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019823 return &curwin->w_cursor;
Bram Moolenaar9ecd0232008-06-20 15:31:51 +000019824 if (name[0] == 'v' && name[1] == NUL) /* Visual start */
19825 {
19826 if (VIsual_active)
19827 return &VIsual;
19828 return &curwin->w_cursor;
19829 }
Bram Moolenaar9ecd0232008-06-20 15:31:51 +000019830 if (name[0] == '\'') /* mark */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019831 {
Bram Moolenaar9d182dd2013-01-23 15:53:15 +010019832 pp = getmark_buf_fnum(curbuf, name[1], FALSE, fnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +000019833 if (pp == NULL || pp == (pos_T *)-1 || pp->lnum <= 0)
19834 return NULL;
19835 return pp;
19836 }
Bram Moolenaara5525202006-03-02 22:52:09 +000019837
19838#ifdef FEAT_VIRTUALEDIT
19839 pos.coladd = 0;
19840#endif
19841
Bram Moolenaar477933c2007-07-17 14:32:23 +000019842 if (name[0] == 'w' && dollar_lnum)
Bram Moolenaarf52c7252006-02-10 23:23:57 +000019843 {
19844 pos.col = 0;
19845 if (name[1] == '0') /* "w0": first visible line */
19846 {
Bram Moolenaarf740b292006-02-16 22:11:02 +000019847 update_topline();
Bram Moolenaarf52c7252006-02-10 23:23:57 +000019848 pos.lnum = curwin->w_topline;
19849 return &pos;
19850 }
19851 else if (name[1] == '$') /* "w$": last visible line */
19852 {
Bram Moolenaarf740b292006-02-16 22:11:02 +000019853 validate_botline();
Bram Moolenaarf52c7252006-02-10 23:23:57 +000019854 pos.lnum = curwin->w_botline - 1;
19855 return &pos;
19856 }
19857 }
19858 else if (name[0] == '$') /* last column or line */
Bram Moolenaar071d4272004-06-13 20:20:40 +000019859 {
Bram Moolenaar477933c2007-07-17 14:32:23 +000019860 if (dollar_lnum)
Bram Moolenaar071d4272004-06-13 20:20:40 +000019861 {
19862 pos.lnum = curbuf->b_ml.ml_line_count;
19863 pos.col = 0;
19864 }
19865 else
19866 {
19867 pos.lnum = curwin->w_cursor.lnum;
19868 pos.col = (colnr_T)STRLEN(ml_get_curline());
19869 }
19870 return &pos;
19871 }
19872 return NULL;
19873}
19874
19875/*
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019876 * Convert list in "arg" into a position and optional file number.
19877 * When "fnump" is NULL there is no file number, only 3 items.
19878 * Note that the column is passed on as-is, the caller may want to decrement
19879 * it to use 1 for the first column.
19880 * Return FAIL when conversion is not possible, doesn't check the position for
19881 * validity.
19882 */
19883 static int
Bram Moolenaar493c1782014-05-28 14:34:46 +020019884list2fpos(arg, posp, fnump, curswantp)
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019885 typval_T *arg;
19886 pos_T *posp;
19887 int *fnump;
Bram Moolenaar493c1782014-05-28 14:34:46 +020019888 colnr_T *curswantp;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019889{
19890 list_T *l = arg->vval.v_list;
19891 long i = 0;
19892 long n;
19893
Bram Moolenaar493c1782014-05-28 14:34:46 +020019894 /* List must be: [fnum, lnum, col, coladd, curswant], where "fnum" is only
19895 * there when "fnump" isn't NULL; "coladd" and "curswant" are optional. */
Bram Moolenaarbde35262006-07-23 20:12:24 +000019896 if (arg->v_type != VAR_LIST
19897 || l == NULL
19898 || l->lv_len < (fnump == NULL ? 2 : 3)
Bram Moolenaar493c1782014-05-28 14:34:46 +020019899 || l->lv_len > (fnump == NULL ? 4 : 5))
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019900 return FAIL;
19901
19902 if (fnump != NULL)
19903 {
19904 n = list_find_nr(l, i++, NULL); /* fnum */
19905 if (n < 0)
19906 return FAIL;
19907 if (n == 0)
19908 n = curbuf->b_fnum; /* current buffer */
19909 *fnump = n;
19910 }
19911
19912 n = list_find_nr(l, i++, NULL); /* lnum */
19913 if (n < 0)
19914 return FAIL;
19915 posp->lnum = n;
19916
19917 n = list_find_nr(l, i++, NULL); /* col */
19918 if (n < 0)
19919 return FAIL;
19920 posp->col = n;
19921
19922#ifdef FEAT_VIRTUALEDIT
Bram Moolenaar493c1782014-05-28 14:34:46 +020019923 n = list_find_nr(l, i, NULL); /* off */
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019924 if (n < 0)
Bram Moolenaarbde35262006-07-23 20:12:24 +000019925 posp->coladd = 0;
19926 else
19927 posp->coladd = n;
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019928#endif
19929
Bram Moolenaar493c1782014-05-28 14:34:46 +020019930 if (curswantp != NULL)
19931 *curswantp = list_find_nr(l, i + 1, NULL); /* curswant */
19932
Bram Moolenaar0e34f622006-03-03 23:00:03 +000019933 return OK;
19934}
19935
19936/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000019937 * Get the length of an environment variable name.
19938 * Advance "arg" to the first character after the name.
19939 * Return 0 for error.
19940 */
19941 static int
19942get_env_len(arg)
19943 char_u **arg;
19944{
19945 char_u *p;
19946 int len;
19947
19948 for (p = *arg; vim_isIDc(*p); ++p)
19949 ;
19950 if (p == *arg) /* no name found */
19951 return 0;
19952
19953 len = (int)(p - *arg);
19954 *arg = p;
19955 return len;
19956}
19957
19958/*
19959 * Get the length of the name of a function or internal variable.
19960 * "arg" is advanced to the first non-white character after the name.
19961 * Return 0 if something is wrong.
19962 */
19963 static int
19964get_id_len(arg)
19965 char_u **arg;
19966{
19967 char_u *p;
19968 int len;
19969
19970 /* Find the end of the name. */
19971 for (p = *arg; eval_isnamec(*p); ++p)
19972 ;
19973 if (p == *arg) /* no name found */
19974 return 0;
19975
19976 len = (int)(p - *arg);
19977 *arg = skipwhite(p);
19978
19979 return len;
19980}
19981
19982/*
Bram Moolenaara7043832005-01-21 11:56:39 +000019983 * Get the length of the name of a variable or function.
19984 * Only the name is recognized, does not handle ".key" or "[idx]".
Bram Moolenaar071d4272004-06-13 20:20:40 +000019985 * "arg" is advanced to the first non-white character after the name.
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019986 * Return -1 if curly braces expansion failed.
19987 * Return 0 if something else is wrong.
Bram Moolenaar071d4272004-06-13 20:20:40 +000019988 * If the name contains 'magic' {}'s, expand them and return the
19989 * expanded name in an allocated string via 'alias' - caller must free.
19990 */
19991 static int
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019992get_name_len(arg, alias, evaluate, verbose)
Bram Moolenaar071d4272004-06-13 20:20:40 +000019993 char_u **arg;
19994 char_u **alias;
19995 int evaluate;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000019996 int verbose;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019997{
19998 int len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000019999 char_u *p;
20000 char_u *expr_start;
20001 char_u *expr_end;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020002
20003 *alias = NULL; /* default to no alias */
20004
20005 if ((*arg)[0] == K_SPECIAL && (*arg)[1] == KS_EXTRA
20006 && (*arg)[2] == (int)KE_SNR)
20007 {
20008 /* hard coded <SNR>, already translated */
20009 *arg += 3;
20010 return get_id_len(arg) + 3;
20011 }
20012 len = eval_fname_script(*arg);
20013 if (len > 0)
20014 {
20015 /* literal "<SID>", "s:" or "<SNR>" */
20016 *arg += len;
20017 }
20018
Bram Moolenaar071d4272004-06-13 20:20:40 +000020019 /*
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020020 * Find the end of the name; check for {} construction.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020021 */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020022 p = find_name_end(*arg, &expr_start, &expr_end,
20023 len > 0 ? 0 : FNE_CHECK_START);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020024 if (expr_start != NULL)
20025 {
20026 char_u *temp_string;
20027
20028 if (!evaluate)
20029 {
20030 len += (int)(p - *arg);
20031 *arg = skipwhite(p);
20032 return len;
20033 }
20034
20035 /*
20036 * Include any <SID> etc in the expanded string:
20037 * Thus the -len here.
20038 */
20039 temp_string = make_expanded_name(*arg - len, expr_start, expr_end, p);
20040 if (temp_string == NULL)
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020041 return -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020042 *alias = temp_string;
20043 *arg = skipwhite(p);
20044 return (int)STRLEN(temp_string);
20045 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000020046
20047 len += get_id_len(arg);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020048 if (len == 0 && verbose)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020049 EMSG2(_(e_invexpr2), *arg);
20050
20051 return len;
20052}
20053
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020054/*
20055 * Find the end of a variable or function name, taking care of magic braces.
20056 * If "expr_start" is not NULL then "expr_start" and "expr_end" are set to the
20057 * start and end of the first magic braces item.
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020058 * "flags" can have FNE_INCL_BR and FNE_CHECK_START.
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020059 * Return a pointer to just after the name. Equal to "arg" if there is no
20060 * valid name.
20061 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000020062 static char_u *
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020063find_name_end(arg, expr_start, expr_end, flags)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020064 char_u *arg;
20065 char_u **expr_start;
20066 char_u **expr_end;
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020067 int flags;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020068{
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020069 int mb_nest = 0;
20070 int br_nest = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020071 char_u *p;
20072
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020073 if (expr_start != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020074 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020075 *expr_start = NULL;
20076 *expr_end = NULL;
20077 }
20078
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020079 /* Quick check for valid starting character. */
20080 if ((flags & FNE_CHECK_START) && !eval_isnamec1(*arg) && *arg != '{')
20081 return arg;
20082
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020083 for (p = arg; *p != NUL
20084 && (eval_isnamec(*p)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020085 || *p == '{'
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020086 || ((flags & FNE_INCL_BR) && (*p == '[' || *p == '.'))
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020087 || mb_nest != 0
Bram Moolenaar8af24422005-08-08 22:06:28 +000020088 || br_nest != 0); mb_ptr_adv(p))
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020089 {
Bram Moolenaar8af24422005-08-08 22:06:28 +000020090 if (*p == '\'')
20091 {
20092 /* skip over 'string' to avoid counting [ and ] inside it. */
20093 for (p = p + 1; *p != NUL && *p != '\''; mb_ptr_adv(p))
20094 ;
20095 if (*p == NUL)
20096 break;
20097 }
20098 else if (*p == '"')
20099 {
20100 /* skip over "str\"ing" to avoid counting [ and ] inside it. */
20101 for (p = p + 1; *p != NUL && *p != '"'; mb_ptr_adv(p))
20102 if (*p == '\\' && p[1] != NUL)
20103 ++p;
20104 if (*p == NUL)
20105 break;
20106 }
20107
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020108 if (mb_nest == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020109 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020110 if (*p == '[')
20111 ++br_nest;
20112 else if (*p == ']')
20113 --br_nest;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020114 }
Bram Moolenaar8af24422005-08-08 22:06:28 +000020115
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020116 if (br_nest == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020117 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020118 if (*p == '{')
20119 {
20120 mb_nest++;
20121 if (expr_start != NULL && *expr_start == NULL)
20122 *expr_start = p;
20123 }
20124 else if (*p == '}')
20125 {
20126 mb_nest--;
20127 if (expr_start != NULL && mb_nest == 0 && *expr_end == NULL)
20128 *expr_end = p;
20129 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000020130 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000020131 }
20132
20133 return p;
20134}
20135
20136/*
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020137 * Expands out the 'magic' {}'s in a variable/function name.
20138 * Note that this can call itself recursively, to deal with
20139 * constructs like foo{bar}{baz}{bam}
20140 * The four pointer arguments point to "foo{expre}ss{ion}bar"
20141 * "in_start" ^
20142 * "expr_start" ^
20143 * "expr_end" ^
20144 * "in_end" ^
20145 *
20146 * Returns a new allocated string, which the caller must free.
20147 * Returns NULL for failure.
20148 */
20149 static char_u *
20150make_expanded_name(in_start, expr_start, expr_end, in_end)
20151 char_u *in_start;
20152 char_u *expr_start;
20153 char_u *expr_end;
20154 char_u *in_end;
20155{
20156 char_u c1;
20157 char_u *retval = NULL;
20158 char_u *temp_result;
20159 char_u *nextcmd = NULL;
20160
20161 if (expr_end == NULL || in_end == NULL)
20162 return NULL;
20163 *expr_start = NUL;
20164 *expr_end = NUL;
20165 c1 = *in_end;
20166 *in_end = NUL;
20167
Bram Moolenaar362e1a32006-03-06 23:29:24 +000020168 temp_result = eval_to_string(expr_start + 1, &nextcmd, FALSE);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020169 if (temp_result != NULL && nextcmd == NULL)
20170 {
20171 retval = alloc((unsigned)(STRLEN(temp_result) + (expr_start - in_start)
20172 + (in_end - expr_end) + 1));
20173 if (retval != NULL)
20174 {
20175 STRCPY(retval, in_start);
20176 STRCAT(retval, temp_result);
20177 STRCAT(retval, expr_end + 1);
20178 }
20179 }
20180 vim_free(temp_result);
20181
20182 *in_end = c1; /* put char back for error messages */
20183 *expr_start = '{';
20184 *expr_end = '}';
20185
20186 if (retval != NULL)
20187 {
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020188 temp_result = find_name_end(retval, &expr_start, &expr_end, 0);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020189 if (expr_start != NULL)
20190 {
20191 /* Further expansion! */
20192 temp_result = make_expanded_name(retval, expr_start,
20193 expr_end, temp_result);
20194 vim_free(retval);
20195 retval = temp_result;
20196 }
20197 }
20198
20199 return retval;
20200}
20201
20202/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020203 * Return TRUE if character "c" can be used in a variable or function name.
Bram Moolenaare9a41262005-01-15 22:18:47 +000020204 * Does not include '{' or '}' for magic braces.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020205 */
20206 static int
20207eval_isnamec(c)
20208 int c;
20209{
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020210 return (ASCII_ISALNUM(c) || c == '_' || c == ':' || c == AUTOLOAD_CHAR);
20211}
20212
20213/*
20214 * Return TRUE if character "c" can be used as the first character in a
20215 * variable or function name (excluding '{' and '}').
20216 */
20217 static int
20218eval_isnamec1(c)
20219 int c;
20220{
20221 return (ASCII_ISALPHA(c) || c == '_');
Bram Moolenaar071d4272004-06-13 20:20:40 +000020222}
20223
20224/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020225 * Set number v: variable to "val".
20226 */
20227 void
20228set_vim_var_nr(idx, val)
20229 int idx;
20230 long val;
20231{
Bram Moolenaare9a41262005-01-15 22:18:47 +000020232 vimvars[idx].vv_nr = val;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020233}
20234
20235/*
Bram Moolenaar19a09a12005-03-04 23:39:37 +000020236 * Get number v: variable value.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020237 */
20238 long
20239get_vim_var_nr(idx)
20240 int idx;
20241{
Bram Moolenaare9a41262005-01-15 22:18:47 +000020242 return vimvars[idx].vv_nr;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020243}
20244
Bram Moolenaar19a09a12005-03-04 23:39:37 +000020245/*
20246 * Get string v: variable value. Uses a static buffer, can only be used once.
20247 */
20248 char_u *
20249get_vim_var_str(idx)
20250 int idx;
20251{
20252 return get_tv_string(&vimvars[idx].vv_tv);
20253}
Bram Moolenaar19a09a12005-03-04 23:39:37 +000020254
Bram Moolenaar071d4272004-06-13 20:20:40 +000020255/*
Bram Moolenaard812df62008-11-09 12:46:09 +000020256 * Get List v: variable value. Caller must take care of reference count when
20257 * needed.
20258 */
20259 list_T *
20260get_vim_var_list(idx)
20261 int idx;
20262{
20263 return vimvars[idx].vv_list;
20264}
20265
20266/*
Bram Moolenaarda9591e2009-09-30 13:17:02 +000020267 * Set v:char to character "c".
20268 */
20269 void
20270set_vim_var_char(c)
20271 int c;
20272{
Bram Moolenaar9a920d82012-06-01 15:21:02 +020020273 char_u buf[MB_MAXBYTES + 1];
Bram Moolenaarda9591e2009-09-30 13:17:02 +000020274
20275#ifdef FEAT_MBYTE
20276 if (has_mbyte)
20277 buf[(*mb_char2bytes)(c, buf)] = NUL;
20278 else
20279#endif
20280 {
20281 buf[0] = c;
20282 buf[1] = NUL;
20283 }
20284 set_vim_var_string(VV_CHAR, buf, -1);
20285}
20286
20287/*
Bram Moolenaar8df74be2008-11-20 15:12:02 +000020288 * Set v:count to "count" and v:count1 to "count1".
20289 * When "set_prevcount" is TRUE first set v:prevcount from v:count.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020290 */
20291 void
Bram Moolenaar8df74be2008-11-20 15:12:02 +000020292set_vcount(count, count1, set_prevcount)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020293 long count;
20294 long count1;
Bram Moolenaar8df74be2008-11-20 15:12:02 +000020295 int set_prevcount;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020296{
Bram Moolenaar8df74be2008-11-20 15:12:02 +000020297 if (set_prevcount)
20298 vimvars[VV_PREVCOUNT].vv_nr = vimvars[VV_COUNT].vv_nr;
Bram Moolenaare9a41262005-01-15 22:18:47 +000020299 vimvars[VV_COUNT].vv_nr = count;
20300 vimvars[VV_COUNT1].vv_nr = count1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020301}
20302
20303/*
20304 * Set string v: variable to a copy of "val".
20305 */
20306 void
20307set_vim_var_string(idx, val, len)
20308 int idx;
20309 char_u *val;
20310 int len; /* length of "val" to use or -1 (whole string) */
20311{
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020312 /* Need to do this (at least) once, since we can't initialize a union.
20313 * Will always be invoked when "v:progname" is set. */
20314 vimvars[VV_VERSION].vv_nr = VIM_VERSION_100;
20315
Bram Moolenaare9a41262005-01-15 22:18:47 +000020316 vim_free(vimvars[idx].vv_str);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020317 if (val == NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020318 vimvars[idx].vv_str = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020319 else if (len == -1)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020320 vimvars[idx].vv_str = vim_strsave(val);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020321 else
Bram Moolenaare9a41262005-01-15 22:18:47 +000020322 vimvars[idx].vv_str = vim_strnsave(val, len);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020323}
20324
20325/*
Bram Moolenaard812df62008-11-09 12:46:09 +000020326 * Set List v: variable to "val".
20327 */
20328 void
20329set_vim_var_list(idx, val)
20330 int idx;
20331 list_T *val;
20332{
20333 list_unref(vimvars[idx].vv_list);
20334 vimvars[idx].vv_list = val;
20335 if (val != NULL)
20336 ++val->lv_refcount;
20337}
20338
20339/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020340 * Set v:register if needed.
20341 */
20342 void
20343set_reg_var(c)
20344 int c;
20345{
20346 char_u regname;
20347
20348 if (c == 0 || c == ' ')
20349 regname = '"';
20350 else
20351 regname = c;
20352 /* Avoid free/alloc when the value is already right. */
Bram Moolenaare9a41262005-01-15 22:18:47 +000020353 if (vimvars[VV_REG].vv_str == NULL || vimvars[VV_REG].vv_str[0] != c)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020354 set_vim_var_string(VV_REG, &regname, 1);
20355}
20356
20357/*
20358 * Get or set v:exception. If "oldval" == NULL, return the current value.
20359 * Otherwise, restore the value to "oldval" and return NULL.
20360 * Must always be called in pairs to save and restore v:exception! Does not
20361 * take care of memory allocations.
20362 */
20363 char_u *
20364v_exception(oldval)
20365 char_u *oldval;
20366{
20367 if (oldval == NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020368 return vimvars[VV_EXCEPTION].vv_str;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020369
Bram Moolenaare9a41262005-01-15 22:18:47 +000020370 vimvars[VV_EXCEPTION].vv_str = oldval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020371 return NULL;
20372}
20373
20374/*
20375 * Get or set v:throwpoint. If "oldval" == NULL, return the current value.
20376 * Otherwise, restore the value to "oldval" and return NULL.
20377 * Must always be called in pairs to save and restore v:throwpoint! Does not
20378 * take care of memory allocations.
20379 */
20380 char_u *
20381v_throwpoint(oldval)
20382 char_u *oldval;
20383{
20384 if (oldval == NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020385 return vimvars[VV_THROWPOINT].vv_str;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020386
Bram Moolenaare9a41262005-01-15 22:18:47 +000020387 vimvars[VV_THROWPOINT].vv_str = oldval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020388 return NULL;
20389}
20390
20391#if defined(FEAT_AUTOCMD) || defined(PROTO)
20392/*
20393 * Set v:cmdarg.
20394 * If "eap" != NULL, use "eap" to generate the value and return the old value.
20395 * If "oldarg" != NULL, restore the value to "oldarg" and return NULL.
20396 * Must always be called in pairs!
20397 */
20398 char_u *
20399set_cmdarg(eap, oldarg)
20400 exarg_T *eap;
20401 char_u *oldarg;
20402{
20403 char_u *oldval;
20404 char_u *newval;
20405 unsigned len;
20406
Bram Moolenaare9a41262005-01-15 22:18:47 +000020407 oldval = vimvars[VV_CMDARG].vv_str;
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020408 if (eap == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020409 {
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020410 vim_free(oldval);
Bram Moolenaare9a41262005-01-15 22:18:47 +000020411 vimvars[VV_CMDARG].vv_str = oldarg;
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020412 return NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020413 }
20414
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020415 if (eap->force_bin == FORCE_BIN)
20416 len = 6;
20417 else if (eap->force_bin == FORCE_NOBIN)
20418 len = 8;
20419 else
20420 len = 0;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000020421
20422 if (eap->read_edit)
20423 len += 7;
20424
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020425 if (eap->force_ff != 0)
20426 len += (unsigned)STRLEN(eap->cmd + eap->force_ff) + 6;
20427# ifdef FEAT_MBYTE
20428 if (eap->force_enc != 0)
20429 len += (unsigned)STRLEN(eap->cmd + eap->force_enc) + 7;
Bram Moolenaar34b4daf2010-05-16 13:26:25 +020020430 if (eap->bad_char != 0)
20431 len += 7 + 4; /* " ++bad=" + "keep" or "drop" */
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020432# endif
20433
20434 newval = alloc(len + 1);
20435 if (newval == NULL)
20436 return NULL;
20437
20438 if (eap->force_bin == FORCE_BIN)
20439 sprintf((char *)newval, " ++bin");
20440 else if (eap->force_bin == FORCE_NOBIN)
20441 sprintf((char *)newval, " ++nobin");
20442 else
20443 *newval = NUL;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000020444
20445 if (eap->read_edit)
20446 STRCAT(newval, " ++edit");
20447
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020448 if (eap->force_ff != 0)
20449 sprintf((char *)newval + STRLEN(newval), " ++ff=%s",
20450 eap->cmd + eap->force_ff);
20451# ifdef FEAT_MBYTE
20452 if (eap->force_enc != 0)
20453 sprintf((char *)newval + STRLEN(newval), " ++enc=%s",
20454 eap->cmd + eap->force_enc);
Bram Moolenaar34b4daf2010-05-16 13:26:25 +020020455 if (eap->bad_char == BAD_KEEP)
20456 STRCPY(newval + STRLEN(newval), " ++bad=keep");
20457 else if (eap->bad_char == BAD_DROP)
20458 STRCPY(newval + STRLEN(newval), " ++bad=drop");
20459 else if (eap->bad_char != 0)
20460 sprintf((char *)newval + STRLEN(newval), " ++bad=%c", eap->bad_char);
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020461# endif
Bram Moolenaare9a41262005-01-15 22:18:47 +000020462 vimvars[VV_CMDARG].vv_str = newval;
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020463 return oldval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020464}
20465#endif
20466
20467/*
20468 * Get the value of internal variable "name".
20469 * Return OK or FAIL.
20470 */
20471 static int
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020472get_var_tv(name, len, rettv, verbose, no_autoload)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020473 char_u *name;
20474 int len; /* length of "name" */
Bram Moolenaar33570922005-01-25 22:26:29 +000020475 typval_T *rettv; /* NULL when only checking existence */
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020476 int verbose; /* may give error message */
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020477 int no_autoload; /* do not use script autoloading */
Bram Moolenaar071d4272004-06-13 20:20:40 +000020478{
20479 int ret = OK;
Bram Moolenaar33570922005-01-25 22:26:29 +000020480 typval_T *tv = NULL;
20481 typval_T atv;
20482 dictitem_T *v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020483 int cc;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020484
20485 /* truncate the name, so that we can use strcmp() */
20486 cc = name[len];
20487 name[len] = NUL;
20488
20489 /*
20490 * Check for "b:changedtick".
20491 */
20492 if (STRCMP(name, "b:changedtick") == 0)
20493 {
Bram Moolenaare9a41262005-01-15 22:18:47 +000020494 atv.v_type = VAR_NUMBER;
20495 atv.vval.v_number = curbuf->b_changedtick;
20496 tv = &atv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020497 }
20498
20499 /*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020500 * Check for user-defined variables.
20501 */
20502 else
20503 {
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020504 v = find_var(name, NULL, no_autoload);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020505 if (v != NULL)
Bram Moolenaar33570922005-01-25 22:26:29 +000020506 tv = &v->di_tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020507 }
20508
Bram Moolenaare9a41262005-01-15 22:18:47 +000020509 if (tv == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020510 {
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020511 if (rettv != NULL && verbose)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020512 EMSG2(_(e_undefvar), name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020513 ret = FAIL;
20514 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020515 else if (rettv != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000020516 copy_tv(tv, rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020517
20518 name[len] = cc;
20519
20520 return ret;
20521}
20522
20523/*
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020524 * Handle expr[expr], expr[expr:expr] subscript and .name lookup.
20525 * Also handle function call with Funcref variable: func(expr)
20526 * Can all be combined: dict.func(expr)[idx]['func'](expr)
20527 */
20528 static int
20529handle_subscript(arg, rettv, evaluate, verbose)
20530 char_u **arg;
20531 typval_T *rettv;
20532 int evaluate; /* do more than finding the end */
20533 int verbose; /* give error messages */
20534{
20535 int ret = OK;
20536 dict_T *selfdict = NULL;
20537 char_u *s;
20538 int len;
Bram Moolenaard9fba312005-06-26 22:34:35 +000020539 typval_T functv;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020540
20541 while (ret == OK
20542 && (**arg == '['
20543 || (**arg == '.' && rettv->v_type == VAR_DICT)
Bram Moolenaar0f8de8d2013-11-11 04:25:53 +010020544 || (**arg == '(' && (!evaluate || rettv->v_type == VAR_FUNC)))
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020545 && !vim_iswhite(*(*arg - 1)))
20546 {
20547 if (**arg == '(')
20548 {
Bram Moolenaard9fba312005-06-26 22:34:35 +000020549 /* need to copy the funcref so that we can clear rettv */
Bram Moolenaar0f8de8d2013-11-11 04:25:53 +010020550 if (evaluate)
20551 {
20552 functv = *rettv;
20553 rettv->v_type = VAR_UNKNOWN;
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020554
Bram Moolenaar0f8de8d2013-11-11 04:25:53 +010020555 /* Invoke the function. Recursive! */
20556 s = functv.vval.v_string;
20557 }
20558 else
20559 s = (char_u *)"";
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000020560 ret = get_func_tv(s, (int)STRLEN(s), rettv, arg,
Bram Moolenaard9fba312005-06-26 22:34:35 +000020561 curwin->w_cursor.lnum, curwin->w_cursor.lnum,
20562 &len, evaluate, selfdict);
20563
20564 /* Clear the funcref afterwards, so that deleting it while
20565 * evaluating the arguments is possible (see test55). */
Bram Moolenaar0f8de8d2013-11-11 04:25:53 +010020566 if (evaluate)
20567 clear_tv(&functv);
Bram Moolenaar2a8d1f82005-02-05 21:43:56 +000020568
20569 /* Stop the expression evaluation when immediately aborting on
20570 * error, or when an interrupt occurred or an exception was thrown
20571 * but not caught. */
20572 if (aborting())
20573 {
20574 if (ret == OK)
20575 clear_tv(rettv);
20576 ret = FAIL;
20577 }
20578 dict_unref(selfdict);
20579 selfdict = NULL;
20580 }
20581 else /* **arg == '[' || **arg == '.' */
20582 {
20583 dict_unref(selfdict);
20584 if (rettv->v_type == VAR_DICT)
20585 {
20586 selfdict = rettv->vval.v_dict;
20587 if (selfdict != NULL)
20588 ++selfdict->dv_refcount;
20589 }
20590 else
20591 selfdict = NULL;
20592 if (eval_index(arg, rettv, evaluate, verbose) == FAIL)
20593 {
20594 clear_tv(rettv);
20595 ret = FAIL;
20596 }
20597 }
20598 }
20599 dict_unref(selfdict);
20600 return ret;
20601}
20602
20603/*
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020604 * Allocate memory for a variable type-value, and make it empty (0 or NULL
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020605 * value).
20606 */
Bram Moolenaar33570922005-01-25 22:26:29 +000020607 static typval_T *
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020608alloc_tv()
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020609{
Bram Moolenaar33570922005-01-25 22:26:29 +000020610 return (typval_T *)alloc_clear((unsigned)sizeof(typval_T));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020611}
20612
20613/*
20614 * Allocate memory for a variable type-value, and assign a string to it.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020615 * The string "s" must have been allocated, it is consumed.
20616 * Return NULL for out of memory, the variable otherwise.
20617 */
Bram Moolenaar33570922005-01-25 22:26:29 +000020618 static typval_T *
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020619alloc_string_tv(s)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020620 char_u *s;
20621{
Bram Moolenaar33570922005-01-25 22:26:29 +000020622 typval_T *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020623
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020624 rettv = alloc_tv();
20625 if (rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020626 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020627 rettv->v_type = VAR_STRING;
20628 rettv->vval.v_string = s;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020629 }
20630 else
20631 vim_free(s);
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020632 return rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020633}
20634
20635/*
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020636 * Free the memory for a variable type-value.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020637 */
Bram Moolenaar4770d092006-01-12 23:22:24 +000020638 void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020639free_tv(varp)
Bram Moolenaar33570922005-01-25 22:26:29 +000020640 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020641{
20642 if (varp != NULL)
20643 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020644 switch (varp->v_type)
20645 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020646 case VAR_FUNC:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020647 func_unref(varp->vval.v_string);
20648 /*FALLTHROUGH*/
20649 case VAR_STRING:
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020650 vim_free(varp->vval.v_string);
20651 break;
20652 case VAR_LIST:
20653 list_unref(varp->vval.v_list);
20654 break;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020655 case VAR_DICT:
20656 dict_unref(varp->vval.v_dict);
20657 break;
Bram Moolenaar758711c2005-02-02 23:11:38 +000020658 case VAR_NUMBER:
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020659#ifdef FEAT_FLOAT
20660 case VAR_FLOAT:
20661#endif
Bram Moolenaar758711c2005-02-02 23:11:38 +000020662 case VAR_UNKNOWN:
20663 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020664 default:
Bram Moolenaar758711c2005-02-02 23:11:38 +000020665 EMSG2(_(e_intern2), "free_tv()");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020666 break;
20667 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000020668 vim_free(varp);
20669 }
20670}
20671
20672/*
20673 * Free the memory for a variable value and set the value to NULL or 0.
20674 */
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000020675 void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020676clear_tv(varp)
Bram Moolenaar33570922005-01-25 22:26:29 +000020677 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020678{
20679 if (varp != NULL)
20680 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020681 switch (varp->v_type)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020682 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020683 case VAR_FUNC:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020684 func_unref(varp->vval.v_string);
20685 /*FALLTHROUGH*/
20686 case VAR_STRING:
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020687 vim_free(varp->vval.v_string);
20688 varp->vval.v_string = NULL;
20689 break;
20690 case VAR_LIST:
20691 list_unref(varp->vval.v_list);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000020692 varp->vval.v_list = NULL;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020693 break;
Bram Moolenaar8c711452005-01-14 21:53:12 +000020694 case VAR_DICT:
20695 dict_unref(varp->vval.v_dict);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000020696 varp->vval.v_dict = NULL;
Bram Moolenaar8c711452005-01-14 21:53:12 +000020697 break;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020698 case VAR_NUMBER:
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020699 varp->vval.v_number = 0;
20700 break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020701#ifdef FEAT_FLOAT
20702 case VAR_FLOAT:
20703 varp->vval.v_float = 0.0;
20704 break;
20705#endif
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020706 case VAR_UNKNOWN:
20707 break;
20708 default:
20709 EMSG2(_(e_intern2), "clear_tv()");
Bram Moolenaar071d4272004-06-13 20:20:40 +000020710 }
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000020711 varp->v_lock = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020712 }
20713}
20714
20715/*
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020716 * Set the value of a variable to NULL without freeing items.
20717 */
20718 static void
20719init_tv(varp)
Bram Moolenaar33570922005-01-25 22:26:29 +000020720 typval_T *varp;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020721{
20722 if (varp != NULL)
Bram Moolenaar33570922005-01-25 22:26:29 +000020723 vim_memset(varp, 0, sizeof(typval_T));
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020724}
20725
20726/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020727 * Get the number value of a variable.
20728 * If it is a String variable, uses vim_str2nr().
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020729 * For incompatible types, return 0.
20730 * get_tv_number_chk() is similar to get_tv_number(), but informs the
20731 * caller of incompatible types: it sets *denote to TRUE if "denote"
20732 * is not NULL or returns -1 otherwise.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020733 */
20734 static long
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020735get_tv_number(varp)
Bram Moolenaar33570922005-01-25 22:26:29 +000020736 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020737{
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020738 int error = FALSE;
20739
20740 return get_tv_number_chk(varp, &error); /* return 0L on error */
20741}
20742
Bram Moolenaar4be06f92005-07-29 22:36:03 +000020743 long
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020744get_tv_number_chk(varp, denote)
20745 typval_T *varp;
20746 int *denote;
20747{
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020748 long n = 0L;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020749
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020750 switch (varp->v_type)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020751 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020752 case VAR_NUMBER:
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020753 return (long)(varp->vval.v_number);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020754#ifdef FEAT_FLOAT
20755 case VAR_FLOAT:
Bram Moolenaared0e7452008-06-27 19:17:34 +000020756 EMSG(_("E805: Using a Float as a Number"));
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020757 break;
20758#endif
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020759 case VAR_FUNC:
Bram Moolenaared0e7452008-06-27 19:17:34 +000020760 EMSG(_("E703: Using a Funcref as a Number"));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020761 break;
20762 case VAR_STRING:
20763 if (varp->vval.v_string != NULL)
20764 vim_str2nr(varp->vval.v_string, NULL, NULL,
20765 TRUE, TRUE, &n, NULL);
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020766 return n;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000020767 case VAR_LIST:
Bram Moolenaared0e7452008-06-27 19:17:34 +000020768 EMSG(_("E745: Using a List as a Number"));
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000020769 break;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020770 case VAR_DICT:
Bram Moolenaared0e7452008-06-27 19:17:34 +000020771 EMSG(_("E728: Using a Dictionary as a Number"));
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020772 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020773 default:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020774 EMSG2(_(e_intern2), "get_tv_number()");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020775 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020776 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020777 if (denote == NULL) /* useful for values that must be unsigned */
20778 n = -1;
20779 else
20780 *denote = TRUE;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020781 return n;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020782}
20783
20784/*
Bram Moolenaar661b1822005-07-28 22:36:45 +000020785 * Get the lnum from the first argument.
20786 * Also accepts ".", "$", etc., but that only works for the current buffer.
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020787 * Returns -1 on error.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020788 */
20789 static linenr_T
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020790get_tv_lnum(argvars)
Bram Moolenaar33570922005-01-25 22:26:29 +000020791 typval_T *argvars;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020792{
Bram Moolenaar33570922005-01-25 22:26:29 +000020793 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020794 linenr_T lnum;
20795
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020796 lnum = get_tv_number_chk(&argvars[0], NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020797 if (lnum == 0) /* no valid number, try using line() */
20798 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020799 rettv.v_type = VAR_NUMBER;
20800 f_line(argvars, &rettv);
20801 lnum = rettv.vval.v_number;
20802 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020803 }
20804 return lnum;
20805}
20806
20807/*
Bram Moolenaar661b1822005-07-28 22:36:45 +000020808 * Get the lnum from the first argument.
20809 * Also accepts "$", then "buf" is used.
20810 * Returns 0 on error.
20811 */
20812 static linenr_T
20813get_tv_lnum_buf(argvars, buf)
20814 typval_T *argvars;
20815 buf_T *buf;
20816{
20817 if (argvars[0].v_type == VAR_STRING
20818 && argvars[0].vval.v_string != NULL
20819 && argvars[0].vval.v_string[0] == '$'
20820 && buf != NULL)
20821 return buf->b_ml.ml_line_count;
20822 return get_tv_number_chk(&argvars[0], NULL);
20823}
20824
20825/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000020826 * Get the string value of a variable.
20827 * If it is a Number variable, the number is converted into a string.
Bram Moolenaara7043832005-01-21 11:56:39 +000020828 * get_tv_string() uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
20829 * get_tv_string_buf() uses a given buffer.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020830 * If the String variable has never been set, return an empty string.
20831 * Never returns NULL;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020832 * get_tv_string_chk() and get_tv_string_buf_chk() are similar, but return
20833 * NULL on error.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020834 */
20835 static char_u *
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020836get_tv_string(varp)
Bram Moolenaar33570922005-01-25 22:26:29 +000020837 typval_T *varp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020838{
20839 static char_u mybuf[NUMBUFLEN];
20840
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020841 return get_tv_string_buf(varp, mybuf);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020842}
20843
20844 static char_u *
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020845get_tv_string_buf(varp, buf)
Bram Moolenaar33570922005-01-25 22:26:29 +000020846 typval_T *varp;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020847 char_u *buf;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020848{
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020849 char_u *res = get_tv_string_buf_chk(varp, buf);
20850
20851 return res != NULL ? res : (char_u *)"";
20852}
20853
Bram Moolenaar7d647822014-04-05 21:28:56 +020020854/*
20855 * Careful: This uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
20856 */
Bram Moolenaar4be06f92005-07-29 22:36:03 +000020857 char_u *
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020858get_tv_string_chk(varp)
20859 typval_T *varp;
20860{
20861 static char_u mybuf[NUMBUFLEN];
20862
20863 return get_tv_string_buf_chk(varp, mybuf);
20864}
20865
20866 static char_u *
20867get_tv_string_buf_chk(varp, buf)
20868 typval_T *varp;
20869 char_u *buf;
20870{
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020871 switch (varp->v_type)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020872 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020873 case VAR_NUMBER:
20874 sprintf((char *)buf, "%ld", (long)varp->vval.v_number);
20875 return buf;
20876 case VAR_FUNC:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020877 EMSG(_("E729: using Funcref as a String"));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020878 break;
20879 case VAR_LIST:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020880 EMSG(_("E730: using List as a String"));
Bram Moolenaar8c711452005-01-14 21:53:12 +000020881 break;
20882 case VAR_DICT:
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000020883 EMSG(_("E731: using Dictionary as a String"));
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020884 break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020885#ifdef FEAT_FLOAT
20886 case VAR_FLOAT:
Bram Moolenaar2a876e42013-06-12 22:08:58 +020020887 EMSG(_(e_float_as_string));
Bram Moolenaar8c8de832008-06-24 22:58:06 +000020888 break;
20889#endif
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020890 case VAR_STRING:
20891 if (varp->vval.v_string != NULL)
20892 return varp->vval.v_string;
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020893 return (char_u *)"";
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020894 default:
Bram Moolenaarc70646c2005-01-04 21:52:38 +000020895 EMSG2(_(e_intern2), "get_tv_string_buf()");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020896 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020897 }
Bram Moolenaar9ba0eb82005-06-13 22:28:56 +000020898 return NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020899}
20900
20901/*
20902 * Find variable "name" in the list of variables.
20903 * Return a pointer to it if found, NULL if not found.
Bram Moolenaar49cd9572005-01-03 21:06:01 +000020904 * Careful: "a:0" variables don't have a name.
Bram Moolenaara7043832005-01-21 11:56:39 +000020905 * When "htp" is not NULL we are writing to the variable, set "htp" to the
Bram Moolenaar33570922005-01-25 22:26:29 +000020906 * hashtab_T used.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020907 */
Bram Moolenaar33570922005-01-25 22:26:29 +000020908 static dictitem_T *
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020909find_var(name, htp, no_autoload)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020910 char_u *name;
Bram Moolenaar33570922005-01-25 22:26:29 +000020911 hashtab_T **htp;
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020912 int no_autoload;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020913{
Bram Moolenaar071d4272004-06-13 20:20:40 +000020914 char_u *varname;
Bram Moolenaar33570922005-01-25 22:26:29 +000020915 hashtab_T *ht;
Bram Moolenaar071d4272004-06-13 20:20:40 +000020916
Bram Moolenaara7043832005-01-21 11:56:39 +000020917 ht = find_var_ht(name, &varname);
20918 if (htp != NULL)
20919 *htp = ht;
20920 if (ht == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020921 return NULL;
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020922 return find_var_in_ht(ht, *name, varname, no_autoload || htp != NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +000020923}
20924
20925/*
Bram Moolenaar332ac062013-04-15 13:06:21 +020020926 * Find variable "varname" in hashtab "ht" with name "htname".
Bram Moolenaara7043832005-01-21 11:56:39 +000020927 * Returns NULL if not found.
Bram Moolenaar071d4272004-06-13 20:20:40 +000020928 */
Bram Moolenaar33570922005-01-25 22:26:29 +000020929 static dictitem_T *
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020930find_var_in_ht(ht, htname, varname, no_autoload)
Bram Moolenaar33570922005-01-25 22:26:29 +000020931 hashtab_T *ht;
Bram Moolenaar332ac062013-04-15 13:06:21 +020020932 int htname;
Bram Moolenaara7043832005-01-21 11:56:39 +000020933 char_u *varname;
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020934 int no_autoload;
Bram Moolenaara7043832005-01-21 11:56:39 +000020935{
Bram Moolenaar33570922005-01-25 22:26:29 +000020936 hashitem_T *hi;
20937
20938 if (*varname == NUL)
20939 {
20940 /* Must be something like "s:", otherwise "ht" would be NULL. */
Bram Moolenaar332ac062013-04-15 13:06:21 +020020941 switch (htname)
Bram Moolenaar33570922005-01-25 22:26:29 +000020942 {
Bram Moolenaar9577c3e2010-05-14 12:16:25 +020020943 case 's': return &SCRIPT_SV(current_SID)->sv_var;
Bram Moolenaar33570922005-01-25 22:26:29 +000020944 case 'g': return &globvars_var;
20945 case 'v': return &vimvars_var;
20946 case 'b': return &curbuf->b_bufvar;
20947 case 'w': return &curwin->w_winvar;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000020948#ifdef FEAT_WINDOWS
20949 case 't': return &curtab->tp_winvar;
20950#endif
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000020951 case 'l': return current_funccal == NULL
20952 ? NULL : &current_funccal->l_vars_var;
20953 case 'a': return current_funccal == NULL
20954 ? NULL : &current_funccal->l_avars_var;
Bram Moolenaar33570922005-01-25 22:26:29 +000020955 }
20956 return NULL;
20957 }
Bram Moolenaara7043832005-01-21 11:56:39 +000020958
20959 hi = hash_find(ht, varname);
20960 if (HASHITEM_EMPTY(hi))
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000020961 {
20962 /* For global variables we may try auto-loading the script. If it
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000020963 * worked find the variable again. Don't auto-load a script if it was
20964 * loaded already, otherwise it would be loaded every time when
20965 * checking if a function name is a Funcref variable. */
Bram Moolenaar6d977d62014-01-14 15:24:39 +010020966 if (ht == &globvarht && !no_autoload)
Bram Moolenaar8000baf2011-11-30 15:19:28 +010020967 {
20968 /* Note: script_autoload() may make "hi" invalid. It must either
20969 * be obtained again or not used. */
20970 if (!script_autoload(varname, FALSE) || aborting())
20971 return NULL;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000020972 hi = hash_find(ht, varname);
Bram Moolenaar8000baf2011-11-30 15:19:28 +010020973 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000020974 if (HASHITEM_EMPTY(hi))
20975 return NULL;
20976 }
Bram Moolenaar33570922005-01-25 22:26:29 +000020977 return HI2DI(hi);
Bram Moolenaara7043832005-01-21 11:56:39 +000020978}
20979
20980/*
Bram Moolenaar33570922005-01-25 22:26:29 +000020981 * Find the hashtab used for a variable name.
Bram Moolenaara7043832005-01-21 11:56:39 +000020982 * Set "varname" to the start of name without ':'.
20983 */
Bram Moolenaar33570922005-01-25 22:26:29 +000020984 static hashtab_T *
Bram Moolenaara7043832005-01-21 11:56:39 +000020985find_var_ht(name, varname)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020986 char_u *name;
20987 char_u **varname;
20988{
Bram Moolenaar75c50c42005-06-04 22:06:24 +000020989 hashitem_T *hi;
20990
Bram Moolenaar071d4272004-06-13 20:20:40 +000020991 if (name[1] != ':')
20992 {
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000020993 /* The name must not start with a colon or #. */
20994 if (name[0] == ':' || name[0] == AUTOLOAD_CHAR)
Bram Moolenaar071d4272004-06-13 20:20:40 +000020995 return NULL;
20996 *varname = name;
Bram Moolenaar532c7802005-01-27 14:44:31 +000020997
20998 /* "version" is "v:version" in all scopes */
Bram Moolenaar75c50c42005-06-04 22:06:24 +000020999 hi = hash_find(&compat_hashtab, name);
21000 if (!HASHITEM_EMPTY(hi))
Bram Moolenaar532c7802005-01-27 14:44:31 +000021001 return &compat_hashtab;
21002
Bram Moolenaar071d4272004-06-13 20:20:40 +000021003 if (current_funccal == NULL)
Bram Moolenaar33570922005-01-25 22:26:29 +000021004 return &globvarht; /* global variable */
21005 return &current_funccal->l_vars.dv_hashtab; /* l: variable */
Bram Moolenaar071d4272004-06-13 20:20:40 +000021006 }
21007 *varname = name + 2;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000021008 if (*name == 'g') /* global variable */
21009 return &globvarht;
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000021010 /* There must be no ':' or '#' in the rest of the name, unless g: is used
21011 */
21012 if (vim_strchr(name + 2, ':') != NULL
21013 || vim_strchr(name + 2, AUTOLOAD_CHAR) != NULL)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000021014 return NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021015 if (*name == 'b') /* buffer variable */
Bram Moolenaar429fa852013-04-15 12:27:36 +020021016 return &curbuf->b_vars->dv_hashtab;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021017 if (*name == 'w') /* window variable */
Bram Moolenaar429fa852013-04-15 12:27:36 +020021018 return &curwin->w_vars->dv_hashtab;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000021019#ifdef FEAT_WINDOWS
21020 if (*name == 't') /* tab page variable */
Bram Moolenaar429fa852013-04-15 12:27:36 +020021021 return &curtab->tp_vars->dv_hashtab;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000021022#endif
Bram Moolenaar33570922005-01-25 22:26:29 +000021023 if (*name == 'v') /* v: variable */
21024 return &vimvarht;
21025 if (*name == 'a' && current_funccal != NULL) /* function argument */
21026 return &current_funccal->l_avars.dv_hashtab;
21027 if (*name == 'l' && current_funccal != NULL) /* local function variable */
21028 return &current_funccal->l_vars.dv_hashtab;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021029 if (*name == 's' /* script variable */
21030 && current_SID > 0 && current_SID <= ga_scripts.ga_len)
21031 return &SCRIPT_VARS(current_SID);
21032 return NULL;
21033}
21034
21035/*
21036 * Get the string value of a (global/local) variable.
Bram Moolenaar1950c352010-06-06 15:21:10 +020021037 * Note: see get_tv_string() for how long the pointer remains valid.
Bram Moolenaar071d4272004-06-13 20:20:40 +000021038 * Returns NULL when it doesn't exist.
21039 */
21040 char_u *
21041get_var_value(name)
21042 char_u *name;
21043{
Bram Moolenaar33570922005-01-25 22:26:29 +000021044 dictitem_T *v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021045
Bram Moolenaar6d977d62014-01-14 15:24:39 +010021046 v = find_var(name, NULL, FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021047 if (v == NULL)
21048 return NULL;
Bram Moolenaar33570922005-01-25 22:26:29 +000021049 return get_tv_string(&v->di_tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021050}
21051
21052/*
Bram Moolenaar33570922005-01-25 22:26:29 +000021053 * Allocate a new hashtab for a sourced script. It will be used while
Bram Moolenaar071d4272004-06-13 20:20:40 +000021054 * sourcing this script and when executing functions defined in the script.
21055 */
21056 void
21057new_script_vars(id)
21058 scid_T id;
21059{
Bram Moolenaara7043832005-01-21 11:56:39 +000021060 int i;
Bram Moolenaar33570922005-01-25 22:26:29 +000021061 hashtab_T *ht;
21062 scriptvar_T *sv;
Bram Moolenaara7043832005-01-21 11:56:39 +000021063
Bram Moolenaar071d4272004-06-13 20:20:40 +000021064 if (ga_grow(&ga_scripts, (int)(id - ga_scripts.ga_len)) == OK)
21065 {
Bram Moolenaara7043832005-01-21 11:56:39 +000021066 /* Re-allocating ga_data means that an ht_array pointing to
21067 * ht_smallarray becomes invalid. We can recognize this: ht_mask is
Bram Moolenaar33570922005-01-25 22:26:29 +000021068 * at its init value. Also reset "v_dict", it's always the same. */
Bram Moolenaara7043832005-01-21 11:56:39 +000021069 for (i = 1; i <= ga_scripts.ga_len; ++i)
21070 {
21071 ht = &SCRIPT_VARS(i);
21072 if (ht->ht_mask == HT_INIT_SIZE - 1)
21073 ht->ht_array = ht->ht_smallarray;
Bram Moolenaar9577c3e2010-05-14 12:16:25 +020021074 sv = SCRIPT_SV(i);
Bram Moolenaar33570922005-01-25 22:26:29 +000021075 sv->sv_var.di_tv.vval.v_dict = &sv->sv_dict;
Bram Moolenaara7043832005-01-21 11:56:39 +000021076 }
21077
Bram Moolenaar071d4272004-06-13 20:20:40 +000021078 while (ga_scripts.ga_len < id)
21079 {
Bram Moolenaar2c704a72010-06-03 21:17:25 +020021080 sv = SCRIPT_SV(ga_scripts.ga_len + 1) =
Bram Moolenaar9577c3e2010-05-14 12:16:25 +020021081 (scriptvar_T *)alloc_clear(sizeof(scriptvar_T));
Bram Moolenaarbdb62052012-07-16 17:31:53 +020021082 init_var_dict(&sv->sv_dict, &sv->sv_var, VAR_SCOPE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021083 ++ga_scripts.ga_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021084 }
21085 }
21086}
21087
21088/*
Bram Moolenaar33570922005-01-25 22:26:29 +000021089 * Initialize dictionary "dict" as a scope and set variable "dict_var" to
21090 * point to it.
Bram Moolenaar071d4272004-06-13 20:20:40 +000021091 */
21092 void
Bram Moolenaarbdb62052012-07-16 17:31:53 +020021093init_var_dict(dict, dict_var, scope)
Bram Moolenaar33570922005-01-25 22:26:29 +000021094 dict_T *dict;
21095 dictitem_T *dict_var;
Bram Moolenaarbdb62052012-07-16 17:31:53 +020021096 int scope;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021097{
Bram Moolenaar33570922005-01-25 22:26:29 +000021098 hash_init(&dict->dv_hashtab);
Bram Moolenaared465602012-06-20 14:13:06 +020021099 dict->dv_lock = 0;
Bram Moolenaarbdb62052012-07-16 17:31:53 +020021100 dict->dv_scope = scope;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000021101 dict->dv_refcount = DO_NOT_FREE_CNT;
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +000021102 dict->dv_copyID = 0;
Bram Moolenaar33570922005-01-25 22:26:29 +000021103 dict_var->di_tv.vval.v_dict = dict;
21104 dict_var->di_tv.v_type = VAR_DICT;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021105 dict_var->di_tv.v_lock = VAR_FIXED;
Bram Moolenaar33570922005-01-25 22:26:29 +000021106 dict_var->di_flags = DI_FLAGS_RO | DI_FLAGS_FIX;
21107 dict_var->di_key[0] = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021108}
21109
21110/*
Bram Moolenaar429fa852013-04-15 12:27:36 +020021111 * Unreference a dictionary initialized by init_var_dict().
21112 */
21113 void
21114unref_var_dict(dict)
21115 dict_T *dict;
21116{
21117 /* Now the dict needs to be freed if no one else is using it, go back to
21118 * normal reference counting. */
21119 dict->dv_refcount -= DO_NOT_FREE_CNT - 1;
21120 dict_unref(dict);
21121}
21122
21123/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000021124 * Clean up a list of internal variables.
Bram Moolenaar33570922005-01-25 22:26:29 +000021125 * Frees all allocated variables and the value they contain.
21126 * Clears hashtab "ht", does not free it.
Bram Moolenaar071d4272004-06-13 20:20:40 +000021127 */
21128 void
Bram Moolenaara7043832005-01-21 11:56:39 +000021129vars_clear(ht)
Bram Moolenaar33570922005-01-25 22:26:29 +000021130 hashtab_T *ht;
21131{
21132 vars_clear_ext(ht, TRUE);
21133}
21134
21135/*
21136 * Like vars_clear(), but only free the value if "free_val" is TRUE.
21137 */
21138 static void
21139vars_clear_ext(ht, free_val)
21140 hashtab_T *ht;
21141 int free_val;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021142{
Bram Moolenaara7043832005-01-21 11:56:39 +000021143 int todo;
Bram Moolenaar33570922005-01-25 22:26:29 +000021144 hashitem_T *hi;
21145 dictitem_T *v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021146
Bram Moolenaar33570922005-01-25 22:26:29 +000021147 hash_lock(ht);
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000021148 todo = (int)ht->ht_used;
Bram Moolenaara7043832005-01-21 11:56:39 +000021149 for (hi = ht->ht_array; todo > 0; ++hi)
21150 {
21151 if (!HASHITEM_EMPTY(hi))
21152 {
21153 --todo;
21154
Bram Moolenaar33570922005-01-25 22:26:29 +000021155 /* Free the variable. Don't remove it from the hashtab,
Bram Moolenaara7043832005-01-21 11:56:39 +000021156 * ht_array might change then. hash_clear() takes care of it
21157 * later. */
Bram Moolenaar33570922005-01-25 22:26:29 +000021158 v = HI2DI(hi);
21159 if (free_val)
21160 clear_tv(&v->di_tv);
21161 if ((v->di_flags & DI_FLAGS_FIX) == 0)
21162 vim_free(v);
Bram Moolenaara7043832005-01-21 11:56:39 +000021163 }
21164 }
21165 hash_clear(ht);
Bram Moolenaar9a50b1b2005-06-27 22:48:21 +000021166 ht->ht_used = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021167}
21168
Bram Moolenaara7043832005-01-21 11:56:39 +000021169/*
Bram Moolenaar33570922005-01-25 22:26:29 +000021170 * Delete a variable from hashtab "ht" at item "hi".
21171 * Clear the variable value and free the dictitem.
Bram Moolenaara7043832005-01-21 11:56:39 +000021172 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000021173 static void
Bram Moolenaara7043832005-01-21 11:56:39 +000021174delete_var(ht, hi)
Bram Moolenaar33570922005-01-25 22:26:29 +000021175 hashtab_T *ht;
21176 hashitem_T *hi;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021177{
Bram Moolenaar33570922005-01-25 22:26:29 +000021178 dictitem_T *di = HI2DI(hi);
Bram Moolenaara7043832005-01-21 11:56:39 +000021179
21180 hash_remove(ht, hi);
Bram Moolenaar33570922005-01-25 22:26:29 +000021181 clear_tv(&di->di_tv);
21182 vim_free(di);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021183}
21184
21185/*
21186 * List the value of one internal variable.
21187 */
21188 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021189list_one_var(v, prefix, first)
Bram Moolenaar33570922005-01-25 22:26:29 +000021190 dictitem_T *v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021191 char_u *prefix;
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021192 int *first;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021193{
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021194 char_u *tofree;
21195 char_u *s;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000021196 char_u numbuf[NUMBUFLEN];
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021197
Bram Moolenaar2c2398c2009-06-03 11:22:45 +000021198 current_copyID += COPYID_INC;
21199 s = echo_string(&v->di_tv, &tofree, numbuf, current_copyID);
Bram Moolenaar33570922005-01-25 22:26:29 +000021200 list_one_var_a(prefix, v->di_key, v->di_tv.v_type,
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021201 s == NULL ? (char_u *)"" : s, first);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021202 vim_free(tofree);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021203}
21204
Bram Moolenaar071d4272004-06-13 20:20:40 +000021205 static void
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021206list_one_var_a(prefix, name, type, string, first)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021207 char_u *prefix;
21208 char_u *name;
21209 int type;
21210 char_u *string;
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021211 int *first; /* when TRUE clear rest of screen and set to FALSE */
Bram Moolenaar071d4272004-06-13 20:20:40 +000021212{
Bram Moolenaar31859182007-08-14 20:41:13 +000021213 /* don't use msg() or msg_attr() to avoid overwriting "v:statusmsg" */
21214 msg_start();
21215 msg_puts(prefix);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021216 if (name != NULL) /* "a:" vars don't have a name stored */
21217 msg_puts(name);
21218 msg_putchar(' ');
21219 msg_advance(22);
21220 if (type == VAR_NUMBER)
21221 msg_putchar('#');
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021222 else if (type == VAR_FUNC)
21223 msg_putchar('*');
21224 else if (type == VAR_LIST)
21225 {
21226 msg_putchar('[');
21227 if (*string == '[')
21228 ++string;
21229 }
Bram Moolenaar8c711452005-01-14 21:53:12 +000021230 else if (type == VAR_DICT)
21231 {
21232 msg_putchar('{');
21233 if (*string == '{')
21234 ++string;
21235 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021236 else
21237 msg_putchar(' ');
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021238
Bram Moolenaar071d4272004-06-13 20:20:40 +000021239 msg_outtrans(string);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021240
21241 if (type == VAR_FUNC)
21242 msg_puts((char_u *)"()");
Bram Moolenaar7d61a922007-08-30 09:12:23 +000021243 if (*first)
21244 {
21245 msg_clr_eos();
21246 *first = FALSE;
21247 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021248}
21249
21250/*
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021251 * Set variable "name" to value in "tv".
Bram Moolenaar071d4272004-06-13 20:20:40 +000021252 * If the variable already exists, the value is updated.
21253 * Otherwise the variable is created.
21254 */
21255 static void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021256set_var(name, tv, copy)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021257 char_u *name;
Bram Moolenaar33570922005-01-25 22:26:29 +000021258 typval_T *tv;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021259 int copy; /* make copy of value in "tv" */
Bram Moolenaar071d4272004-06-13 20:20:40 +000021260{
Bram Moolenaar33570922005-01-25 22:26:29 +000021261 dictitem_T *v;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021262 char_u *varname;
Bram Moolenaar33570922005-01-25 22:26:29 +000021263 hashtab_T *ht;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021264
Bram Moolenaarbaff0fe2010-03-17 19:53:49 +010021265 ht = find_var_ht(name, &varname);
21266 if (ht == NULL || *varname == NUL)
21267 {
21268 EMSG2(_(e_illvar), name);
21269 return;
21270 }
Bram Moolenaar332ac062013-04-15 13:06:21 +020021271 v = find_var_in_ht(ht, 0, varname, TRUE);
Bram Moolenaarbaff0fe2010-03-17 19:53:49 +010021272
Bram Moolenaar4228bec2011-03-27 16:03:15 +020021273 if (tv->v_type == VAR_FUNC && var_check_func_name(name, v == NULL))
21274 return;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021275
Bram Moolenaar33570922005-01-25 22:26:29 +000021276 if (v != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021277 {
Bram Moolenaar33570922005-01-25 22:26:29 +000021278 /* existing variable, need to clear the value */
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021279 if (var_check_ro(v->di_flags, name)
21280 || tv_check_lock(v->di_tv.v_lock, name))
Bram Moolenaar33570922005-01-25 22:26:29 +000021281 return;
21282 if (v->di_tv.v_type != tv->v_type
21283 && !((v->di_tv.v_type == VAR_STRING
21284 || v->di_tv.v_type == VAR_NUMBER)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021285 && (tv->v_type == VAR_STRING
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021286 || tv->v_type == VAR_NUMBER))
21287#ifdef FEAT_FLOAT
21288 && !((v->di_tv.v_type == VAR_NUMBER
21289 || v->di_tv.v_type == VAR_FLOAT)
21290 && (tv->v_type == VAR_NUMBER
21291 || tv->v_type == VAR_FLOAT))
21292#endif
21293 )
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021294 {
Bram Moolenaare49b69a2005-01-08 16:11:57 +000021295 EMSG2(_("E706: Variable type mismatch for: %s"), name);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021296 return;
21297 }
Bram Moolenaar33570922005-01-25 22:26:29 +000021298
21299 /*
Bram Moolenaar758711c2005-02-02 23:11:38 +000021300 * Handle setting internal v: variables separately: we don't change
21301 * the type.
Bram Moolenaar33570922005-01-25 22:26:29 +000021302 */
21303 if (ht == &vimvarht)
21304 {
21305 if (v->di_tv.v_type == VAR_STRING)
21306 {
21307 vim_free(v->di_tv.vval.v_string);
21308 if (copy || tv->v_type != VAR_STRING)
21309 v->di_tv.vval.v_string = vim_strsave(get_tv_string(tv));
21310 else
21311 {
21312 /* Take over the string to avoid an extra alloc/free. */
21313 v->di_tv.vval.v_string = tv->vval.v_string;
21314 tv->vval.v_string = NULL;
21315 }
21316 }
21317 else if (v->di_tv.v_type != VAR_NUMBER)
21318 EMSG2(_(e_intern2), "set_var()");
21319 else
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021320 {
Bram Moolenaar33570922005-01-25 22:26:29 +000021321 v->di_tv.vval.v_number = get_tv_number(tv);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021322 if (STRCMP(varname, "searchforward") == 0)
21323 set_search_direction(v->di_tv.vval.v_number ? '/' : '?');
Bram Moolenaar8050efa2013-11-08 04:30:20 +010021324#ifdef FEAT_SEARCH_EXTRA
21325 else if (STRCMP(varname, "hlsearch") == 0)
21326 {
21327 no_hlsearch = !v->di_tv.vval.v_number;
21328 redraw_all_later(SOME_VALID);
21329 }
21330#endif
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021331 }
Bram Moolenaar33570922005-01-25 22:26:29 +000021332 return;
21333 }
21334
21335 clear_tv(&v->di_tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021336 }
21337 else /* add a new variable */
21338 {
Bram Moolenaar5fcc3fe2006-06-22 15:35:14 +000021339 /* Can't add "v:" variable. */
21340 if (ht == &vimvarht)
21341 {
21342 EMSG2(_(e_illvar), name);
21343 return;
21344 }
21345
Bram Moolenaar92124a32005-06-17 22:03:40 +000021346 /* Make sure the variable name is valid. */
Bram Moolenaar4228bec2011-03-27 16:03:15 +020021347 if (!valid_varname(varname))
21348 return;
Bram Moolenaar92124a32005-06-17 22:03:40 +000021349
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021350 v = (dictitem_T *)alloc((unsigned)(sizeof(dictitem_T)
21351 + STRLEN(varname)));
Bram Moolenaara7043832005-01-21 11:56:39 +000021352 if (v == NULL)
21353 return;
Bram Moolenaar33570922005-01-25 22:26:29 +000021354 STRCPY(v->di_key, varname);
Bram Moolenaar33570922005-01-25 22:26:29 +000021355 if (hash_add(ht, DI2HIKEY(v)) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021356 {
Bram Moolenaara7043832005-01-21 11:56:39 +000021357 vim_free(v);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021358 return;
21359 }
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021360 v->di_flags = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021361 }
Bram Moolenaara7043832005-01-21 11:56:39 +000021362
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021363 if (copy || tv->v_type == VAR_NUMBER || tv->v_type == VAR_FLOAT)
Bram Moolenaar33570922005-01-25 22:26:29 +000021364 copy_tv(tv, &v->di_tv);
Bram Moolenaar1c2fda22005-01-02 11:43:19 +000021365 else
21366 {
Bram Moolenaar33570922005-01-25 22:26:29 +000021367 v->di_tv = *tv;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021368 v->di_tv.v_lock = 0;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021369 init_tv(tv);
Bram Moolenaar1c2fda22005-01-02 11:43:19 +000021370 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021371}
21372
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021373/*
Bram Moolenaar4e957af2006-09-02 11:41:07 +000021374 * Return TRUE if di_flags "flags" indicates variable "name" is read-only.
Bram Moolenaar33570922005-01-25 22:26:29 +000021375 * Also give an error message.
21376 */
21377 static int
21378var_check_ro(flags, name)
21379 int flags;
21380 char_u *name;
21381{
21382 if (flags & DI_FLAGS_RO)
21383 {
21384 EMSG2(_(e_readonlyvar), name);
21385 return TRUE;
21386 }
21387 if ((flags & DI_FLAGS_RO_SBX) && sandbox)
21388 {
21389 EMSG2(_(e_readonlysbx), name);
21390 return TRUE;
21391 }
21392 return FALSE;
21393}
21394
21395/*
Bram Moolenaar4e957af2006-09-02 11:41:07 +000021396 * Return TRUE if di_flags "flags" indicates variable "name" is fixed.
21397 * Also give an error message.
21398 */
21399 static int
21400var_check_fixed(flags, name)
21401 int flags;
21402 char_u *name;
21403{
21404 if (flags & DI_FLAGS_FIX)
21405 {
21406 EMSG2(_("E795: Cannot delete variable %s"), name);
21407 return TRUE;
21408 }
21409 return FALSE;
21410}
21411
21412/*
Bram Moolenaar4228bec2011-03-27 16:03:15 +020021413 * Check if a funcref is assigned to a valid variable name.
21414 * Return TRUE and give an error if not.
21415 */
21416 static int
21417var_check_func_name(name, new_var)
21418 char_u *name; /* points to start of variable name */
21419 int new_var; /* TRUE when creating the variable */
21420{
Bram Moolenaarcbc67722014-05-22 14:19:56 +020021421 /* Allow for w: b: s: and t:. */
21422 if (!(vim_strchr((char_u *)"wbst", name[0]) != NULL && name[1] == ':')
Bram Moolenaar4228bec2011-03-27 16:03:15 +020021423 && !ASCII_ISUPPER((name[0] != NUL && name[1] == ':')
21424 ? name[2] : name[0]))
21425 {
21426 EMSG2(_("E704: Funcref variable name must start with a capital: %s"),
21427 name);
21428 return TRUE;
21429 }
21430 /* Don't allow hiding a function. When "v" is not NULL we might be
21431 * assigning another function to the same var, the type is checked
21432 * below. */
21433 if (new_var && function_exists(name))
21434 {
21435 EMSG2(_("E705: Variable name conflicts with existing function: %s"),
21436 name);
21437 return TRUE;
21438 }
21439 return FALSE;
21440}
21441
21442/*
21443 * Check if a variable name is valid.
21444 * Return FALSE and give an error if not.
21445 */
21446 static int
21447valid_varname(varname)
21448 char_u *varname;
21449{
21450 char_u *p;
21451
21452 for (p = varname; *p != NUL; ++p)
21453 if (!eval_isnamec1(*p) && (p == varname || !VIM_ISDIGIT(*p))
21454 && *p != AUTOLOAD_CHAR)
21455 {
21456 EMSG2(_(e_illvar), varname);
21457 return FALSE;
21458 }
21459 return TRUE;
21460}
21461
21462/*
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021463 * Return TRUE if typeval "tv" is set to be locked (immutable).
21464 * Also give an error message, using "name".
21465 */
21466 static int
21467tv_check_lock(lock, name)
21468 int lock;
21469 char_u *name;
21470{
21471 if (lock & VAR_LOCKED)
21472 {
21473 EMSG2(_("E741: Value is locked: %s"),
21474 name == NULL ? (char_u *)_("Unknown") : name);
21475 return TRUE;
21476 }
21477 if (lock & VAR_FIXED)
21478 {
21479 EMSG2(_("E742: Cannot change value of %s"),
21480 name == NULL ? (char_u *)_("Unknown") : name);
21481 return TRUE;
21482 }
21483 return FALSE;
21484}
21485
21486/*
Bram Moolenaar33570922005-01-25 22:26:29 +000021487 * Copy the values from typval_T "from" to typval_T "to".
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021488 * When needed allocates string or increases reference count.
Bram Moolenaare9a41262005-01-15 22:18:47 +000021489 * Does not make a copy of a list or dict but copies the reference!
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000021490 * It is OK for "from" and "to" to point to the same item. This is used to
21491 * make a copy later.
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021492 */
Bram Moolenaar7e506b62010-01-19 15:55:06 +010021493 void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021494copy_tv(from, to)
Bram Moolenaar33570922005-01-25 22:26:29 +000021495 typval_T *from;
21496 typval_T *to;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021497{
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021498 to->v_type = from->v_type;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021499 to->v_lock = 0;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021500 switch (from->v_type)
21501 {
21502 case VAR_NUMBER:
21503 to->vval.v_number = from->vval.v_number;
21504 break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021505#ifdef FEAT_FLOAT
21506 case VAR_FLOAT:
21507 to->vval.v_float = from->vval.v_float;
21508 break;
21509#endif
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021510 case VAR_STRING:
21511 case VAR_FUNC:
21512 if (from->vval.v_string == NULL)
21513 to->vval.v_string = NULL;
21514 else
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021515 {
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021516 to->vval.v_string = vim_strsave(from->vval.v_string);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021517 if (from->v_type == VAR_FUNC)
21518 func_ref(to->vval.v_string);
21519 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021520 break;
21521 case VAR_LIST:
21522 if (from->vval.v_list == NULL)
21523 to->vval.v_list = NULL;
21524 else
21525 {
21526 to->vval.v_list = from->vval.v_list;
21527 ++to->vval.v_list->lv_refcount;
21528 }
21529 break;
Bram Moolenaar8c711452005-01-14 21:53:12 +000021530 case VAR_DICT:
21531 if (from->vval.v_dict == NULL)
21532 to->vval.v_dict = NULL;
21533 else
21534 {
21535 to->vval.v_dict = from->vval.v_dict;
21536 ++to->vval.v_dict->dv_refcount;
21537 }
21538 break;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021539 default:
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021540 EMSG2(_(e_intern2), "copy_tv()");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021541 break;
21542 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021543}
21544
21545/*
Bram Moolenaare9a41262005-01-15 22:18:47 +000021546 * Make a copy of an item.
21547 * Lists and Dictionaries are also copied. A deep copy if "deep" is set.
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021548 * For deepcopy() "copyID" is zero for a full copy or the ID for when a
21549 * reference to an already copied list/dict can be used.
21550 * Returns FAIL or OK.
Bram Moolenaare9a41262005-01-15 22:18:47 +000021551 */
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021552 static int
21553item_copy(from, to, deep, copyID)
Bram Moolenaar33570922005-01-25 22:26:29 +000021554 typval_T *from;
21555 typval_T *to;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021556 int deep;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021557 int copyID;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021558{
21559 static int recurse = 0;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021560 int ret = OK;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021561
Bram Moolenaar33570922005-01-25 22:26:29 +000021562 if (recurse >= DICT_MAXNEST)
Bram Moolenaare9a41262005-01-15 22:18:47 +000021563 {
21564 EMSG(_("E698: variable nested too deep for making a copy"));
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021565 return FAIL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021566 }
21567 ++recurse;
21568
21569 switch (from->v_type)
21570 {
21571 case VAR_NUMBER:
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021572#ifdef FEAT_FLOAT
21573 case VAR_FLOAT:
21574#endif
Bram Moolenaare9a41262005-01-15 22:18:47 +000021575 case VAR_STRING:
21576 case VAR_FUNC:
21577 copy_tv(from, to);
21578 break;
21579 case VAR_LIST:
21580 to->v_type = VAR_LIST;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021581 to->v_lock = 0;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021582 if (from->vval.v_list == NULL)
21583 to->vval.v_list = NULL;
21584 else if (copyID != 0 && from->vval.v_list->lv_copyID == copyID)
21585 {
21586 /* use the copy made earlier */
21587 to->vval.v_list = from->vval.v_list->lv_copylist;
21588 ++to->vval.v_list->lv_refcount;
21589 }
21590 else
21591 to->vval.v_list = list_copy(from->vval.v_list, deep, copyID);
21592 if (to->vval.v_list == NULL)
21593 ret = FAIL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021594 break;
21595 case VAR_DICT:
21596 to->v_type = VAR_DICT;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000021597 to->v_lock = 0;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021598 if (from->vval.v_dict == NULL)
21599 to->vval.v_dict = NULL;
21600 else if (copyID != 0 && from->vval.v_dict->dv_copyID == copyID)
21601 {
21602 /* use the copy made earlier */
21603 to->vval.v_dict = from->vval.v_dict->dv_copydict;
21604 ++to->vval.v_dict->dv_refcount;
21605 }
21606 else
21607 to->vval.v_dict = dict_copy(from->vval.v_dict, deep, copyID);
21608 if (to->vval.v_dict == NULL)
21609 ret = FAIL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021610 break;
21611 default:
21612 EMSG2(_(e_intern2), "item_copy()");
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021613 ret = FAIL;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021614 }
21615 --recurse;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021616 return ret;
Bram Moolenaare9a41262005-01-15 22:18:47 +000021617}
21618
21619/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000021620 * ":echo expr1 ..." print each argument separated with a space, add a
21621 * newline at the end.
21622 * ":echon expr1 ..." print each argument plain.
21623 */
21624 void
21625ex_echo(eap)
21626 exarg_T *eap;
21627{
21628 char_u *arg = eap->arg;
Bram Moolenaar33570922005-01-25 22:26:29 +000021629 typval_T rettv;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021630 char_u *tofree;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021631 char_u *p;
21632 int needclr = TRUE;
21633 int atstart = TRUE;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000021634 char_u numbuf[NUMBUFLEN];
Bram Moolenaar071d4272004-06-13 20:20:40 +000021635
21636 if (eap->skip)
21637 ++emsg_skip;
21638 while (*arg != NUL && *arg != '|' && *arg != '\n' && !got_int)
21639 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021640 /* If eval1() causes an error message the text from the command may
21641 * still need to be cleared. E.g., "echo 22,44". */
21642 need_clr_eos = needclr;
21643
Bram Moolenaar071d4272004-06-13 20:20:40 +000021644 p = arg;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021645 if (eval1(&arg, &rettv, !eap->skip) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021646 {
21647 /*
21648 * Report the invalid expression unless the expression evaluation
21649 * has been cancelled due to an aborting error, an interrupt, or an
21650 * exception.
21651 */
21652 if (!aborting())
21653 EMSG2(_(e_invexpr2), p);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021654 need_clr_eos = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021655 break;
21656 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +000021657 need_clr_eos = FALSE;
21658
Bram Moolenaar071d4272004-06-13 20:20:40 +000021659 if (!eap->skip)
21660 {
21661 if (atstart)
21662 {
21663 atstart = FALSE;
21664 /* Call msg_start() after eval1(), evaluating the expression
21665 * may cause a message to appear. */
21666 if (eap->cmdidx == CMD_echo)
Bram Moolenaar12b02902012-03-23 15:18:24 +010021667 {
Bram Moolenaar6df5e5a2012-03-28 16:49:29 +020021668 /* Mark the saved text as finishing the line, so that what
21669 * follows is displayed on a new line when scrolling back
21670 * at the more prompt. */
21671 msg_sb_eol();
Bram Moolenaar071d4272004-06-13 20:20:40 +000021672 msg_start();
Bram Moolenaar12b02902012-03-23 15:18:24 +010021673 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021674 }
21675 else if (eap->cmdidx == CMD_echo)
21676 msg_puts_attr((char_u *)" ", echo_attr);
Bram Moolenaar2c2398c2009-06-03 11:22:45 +000021677 current_copyID += COPYID_INC;
21678 p = echo_string(&rettv, &tofree, numbuf, current_copyID);
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021679 if (p != NULL)
21680 for ( ; *p != NUL && !got_int; ++p)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021681 {
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021682 if (*p == '\n' || *p == '\r' || *p == TAB)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021683 {
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021684 if (*p != TAB && needclr)
21685 {
21686 /* remove any text still there from the command */
21687 msg_clr_eos();
21688 needclr = FALSE;
21689 }
21690 msg_putchar_attr(*p, echo_attr);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021691 }
21692 else
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021693 {
21694#ifdef FEAT_MBYTE
21695 if (has_mbyte)
21696 {
Bram Moolenaar0fa313a2005-08-10 21:07:57 +000021697 int i = (*mb_ptr2len)(p);
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021698
21699 (void)msg_outtrans_len_attr(p, i, echo_attr);
21700 p += i - 1;
21701 }
21702 else
Bram Moolenaar071d4272004-06-13 20:20:40 +000021703#endif
Bram Moolenaar81bf7082005-02-12 14:31:42 +000021704 (void)msg_outtrans_len_attr(p, 1, echo_attr);
21705 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021706 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +000021707 vim_free(tofree);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021708 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021709 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021710 arg = skipwhite(arg);
21711 }
21712 eap->nextcmd = check_nextcmd(arg);
21713
21714 if (eap->skip)
21715 --emsg_skip;
21716 else
21717 {
21718 /* remove text that may still be there from the command */
21719 if (needclr)
21720 msg_clr_eos();
21721 if (eap->cmdidx == CMD_echo)
21722 msg_end();
21723 }
21724}
21725
21726/*
21727 * ":echohl {name}".
21728 */
21729 void
21730ex_echohl(eap)
21731 exarg_T *eap;
21732{
21733 int id;
21734
21735 id = syn_name2id(eap->arg);
21736 if (id == 0)
21737 echo_attr = 0;
21738 else
21739 echo_attr = syn_id2attr(id);
21740}
21741
21742/*
21743 * ":execute expr1 ..." execute the result of an expression.
21744 * ":echomsg expr1 ..." Print a message
21745 * ":echoerr expr1 ..." Print an error
21746 * Each gets spaces around each argument and a newline at the end for
21747 * echo commands
21748 */
21749 void
21750ex_execute(eap)
21751 exarg_T *eap;
21752{
21753 char_u *arg = eap->arg;
Bram Moolenaar33570922005-01-25 22:26:29 +000021754 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021755 int ret = OK;
21756 char_u *p;
21757 garray_T ga;
21758 int len;
21759 int save_did_emsg;
21760
21761 ga_init2(&ga, 1, 80);
21762
21763 if (eap->skip)
21764 ++emsg_skip;
21765 while (*arg != NUL && *arg != '|' && *arg != '\n')
21766 {
21767 p = arg;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021768 if (eval1(&arg, &rettv, !eap->skip) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021769 {
21770 /*
21771 * Report the invalid expression unless the expression evaluation
21772 * has been cancelled due to an aborting error, an interrupt, or an
21773 * exception.
21774 */
21775 if (!aborting())
21776 EMSG2(_(e_invexpr2), p);
21777 ret = FAIL;
21778 break;
21779 }
21780
21781 if (!eap->skip)
21782 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021783 p = get_tv_string(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021784 len = (int)STRLEN(p);
21785 if (ga_grow(&ga, len + 2) == FAIL)
21786 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021787 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021788 ret = FAIL;
21789 break;
21790 }
21791 if (ga.ga_len)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021792 ((char_u *)(ga.ga_data))[ga.ga_len++] = ' ';
Bram Moolenaar071d4272004-06-13 20:20:40 +000021793 STRCPY((char_u *)(ga.ga_data) + ga.ga_len, p);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021794 ga.ga_len += len;
21795 }
21796
Bram Moolenaarc70646c2005-01-04 21:52:38 +000021797 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021798 arg = skipwhite(arg);
21799 }
21800
21801 if (ret != FAIL && ga.ga_data != NULL)
21802 {
21803 if (eap->cmdidx == CMD_echomsg)
Bram Moolenaar4770d092006-01-12 23:22:24 +000021804 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000021805 MSG_ATTR(ga.ga_data, echo_attr);
Bram Moolenaar4770d092006-01-12 23:22:24 +000021806 out_flush();
21807 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021808 else if (eap->cmdidx == CMD_echoerr)
21809 {
21810 /* We don't want to abort following commands, restore did_emsg. */
21811 save_did_emsg = did_emsg;
21812 EMSG((char_u *)ga.ga_data);
21813 if (!force_abort)
21814 did_emsg = save_did_emsg;
21815 }
21816 else if (eap->cmdidx == CMD_execute)
21817 do_cmdline((char_u *)ga.ga_data,
21818 eap->getline, eap->cookie, DOCMD_NOWAIT|DOCMD_VERBOSE);
21819 }
21820
21821 ga_clear(&ga);
21822
21823 if (eap->skip)
21824 --emsg_skip;
21825
21826 eap->nextcmd = check_nextcmd(arg);
21827}
21828
21829/*
21830 * Skip over the name of an option: "&option", "&g:option" or "&l:option".
21831 * "arg" points to the "&" or '+' when called, to "option" when returning.
21832 * Returns NULL when no option name found. Otherwise pointer to the char
21833 * after the option name.
21834 */
21835 static char_u *
21836find_option_end(arg, opt_flags)
21837 char_u **arg;
21838 int *opt_flags;
21839{
21840 char_u *p = *arg;
21841
21842 ++p;
21843 if (*p == 'g' && p[1] == ':')
21844 {
21845 *opt_flags = OPT_GLOBAL;
21846 p += 2;
21847 }
21848 else if (*p == 'l' && p[1] == ':')
21849 {
21850 *opt_flags = OPT_LOCAL;
21851 p += 2;
21852 }
21853 else
21854 *opt_flags = 0;
21855
21856 if (!ASCII_ISALPHA(*p))
21857 return NULL;
21858 *arg = p;
21859
21860 if (p[0] == 't' && p[1] == '_' && p[2] != NUL && p[3] != NUL)
21861 p += 4; /* termcap option */
21862 else
21863 while (ASCII_ISALPHA(*p))
21864 ++p;
21865 return p;
21866}
21867
21868/*
21869 * ":function"
21870 */
21871 void
21872ex_function(eap)
21873 exarg_T *eap;
21874{
21875 char_u *theline;
Bram Moolenaaracd6a042011-09-30 16:39:48 +020021876 int i;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021877 int j;
21878 int c;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021879 int saved_did_emsg;
Bram Moolenaarccf623f2013-07-05 18:29:48 +020021880 int saved_wait_return = need_wait_return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021881 char_u *name = NULL;
21882 char_u *p;
21883 char_u *arg;
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000021884 char_u *line_arg = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021885 garray_T newargs;
21886 garray_T newlines;
21887 int varargs = FALSE;
21888 int mustend = FALSE;
21889 int flags = 0;
21890 ufunc_T *fp;
21891 int indent;
21892 int nesting;
21893 char_u *skip_until = NULL;
Bram Moolenaar33570922005-01-25 22:26:29 +000021894 dictitem_T *v;
21895 funcdict_T fudi;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021896 static int func_nr = 0; /* number for nameless function */
21897 int paren;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000021898 hashtab_T *ht;
21899 int todo;
21900 hashitem_T *hi;
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000021901 int sourcing_lnum_off;
Bram Moolenaar071d4272004-06-13 20:20:40 +000021902
21903 /*
21904 * ":function" without argument: list functions.
21905 */
21906 if (ends_excmd(*eap->arg))
21907 {
21908 if (!eap->skip)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000021909 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000021910 todo = (int)func_hashtab.ht_used;
Bram Moolenaar038eb0e2005-02-27 22:43:26 +000021911 for (hi = func_hashtab.ht_array; todo > 0 && !got_int; ++hi)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000021912 {
21913 if (!HASHITEM_EMPTY(hi))
21914 {
21915 --todo;
21916 fp = HI2UF(hi);
21917 if (!isdigit(*fp->uf_name))
21918 list_func_head(fp, FALSE);
21919 }
21920 }
21921 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021922 eap->nextcmd = check_nextcmd(eap->arg);
21923 return;
21924 }
21925
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021926 /*
Bram Moolenaardd2436f2005-09-05 22:14:46 +000021927 * ":function /pat": list functions matching pattern.
21928 */
21929 if (*eap->arg == '/')
21930 {
21931 p = skip_regexp(eap->arg + 1, '/', TRUE, NULL);
21932 if (!eap->skip)
21933 {
21934 regmatch_T regmatch;
21935
21936 c = *p;
21937 *p = NUL;
21938 regmatch.regprog = vim_regcomp(eap->arg + 1, RE_MAGIC);
21939 *p = c;
21940 if (regmatch.regprog != NULL)
21941 {
21942 regmatch.rm_ic = p_ic;
21943
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000021944 todo = (int)func_hashtab.ht_used;
Bram Moolenaardd2436f2005-09-05 22:14:46 +000021945 for (hi = func_hashtab.ht_array; todo > 0 && !got_int; ++hi)
21946 {
21947 if (!HASHITEM_EMPTY(hi))
21948 {
21949 --todo;
21950 fp = HI2UF(hi);
21951 if (!isdigit(*fp->uf_name)
21952 && vim_regexec(&regmatch, fp->uf_name, 0))
21953 list_func_head(fp, FALSE);
21954 }
21955 }
Bram Moolenaar473de612013-06-08 18:19:48 +020021956 vim_regfree(regmatch.regprog);
Bram Moolenaardd2436f2005-09-05 22:14:46 +000021957 }
21958 }
21959 if (*p == '/')
21960 ++p;
21961 eap->nextcmd = check_nextcmd(p);
21962 return;
21963 }
21964
21965 /*
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021966 * Get the function name. There are these situations:
21967 * func normal function name
21968 * "name" == func, "fudi.fd_dict" == NULL
21969 * dict.func new dictionary entry
21970 * "name" == NULL, "fudi.fd_dict" set,
21971 * "fudi.fd_di" == NULL, "fudi.fd_newkey" == func
21972 * dict.func existing dict entry with a Funcref
Bram Moolenaard857f0e2005-06-21 22:37:39 +000021973 * "name" == func, "fudi.fd_dict" set,
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021974 * "fudi.fd_di" set, "fudi.fd_newkey" == NULL
21975 * dict.func existing dict entry that's not a Funcref
21976 * "name" == NULL, "fudi.fd_dict" set,
21977 * "fudi.fd_di" set, "fudi.fd_newkey" == NULL
Bram Moolenaareccb7fc2014-04-23 20:43:41 +020021978 * s:func script-local function name
21979 * g:func global function name, same as "func"
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021980 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000021981 p = eap->arg;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021982 name = trans_function_name(&p, eap->skip, 0, &fudi);
21983 paren = (vim_strchr(p, '(') != NULL);
21984 if (name == NULL && (fudi.fd_dict == NULL || !paren) && !eap->skip)
Bram Moolenaar071d4272004-06-13 20:20:40 +000021985 {
21986 /*
21987 * Return on an invalid expression in braces, unless the expression
21988 * evaluation has been cancelled due to an aborting error, an
21989 * interrupt, or an exception.
21990 */
21991 if (!aborting())
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021992 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000021993 if (!eap->skip && fudi.fd_newkey != NULL)
21994 EMSG2(_(e_dictkey), fudi.fd_newkey);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021995 vim_free(fudi.fd_newkey);
Bram Moolenaar071d4272004-06-13 20:20:40 +000021996 return;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000021997 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000021998 else
21999 eap->skip = TRUE;
22000 }
Bram Moolenaar1f35bf92006-03-07 22:38:47 +000022001
Bram Moolenaar071d4272004-06-13 20:20:40 +000022002 /* An error in a function call during evaluation of an expression in magic
22003 * braces should not cause the function not to be defined. */
22004 saved_did_emsg = did_emsg;
22005 did_emsg = FALSE;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022006
22007 /*
22008 * ":function func" with only function name: list function.
22009 */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022010 if (!paren)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022011 {
22012 if (!ends_excmd(*skipwhite(p)))
22013 {
22014 EMSG(_(e_trailing));
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022015 goto ret_free;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022016 }
22017 eap->nextcmd = check_nextcmd(p);
22018 if (eap->nextcmd != NULL)
22019 *p = NUL;
22020 if (!eap->skip && !got_int)
22021 {
22022 fp = find_func(name);
22023 if (fp != NULL)
22024 {
22025 list_func_head(fp, TRUE);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022026 for (j = 0; j < fp->uf_lines.ga_len && !got_int; ++j)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022027 {
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022028 if (FUNCLINE(fp, j) == NULL)
22029 continue;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022030 msg_putchar('\n');
22031 msg_outnum((long)(j + 1));
22032 if (j < 9)
22033 msg_putchar(' ');
22034 if (j < 99)
22035 msg_putchar(' ');
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022036 msg_prt_line(FUNCLINE(fp, j), FALSE);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022037 out_flush(); /* show a line at a time */
22038 ui_breakcheck();
22039 }
22040 if (!got_int)
22041 {
22042 msg_putchar('\n');
22043 msg_puts((char_u *)" endfunction");
22044 }
22045 }
22046 else
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +000022047 emsg_funcname(N_("E123: Undefined function: %s"), name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022048 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022049 goto ret_free;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022050 }
22051
22052 /*
22053 * ":function name(arg1, arg2)" Define function.
22054 */
22055 p = skipwhite(p);
22056 if (*p != '(')
22057 {
22058 if (!eap->skip)
22059 {
22060 EMSG2(_("E124: Missing '(': %s"), eap->arg);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022061 goto ret_free;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022062 }
22063 /* attempt to continue by skipping some text */
22064 if (vim_strchr(p, '(') != NULL)
22065 p = vim_strchr(p, '(');
22066 }
22067 p = skipwhite(p + 1);
22068
22069 ga_init2(&newargs, (int)sizeof(char_u *), 3);
22070 ga_init2(&newlines, (int)sizeof(char_u *), 3);
22071
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022072 if (!eap->skip)
22073 {
Bram Moolenaarb42dc232006-11-21 18:36:05 +000022074 /* Check the name of the function. Unless it's a dictionary function
22075 * (that we are overwriting). */
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022076 if (name != NULL)
22077 arg = name;
22078 else
22079 arg = fudi.fd_newkey;
Bram Moolenaarb42dc232006-11-21 18:36:05 +000022080 if (arg != NULL && (fudi.fd_di == NULL
22081 || fudi.fd_di->di_tv.v_type != VAR_FUNC))
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022082 {
22083 if (*arg == K_SPECIAL)
22084 j = 3;
22085 else
22086 j = 0;
22087 while (arg[j] != NUL && (j == 0 ? eval_isnamec1(arg[j])
22088 : eval_isnamec(arg[j])))
22089 ++j;
22090 if (arg[j] != NUL)
Bram Moolenaarb67cc162009-02-04 15:27:06 +000022091 emsg_funcname((char *)e_invarg2, arg);
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022092 }
Bram Moolenaar2142e5d2013-02-20 15:19:43 +010022093 /* Disallow using the g: dict. */
22094 if (fudi.fd_dict != NULL && fudi.fd_dict->dv_scope == VAR_DEF_SCOPE)
22095 EMSG(_("E862: Cannot use g: here"));
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022096 }
22097
Bram Moolenaar071d4272004-06-13 20:20:40 +000022098 /*
22099 * Isolate the arguments: "arg1, arg2, ...)"
22100 */
22101 while (*p != ')')
22102 {
22103 if (p[0] == '.' && p[1] == '.' && p[2] == '.')
22104 {
22105 varargs = TRUE;
22106 p += 3;
22107 mustend = TRUE;
22108 }
22109 else
22110 {
22111 arg = p;
22112 while (ASCII_ISALNUM(*p) || *p == '_')
22113 ++p;
22114 if (arg == p || isdigit(*arg)
22115 || (p - arg == 9 && STRNCMP(arg, "firstline", 9) == 0)
22116 || (p - arg == 8 && STRNCMP(arg, "lastline", 8) == 0))
22117 {
22118 if (!eap->skip)
22119 EMSG2(_("E125: Illegal argument: %s"), arg);
22120 break;
22121 }
22122 if (ga_grow(&newargs, 1) == FAIL)
22123 goto erret;
22124 c = *p;
22125 *p = NUL;
22126 arg = vim_strsave(arg);
22127 if (arg == NULL)
22128 goto erret;
Bram Moolenaaracd6a042011-09-30 16:39:48 +020022129
22130 /* Check for duplicate argument name. */
22131 for (i = 0; i < newargs.ga_len; ++i)
22132 if (STRCMP(((char_u **)(newargs.ga_data))[i], arg) == 0)
22133 {
22134 EMSG2(_("E853: Duplicate argument name: %s"), arg);
Bram Moolenaar47b83422014-02-24 03:32:00 +010022135 vim_free(arg);
Bram Moolenaaracd6a042011-09-30 16:39:48 +020022136 goto erret;
22137 }
22138
Bram Moolenaar071d4272004-06-13 20:20:40 +000022139 ((char_u **)(newargs.ga_data))[newargs.ga_len] = arg;
22140 *p = c;
22141 newargs.ga_len++;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022142 if (*p == ',')
22143 ++p;
22144 else
22145 mustend = TRUE;
22146 }
22147 p = skipwhite(p);
22148 if (mustend && *p != ')')
22149 {
22150 if (!eap->skip)
22151 EMSG2(_(e_invarg2), eap->arg);
22152 break;
22153 }
22154 }
22155 ++p; /* skip the ')' */
22156
Bram Moolenaare9a41262005-01-15 22:18:47 +000022157 /* find extra arguments "range", "dict" and "abort" */
Bram Moolenaar071d4272004-06-13 20:20:40 +000022158 for (;;)
22159 {
22160 p = skipwhite(p);
22161 if (STRNCMP(p, "range", 5) == 0)
22162 {
22163 flags |= FC_RANGE;
22164 p += 5;
22165 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000022166 else if (STRNCMP(p, "dict", 4) == 0)
22167 {
22168 flags |= FC_DICT;
22169 p += 4;
22170 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000022171 else if (STRNCMP(p, "abort", 5) == 0)
22172 {
22173 flags |= FC_ABORT;
22174 p += 5;
22175 }
22176 else
22177 break;
22178 }
22179
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022180 /* When there is a line break use what follows for the function body.
22181 * Makes 'exe "func Test()\n...\nendfunc"' work. */
22182 if (*p == '\n')
22183 line_arg = p + 1;
22184 else if (*p != NUL && *p != '"' && !eap->skip && !did_emsg)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022185 EMSG(_(e_trailing));
22186
22187 /*
22188 * Read the body of the function, until ":endfunction" is found.
22189 */
22190 if (KeyTyped)
22191 {
22192 /* Check if the function already exists, don't let the user type the
22193 * whole function before telling him it doesn't work! For a script we
22194 * need to skip the body to be able to find what follows. */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022195 if (!eap->skip && !eap->forceit)
22196 {
22197 if (fudi.fd_dict != NULL && fudi.fd_newkey == NULL)
22198 EMSG(_(e_funcdict));
22199 else if (name != NULL && find_func(name) != NULL)
Bram Moolenaar81bf7082005-02-12 14:31:42 +000022200 emsg_funcname(e_funcexts, name);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022201 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000022202
Bram Moolenaard857f0e2005-06-21 22:37:39 +000022203 if (!eap->skip && did_emsg)
22204 goto erret;
22205
Bram Moolenaar071d4272004-06-13 20:20:40 +000022206 msg_putchar('\n'); /* don't overwrite the function name */
22207 cmdline_row = msg_row;
22208 }
22209
22210 indent = 2;
22211 nesting = 0;
22212 for (;;)
22213 {
Bram Moolenaar52af9652011-09-14 14:33:51 +020022214 if (KeyTyped)
Bram Moolenaarccf623f2013-07-05 18:29:48 +020022215 {
Bram Moolenaar52af9652011-09-14 14:33:51 +020022216 msg_scroll = TRUE;
Bram Moolenaarccf623f2013-07-05 18:29:48 +020022217 saved_wait_return = FALSE;
22218 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000022219 need_wait_return = FALSE;
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022220 sourcing_lnum_off = sourcing_lnum;
22221
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022222 if (line_arg != NULL)
22223 {
22224 /* Use eap->arg, split up in parts by line breaks. */
22225 theline = line_arg;
22226 p = vim_strchr(theline, '\n');
22227 if (p == NULL)
22228 line_arg += STRLEN(line_arg);
22229 else
22230 {
22231 *p = NUL;
22232 line_arg = p + 1;
22233 }
22234 }
22235 else if (eap->getline == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022236 theline = getcmdline(':', 0L, indent);
22237 else
22238 theline = eap->getline(':', eap->cookie, indent);
22239 if (KeyTyped)
22240 lines_left = Rows - 1;
22241 if (theline == NULL)
22242 {
22243 EMSG(_("E126: Missing :endfunction"));
22244 goto erret;
22245 }
22246
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022247 /* Detect line continuation: sourcing_lnum increased more than one. */
22248 if (sourcing_lnum > sourcing_lnum_off + 1)
22249 sourcing_lnum_off = sourcing_lnum - sourcing_lnum_off - 1;
22250 else
22251 sourcing_lnum_off = 0;
22252
Bram Moolenaar071d4272004-06-13 20:20:40 +000022253 if (skip_until != NULL)
22254 {
22255 /* between ":append" and "." and between ":python <<EOF" and "EOF"
22256 * don't check for ":endfunc". */
22257 if (STRCMP(theline, skip_until) == 0)
22258 {
22259 vim_free(skip_until);
22260 skip_until = NULL;
22261 }
22262 }
22263 else
22264 {
22265 /* skip ':' and blanks*/
22266 for (p = theline; vim_iswhite(*p) || *p == ':'; ++p)
22267 ;
22268
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000022269 /* Check for "endfunction". */
22270 if (checkforcmd(&p, "endfunction", 4) && nesting-- == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022271 {
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022272 if (line_arg == NULL)
22273 vim_free(theline);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022274 break;
22275 }
22276
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000022277 /* Increase indent inside "if", "while", "for" and "try", decrease
Bram Moolenaar071d4272004-06-13 20:20:40 +000022278 * at "end". */
22279 if (indent > 2 && STRNCMP(p, "end", 3) == 0)
22280 indent -= 2;
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000022281 else if (STRNCMP(p, "if", 2) == 0
22282 || STRNCMP(p, "wh", 2) == 0
22283 || STRNCMP(p, "for", 3) == 0
Bram Moolenaar071d4272004-06-13 20:20:40 +000022284 || STRNCMP(p, "try", 3) == 0)
22285 indent += 2;
22286
22287 /* Check for defining a function inside this function. */
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000022288 if (checkforcmd(&p, "function", 2))
Bram Moolenaar071d4272004-06-13 20:20:40 +000022289 {
Bram Moolenaar31c67ef2005-01-11 21:34:41 +000022290 if (*p == '!')
22291 p = skipwhite(p + 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022292 p += eval_fname_script(p);
Bram Moolenaaref923902014-12-13 21:00:55 +010022293 vim_free(trans_function_name(&p, TRUE, 0, NULL));
22294 if (*skipwhite(p) == '(')
Bram Moolenaar071d4272004-06-13 20:20:40 +000022295 {
Bram Moolenaaref923902014-12-13 21:00:55 +010022296 ++nesting;
22297 indent += 2;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022298 }
22299 }
22300
22301 /* Check for ":append" or ":insert". */
22302 p = skip_range(p, NULL);
22303 if ((p[0] == 'a' && (!ASCII_ISALPHA(p[1]) || p[1] == 'p'))
22304 || (p[0] == 'i'
22305 && (!ASCII_ISALPHA(p[1]) || (p[1] == 'n'
22306 && (!ASCII_ISALPHA(p[2]) || (p[2] == 's'))))))
22307 skip_until = vim_strsave((char_u *)".");
22308
22309 /* Check for ":python <<EOF", ":tcl <<EOF", etc. */
22310 arg = skipwhite(skiptowhite(p));
22311 if (arg[0] == '<' && arg[1] =='<'
22312 && ((p[0] == 'p' && p[1] == 'y'
22313 && (!ASCII_ISALPHA(p[2]) || p[2] == 't'))
22314 || (p[0] == 'p' && p[1] == 'e'
22315 && (!ASCII_ISALPHA(p[2]) || p[2] == 'r'))
22316 || (p[0] == 't' && p[1] == 'c'
22317 && (!ASCII_ISALPHA(p[2]) || p[2] == 'l'))
Bram Moolenaar50bfb322011-10-26 13:19:27 +020022318 || (p[0] == 'l' && p[1] == 'u' && p[2] == 'a'
22319 && !ASCII_ISALPHA(p[3]))
Bram Moolenaar071d4272004-06-13 20:20:40 +000022320 || (p[0] == 'r' && p[1] == 'u' && p[2] == 'b'
22321 && (!ASCII_ISALPHA(p[3]) || p[3] == 'y'))
Bram Moolenaar325b7a22004-07-05 15:58:32 +000022322 || (p[0] == 'm' && p[1] == 'z'
22323 && (!ASCII_ISALPHA(p[2]) || p[2] == 's'))
Bram Moolenaar071d4272004-06-13 20:20:40 +000022324 ))
22325 {
22326 /* ":python <<" continues until a dot, like ":append" */
22327 p = skipwhite(arg + 2);
22328 if (*p == NUL)
22329 skip_until = vim_strsave((char_u *)".");
22330 else
22331 skip_until = vim_strsave(p);
22332 }
22333 }
22334
22335 /* Add the line to the function. */
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022336 if (ga_grow(&newlines, 1 + sourcing_lnum_off) == FAIL)
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +000022337 {
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022338 if (line_arg == NULL)
22339 vim_free(theline);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022340 goto erret;
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +000022341 }
22342
22343 /* Copy the line to newly allocated memory. get_one_sourceline()
22344 * allocates 250 bytes per line, this saves 80% on average. The cost
22345 * is an extra alloc/free. */
22346 p = vim_strsave(theline);
22347 if (p != NULL)
22348 {
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022349 if (line_arg == NULL)
22350 vim_free(theline);
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +000022351 theline = p;
22352 }
22353
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022354 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = theline;
22355
22356 /* Add NULL lines for continuation lines, so that the line count is
22357 * equal to the index in the growarray. */
22358 while (sourcing_lnum_off-- > 0)
22359 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = NULL;
Bram Moolenaar997fb4b2006-02-17 21:53:23 +000022360
22361 /* Check for end of eap->arg. */
22362 if (line_arg != NULL && *line_arg == NUL)
22363 line_arg = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022364 }
22365
22366 /* Don't define the function when skipping commands or when an error was
22367 * detected. */
22368 if (eap->skip || did_emsg)
22369 goto erret;
22370
22371 /*
22372 * If there are no errors, add the function
22373 */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022374 if (fudi.fd_dict == NULL)
Bram Moolenaar49cd9572005-01-03 21:06:01 +000022375 {
Bram Moolenaar6d977d62014-01-14 15:24:39 +010022376 v = find_var(name, &ht, FALSE);
Bram Moolenaar33570922005-01-25 22:26:29 +000022377 if (v != NULL && v->di_tv.v_type == VAR_FUNC)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022378 {
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +000022379 emsg_funcname(N_("E707: Function name conflicts with variable: %s"),
Bram Moolenaar81bf7082005-02-12 14:31:42 +000022380 name);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022381 goto erret;
22382 }
Bram Moolenaar49cd9572005-01-03 21:06:01 +000022383
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022384 fp = find_func(name);
22385 if (fp != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022386 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022387 if (!eap->forceit)
22388 {
Bram Moolenaar81bf7082005-02-12 14:31:42 +000022389 emsg_funcname(e_funcexts, name);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022390 goto erret;
22391 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022392 if (fp->uf_calls > 0)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022393 {
Bram Moolenaar7b76b0a2009-01-28 18:09:38 +000022394 emsg_funcname(N_("E127: Cannot redefine function %s: It is in use"),
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022395 name);
22396 goto erret;
22397 }
22398 /* redefine existing function */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022399 ga_clear_strings(&(fp->uf_args));
22400 ga_clear_strings(&(fp->uf_lines));
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022401 vim_free(name);
22402 name = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022403 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000022404 }
22405 else
22406 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022407 char numbuf[20];
22408
22409 fp = NULL;
22410 if (fudi.fd_newkey == NULL && !eap->forceit)
22411 {
22412 EMSG(_(e_funcdict));
22413 goto erret;
22414 }
Bram Moolenaar758711c2005-02-02 23:11:38 +000022415 if (fudi.fd_di == NULL)
22416 {
22417 /* Can't add a function to a locked dictionary */
22418 if (tv_check_lock(fudi.fd_dict->dv_lock, eap->arg))
22419 goto erret;
22420 }
22421 /* Can't change an existing function if it is locked */
22422 else if (tv_check_lock(fudi.fd_di->di_tv.v_lock, eap->arg))
22423 goto erret;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022424
22425 /* Give the function a sequential number. Can only be used with a
22426 * Funcref! */
22427 vim_free(name);
22428 sprintf(numbuf, "%d", ++func_nr);
22429 name = vim_strsave((char_u *)numbuf);
22430 if (name == NULL)
22431 goto erret;
22432 }
22433
22434 if (fp == NULL)
22435 {
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000022436 if (fudi.fd_dict == NULL && vim_strchr(name, AUTOLOAD_CHAR) != NULL)
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022437 {
22438 int slen, plen;
22439 char_u *scriptname;
22440
22441 /* Check that the autoload name matches the script name. */
22442 j = FAIL;
22443 if (sourcing_name != NULL)
22444 {
22445 scriptname = autoload_name(name);
22446 if (scriptname != NULL)
22447 {
22448 p = vim_strchr(scriptname, '/');
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000022449 plen = (int)STRLEN(p);
22450 slen = (int)STRLEN(sourcing_name);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022451 if (slen > plen && fnamecmp(p,
22452 sourcing_name + slen - plen) == 0)
22453 j = OK;
22454 vim_free(scriptname);
22455 }
22456 }
22457 if (j == FAIL)
22458 {
22459 EMSG2(_("E746: Function name does not match script file name: %s"), name);
22460 goto erret;
22461 }
22462 }
22463
22464 fp = (ufunc_T *)alloc((unsigned)(sizeof(ufunc_T) + STRLEN(name)));
Bram Moolenaar071d4272004-06-13 20:20:40 +000022465 if (fp == NULL)
22466 goto erret;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022467
22468 if (fudi.fd_dict != NULL)
22469 {
22470 if (fudi.fd_di == NULL)
22471 {
22472 /* add new dict entry */
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000022473 fudi.fd_di = dictitem_alloc(fudi.fd_newkey);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022474 if (fudi.fd_di == NULL)
22475 {
22476 vim_free(fp);
22477 goto erret;
22478 }
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000022479 if (dict_add(fudi.fd_dict, fudi.fd_di) == FAIL)
22480 {
22481 vim_free(fudi.fd_di);
Bram Moolenaar0a5fd8b2006-08-16 20:02:22 +000022482 vim_free(fp);
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000022483 goto erret;
22484 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022485 }
22486 else
22487 /* overwrite existing dict entry */
22488 clear_tv(&fudi.fd_di->di_tv);
22489 fudi.fd_di->di_tv.v_type = VAR_FUNC;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000022490 fudi.fd_di->di_tv.v_lock = 0;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022491 fudi.fd_di->di_tv.vval.v_string = vim_strsave(name);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022492 fp->uf_refcount = 1;
Bram Moolenaar910f66f2006-04-05 20:41:53 +000022493
22494 /* behave like "dict" was used */
22495 flags |= FC_DICT;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022496 }
22497
Bram Moolenaar071d4272004-06-13 20:20:40 +000022498 /* insert the new function in the function list */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022499 STRCPY(fp->uf_name, name);
22500 hash_add(&func_hashtab, UF2HIKEY(fp));
Bram Moolenaar071d4272004-06-13 20:20:40 +000022501 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022502 fp->uf_args = newargs;
22503 fp->uf_lines = newlines;
Bram Moolenaar05159a02005-02-26 23:04:13 +000022504#ifdef FEAT_PROFILE
22505 fp->uf_tml_count = NULL;
22506 fp->uf_tml_total = NULL;
22507 fp->uf_tml_self = NULL;
22508 fp->uf_profiling = FALSE;
22509 if (prof_def_func())
22510 func_do_profile(fp);
22511#endif
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022512 fp->uf_varargs = varargs;
22513 fp->uf_flags = flags;
22514 fp->uf_calls = 0;
22515 fp->uf_script_ID = current_SID;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022516 goto ret_free;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022517
22518erret:
Bram Moolenaar071d4272004-06-13 20:20:40 +000022519 ga_clear_strings(&newargs);
22520 ga_clear_strings(&newlines);
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022521ret_free:
22522 vim_free(skip_until);
22523 vim_free(fudi.fd_newkey);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022524 vim_free(name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022525 did_emsg |= saved_did_emsg;
Bram Moolenaarccf623f2013-07-05 18:29:48 +020022526 need_wait_return |= saved_wait_return;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022527}
22528
22529/*
22530 * Get a function name, translating "<SID>" and "<SNR>".
Bram Moolenaara7043832005-01-21 11:56:39 +000022531 * Also handles a Funcref in a List or Dictionary.
Bram Moolenaar071d4272004-06-13 20:20:40 +000022532 * Returns the function name in allocated memory, or NULL for failure.
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022533 * flags:
Bram Moolenaar6d977d62014-01-14 15:24:39 +010022534 * TFN_INT: internal function name OK
22535 * TFN_QUIET: be quiet
22536 * TFN_NO_AUTOLOAD: do not use script autoloading
Bram Moolenaar071d4272004-06-13 20:20:40 +000022537 * Advances "pp" to just after the function name (if no error).
22538 */
22539 static char_u *
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022540trans_function_name(pp, skip, flags, fdp)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022541 char_u **pp;
22542 int skip; /* only find the end, don't evaluate */
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022543 int flags;
Bram Moolenaar33570922005-01-25 22:26:29 +000022544 funcdict_T *fdp; /* return: info about dictionary used */
Bram Moolenaar071d4272004-06-13 20:20:40 +000022545{
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022546 char_u *name = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022547 char_u *start;
22548 char_u *end;
22549 int lead;
22550 char_u sid_buf[20];
Bram Moolenaar071d4272004-06-13 20:20:40 +000022551 int len;
Bram Moolenaar33570922005-01-25 22:26:29 +000022552 lval_T lv;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022553
22554 if (fdp != NULL)
Bram Moolenaar33570922005-01-25 22:26:29 +000022555 vim_memset(fdp, 0, sizeof(funcdict_T));
Bram Moolenaar071d4272004-06-13 20:20:40 +000022556 start = *pp;
Bram Moolenaara7043832005-01-21 11:56:39 +000022557
22558 /* Check for hard coded <SNR>: already translated function ID (from a user
22559 * command). */
22560 if ((*pp)[0] == K_SPECIAL && (*pp)[1] == KS_EXTRA
22561 && (*pp)[2] == (int)KE_SNR)
22562 {
22563 *pp += 3;
22564 len = get_id_len(pp) + 3;
22565 return vim_strnsave(start, len);
22566 }
22567
22568 /* A name starting with "<SID>" or "<SNR>" is local to a script. But
22569 * don't skip over "s:", get_lval() needs it for "s:dict.func". */
Bram Moolenaar071d4272004-06-13 20:20:40 +000022570 lead = eval_fname_script(start);
Bram Moolenaara7043832005-01-21 11:56:39 +000022571 if (lead > 2)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022572 start += lead;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022573
Bram Moolenaar6d977d62014-01-14 15:24:39 +010022574 /* Note that TFN_ flags use the same values as GLV_ flags. */
22575 end = get_lval(start, NULL, &lv, FALSE, skip, flags,
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000022576 lead > 2 ? 0 : FNE_CHECK_START);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022577 if (end == start)
22578 {
22579 if (!skip)
22580 EMSG(_("E129: Function name required"));
22581 goto theend;
22582 }
Bram Moolenaara7043832005-01-21 11:56:39 +000022583 if (end == NULL || (lv.ll_tv != NULL && (lead > 2 || lv.ll_range)))
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022584 {
22585 /*
22586 * Report an invalid expression in braces, unless the expression
22587 * evaluation has been cancelled due to an aborting error, an
22588 * interrupt, or an exception.
22589 */
22590 if (!aborting())
22591 {
22592 if (end != NULL)
22593 EMSG2(_(e_invarg2), start);
22594 }
22595 else
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000022596 *pp = find_name_end(start, NULL, NULL, FNE_INCL_BR);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022597 goto theend;
22598 }
22599
22600 if (lv.ll_tv != NULL)
22601 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022602 if (fdp != NULL)
22603 {
22604 fdp->fd_dict = lv.ll_dict;
22605 fdp->fd_newkey = lv.ll_newkey;
22606 lv.ll_newkey = NULL;
22607 fdp->fd_di = lv.ll_di;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022608 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022609 if (lv.ll_tv->v_type == VAR_FUNC && lv.ll_tv->vval.v_string != NULL)
22610 {
22611 name = vim_strsave(lv.ll_tv->vval.v_string);
22612 *pp = end;
22613 }
22614 else
22615 {
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000022616 if (!skip && !(flags & TFN_QUIET) && (fdp == NULL
22617 || lv.ll_dict == NULL || fdp->fd_newkey == NULL))
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000022618 EMSG(_(e_funcref));
22619 else
22620 *pp = end;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022621 name = NULL;
22622 }
22623 goto theend;
22624 }
22625
22626 if (lv.ll_name == NULL)
22627 {
22628 /* Error found, but continue after the function name. */
22629 *pp = end;
22630 goto theend;
22631 }
22632
Bram Moolenaar33e1a802007-09-06 12:26:44 +000022633 /* Check if the name is a Funcref. If so, use the value. */
22634 if (lv.ll_exp_name != NULL)
22635 {
22636 len = (int)STRLEN(lv.ll_exp_name);
Bram Moolenaar8822a9c2014-01-14 19:44:34 +010022637 name = deref_func_name(lv.ll_exp_name, &len, flags & TFN_NO_AUTOLOAD);
Bram Moolenaar33e1a802007-09-06 12:26:44 +000022638 if (name == lv.ll_exp_name)
22639 name = NULL;
22640 }
22641 else
22642 {
22643 len = (int)(end - *pp);
Bram Moolenaar8822a9c2014-01-14 19:44:34 +010022644 name = deref_func_name(*pp, &len, flags & TFN_NO_AUTOLOAD);
Bram Moolenaar33e1a802007-09-06 12:26:44 +000022645 if (name == *pp)
22646 name = NULL;
22647 }
22648 if (name != NULL)
22649 {
22650 name = vim_strsave(name);
22651 *pp = end;
Bram Moolenaar355a95a2014-04-29 14:03:02 +020022652 if (STRNCMP(name, "<SNR>", 5) == 0)
22653 {
22654 /* Change "<SNR>" to the byte sequence. */
22655 name[0] = K_SPECIAL;
22656 name[1] = KS_EXTRA;
22657 name[2] = (int)KE_SNR;
22658 mch_memmove(name + 3, name + 5, STRLEN(name + 5) + 1);
22659 }
Bram Moolenaar33e1a802007-09-06 12:26:44 +000022660 goto theend;
22661 }
22662
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022663 if (lv.ll_exp_name != NULL)
Bram Moolenaarc32840f2006-01-14 21:23:38 +000022664 {
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000022665 len = (int)STRLEN(lv.ll_exp_name);
Bram Moolenaarc32840f2006-01-14 21:23:38 +000022666 if (lead <= 2 && lv.ll_name == lv.ll_exp_name
22667 && STRNCMP(lv.ll_name, "s:", 2) == 0)
22668 {
22669 /* When there was "s:" already or the name expanded to get a
22670 * leading "s:" then remove it. */
22671 lv.ll_name += 2;
22672 len -= 2;
22673 lead = 2;
22674 }
22675 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022676 else
Bram Moolenaara7043832005-01-21 11:56:39 +000022677 {
Bram Moolenaareccb7fc2014-04-23 20:43:41 +020022678 /* skip over "s:" and "g:" */
22679 if (lead == 2 || (lv.ll_name[0] == 'g' && lv.ll_name[1] == ':'))
Bram Moolenaara7043832005-01-21 11:56:39 +000022680 lv.ll_name += 2;
22681 len = (int)(end - lv.ll_name);
22682 }
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022683
22684 /*
22685 * Copy the function name to allocated memory.
22686 * Accept <SID>name() inside a script, translate into <SNR>123_name().
22687 * Accept <SNR>123_name() outside a script.
22688 */
22689 if (skip)
22690 lead = 0; /* do nothing */
22691 else if (lead > 0)
22692 {
22693 lead = 3;
Bram Moolenaar86c9ee22006-05-13 11:33:27 +000022694 if ((lv.ll_exp_name != NULL && eval_fname_sid(lv.ll_exp_name))
22695 || eval_fname_sid(*pp))
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022696 {
Bram Moolenaar899dddf2006-03-26 21:06:50 +000022697 /* It's "s:" or "<SID>" */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022698 if (current_SID <= 0)
22699 {
22700 EMSG(_(e_usingsid));
22701 goto theend;
22702 }
22703 sprintf((char *)sid_buf, "%ld_", (long)current_SID);
22704 lead += (int)STRLEN(sid_buf);
22705 }
22706 }
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022707 else if (!(flags & TFN_INT) && builtin_function(lv.ll_name, len))
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022708 {
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022709 EMSG2(_("E128: Function name must start with a capital or \"s:\": %s"),
Bram Moolenaareccb7fc2014-04-23 20:43:41 +020022710 start);
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022711 goto theend;
22712 }
Bram Moolenaareccb7fc2014-04-23 20:43:41 +020022713 if (!skip && !(flags & TFN_QUIET))
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022714 {
22715 char_u *cp = vim_strchr(lv.ll_name, ':');
22716
22717 if (cp != NULL && cp < end)
22718 {
Bram Moolenaareccb7fc2014-04-23 20:43:41 +020022719 EMSG2(_("E884: Function name cannot contain a colon: %s"), start);
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022720 goto theend;
22721 }
22722 }
22723
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022724 name = alloc((unsigned)(len + lead + 1));
22725 if (name != NULL)
22726 {
22727 if (lead > 0)
22728 {
22729 name[0] = K_SPECIAL;
22730 name[1] = KS_EXTRA;
22731 name[2] = (int)KE_SNR;
Bram Moolenaara7043832005-01-21 11:56:39 +000022732 if (lead > 3) /* If it's "<SID>" */
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022733 STRCPY(name + 3, sid_buf);
22734 }
22735 mch_memmove(name + lead, lv.ll_name, (size_t)len);
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022736 name[lead + len] = NUL;
Bram Moolenaar7480b5c2005-01-16 22:07:38 +000022737 }
22738 *pp = end;
22739
22740theend:
22741 clear_lval(&lv);
22742 return name;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022743}
22744
22745/*
22746 * Return 5 if "p" starts with "<SID>" or "<SNR>" (ignoring case).
22747 * Return 2 if "p" starts with "s:".
22748 * Return 0 otherwise.
22749 */
22750 static int
22751eval_fname_script(p)
22752 char_u *p;
22753{
22754 if (p[0] == '<' && (STRNICMP(p + 1, "SID>", 4) == 0
22755 || STRNICMP(p + 1, "SNR>", 4) == 0))
22756 return 5;
22757 if (p[0] == 's' && p[1] == ':')
22758 return 2;
22759 return 0;
22760}
22761
22762/*
22763 * Return TRUE if "p" starts with "<SID>" or "s:".
22764 * Only works if eval_fname_script() returned non-zero for "p"!
22765 */
22766 static int
22767eval_fname_sid(p)
22768 char_u *p;
22769{
22770 return (*p == 's' || TOUPPER_ASC(p[2]) == 'I');
22771}
22772
22773/*
22774 * List the head of the function: "name(arg1, arg2)".
22775 */
22776 static void
22777list_func_head(fp, indent)
22778 ufunc_T *fp;
22779 int indent;
22780{
22781 int j;
22782
22783 msg_start();
22784 if (indent)
22785 MSG_PUTS(" ");
22786 MSG_PUTS("function ");
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022787 if (fp->uf_name[0] == K_SPECIAL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022788 {
22789 MSG_PUTS_ATTR("<SNR>", hl_attr(HLF_8));
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022790 msg_puts(fp->uf_name + 3);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022791 }
22792 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022793 msg_puts(fp->uf_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022794 msg_putchar('(');
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022795 for (j = 0; j < fp->uf_args.ga_len; ++j)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022796 {
22797 if (j)
22798 MSG_PUTS(", ");
22799 msg_puts(FUNCARG(fp, j));
22800 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022801 if (fp->uf_varargs)
Bram Moolenaar071d4272004-06-13 20:20:40 +000022802 {
22803 if (j)
22804 MSG_PUTS(", ");
22805 MSG_PUTS("...");
22806 }
22807 msg_putchar(')');
Bram Moolenaar4cd92d52013-06-06 21:31:06 +020022808 if (fp->uf_flags & FC_ABORT)
22809 MSG_PUTS(" abort");
22810 if (fp->uf_flags & FC_RANGE)
22811 MSG_PUTS(" range");
22812 if (fp->uf_flags & FC_DICT)
22813 MSG_PUTS(" dict");
Bram Moolenaarcafda4f2005-09-06 19:25:11 +000022814 msg_clr_eos();
Bram Moolenaar5b8d8fd2005-08-16 23:01:50 +000022815 if (p_verbose > 0)
22816 last_set_msg(fp->uf_script_ID);
Bram Moolenaar071d4272004-06-13 20:20:40 +000022817}
22818
22819/*
22820 * Find a function by name, return pointer to it in ufuncs.
22821 * Return NULL for unknown function.
22822 */
22823 static ufunc_T *
22824find_func(name)
22825 char_u *name;
22826{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022827 hashitem_T *hi;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022828
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000022829 hi = hash_find(&func_hashtab, name);
22830 if (!HASHITEM_EMPTY(hi))
22831 return HI2UF(hi);
22832 return NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000022833}
22834
Bram Moolenaar29a1c1d2005-06-24 23:11:15 +000022835#if defined(EXITFREE) || defined(PROTO)
22836 void
22837free_all_functions()
22838{
22839 hashitem_T *hi;
22840
22841 /* Need to start all over every time, because func_free() may change the
22842 * hash table. */
22843 while (func_hashtab.ht_used > 0)
22844 for (hi = func_hashtab.ht_array; ; ++hi)
22845 if (!HASHITEM_EMPTY(hi))
22846 {
22847 func_free(HI2UF(hi));
22848 break;
22849 }
22850}
22851#endif
22852
Bram Moolenaar355fd9b2013-05-30 13:14:13 +020022853 int
22854translated_function_exists(name)
22855 char_u *name;
22856{
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022857 if (builtin_function(name, -1))
Bram Moolenaar355fd9b2013-05-30 13:14:13 +020022858 return find_internal_func(name) >= 0;
22859 return find_func(name) != NULL;
22860}
22861
Bram Moolenaar49cd9572005-01-03 21:06:01 +000022862/*
22863 * Return TRUE if a function "name" exists.
22864 */
22865 static int
22866function_exists(name)
22867 char_u *name;
22868{
Bram Moolenaaraa35dd12006-04-29 22:03:41 +000022869 char_u *nm = name;
22870 char_u *p;
Bram Moolenaar49cd9572005-01-03 21:06:01 +000022871 int n = FALSE;
22872
Bram Moolenaar6d977d62014-01-14 15:24:39 +010022873 p = trans_function_name(&nm, FALSE, TFN_INT|TFN_QUIET|TFN_NO_AUTOLOAD,
22874 NULL);
Bram Moolenaar79783442006-05-05 21:18:03 +000022875 nm = skipwhite(nm);
22876
22877 /* Only accept "funcname", "funcname ", "funcname (..." and
22878 * "funcname(...", not "funcname!...". */
22879 if (p != NULL && (*nm == NUL || *nm == '('))
Bram Moolenaar355fd9b2013-05-30 13:14:13 +020022880 n = translated_function_exists(p);
Bram Moolenaar79783442006-05-05 21:18:03 +000022881 vim_free(p);
Bram Moolenaar49cd9572005-01-03 21:06:01 +000022882 return n;
22883}
22884
Bram Moolenaara1544c02013-05-30 12:35:52 +020022885 char_u *
22886get_expanded_name(name, check)
22887 char_u *name;
22888 int check;
22889{
22890 char_u *nm = name;
22891 char_u *p;
22892
22893 p = trans_function_name(&nm, FALSE, TFN_INT|TFN_QUIET, NULL);
22894
22895 if (p != NULL && *nm == NUL)
Bram Moolenaar355fd9b2013-05-30 13:14:13 +020022896 if (!check || translated_function_exists(p))
Bram Moolenaara1544c02013-05-30 12:35:52 +020022897 return p;
Bram Moolenaar355fd9b2013-05-30 13:14:13 +020022898
Bram Moolenaara1544c02013-05-30 12:35:52 +020022899 vim_free(p);
22900 return NULL;
22901}
22902
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000022903/*
22904 * Return TRUE if "name" looks like a builtin function name: starts with a
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022905 * lower case letter and doesn't contain AUTOLOAD_CHAR.
22906 * "len" is the length of "name", or -1 for NUL terminated.
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000022907 */
22908 static int
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022909builtin_function(name, len)
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000022910 char_u *name;
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022911 int len;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000022912{
Bram Moolenaar9bdfb002014-04-23 17:43:42 +020022913 char_u *p;
22914
22915 if (!ASCII_ISLOWER(name[0]))
22916 return FALSE;
22917 p = vim_strchr(name, AUTOLOAD_CHAR);
22918 return p == NULL || (len > 0 && p > name + len);
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000022919}
22920
Bram Moolenaar05159a02005-02-26 23:04:13 +000022921#if defined(FEAT_PROFILE) || defined(PROTO)
22922/*
22923 * Start profiling function "fp".
22924 */
22925 static void
22926func_do_profile(fp)
22927 ufunc_T *fp;
22928{
Bram Moolenaar904c6222010-07-24 16:57:39 +020022929 int len = fp->uf_lines.ga_len;
22930
22931 if (len == 0)
22932 len = 1; /* avoid getting error for allocating zero bytes */
Bram Moolenaar05159a02005-02-26 23:04:13 +000022933 fp->uf_tm_count = 0;
22934 profile_zero(&fp->uf_tm_self);
22935 profile_zero(&fp->uf_tm_total);
22936 if (fp->uf_tml_count == NULL)
Bram Moolenaar904c6222010-07-24 16:57:39 +020022937 fp->uf_tml_count = (int *)alloc_clear((unsigned) (sizeof(int) * len));
Bram Moolenaar05159a02005-02-26 23:04:13 +000022938 if (fp->uf_tml_total == NULL)
22939 fp->uf_tml_total = (proftime_T *)alloc_clear((unsigned)
Bram Moolenaar904c6222010-07-24 16:57:39 +020022940 (sizeof(proftime_T) * len));
Bram Moolenaar05159a02005-02-26 23:04:13 +000022941 if (fp->uf_tml_self == NULL)
22942 fp->uf_tml_self = (proftime_T *)alloc_clear((unsigned)
Bram Moolenaar904c6222010-07-24 16:57:39 +020022943 (sizeof(proftime_T) * len));
Bram Moolenaar05159a02005-02-26 23:04:13 +000022944 fp->uf_tml_idx = -1;
22945 if (fp->uf_tml_count == NULL || fp->uf_tml_total == NULL
22946 || fp->uf_tml_self == NULL)
22947 return; /* out of memory */
22948
22949 fp->uf_profiling = TRUE;
22950}
22951
22952/*
22953 * Dump the profiling results for all functions in file "fd".
22954 */
22955 void
22956func_dump_profile(fd)
22957 FILE *fd;
22958{
22959 hashitem_T *hi;
22960 int todo;
22961 ufunc_T *fp;
22962 int i;
Bram Moolenaar73830342005-02-28 22:48:19 +000022963 ufunc_T **sorttab;
22964 int st_len = 0;
Bram Moolenaar05159a02005-02-26 23:04:13 +000022965
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000022966 todo = (int)func_hashtab.ht_used;
Bram Moolenaar61c4e2c2008-08-25 02:49:18 +000022967 if (todo == 0)
22968 return; /* nothing to dump */
22969
Bram Moolenaar73830342005-02-28 22:48:19 +000022970 sorttab = (ufunc_T **)alloc((unsigned)(sizeof(ufunc_T) * todo));
22971
Bram Moolenaar05159a02005-02-26 23:04:13 +000022972 for (hi = func_hashtab.ht_array; todo > 0; ++hi)
22973 {
22974 if (!HASHITEM_EMPTY(hi))
22975 {
22976 --todo;
22977 fp = HI2UF(hi);
22978 if (fp->uf_profiling)
22979 {
Bram Moolenaar73830342005-02-28 22:48:19 +000022980 if (sorttab != NULL)
22981 sorttab[st_len++] = fp;
22982
Bram Moolenaar05159a02005-02-26 23:04:13 +000022983 if (fp->uf_name[0] == K_SPECIAL)
22984 fprintf(fd, "FUNCTION <SNR>%s()\n", fp->uf_name + 3);
22985 else
22986 fprintf(fd, "FUNCTION %s()\n", fp->uf_name);
22987 if (fp->uf_tm_count == 1)
22988 fprintf(fd, "Called 1 time\n");
22989 else
22990 fprintf(fd, "Called %d times\n", fp->uf_tm_count);
22991 fprintf(fd, "Total time: %s\n", profile_msg(&fp->uf_tm_total));
22992 fprintf(fd, " Self time: %s\n", profile_msg(&fp->uf_tm_self));
22993 fprintf(fd, "\n");
22994 fprintf(fd, "count total (s) self (s)\n");
22995
22996 for (i = 0; i < fp->uf_lines.ga_len; ++i)
22997 {
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000022998 if (FUNCLINE(fp, i) == NULL)
22999 continue;
Bram Moolenaar73830342005-02-28 22:48:19 +000023000 prof_func_line(fd, fp->uf_tml_count[i],
23001 &fp->uf_tml_total[i], &fp->uf_tml_self[i], TRUE);
Bram Moolenaar05159a02005-02-26 23:04:13 +000023002 fprintf(fd, "%s\n", FUNCLINE(fp, i));
23003 }
23004 fprintf(fd, "\n");
23005 }
23006 }
23007 }
Bram Moolenaar73830342005-02-28 22:48:19 +000023008
23009 if (sorttab != NULL && st_len > 0)
23010 {
23011 qsort((void *)sorttab, (size_t)st_len, sizeof(ufunc_T *),
23012 prof_total_cmp);
23013 prof_sort_list(fd, sorttab, st_len, "TOTAL", FALSE);
23014 qsort((void *)sorttab, (size_t)st_len, sizeof(ufunc_T *),
23015 prof_self_cmp);
23016 prof_sort_list(fd, sorttab, st_len, "SELF", TRUE);
23017 }
Bram Moolenaar61c4e2c2008-08-25 02:49:18 +000023018
23019 vim_free(sorttab);
Bram Moolenaar05159a02005-02-26 23:04:13 +000023020}
Bram Moolenaar73830342005-02-28 22:48:19 +000023021
23022 static void
23023prof_sort_list(fd, sorttab, st_len, title, prefer_self)
23024 FILE *fd;
23025 ufunc_T **sorttab;
23026 int st_len;
23027 char *title;
23028 int prefer_self; /* when equal print only self time */
23029{
23030 int i;
23031 ufunc_T *fp;
23032
23033 fprintf(fd, "FUNCTIONS SORTED ON %s TIME\n", title);
23034 fprintf(fd, "count total (s) self (s) function\n");
23035 for (i = 0; i < 20 && i < st_len; ++i)
23036 {
23037 fp = sorttab[i];
23038 prof_func_line(fd, fp->uf_tm_count, &fp->uf_tm_total, &fp->uf_tm_self,
23039 prefer_self);
23040 if (fp->uf_name[0] == K_SPECIAL)
23041 fprintf(fd, " <SNR>%s()\n", fp->uf_name + 3);
23042 else
23043 fprintf(fd, " %s()\n", fp->uf_name);
23044 }
23045 fprintf(fd, "\n");
23046}
23047
23048/*
23049 * Print the count and times for one function or function line.
23050 */
23051 static void
23052prof_func_line(fd, count, total, self, prefer_self)
23053 FILE *fd;
23054 int count;
23055 proftime_T *total;
23056 proftime_T *self;
23057 int prefer_self; /* when equal print only self time */
23058{
23059 if (count > 0)
23060 {
23061 fprintf(fd, "%5d ", count);
23062 if (prefer_self && profile_equal(total, self))
23063 fprintf(fd, " ");
23064 else
23065 fprintf(fd, "%s ", profile_msg(total));
23066 if (!prefer_self && profile_equal(total, self))
23067 fprintf(fd, " ");
23068 else
23069 fprintf(fd, "%s ", profile_msg(self));
23070 }
23071 else
23072 fprintf(fd, " ");
23073}
23074
23075/*
23076 * Compare function for total time sorting.
23077 */
23078 static int
23079#ifdef __BORLANDC__
23080_RTLENTRYF
23081#endif
23082prof_total_cmp(s1, s2)
23083 const void *s1;
23084 const void *s2;
23085{
23086 ufunc_T *p1, *p2;
23087
23088 p1 = *(ufunc_T **)s1;
23089 p2 = *(ufunc_T **)s2;
23090 return profile_cmp(&p1->uf_tm_total, &p2->uf_tm_total);
23091}
23092
23093/*
23094 * Compare function for self time sorting.
23095 */
23096 static int
23097#ifdef __BORLANDC__
23098_RTLENTRYF
23099#endif
23100prof_self_cmp(s1, s2)
23101 const void *s1;
23102 const void *s2;
23103{
23104 ufunc_T *p1, *p2;
23105
23106 p1 = *(ufunc_T **)s1;
23107 p2 = *(ufunc_T **)s2;
23108 return profile_cmp(&p1->uf_tm_self, &p2->uf_tm_self);
23109}
23110
Bram Moolenaar05159a02005-02-26 23:04:13 +000023111#endif
23112
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023113/*
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023114 * If "name" has a package name try autoloading the script for it.
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023115 * Return TRUE if a package was loaded.
23116 */
Bram Moolenaar018acca2013-05-30 13:37:28 +020023117 static int
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023118script_autoload(name, reload)
23119 char_u *name;
23120 int reload; /* load script again when already loaded */
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023121{
23122 char_u *p;
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023123 char_u *scriptname, *tofree;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023124 int ret = FALSE;
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023125 int i;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023126
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023127 /* If there is no '#' after name[0] there is no package name. */
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000023128 p = vim_strchr(name, AUTOLOAD_CHAR);
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023129 if (p == NULL || p == name)
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023130 return FALSE;
23131
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023132 tofree = scriptname = autoload_name(name);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023133
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023134 /* Find the name in the list of previously loaded package names. Skip
23135 * "autoload/", it's always the same. */
23136 for (i = 0; i < ga_loaded.ga_len; ++i)
23137 if (STRCMP(((char_u **)ga_loaded.ga_data)[i] + 9, scriptname + 9) == 0)
23138 break;
23139 if (!reload && i < ga_loaded.ga_len)
23140 ret = FALSE; /* was loaded already */
23141 else
23142 {
23143 /* Remember the name if it wasn't loaded already. */
23144 if (i == ga_loaded.ga_len && ga_grow(&ga_loaded, 1) == OK)
23145 {
23146 ((char_u **)ga_loaded.ga_data)[ga_loaded.ga_len++] = scriptname;
23147 tofree = NULL;
23148 }
23149
23150 /* Try loading the package from $VIMRUNTIME/autoload/<name>.vim */
Bram Moolenaar90cfdbe2005-08-12 19:59:19 +000023151 if (source_runtime(scriptname, FALSE) == OK)
Bram Moolenaar87e25fd2005-07-27 21:13:01 +000023152 ret = TRUE;
23153 }
23154
23155 vim_free(tofree);
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023156 return ret;
23157}
23158
23159/*
23160 * Return the autoload script name for a function or variable name.
23161 * Returns NULL when out of memory.
23162 */
23163 static char_u *
23164autoload_name(name)
23165 char_u *name;
23166{
23167 char_u *p;
23168 char_u *scriptname;
23169
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000023170 /* Get the script file name: replace '#' with '/', append ".vim". */
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023171 scriptname = alloc((unsigned)(STRLEN(name) + 14));
23172 if (scriptname == NULL)
23173 return FALSE;
23174 STRCPY(scriptname, "autoload/");
23175 STRCAT(scriptname, name);
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000023176 *vim_strrchr(scriptname, AUTOLOAD_CHAR) = NUL;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023177 STRCAT(scriptname, ".vim");
Bram Moolenaar34cdc3e2005-05-18 22:24:46 +000023178 while ((p = vim_strchr(scriptname, AUTOLOAD_CHAR)) != NULL)
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023179 *p = '/';
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023180 return scriptname;
Bram Moolenaarb11bd7e2005-02-07 22:05:52 +000023181}
23182
Bram Moolenaar071d4272004-06-13 20:20:40 +000023183#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
23184
23185/*
23186 * Function given to ExpandGeneric() to obtain the list of user defined
23187 * function names.
23188 */
23189 char_u *
23190get_user_func_name(xp, idx)
23191 expand_T *xp;
23192 int idx;
23193{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023194 static long_u done;
23195 static hashitem_T *hi;
23196 ufunc_T *fp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023197
23198 if (idx == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023199 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023200 done = 0;
23201 hi = func_hashtab.ht_array;
23202 }
23203 if (done < func_hashtab.ht_used)
23204 {
23205 if (done++ > 0)
23206 ++hi;
23207 while (HASHITEM_EMPTY(hi))
23208 ++hi;
23209 fp = HI2UF(hi);
23210
Bram Moolenaar195ea0f2011-11-30 14:57:31 +010023211 if (fp->uf_flags & FC_DICT)
Bram Moolenaar975261e2012-01-26 18:52:06 +010023212 return (char_u *)""; /* don't show dict functions */
Bram Moolenaar195ea0f2011-11-30 14:57:31 +010023213
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023214 if (STRLEN(fp->uf_name) + 4 >= IOSIZE)
23215 return fp->uf_name; /* prevents overflow */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023216
23217 cat_func_name(IObuff, fp);
23218 if (xp->xp_context != EXPAND_USER_FUNC)
23219 {
23220 STRCAT(IObuff, "(");
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023221 if (!fp->uf_varargs && fp->uf_args.ga_len == 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023222 STRCAT(IObuff, ")");
23223 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000023224 return IObuff;
23225 }
23226 return NULL;
23227}
23228
23229#endif /* FEAT_CMDL_COMPL */
23230
23231/*
23232 * Copy the function name of "fp" to buffer "buf".
23233 * "buf" must be able to hold the function name plus three bytes.
23234 * Takes care of script-local function names.
23235 */
23236 static void
23237cat_func_name(buf, fp)
23238 char_u *buf;
23239 ufunc_T *fp;
23240{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023241 if (fp->uf_name[0] == K_SPECIAL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023242 {
23243 STRCPY(buf, "<SNR>");
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023244 STRCAT(buf, fp->uf_name + 3);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023245 }
23246 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023247 STRCPY(buf, fp->uf_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023248}
23249
23250/*
23251 * ":delfunction {name}"
23252 */
23253 void
23254ex_delfunction(eap)
23255 exarg_T *eap;
23256{
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023257 ufunc_T *fp = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023258 char_u *p;
23259 char_u *name;
Bram Moolenaar33570922005-01-25 22:26:29 +000023260 funcdict_T fudi;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023261
23262 p = eap->arg;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023263 name = trans_function_name(&p, eap->skip, 0, &fudi);
23264 vim_free(fudi.fd_newkey);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023265 if (name == NULL)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023266 {
23267 if (fudi.fd_dict != NULL && !eap->skip)
23268 EMSG(_(e_funcref));
Bram Moolenaar071d4272004-06-13 20:20:40 +000023269 return;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023270 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000023271 if (!ends_excmd(*skipwhite(p)))
23272 {
23273 vim_free(name);
23274 EMSG(_(e_trailing));
23275 return;
23276 }
23277 eap->nextcmd = check_nextcmd(p);
23278 if (eap->nextcmd != NULL)
23279 *p = NUL;
23280
23281 if (!eap->skip)
23282 fp = find_func(name);
23283 vim_free(name);
23284
23285 if (!eap->skip)
23286 {
23287 if (fp == NULL)
23288 {
Bram Moolenaar05159a02005-02-26 23:04:13 +000023289 EMSG2(_(e_nofunc), eap->arg);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023290 return;
23291 }
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023292 if (fp->uf_calls > 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023293 {
23294 EMSG2(_("E131: Cannot delete function %s: It is in use"), eap->arg);
23295 return;
23296 }
23297
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023298 if (fudi.fd_dict != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023299 {
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023300 /* Delete the dict item that refers to the function, it will
23301 * invoke func_unref() and possibly delete the function. */
Bram Moolenaarce5e58e2005-01-19 22:24:34 +000023302 dictitem_remove(fudi.fd_dict, fudi.fd_di);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023303 }
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023304 else
23305 func_free(fp);
23306 }
23307}
23308
23309/*
23310 * Free a function and remove it from the list of functions.
23311 */
23312 static void
23313func_free(fp)
23314 ufunc_T *fp;
23315{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023316 hashitem_T *hi;
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023317
23318 /* clear this function */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023319 ga_clear_strings(&(fp->uf_args));
23320 ga_clear_strings(&(fp->uf_lines));
Bram Moolenaar05159a02005-02-26 23:04:13 +000023321#ifdef FEAT_PROFILE
23322 vim_free(fp->uf_tml_count);
23323 vim_free(fp->uf_tml_total);
23324 vim_free(fp->uf_tml_self);
23325#endif
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023326
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023327 /* remove the function from the function hashtable */
23328 hi = hash_find(&func_hashtab, UF2HIKEY(fp));
23329 if (HASHITEM_EMPTY(hi))
23330 EMSG2(_(e_intern2), "func_free()");
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023331 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023332 hash_remove(&func_hashtab, hi);
23333
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023334 vim_free(fp);
23335}
23336
23337/*
23338 * Unreference a Function: decrement the reference count and free it when it
23339 * becomes zero. Only for numbered functions.
23340 */
Bram Moolenaardb913952012-06-29 12:54:53 +020023341 void
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023342func_unref(name)
23343 char_u *name;
23344{
23345 ufunc_T *fp;
23346
23347 if (name != NULL && isdigit(*name))
23348 {
23349 fp = find_func(name);
23350 if (fp == NULL)
23351 EMSG2(_(e_intern2), "func_unref()");
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023352 else if (--fp->uf_refcount <= 0)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023353 {
23354 /* Only delete it when it's not being used. Otherwise it's done
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023355 * when "uf_calls" becomes zero. */
23356 if (fp->uf_calls == 0)
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023357 func_free(fp);
23358 }
23359 }
23360}
23361
23362/*
23363 * Count a reference to a Function.
23364 */
Bram Moolenaardb913952012-06-29 12:54:53 +020023365 void
Bram Moolenaar9ef486d2005-01-17 22:23:00 +000023366func_ref(name)
23367 char_u *name;
23368{
23369 ufunc_T *fp;
23370
23371 if (name != NULL && isdigit(*name))
23372 {
23373 fp = find_func(name);
23374 if (fp == NULL)
23375 EMSG2(_(e_intern2), "func_ref()");
23376 else
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023377 ++fp->uf_refcount;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023378 }
23379}
23380
23381/*
23382 * Call a user function.
23383 */
23384 static void
Bram Moolenaare9a41262005-01-15 22:18:47 +000023385call_user_func(fp, argcount, argvars, rettv, firstline, lastline, selfdict)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023386 ufunc_T *fp; /* pointer to function */
23387 int argcount; /* nr of args */
Bram Moolenaar33570922005-01-25 22:26:29 +000023388 typval_T *argvars; /* arguments */
23389 typval_T *rettv; /* return value */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023390 linenr_T firstline; /* first line of range */
23391 linenr_T lastline; /* last line of range */
Bram Moolenaar33570922005-01-25 22:26:29 +000023392 dict_T *selfdict; /* Dictionary for "self" */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023393{
Bram Moolenaar33570922005-01-25 22:26:29 +000023394 char_u *save_sourcing_name;
23395 linenr_T save_sourcing_lnum;
23396 scid_T save_current_SID;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023397 funccall_T *fc;
Bram Moolenaar33570922005-01-25 22:26:29 +000023398 int save_did_emsg;
23399 static int depth = 0;
23400 dictitem_T *v;
23401 int fixvar_idx = 0; /* index in fixvar[] */
23402 int i;
23403 int ai;
23404 char_u numbuf[NUMBUFLEN];
23405 char_u *name;
Bram Moolenaar05159a02005-02-26 23:04:13 +000023406#ifdef FEAT_PROFILE
23407 proftime_T wait_start;
Bram Moolenaare9da72e2006-11-01 17:34:40 +000023408 proftime_T call_start;
Bram Moolenaar05159a02005-02-26 23:04:13 +000023409#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000023410
23411 /* If depth of calling is getting too high, don't execute the function */
23412 if (depth >= p_mfd)
23413 {
23414 EMSG(_("E132: Function call depth is higher than 'maxfuncdepth'"));
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023415 rettv->v_type = VAR_NUMBER;
23416 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023417 return;
23418 }
23419 ++depth;
23420
23421 line_breakcheck(); /* check for CTRL-C hit */
23422
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023423 fc = (funccall_T *)alloc(sizeof(funccall_T));
23424 fc->caller = current_funccal;
23425 current_funccal = fc;
23426 fc->func = fp;
23427 fc->rettv = rettv;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023428 rettv->vval.v_number = 0;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023429 fc->linenr = 0;
23430 fc->returned = FALSE;
23431 fc->level = ex_nesting_level;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023432 /* Check if this function has a breakpoint. */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023433 fc->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name, (linenr_T)0);
23434 fc->dbg_tick = debug_tick;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023435
Bram Moolenaar33570922005-01-25 22:26:29 +000023436 /*
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023437 * Note about using fc->fixvar[]: This is an array of FIXVAR_CNT variables
Bram Moolenaar33570922005-01-25 22:26:29 +000023438 * with names up to VAR_SHORT_LEN long. This avoids having to alloc/free
23439 * each argument variable and saves a lot of time.
23440 */
23441 /*
23442 * Init l: variables.
23443 */
Bram Moolenaarbdb62052012-07-16 17:31:53 +020023444 init_var_dict(&fc->l_vars, &fc->l_vars_var, VAR_DEF_SCOPE);
Bram Moolenaara7043832005-01-21 11:56:39 +000023445 if (selfdict != NULL)
Bram Moolenaare9a41262005-01-15 22:18:47 +000023446 {
Bram Moolenaar76b92b22006-03-24 22:46:53 +000023447 /* Set l:self to "selfdict". Use "name" to avoid a warning from
23448 * some compiler that checks the destination size. */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023449 v = &fc->fixvar[fixvar_idx++].var;
Bram Moolenaar76b92b22006-03-24 22:46:53 +000023450 name = v->di_key;
23451 STRCPY(name, "self");
Bram Moolenaar33570922005-01-25 22:26:29 +000023452 v->di_flags = DI_FLAGS_RO + DI_FLAGS_FIX;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023453 hash_add(&fc->l_vars.dv_hashtab, DI2HIKEY(v));
Bram Moolenaar33570922005-01-25 22:26:29 +000023454 v->di_tv.v_type = VAR_DICT;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023455 v->di_tv.v_lock = 0;
Bram Moolenaar33570922005-01-25 22:26:29 +000023456 v->di_tv.vval.v_dict = selfdict;
23457 ++selfdict->dv_refcount;
23458 }
Bram Moolenaare9a41262005-01-15 22:18:47 +000023459
Bram Moolenaar33570922005-01-25 22:26:29 +000023460 /*
23461 * Init a: variables.
23462 * Set a:0 to "argcount".
23463 * Set a:000 to a list with room for the "..." arguments.
23464 */
Bram Moolenaarbdb62052012-07-16 17:31:53 +020023465 init_var_dict(&fc->l_avars, &fc->l_avars_var, VAR_SCOPE);
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023466 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "0",
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023467 (varnumber_T)(argcount - fp->uf_args.ga_len));
Bram Moolenaar0cd49302008-11-20 09:37:01 +000023468 /* Use "name" to avoid a warning from some compiler that checks the
23469 * destination size. */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023470 v = &fc->fixvar[fixvar_idx++].var;
Bram Moolenaar0cd49302008-11-20 09:37:01 +000023471 name = v->di_key;
23472 STRCPY(name, "000");
Bram Moolenaar33570922005-01-25 22:26:29 +000023473 v->di_flags = DI_FLAGS_RO | DI_FLAGS_FIX;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023474 hash_add(&fc->l_avars.dv_hashtab, DI2HIKEY(v));
Bram Moolenaar33570922005-01-25 22:26:29 +000023475 v->di_tv.v_type = VAR_LIST;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023476 v->di_tv.v_lock = VAR_FIXED;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023477 v->di_tv.vval.v_list = &fc->l_varlist;
23478 vim_memset(&fc->l_varlist, 0, sizeof(list_T));
23479 fc->l_varlist.lv_refcount = DO_NOT_FREE_CNT;
23480 fc->l_varlist.lv_lock = VAR_FIXED;
Bram Moolenaar33570922005-01-25 22:26:29 +000023481
23482 /*
23483 * Set a:firstline to "firstline" and a:lastline to "lastline".
23484 * Set a:name to named arguments.
23485 * Set a:N to the "..." arguments.
23486 */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023487 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "firstline",
Bram Moolenaar33570922005-01-25 22:26:29 +000023488 (varnumber_T)firstline);
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023489 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "lastline",
Bram Moolenaar33570922005-01-25 22:26:29 +000023490 (varnumber_T)lastline);
23491 for (i = 0; i < argcount; ++i)
23492 {
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023493 ai = i - fp->uf_args.ga_len;
Bram Moolenaar33570922005-01-25 22:26:29 +000023494 if (ai < 0)
23495 /* named argument a:name */
23496 name = FUNCARG(fp, i);
23497 else
Bram Moolenaare9a41262005-01-15 22:18:47 +000023498 {
Bram Moolenaar33570922005-01-25 22:26:29 +000023499 /* "..." argument a:1, a:2, etc. */
23500 sprintf((char *)numbuf, "%d", ai + 1);
23501 name = numbuf;
23502 }
23503 if (fixvar_idx < FIXVAR_CNT && STRLEN(name) <= VAR_SHORT_LEN)
23504 {
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023505 v = &fc->fixvar[fixvar_idx++].var;
Bram Moolenaar33570922005-01-25 22:26:29 +000023506 v->di_flags = DI_FLAGS_RO | DI_FLAGS_FIX;
23507 }
23508 else
23509 {
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023510 v = (dictitem_T *)alloc((unsigned)(sizeof(dictitem_T)
23511 + STRLEN(name)));
Bram Moolenaar33570922005-01-25 22:26:29 +000023512 if (v == NULL)
23513 break;
23514 v->di_flags = DI_FLAGS_RO;
23515 }
23516 STRCPY(v->di_key, name);
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023517 hash_add(&fc->l_avars.dv_hashtab, DI2HIKEY(v));
Bram Moolenaar33570922005-01-25 22:26:29 +000023518
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023519 /* Note: the values are copied directly to avoid alloc/free.
23520 * "argvars" must have VAR_FIXED for v_lock. */
Bram Moolenaar33570922005-01-25 22:26:29 +000023521 v->di_tv = argvars[i];
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023522 v->di_tv.v_lock = VAR_FIXED;
Bram Moolenaar33570922005-01-25 22:26:29 +000023523
23524 if (ai >= 0 && ai < MAX_FUNC_ARGS)
23525 {
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023526 list_append(&fc->l_varlist, &fc->l_listitems[ai]);
23527 fc->l_listitems[ai].li_tv = argvars[i];
23528 fc->l_listitems[ai].li_tv.v_lock = VAR_FIXED;
Bram Moolenaare9a41262005-01-15 22:18:47 +000023529 }
23530 }
23531
Bram Moolenaar071d4272004-06-13 20:20:40 +000023532 /* Don't redraw while executing the function. */
23533 ++RedrawingDisabled;
23534 save_sourcing_name = sourcing_name;
23535 save_sourcing_lnum = sourcing_lnum;
23536 sourcing_lnum = 1;
23537 sourcing_name = alloc((unsigned)((save_sourcing_name == NULL ? 0
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023538 : STRLEN(save_sourcing_name)) + STRLEN(fp->uf_name) + 13));
Bram Moolenaar071d4272004-06-13 20:20:40 +000023539 if (sourcing_name != NULL)
23540 {
23541 if (save_sourcing_name != NULL
23542 && STRNCMP(save_sourcing_name, "function ", 9) == 0)
23543 sprintf((char *)sourcing_name, "%s..", save_sourcing_name);
23544 else
23545 STRCPY(sourcing_name, "function ");
23546 cat_func_name(sourcing_name + STRLEN(sourcing_name), fp);
23547
23548 if (p_verbose >= 12)
23549 {
23550 ++no_wait_return;
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023551 verbose_enter_scroll();
23552
Bram Moolenaar555b2802005-05-19 21:08:39 +000023553 smsg((char_u *)_("calling %s"), sourcing_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023554 if (p_verbose >= 14)
23555 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000023556 char_u buf[MSG_BUF_LEN];
Bram Moolenaar89d40322006-08-29 15:30:07 +000023557 char_u numbuf2[NUMBUFLEN];
Bram Moolenaar758711c2005-02-02 23:11:38 +000023558 char_u *tofree;
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023559 char_u *s;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023560
23561 msg_puts((char_u *)"(");
23562 for (i = 0; i < argcount; ++i)
23563 {
23564 if (i > 0)
23565 msg_puts((char_u *)", ");
Bram Moolenaar49cd9572005-01-03 21:06:01 +000023566 if (argvars[i].v_type == VAR_NUMBER)
23567 msg_outnum((long)argvars[i].vval.v_number);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023568 else
23569 {
Bram Moolenaar8502c702014-06-17 12:51:16 +020023570 /* Do not want errors such as E724 here. */
23571 ++emsg_off;
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023572 s = tv2string(&argvars[i], &tofree, numbuf2, 0);
Bram Moolenaar8502c702014-06-17 12:51:16 +020023573 --emsg_off;
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023574 if (s != NULL)
23575 {
Bram Moolenaarf31b7642012-01-20 20:44:43 +010023576 if (vim_strsize(s) > MSG_BUF_CLEN)
23577 {
23578 trunc_string(s, buf, MSG_BUF_CLEN, MSG_BUF_LEN);
23579 s = buf;
23580 }
23581 msg_puts(s);
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023582 vim_free(tofree);
23583 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000023584 }
23585 }
23586 msg_puts((char_u *)")");
23587 }
23588 msg_puts((char_u *)"\n"); /* don't overwrite this either */
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023589
23590 verbose_leave_scroll();
Bram Moolenaar071d4272004-06-13 20:20:40 +000023591 --no_wait_return;
23592 }
23593 }
Bram Moolenaar05159a02005-02-26 23:04:13 +000023594#ifdef FEAT_PROFILE
Bram Moolenaarb3656ed2006-03-20 21:59:49 +000023595 if (do_profiling == PROF_YES)
Bram Moolenaar05159a02005-02-26 23:04:13 +000023596 {
23597 if (!fp->uf_profiling && has_profiling(FALSE, fp->uf_name, NULL))
23598 func_do_profile(fp);
23599 if (fp->uf_profiling
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023600 || (fc->caller != NULL && fc->caller->func->uf_profiling))
Bram Moolenaar05159a02005-02-26 23:04:13 +000023601 {
23602 ++fp->uf_tm_count;
Bram Moolenaare9da72e2006-11-01 17:34:40 +000023603 profile_start(&call_start);
Bram Moolenaar05159a02005-02-26 23:04:13 +000023604 profile_zero(&fp->uf_tm_children);
23605 }
23606 script_prof_save(&wait_start);
23607 }
23608#endif
23609
Bram Moolenaar071d4272004-06-13 20:20:40 +000023610 save_current_SID = current_SID;
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023611 current_SID = fp->uf_script_ID;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023612 save_did_emsg = did_emsg;
23613 did_emsg = FALSE;
23614
23615 /* call do_cmdline() to execute the lines */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023616 do_cmdline(NULL, get_func_line, (void *)fc,
Bram Moolenaar071d4272004-06-13 20:20:40 +000023617 DOCMD_NOWAIT|DOCMD_VERBOSE|DOCMD_REPEAT);
23618
23619 --RedrawingDisabled;
23620
23621 /* when the function was aborted because of an error, return -1 */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000023622 if ((did_emsg && (fp->uf_flags & FC_ABORT)) || rettv->v_type == VAR_UNKNOWN)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023623 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023624 clear_tv(rettv);
23625 rettv->v_type = VAR_NUMBER;
23626 rettv->vval.v_number = -1;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023627 }
23628
Bram Moolenaar05159a02005-02-26 23:04:13 +000023629#ifdef FEAT_PROFILE
Bram Moolenaarb3656ed2006-03-20 21:59:49 +000023630 if (do_profiling == PROF_YES && (fp->uf_profiling
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023631 || (fc->caller != NULL && fc->caller->func->uf_profiling)))
Bram Moolenaar05159a02005-02-26 23:04:13 +000023632 {
Bram Moolenaare9da72e2006-11-01 17:34:40 +000023633 profile_end(&call_start);
23634 profile_sub_wait(&wait_start, &call_start);
23635 profile_add(&fp->uf_tm_total, &call_start);
23636 profile_self(&fp->uf_tm_self, &call_start, &fp->uf_tm_children);
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023637 if (fc->caller != NULL && fc->caller->func->uf_profiling)
Bram Moolenaar05159a02005-02-26 23:04:13 +000023638 {
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023639 profile_add(&fc->caller->func->uf_tm_children, &call_start);
23640 profile_add(&fc->caller->func->uf_tml_children, &call_start);
Bram Moolenaar05159a02005-02-26 23:04:13 +000023641 }
23642 }
23643#endif
23644
Bram Moolenaar071d4272004-06-13 20:20:40 +000023645 /* when being verbose, mention the return value */
23646 if (p_verbose >= 12)
23647 {
Bram Moolenaar071d4272004-06-13 20:20:40 +000023648 ++no_wait_return;
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023649 verbose_enter_scroll();
Bram Moolenaar071d4272004-06-13 20:20:40 +000023650
Bram Moolenaar071d4272004-06-13 20:20:40 +000023651 if (aborting())
Bram Moolenaar555b2802005-05-19 21:08:39 +000023652 smsg((char_u *)_("%s aborted"), sourcing_name);
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023653 else if (fc->rettv->v_type == VAR_NUMBER)
Bram Moolenaar555b2802005-05-19 21:08:39 +000023654 smsg((char_u *)_("%s returning #%ld"), sourcing_name,
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023655 (long)fc->rettv->vval.v_number);
Bram Moolenaar758711c2005-02-02 23:11:38 +000023656 else
Bram Moolenaar071d4272004-06-13 20:20:40 +000023657 {
Bram Moolenaar758711c2005-02-02 23:11:38 +000023658 char_u buf[MSG_BUF_LEN];
Bram Moolenaar89d40322006-08-29 15:30:07 +000023659 char_u numbuf2[NUMBUFLEN];
Bram Moolenaar758711c2005-02-02 23:11:38 +000023660 char_u *tofree;
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023661 char_u *s;
Bram Moolenaar758711c2005-02-02 23:11:38 +000023662
Bram Moolenaar555b2802005-05-19 21:08:39 +000023663 /* The value may be very long. Skip the middle part, so that we
23664 * have some idea how it starts and ends. smsg() would always
Bram Moolenaar8502c702014-06-17 12:51:16 +020023665 * truncate it at the end. Don't want errors such as E724 here. */
23666 ++emsg_off;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023667 s = tv2string(fc->rettv, &tofree, numbuf2, 0);
Bram Moolenaar8502c702014-06-17 12:51:16 +020023668 --emsg_off;
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023669 if (s != NULL)
23670 {
Bram Moolenaarf31b7642012-01-20 20:44:43 +010023671 if (vim_strsize(s) > MSG_BUF_CLEN)
23672 {
23673 trunc_string(s, buf, MSG_BUF_CLEN, MSG_BUF_LEN);
23674 s = buf;
23675 }
23676 smsg((char_u *)_("%s returning %s"), sourcing_name, s);
Bram Moolenaar92c5aba2007-08-14 20:29:31 +000023677 vim_free(tofree);
23678 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000023679 }
23680 msg_puts((char_u *)"\n"); /* don't overwrite this either */
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023681
23682 verbose_leave_scroll();
Bram Moolenaar071d4272004-06-13 20:20:40 +000023683 --no_wait_return;
23684 }
23685
23686 vim_free(sourcing_name);
23687 sourcing_name = save_sourcing_name;
23688 sourcing_lnum = save_sourcing_lnum;
23689 current_SID = save_current_SID;
Bram Moolenaar05159a02005-02-26 23:04:13 +000023690#ifdef FEAT_PROFILE
Bram Moolenaarb3656ed2006-03-20 21:59:49 +000023691 if (do_profiling == PROF_YES)
Bram Moolenaar05159a02005-02-26 23:04:13 +000023692 script_prof_restore(&wait_start);
23693#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000023694
23695 if (p_verbose >= 12 && sourcing_name != NULL)
23696 {
23697 ++no_wait_return;
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023698 verbose_enter_scroll();
23699
Bram Moolenaar555b2802005-05-19 21:08:39 +000023700 smsg((char_u *)_("continuing in %s"), sourcing_name);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023701 msg_puts((char_u *)"\n"); /* don't overwrite this either */
Bram Moolenaar54ee7752005-05-31 22:22:17 +000023702
23703 verbose_leave_scroll();
Bram Moolenaar071d4272004-06-13 20:20:40 +000023704 --no_wait_return;
23705 }
23706
23707 did_emsg |= save_did_emsg;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023708 current_funccal = fc->caller;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023709 --depth;
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023710
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +000023711 /* If the a:000 list and the l: and a: dicts are not referenced we can
23712 * free the funccall_T and what's in it. */
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023713 if (fc->l_varlist.lv_refcount == DO_NOT_FREE_CNT
23714 && fc->l_vars.dv_refcount == DO_NOT_FREE_CNT
23715 && fc->l_avars.dv_refcount == DO_NOT_FREE_CNT)
23716 {
23717 free_funccal(fc, FALSE);
23718 }
23719 else
23720 {
23721 hashitem_T *hi;
23722 listitem_T *li;
23723 int todo;
23724
23725 /* "fc" is still in use. This can happen when returning "a:000" or
23726 * assigning "l:" to a global variable.
23727 * Link "fc" in the list for garbage collection later. */
23728 fc->caller = previous_funccal;
23729 previous_funccal = fc;
23730
23731 /* Make a copy of the a: variables, since we didn't do that above. */
23732 todo = (int)fc->l_avars.dv_hashtab.ht_used;
23733 for (hi = fc->l_avars.dv_hashtab.ht_array; todo > 0; ++hi)
23734 {
23735 if (!HASHITEM_EMPTY(hi))
23736 {
23737 --todo;
23738 v = HI2DI(hi);
23739 copy_tv(&v->di_tv, &v->di_tv);
23740 }
23741 }
23742
23743 /* Make a copy of the a:000 items, since we didn't do that above. */
23744 for (li = fc->l_varlist.lv_first; li != NULL; li = li->li_next)
23745 copy_tv(&li->li_tv, &li->li_tv);
23746 }
23747}
23748
23749/*
23750 * Return TRUE if items in "fc" do not have "copyID". That means they are not
Bram Moolenaarc0a6fac2009-05-24 11:40:58 +000023751 * referenced from anywhere that is in use.
Bram Moolenaar8ba1bd22008-12-23 22:52:58 +000023752 */
23753 static int
23754can_free_funccal(fc, copyID)
23755 funccall_T *fc;
23756 int copyID;
23757{
23758 return (fc->l_varlist.lv_copyID != copyID
23759 && fc->l_vars.dv_copyID != copyID
23760 && fc->l_avars.dv_copyID != copyID);
23761}
23762
23763/*
23764 * Free "fc" and what it contains.
23765 */
23766 static void
23767free_funccal(fc, free_val)
23768 funccall_T *fc;
23769 int free_val; /* a: vars were allocated */
23770{
23771 listitem_T *li;
23772
23773 /* The a: variables typevals may not have been allocated, only free the
23774 * allocated variables. */
23775 vars_clear_ext(&fc->l_avars.dv_hashtab, free_val);
23776
23777 /* free all l: variables */
23778 vars_clear(&fc->l_vars.dv_hashtab);
23779
23780 /* Free the a:000 variables if they were allocated. */
23781 if (free_val)
23782 for (li = fc->l_varlist.lv_first; li != NULL; li = li->li_next)
23783 clear_tv(&li->li_tv);
23784
23785 vim_free(fc);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023786}
23787
23788/*
Bram Moolenaar33570922005-01-25 22:26:29 +000023789 * Add a number variable "name" to dict "dp" with value "nr".
23790 */
23791 static void
23792add_nr_var(dp, v, name, nr)
23793 dict_T *dp;
23794 dictitem_T *v;
23795 char *name;
23796 varnumber_T nr;
23797{
23798 STRCPY(v->di_key, name);
23799 v->di_flags = DI_FLAGS_RO | DI_FLAGS_FIX;
23800 hash_add(&dp->dv_hashtab, DI2HIKEY(v));
23801 v->di_tv.v_type = VAR_NUMBER;
Bram Moolenaar2e6aff32005-01-31 19:25:36 +000023802 v->di_tv.v_lock = VAR_FIXED;
Bram Moolenaar33570922005-01-25 22:26:29 +000023803 v->di_tv.vval.v_number = nr;
23804}
23805
23806/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000023807 * ":return [expr]"
23808 */
23809 void
23810ex_return(eap)
23811 exarg_T *eap;
23812{
23813 char_u *arg = eap->arg;
Bram Moolenaar33570922005-01-25 22:26:29 +000023814 typval_T rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023815 int returning = FALSE;
23816
23817 if (current_funccal == NULL)
23818 {
23819 EMSG(_("E133: :return not inside a function"));
23820 return;
23821 }
23822
23823 if (eap->skip)
23824 ++emsg_skip;
23825
23826 eap->nextcmd = NULL;
23827 if ((*arg != NUL && *arg != '|' && *arg != '\n')
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023828 && eval0(arg, &rettv, &eap->nextcmd, !eap->skip) != FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023829 {
23830 if (!eap->skip)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023831 returning = do_return(eap, FALSE, TRUE, &rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023832 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023833 clear_tv(&rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023834 }
23835 /* It's safer to return also on error. */
23836 else if (!eap->skip)
23837 {
23838 /*
23839 * Return unless the expression evaluation has been cancelled due to an
23840 * aborting error, an interrupt, or an exception.
23841 */
23842 if (!aborting())
23843 returning = do_return(eap, FALSE, TRUE, NULL);
23844 }
23845
23846 /* When skipping or the return gets pending, advance to the next command
23847 * in this line (!returning). Otherwise, ignore the rest of the line.
23848 * Following lines will be ignored by get_func_line(). */
23849 if (returning)
23850 eap->nextcmd = NULL;
23851 else if (eap->nextcmd == NULL) /* no argument */
23852 eap->nextcmd = check_nextcmd(arg);
23853
23854 if (eap->skip)
23855 --emsg_skip;
23856}
23857
23858/*
23859 * Return from a function. Possibly makes the return pending. Also called
23860 * for a pending return at the ":endtry" or after returning from an extra
23861 * do_cmdline(). "reanimate" is used in the latter case. "is_cmd" is set
Bram Moolenaar33570922005-01-25 22:26:29 +000023862 * when called due to a ":return" command. "rettv" may point to a typval_T
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023863 * with the return rettv. Returns TRUE when the return can be carried out,
Bram Moolenaar071d4272004-06-13 20:20:40 +000023864 * FALSE when the return gets pending.
23865 */
23866 int
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023867do_return(eap, reanimate, is_cmd, rettv)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023868 exarg_T *eap;
23869 int reanimate;
23870 int is_cmd;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023871 void *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023872{
23873 int idx;
23874 struct condstack *cstack = eap->cstack;
23875
23876 if (reanimate)
23877 /* Undo the return. */
23878 current_funccal->returned = FALSE;
23879
23880 /*
23881 * Cleanup (and inactivate) conditionals, but stop when a try conditional
23882 * not in its finally clause (which then is to be executed next) is found.
23883 * In this case, make the ":return" pending for execution at the ":endtry".
23884 * Otherwise, return normally.
23885 */
23886 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
23887 if (idx >= 0)
23888 {
23889 cstack->cs_pending[idx] = CSTP_RETURN;
23890
23891 if (!is_cmd && !reanimate)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023892 /* A pending return again gets pending. "rettv" points to an
23893 * allocated variable with the rettv of the original ":return"'s
Bram Moolenaar071d4272004-06-13 20:20:40 +000023894 * argument if present or is NULL else. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023895 cstack->cs_rettv[idx] = rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023896 else
23897 {
23898 /* When undoing a return in order to make it pending, get the stored
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023899 * return rettv. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023900 if (reanimate)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023901 rettv = current_funccal->rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023902
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023903 if (rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023904 {
23905 /* Store the value of the pending return. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023906 if ((cstack->cs_rettv[idx] = alloc_tv()) != NULL)
Bram Moolenaar33570922005-01-25 22:26:29 +000023907 *(typval_T *)cstack->cs_rettv[idx] = *(typval_T *)rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023908 else
23909 EMSG(_(e_outofmem));
23910 }
23911 else
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023912 cstack->cs_rettv[idx] = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023913
23914 if (reanimate)
23915 {
23916 /* The pending return value could be overwritten by a ":return"
23917 * without argument in a finally clause; reset the default
23918 * return value. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023919 current_funccal->rettv->v_type = VAR_NUMBER;
23920 current_funccal->rettv->vval.v_number = 0;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023921 }
23922 }
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023923 report_make_pending(CSTP_RETURN, rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023924 }
23925 else
23926 {
23927 current_funccal->returned = TRUE;
23928
23929 /* If the return is carried out now, store the return value. For
23930 * a return immediately after reanimation, the value is already
23931 * there. */
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023932 if (!reanimate && rettv != NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000023933 {
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023934 clear_tv(current_funccal->rettv);
Bram Moolenaar33570922005-01-25 22:26:29 +000023935 *current_funccal->rettv = *(typval_T *)rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023936 if (!is_cmd)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023937 vim_free(rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023938 }
23939 }
23940
23941 return idx < 0;
23942}
23943
23944/*
23945 * Free the variable with a pending return value.
23946 */
23947 void
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023948discard_pending_return(rettv)
23949 void *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023950{
Bram Moolenaar33570922005-01-25 22:26:29 +000023951 free_tv((typval_T *)rettv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023952}
23953
23954/*
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023955 * Generate a return command for producing the value of "rettv". The result
Bram Moolenaar071d4272004-06-13 20:20:40 +000023956 * is an allocated string. Used by report_pending() for verbose messages.
23957 */
23958 char_u *
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023959get_return_cmd(rettv)
23960 void *rettv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023961{
Bram Moolenaar81bf7082005-02-12 14:31:42 +000023962 char_u *s = NULL;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023963 char_u *tofree = NULL;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000023964 char_u numbuf[NUMBUFLEN];
Bram Moolenaar071d4272004-06-13 20:20:40 +000023965
Bram Moolenaar81bf7082005-02-12 14:31:42 +000023966 if (rettv != NULL)
Bram Moolenaarb71eaae2006-01-20 23:10:18 +000023967 s = echo_string((typval_T *)rettv, &tofree, numbuf, 0);
Bram Moolenaar81bf7082005-02-12 14:31:42 +000023968 if (s == NULL)
23969 s = (char_u *)"";
Bram Moolenaarc70646c2005-01-04 21:52:38 +000023970
23971 STRCPY(IObuff, ":return ");
23972 STRNCPY(IObuff + 8, s, IOSIZE - 8);
23973 if (STRLEN(s) + 8 >= IOSIZE)
23974 STRCPY(IObuff + IOSIZE - 4, "...");
23975 vim_free(tofree);
23976 return vim_strsave(IObuff);
Bram Moolenaar071d4272004-06-13 20:20:40 +000023977}
23978
23979/*
23980 * Get next function line.
23981 * Called by do_cmdline() to get the next line.
23982 * Returns allocated string, or NULL for end of function.
23983 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023984 char_u *
23985get_func_line(c, cookie, indent)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000023986 int c UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023987 void *cookie;
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000023988 int indent UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +000023989{
Bram Moolenaar33570922005-01-25 22:26:29 +000023990 funccall_T *fcp = (funccall_T *)cookie;
Bram Moolenaar05159a02005-02-26 23:04:13 +000023991 ufunc_T *fp = fcp->func;
23992 char_u *retval;
23993 garray_T *gap; /* growarray with function lines */
Bram Moolenaar071d4272004-06-13 20:20:40 +000023994
23995 /* If breakpoints have been added/deleted need to check for it. */
23996 if (fcp->dbg_tick != debug_tick)
23997 {
Bram Moolenaar05159a02005-02-26 23:04:13 +000023998 fcp->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name,
Bram Moolenaar071d4272004-06-13 20:20:40 +000023999 sourcing_lnum);
24000 fcp->dbg_tick = debug_tick;
24001 }
Bram Moolenaar05159a02005-02-26 23:04:13 +000024002#ifdef FEAT_PROFILE
Bram Moolenaarb3656ed2006-03-20 21:59:49 +000024003 if (do_profiling == PROF_YES)
Bram Moolenaar05159a02005-02-26 23:04:13 +000024004 func_line_end(cookie);
24005#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000024006
Bram Moolenaar05159a02005-02-26 23:04:13 +000024007 gap = &fp->uf_lines;
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000024008 if (((fp->uf_flags & FC_ABORT) && did_emsg && !aborted_in_try())
24009 || fcp->returned)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024010 retval = NULL;
24011 else
24012 {
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000024013 /* Skip NULL lines (continuation lines). */
24014 while (fcp->linenr < gap->ga_len
24015 && ((char_u **)(gap->ga_data))[fcp->linenr] == NULL)
24016 ++fcp->linenr;
24017 if (fcp->linenr >= gap->ga_len)
24018 retval = NULL;
24019 else
24020 {
24021 retval = vim_strsave(((char_u **)(gap->ga_data))[fcp->linenr++]);
24022 sourcing_lnum = fcp->linenr;
Bram Moolenaar05159a02005-02-26 23:04:13 +000024023#ifdef FEAT_PROFILE
Bram Moolenaarb3656ed2006-03-20 21:59:49 +000024024 if (do_profiling == PROF_YES)
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000024025 func_line_start(cookie);
Bram Moolenaar05159a02005-02-26 23:04:13 +000024026#endif
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000024027 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024028 }
24029
24030 /* Did we encounter a breakpoint? */
24031 if (fcp->breakpoint != 0 && fcp->breakpoint <= sourcing_lnum)
24032 {
Bram Moolenaar05159a02005-02-26 23:04:13 +000024033 dbg_breakpoint(fp->uf_name, sourcing_lnum);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024034 /* Find next breakpoint. */
Bram Moolenaar05159a02005-02-26 23:04:13 +000024035 fcp->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name,
Bram Moolenaar071d4272004-06-13 20:20:40 +000024036 sourcing_lnum);
24037 fcp->dbg_tick = debug_tick;
24038 }
24039
24040 return retval;
24041}
24042
Bram Moolenaar05159a02005-02-26 23:04:13 +000024043#if defined(FEAT_PROFILE) || defined(PROTO)
24044/*
24045 * Called when starting to read a function line.
24046 * "sourcing_lnum" must be correct!
24047 * When skipping lines it may not actually be executed, but we won't find out
24048 * until later and we need to store the time now.
24049 */
24050 void
24051func_line_start(cookie)
24052 void *cookie;
24053{
24054 funccall_T *fcp = (funccall_T *)cookie;
24055 ufunc_T *fp = fcp->func;
24056
24057 if (fp->uf_profiling && sourcing_lnum >= 1
24058 && sourcing_lnum <= fp->uf_lines.ga_len)
24059 {
24060 fp->uf_tml_idx = sourcing_lnum - 1;
Bram Moolenaar5e3cb7e2006-02-27 23:58:35 +000024061 /* Skip continuation lines. */
24062 while (fp->uf_tml_idx > 0 && FUNCLINE(fp, fp->uf_tml_idx) == NULL)
24063 --fp->uf_tml_idx;
Bram Moolenaar05159a02005-02-26 23:04:13 +000024064 fp->uf_tml_execed = FALSE;
24065 profile_start(&fp->uf_tml_start);
24066 profile_zero(&fp->uf_tml_children);
24067 profile_get_wait(&fp->uf_tml_wait);
24068 }
24069}
24070
24071/*
24072 * Called when actually executing a function line.
24073 */
24074 void
24075func_line_exec(cookie)
24076 void *cookie;
24077{
24078 funccall_T *fcp = (funccall_T *)cookie;
24079 ufunc_T *fp = fcp->func;
24080
24081 if (fp->uf_profiling && fp->uf_tml_idx >= 0)
24082 fp->uf_tml_execed = TRUE;
24083}
24084
24085/*
24086 * Called when done with a function line.
24087 */
24088 void
24089func_line_end(cookie)
24090 void *cookie;
24091{
24092 funccall_T *fcp = (funccall_T *)cookie;
24093 ufunc_T *fp = fcp->func;
24094
24095 if (fp->uf_profiling && fp->uf_tml_idx >= 0)
24096 {
24097 if (fp->uf_tml_execed)
24098 {
24099 ++fp->uf_tml_count[fp->uf_tml_idx];
24100 profile_end(&fp->uf_tml_start);
24101 profile_sub_wait(&fp->uf_tml_wait, &fp->uf_tml_start);
Bram Moolenaar05159a02005-02-26 23:04:13 +000024102 profile_add(&fp->uf_tml_total[fp->uf_tml_idx], &fp->uf_tml_start);
Bram Moolenaar1056d982006-03-09 22:37:52 +000024103 profile_self(&fp->uf_tml_self[fp->uf_tml_idx], &fp->uf_tml_start,
24104 &fp->uf_tml_children);
Bram Moolenaar05159a02005-02-26 23:04:13 +000024105 }
24106 fp->uf_tml_idx = -1;
24107 }
24108}
24109#endif
24110
Bram Moolenaar071d4272004-06-13 20:20:40 +000024111/*
24112 * Return TRUE if the currently active function should be ended, because a
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024113 * return was encountered or an error occurred. Used inside a ":while".
Bram Moolenaar071d4272004-06-13 20:20:40 +000024114 */
24115 int
24116func_has_ended(cookie)
24117 void *cookie;
24118{
Bram Moolenaar33570922005-01-25 22:26:29 +000024119 funccall_T *fcp = (funccall_T *)cookie;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024120
24121 /* Ignore the "abort" flag if the abortion behavior has been changed due to
24122 * an error inside a try conditional. */
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000024123 return (((fcp->func->uf_flags & FC_ABORT) && did_emsg && !aborted_in_try())
Bram Moolenaar071d4272004-06-13 20:20:40 +000024124 || fcp->returned);
24125}
24126
24127/*
24128 * return TRUE if cookie indicates a function which "abort"s on errors.
24129 */
24130 int
24131func_has_abort(cookie)
24132 void *cookie;
24133{
Bram Moolenaar5313dcb2005-02-22 08:56:13 +000024134 return ((funccall_T *)cookie)->func->uf_flags & FC_ABORT;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024135}
24136
24137#if defined(FEAT_VIMINFO) || defined(FEAT_SESSION)
24138typedef enum
24139{
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024140 VAR_FLAVOUR_DEFAULT, /* doesn't start with uppercase */
24141 VAR_FLAVOUR_SESSION, /* starts with uppercase, some lower */
24142 VAR_FLAVOUR_VIMINFO /* all uppercase */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024143} var_flavour_T;
24144
24145static var_flavour_T var_flavour __ARGS((char_u *varname));
24146
24147 static var_flavour_T
24148var_flavour(varname)
24149 char_u *varname;
24150{
24151 char_u *p = varname;
24152
24153 if (ASCII_ISUPPER(*p))
24154 {
24155 while (*(++p))
24156 if (ASCII_ISLOWER(*p))
24157 return VAR_FLAVOUR_SESSION;
24158 return VAR_FLAVOUR_VIMINFO;
24159 }
24160 else
24161 return VAR_FLAVOUR_DEFAULT;
24162}
24163#endif
24164
24165#if defined(FEAT_VIMINFO) || defined(PROTO)
24166/*
24167 * Restore global vars that start with a capital from the viminfo file
24168 */
24169 int
24170read_viminfo_varlist(virp, writing)
24171 vir_T *virp;
24172 int writing;
24173{
24174 char_u *tab;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024175 int type = VAR_NUMBER;
Bram Moolenaar33570922005-01-25 22:26:29 +000024176 typval_T tv;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024177
24178 if (!writing && (find_viminfo_parameter('!') != NULL))
24179 {
24180 tab = vim_strchr(virp->vir_line + 1, '\t');
24181 if (tab != NULL)
24182 {
24183 *tab++ = '\0'; /* isolate the variable name */
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024184 switch (*tab)
24185 {
24186 case 'S': type = VAR_STRING; break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024187#ifdef FEAT_FLOAT
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024188 case 'F': type = VAR_FLOAT; break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024189#endif
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024190 case 'D': type = VAR_DICT; break;
24191 case 'L': type = VAR_LIST; break;
24192 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024193
24194 tab = vim_strchr(tab, '\t');
24195 if (tab != NULL)
24196 {
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024197 tv.v_type = type;
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024198 if (type == VAR_STRING || type == VAR_DICT || type == VAR_LIST)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +000024199 tv.vval.v_string = viminfo_readstring(virp,
Bram Moolenaar071d4272004-06-13 20:20:40 +000024200 (int)(tab - virp->vir_line + 1), TRUE);
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024201#ifdef FEAT_FLOAT
24202 else if (type == VAR_FLOAT)
24203 (void)string2float(tab + 1, &tv.vval.v_float);
24204#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000024205 else
Bram Moolenaar3d60ec22005-01-05 22:19:46 +000024206 tv.vval.v_number = atol((char *)tab + 1);
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024207 if (type == VAR_DICT || type == VAR_LIST)
24208 {
24209 typval_T *etv = eval_expr(tv.vval.v_string, NULL);
24210
24211 if (etv == NULL)
24212 /* Failed to parse back the dict or list, use it as a
24213 * string. */
24214 tv.v_type = VAR_STRING;
24215 else
24216 {
24217 vim_free(tv.vval.v_string);
24218 tv = *etv;
Bram Moolenaar507cc8a2012-03-23 15:37:02 +010024219 vim_free(etv);
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024220 }
24221 }
24222
Bram Moolenaar3d60ec22005-01-05 22:19:46 +000024223 set_var(virp->vir_line + 1, &tv, FALSE);
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024224
24225 if (tv.v_type == VAR_STRING)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +000024226 vim_free(tv.vval.v_string);
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024227 else if (tv.v_type == VAR_DICT || tv.v_type == VAR_LIST)
24228 clear_tv(&tv);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024229 }
24230 }
24231 }
24232
24233 return viminfo_readline(virp);
24234}
24235
24236/*
24237 * Write global vars that start with a capital to the viminfo file
24238 */
24239 void
24240write_viminfo_varlist(fp)
24241 FILE *fp;
24242{
Bram Moolenaar33570922005-01-25 22:26:29 +000024243 hashitem_T *hi;
24244 dictitem_T *this_var;
Bram Moolenaara7043832005-01-21 11:56:39 +000024245 int todo;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000024246 char *s;
Bram Moolenaar81bf7082005-02-12 14:31:42 +000024247 char_u *p;
Bram Moolenaarc70646c2005-01-04 21:52:38 +000024248 char_u *tofree;
Bram Moolenaar8a283e52005-01-06 23:28:25 +000024249 char_u numbuf[NUMBUFLEN];
Bram Moolenaar071d4272004-06-13 20:20:40 +000024250
24251 if (find_viminfo_parameter('!') == NULL)
24252 return;
24253
Bram Moolenaar9577c3e2010-05-14 12:16:25 +020024254 fputs(_("\n# global variables:\n"), fp);
Bram Moolenaara7043832005-01-21 11:56:39 +000024255
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000024256 todo = (int)globvarht.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +000024257 for (hi = globvarht.ht_array; todo > 0; ++hi)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024258 {
Bram Moolenaara7043832005-01-21 11:56:39 +000024259 if (!HASHITEM_EMPTY(hi))
Bram Moolenaar071d4272004-06-13 20:20:40 +000024260 {
Bram Moolenaara7043832005-01-21 11:56:39 +000024261 --todo;
Bram Moolenaar33570922005-01-25 22:26:29 +000024262 this_var = HI2DI(hi);
24263 if (var_flavour(this_var->di_key) == VAR_FLAVOUR_VIMINFO)
Bram Moolenaarc70646c2005-01-04 21:52:38 +000024264 {
Bram Moolenaar33570922005-01-25 22:26:29 +000024265 switch (this_var->di_tv.v_type)
Bram Moolenaara7043832005-01-21 11:56:39 +000024266 {
24267 case VAR_STRING: s = "STR"; break;
24268 case VAR_NUMBER: s = "NUM"; break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024269#ifdef FEAT_FLOAT
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024270 case VAR_FLOAT: s = "FLO"; break;
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024271#endif
Bram Moolenaar680eeca2010-10-20 17:44:42 +020024272 case VAR_DICT: s = "DIC"; break;
24273 case VAR_LIST: s = "LIS"; break;
Bram Moolenaara7043832005-01-21 11:56:39 +000024274 default: continue;
24275 }
Bram Moolenaar33570922005-01-25 22:26:29 +000024276 fprintf(fp, "!%s\t%s\t", this_var->di_key, s);
Bram Moolenaarb71eaae2006-01-20 23:10:18 +000024277 p = echo_string(&this_var->di_tv, &tofree, numbuf, 0);
Bram Moolenaar81bf7082005-02-12 14:31:42 +000024278 if (p != NULL)
24279 viminfo_writestring(fp, p);
Bram Moolenaara7043832005-01-21 11:56:39 +000024280 vim_free(tofree);
24281 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024282 }
24283 }
24284}
24285#endif
24286
24287#if defined(FEAT_SESSION) || defined(PROTO)
24288 int
24289store_session_globals(fd)
24290 FILE *fd;
24291{
Bram Moolenaar33570922005-01-25 22:26:29 +000024292 hashitem_T *hi;
24293 dictitem_T *this_var;
Bram Moolenaara7043832005-01-21 11:56:39 +000024294 int todo;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024295 char_u *p, *t;
24296
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000024297 todo = (int)globvarht.ht_used;
Bram Moolenaar33570922005-01-25 22:26:29 +000024298 for (hi = globvarht.ht_array; todo > 0; ++hi)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024299 {
Bram Moolenaara7043832005-01-21 11:56:39 +000024300 if (!HASHITEM_EMPTY(hi))
Bram Moolenaar071d4272004-06-13 20:20:40 +000024301 {
Bram Moolenaara7043832005-01-21 11:56:39 +000024302 --todo;
Bram Moolenaar33570922005-01-25 22:26:29 +000024303 this_var = HI2DI(hi);
24304 if ((this_var->di_tv.v_type == VAR_NUMBER
24305 || this_var->di_tv.v_type == VAR_STRING)
24306 && var_flavour(this_var->di_key) == VAR_FLAVOUR_SESSION)
Bram Moolenaar3d60ec22005-01-05 22:19:46 +000024307 {
Bram Moolenaara7043832005-01-21 11:56:39 +000024308 /* Escape special characters with a backslash. Turn a LF and
24309 * CR into \n and \r. */
Bram Moolenaar33570922005-01-25 22:26:29 +000024310 p = vim_strsave_escaped(get_tv_string(&this_var->di_tv),
Bram Moolenaara7043832005-01-21 11:56:39 +000024311 (char_u *)"\\\"\n\r");
24312 if (p == NULL) /* out of memory */
24313 break;
24314 for (t = p; *t != NUL; ++t)
24315 if (*t == '\n')
24316 *t = 'n';
24317 else if (*t == '\r')
24318 *t = 'r';
24319 if ((fprintf(fd, "let %s = %c%s%c",
Bram Moolenaar33570922005-01-25 22:26:29 +000024320 this_var->di_key,
24321 (this_var->di_tv.v_type == VAR_STRING) ? '"'
24322 : ' ',
24323 p,
24324 (this_var->di_tv.v_type == VAR_STRING) ? '"'
24325 : ' ') < 0)
Bram Moolenaara7043832005-01-21 11:56:39 +000024326 || put_eol(fd) == FAIL)
24327 {
24328 vim_free(p);
24329 return FAIL;
24330 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024331 vim_free(p);
24332 }
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024333#ifdef FEAT_FLOAT
24334 else if (this_var->di_tv.v_type == VAR_FLOAT
24335 && var_flavour(this_var->di_key) == VAR_FLAVOUR_SESSION)
24336 {
24337 float_T f = this_var->di_tv.vval.v_float;
24338 int sign = ' ';
24339
24340 if (f < 0)
24341 {
24342 f = -f;
24343 sign = '-';
24344 }
Bram Moolenaar2b04b192012-01-26 11:45:30 +010024345 if ((fprintf(fd, "let %s = %c%f",
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024346 this_var->di_key, sign, f) < 0)
24347 || put_eol(fd) == FAIL)
24348 return FAIL;
24349 }
24350#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000024351 }
24352 }
24353 return OK;
24354}
24355#endif
24356
Bram Moolenaar661b1822005-07-28 22:36:45 +000024357/*
24358 * Display script name where an item was last set.
24359 * Should only be invoked when 'verbose' is non-zero.
24360 */
24361 void
24362last_set_msg(scriptID)
24363 scid_T scriptID;
24364{
Bram Moolenaarcafda4f2005-09-06 19:25:11 +000024365 char_u *p;
24366
Bram Moolenaar661b1822005-07-28 22:36:45 +000024367 if (scriptID != 0)
24368 {
Bram Moolenaarcafda4f2005-09-06 19:25:11 +000024369 p = home_replace_save(NULL, get_scriptname(scriptID));
24370 if (p != NULL)
24371 {
24372 verbose_enter();
24373 MSG_PUTS(_("\n\tLast set from "));
24374 MSG_PUTS(p);
24375 vim_free(p);
24376 verbose_leave();
24377 }
Bram Moolenaar661b1822005-07-28 22:36:45 +000024378 }
24379}
24380
Bram Moolenaard812df62008-11-09 12:46:09 +000024381/*
24382 * List v:oldfiles in a nice way.
24383 */
Bram Moolenaard812df62008-11-09 12:46:09 +000024384 void
24385ex_oldfiles(eap)
Bram Moolenaaraf0167f2009-05-16 15:31:32 +000024386 exarg_T *eap UNUSED;
Bram Moolenaard812df62008-11-09 12:46:09 +000024387{
24388 list_T *l = vimvars[VV_OLDFILES].vv_list;
24389 listitem_T *li;
24390 int nr = 0;
24391
24392 if (l == NULL)
24393 msg((char_u *)_("No old files"));
24394 else
24395 {
24396 msg_start();
24397 msg_scroll = TRUE;
24398 for (li = l->lv_first; li != NULL && !got_int; li = li->li_next)
24399 {
24400 msg_outnum((long)++nr);
24401 MSG_PUTS(": ");
24402 msg_outtrans(get_tv_string(&li->li_tv));
24403 msg_putchar('\n');
24404 out_flush(); /* output one line at a time */
24405 ui_breakcheck();
24406 }
24407 /* Assume "got_int" was set to truncate the listing. */
24408 got_int = FALSE;
24409
24410#ifdef FEAT_BROWSE_CMD
24411 if (cmdmod.browse)
24412 {
24413 quit_more = FALSE;
24414 nr = prompt_for_number(FALSE);
24415 msg_starthere();
24416 if (nr > 0)
24417 {
24418 char_u *p = list_find_str(get_vim_var_list(VV_OLDFILES),
24419 (long)nr);
24420
24421 if (p != NULL)
24422 {
24423 p = expand_env_save(p);
24424 eap->arg = p;
24425 eap->cmdidx = CMD_edit;
24426 cmdmod.browse = FALSE;
24427 do_exedit(eap, NULL);
24428 vim_free(p);
24429 }
24430 }
24431 }
24432#endif
24433 }
24434}
24435
Bram Moolenaar071d4272004-06-13 20:20:40 +000024436#endif /* FEAT_EVAL */
24437
Bram Moolenaar071d4272004-06-13 20:20:40 +000024438
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024439#if defined(FEAT_MODIFY_FNAME) || defined(FEAT_EVAL) || defined(PROTO)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024440
24441#ifdef WIN3264
24442/*
24443 * Functions for ":8" filename modifier: get 8.3 version of a filename.
24444 */
24445static int get_short_pathname __ARGS((char_u **fnamep, char_u **bufp, int *fnamelen));
24446static int shortpath_for_invalid_fname __ARGS((char_u **fname, char_u **bufp, int *fnamelen));
24447static int shortpath_for_partial __ARGS((char_u **fnamep, char_u **bufp, int *fnamelen));
24448
24449/*
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024450 * Get the short path (8.3) for the filename in "fnamep".
24451 * Only works for a valid file name.
24452 * When the path gets longer "fnamep" is changed and the allocated buffer
24453 * is put in "bufp".
24454 * *fnamelen is the length of "fnamep" and set to 0 for a nonexistent path.
24455 * Returns OK on success, FAIL on failure.
Bram Moolenaar071d4272004-06-13 20:20:40 +000024456 */
24457 static int
24458get_short_pathname(fnamep, bufp, fnamelen)
24459 char_u **fnamep;
24460 char_u **bufp;
24461 int *fnamelen;
24462{
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024463 int l, len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024464 char_u *newbuf;
24465
24466 len = *fnamelen;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024467 l = GetShortPathName(*fnamep, *fnamep, len);
24468 if (l > len - 1)
24469 {
24470 /* If that doesn't work (not enough space), then save the string
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024471 * and try again with a new buffer big enough. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024472 newbuf = vim_strnsave(*fnamep, l);
24473 if (newbuf == NULL)
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024474 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024475
24476 vim_free(*bufp);
24477 *fnamep = *bufp = newbuf;
24478
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024479 /* Really should always succeed, as the buffer is big enough. */
24480 l = GetShortPathName(*fnamep, *fnamep, l+1);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024481 }
24482
24483 *fnamelen = l;
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024484 return OK;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024485}
24486
24487/*
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024488 * Get the short path (8.3) for the filename in "fname". The converted
24489 * path is returned in "bufp".
24490 *
24491 * Some of the directories specified in "fname" may not exist. This function
24492 * will shorten the existing directories at the beginning of the path and then
24493 * append the remaining non-existing path.
24494 *
24495 * fname - Pointer to the filename to shorten. On return, contains the
Bram Moolenaar2c704a72010-06-03 21:17:25 +020024496 * pointer to the shortened pathname
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024497 * bufp - Pointer to an allocated buffer for the filename.
24498 * fnamelen - Length of the filename pointed to by fname
24499 *
24500 * Returns OK on success (or nothing done) and FAIL on failure (out of memory).
Bram Moolenaar071d4272004-06-13 20:20:40 +000024501 */
24502 static int
24503shortpath_for_invalid_fname(fname, bufp, fnamelen)
24504 char_u **fname;
24505 char_u **bufp;
24506 int *fnamelen;
24507{
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024508 char_u *short_fname, *save_fname, *pbuf_unused;
24509 char_u *endp, *save_endp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024510 char_u ch;
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024511 int old_len, len;
24512 int new_len, sfx_len;
24513 int retval = OK;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024514
24515 /* Make a copy */
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024516 old_len = *fnamelen;
24517 save_fname = vim_strnsave(*fname, old_len);
24518 pbuf_unused = NULL;
24519 short_fname = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024520
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024521 endp = save_fname + old_len - 1; /* Find the end of the copy */
24522 save_endp = endp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024523
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024524 /*
24525 * Try shortening the supplied path till it succeeds by removing one
24526 * directory at a time from the tail of the path.
24527 */
24528 len = 0;
24529 for (;;)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024530 {
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024531 /* go back one path-separator */
24532 while (endp > save_fname && !after_pathsep(save_fname, endp + 1))
24533 --endp;
24534 if (endp <= save_fname)
24535 break; /* processed the complete path */
24536
24537 /*
24538 * Replace the path separator with a NUL and try to shorten the
24539 * resulting path.
24540 */
24541 ch = *endp;
24542 *endp = 0;
24543 short_fname = save_fname;
Bram Moolenaarc236c162008-07-13 17:41:49 +000024544 len = (int)STRLEN(short_fname) + 1;
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024545 if (get_short_pathname(&short_fname, &pbuf_unused, &len) == FAIL)
24546 {
24547 retval = FAIL;
24548 goto theend;
24549 }
24550 *endp = ch; /* preserve the string */
24551
24552 if (len > 0)
24553 break; /* successfully shortened the path */
24554
24555 /* failed to shorten the path. Skip the path separator */
24556 --endp;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024557 }
24558
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024559 if (len > 0)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024560 {
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024561 /*
24562 * Succeeded in shortening the path. Now concatenate the shortened
24563 * path with the remaining path at the tail.
24564 */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024565
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024566 /* Compute the length of the new path. */
24567 sfx_len = (int)(save_endp - endp) + 1;
24568 new_len = len + sfx_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024569
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024570 *fnamelen = new_len;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024571 vim_free(*bufp);
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024572 if (new_len > old_len)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024573 {
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024574 /* There is not enough space in the currently allocated string,
24575 * copy it to a buffer big enough. */
24576 *fname = *bufp = vim_strnsave(short_fname, new_len);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024577 if (*fname == NULL)
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024578 {
24579 retval = FAIL;
24580 goto theend;
24581 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024582 }
24583 else
24584 {
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024585 /* Transfer short_fname to the main buffer (it's big enough),
24586 * unless get_short_pathname() did its work in-place. */
24587 *fname = *bufp = save_fname;
24588 if (short_fname != save_fname)
24589 vim_strncpy(save_fname, short_fname, len);
24590 save_fname = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024591 }
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024592
24593 /* concat the not-shortened part of the path */
24594 vim_strncpy(*fname + len, endp, sfx_len);
24595 (*fname)[new_len] = NUL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024596 }
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024597
24598theend:
24599 vim_free(pbuf_unused);
24600 vim_free(save_fname);
24601
24602 return retval;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024603}
24604
24605/*
24606 * Get a pathname for a partial path.
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024607 * Returns OK for success, FAIL for failure.
Bram Moolenaar071d4272004-06-13 20:20:40 +000024608 */
24609 static int
24610shortpath_for_partial(fnamep, bufp, fnamelen)
24611 char_u **fnamep;
24612 char_u **bufp;
24613 int *fnamelen;
24614{
24615 int sepcount, len, tflen;
24616 char_u *p;
24617 char_u *pbuf, *tfname;
24618 int hasTilde;
24619
Bram Moolenaar8c8de832008-06-24 22:58:06 +000024620 /* Count up the path separators from the RHS.. so we know which part
24621 * of the path to return. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024622 sepcount = 0;
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000024623 for (p = *fnamep; p < *fnamep + *fnamelen; mb_ptr_adv(p))
Bram Moolenaar071d4272004-06-13 20:20:40 +000024624 if (vim_ispathsep(*p))
24625 ++sepcount;
24626
24627 /* Need full path first (use expand_env() to remove a "~/") */
24628 hasTilde = (**fnamep == '~');
24629 if (hasTilde)
24630 pbuf = tfname = expand_env_save(*fnamep);
24631 else
24632 pbuf = tfname = FullName_save(*fnamep, FALSE);
24633
Bram Moolenaara93fa7e2006-04-17 22:14:47 +000024634 len = tflen = (int)STRLEN(tfname);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024635
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024636 if (get_short_pathname(&tfname, &pbuf, &len) == FAIL)
24637 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024638
24639 if (len == 0)
24640 {
24641 /* Don't have a valid filename, so shorten the rest of the
24642 * path if we can. This CAN give us invalid 8.3 filenames, but
24643 * there's not a lot of point in guessing what it might be.
24644 */
24645 len = tflen;
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024646 if (shortpath_for_invalid_fname(&tfname, &pbuf, &len) == FAIL)
24647 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024648 }
24649
24650 /* Count the paths backward to find the beginning of the desired string. */
24651 for (p = tfname + len - 1; p >= tfname; --p)
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000024652 {
24653#ifdef FEAT_MBYTE
24654 if (has_mbyte)
24655 p -= mb_head_off(tfname, p);
24656#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000024657 if (vim_ispathsep(*p))
24658 {
24659 if (sepcount == 0 || (hasTilde && sepcount == 1))
24660 break;
24661 else
24662 sepcount --;
24663 }
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000024664 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024665 if (hasTilde)
24666 {
24667 --p;
24668 if (p >= tfname)
24669 *p = '~';
24670 else
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024671 return FAIL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024672 }
24673 else
24674 ++p;
24675
24676 /* Copy in the string - p indexes into tfname - allocated at pbuf */
24677 vim_free(*bufp);
24678 *fnamelen = (int)STRLEN(p);
24679 *bufp = pbuf;
24680 *fnamep = p;
24681
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024682 return OK;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024683}
24684#endif /* WIN3264 */
24685
24686/*
24687 * Adjust a filename, according to a string of modifiers.
24688 * *fnamep must be NUL terminated when called. When returning, the length is
24689 * determined by *fnamelen.
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024690 * Returns VALID_ flags or -1 for failure.
Bram Moolenaar071d4272004-06-13 20:20:40 +000024691 * When there is an error, *fnamep is set to NULL.
24692 */
24693 int
24694modify_fname(src, usedlen, fnamep, bufp, fnamelen)
24695 char_u *src; /* string with modifiers */
24696 int *usedlen; /* characters after src that are used */
24697 char_u **fnamep; /* file name so far */
24698 char_u **bufp; /* buffer for allocated file name or NULL */
24699 int *fnamelen; /* length of fnamep */
24700{
24701 int valid = 0;
24702 char_u *tail;
24703 char_u *s, *p, *pbuf;
24704 char_u dirname[MAXPATHL];
24705 int c;
24706 int has_fullname = 0;
24707#ifdef WIN3264
Bram Moolenaardc935552011-08-17 15:23:23 +020024708 char_u *fname_start = *fnamep;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024709 int has_shortname = 0;
24710#endif
24711
24712repeat:
24713 /* ":p" - full path/file_name */
24714 if (src[*usedlen] == ':' && src[*usedlen + 1] == 'p')
24715 {
24716 has_fullname = 1;
24717
24718 valid |= VALID_PATH;
24719 *usedlen += 2;
24720
24721 /* Expand "~/path" for all systems and "~user/path" for Unix and VMS */
24722 if ((*fnamep)[0] == '~'
24723#if !defined(UNIX) && !(defined(VMS) && defined(USER_HOME))
24724 && ((*fnamep)[1] == '/'
24725# ifdef BACKSLASH_IN_FILENAME
24726 || (*fnamep)[1] == '\\'
24727# endif
24728 || (*fnamep)[1] == NUL)
24729
24730#endif
24731 )
24732 {
24733 *fnamep = expand_env_save(*fnamep);
24734 vim_free(*bufp); /* free any allocated file name */
24735 *bufp = *fnamep;
24736 if (*fnamep == NULL)
24737 return -1;
24738 }
24739
24740 /* When "/." or "/.." is used: force expansion to get rid of it. */
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000024741 for (p = *fnamep; *p != NUL; mb_ptr_adv(p))
Bram Moolenaar071d4272004-06-13 20:20:40 +000024742 {
24743 if (vim_ispathsep(*p)
24744 && p[1] == '.'
24745 && (p[2] == NUL
24746 || vim_ispathsep(p[2])
24747 || (p[2] == '.'
24748 && (p[3] == NUL || vim_ispathsep(p[3])))))
24749 break;
24750 }
24751
24752 /* FullName_save() is slow, don't use it when not needed. */
24753 if (*p != NUL || !vim_isAbsName(*fnamep))
24754 {
24755 *fnamep = FullName_save(*fnamep, *p != NUL);
24756 vim_free(*bufp); /* free any allocated file name */
24757 *bufp = *fnamep;
24758 if (*fnamep == NULL)
24759 return -1;
24760 }
24761
Bram Moolenaar9158f9e2012-06-20 14:02:27 +020024762#ifdef WIN3264
24763# if _WIN32_WINNT >= 0x0500
24764 if (vim_strchr(*fnamep, '~') != NULL)
24765 {
24766 /* Expand 8.3 filename to full path. Needed to make sure the same
24767 * file does not have two different names.
24768 * Note: problem does not occur if _WIN32_WINNT < 0x0500. */
24769 p = alloc(_MAX_PATH + 1);
24770 if (p != NULL)
24771 {
Bram Moolenaar4c7b2f52014-11-19 18:03:28 +010024772 if (GetLongPathName(*fnamep, p, _MAX_PATH))
Bram Moolenaar9158f9e2012-06-20 14:02:27 +020024773 {
24774 vim_free(*bufp);
24775 *bufp = *fnamep = p;
24776 }
24777 else
24778 vim_free(p);
24779 }
24780 }
24781# endif
24782#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +000024783 /* Append a path separator to a directory. */
24784 if (mch_isdir(*fnamep))
24785 {
24786 /* Make room for one or two extra characters. */
24787 *fnamep = vim_strnsave(*fnamep, (int)STRLEN(*fnamep) + 2);
24788 vim_free(*bufp); /* free any allocated file name */
24789 *bufp = *fnamep;
24790 if (*fnamep == NULL)
24791 return -1;
24792 add_pathsep(*fnamep);
24793 }
24794 }
24795
24796 /* ":." - path relative to the current directory */
24797 /* ":~" - path relative to the home directory */
24798 /* ":8" - shortname path - postponed till after */
24799 while (src[*usedlen] == ':'
24800 && ((c = src[*usedlen + 1]) == '.' || c == '~' || c == '8'))
24801 {
24802 *usedlen += 2;
24803 if (c == '8')
24804 {
24805#ifdef WIN3264
24806 has_shortname = 1; /* Postpone this. */
24807#endif
24808 continue;
24809 }
24810 pbuf = NULL;
24811 /* Need full path first (use expand_env() to remove a "~/") */
24812 if (!has_fullname)
24813 {
24814 if (c == '.' && **fnamep == '~')
24815 p = pbuf = expand_env_save(*fnamep);
24816 else
24817 p = pbuf = FullName_save(*fnamep, FALSE);
24818 }
24819 else
24820 p = *fnamep;
24821
24822 has_fullname = 0;
24823
24824 if (p != NULL)
24825 {
24826 if (c == '.')
24827 {
24828 mch_dirname(dirname, MAXPATHL);
24829 s = shorten_fname(p, dirname);
24830 if (s != NULL)
24831 {
24832 *fnamep = s;
24833 if (pbuf != NULL)
24834 {
24835 vim_free(*bufp); /* free any allocated file name */
24836 *bufp = pbuf;
24837 pbuf = NULL;
24838 }
24839 }
24840 }
24841 else
24842 {
24843 home_replace(NULL, p, dirname, MAXPATHL, TRUE);
24844 /* Only replace it when it starts with '~' */
24845 if (*dirname == '~')
24846 {
24847 s = vim_strsave(dirname);
24848 if (s != NULL)
24849 {
24850 *fnamep = s;
24851 vim_free(*bufp);
24852 *bufp = s;
24853 }
24854 }
24855 }
24856 vim_free(pbuf);
24857 }
24858 }
24859
24860 tail = gettail(*fnamep);
24861 *fnamelen = (int)STRLEN(*fnamep);
24862
24863 /* ":h" - head, remove "/file_name", can be repeated */
24864 /* Don't remove the first "/" or "c:\" */
24865 while (src[*usedlen] == ':' && src[*usedlen + 1] == 'h')
24866 {
24867 valid |= VALID_HEAD;
24868 *usedlen += 2;
24869 s = get_past_head(*fnamep);
Bram Moolenaar1cd871b2004-12-19 22:46:22 +000024870 while (tail > s && after_pathsep(s, tail))
Bram Moolenaar5461cfe2007-09-25 18:40:14 +000024871 mb_ptr_back(*fnamep, tail);
Bram Moolenaar071d4272004-06-13 20:20:40 +000024872 *fnamelen = (int)(tail - *fnamep);
24873#ifdef VMS
24874 if (*fnamelen > 0)
24875 *fnamelen += 1; /* the path separator is part of the path */
24876#endif
Bram Moolenaar5461cfe2007-09-25 18:40:14 +000024877 if (*fnamelen == 0)
24878 {
24879 /* Result is empty. Turn it into "." to make ":cd %:h" work. */
24880 p = vim_strsave((char_u *)".");
24881 if (p == NULL)
24882 return -1;
24883 vim_free(*bufp);
24884 *bufp = *fnamep = tail = p;
24885 *fnamelen = 1;
24886 }
24887 else
24888 {
24889 while (tail > s && !after_pathsep(s, tail))
24890 mb_ptr_back(*fnamep, tail);
24891 }
Bram Moolenaar071d4272004-06-13 20:20:40 +000024892 }
24893
24894 /* ":8" - shortname */
24895 if (src[*usedlen] == ':' && src[*usedlen + 1] == '8')
24896 {
24897 *usedlen += 2;
24898#ifdef WIN3264
24899 has_shortname = 1;
24900#endif
24901 }
24902
24903#ifdef WIN3264
Bram Moolenaardc935552011-08-17 15:23:23 +020024904 /*
24905 * Handle ":8" after we have done 'heads' and before we do 'tails'.
Bram Moolenaar071d4272004-06-13 20:20:40 +000024906 */
24907 if (has_shortname)
24908 {
Bram Moolenaardc935552011-08-17 15:23:23 +020024909 /* Copy the string if it is shortened by :h and when it wasn't copied
24910 * yet, because we are going to change it in place. Avoids changing
24911 * the buffer name for "%:8". */
24912 if (*fnamelen < (int)STRLEN(*fnamep) || *fnamep == fname_start)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024913 {
24914 p = vim_strnsave(*fnamep, *fnamelen);
Bram Moolenaardc935552011-08-17 15:23:23 +020024915 if (p == NULL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024916 return -1;
24917 vim_free(*bufp);
24918 *bufp = *fnamep = p;
24919 }
24920
24921 /* Split into two implementations - makes it easier. First is where
Bram Moolenaardc935552011-08-17 15:23:23 +020024922 * there isn't a full name already, second is where there is. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024923 if (!has_fullname && !vim_isAbsName(*fnamep))
24924 {
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024925 if (shortpath_for_partial(fnamep, bufp, fnamelen) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024926 return -1;
24927 }
24928 else
24929 {
Bram Moolenaardc935552011-08-17 15:23:23 +020024930 int l = *fnamelen;
Bram Moolenaar071d4272004-06-13 20:20:40 +000024931
Bram Moolenaardc935552011-08-17 15:23:23 +020024932 /* Simple case, already have the full-name.
Bram Moolenaar071d4272004-06-13 20:20:40 +000024933 * Nearly always shorter, so try first time. */
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024934 if (get_short_pathname(fnamep, bufp, &l) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024935 return -1;
24936
24937 if (l == 0)
24938 {
Bram Moolenaardc935552011-08-17 15:23:23 +020024939 /* Couldn't find the filename, search the paths. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000024940 l = *fnamelen;
Bram Moolenaarbcebfb62008-05-29 19:47:13 +000024941 if (shortpath_for_invalid_fname(fnamep, bufp, &l) == FAIL)
Bram Moolenaar071d4272004-06-13 20:20:40 +000024942 return -1;
24943 }
24944 *fnamelen = l;
24945 }
24946 }
24947#endif /* WIN3264 */
24948
24949 /* ":t" - tail, just the basename */
24950 if (src[*usedlen] == ':' && src[*usedlen + 1] == 't')
24951 {
24952 *usedlen += 2;
24953 *fnamelen -= (int)(tail - *fnamep);
24954 *fnamep = tail;
24955 }
24956
24957 /* ":e" - extension, can be repeated */
24958 /* ":r" - root, without extension, can be repeated */
24959 while (src[*usedlen] == ':'
24960 && (src[*usedlen + 1] == 'e' || src[*usedlen + 1] == 'r'))
24961 {
24962 /* find a '.' in the tail:
24963 * - for second :e: before the current fname
24964 * - otherwise: The last '.'
24965 */
24966 if (src[*usedlen + 1] == 'e' && *fnamep > tail)
24967 s = *fnamep - 2;
24968 else
24969 s = *fnamep + *fnamelen - 1;
24970 for ( ; s > tail; --s)
24971 if (s[0] == '.')
24972 break;
24973 if (src[*usedlen + 1] == 'e') /* :e */
24974 {
24975 if (s > tail)
24976 {
24977 *fnamelen += (int)(*fnamep - (s + 1));
24978 *fnamep = s + 1;
24979#ifdef VMS
24980 /* cut version from the extension */
24981 s = *fnamep + *fnamelen - 1;
24982 for ( ; s > *fnamep; --s)
24983 if (s[0] == ';')
24984 break;
24985 if (s > *fnamep)
24986 *fnamelen = s - *fnamep;
24987#endif
24988 }
24989 else if (*fnamep <= tail)
24990 *fnamelen = 0;
24991 }
24992 else /* :r */
24993 {
24994 if (s > tail) /* remove one extension */
24995 *fnamelen = (int)(s - *fnamep);
24996 }
24997 *usedlen += 2;
24998 }
24999
25000 /* ":s?pat?foo?" - substitute */
25001 /* ":gs?pat?foo?" - global substitute */
25002 if (src[*usedlen] == ':'
25003 && (src[*usedlen + 1] == 's'
25004 || (src[*usedlen + 1] == 'g' && src[*usedlen + 2] == 's')))
25005 {
25006 char_u *str;
25007 char_u *pat;
25008 char_u *sub;
25009 int sep;
25010 char_u *flags;
25011 int didit = FALSE;
25012
25013 flags = (char_u *)"";
25014 s = src + *usedlen + 2;
25015 if (src[*usedlen + 1] == 'g')
25016 {
25017 flags = (char_u *)"g";
25018 ++s;
25019 }
25020
25021 sep = *s++;
25022 if (sep)
25023 {
25024 /* find end of pattern */
25025 p = vim_strchr(s, sep);
25026 if (p != NULL)
25027 {
25028 pat = vim_strnsave(s, (int)(p - s));
25029 if (pat != NULL)
25030 {
25031 s = p + 1;
25032 /* find end of substitution */
25033 p = vim_strchr(s, sep);
25034 if (p != NULL)
25035 {
25036 sub = vim_strnsave(s, (int)(p - s));
25037 str = vim_strnsave(*fnamep, *fnamelen);
25038 if (sub != NULL && str != NULL)
25039 {
25040 *usedlen = (int)(p + 1 - src);
25041 s = do_string_sub(str, pat, sub, flags);
25042 if (s != NULL)
25043 {
25044 *fnamep = s;
25045 *fnamelen = (int)STRLEN(s);
25046 vim_free(*bufp);
25047 *bufp = s;
25048 didit = TRUE;
25049 }
25050 }
25051 vim_free(sub);
25052 vim_free(str);
25053 }
25054 vim_free(pat);
25055 }
25056 }
25057 /* after using ":s", repeat all the modifiers */
25058 if (didit)
25059 goto repeat;
25060 }
25061 }
25062
Bram Moolenaar26df0922014-02-23 23:39:13 +010025063 if (src[*usedlen] == ':' && src[*usedlen + 1] == 'S')
25064 {
25065 p = vim_strsave_shellescape(*fnamep, FALSE, FALSE);
25066 if (p == NULL)
25067 return -1;
25068 vim_free(*bufp);
25069 *bufp = *fnamep = p;
25070 *fnamelen = (int)STRLEN(p);
25071 *usedlen += 2;
25072 }
25073
Bram Moolenaar071d4272004-06-13 20:20:40 +000025074 return valid;
25075}
25076
25077/*
25078 * Perform a substitution on "str" with pattern "pat" and substitute "sub".
25079 * "flags" can be "g" to do a global substitute.
25080 * Returns an allocated string, NULL for error.
25081 */
25082 char_u *
25083do_string_sub(str, pat, sub, flags)
25084 char_u *str;
25085 char_u *pat;
25086 char_u *sub;
25087 char_u *flags;
25088{
25089 int sublen;
25090 regmatch_T regmatch;
25091 int i;
25092 int do_all;
25093 char_u *tail;
Bram Moolenaare90c8532014-11-05 16:03:44 +010025094 char_u *end;
Bram Moolenaar071d4272004-06-13 20:20:40 +000025095 garray_T ga;
25096 char_u *ret;
25097 char_u *save_cpo;
Bram Moolenaar8af26912014-01-23 20:09:34 +010025098 char_u *zero_width = NULL;
Bram Moolenaar071d4272004-06-13 20:20:40 +000025099
25100 /* Make 'cpoptions' empty, so that the 'l' flag doesn't work here */
25101 save_cpo = p_cpo;
Bram Moolenaar9c24ccc2008-07-14 21:05:15 +000025102 p_cpo = empty_option;
Bram Moolenaar071d4272004-06-13 20:20:40 +000025103
25104 ga_init2(&ga, 1, 200);
25105
25106 do_all = (flags[0] == 'g');
25107
25108 regmatch.rm_ic = p_ic;
25109 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
25110 if (regmatch.regprog != NULL)
25111 {
25112 tail = str;
Bram Moolenaare90c8532014-11-05 16:03:44 +010025113 end = str + STRLEN(str);
Bram Moolenaar071d4272004-06-13 20:20:40 +000025114 while (vim_regexec_nl(&regmatch, str, (colnr_T)(tail - str)))
25115 {
Bram Moolenaar8af26912014-01-23 20:09:34 +010025116 /* Skip empty match except for first match. */
25117 if (regmatch.startp[0] == regmatch.endp[0])
25118 {
25119 if (zero_width == regmatch.startp[0])
25120 {
25121 /* avoid getting stuck on a match with an empty string */
Bram Moolenaar8e7048c2014-06-12 18:39:22 +020025122 i = MB_PTR2LEN(tail);
25123 mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail,
25124 (size_t)i);
25125 ga.ga_len += i;
25126 tail += i;
Bram Moolenaar8af26912014-01-23 20:09:34 +010025127 continue;
25128 }
25129 zero_width = regmatch.startp[0];
25130 }
25131
Bram Moolenaar071d4272004-06-13 20:20:40 +000025132 /*
25133 * Get some space for a temporary buffer to do the substitution
25134 * into. It will contain:
25135 * - The text up to where the match is.
25136 * - The substituted text.
25137 * - The text after the match.
25138 */
25139 sublen = vim_regsub(&regmatch, sub, tail, FALSE, TRUE, FALSE);
Bram Moolenaare90c8532014-11-05 16:03:44 +010025140 if (ga_grow(&ga, (int)((end - tail) + sublen -
Bram Moolenaar071d4272004-06-13 20:20:40 +000025141 (regmatch.endp[0] - regmatch.startp[0]))) == FAIL)
25142 {
25143 ga_clear(&ga);
25144 break;
25145 }
25146
25147 /* copy the text up to where the match is */
25148 i = (int)(regmatch.startp[0] - tail);
25149 mch_memmove((char_u *)ga.ga_data + ga.ga_len, tail, (size_t)i);
25150 /* add the substituted text */
25151 (void)vim_regsub(&regmatch, sub, (char_u *)ga.ga_data
25152 + ga.ga_len + i, TRUE, TRUE, FALSE);
25153 ga.ga_len += i + sublen - 1;
Bram Moolenaarceb84af2013-09-29 21:11:05 +020025154 tail = regmatch.endp[0];
25155 if (*tail == NUL)
25156 break;
Bram Moolenaar071d4272004-06-13 20:20:40 +000025157 if (!do_all)
25158 break;
25159 }
25160
25161 if (ga.ga_data != NULL)
25162 STRCPY((char *)ga.ga_data + ga.ga_len, tail);
25163
Bram Moolenaar473de612013-06-08 18:19:48 +020025164 vim_regfree(regmatch.regprog);
Bram Moolenaar071d4272004-06-13 20:20:40 +000025165 }
25166
25167 ret = vim_strsave(ga.ga_data == NULL ? str : (char_u *)ga.ga_data);
25168 ga_clear(&ga);
Bram Moolenaar9c24ccc2008-07-14 21:05:15 +000025169 if (p_cpo == empty_option)
25170 p_cpo = save_cpo;
25171 else
25172 /* Darn, evaluating {sub} expression changed the value. */
25173 free_string_option(save_cpo);
Bram Moolenaar071d4272004-06-13 20:20:40 +000025174
25175 return ret;
25176}
25177
25178#endif /* defined(FEAT_MODIFY_FNAME) || defined(FEAT_EVAL) */