blob: 7fc1821c6cba1c890837e557c5b14c57ed409082 [file] [log] [blame]
Bram Moolenaaredf3f972016-08-29 22:49:24 +02001/* vi:set ts=8 sts=4 sw=4 noet:
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002 *
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 * evalfunc.c: Builtin functions
12 */
13#define USING_FLOAT_STUFF
14
15#include "vim.h"
16
17#if defined(FEAT_EVAL) || defined(PROTO)
18
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020019#ifdef VMS
20# include <float.h>
21#endif
22
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020023static void f_and(typval_T *argvars, typval_T *rettv);
Bram Moolenaar59716a22017-03-01 20:32:44 +010024#ifdef FEAT_BEVAL
Bram Moolenaarbe0a2592019-05-09 13:50:16 +020025static void f_balloon_gettext(typval_T *argvars, typval_T *rettv);
Bram Moolenaar59716a22017-03-01 20:32:44 +010026static void f_balloon_show(typval_T *argvars, typval_T *rettv);
Bram Moolenaar669a8282017-11-19 20:13:05 +010027# if defined(FEAT_BEVAL_TERM)
Bram Moolenaar246fe032017-11-19 19:56:27 +010028static void f_balloon_split(typval_T *argvars, typval_T *rettv);
Bram Moolenaar669a8282017-11-19 20:13:05 +010029# endif
Bram Moolenaar59716a22017-03-01 20:32:44 +010030#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020031static void f_byte2line(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020032static void f_call(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020033static void f_changenr(typval_T *argvars, typval_T *rettv);
34static void f_char2nr(typval_T *argvars, typval_T *rettv);
Bram Moolenaar6f02b002021-01-10 20:22:54 +010035static void f_charcol(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020036static void f_col(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020037static void f_confirm(typval_T *argvars, typval_T *rettv);
38static void f_copy(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020039static void f_cursor(typval_T *argsvars, typval_T *rettv);
Bram Moolenaar4f974752019-02-17 17:44:42 +010040#ifdef MSWIN
Bram Moolenaar4551c0a2018-06-20 22:38:21 +020041static void f_debugbreak(typval_T *argvars, typval_T *rettv);
42#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020043static void f_deepcopy(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020044static void f_did_filetype(typval_T *argvars, typval_T *rettv);
Bram Moolenaar4132eb52020-02-14 16:53:00 +010045static void f_echoraw(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020046static void f_empty(typval_T *argvars, typval_T *rettv);
Bram Moolenaar691ddee2019-05-09 14:52:41 +020047static void f_environ(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020048static void f_escape(typval_T *argvars, typval_T *rettv);
49static void f_eval(typval_T *argvars, typval_T *rettv);
50static void f_eventhandler(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020051static void f_execute(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020052static void f_exists(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020053static void f_expand(typval_T *argvars, typval_T *rettv);
Bram Moolenaar80dad482019-06-09 17:22:31 +020054static void f_expandcmd(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020055static void f_feedkeys(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020056static void f_fnameescape(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020057static void f_foreground(typval_T *argvars, typval_T *rettv);
Bram Moolenaar437bafe2016-08-01 15:40:54 +020058static void f_funcref(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020059static void f_function(typval_T *argvars, typval_T *rettv);
60static void f_garbagecollect(typval_T *argvars, typval_T *rettv);
61static void f_get(typval_T *argvars, typval_T *rettv);
Bram Moolenaar07ad8162018-02-13 13:59:59 +010062static void f_getchangelist(typval_T *argvars, typval_T *rettv);
Bram Moolenaar6f02b002021-01-10 20:22:54 +010063static void f_getcharpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020064static void f_getcharsearch(typval_T *argvars, typval_T *rettv);
Bram Moolenaar691ddee2019-05-09 14:52:41 +020065static void f_getenv(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020066static void f_getfontname(typval_T *argvars, typval_T *rettv);
Bram Moolenaar4f505882018-02-10 21:06:32 +010067static void f_getjumplist(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020068static void f_getpid(typval_T *argvars, typval_T *rettv);
69static void f_getcurpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar6f02b002021-01-10 20:22:54 +010070static void f_getcursorcharpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020071static void f_getpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020072static void f_getreg(typval_T *argvars, typval_T *rettv);
Bram Moolenaarbb861e22020-06-07 18:16:36 +020073static void f_getreginfo(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020074static void f_getregtype(typval_T *argvars, typval_T *rettv);
Bram Moolenaarf49cc602018-11-11 15:21:05 +010075static void f_gettagstack(typval_T *argvars, typval_T *rettv);
Bram Moolenaar0b39c3f2020-08-30 15:52:10 +020076static void f_gettext(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020077static void f_haslocaldir(typval_T *argvars, typval_T *rettv);
78static void f_hasmapto(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020079static void f_hlID(typval_T *argvars, typval_T *rettv);
80static void f_hlexists(typval_T *argvars, typval_T *rettv);
81static void f_hostname(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020082static void f_index(typval_T *argvars, typval_T *rettv);
83static void f_input(typval_T *argvars, typval_T *rettv);
84static void f_inputdialog(typval_T *argvars, typval_T *rettv);
85static void f_inputlist(typval_T *argvars, typval_T *rettv);
86static void f_inputrestore(typval_T *argvars, typval_T *rettv);
87static void f_inputsave(typval_T *argvars, typval_T *rettv);
88static void f_inputsecret(typval_T *argvars, typval_T *rettv);
Bram Moolenaar67a2deb2019-11-25 00:05:32 +010089static void f_interrupt(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020090static void f_invert(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020091static void f_islocked(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020092static void f_last_buffer_nr(typval_T *argvars, typval_T *rettv);
93static void f_len(typval_T *argvars, typval_T *rettv);
94static void f_libcall(typval_T *argvars, typval_T *rettv);
95static void f_libcallnr(typval_T *argvars, typval_T *rettv);
96static void f_line(typval_T *argvars, typval_T *rettv);
97static void f_line2byte(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020098#ifdef FEAT_LUA
99static void f_luaeval(typval_T *argvars, typval_T *rettv);
100#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200101static void f_maparg(typval_T *argvars, typval_T *rettv);
102static void f_mapcheck(typval_T *argvars, typval_T *rettv);
103static void f_match(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200104static void f_matchend(typval_T *argvars, typval_T *rettv);
105static void f_matchlist(typval_T *argvars, typval_T *rettv);
106static void f_matchstr(typval_T *argvars, typval_T *rettv);
107static void f_matchstrpos(typval_T *argvars, typval_T *rettv);
108static void f_max(typval_T *argvars, typval_T *rettv);
109static void f_min(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200110#ifdef FEAT_MZSCHEME
111static void f_mzeval(typval_T *argvars, typval_T *rettv);
112#endif
113static void f_nextnonblank(typval_T *argvars, typval_T *rettv);
114static void f_nr2char(typval_T *argvars, typval_T *rettv);
115static void f_or(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200116#ifdef FEAT_PERL
117static void f_perleval(typval_T *argvars, typval_T *rettv);
118#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200119static void f_prevnonblank(typval_T *argvars, typval_T *rettv);
120static void f_printf(typval_T *argvars, typval_T *rettv);
Bram Moolenaare9bd5722019-08-17 19:36:06 +0200121static void f_pum_getpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200122static void f_pumvisible(typval_T *argvars, typval_T *rettv);
123#ifdef FEAT_PYTHON3
124static void f_py3eval(typval_T *argvars, typval_T *rettv);
125#endif
126#ifdef FEAT_PYTHON
127static void f_pyeval(typval_T *argvars, typval_T *rettv);
128#endif
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +0100129#if defined(FEAT_PYTHON) || defined(FEAT_PYTHON3)
130static void f_pyxeval(typval_T *argvars, typval_T *rettv);
131#endif
Bram Moolenaar4f645c52020-02-08 16:40:39 +0100132static void f_test_srand_seed(typval_T *argvars, typval_T *rettv);
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +0100133static void f_rand(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200134static void f_range(typval_T *argvars, typval_T *rettv);
Bram Moolenaar0b6d9112018-05-22 20:35:17 +0200135static void f_reg_executing(typval_T *argvars, typval_T *rettv);
136static void f_reg_recording(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200137static void f_rename(typval_T *argvars, typval_T *rettv);
138static void f_repeat(typval_T *argvars, typval_T *rettv);
Bram Moolenaare99be0e2019-03-26 22:51:09 +0100139#ifdef FEAT_RUBY
140static void f_rubyeval(typval_T *argvars, typval_T *rettv);
141#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200142static void f_screenattr(typval_T *argvars, typval_T *rettv);
143static void f_screenchar(typval_T *argvars, typval_T *rettv);
Bram Moolenaar2912abb2019-03-29 14:16:42 +0100144static void f_screenchars(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200145static void f_screencol(typval_T *argvars, typval_T *rettv);
146static void f_screenrow(typval_T *argvars, typval_T *rettv);
Bram Moolenaar2912abb2019-03-29 14:16:42 +0100147static void f_screenstring(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200148static void f_search(typval_T *argvars, typval_T *rettv);
149static void f_searchdecl(typval_T *argvars, typval_T *rettv);
150static void f_searchpair(typval_T *argvars, typval_T *rettv);
151static void f_searchpairpos(typval_T *argvars, typval_T *rettv);
152static void f_searchpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar6f02b002021-01-10 20:22:54 +0100153static void f_setcharpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200154static void f_setcharsearch(typval_T *argvars, typval_T *rettv);
Bram Moolenaar6f02b002021-01-10 20:22:54 +0100155static void f_setcursorcharpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar691ddee2019-05-09 14:52:41 +0200156static void f_setenv(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200157static void f_setfperm(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200158static void f_setpos(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200159static void f_setreg(typval_T *argvars, typval_T *rettv);
Bram Moolenaarf49cc602018-11-11 15:21:05 +0100160static void f_settagstack(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200161#ifdef FEAT_CRYPT
162static void f_sha256(typval_T *argvars, typval_T *rettv);
Bram Moolenaarb005cd82019-09-04 15:54:55 +0200163#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200164static void f_shellescape(typval_T *argvars, typval_T *rettv);
165static void f_shiftwidth(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200166static void f_soundfold(typval_T *argvars, typval_T *rettv);
167static void f_spellbadword(typval_T *argvars, typval_T *rettv);
168static void f_spellsuggest(typval_T *argvars, typval_T *rettv);
169static void f_split(typval_T *argvars, typval_T *rettv);
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +0100170static void f_srand(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200171static void f_submatch(typval_T *argvars, typval_T *rettv);
172static void f_substitute(typval_T *argvars, typval_T *rettv);
Bram Moolenaar00f123a2018-08-21 20:28:54 +0200173static void f_swapinfo(typval_T *argvars, typval_T *rettv);
Bram Moolenaar110bd602018-09-16 18:46:59 +0200174static void f_swapname(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200175static void f_synID(typval_T *argvars, typval_T *rettv);
176static void f_synIDattr(typval_T *argvars, typval_T *rettv);
177static void f_synIDtrans(typval_T *argvars, typval_T *rettv);
178static void f_synstack(typval_T *argvars, typval_T *rettv);
179static void f_synconcealed(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200180static void f_tabpagebuflist(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200181static void f_taglist(typval_T *argvars, typval_T *rettv);
182static void f_tagfiles(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200183static void f_type(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200184static void f_virtcol(typval_T *argvars, typval_T *rettv);
185static void f_visualmode(typval_T *argvars, typval_T *rettv);
186static void f_wildmenumode(typval_T *argvars, typval_T *rettv);
Bram Moolenaar0c1e3742019-12-27 13:49:24 +0100187static void f_windowsversion(typval_T *argvars, typval_T *rettv);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +0200188static void f_wordcount(typval_T *argvars, typval_T *rettv);
189static void f_xor(typval_T *argvars, typval_T *rettv);
190
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100191
Bram Moolenaar94738d82020-10-21 14:25:07 +0200192/*
193 * Functions that check the argument type of a builtin function.
194 * Each function returns FAIL and gives an error message if the type is wrong.
195 */
196
197// Context passed to an arg_ function.
198typedef struct {
Bram Moolenaarca174532020-10-21 16:42:22 +0200199 int arg_count; // actual argument count
200 type_T **arg_types; // list of argument types
201 int arg_idx; // current argument index (first arg is zero)
Bram Moolenaar351ead02021-01-16 16:07:01 +0100202 cctx_T *arg_cctx;
Bram Moolenaar94738d82020-10-21 14:25:07 +0200203} argcontext_T;
204
205// A function to check one argument type. The first argument is the type to
206// check. If needed, other argument types can be obtained with the context.
207// E.g. if "arg_idx" is 1, then (type - 1) is the first argument type.
208typedef int (*argcheck_T)(type_T *, argcontext_T *);
209
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100210/*
Bram Moolenaar351ead02021-01-16 16:07:01 +0100211 * Call need_type() to check an argument type.
212 */
213 static int
214check_arg_type(
215 type_T *expected,
216 type_T *actual,
217 argcontext_T *context)
218{
219 // TODO: would be useful to know if "actual" is a constant and pass it to
220 // need_type() to get a compile time error if possible.
221 return need_type(actual, expected,
222 context->arg_idx - context->arg_count, context->arg_idx + 1,
223 context->arg_cctx, FALSE, FALSE);
224}
225
226/*
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100227 * Check "type" is a float or a number.
228 */
Bram Moolenaar94738d82020-10-21 14:25:07 +0200229 static int
230arg_float_or_nr(type_T *type, argcontext_T *context)
231{
Bram Moolenaarca174532020-10-21 16:42:22 +0200232 if (type->tt_type == VAR_ANY
233 || type->tt_type == VAR_FLOAT || type->tt_type == VAR_NUMBER)
Bram Moolenaar94738d82020-10-21 14:25:07 +0200234 return OK;
235 arg_type_mismatch(&t_number, type, context->arg_idx + 1);
236 return FAIL;
237}
238
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100239/*
240 * Check "type" is a number.
241 */
Bram Moolenaarca174532020-10-21 16:42:22 +0200242 static int
243arg_number(type_T *type, argcontext_T *context)
244{
Bram Moolenaar351ead02021-01-16 16:07:01 +0100245 return check_arg_type(&t_number, type, context);
Bram Moolenaarca174532020-10-21 16:42:22 +0200246}
247
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100248/*
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +0200249 * Check "type" is a dict of 'any'.
250 */
251 static int
252arg_dict_any(type_T *type, argcontext_T *context)
253{
254 return check_arg_type(&t_dict_any, type, context);
255}
256
257/*
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200258 * Check "type" is a list of 'any'.
259 */
260 static int
261arg_list_any(type_T *type, argcontext_T *context)
262{
263 return check_arg_type(&t_list_any, type, context);
264}
265
266/*
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +0200267 * Check "type" is a list of numbers.
268 */
269 static int
270arg_list_number(type_T *type, argcontext_T *context)
271{
272 return check_arg_type(&t_list_number, type, context);
273}
274
275/*
276 * Check "type" is a list of strings.
277 */
278 static int
279arg_list_string(type_T *type, argcontext_T *context)
280{
281 return check_arg_type(&t_list_string, type, context);
282}
283
284/*
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100285 * Check "type" is a string.
286 */
287 static int
288arg_string(type_T *type, argcontext_T *context)
289{
Bram Moolenaar351ead02021-01-16 16:07:01 +0100290 return check_arg_type(&t_string, type, context);
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100291}
292
293/*
Bram Moolenaarf2b26bc2021-01-30 23:05:11 +0100294 * Check "type" is a bool or number 0 or 1.
295 */
296 static int
297arg_bool(type_T *type, argcontext_T *context)
298{
Bram Moolenaarf2b26bc2021-01-30 23:05:11 +0100299 return check_arg_type(&t_bool, type, context);
300}
301
302/*
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200303 * Check "type" is a list of 'any' or a blob.
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100304 */
Bram Moolenaarca174532020-10-21 16:42:22 +0200305 static int
306arg_list_or_blob(type_T *type, argcontext_T *context)
307{
308 if (type->tt_type == VAR_ANY
309 || type->tt_type == VAR_LIST || type->tt_type == VAR_BLOB)
310 return OK;
311 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
312 return FAIL;
313}
314
315/*
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +0200316 * Check "type" is a string or a number
317 */
318 static int
319arg_string_or_nr(type_T *type, argcontext_T *context)
320{
321 if (type->tt_type == VAR_ANY
322 || type->tt_type == VAR_STRING || type->tt_type == VAR_NUMBER)
323 return OK;
324 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
325 return FAIL;
326}
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200327
328/*
Yegappan Lakshmanancd917202021-07-21 19:09:09 +0200329 * Check "type" is a buffer (string or a number)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200330 */
331 static int
332arg_buffer(type_T *type, argcontext_T *context)
333{
334 if (type->tt_type == VAR_ANY
335 || type->tt_type == VAR_STRING || type->tt_type == VAR_NUMBER)
336 return OK;
337 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
338 return FAIL;
339}
340
341/*
Yegappan Lakshmanancd917202021-07-21 19:09:09 +0200342 * Check "type" is a buffer or a dict of any
343 */
344 static int
345arg_buffer_or_dict_any(type_T *type, argcontext_T *context)
346{
347 if (type->tt_type == VAR_ANY
348 || type->tt_type == VAR_STRING
349 || type->tt_type == VAR_NUMBER
350 || type->tt_type == VAR_DICT)
351 return OK;
352 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
353 return FAIL;
354}
355
356/*
357 * Check "type" is a line (string or a number)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200358 */
359 static int
360arg_lnum(type_T *type, argcontext_T *context)
361{
362 if (type->tt_type == VAR_ANY
363 || type->tt_type == VAR_STRING || type->tt_type == VAR_NUMBER)
364 return OK;
365 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
366 return FAIL;
367}
368
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +0200369/*
Bram Moolenaarca81f0e2021-06-20 14:41:01 +0200370 * Check "type" is a string or a list of strings.
371 */
372 static int
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +0200373arg_string_or_list_string(type_T *type, argcontext_T *context)
Bram Moolenaarca81f0e2021-06-20 14:41:01 +0200374{
375 if (type->tt_type == VAR_ANY || type->tt_type == VAR_STRING)
376 return OK;
377 if (type->tt_type != VAR_LIST)
378 {
379 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
380 return FAIL;
381 }
382 if (type->tt_member->tt_type == VAR_ANY
383 || type->tt_member->tt_type == VAR_STRING)
384 return OK;
385
386 arg_type_mismatch(&t_list_string, type, context->arg_idx + 1);
387 return FAIL;
388}
389
390/*
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +0200391 * Check "type" is a string or a list of 'any'
392 */
393 static int
394arg_string_or_list_any(type_T *type, argcontext_T *context)
395{
396 if (type->tt_type == VAR_ANY
397 || type->tt_type == VAR_STRING || type->tt_type == VAR_LIST)
398 return OK;
399 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
400 return FAIL;
401}
402
403/*
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200404 * Check "type" is a string or a blob
405 */
406 static int
407arg_string_or_blob(type_T *type, argcontext_T *context)
408{
409 if (type->tt_type == VAR_ANY
410 || type->tt_type == VAR_STRING || type->tt_type == VAR_BLOB)
411 return OK;
412 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
413 return FAIL;
414}
415
416/*
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200417 * Check "type" is a list of 'any' or a dict of 'any'.
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100418 */
419 static int
420arg_list_or_dict(type_T *type, argcontext_T *context)
421{
422 if (type->tt_type == VAR_ANY
423 || type->tt_type == VAR_LIST || type->tt_type == VAR_DICT)
424 return OK;
425 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
426 return FAIL;
427}
428
429/*
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200430 * Check "type" is a list of 'any' or a dict of 'any' or a blob.
431 */
432 static int
433arg_list_or_dict_or_blob(type_T *type, argcontext_T *context)
434{
435 if (type->tt_type == VAR_ANY
436 || type->tt_type == VAR_LIST
437 || type->tt_type == VAR_DICT
438 || type->tt_type == VAR_BLOB)
439 return OK;
440 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
441 return FAIL;
442}
443
444/*
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200445 * Check "type" is a job.
446 */
447 static int
448arg_job(type_T *type, argcontext_T *context)
449{
450 return check_arg_type(&t_job, type, context);
451}
452
453/*
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +0200454 * Check "type" is a channel or a job.
455 */
456 static int
457arg_chan_or_job(type_T *type, argcontext_T *context)
458{
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200459 if (type->tt_type == VAR_ANY
460 || type->tt_type == VAR_CHANNEL
461 || type->tt_type == VAR_JOB)
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +0200462 return OK;
463 arg_type_mismatch(&t_channel, type, context->arg_idx + 1);
464 return FAIL;
465}
466
467/*
Bram Moolenaarb0e6b512021-01-12 20:23:40 +0100468 * Check "type" is the same type as the previous argument.
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100469 * Must not be used for the first argcheck_T entry.
470 */
471 static int
472arg_same_as_prev(type_T *type, argcontext_T *context)
473{
474 type_T *prev_type = context->arg_types[context->arg_idx - 1];
475
Bram Moolenaar351ead02021-01-16 16:07:01 +0100476 return check_arg_type(prev_type, type, context);
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100477}
478
479/*
Bram Moolenaarb0e6b512021-01-12 20:23:40 +0100480 * Check "type" is the same basic type as the previous argument, checks list or
481 * dict vs other type, but not member type.
482 * Must not be used for the first argcheck_T entry.
483 */
484 static int
485arg_same_struct_as_prev(type_T *type, argcontext_T *context)
486{
487 type_T *prev_type = context->arg_types[context->arg_idx - 1];
488
489 if (prev_type->tt_type != context->arg_types[context->arg_idx]->tt_type)
Bram Moolenaar351ead02021-01-16 16:07:01 +0100490 return check_arg_type(prev_type, type, context);
Bram Moolenaarb0e6b512021-01-12 20:23:40 +0100491 return OK;
492}
493
494/*
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100495 * Check "type" is an item of the list or blob of the previous arg.
Bram Moolenaarca174532020-10-21 16:42:22 +0200496 * Must not be used for the first argcheck_T entry.
497 */
498 static int
499arg_item_of_prev(type_T *type, argcontext_T *context)
500{
501 type_T *prev_type = context->arg_types[context->arg_idx - 1];
502 type_T *expected;
503
504 if (prev_type->tt_type == VAR_LIST)
505 expected = prev_type->tt_member;
506 else if (prev_type->tt_type == VAR_BLOB)
507 expected = &t_number;
508 else
509 // probably VAR_ANY, can't check
510 return OK;
511
Bram Moolenaar351ead02021-01-16 16:07:01 +0100512 return check_arg_type(expected, type, context);
Bram Moolenaarca174532020-10-21 16:42:22 +0200513}
514
Bram Moolenaar94738d82020-10-21 14:25:07 +0200515/*
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +0200516 * Check "type" is a string or a number or a list
517 */
518 static int
519arg_str_or_nr_or_list(type_T *type, argcontext_T *context)
520{
Yegappan Lakshmanan841e4982021-07-11 22:04:25 +0200521 if (type->tt_type == VAR_ANY
522 || type->tt_type == VAR_STRING
523 || type->tt_type == VAR_NUMBER
524 || type->tt_type == VAR_LIST)
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +0200525 return OK;
526 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
527 return FAIL;
528}
529
530/*
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200531 * Check "type" is a dict of 'any' or a string
532 */
533 static int
534arg_dict_any_or_string(type_T *type, argcontext_T *context)
535{
536 if (type->tt_type == VAR_ANY
537 || type->tt_type == VAR_DICT
538 || type->tt_type == VAR_STRING)
539 return OK;
540 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
541 return FAIL;
542}
543
544/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200545 * Check "type" which is the third argument of extend() (number or string or
546 * any)
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100547 */
548 static int
549arg_extend3(type_T *type, argcontext_T *context)
550{
551 type_T *first_type = context->arg_types[context->arg_idx - 2];
552
553 if (first_type->tt_type == VAR_LIST)
554 return arg_number(type, context);
555 if (first_type->tt_type == VAR_DICT)
556 return arg_string(type, context);
557 return OK;
558}
559
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200560/*
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200561 * Check "type" which is the first argument of get() (blob or list or dict or
562 * funcref)
563 */
564 static int
565arg_get1(type_T *type, argcontext_T *context)
566{
567 if (type->tt_type == VAR_ANY
568 || type->tt_type == VAR_BLOB
569 || type->tt_type == VAR_LIST
570 || type->tt_type == VAR_DICT
571 || type->tt_type == VAR_FUNC
572 || type->tt_type == VAR_PARTIAL)
573 return OK;
574
575 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
576 return FAIL;
577}
578
579/*
580 * Check "type" which is the first argument of len() (number or string or
581 * blob or list or dict)
582 */
583 static int
584arg_len1(type_T *type, argcontext_T *context)
585{
586 if (type->tt_type == VAR_ANY
587 || type->tt_type == VAR_STRING
588 || type->tt_type == VAR_NUMBER
589 || type->tt_type == VAR_BLOB
590 || type->tt_type == VAR_LIST
591 || type->tt_type == VAR_DICT)
592 return OK;
593
594 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
595 return FAIL;
596}
597
598/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200599 * Check "type" which is the second argument of remove() (number or string or
600 * any)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200601 */
602 static int
603arg_remove2(type_T *type, argcontext_T *context)
604{
605 type_T *first_type = context->arg_types[context->arg_idx - 1];
606
607 if (first_type->tt_type == VAR_LIST || first_type->tt_type == VAR_BLOB)
608 return arg_number(type, context);
609 if (first_type->tt_type == VAR_DICT)
610 return arg_string_or_nr(type, context);
611 return OK;
612}
613
614/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200615 * Check "type" which is the first argument of repeat() (string or number or
616 * list or any)
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200617 */
618 static int
619arg_repeat1(type_T *type, argcontext_T *context)
620{
621 if (type->tt_type == VAR_ANY
622 || type->tt_type == VAR_STRING
623 || type->tt_type == VAR_NUMBER
624 || type->tt_type == VAR_LIST)
625 return OK;
626
627 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
628 return FAIL;
629}
630
631/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200632 * Check "type" which is the first argument of slice() (list or blob or string
633 * or any)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200634 */
635 static int
636arg_slice1(type_T *type, argcontext_T *context)
637{
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200638 if (type->tt_type == VAR_ANY
639 || type->tt_type == VAR_LIST
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200640 || type->tt_type == VAR_BLOB
641 || type->tt_type == VAR_STRING)
642 return OK;
643
644 arg_type_mismatch(&t_list_any, type, context->arg_idx + 1);
645 return FAIL;
646}
647
648/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200649 * Check "type" which is the first argument of count() (string or list or dict
650 * or any)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200651 */
652 static int
653arg_count1(type_T *type, argcontext_T *context)
654{
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200655 if (type->tt_type == VAR_ANY
656 || type->tt_type == VAR_STRING
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200657 || type->tt_type == VAR_LIST
658 || type->tt_type == VAR_DICT)
659 return OK;
660
661 arg_type_mismatch(&t_string, type, context->arg_idx + 1);
662 return FAIL;
663}
664
665/*
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200666 * Check "type" which is the first argument of cursor() (number or string or
667 * list or any)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200668 */
669 static int
670arg_cursor1(type_T *type, argcontext_T *context)
671{
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200672 if (type->tt_type == VAR_ANY
673 || type->tt_type == VAR_NUMBER
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200674 || type->tt_type == VAR_STRING
675 || type->tt_type == VAR_LIST)
676 return OK;
677
678 arg_type_mismatch(&t_number, type, context->arg_idx + 1);
679 return FAIL;
680}
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +0100681
682/*
Bram Moolenaar94738d82020-10-21 14:25:07 +0200683 * Lists of functions that check the argument types of a builtin function.
684 */
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200685static argcheck_T arg1_bool[] = {arg_bool};
Yegappan Lakshmanancd917202021-07-21 19:09:09 +0200686static argcheck_T arg1_buffer[] = {arg_buffer};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200687static argcheck_T arg1_buffer_or_dict_any[] = {arg_buffer_or_dict_any};
688static argcheck_T arg1_chan_or_job[] = {arg_chan_or_job};
689static argcheck_T arg1_dict_any[] = {arg_dict_any};
690static argcheck_T arg1_dict_or_string[] = {arg_dict_any_or_string};
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200691static argcheck_T arg1_float_or_nr[] = {arg_float_or_nr};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200692static argcheck_T arg1_job[] = {arg_job};
693static argcheck_T arg1_list_any[] = {arg_list_any};
694static argcheck_T arg1_list_number[] = {arg_list_number};
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200695static argcheck_T arg1_list_or_blob[] = {arg_list_or_blob};
696static argcheck_T arg1_list_or_dict[] = {arg_list_or_dict};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200697static argcheck_T arg1_list_string[] = {arg_list_string};
698static argcheck_T arg1_lnum[] = {arg_lnum};
699static argcheck_T arg1_number[] = {arg_number};
700static argcheck_T arg1_string[] = {arg_string};
701static argcheck_T arg1_string_or_list_any[] = {arg_string_or_list_any};
702static argcheck_T arg1_string_or_list_string[] = {arg_string_or_list_string};
703static argcheck_T arg1_string_or_nr[] = {arg_string_or_nr};
704static argcheck_T arg2_any_buffer[] = {NULL, arg_buffer};
705static argcheck_T arg2_buffer_any[] = {arg_buffer, NULL};
706static argcheck_T arg2_buffer_bool[] = {arg_buffer, arg_bool};
707static argcheck_T arg2_buffer_list_any[] = {arg_buffer, arg_list_any};
708static argcheck_T arg2_buffer_lnum[] = {arg_buffer, arg_lnum};
709static argcheck_T arg2_buffer_number[] = {arg_buffer, arg_number};
710static argcheck_T arg2_buffer_string[] = {arg_buffer, arg_string};
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200711static argcheck_T arg2_chan_or_job_dict[] = {arg_chan_or_job, arg_dict_any};
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200712static argcheck_T arg2_chan_or_job_string[] = {arg_chan_or_job, arg_string};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200713static argcheck_T arg2_dict_any_string_or_nr[] = {arg_dict_any, arg_string_or_nr};
714static argcheck_T arg2_dict_string[] = {arg_dict_any, arg_string};
715static argcheck_T arg2_float_or_nr[] = {arg_float_or_nr, arg_float_or_nr};
716static argcheck_T arg2_job_dict[] = {arg_job, arg_dict_any};
717static argcheck_T arg2_job_string_or_number[] = {arg_job, arg_string_or_nr};
718static argcheck_T arg2_list_any_number[] = {arg_list_any, arg_number};
719static argcheck_T arg2_list_any_string[] = {arg_list_any, arg_string};
720static argcheck_T arg2_list_number[] = {arg_list_number, arg_list_number};
721static argcheck_T arg2_list_number_bool[] = {arg_list_number, arg_bool};
722static argcheck_T arg2_listblob_item[] = {arg_list_or_blob, arg_item_of_prev};
723static argcheck_T arg2_lnum[] = {arg_lnum, arg_lnum};
724static argcheck_T arg2_lnum_number[] = {arg_lnum, arg_number};
725static argcheck_T arg2_number[] = {arg_number, arg_number};
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200726static argcheck_T arg2_number_any[] = {arg_number, NULL};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200727static argcheck_T arg2_number_bool[] = {arg_number, arg_bool};
728static argcheck_T arg2_number_dict_any[] = {arg_number, arg_dict_any};
729static argcheck_T arg2_number_list[] = {arg_number, arg_list_any};
730static argcheck_T arg2_number_string[] = {arg_number, arg_string};
731static argcheck_T arg2_number_string_or_list[] = {arg_number, arg_string_or_list_any};
732static argcheck_T arg2_str_or_nr_or_list_dict[] = {arg_str_or_nr_or_list, arg_dict_any};
733static argcheck_T arg2_string[] = {arg_string, arg_string};
734static argcheck_T arg2_string_any[] = {arg_string, NULL};
735static argcheck_T arg2_string_bool[] = {arg_string, arg_bool};
736static argcheck_T arg2_string_chan_or_job[] = {arg_string, arg_chan_or_job};
737static argcheck_T arg2_string_dict[] = {arg_string, arg_dict_any};
738static argcheck_T arg2_string_list_number[] = {arg_string, arg_list_number};
739static argcheck_T arg2_string_number[] = {arg_string, arg_number};
740static argcheck_T arg2_string_or_list_dict[] = {arg_string_or_list_any, arg_dict_any};
741static argcheck_T arg2_string_string_or_number[] = {arg_string, arg_string_or_nr};
742static argcheck_T arg3_any_list_dict[] = {NULL, arg_list_any, arg_dict_any};
Yegappan Lakshmanancd917202021-07-21 19:09:09 +0200743static argcheck_T arg3_buffer_lnum_lnum[] = {arg_buffer, arg_lnum, arg_lnum};
744static argcheck_T arg3_buffer_number_number[] = {arg_buffer, arg_number, arg_number};
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200745static argcheck_T arg3_buffer_string_any[] = {arg_buffer, arg_string, NULL};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200746static argcheck_T arg3_buffer_string_dict[] = {arg_buffer, arg_string, arg_dict_any};
747static argcheck_T arg3_dict_number_number[] = {arg_dict_any, arg_number, arg_number};
748static argcheck_T arg3_list_string_dict[] = {arg_list_any, arg_string, arg_dict_any};
749static argcheck_T arg3_lnum_number_bool[] = {arg_lnum, arg_number, arg_bool};
750static argcheck_T arg3_number[] = {arg_number, arg_number, arg_number};
751static argcheck_T arg3_number_any_dict[] = {arg_number, NULL, arg_dict_any};
752static argcheck_T arg3_number_number_dict[] = {arg_number, arg_number, arg_dict_any};
753static argcheck_T arg3_number_string_any[] = {arg_number, arg_string, NULL};
754static argcheck_T arg3_number_string_buffer[] = {arg_number, arg_string, arg_buffer};
755static argcheck_T arg3_number_string_string[] = {arg_number, arg_string, arg_string};
756static argcheck_T arg3_string[] = {arg_string, arg_string, arg_string};
757static argcheck_T arg3_string_any_dict[] = {arg_string, NULL, arg_dict_any};
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200758static argcheck_T arg3_string_any_string[] = {arg_string, NULL, arg_string};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200759static argcheck_T arg3_string_bool_bool[] = {arg_string, arg_bool, arg_bool};
760static argcheck_T arg3_string_bool_dict[] = {arg_string, arg_bool, arg_dict_any};
761static argcheck_T arg3_string_number_bool[] = {arg_string, arg_number, arg_bool};
762static argcheck_T arg3_string_number_number[] = {arg_string, arg_number, arg_number};
763static argcheck_T arg3_string_string_bool[] = {arg_string, arg_string, arg_bool};
764static argcheck_T arg3_string_string_dict[] = {arg_string, arg_string, arg_dict_any};
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +0200765static argcheck_T arg3_string_string_number[] = {arg_string, arg_string, arg_number};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200766static argcheck_T arg4_list_number_number_number[] = {arg_list_string, arg_number, arg_number, arg_number};
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200767static argcheck_T arg4_number_number_string_any[] = {arg_number, arg_number, arg_string, NULL};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200768static argcheck_T arg4_string_string_any_string[] = {arg_string, arg_string, NULL, arg_string};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200769static argcheck_T arg4_string_string_number_string[] = {arg_string, arg_string, arg_number, arg_string};
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200770static argcheck_T arg5_number[] = {arg_number, arg_number, arg_number, arg_number, arg_number};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200771/* Function specific argument types (not covered by the above) */
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200772static argcheck_T arg15_assert_fails[] = {arg_string_or_nr, arg_string_or_list_any, NULL, arg_number, arg_string};
773static argcheck_T arg34_assert_inrange[] = {arg_float_or_nr, arg_float_or_nr, arg_float_or_nr, arg_string};
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +0200774static argcheck_T arg4_browse[] = {arg_bool, arg_string, arg_string, arg_string};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200775static argcheck_T arg23_chanexpr[] = {arg_chan_or_job, NULL, arg_dict_any};
776static argcheck_T arg23_chanraw[] = {arg_chan_or_job, arg_string_or_blob, arg_dict_any};
777static argcheck_T arg24_count[] = {arg_count1, NULL, arg_bool, arg_number};
778static argcheck_T arg13_cursor[] = {arg_cursor1, arg_number, arg_number};
779static argcheck_T arg12_deepcopy[] = {NULL, arg_bool};
780static argcheck_T arg12_execute[] = {arg_string_or_list_string, arg_string};
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +0200781static argcheck_T arg23_extend[] = {arg_list_or_dict, arg_same_as_prev, arg_extend3};
782static argcheck_T arg23_extendnew[] = {arg_list_or_dict, arg_same_struct_as_prev, arg_extend3};
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200783static argcheck_T arg23_get[] = {arg_get1, arg_string_or_nr, NULL};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200784static argcheck_T arg14_glob[] = {arg_string, arg_bool, arg_bool, arg_bool};
785static argcheck_T arg25_globpath[] = {arg_string, arg_string, arg_bool, arg_bool, arg_bool};
786static argcheck_T arg24_index[] = {arg_list_or_blob, arg_item_of_prev, arg_number, arg_bool};
787static argcheck_T arg23_insert[] = {arg_list_or_blob, arg_item_of_prev, arg_number};
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200788static argcheck_T arg1_len[] = {arg_len1};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200789static argcheck_T arg3_libcall[] = {arg_string, arg_string, arg_string_or_nr};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200790static argcheck_T arg14_maparg[] = {arg_string, arg_string, arg_bool, arg_bool};
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +0200791static argcheck_T arg2_mapfilter[] = {arg_list_or_dict_or_blob, NULL};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200792static argcheck_T arg25_matchadd[] = {arg_string, arg_string, arg_number, arg_number, arg_dict_any};
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200793static argcheck_T arg25_matchaddpos[] = {arg_string, arg_list_any, arg_number, arg_number, arg_dict_any};
Yegappan Lakshmanana764e732021-07-25 15:57:32 +0200794static argcheck_T arg119_printf[] = {arg_string_or_nr, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200795static argcheck_T arg23_reduce[] = {arg_list_or_blob, NULL, NULL};
796static argcheck_T arg24_remote_expr[] = {arg_string, arg_string, arg_string, arg_number};
797static argcheck_T arg23_remove[] = {arg_list_or_dict_or_blob, arg_remove2, arg_number};
798static argcheck_T arg2_repeat[] = {arg_repeat1, arg_number};
799static argcheck_T arg15_search[] = {arg_string, arg_string, arg_number, arg_number, NULL};
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +0200800static argcheck_T arg37_searchpair[] = {arg_string, arg_string, arg_string, arg_string, NULL, arg_number, arg_number};
Yegappan Lakshmanancd917202021-07-21 19:09:09 +0200801static argcheck_T arg3_setbufline[] = {arg_buffer, arg_lnum, arg_str_or_nr_or_list};
802static argcheck_T arg2_setline[] = {arg_lnum, NULL};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200803static argcheck_T arg24_setloclist[] = {arg_number, arg_list_any, arg_string, arg_dict_any};
804static argcheck_T arg13_setqflist[] = {arg_list_any, arg_string, arg_dict_any};
805static argcheck_T arg23_settagstack[] = {arg_number, arg_dict_any, arg_string};
806static argcheck_T arg02_sign_getplaced[] = {arg_buffer, arg_dict_any};
807static argcheck_T arg45_sign_place[] = {arg_number, arg_string, arg_string, arg_buffer, arg_dict_any};
808static argcheck_T arg23_slice[] = {arg_slice1, arg_number, arg_number};
809static argcheck_T arg13_sortuniq[] = {arg_list_any, NULL, arg_dict_any};
810static argcheck_T arg24_strpart[] = {arg_string, arg_number, arg_number, arg_bool};
811static argcheck_T arg12_system[] = {arg_string, arg_str_or_nr_or_list};
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +0200812static argcheck_T arg23_win_execute[] = {arg_number, arg_string_or_list_string, arg_string};
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +0200813static argcheck_T arg23_writefile[] = {arg_list_or_blob, arg_string, arg_string};
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +0200814static argcheck_T arg24_match_func[] = {arg_string_or_list_any, arg_string, arg_number, arg_number};
Bram Moolenaarcd268012021-07-22 19:11:08 +0200815
Bram Moolenaar94738d82020-10-21 14:25:07 +0200816
817/*
818 * Functions that return the return type of a builtin function.
Bram Moolenaara1224cb2020-10-22 12:31:49 +0200819 * Note that "argtypes" is NULL if "argcount" is zero.
Bram Moolenaar94738d82020-10-21 14:25:07 +0200820 */
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100821 static type_T *
822ret_void(int argcount UNUSED, type_T **argtypes UNUSED)
823{
824 return &t_void;
825}
826 static type_T *
827ret_any(int argcount UNUSED, type_T **argtypes UNUSED)
828{
829 return &t_any;
830}
831 static type_T *
Bram Moolenaar403dc312020-10-17 19:29:51 +0200832ret_bool(int argcount UNUSED, type_T **argtypes UNUSED)
833{
834 return &t_bool;
835}
836 static type_T *
Bram Moolenaar3af15ab2021-01-17 16:16:23 +0100837ret_number_bool(int argcount UNUSED, type_T **argtypes UNUSED)
838{
839 return &t_number_bool;
840}
841 static type_T *
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100842ret_number(int argcount UNUSED, type_T **argtypes UNUSED)
843{
844 return &t_number;
845}
846 static type_T *
847ret_float(int argcount UNUSED, type_T **argtypes UNUSED)
848{
849 return &t_float;
850}
851 static type_T *
852ret_string(int argcount UNUSED, type_T **argtypes UNUSED)
853{
854 return &t_string;
855}
Bram Moolenaare69f6d02020-04-01 22:11:01 +0200856 static type_T *
857ret_list_any(int argcount UNUSED, type_T **argtypes UNUSED)
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100858{
859 return &t_list_any;
860}
861 static type_T *
862ret_list_number(int argcount UNUSED, type_T **argtypes UNUSED)
863{
864 return &t_list_number;
865}
866 static type_T *
867ret_list_string(int argcount UNUSED, type_T **argtypes UNUSED)
868{
869 return &t_list_string;
870}
871 static type_T *
872ret_list_dict_any(int argcount UNUSED, type_T **argtypes UNUSED)
873{
874 return &t_list_dict_any;
875}
876 static type_T *
Bram Moolenaar6a9e5c62021-07-07 22:13:08 +0200877ret_list_items(int argcount UNUSED, type_T **argtypes UNUSED)
Bram Moolenaarefc5db52021-07-07 21:21:30 +0200878{
879 return &t_list_list_any;
880}
mityu61065042021-07-19 20:07:21 +0200881
882 static type_T *
883ret_list_string_items(int argcount UNUSED, type_T **argtypes UNUSED)
884{
885 return &t_list_list_string;
886}
Bram Moolenaarefc5db52021-07-07 21:21:30 +0200887 static type_T *
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100888ret_dict_any(int argcount UNUSED, type_T **argtypes UNUSED)
889{
890 return &t_dict_any;
891}
892 static type_T *
Bram Moolenaar64ed4d42021-01-12 21:22:31 +0100893ret_job_info(int argcount, type_T **argtypes UNUSED)
894{
895 if (argcount == 0)
896 return &t_list_job;
897 return &t_dict_any;
898}
899 static type_T *
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100900ret_dict_number(int argcount UNUSED, type_T **argtypes UNUSED)
901{
902 return &t_dict_number;
903}
904 static type_T *
905ret_dict_string(int argcount UNUSED, type_T **argtypes UNUSED)
906{
907 return &t_dict_string;
908}
909 static type_T *
910ret_blob(int argcount UNUSED, type_T **argtypes UNUSED)
911{
912 return &t_blob;
913}
914 static type_T *
Bram Moolenaare69f6d02020-04-01 22:11:01 +0200915ret_func_any(int argcount UNUSED, type_T **argtypes UNUSED)
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100916{
Bram Moolenaare69f6d02020-04-01 22:11:01 +0200917 return &t_func_any;
918}
919 static type_T *
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +0100920ret_channel(int argcount UNUSED, type_T **argtypes UNUSED)
921{
922 return &t_channel;
923}
924 static type_T *
925ret_job(int argcount UNUSED, type_T **argtypes UNUSED)
926{
927 return &t_job;
928}
Bram Moolenaar865af6b2020-06-18 18:45:49 +0200929 static type_T *
930ret_first_arg(int argcount, type_T **argtypes)
931{
932 if (argcount > 0)
933 return argtypes[0];
934 return &t_void;
935}
Bram Moolenaarea696852020-11-09 18:31:39 +0100936// for map(): returns first argument but item type may differ
937 static type_T *
938ret_first_cont(int argcount UNUSED, type_T **argtypes)
939{
940 if (argtypes[0]->tt_type == VAR_LIST)
941 return &t_list_any;
942 if (argtypes[0]->tt_type == VAR_DICT)
943 return &t_dict_any;
944 if (argtypes[0]->tt_type == VAR_BLOB)
945 return argtypes[0];
946 return &t_any;
947}
Bram Moolenaar865af6b2020-06-18 18:45:49 +0200948
Bram Moolenaarf151ad12020-06-30 13:38:01 +0200949/*
950 * Used for getqflist(): returns list if there is no argument, dict if there is
951 * one.
952 */
953 static type_T *
954ret_list_or_dict_0(int argcount, type_T **argtypes UNUSED)
955{
956 if (argcount > 0)
957 return &t_dict_any;
958 return &t_list_dict_any;
959}
960
961/*
962 * Used for getloclist(): returns list if there is one argument, dict if there
963 * are two.
964 */
965 static type_T *
966ret_list_or_dict_1(int argcount, type_T **argtypes UNUSED)
967{
968 if (argcount > 1)
969 return &t_dict_any;
970 return &t_list_dict_any;
971}
972
Bram Moolenaar846178a2020-07-05 17:04:13 +0200973 static type_T *
974ret_argv(int argcount, type_T **argtypes UNUSED)
975{
976 // argv() returns list of strings
977 if (argcount == 0)
978 return &t_list_string;
979
980 // argv(0) returns a string, but argv(-1] returns a list
981 return &t_any;
982}
983
Bram Moolenaarad7c2492020-07-05 20:55:29 +0200984 static type_T *
985ret_remove(int argcount UNUSED, type_T **argtypes)
986{
Bram Moolenaar5e654232020-09-16 15:22:00 +0200987 if (argtypes != NULL)
988 {
989 if (argtypes[0]->tt_type == VAR_LIST
990 || argtypes[0]->tt_type == VAR_DICT)
991 return argtypes[0]->tt_member;
992 if (argtypes[0]->tt_type == VAR_BLOB)
993 return &t_number;
994 }
Bram Moolenaarad7c2492020-07-05 20:55:29 +0200995 return &t_any;
996}
997
Bram Moolenaar3d945cc2020-08-06 21:26:59 +0200998 static type_T *
999ret_getreg(int argcount, type_T **argtypes UNUSED)
1000{
1001 // Assume that if the third argument is passed it's non-zero
1002 if (argcount == 3)
1003 return &t_list_string;
1004 return &t_string;
1005}
1006
Bram Moolenaar4a6d1b62020-08-08 17:55:49 +02001007 static type_T *
1008ret_maparg(int argcount, type_T **argtypes UNUSED)
1009{
1010 // Assume that if the fourth argument is passed it's non-zero
1011 if (argcount == 4)
1012 return &t_dict_any;
1013 return &t_string;
1014}
1015
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01001016static type_T *ret_f_function(int argcount, type_T **argtypes);
1017
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001018/*
1019 * Array with names and number of arguments of all internal functions
1020 * MUST BE KEPT SORTED IN strcmp() ORDER FOR BINARY SEARCH!
1021 */
Bram Moolenaarac92e252019-08-03 21:58:38 +02001022typedef struct
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001023{
Bram Moolenaar25e42232019-08-04 15:04:10 +02001024 char *f_name; // function name
1025 char f_min_argc; // minimal number of arguments
1026 char f_max_argc; // maximal number of arguments
1027 char f_argtype; // for method: FEARG_ values
Bram Moolenaar94738d82020-10-21 14:25:07 +02001028 argcheck_T *f_argcheck; // list of functions to check argument types
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01001029 type_T *(*f_retfunc)(int argcount, type_T **argtypes);
1030 // return type function
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001031 void (*f_func)(typval_T *args, typval_T *rvar);
Bram Moolenaar25e42232019-08-04 15:04:10 +02001032 // implementation of function
Bram Moolenaarac92e252019-08-03 21:58:38 +02001033} funcentry_T;
1034
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02001035// values for f_argtype; zero means it cannot be used as a method
1036#define FEARG_1 1 // base is the first argument
1037#define FEARG_2 2 // base is the second argument
Bram Moolenaar24278d22019-08-16 21:49:22 +02001038#define FEARG_3 3 // base is the third argument
Bram Moolenaaraad222c2019-09-06 22:46:09 +02001039#define FEARG_4 4 // base is the fourth argument
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02001040#define FEARG_LAST 9 // base is the last argument
1041
Bram Moolenaar15c47602020-03-26 22:16:48 +01001042#ifdef FEAT_FLOAT
1043# define FLOAT_FUNC(name) name
1044#else
1045# define FLOAT_FUNC(name) NULL
1046#endif
1047#if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
1048# define MATH_FUNC(name) name
1049#else
1050# define MATH_FUNC(name) NULL
1051#endif
1052#ifdef FEAT_TIMERS
1053# define TIMER_FUNC(name) name
1054#else
1055# define TIMER_FUNC(name) NULL
1056#endif
1057#ifdef FEAT_JOB_CHANNEL
1058# define JOB_FUNC(name) name
1059#else
1060# define JOB_FUNC(name) NULL
1061#endif
1062#ifdef FEAT_PROP_POPUP
1063# define PROP_FUNC(name) name
1064#else
1065# define PROP_FUNC(name) NULL
1066#endif
1067#ifdef FEAT_SIGNS
1068# define SIGN_FUNC(name) name
1069#else
1070# define SIGN_FUNC(name) NULL
1071#endif
1072#ifdef FEAT_SOUND
1073# define SOUND_FUNC(name) name
1074#else
1075# define SOUND_FUNC(name) NULL
1076#endif
1077#ifdef FEAT_TERMINAL
1078# define TERM_FUNC(name) name
1079#else
1080# define TERM_FUNC(name) NULL
1081#endif
1082
Bram Moolenaarac92e252019-08-03 21:58:38 +02001083static funcentry_T global_functions[] =
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001084{
Bram Moolenaar94738d82020-10-21 14:25:07 +02001085 {"abs", 1, 1, FEARG_1, arg1_float_or_nr,
1086 ret_any, FLOAT_FUNC(f_abs)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001087 {"acos", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001088 ret_float, FLOAT_FUNC(f_acos)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001089 {"add", 2, 2, FEARG_1, arg2_listblob_item,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001090 ret_first_arg, f_add},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001091 {"and", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001092 ret_number, f_and},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001093 {"append", 2, 2, FEARG_2, arg2_setline,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001094 ret_number_bool, f_append},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001095 {"appendbufline", 3, 3, FEARG_3, arg3_setbufline,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001096 ret_number_bool, f_appendbufline},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001097 {"argc", 0, 1, 0, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001098 ret_number, f_argc},
1099 {"argidx", 0, 0, 0, NULL,
1100 ret_number, f_argidx},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001101 {"arglistid", 0, 2, 0, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001102 ret_number, f_arglistid},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001103 {"argv", 0, 2, 0, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001104 ret_argv, f_argv},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001105 {"asin", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001106 ret_float, FLOAT_FUNC(f_asin)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001107 {"assert_beeps", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001108 ret_number_bool, f_assert_beeps},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001109 {"assert_equal", 2, 3, FEARG_2, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001110 ret_number_bool, f_assert_equal},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001111 {"assert_equalfile", 2, 3, FEARG_1, arg3_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001112 ret_number_bool, f_assert_equalfile},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001113 {"assert_exception", 1, 2, 0, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001114 ret_number_bool, f_assert_exception},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001115 {"assert_fails", 1, 5, FEARG_1, arg15_assert_fails,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001116 ret_number_bool, f_assert_fails},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001117 {"assert_false", 1, 2, FEARG_1, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001118 ret_number_bool, f_assert_false},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001119 {"assert_inrange", 3, 4, FEARG_3, arg34_assert_inrange,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001120 ret_number_bool, f_assert_inrange},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001121 {"assert_match", 2, 3, FEARG_2, arg3_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001122 ret_number_bool, f_assert_match},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001123 {"assert_nobeep", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar5b8cabf2021-04-02 18:55:57 +02001124 ret_number_bool, f_assert_nobeep},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001125 {"assert_notequal", 2, 3, FEARG_2, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001126 ret_number_bool, f_assert_notequal},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001127 {"assert_notmatch", 2, 3, FEARG_2, arg3_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001128 ret_number_bool, f_assert_notmatch},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001129 {"assert_report", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001130 ret_number_bool, f_assert_report},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001131 {"assert_true", 1, 2, FEARG_1, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001132 ret_number_bool, f_assert_true},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001133 {"atan", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001134 ret_float, FLOAT_FUNC(f_atan)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001135 {"atan2", 2, 2, FEARG_1, arg2_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001136 ret_float, FLOAT_FUNC(f_atan2)},
1137 {"balloon_gettext", 0, 0, 0, NULL,
1138 ret_string,
Bram Moolenaar59716a22017-03-01 20:32:44 +01001139#ifdef FEAT_BEVAL
Bram Moolenaar15c47602020-03-26 22:16:48 +01001140 f_balloon_gettext
1141#else
1142 NULL
Bram Moolenaar59716a22017-03-01 20:32:44 +01001143#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001144 },
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001145 {"balloon_show", 1, 1, FEARG_1, arg1_string_or_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001146 ret_void,
Bram Moolenaar15c47602020-03-26 22:16:48 +01001147#ifdef FEAT_BEVAL
1148 f_balloon_show
1149#else
1150 NULL
1151#endif
1152 },
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001153 {"balloon_split", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001154 ret_list_string,
Bram Moolenaar15c47602020-03-26 22:16:48 +01001155#if defined(FEAT_BEVAL_TERM)
1156 f_balloon_split
1157#else
1158 NULL
1159#endif
1160 },
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001161 {"browse", 4, 4, 0, arg4_browse,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001162 ret_string, f_browse},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001163 {"browsedir", 2, 2, 0, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001164 ret_string, f_browsedir},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001165 {"bufadd", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001166 ret_number, f_bufadd},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001167 {"bufexists", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001168 ret_number_bool, f_bufexists},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001169 {"buffer_exists", 1, 1, FEARG_1, arg1_buffer, // obsolete
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001170 ret_number_bool, f_bufexists},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001171 {"buffer_name", 0, 1, FEARG_1, arg1_buffer, // obsolete
Bram Moolenaarb8f519e2020-10-21 14:49:08 +02001172 ret_string, f_bufname},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001173 {"buffer_number", 0, 1, FEARG_1, arg1_buffer, // obsolete
Bram Moolenaarb8f519e2020-10-21 14:49:08 +02001174 ret_number, f_bufnr},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001175 {"buflisted", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001176 ret_number_bool, f_buflisted},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001177 {"bufload", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001178 ret_void, f_bufload},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001179 {"bufloaded", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001180 ret_number_bool, f_bufloaded},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001181 {"bufname", 0, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001182 ret_string, f_bufname},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001183 {"bufnr", 0, 2, FEARG_1, arg2_buffer_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001184 ret_number, f_bufnr},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001185 {"bufwinid", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001186 ret_number, f_bufwinid},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001187 {"bufwinnr", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001188 ret_number, f_bufwinnr},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001189 {"byte2line", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001190 ret_number, f_byte2line},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001191 {"byteidx", 2, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001192 ret_number, f_byteidx},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001193 {"byteidxcomp", 2, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001194 ret_number, f_byteidxcomp},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001195 {"call", 2, 3, FEARG_1, arg3_any_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001196 ret_any, f_call},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001197 {"ceil", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001198 ret_float, FLOAT_FUNC(f_ceil)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001199 {"ch_canread", 1, 1, FEARG_1, arg1_chan_or_job,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001200 ret_number_bool, JOB_FUNC(f_ch_canread)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001201 {"ch_close", 1, 1, FEARG_1, arg1_chan_or_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001202 ret_void, JOB_FUNC(f_ch_close)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001203 {"ch_close_in", 1, 1, FEARG_1, arg1_chan_or_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001204 ret_void, JOB_FUNC(f_ch_close_in)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001205 {"ch_evalexpr", 2, 3, FEARG_1, arg23_chanexpr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001206 ret_any, JOB_FUNC(f_ch_evalexpr)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001207 {"ch_evalraw", 2, 3, FEARG_1, arg23_chanraw,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001208 ret_any, JOB_FUNC(f_ch_evalraw)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001209 {"ch_getbufnr", 2, 2, FEARG_1, arg2_chan_or_job_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001210 ret_number, JOB_FUNC(f_ch_getbufnr)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001211 {"ch_getjob", 1, 1, FEARG_1, arg1_chan_or_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001212 ret_job, JOB_FUNC(f_ch_getjob)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001213 {"ch_info", 1, 1, FEARG_1, arg1_chan_or_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001214 ret_dict_any, JOB_FUNC(f_ch_info)},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001215 {"ch_log", 1, 2, FEARG_1, arg2_string_chan_or_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001216 ret_void, JOB_FUNC(f_ch_log)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001217 {"ch_logfile", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001218 ret_void, JOB_FUNC(f_ch_logfile)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001219 {"ch_open", 1, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001220 ret_channel, JOB_FUNC(f_ch_open)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001221 {"ch_read", 1, 2, FEARG_1, arg2_chan_or_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001222 ret_string, JOB_FUNC(f_ch_read)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001223 {"ch_readblob", 1, 2, FEARG_1, arg2_chan_or_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001224 ret_blob, JOB_FUNC(f_ch_readblob)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001225 {"ch_readraw", 1, 2, FEARG_1, arg2_chan_or_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001226 ret_string, JOB_FUNC(f_ch_readraw)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001227 {"ch_sendexpr", 2, 3, FEARG_1, arg23_chanexpr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001228 ret_void, JOB_FUNC(f_ch_sendexpr)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001229 {"ch_sendraw", 2, 3, FEARG_1, arg23_chanraw,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001230 ret_void, JOB_FUNC(f_ch_sendraw)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001231 {"ch_setoptions", 2, 2, FEARG_1, arg2_chan_or_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001232 ret_void, JOB_FUNC(f_ch_setoptions)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001233 {"ch_status", 1, 2, FEARG_1, arg2_chan_or_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001234 ret_string, JOB_FUNC(f_ch_status)},
1235 {"changenr", 0, 0, 0, NULL,
1236 ret_number, f_changenr},
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02001237 {"char2nr", 1, 2, FEARG_1, arg2_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001238 ret_number, f_char2nr},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001239 {"charclass", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001240 ret_number, f_charclass},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001241 {"charcol", 1, 1, FEARG_1, arg1_string_or_list_any,
Bram Moolenaar6f02b002021-01-10 20:22:54 +01001242 ret_number, f_charcol},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001243 {"charidx", 2, 3, FEARG_1, arg3_string_number_bool,
Bram Moolenaar17793ef2020-12-28 12:56:58 +01001244 ret_number, f_charidx},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001245 {"chdir", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001246 ret_string, f_chdir},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001247 {"cindent", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001248 ret_number, f_cindent},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001249 {"clearmatches", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001250 ret_void, f_clearmatches},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001251 {"col", 1, 1, FEARG_1, arg1_string_or_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001252 ret_number, f_col},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001253 {"complete", 2, 2, FEARG_2, arg2_number_list,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001254 ret_void, f_complete},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001255 {"complete_add", 1, 1, FEARG_1, arg1_dict_or_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001256 ret_number, f_complete_add},
1257 {"complete_check", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001258 ret_number_bool, f_complete_check},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001259 {"complete_info", 0, 1, FEARG_1, arg1_list_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001260 ret_dict_any, f_complete_info},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001261 {"confirm", 1, 4, FEARG_1, arg4_string_string_number_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001262 ret_number, f_confirm},
1263 {"copy", 1, 1, FEARG_1, NULL,
1264 ret_first_arg, f_copy},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001265 {"cos", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001266 ret_float, FLOAT_FUNC(f_cos)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001267 {"cosh", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001268 ret_float, FLOAT_FUNC(f_cosh)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001269 {"count", 2, 4, FEARG_1, arg24_count,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001270 ret_number, f_count},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001271 {"cscope_connection",0,3, 0, arg3_number_string_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001272 ret_number, f_cscope_connection},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001273 {"cursor", 1, 3, FEARG_1, arg13_cursor,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001274 ret_number, f_cursor},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001275 {"debugbreak", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001276 ret_number,
Bram Moolenaar4f974752019-02-17 17:44:42 +01001277#ifdef MSWIN
Bram Moolenaar15c47602020-03-26 22:16:48 +01001278 f_debugbreak
1279#else
1280 NULL
Bram Moolenaar4551c0a2018-06-20 22:38:21 +02001281#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001282 },
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001283 {"deepcopy", 1, 2, FEARG_1, arg12_deepcopy,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001284 ret_first_arg, f_deepcopy},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001285 {"delete", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001286 ret_number_bool, f_delete},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001287 {"deletebufline", 2, 3, FEARG_1, arg3_buffer_lnum_lnum,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001288 ret_number_bool, f_deletebufline},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001289 {"did_filetype", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001290 ret_number_bool, f_did_filetype},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001291 {"diff_filler", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001292 ret_number, f_diff_filler},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001293 {"diff_hlID", 2, 2, FEARG_1, arg2_lnum_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001294 ret_number, f_diff_hlID},
h-east29b85712021-07-26 21:54:04 +02001295 {"digraph_get", 1, 1, FEARG_1, arg1_string,
1296 ret_string, f_digraph_get},
1297 {"digraph_getlist",0, 1, FEARG_1, arg1_number,
1298 ret_list_string_items, f_digraph_getlist},
1299 {"digraph_set", 2, 2, FEARG_1, arg2_string_number,
1300 ret_bool, f_digraph_set},
1301 {"digraph_setlist",1, 1, FEARG_1, arg1_list_string,
1302 ret_bool, f_digraph_setlist},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001303 {"echoraw", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001304 ret_void, f_echoraw},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001305 {"empty", 1, 1, FEARG_1, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001306 ret_number_bool, f_empty},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001307 {"environ", 0, 0, 0, NULL,
1308 ret_dict_string, f_environ},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001309 {"escape", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001310 ret_string, f_escape},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001311 {"eval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001312 ret_any, f_eval},
1313 {"eventhandler", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001314 ret_number_bool, f_eventhandler},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001315 {"executable", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001316 ret_number, f_executable},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001317 {"execute", 1, 2, FEARG_1, arg12_execute,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001318 ret_string, f_execute},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001319 {"exepath", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001320 ret_string, f_exepath},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001321 {"exists", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001322 ret_number_bool, f_exists},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001323 {"exp", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001324 ret_float, FLOAT_FUNC(f_exp)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001325 {"expand", 1, 3, FEARG_1, arg3_string_bool_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001326 ret_any, f_expand},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001327 {"expandcmd", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001328 ret_string, f_expandcmd},
Bram Moolenaarfbcbffe2020-10-31 19:33:38 +01001329 {"extend", 2, 3, FEARG_1, arg23_extend,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001330 ret_first_arg, f_extend},
Bram Moolenaarb0e6b512021-01-12 20:23:40 +01001331 {"extendnew", 2, 3, FEARG_1, arg23_extendnew,
1332 ret_first_cont, f_extendnew},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001333 {"feedkeys", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001334 ret_void, f_feedkeys},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001335 {"file_readable", 1, 1, FEARG_1, arg1_string, // obsolete
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001336 ret_number_bool, f_filereadable},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001337 {"filereadable", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001338 ret_number_bool, f_filereadable},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001339 {"filewritable", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001340 ret_number, f_filewritable},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001341 {"filter", 2, 2, FEARG_1, arg2_mapfilter,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001342 ret_first_arg, f_filter},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001343 {"finddir", 1, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001344 ret_string, f_finddir},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001345 {"findfile", 1, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001346 ret_string, f_findfile},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001347 {"flatten", 1, 2, FEARG_1, arg2_list_any_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001348 ret_list_any, f_flatten},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001349 {"flattennew", 1, 2, FEARG_1, arg2_list_any_number,
Bram Moolenaar3b690062021-02-01 20:14:51 +01001350 ret_list_any, f_flattennew},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001351 {"float2nr", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001352 ret_number, FLOAT_FUNC(f_float2nr)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001353 {"floor", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001354 ret_float, FLOAT_FUNC(f_floor)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001355 {"fmod", 2, 2, FEARG_1, arg2_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001356 ret_float, FLOAT_FUNC(f_fmod)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001357 {"fnameescape", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001358 ret_string, f_fnameescape},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001359 {"fnamemodify", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001360 ret_string, f_fnamemodify},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001361 {"foldclosed", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001362 ret_number, f_foldclosed},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001363 {"foldclosedend", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001364 ret_number, f_foldclosedend},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001365 {"foldlevel", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001366 ret_number, f_foldlevel},
1367 {"foldtext", 0, 0, 0, NULL,
1368 ret_string, f_foldtext},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001369 {"foldtextresult", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001370 ret_string, f_foldtextresult},
1371 {"foreground", 0, 0, 0, NULL,
1372 ret_void, f_foreground},
Bram Moolenaar038e09e2021-02-06 12:38:51 +01001373 {"fullcommand", 1, 1, FEARG_1, arg1_string,
1374 ret_string, f_fullcommand},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001375 {"funcref", 1, 3, FEARG_1, arg3_any_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001376 ret_func_any, f_funcref},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001377 {"function", 1, 3, FEARG_1, arg3_any_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001378 ret_f_function, f_function},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001379 {"garbagecollect", 0, 1, 0, arg1_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001380 ret_void, f_garbagecollect},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001381 {"get", 2, 3, FEARG_1, arg23_get,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001382 ret_any, f_get},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001383 {"getbufinfo", 0, 1, FEARG_1, arg1_buffer_or_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001384 ret_list_dict_any, f_getbufinfo},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001385 {"getbufline", 2, 3, FEARG_1, arg3_buffer_lnum_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001386 ret_list_string, f_getbufline},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001387 {"getbufvar", 2, 3, FEARG_1, arg3_buffer_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001388 ret_any, f_getbufvar},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001389 {"getchangelist", 0, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001390 ret_list_any, f_getchangelist},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001391 {"getchar", 0, 1, 0, arg1_bool,
Bram Moolenaar3a7503c2021-06-07 18:29:17 +02001392 ret_any, f_getchar},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001393 {"getcharmod", 0, 0, 0, NULL,
1394 ret_number, f_getcharmod},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001395 {"getcharpos", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar6f02b002021-01-10 20:22:54 +01001396 ret_list_number, f_getcharpos},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001397 {"getcharsearch", 0, 0, 0, NULL,
1398 ret_dict_any, f_getcharsearch},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001399 {"getcharstr", 0, 1, 0, arg1_bool,
Bram Moolenaar3a7503c2021-06-07 18:29:17 +02001400 ret_string, f_getcharstr},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001401 {"getcmdline", 0, 0, 0, NULL,
1402 ret_string, f_getcmdline},
1403 {"getcmdpos", 0, 0, 0, NULL,
1404 ret_number, f_getcmdpos},
1405 {"getcmdtype", 0, 0, 0, NULL,
1406 ret_string, f_getcmdtype},
1407 {"getcmdwintype", 0, 0, 0, NULL,
1408 ret_string, f_getcmdwintype},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001409 {"getcompletion", 2, 3, FEARG_1, arg3_string_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001410 ret_list_string, f_getcompletion},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001411 {"getcurpos", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001412 ret_list_number, f_getcurpos},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001413 {"getcursorcharpos", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar6f02b002021-01-10 20:22:54 +01001414 ret_list_number, f_getcursorcharpos},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001415 {"getcwd", 0, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001416 ret_string, f_getcwd},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001417 {"getenv", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar7ad67d12021-03-10 16:08:26 +01001418 ret_any, f_getenv},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001419 {"getfontname", 0, 1, 0, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001420 ret_string, f_getfontname},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001421 {"getfperm", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001422 ret_string, f_getfperm},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001423 {"getfsize", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001424 ret_number, f_getfsize},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001425 {"getftime", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001426 ret_number, f_getftime},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001427 {"getftype", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001428 ret_string, f_getftype},
1429 {"getimstatus", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001430 ret_number_bool, f_getimstatus},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001431 {"getjumplist", 0, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001432 ret_list_any, f_getjumplist},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001433 {"getline", 1, 2, FEARG_1, arg2_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001434 ret_f_getline, f_getline},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001435 {"getloclist", 1, 2, 0, arg2_number_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001436 ret_list_or_dict_1, f_getloclist},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001437 {"getmarklist", 0, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001438 ret_list_dict_any, f_getmarklist},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001439 {"getmatches", 0, 1, 0, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001440 ret_list_dict_any, f_getmatches},
1441 {"getmousepos", 0, 0, 0, NULL,
1442 ret_dict_number, f_getmousepos},
1443 {"getpid", 0, 0, 0, NULL,
1444 ret_number, f_getpid},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001445 {"getpos", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001446 ret_list_number, f_getpos},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001447 {"getqflist", 0, 1, 0, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001448 ret_list_or_dict_0, f_getqflist},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001449 {"getreg", 0, 3, FEARG_1, arg3_string_bool_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001450 ret_getreg, f_getreg},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001451 {"getreginfo", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001452 ret_dict_any, f_getreginfo},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001453 {"getregtype", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001454 ret_string, f_getregtype},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001455 {"gettabinfo", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001456 ret_list_dict_any, f_gettabinfo},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001457 {"gettabvar", 2, 3, FEARG_1, arg3_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001458 ret_any, f_gettabvar},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001459 {"gettabwinvar", 3, 4, FEARG_1, arg4_number_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001460 ret_any, f_gettabwinvar},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001461 {"gettagstack", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001462 ret_dict_any, f_gettagstack},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001463 {"gettext", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001464 ret_string, f_gettext},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001465 {"getwininfo", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001466 ret_list_dict_any, f_getwininfo},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001467 {"getwinpos", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001468 ret_list_number, f_getwinpos},
1469 {"getwinposx", 0, 0, 0, NULL,
1470 ret_number, f_getwinposx},
1471 {"getwinposy", 0, 0, 0, NULL,
1472 ret_number, f_getwinposy},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001473 {"getwinvar", 2, 3, FEARG_1, arg3_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001474 ret_any, f_getwinvar},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001475 {"glob", 1, 4, FEARG_1, arg14_glob,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001476 ret_any, f_glob},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001477 {"glob2regpat", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001478 ret_string, f_glob2regpat},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001479 {"globpath", 2, 5, FEARG_2, arg25_globpath,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001480 ret_any, f_globpath},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001481 {"has", 1, 2, 0, arg2_string_bool,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001482 ret_number_bool, f_has},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001483 {"has_key", 2, 2, FEARG_1, arg2_dict_any_string_or_nr,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001484 ret_number_bool, f_has_key},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001485 {"haslocaldir", 0, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001486 ret_number, f_haslocaldir},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001487 {"hasmapto", 1, 3, FEARG_1, arg3_string_string_bool,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001488 ret_number_bool, f_hasmapto},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001489 {"highlightID", 1, 1, FEARG_1, arg1_string, // obsolete
Bram Moolenaarb8f519e2020-10-21 14:49:08 +02001490 ret_number, f_hlID},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001491 {"highlight_exists",1, 1, FEARG_1, arg1_string, // obsolete
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001492 ret_number_bool, f_hlexists},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001493 {"histadd", 2, 2, FEARG_2, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001494 ret_number_bool, f_histadd},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001495 {"histdel", 1, 2, FEARG_1, arg2_string_string_or_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001496 ret_number_bool, f_histdel},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001497 {"histget", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001498 ret_string, f_histget},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001499 {"histnr", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001500 ret_number, f_histnr},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001501 {"hlID", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001502 ret_number, f_hlID},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001503 {"hlexists", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001504 ret_number_bool, f_hlexists},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001505 {"hostname", 0, 0, 0, NULL,
1506 ret_string, f_hostname},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001507 {"iconv", 3, 3, FEARG_1, arg3_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001508 ret_string, f_iconv},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001509 {"indent", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001510 ret_number, f_indent},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001511 {"index", 2, 4, FEARG_1, arg24_index,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001512 ret_number, f_index},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001513 {"input", 1, 3, FEARG_1, arg3_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001514 ret_string, f_input},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001515 {"inputdialog", 1, 3, FEARG_1, arg3_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001516 ret_string, f_inputdialog},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001517 {"inputlist", 1, 1, FEARG_1, arg1_list_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001518 ret_number, f_inputlist},
1519 {"inputrestore", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001520 ret_number_bool, f_inputrestore},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001521 {"inputsave", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001522 ret_number_bool, f_inputsave},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001523 {"inputsecret", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001524 ret_string, f_inputsecret},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001525 {"insert", 2, 3, FEARG_1, arg23_insert,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001526 ret_first_arg, f_insert},
1527 {"interrupt", 0, 0, 0, NULL,
1528 ret_void, f_interrupt},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001529 {"invert", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001530 ret_number, f_invert},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001531 {"isdirectory", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001532 ret_number_bool, f_isdirectory},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001533 {"isinf", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001534 ret_number, MATH_FUNC(f_isinf)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001535 {"islocked", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001536 ret_number_bool, f_islocked},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001537 {"isnan", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001538 ret_number_bool, MATH_FUNC(f_isnan)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001539 {"items", 1, 1, FEARG_1, arg1_dict_any,
Bram Moolenaarefc5db52021-07-07 21:21:30 +02001540 ret_list_items, f_items},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001541 {"job_getchannel", 1, 1, FEARG_1, arg1_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001542 ret_channel, JOB_FUNC(f_job_getchannel)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001543 {"job_info", 0, 1, FEARG_1, arg1_job,
Bram Moolenaar64ed4d42021-01-12 21:22:31 +01001544 ret_job_info, JOB_FUNC(f_job_info)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001545 {"job_setoptions", 2, 2, FEARG_1, arg2_job_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001546 ret_void, JOB_FUNC(f_job_setoptions)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001547 {"job_start", 1, 2, FEARG_1, arg2_string_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001548 ret_job, JOB_FUNC(f_job_start)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001549 {"job_status", 1, 1, FEARG_1, arg1_job,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001550 ret_string, JOB_FUNC(f_job_status)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001551 {"job_stop", 1, 2, FEARG_1, arg2_job_string_or_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001552 ret_number_bool, JOB_FUNC(f_job_stop)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001553 {"join", 1, 2, FEARG_1, arg2_list_any_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001554 ret_string, f_join},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001555 {"js_decode", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001556 ret_any, f_js_decode},
1557 {"js_encode", 1, 1, FEARG_1, NULL,
1558 ret_string, f_js_encode},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001559 {"json_decode", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001560 ret_any, f_json_decode},
1561 {"json_encode", 1, 1, FEARG_1, NULL,
1562 ret_string, f_json_encode},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001563 {"keys", 1, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001564 ret_list_string, f_keys},
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02001565 {"last_buffer_nr", 0, 0, 0, NULL, // obsolete
Bram Moolenaarb8f519e2020-10-21 14:49:08 +02001566 ret_number, f_last_buffer_nr},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001567 {"len", 1, 1, FEARG_1, arg1_len,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001568 ret_number, f_len},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001569 {"libcall", 3, 3, FEARG_3, arg3_libcall,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001570 ret_string, f_libcall},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001571 {"libcallnr", 3, 3, FEARG_3, arg3_libcall,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001572 ret_number, f_libcallnr},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001573 {"line", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001574 ret_number, f_line},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001575 {"line2byte", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001576 ret_number, f_line2byte},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001577 {"lispindent", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001578 ret_number, f_lispindent},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001579 {"list2str", 1, 2, FEARG_1, arg2_list_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001580 ret_string, f_list2str},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001581 {"listener_add", 1, 2, FEARG_2, arg2_any_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001582 ret_number, f_listener_add},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001583 {"listener_flush", 0, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001584 ret_void, f_listener_flush},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001585 {"listener_remove", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001586 ret_number_bool, f_listener_remove},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001587 {"localtime", 0, 0, 0, NULL,
1588 ret_number, f_localtime},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001589 {"log", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001590 ret_float, FLOAT_FUNC(f_log)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001591 {"log10", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001592 ret_float, FLOAT_FUNC(f_log10)},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001593 {"luaeval", 1, 2, FEARG_1, arg2_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001594 ret_any,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001595#ifdef FEAT_LUA
Bram Moolenaar15c47602020-03-26 22:16:48 +01001596 f_luaeval
1597#else
1598 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001599#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001600 },
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001601 {"map", 2, 2, FEARG_1, arg2_mapfilter,
Bram Moolenaarea696852020-11-09 18:31:39 +01001602 ret_first_cont, f_map},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001603 {"maparg", 1, 4, FEARG_1, arg14_maparg,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001604 ret_maparg, f_maparg},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001605 {"mapcheck", 1, 3, FEARG_1, arg3_string_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001606 ret_string, f_mapcheck},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001607 {"mapnew", 2, 2, FEARG_1, arg2_mapfilter,
Bram Moolenaarea696852020-11-09 18:31:39 +01001608 ret_first_cont, f_mapnew},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001609 {"mapset", 3, 3, FEARG_1, arg3_string_bool_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001610 ret_void, f_mapset},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001611 {"match", 2, 4, FEARG_1, arg24_match_func,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001612 ret_any, f_match},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001613 {"matchadd", 2, 5, FEARG_1, arg25_matchadd,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001614 ret_number, f_matchadd},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001615 {"matchaddpos", 2, 5, FEARG_1, arg25_matchaddpos,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001616 ret_number, f_matchaddpos},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001617 {"matcharg", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001618 ret_list_string, f_matcharg},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001619 {"matchdelete", 1, 2, FEARG_1, arg2_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001620 ret_number_bool, f_matchdelete},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001621 {"matchend", 2, 4, FEARG_1, arg24_match_func,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001622 ret_number, f_matchend},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001623 {"matchfuzzy", 2, 3, FEARG_1, arg3_list_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001624 ret_list_string, f_matchfuzzy},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001625 {"matchfuzzypos", 2, 3, FEARG_1, arg3_list_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001626 ret_list_any, f_matchfuzzypos},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001627 {"matchlist", 2, 4, FEARG_1, arg24_match_func,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001628 ret_list_string, f_matchlist},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001629 {"matchstr", 2, 4, FEARG_1, arg24_match_func,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001630 ret_string, f_matchstr},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001631 {"matchstrpos", 2, 4, FEARG_1, arg24_match_func,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001632 ret_list_any, f_matchstrpos},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001633 {"max", 1, 1, FEARG_1, arg1_list_or_dict,
Bram Moolenaar9ae37052021-01-22 22:31:10 +01001634 ret_number, f_max},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001635 {"menu_info", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001636 ret_dict_any,
Bram Moolenaara2cbdea2020-03-16 21:08:31 +01001637#ifdef FEAT_MENU
Bram Moolenaar15c47602020-03-26 22:16:48 +01001638 f_menu_info
1639#else
1640 NULL
Bram Moolenaara2cbdea2020-03-16 21:08:31 +01001641#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001642 },
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001643 {"min", 1, 1, FEARG_1, arg1_list_or_dict,
Bram Moolenaar9ae37052021-01-22 22:31:10 +01001644 ret_number, f_min},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001645 {"mkdir", 1, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001646 ret_number_bool, f_mkdir},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001647 {"mode", 0, 1, FEARG_1, arg1_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001648 ret_string, f_mode},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001649 {"mzeval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001650 ret_any,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001651#ifdef FEAT_MZSCHEME
Bram Moolenaar15c47602020-03-26 22:16:48 +01001652 f_mzeval
1653#else
1654 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001655#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001656 },
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001657 {"nextnonblank", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001658 ret_number, f_nextnonblank},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001659 {"nr2char", 1, 2, FEARG_1, arg2_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001660 ret_string, f_nr2char},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001661 {"or", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001662 ret_number, f_or},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001663 {"pathshorten", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001664 ret_string, f_pathshorten},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001665 {"perleval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001666 ret_any,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001667#ifdef FEAT_PERL
Bram Moolenaar15c47602020-03-26 22:16:48 +01001668 f_perleval
1669#else
1670 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001671#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001672 },
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001673 {"popup_atcursor", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001674 ret_number, PROP_FUNC(f_popup_atcursor)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001675 {"popup_beval", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001676 ret_number, PROP_FUNC(f_popup_beval)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001677 {"popup_clear", 0, 1, 0, arg1_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001678 ret_void, PROP_FUNC(f_popup_clear)},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001679 {"popup_close", 1, 2, FEARG_1, arg2_number_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001680 ret_void, PROP_FUNC(f_popup_close)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001681 {"popup_create", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001682 ret_number, PROP_FUNC(f_popup_create)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001683 {"popup_dialog", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001684 ret_number, PROP_FUNC(f_popup_dialog)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001685 {"popup_filter_menu", 2, 2, 0, arg2_number_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001686 ret_bool, PROP_FUNC(f_popup_filter_menu)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001687 {"popup_filter_yesno", 2, 2, 0, arg2_number_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001688 ret_bool, PROP_FUNC(f_popup_filter_yesno)},
1689 {"popup_findinfo", 0, 0, 0, NULL,
1690 ret_number, PROP_FUNC(f_popup_findinfo)},
1691 {"popup_findpreview", 0, 0, 0, NULL,
1692 ret_number, PROP_FUNC(f_popup_findpreview)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001693 {"popup_getoptions", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001694 ret_dict_any, PROP_FUNC(f_popup_getoptions)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001695 {"popup_getpos", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001696 ret_dict_any, PROP_FUNC(f_popup_getpos)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001697 {"popup_hide", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001698 ret_void, PROP_FUNC(f_popup_hide)},
1699 {"popup_list", 0, 0, 0, NULL,
1700 ret_list_number, PROP_FUNC(f_popup_list)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001701 {"popup_locate", 2, 2, 0, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001702 ret_number, PROP_FUNC(f_popup_locate)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001703 {"popup_menu", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001704 ret_number, PROP_FUNC(f_popup_menu)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001705 {"popup_move", 2, 2, FEARG_1, arg2_number_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001706 ret_void, PROP_FUNC(f_popup_move)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001707 {"popup_notification", 2, 2, FEARG_1, arg2_str_or_nr_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001708 ret_number, PROP_FUNC(f_popup_notification)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001709 {"popup_setoptions", 2, 2, FEARG_1, arg2_number_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001710 ret_void, PROP_FUNC(f_popup_setoptions)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001711 {"popup_settext", 2, 2, FEARG_1, arg2_number_string_or_list,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001712 ret_void, PROP_FUNC(f_popup_settext)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001713 {"popup_show", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001714 ret_void, PROP_FUNC(f_popup_show)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001715 {"pow", 2, 2, FEARG_1, arg2_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001716 ret_float, FLOAT_FUNC(f_pow)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001717 {"prevnonblank", 1, 1, FEARG_1, arg1_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001718 ret_number, f_prevnonblank},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001719 {"printf", 1, 19, FEARG_2, arg119_printf,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001720 ret_string, f_printf},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001721 {"prompt_getprompt", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001722 ret_string, JOB_FUNC(f_prompt_getprompt)},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001723 {"prompt_setcallback", 2, 2, FEARG_1, arg2_buffer_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001724 ret_void, JOB_FUNC(f_prompt_setcallback)},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001725 {"prompt_setinterrupt", 2, 2, FEARG_1, arg2_buffer_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001726 ret_void, JOB_FUNC(f_prompt_setinterrupt)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001727 {"prompt_setprompt", 2, 2, FEARG_1, arg2_buffer_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001728 ret_void, JOB_FUNC(f_prompt_setprompt)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001729 {"prop_add", 3, 3, FEARG_1, arg3_number_number_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001730 ret_void, PROP_FUNC(f_prop_add)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001731 {"prop_clear", 1, 3, FEARG_1, arg3_number_number_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001732 ret_void, PROP_FUNC(f_prop_clear)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001733 {"prop_find", 1, 2, FEARG_1, arg2_dict_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001734 ret_dict_any, PROP_FUNC(f_prop_find)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001735 {"prop_list", 1, 2, FEARG_1, arg2_number_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001736 ret_list_dict_any, PROP_FUNC(f_prop_list)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001737 {"prop_remove", 1, 3, FEARG_1, arg3_dict_number_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001738 ret_number, PROP_FUNC(f_prop_remove)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001739 {"prop_type_add", 2, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001740 ret_void, PROP_FUNC(f_prop_type_add)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001741 {"prop_type_change", 2, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001742 ret_void, PROP_FUNC(f_prop_type_change)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001743 {"prop_type_delete", 1, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001744 ret_void, PROP_FUNC(f_prop_type_delete)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001745 {"prop_type_get", 1, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001746 ret_dict_any, PROP_FUNC(f_prop_type_get)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001747 {"prop_type_list", 0, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001748 ret_list_string, PROP_FUNC(f_prop_type_list)},
1749 {"pum_getpos", 0, 0, 0, NULL,
1750 ret_dict_number, f_pum_getpos},
1751 {"pumvisible", 0, 0, 0, NULL,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001752 ret_number_bool, f_pumvisible},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001753 {"py3eval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001754 ret_any,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001755#ifdef FEAT_PYTHON3
Bram Moolenaar15c47602020-03-26 22:16:48 +01001756 f_py3eval
1757#else
1758 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001759#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001760 },
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001761 {"pyeval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001762 ret_any,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001763#ifdef FEAT_PYTHON
Bram Moolenaar15c47602020-03-26 22:16:48 +01001764 f_pyeval
1765#else
1766 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001767#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001768 },
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001769 {"pyxeval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001770 ret_any,
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01001771#if defined(FEAT_PYTHON) || defined(FEAT_PYTHON3)
Bram Moolenaar15c47602020-03-26 22:16:48 +01001772 f_pyxeval
1773#else
1774 NULL
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01001775#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001776 },
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001777 {"rand", 0, 1, FEARG_1, arg1_list_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001778 ret_number, f_rand},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001779 {"range", 1, 3, FEARG_1, arg3_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001780 ret_list_number, f_range},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001781 {"readblob", 1, 1, FEARG_1, arg1_string,
Bram Moolenaarc423ad72021-01-13 20:38:03 +01001782 ret_blob, f_readblob},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001783 {"readdir", 1, 3, FEARG_1, arg3_string_any_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001784 ret_list_string, f_readdir},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001785 {"readdirex", 1, 3, FEARG_1, arg3_string_any_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001786 ret_list_dict_any, f_readdirex},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001787 {"readfile", 1, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaarc423ad72021-01-13 20:38:03 +01001788 ret_list_string, f_readfile},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001789 {"reduce", 2, 3, FEARG_1, arg23_reduce,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001790 ret_any, f_reduce},
1791 {"reg_executing", 0, 0, 0, NULL,
1792 ret_string, f_reg_executing},
1793 {"reg_recording", 0, 0, 0, NULL,
1794 ret_string, f_reg_recording},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02001795 {"reltime", 0, 2, FEARG_1, arg2_list_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001796 ret_list_any, f_reltime},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001797 {"reltimefloat", 1, 1, FEARG_1, arg1_list_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001798 ret_float, FLOAT_FUNC(f_reltimefloat)},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001799 {"reltimestr", 1, 1, FEARG_1, arg1_list_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001800 ret_string, f_reltimestr},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001801 {"remote_expr", 2, 4, FEARG_1, arg24_remote_expr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001802 ret_string, f_remote_expr},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001803 {"remote_foreground", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001804 ret_string, f_remote_foreground},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001805 {"remote_peek", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001806 ret_number, f_remote_peek},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001807 {"remote_read", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001808 ret_string, f_remote_read},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001809 {"remote_send", 2, 3, FEARG_1, arg3_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001810 ret_string, f_remote_send},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001811 {"remote_startserver", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001812 ret_void, f_remote_startserver},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001813 {"remove", 2, 3, FEARG_1, arg23_remove,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001814 ret_remove, f_remove},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001815 {"rename", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001816 ret_number_bool, f_rename},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001817 {"repeat", 2, 2, FEARG_1, arg2_repeat,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001818 ret_first_arg, f_repeat},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001819 {"resolve", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001820 ret_string, f_resolve},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001821 {"reverse", 1, 1, FEARG_1, arg1_list_or_blob,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001822 ret_first_arg, f_reverse},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001823 {"round", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001824 ret_float, FLOAT_FUNC(f_round)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001825 {"rubyeval", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001826 ret_any,
Bram Moolenaare99be0e2019-03-26 22:51:09 +01001827#ifdef FEAT_RUBY
Bram Moolenaar15c47602020-03-26 22:16:48 +01001828 f_rubyeval
1829#else
1830 NULL
Bram Moolenaare99be0e2019-03-26 22:51:09 +01001831#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001832 },
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001833 {"screenattr", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001834 ret_number, f_screenattr},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001835 {"screenchar", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001836 ret_number, f_screenchar},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001837 {"screenchars", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001838 ret_list_number, f_screenchars},
1839 {"screencol", 0, 0, 0, NULL,
1840 ret_number, f_screencol},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001841 {"screenpos", 3, 3, FEARG_1, arg3_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001842 ret_dict_number, f_screenpos},
1843 {"screenrow", 0, 0, 0, NULL,
1844 ret_number, f_screenrow},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001845 {"screenstring", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001846 ret_string, f_screenstring},
Bram Moolenaarcd268012021-07-22 19:11:08 +02001847 {"search", 1, 5, FEARG_1, arg15_search,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001848 ret_number, f_search},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001849 {"searchcount", 0, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001850 ret_dict_any, f_searchcount},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001851 {"searchdecl", 1, 3, FEARG_1, arg3_string_bool_bool,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001852 ret_number_bool, f_searchdecl},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001853 {"searchpair", 3, 7, 0, arg37_searchpair,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001854 ret_number, f_searchpair},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001855 {"searchpairpos", 3, 7, 0, arg37_searchpair,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001856 ret_list_number, f_searchpairpos},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001857 {"searchpos", 1, 5, FEARG_1, arg15_search,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001858 ret_list_number, f_searchpos},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001859 {"server2client", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001860 ret_number_bool, f_server2client},
Bram Moolenaar94738d82020-10-21 14:25:07 +02001861 {"serverlist", 0, 0, 0, NULL,
1862 ret_string, f_serverlist},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001863 {"setbufline", 3, 3, FEARG_3, arg3_setbufline,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001864 ret_number_bool, f_setbufline},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02001865 {"setbufvar", 3, 3, FEARG_3, arg3_buffer_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001866 ret_void, f_setbufvar},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001867 {"setcellwidths", 1, 1, FEARG_1, arg1_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001868 ret_void, f_setcellwidths},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001869 {"setcharpos", 2, 2, FEARG_2, arg2_string_list_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001870 ret_number_bool, f_setcharpos},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001871 {"setcharsearch", 1, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001872 ret_void, f_setcharsearch},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001873 {"setcmdpos", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001874 ret_number_bool, f_setcmdpos},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001875 {"setcursorcharpos", 1, 3, FEARG_1, arg13_cursor,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001876 ret_number_bool, f_setcursorcharpos},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001877 {"setenv", 2, 2, FEARG_2, arg2_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001878 ret_void, f_setenv},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001879 {"setfperm", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001880 ret_number_bool, f_setfperm},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001881 {"setline", 2, 2, FEARG_2, arg2_setline,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001882 ret_number_bool, f_setline},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001883 {"setloclist", 2, 4, FEARG_2, arg24_setloclist,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001884 ret_number_bool, f_setloclist},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001885 {"setmatches", 1, 2, FEARG_1, arg2_list_any_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001886 ret_number_bool, f_setmatches},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001887 {"setpos", 2, 2, FEARG_2, arg2_string_list_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001888 ret_number_bool, f_setpos},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001889 {"setqflist", 1, 3, FEARG_1, arg13_setqflist,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001890 ret_number_bool, f_setqflist},
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02001891 {"setreg", 2, 3, FEARG_2, arg3_string_any_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001892 ret_number_bool, f_setreg},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001893 {"settabvar", 3, 3, FEARG_3, arg3_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001894 ret_void, f_settabvar},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001895 {"settabwinvar", 4, 4, FEARG_4, arg4_number_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001896 ret_void, f_settabwinvar},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001897 {"settagstack", 2, 3, FEARG_2, arg23_settagstack,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001898 ret_number_bool, f_settagstack},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001899 {"setwinvar", 3, 3, FEARG_3, arg3_number_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001900 ret_void, f_setwinvar},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001901 {"sha256", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001902 ret_string,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001903#ifdef FEAT_CRYPT
Bram Moolenaar15c47602020-03-26 22:16:48 +01001904 f_sha256
1905#else
1906 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001907#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001908 },
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001909 {"shellescape", 1, 2, FEARG_1, arg2_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001910 ret_string, f_shellescape},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001911 {"shiftwidth", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001912 ret_number, f_shiftwidth},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001913 {"sign_define", 1, 2, FEARG_1, arg2_string_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001914 ret_any, SIGN_FUNC(f_sign_define)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001915 {"sign_getdefined", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001916 ret_list_dict_any, SIGN_FUNC(f_sign_getdefined)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001917 {"sign_getplaced", 0, 2, FEARG_1, arg02_sign_getplaced,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001918 ret_list_dict_any, SIGN_FUNC(f_sign_getplaced)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001919 {"sign_jump", 3, 3, FEARG_1, arg3_number_string_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001920 ret_number, SIGN_FUNC(f_sign_jump)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001921 {"sign_place", 4, 5, FEARG_1, arg45_sign_place,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001922 ret_number, SIGN_FUNC(f_sign_place)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001923 {"sign_placelist", 1, 1, FEARG_1, arg1_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001924 ret_list_number, SIGN_FUNC(f_sign_placelist)},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02001925 {"sign_undefine", 0, 1, FEARG_1, arg1_string_or_list_string,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001926 ret_number_bool, SIGN_FUNC(f_sign_undefine)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02001927 {"sign_unplace", 1, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01001928 ret_number_bool, SIGN_FUNC(f_sign_unplace)},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001929 {"sign_unplacelist", 1, 2, FEARG_1, arg1_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001930 ret_list_number, SIGN_FUNC(f_sign_unplacelist)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001931 {"simplify", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001932 ret_string, f_simplify},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001933 {"sin", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001934 ret_float, FLOAT_FUNC(f_sin)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001935 {"sinh", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001936 ret_float, FLOAT_FUNC(f_sinh)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001937 {"slice", 2, 3, FEARG_1, arg23_slice,
Bram Moolenaar6601b622021-01-13 21:47:15 +01001938 ret_first_arg, f_slice},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001939 {"sort", 1, 3, FEARG_1, arg13_sortuniq,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001940 ret_first_arg, f_sort},
1941 {"sound_clear", 0, 0, 0, NULL,
1942 ret_void, SOUND_FUNC(f_sound_clear)},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001943 {"sound_playevent", 1, 2, FEARG_1, arg2_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001944 ret_number, SOUND_FUNC(f_sound_playevent)},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001945 {"sound_playfile", 1, 2, FEARG_1, arg2_string_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001946 ret_number, SOUND_FUNC(f_sound_playfile)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001947 {"sound_stop", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001948 ret_void, SOUND_FUNC(f_sound_stop)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001949 {"soundfold", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001950 ret_string, f_soundfold},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001951 {"spellbadword", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001952 ret_list_string, f_spellbadword},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001953 {"spellsuggest", 1, 3, FEARG_1, arg3_string_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001954 ret_list_string, f_spellsuggest},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001955 {"split", 1, 3, FEARG_1, arg3_string_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001956 ret_list_string, f_split},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02001957 {"sqrt", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001958 ret_float, FLOAT_FUNC(f_sqrt)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001959 {"srand", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001960 ret_list_number, f_srand},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001961 {"state", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001962 ret_string, f_state},
Bram Moolenaar80ad3e22021-01-31 20:48:58 +01001963 {"str2float", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001964 ret_float, FLOAT_FUNC(f_str2float)},
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02001965 {"str2list", 1, 2, FEARG_1, arg2_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001966 ret_list_number, f_str2list},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02001967 {"str2nr", 1, 3, FEARG_1, arg3_string_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001968 ret_number, f_str2nr},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02001969 {"strcharlen", 1, 1, FEARG_1, arg1_string_or_nr,
Bram Moolenaar70ce8a12021-03-14 19:02:09 +01001970 ret_number, f_strcharlen},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001971 {"strcharpart", 2, 4, FEARG_1, arg24_strpart,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001972 ret_string, f_strcharpart},
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02001973 {"strchars", 1, 2, FEARG_1, arg2_string_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001974 ret_number, f_strchars},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001975 {"strdisplaywidth", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001976 ret_number, f_strdisplaywidth},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001977 {"strftime", 1, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001978 ret_string,
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001979#ifdef HAVE_STRFTIME
Bram Moolenaar15c47602020-03-26 22:16:48 +01001980 f_strftime
1981#else
1982 NULL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02001983#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01001984 },
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02001985 {"strgetchar", 2, 2, FEARG_1, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001986 ret_number, f_strgetchar},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02001987 {"stridx", 2, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001988 ret_number, f_stridx},
1989 {"string", 1, 1, FEARG_1, NULL,
1990 ret_string, f_string},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001991 {"strlen", 1, 1, FEARG_1, arg1_string_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001992 ret_number, f_strlen},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02001993 {"strpart", 2, 4, FEARG_1, arg24_strpart,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001994 ret_string, f_strpart},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02001995 {"strptime", 2, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02001996 ret_number,
Bram Moolenaar10455d42019-11-21 15:36:18 +01001997#ifdef HAVE_STRPTIME
Bram Moolenaar15c47602020-03-26 22:16:48 +01001998 f_strptime
1999#else
2000 NULL
Bram Moolenaar10455d42019-11-21 15:36:18 +01002001#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01002002 },
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002003 {"strridx", 2, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002004 ret_number, f_strridx},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002005 {"strtrans", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002006 ret_string, f_strtrans},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002007 {"strwidth", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002008 ret_number, f_strwidth},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002009 {"submatch", 1, 2, FEARG_1, arg2_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002010 ret_string, f_submatch},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02002011 {"substitute", 4, 4, FEARG_1, arg4_string_string_any_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002012 ret_string, f_substitute},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002013 {"swapinfo", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002014 ret_dict_any, f_swapinfo},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002015 {"swapname", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002016 ret_string, f_swapname},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002017 {"synID", 3, 3, 0, arg3_lnum_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002018 ret_number, f_synID},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02002019 {"synIDattr", 2, 3, FEARG_1, arg3_number_string_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002020 ret_string, f_synIDattr},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002021 {"synIDtrans", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002022 ret_number, f_synIDtrans},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002023 {"synconcealed", 2, 2, 0, arg2_lnum_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002024 ret_list_any, f_synconcealed},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002025 {"synstack", 2, 2, 0, arg2_lnum_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002026 ret_list_number, f_synstack},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002027 {"system", 1, 2, FEARG_1, arg12_system,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002028 ret_string, f_system},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002029 {"systemlist", 1, 2, FEARG_1, arg12_system,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002030 ret_list_string, f_systemlist},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002031 {"tabpagebuflist", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002032 ret_list_number, f_tabpagebuflist},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002033 {"tabpagenr", 0, 1, 0, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002034 ret_number, f_tabpagenr},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002035 {"tabpagewinnr", 1, 2, FEARG_1, arg2_number_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002036 ret_number, f_tabpagewinnr},
2037 {"tagfiles", 0, 0, 0, NULL,
2038 ret_list_string, f_tagfiles},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002039 {"taglist", 1, 2, FEARG_1, arg2_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002040 ret_list_dict_any, f_taglist},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002041 {"tan", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002042 ret_float, FLOAT_FUNC(f_tan)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002043 {"tanh", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002044 ret_float, FLOAT_FUNC(f_tanh)},
2045 {"tempname", 0, 0, 0, NULL,
2046 ret_string, f_tempname},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002047 {"term_dumpdiff", 2, 3, FEARG_1, arg3_string_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002048 ret_number, TERM_FUNC(f_term_dumpdiff)},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002049 {"term_dumpload", 1, 2, FEARG_1, arg2_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002050 ret_number, TERM_FUNC(f_term_dumpload)},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002051 {"term_dumpwrite", 2, 3, FEARG_2, arg3_buffer_string_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002052 ret_void, TERM_FUNC(f_term_dumpwrite)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002053 {"term_getaltscreen", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002054 ret_number, TERM_FUNC(f_term_getaltscreen)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002055 {"term_getansicolors", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002056 ret_list_string,
Bram Moolenaarbd5e6222020-03-26 23:13:34 +01002057#if defined(FEAT_TERMINAL) && (defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS))
Bram Moolenaar15c47602020-03-26 22:16:48 +01002058 f_term_getansicolors
2059#else
2060 NULL
Bram Moolenaarc6df10e2017-07-29 20:15:08 +02002061#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01002062 },
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002063 {"term_getattr", 2, 2, FEARG_1, arg2_number_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002064 ret_number, TERM_FUNC(f_term_getattr)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002065 {"term_getcursor", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002066 ret_list_any, TERM_FUNC(f_term_getcursor)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002067 {"term_getjob", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002068 ret_job, TERM_FUNC(f_term_getjob)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002069 {"term_getline", 2, 2, FEARG_1, arg2_buffer_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002070 ret_string, TERM_FUNC(f_term_getline)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002071 {"term_getscrolled", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002072 ret_number, TERM_FUNC(f_term_getscrolled)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002073 {"term_getsize", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002074 ret_list_number, TERM_FUNC(f_term_getsize)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002075 {"term_getstatus", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002076 ret_string, TERM_FUNC(f_term_getstatus)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002077 {"term_gettitle", 1, 1, FEARG_1, arg1_buffer,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002078 ret_string, TERM_FUNC(f_term_gettitle)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002079 {"term_gettty", 1, 2, FEARG_1, arg2_buffer_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002080 ret_string, TERM_FUNC(f_term_gettty)},
2081 {"term_list", 0, 0, 0, NULL,
2082 ret_list_number, TERM_FUNC(f_term_list)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002083 {"term_scrape", 2, 2, FEARG_1, arg2_buffer_lnum,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002084 ret_list_dict_any, TERM_FUNC(f_term_scrape)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002085 {"term_sendkeys", 2, 2, FEARG_1, arg2_buffer_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002086 ret_void, TERM_FUNC(f_term_sendkeys)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002087 {"term_setansicolors", 2, 2, FEARG_1, arg2_buffer_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002088 ret_void,
Bram Moolenaarbd5e6222020-03-26 23:13:34 +01002089#if defined(FEAT_TERMINAL) && (defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS))
Bram Moolenaar15c47602020-03-26 22:16:48 +01002090 f_term_setansicolors
2091#else
2092 NULL
2093#endif
2094 },
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002095 {"term_setapi", 2, 2, FEARG_1, arg2_buffer_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002096 ret_void, TERM_FUNC(f_term_setapi)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002097 {"term_setkill", 2, 2, FEARG_1, arg2_buffer_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002098 ret_void, TERM_FUNC(f_term_setkill)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002099 {"term_setrestore", 2, 2, FEARG_1, arg2_buffer_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002100 ret_void, TERM_FUNC(f_term_setrestore)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002101 {"term_setsize", 3, 3, FEARG_1, arg3_buffer_number_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002102 ret_void, TERM_FUNC(f_term_setsize)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002103 {"term_start", 1, 2, FEARG_1, arg2_string_or_list_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002104 ret_number, TERM_FUNC(f_term_start)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002105 {"term_wait", 1, 2, FEARG_1, arg2_buffer_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002106 ret_void, TERM_FUNC(f_term_wait)},
2107 {"terminalprops", 0, 0, 0, NULL,
2108 ret_dict_string, f_terminalprops},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002109 {"test_alloc_fail", 3, 3, FEARG_1, arg3_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002110 ret_void, f_test_alloc_fail},
2111 {"test_autochdir", 0, 0, 0, NULL,
2112 ret_void, f_test_autochdir},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002113 {"test_feedinput", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002114 ret_void, f_test_feedinput},
2115 {"test_garbagecollect_now", 0, 0, 0, NULL,
2116 ret_void, f_test_garbagecollect_now},
2117 {"test_garbagecollect_soon", 0, 0, 0, NULL,
2118 ret_void, f_test_garbagecollect_soon},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002119 {"test_getvalue", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002120 ret_number, f_test_getvalue},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02002121 {"test_gui_drop_files", 4, 4, 0, arg4_list_number_number_number,
Yegappan Lakshmanan18d46582021-06-23 20:46:52 +02002122 ret_void, f_test_gui_drop_files},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02002123 {"test_gui_mouse_event", 5, 5, 0, arg5_number,
Yegappan Lakshmananf1e74492021-06-21 18:44:26 +02002124 ret_void, f_test_gui_mouse_event},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002125 {"test_ignore_error", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002126 ret_void, f_test_ignore_error},
2127 {"test_null_blob", 0, 0, 0, NULL,
2128 ret_blob, f_test_null_blob},
2129 {"test_null_channel", 0, 0, 0, NULL,
2130 ret_channel, JOB_FUNC(f_test_null_channel)},
2131 {"test_null_dict", 0, 0, 0, NULL,
2132 ret_dict_any, f_test_null_dict},
2133 {"test_null_function", 0, 0, 0, NULL,
2134 ret_func_any, f_test_null_function},
2135 {"test_null_job", 0, 0, 0, NULL,
2136 ret_job, JOB_FUNC(f_test_null_job)},
2137 {"test_null_list", 0, 0, 0, NULL,
2138 ret_list_any, f_test_null_list},
2139 {"test_null_partial", 0, 0, 0, NULL,
2140 ret_func_any, f_test_null_partial},
2141 {"test_null_string", 0, 0, 0, NULL,
2142 ret_string, f_test_null_string},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002143 {"test_option_not_set", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002144 ret_void, f_test_option_not_set},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02002145 {"test_override", 2, 2, FEARG_2, arg2_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002146 ret_void, f_test_override},
2147 {"test_refcount", 1, 1, FEARG_1, NULL,
2148 ret_number, f_test_refcount},
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02002149 {"test_scrollbar", 3, 3, FEARG_2, arg3_string_number_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002150 ret_void,
Bram Moolenaarab186732018-09-14 21:27:06 +02002151#ifdef FEAT_GUI
Bram Moolenaar15c47602020-03-26 22:16:48 +01002152 f_test_scrollbar
2153#else
2154 NULL
Bram Moolenaarab186732018-09-14 21:27:06 +02002155#endif
Bram Moolenaar15c47602020-03-26 22:16:48 +01002156 },
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002157 {"test_setmouse", 2, 2, 0, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002158 ret_void, f_test_setmouse},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002159 {"test_settime", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002160 ret_void, f_test_settime},
Yegappan Lakshmanan5b739922021-07-10 13:15:41 +02002161 {"test_srand_seed", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002162 ret_void, f_test_srand_seed},
2163 {"test_unknown", 0, 0, 0, NULL,
2164 ret_any, f_test_unknown},
2165 {"test_void", 0, 0, 0, NULL,
2166 ret_void, f_test_void},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002167 {"timer_info", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002168 ret_list_dict_any, TIMER_FUNC(f_timer_info)},
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02002169 {"timer_pause", 2, 2, FEARG_1, arg2_number_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002170 ret_void, TIMER_FUNC(f_timer_pause)},
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02002171 {"timer_start", 2, 3, FEARG_1, arg3_number_any_dict,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002172 ret_number, TIMER_FUNC(f_timer_start)},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002173 {"timer_stop", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002174 ret_void, TIMER_FUNC(f_timer_stop)},
2175 {"timer_stopall", 0, 0, 0, NULL,
2176 ret_void, TIMER_FUNC(f_timer_stopall)},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002177 {"tolower", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002178 ret_string, f_tolower},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002179 {"toupper", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002180 ret_string, f_toupper},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002181 {"tr", 3, 3, FEARG_1, arg3_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002182 ret_string, f_tr},
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002183 {"trim", 1, 3, FEARG_1, arg3_string_string_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002184 ret_string, f_trim},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002185 {"trunc", 1, 1, FEARG_1, arg1_float_or_nr,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002186 ret_float, FLOAT_FUNC(f_trunc)},
2187 {"type", 1, 1, FEARG_1, NULL,
2188 ret_number, f_type},
Bram Moolenaara47e05f2021-01-12 21:49:00 +01002189 {"typename", 1, 1, FEARG_1, NULL,
2190 ret_string, f_typename},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002191 {"undofile", 1, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002192 ret_string, f_undofile},
2193 {"undotree", 0, 0, 0, NULL,
2194 ret_dict_any, f_undotree},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002195 {"uniq", 1, 3, FEARG_1, arg13_sortuniq,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002196 ret_list_any, f_uniq},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02002197 {"values", 1, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002198 ret_list_any, f_values},
Yegappan Lakshmananc72bdd22021-07-11 19:44:18 +02002199 {"virtcol", 1, 1, FEARG_1, arg1_string_or_list_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002200 ret_number, f_virtcol},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02002201 {"visualmode", 0, 1, 0, arg1_bool,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002202 ret_string, f_visualmode},
2203 {"wildmenumode", 0, 0, 0, NULL,
2204 ret_number, f_wildmenumode},
Bram Moolenaar52312242021-07-11 18:23:19 +02002205 {"win_execute", 2, 3, FEARG_2, arg23_win_execute,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002206 ret_string, f_win_execute},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002207 {"win_findbuf", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002208 ret_list_number, f_win_findbuf},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002209 {"win_getid", 0, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002210 ret_number, f_win_getid},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002211 {"win_gettype", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002212 ret_string, f_win_gettype},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002213 {"win_gotoid", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01002214 ret_number_bool, f_win_gotoid},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002215 {"win_id2tabwin", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002216 ret_list_number, f_win_id2tabwin},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002217 {"win_id2win", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002218 ret_number, f_win_id2win},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002219 {"win_screenpos", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002220 ret_list_number, f_win_screenpos},
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02002221 {"win_splitmove", 2, 3, FEARG_1, arg3_number_number_dict,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01002222 ret_number_bool, f_win_splitmove},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002223 {"winbufnr", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002224 ret_number, f_winbufnr},
2225 {"wincol", 0, 0, 0, NULL,
2226 ret_number, f_wincol},
2227 {"windowsversion", 0, 0, 0, NULL,
2228 ret_string, f_windowsversion},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002229 {"winheight", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002230 ret_number, f_winheight},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002231 {"winlayout", 0, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002232 ret_list_any, f_winlayout},
2233 {"winline", 0, 0, 0, NULL,
2234 ret_number, f_winline},
Yegappan Lakshmanana26f56f2021-07-03 11:58:12 +02002235 {"winnr", 0, 1, FEARG_1, arg1_string,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002236 ret_number, f_winnr},
2237 {"winrestcmd", 0, 0, 0, NULL,
2238 ret_string, f_winrestcmd},
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02002239 {"winrestview", 1, 1, FEARG_1, arg1_dict_any,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002240 ret_void, f_winrestview},
2241 {"winsaveview", 0, 0, 0, NULL,
Bram Moolenaar43b69b32021-01-07 20:23:33 +01002242 ret_dict_number, f_winsaveview},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002243 {"winwidth", 1, 1, FEARG_1, arg1_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002244 ret_number, f_winwidth},
2245 {"wordcount", 0, 0, 0, NULL,
2246 ret_dict_number, f_wordcount},
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002247 {"writefile", 2, 3, FEARG_1, arg23_writefile,
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01002248 ret_number_bool, f_writefile},
Yegappan Lakshmanan7237cab2021-06-22 19:52:27 +02002249 {"xor", 2, 2, FEARG_1, arg2_number,
Bram Moolenaar94738d82020-10-21 14:25:07 +02002250 ret_number, f_xor},
Bram Moolenaarac92e252019-08-03 21:58:38 +02002251};
2252
K.Takataeecf2b32021-06-02 14:56:39 +02002253#if defined(EBCDIC) || defined(PROTO)
2254/*
2255 * Compare funcentry_T by function name.
2256 */
2257 static int
2258compare_func_name(const void *s1, const void *s2)
2259{
2260 funcentry_T *p1 = (funcentry_T *)s1;
2261 funcentry_T *p2 = (funcentry_T *)s2;
2262
2263 return STRCMP(p1->f_name, p2->f_name);
2264}
2265
2266/*
2267 * Sort the function table by function name.
2268 * The sorting of the table above is ASCII dependent.
2269 * On machines using EBCDIC we have to sort it.
2270 */
2271 void
2272sortFunctions(void)
2273{
2274 size_t funcCnt = ARRAY_LENGTH(global_functions);
2275
2276 qsort(global_functions, funcCnt, sizeof(funcentry_T), compare_func_name);
2277}
2278#endif
2279
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002280/*
2281 * Function given to ExpandGeneric() to obtain the list of internal
2282 * or user defined function names.
2283 */
2284 char_u *
2285get_function_name(expand_T *xp, int idx)
2286{
2287 static int intidx = -1;
2288 char_u *name;
2289
2290 if (idx == 0)
2291 intidx = -1;
2292 if (intidx < 0)
2293 {
2294 name = get_user_func_name(xp, idx);
2295 if (name != NULL)
Bram Moolenaar1bb4de52021-01-13 19:48:46 +01002296 {
2297 if (*name != '<' && STRNCMP("g:", xp->xp_pattern, 2) == 0)
2298 return cat_prefix_varname('g', name);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002299 return name;
Bram Moolenaar1bb4de52021-01-13 19:48:46 +01002300 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002301 }
K.Takataeeec2542021-06-02 13:28:16 +02002302 if (++intidx < (int)ARRAY_LENGTH(global_functions))
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002303 {
Bram Moolenaarac92e252019-08-03 21:58:38 +02002304 STRCPY(IObuff, global_functions[intidx].f_name);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002305 STRCAT(IObuff, "(");
Bram Moolenaarac92e252019-08-03 21:58:38 +02002306 if (global_functions[intidx].f_max_argc == 0)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002307 STRCAT(IObuff, ")");
2308 return IObuff;
2309 }
2310
2311 return NULL;
2312}
2313
2314/*
2315 * Function given to ExpandGeneric() to obtain the list of internal or
2316 * user defined variable or function names.
2317 */
2318 char_u *
2319get_expr_name(expand_T *xp, int idx)
2320{
2321 static int intidx = -1;
2322 char_u *name;
2323
2324 if (idx == 0)
2325 intidx = -1;
2326 if (intidx < 0)
2327 {
2328 name = get_function_name(xp, idx);
2329 if (name != NULL)
2330 return name;
2331 }
2332 return get_user_var_name(xp, ++intidx);
2333}
2334
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002335/*
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002336 * Find internal function "name" in table "global_functions".
Bram Moolenaar15c47602020-03-26 22:16:48 +01002337 * Return index, or -1 if not found or "implemented" is TRUE and the function
2338 * is not implemented.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002339 */
Bram Moolenaar15c47602020-03-26 22:16:48 +01002340 static int
2341find_internal_func_opt(char_u *name, int implemented)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002342{
2343 int first = 0;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002344 int last;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002345 int cmp;
2346 int x;
2347
K.Takataeeec2542021-06-02 13:28:16 +02002348 last = (int)ARRAY_LENGTH(global_functions) - 1;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002349
2350 // Find the function name in the table. Binary search.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002351 while (first <= last)
2352 {
2353 x = first + ((unsigned)(last - first) >> 1);
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002354 cmp = STRCMP(name, global_functions[x].f_name);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002355 if (cmp < 0)
2356 last = x - 1;
2357 else if (cmp > 0)
2358 first = x + 1;
Bram Moolenaar15c47602020-03-26 22:16:48 +01002359 else if (implemented && global_functions[x].f_func == NULL)
2360 break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002361 else
2362 return x;
2363 }
2364 return -1;
2365}
2366
Bram Moolenaar15c47602020-03-26 22:16:48 +01002367/*
2368 * Find internal function "name" in table "global_functions".
2369 * Return index, or -1 if not found or the function is not implemented.
2370 */
2371 int
2372find_internal_func(char_u *name)
2373{
2374 return find_internal_func_opt(name, TRUE);
2375}
2376
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002377 int
Bram Moolenaarac92e252019-08-03 21:58:38 +02002378has_internal_func(char_u *name)
2379{
Bram Moolenaar15c47602020-03-26 22:16:48 +01002380 return find_internal_func_opt(name, TRUE) >= 0;
2381}
2382
2383 static int
2384has_internal_func_name(char_u *name)
2385{
2386 return find_internal_func_opt(name, FALSE) >= 0;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002387}
2388
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002389 char *
2390internal_func_name(int idx)
2391{
2392 return global_functions[idx].f_name;
2393}
2394
Bram Moolenaar94738d82020-10-21 14:25:07 +02002395/*
Dominique Pellefe8ebdb2021-05-13 14:55:55 +02002396 * Check the argument types for builtin function "idx".
Bram Moolenaar94738d82020-10-21 14:25:07 +02002397 * Uses the list of types on the type stack: "types".
2398 * Return FAIL and gives an error message when a type is wrong.
2399 */
2400 int
Bram Moolenaar351ead02021-01-16 16:07:01 +01002401internal_func_check_arg_types(
2402 type_T **types,
2403 int idx,
2404 int argcount,
2405 cctx_T *cctx)
Bram Moolenaar94738d82020-10-21 14:25:07 +02002406{
2407 argcheck_T *argchecks = global_functions[idx].f_argcheck;
2408 int i;
2409
2410 if (argchecks != NULL)
2411 {
2412 argcontext_T context;
2413
2414 context.arg_count = argcount;
Bram Moolenaarca174532020-10-21 16:42:22 +02002415 context.arg_types = types;
Bram Moolenaar351ead02021-01-16 16:07:01 +01002416 context.arg_cctx = cctx;
Bram Moolenaar94738d82020-10-21 14:25:07 +02002417 for (i = 0; i < argcount; ++i)
2418 if (argchecks[i] != NULL)
2419 {
2420 context.arg_idx = i;
Bram Moolenaarca174532020-10-21 16:42:22 +02002421 if (argchecks[i](types[i], &context) == FAIL)
Bram Moolenaar94738d82020-10-21 14:25:07 +02002422 return FAIL;
2423 }
2424 }
2425 return OK;
2426}
2427
Bram Moolenaara1224cb2020-10-22 12:31:49 +02002428/*
Bram Moolenaar7a40ff02021-07-04 15:54:08 +02002429 * Get the argument count for function "idx".
2430 * "argcount" is the total argument count, "min_argcount" the non-optional
2431 * argument count.
2432 */
2433 void
2434internal_func_get_argcount(int idx, int *argcount, int *min_argcount)
2435{
2436 *argcount = global_functions[idx].f_max_argc;
2437 *min_argcount = global_functions[idx].f_min_argc;
2438}
2439
2440/*
Bram Moolenaara1224cb2020-10-22 12:31:49 +02002441 * Call the "f_retfunc" function to obtain the return type of function "idx".
2442 * "argtypes" is the list of argument types or NULL when there are no
2443 * arguments.
2444 */
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002445 type_T *
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01002446internal_func_ret_type(int idx, int argcount, type_T **argtypes)
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002447{
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01002448 return global_functions[idx].f_retfunc(argcount, argtypes);
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002449}
2450
2451/*
Bram Moolenaar75ab91f2021-01-10 22:42:50 +01002452 * Return TRUE if "idx" is for the map() function.
2453 */
2454 int
2455internal_func_is_map(int idx)
2456{
2457 return global_functions[idx].f_func == f_map;
2458}
2459
2460/*
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002461 * Check the argument count to use for internal function "idx".
Bram Moolenaar389df252020-07-09 21:20:47 +02002462 * Returns -1 for failure, 0 if no method base accepted, 1 if method base is
2463 * first argument, 2 if method base is second argument, etc. 9 if method base
2464 * is last argument.
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002465 */
2466 int
2467check_internal_func(int idx, int argcount)
2468{
2469 int res;
2470 char *name;
2471
2472 if (argcount < global_functions[idx].f_min_argc)
2473 res = FCERR_TOOFEW;
2474 else if (argcount > global_functions[idx].f_max_argc)
2475 res = FCERR_TOOMANY;
2476 else
Bram Moolenaar389df252020-07-09 21:20:47 +02002477 return global_functions[idx].f_argtype;
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002478
2479 name = internal_func_name(idx);
2480 if (res == FCERR_TOOMANY)
2481 semsg(_(e_toomanyarg), name);
2482 else
2483 semsg(_(e_toofewarg), name);
Bram Moolenaar389df252020-07-09 21:20:47 +02002484 return -1;
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002485}
2486
Bram Moolenaarac92e252019-08-03 21:58:38 +02002487 int
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002488call_internal_func(
2489 char_u *name,
2490 int argcount,
2491 typval_T *argvars,
2492 typval_T *rettv)
2493{
2494 int i;
2495
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002496 i = find_internal_func(name);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002497 if (i < 0)
Bram Moolenaaref140542019-12-31 21:27:13 +01002498 return FCERR_UNKNOWN;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002499 if (argcount < global_functions[i].f_min_argc)
Bram Moolenaaref140542019-12-31 21:27:13 +01002500 return FCERR_TOOFEW;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002501 if (argcount > global_functions[i].f_max_argc)
Bram Moolenaaref140542019-12-31 21:27:13 +01002502 return FCERR_TOOMANY;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002503 argvars[argcount].v_type = VAR_UNKNOWN;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002504 global_functions[i].f_func(argvars, rettv);
Bram Moolenaaref140542019-12-31 21:27:13 +01002505 return FCERR_NONE;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002506}
2507
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01002508 void
2509call_internal_func_by_idx(
2510 int idx,
2511 typval_T *argvars,
2512 typval_T *rettv)
2513{
2514 global_functions[idx].f_func(argvars, rettv);
2515}
2516
Bram Moolenaarac92e252019-08-03 21:58:38 +02002517/*
2518 * Invoke a method for base->method().
2519 */
2520 int
2521call_internal_method(
2522 char_u *name,
2523 int argcount,
2524 typval_T *argvars,
2525 typval_T *rettv,
2526 typval_T *basetv)
2527{
2528 int i;
2529 int fi;
2530 typval_T argv[MAX_FUNC_ARGS + 1];
2531
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002532 fi = find_internal_func(name);
Bram Moolenaar91746392019-08-16 22:22:31 +02002533 if (fi < 0)
Bram Moolenaaref140542019-12-31 21:27:13 +01002534 return FCERR_UNKNOWN;
Bram Moolenaar91746392019-08-16 22:22:31 +02002535 if (global_functions[fi].f_argtype == 0)
Bram Moolenaaref140542019-12-31 21:27:13 +01002536 return FCERR_NOTMETHOD;
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002537 if (argcount + 1 < global_functions[fi].f_min_argc)
Bram Moolenaaref140542019-12-31 21:27:13 +01002538 return FCERR_TOOFEW;
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002539 if (argcount + 1 > global_functions[fi].f_max_argc)
Bram Moolenaaref140542019-12-31 21:27:13 +01002540 return FCERR_TOOMANY;
Bram Moolenaarac92e252019-08-03 21:58:38 +02002541
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002542 if (global_functions[fi].f_argtype == FEARG_LAST)
Bram Moolenaar25e42232019-08-04 15:04:10 +02002543 {
2544 // base value goes last
2545 for (i = 0; i < argcount; ++i)
2546 argv[i] = argvars[i];
2547 argv[argcount] = *basetv;
2548 }
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002549 else if (global_functions[fi].f_argtype == FEARG_2)
Bram Moolenaar25e42232019-08-04 15:04:10 +02002550 {
2551 // base value goes second
2552 argv[0] = argvars[0];
2553 argv[1] = *basetv;
2554 for (i = 1; i < argcount; ++i)
2555 argv[i + 1] = argvars[i];
2556 }
Bram Moolenaar24278d22019-08-16 21:49:22 +02002557 else if (global_functions[fi].f_argtype == FEARG_3)
2558 {
2559 // base value goes third
2560 argv[0] = argvars[0];
2561 argv[1] = argvars[1];
2562 argv[2] = *basetv;
2563 for (i = 2; i < argcount; ++i)
2564 argv[i + 1] = argvars[i];
2565 }
Bram Moolenaaraad222c2019-09-06 22:46:09 +02002566 else if (global_functions[fi].f_argtype == FEARG_4)
2567 {
2568 // base value goes fourth
2569 argv[0] = argvars[0];
2570 argv[1] = argvars[1];
2571 argv[2] = argvars[2];
2572 argv[3] = *basetv;
2573 for (i = 3; i < argcount; ++i)
2574 argv[i + 1] = argvars[i];
2575 }
Bram Moolenaar25e42232019-08-04 15:04:10 +02002576 else
2577 {
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002578 // FEARG_1: base value goes first
Bram Moolenaar25e42232019-08-04 15:04:10 +02002579 argv[0] = *basetv;
2580 for (i = 0; i < argcount; ++i)
2581 argv[i + 1] = argvars[i];
2582 }
Bram Moolenaarac92e252019-08-03 21:58:38 +02002583 argv[argcount + 1].v_type = VAR_UNKNOWN;
2584
Bram Moolenaar7a4ea1d2019-08-04 21:35:12 +02002585 global_functions[fi].f_func(argv, rettv);
Bram Moolenaaref140542019-12-31 21:27:13 +01002586 return FCERR_NONE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002587}
2588
2589/*
2590 * Return TRUE for a non-zero Number and a non-empty String.
2591 */
Bram Moolenaar0e57dd82019-09-16 22:56:03 +02002592 int
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002593non_zero_arg(typval_T *argvars)
2594{
2595 return ((argvars[0].v_type == VAR_NUMBER
2596 && argvars[0].vval.v_number != 0)
Bram Moolenaar9b4a15d2020-01-11 16:05:23 +01002597 || (argvars[0].v_type == VAR_BOOL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002598 && argvars[0].vval.v_number == VVAL_TRUE)
2599 || (argvars[0].v_type == VAR_STRING
2600 && argvars[0].vval.v_string != NULL
2601 && *argvars[0].vval.v_string != NUL));
2602}
2603
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002604/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002605 * "and(expr, expr)" function
2606 */
2607 static void
2608f_and(typval_T *argvars, typval_T *rettv)
2609{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002610 if (in_vim9script()
2611 && (check_for_number_arg(argvars, 0) == FAIL
2612 || check_for_number_arg(argvars, 1) == FAIL))
2613 return;
2614
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002615 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
2616 & tv_get_number_chk(&argvars[1], NULL);
Bram Moolenaarca851592018-06-06 21:04:07 +02002617}
2618
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002619/*
Bram Moolenaar59716a22017-03-01 20:32:44 +01002620 * "balloon_show()" function
2621 */
2622#ifdef FEAT_BEVAL
2623 static void
Bram Moolenaarbe0a2592019-05-09 13:50:16 +02002624f_balloon_gettext(typval_T *argvars UNUSED, typval_T *rettv)
2625{
2626 rettv->v_type = VAR_STRING;
2627 if (balloonEval != NULL)
2628 {
2629 if (balloonEval->msg == NULL)
2630 rettv->vval.v_string = NULL;
2631 else
2632 rettv->vval.v_string = vim_strsave(balloonEval->msg);
2633 }
2634}
2635
2636 static void
Bram Moolenaar59716a22017-03-01 20:32:44 +01002637f_balloon_show(typval_T *argvars, typval_T *rettv UNUSED)
2638{
Bram Moolenaarcaf64342017-03-02 22:11:33 +01002639 if (balloonEval != NULL)
Bram Moolenaar246fe032017-11-19 19:56:27 +01002640 {
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002641 if (in_vim9script()
2642 && check_for_string_or_list_arg(argvars, 0) == FAIL)
2643 return;
2644
Bram Moolenaar246fe032017-11-19 19:56:27 +01002645 if (argvars[0].v_type == VAR_LIST
2646# ifdef FEAT_GUI
2647 && !gui.in_use
2648# endif
2649 )
Bram Moolenaarbe0a2592019-05-09 13:50:16 +02002650 {
2651 list_T *l = argvars[0].vval.v_list;
2652
2653 // empty list removes the balloon
2654 post_balloon(balloonEval, NULL,
2655 l == NULL || l->lv_len == 0 ? NULL : l);
2656 }
Bram Moolenaar246fe032017-11-19 19:56:27 +01002657 else
Bram Moolenaarbe0a2592019-05-09 13:50:16 +02002658 {
Bram Moolenaar32105ae2021-03-27 18:59:25 +01002659 char_u *mesg;
Bram Moolenaarbe0a2592019-05-09 13:50:16 +02002660
Bram Moolenaar32105ae2021-03-27 18:59:25 +01002661 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
2662 return;
2663
2664 mesg = tv_get_string_chk(&argvars[0]);
Bram Moolenaarbe0a2592019-05-09 13:50:16 +02002665 if (mesg != NULL)
2666 // empty string removes the balloon
2667 post_balloon(balloonEval, *mesg == NUL ? NULL : mesg, NULL);
2668 }
Bram Moolenaar246fe032017-11-19 19:56:27 +01002669 }
2670}
2671
Bram Moolenaar669a8282017-11-19 20:13:05 +01002672# if defined(FEAT_BEVAL_TERM)
Bram Moolenaar246fe032017-11-19 19:56:27 +01002673 static void
2674f_balloon_split(typval_T *argvars, typval_T *rettv UNUSED)
2675{
2676 if (rettv_list_alloc(rettv) == OK)
2677 {
Bram Moolenaar32105ae2021-03-27 18:59:25 +01002678 char_u *msg;
Bram Moolenaar246fe032017-11-19 19:56:27 +01002679
Bram Moolenaar32105ae2021-03-27 18:59:25 +01002680 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
2681 return;
2682 msg = tv_get_string_chk(&argvars[0]);
Bram Moolenaar246fe032017-11-19 19:56:27 +01002683 if (msg != NULL)
2684 {
2685 pumitem_T *array;
2686 int size = split_message(msg, &array);
2687 int i;
2688
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01002689 // Skip the first and last item, they are always empty.
Bram Moolenaar246fe032017-11-19 19:56:27 +01002690 for (i = 1; i < size - 1; ++i)
2691 list_append_string(rettv->vval.v_list, array[i].pum_text, -1);
Bram Moolenaarb301f6b2018-02-10 15:38:35 +01002692 while (size > 0)
2693 vim_free(array[--size].pum_text);
Bram Moolenaar246fe032017-11-19 19:56:27 +01002694 vim_free(array);
2695 }
2696 }
Bram Moolenaar59716a22017-03-01 20:32:44 +01002697}
Bram Moolenaar669a8282017-11-19 20:13:05 +01002698# endif
Bram Moolenaar59716a22017-03-01 20:32:44 +01002699#endif
2700
2701/*
Bram Moolenaar6b7b7192019-01-11 13:42:41 +01002702 * Get the buffer from "arg" and give an error and return NULL if it is not
2703 * valid.
2704 */
Bram Moolenaara3347722019-05-11 21:14:24 +02002705 buf_T *
Bram Moolenaar6b7b7192019-01-11 13:42:41 +01002706get_buf_arg(typval_T *arg)
2707{
2708 buf_T *buf;
2709
2710 ++emsg_off;
2711 buf = tv_get_buf(arg, FALSE);
2712 --emsg_off;
2713 if (buf == NULL)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01002714 semsg(_("E158: Invalid buffer name: %s"), tv_get_string(arg));
Bram Moolenaar6b7b7192019-01-11 13:42:41 +01002715 return buf;
2716}
2717
2718/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002719 * "byte2line(byte)" function
2720 */
2721 static void
2722f_byte2line(typval_T *argvars UNUSED, typval_T *rettv)
2723{
2724#ifndef FEAT_BYTEOFF
2725 rettv->vval.v_number = -1;
2726#else
2727 long boff = 0;
2728
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002729 if (in_vim9script() && check_for_number_arg(argvars, 0) == FAIL)
2730 return;
2731
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01002732 boff = tv_get_number(&argvars[0]) - 1; // boff gets -1 on type error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002733 if (boff < 0)
2734 rettv->vval.v_number = -1;
2735 else
2736 rettv->vval.v_number = ml_find_line_or_offset(curbuf,
2737 (linenr_T)0, &boff);
2738#endif
2739}
2740
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002741/*
2742 * "call(func, arglist [, dict])" function
2743 */
2744 static void
2745f_call(typval_T *argvars, typval_T *rettv)
2746{
2747 char_u *func;
2748 partial_T *partial = NULL;
2749 dict_T *selfdict = NULL;
2750
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02002751 if (in_vim9script()
2752 && (check_for_list_arg(argvars, 1) == FAIL
2753 || check_for_opt_dict_arg(argvars, 2) == FAIL))
2754 return;
2755
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002756 if (argvars[1].v_type != VAR_LIST)
2757 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01002758 emsg(_(e_listreq));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002759 return;
2760 }
2761 if (argvars[1].vval.v_list == NULL)
2762 return;
2763
2764 if (argvars[0].v_type == VAR_FUNC)
2765 func = argvars[0].vval.v_string;
2766 else if (argvars[0].v_type == VAR_PARTIAL)
2767 {
2768 partial = argvars[0].vval.v_partial;
Bram Moolenaar437bafe2016-08-01 15:40:54 +02002769 func = partial_name(partial);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002770 }
2771 else
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002772 func = tv_get_string(&argvars[0]);
Dominique Pellefe8ebdb2021-05-13 14:55:55 +02002773 if (func == NULL || *func == NUL)
2774 return; // type error, empty name or null function
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002775
2776 if (argvars[2].v_type != VAR_UNKNOWN)
2777 {
2778 if (argvars[2].v_type != VAR_DICT)
2779 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01002780 emsg(_(e_dictreq));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002781 return;
2782 }
2783 selfdict = argvars[2].vval.v_dict;
2784 }
2785
2786 (void)func_call(func, &argvars[1], partial, selfdict, rettv);
2787}
2788
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002789/*
2790 * "changenr()" function
2791 */
2792 static void
2793f_changenr(typval_T *argvars UNUSED, typval_T *rettv)
2794{
2795 rettv->vval.v_number = curbuf->b_u_seq_cur;
2796}
2797
2798/*
2799 * "char2nr(string)" function
2800 */
2801 static void
2802f_char2nr(typval_T *argvars, typval_T *rettv)
2803{
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02002804 if (in_vim9script()
2805 && (check_for_string_arg(argvars, 0) == FAIL
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02002806 || check_for_opt_bool_arg(argvars, 1) == FAIL))
Bram Moolenaarc5809432021-03-27 21:23:30 +01002807 return;
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02002808
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002809 if (has_mbyte)
2810 {
2811 int utf8 = 0;
2812
2813 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar24f77502020-09-04 19:50:57 +02002814 utf8 = (int)tv_get_bool_chk(&argvars[1], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002815
2816 if (utf8)
Bram Moolenaarbdace832019-03-02 10:13:42 +01002817 rettv->vval.v_number = utf_ptr2char(tv_get_string(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002818 else
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002819 rettv->vval.v_number = (*mb_ptr2char)(tv_get_string(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002820 }
2821 else
Bram Moolenaar13505972019-01-24 15:04:48 +01002822 rettv->vval.v_number = tv_get_string(&argvars[0])[0];
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002823}
2824
Bram Moolenaar17793ef2020-12-28 12:56:58 +01002825/*
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002826 * Get the current cursor column and store it in 'rettv'. If 'charcol' is TRUE,
2827 * returns the character index of the column. Otherwise, returns the byte index
2828 * of the column.
2829 */
2830 static void
2831get_col(typval_T *argvars, typval_T *rettv, int charcol)
2832{
2833 colnr_T col = 0;
2834 pos_T *fp;
2835 int fnum = curbuf->b_fnum;
2836
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02002837 if (in_vim9script()
2838 && check_for_string_or_list_arg(argvars, 0) == FAIL)
2839 return;
2840
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002841 fp = var2fpos(&argvars[0], FALSE, &fnum, charcol);
2842 if (fp != NULL && fnum == curbuf->b_fnum)
2843 {
2844 if (fp->col == MAXCOL)
2845 {
2846 // '> can be MAXCOL, get the length of the line then
2847 if (fp->lnum <= curbuf->b_ml.ml_line_count)
2848 col = (colnr_T)STRLEN(ml_get(fp->lnum)) + 1;
2849 else
2850 col = MAXCOL;
2851 }
2852 else
2853 {
2854 col = fp->col + 1;
2855 // col(".") when the cursor is on the NUL at the end of the line
2856 // because of "coladd" can be seen as an extra column.
2857 if (virtual_active() && fp == &curwin->w_cursor)
2858 {
2859 char_u *p = ml_get_cursor();
2860
2861 if (curwin->w_cursor.coladd >= (colnr_T)chartabsize(p,
2862 curwin->w_virtcol - curwin->w_cursor.coladd))
2863 {
2864 int l;
2865
2866 if (*p != NUL && p[(l = (*mb_ptr2len)(p))] == NUL)
2867 col += l;
2868 }
2869 }
2870 }
2871 }
2872 rettv->vval.v_number = col;
2873}
2874
2875/*
2876 * "charcol()" function
2877 */
2878 static void
2879f_charcol(typval_T *argvars, typval_T *rettv)
2880{
2881 get_col(argvars, rettv, TRUE);
2882}
2883
Bram Moolenaar29b7d7a2019-07-22 23:03:57 +02002884 win_T *
Bram Moolenaaraff74912019-03-30 18:11:49 +01002885get_optional_window(typval_T *argvars, int idx)
2886{
2887 win_T *win = curwin;
2888
2889 if (argvars[idx].v_type != VAR_UNKNOWN)
2890 {
2891 win = find_win_by_nr_or_id(&argvars[idx]);
2892 if (win == NULL)
2893 {
2894 emsg(_(e_invalwindow));
2895 return NULL;
2896 }
2897 }
2898 return win;
2899}
2900
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002901/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002902 * "col(string)" function
2903 */
2904 static void
2905f_col(typval_T *argvars, typval_T *rettv)
2906{
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002907 get_col(argvars, rettv, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002908}
2909
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002910/*
2911 * "confirm(message, buttons[, default [, type]])" function
2912 */
2913 static void
2914f_confirm(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
2915{
2916#if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG)
2917 char_u *message;
2918 char_u *buttons = NULL;
2919 char_u buf[NUMBUFLEN];
2920 char_u buf2[NUMBUFLEN];
2921 int def = 1;
2922 int type = VIM_GENERIC;
2923 char_u *typestr;
2924 int error = FALSE;
2925
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02002926 if (in_vim9script()
2927 && (check_for_string_arg(argvars, 0) == FAIL
2928 || (check_for_opt_string_arg(argvars, 1) == FAIL
2929 || (argvars[1].v_type != VAR_UNKNOWN
2930 && (check_for_opt_number_arg(argvars, 2) == FAIL
2931 || (argvars[2].v_type != VAR_UNKNOWN
2932 && check_for_opt_string_arg(argvars, 3) == FAIL))))))
Bram Moolenaarc5809432021-03-27 21:23:30 +01002933 return;
2934
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002935 message = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002936 if (message == NULL)
2937 error = TRUE;
2938 if (argvars[1].v_type != VAR_UNKNOWN)
2939 {
Bram Moolenaarc5809432021-03-27 21:23:30 +01002940 if (in_vim9script() && check_for_string_arg(argvars, 1) == FAIL)
2941 return;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002942 buttons = tv_get_string_buf_chk(&argvars[1], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002943 if (buttons == NULL)
2944 error = TRUE;
2945 if (argvars[2].v_type != VAR_UNKNOWN)
2946 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002947 def = (int)tv_get_number_chk(&argvars[2], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002948 if (argvars[3].v_type != VAR_UNKNOWN)
2949 {
Bram Moolenaarc5809432021-03-27 21:23:30 +01002950 if (in_vim9script() && check_for_string_arg(argvars, 3) == FAIL)
2951 return;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01002952 typestr = tv_get_string_buf_chk(&argvars[3], buf2);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002953 if (typestr == NULL)
2954 error = TRUE;
2955 else
2956 {
2957 switch (TOUPPER_ASC(*typestr))
2958 {
2959 case 'E': type = VIM_ERROR; break;
2960 case 'Q': type = VIM_QUESTION; break;
2961 case 'I': type = VIM_INFO; break;
2962 case 'W': type = VIM_WARNING; break;
2963 case 'G': type = VIM_GENERIC; break;
2964 }
2965 }
2966 }
2967 }
2968 }
2969
2970 if (buttons == NULL || *buttons == NUL)
2971 buttons = (char_u *)_("&Ok");
2972
2973 if (!error)
2974 rettv->vval.v_number = do_dialog(type, NULL, message, buttons,
2975 def, NULL, FALSE);
2976#endif
2977}
2978
2979/*
2980 * "copy()" function
2981 */
2982 static void
2983f_copy(typval_T *argvars, typval_T *rettv)
2984{
2985 item_copy(&argvars[0], rettv, FALSE, 0);
2986}
2987
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002988/*
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002989 * Set the cursor position.
Dominique Pellefe8ebdb2021-05-13 14:55:55 +02002990 * If 'charcol' is TRUE, then use the column number as a character offset.
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002991 * Otherwise use the column number as a byte offset.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002992 */
2993 static void
Bram Moolenaar6f02b002021-01-10 20:22:54 +01002994set_cursorpos(typval_T *argvars, typval_T *rettv, int charcol)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002995{
2996 long line, col;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002997 long coladd = 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02002998 int set_curswant = TRUE;
2999
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02003000 if (in_vim9script()
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003001 && (check_for_string_or_number_or_list_arg(argvars, 0) == FAIL
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02003002 || check_for_opt_number_arg(argvars, 1) == FAIL
3003 || (argvars[1].v_type != VAR_UNKNOWN
3004 && check_for_opt_number_arg(argvars, 2) == FAIL)))
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02003005 return;
3006
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003007 rettv->vval.v_number = -1;
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003008 if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003009 {
3010 pos_T pos;
3011 colnr_T curswant = -1;
3012
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003013 if (list2fpos(argvars, &pos, NULL, &curswant, charcol) == FAIL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003014 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003015 emsg(_(e_invarg));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003016 return;
3017 }
3018 line = pos.lnum;
3019 col = pos.col;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003020 coladd = pos.coladd;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003021 if (curswant >= 0)
3022 {
3023 curwin->w_curswant = curswant - 1;
3024 set_curswant = FALSE;
3025 }
3026 }
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003027 else if ((argvars[0].v_type == VAR_NUMBER ||
3028 argvars[0].v_type == VAR_STRING)
Bram Moolenaar9ebcf232021-01-16 16:52:49 +01003029 && (argvars[1].v_type == VAR_NUMBER ||
3030 argvars[1].v_type == VAR_STRING))
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003031 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003032 line = tv_get_lnum(argvars);
Bram Moolenaar9a963372020-12-21 21:58:46 +01003033 if (line < 0)
3034 semsg(_(e_invarg2), tv_get_string(&argvars[0]));
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003035 col = (long)tv_get_number_chk(&argvars[1], NULL);
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003036 if (charcol)
Bram Moolenaar91458462021-01-13 20:08:38 +01003037 col = buf_charidx_to_byteidx(curbuf, line, col) + 1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003038 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003039 coladd = (long)tv_get_number_chk(&argvars[2], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003040 }
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003041 else
3042 {
3043 emsg(_(e_invarg));
3044 return;
3045 }
Bram Moolenaar29ddebe2019-01-26 17:28:26 +01003046 if (line < 0 || col < 0 || coladd < 0)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003047 return; // type error; errmsg already given
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003048 if (line > 0)
3049 curwin->w_cursor.lnum = line;
3050 if (col > 0)
3051 curwin->w_cursor.col = col - 1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003052 curwin->w_cursor.coladd = coladd;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003053
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003054 // Make sure the cursor is in a valid position.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003055 check_cursor();
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003056 // Correct cursor for multi-byte character.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003057 if (has_mbyte)
3058 mb_adjust_cursor();
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003059
3060 curwin->w_set_curswant = set_curswant;
3061 rettv->vval.v_number = 0;
3062}
3063
Bram Moolenaar6f02b002021-01-10 20:22:54 +01003064/*
3065 * "cursor(lnum, col)" function, or
3066 * "cursor(list)"
3067 *
3068 * Moves the cursor to the specified line and column.
3069 * Returns 0 when the position could be set, -1 otherwise.
3070 */
3071 static void
3072f_cursor(typval_T *argvars, typval_T *rettv)
3073{
3074 set_cursorpos(argvars, rettv, FALSE);
3075}
3076
Bram Moolenaar4f974752019-02-17 17:44:42 +01003077#ifdef MSWIN
Bram Moolenaar4551c0a2018-06-20 22:38:21 +02003078/*
3079 * "debugbreak()" function
3080 */
3081 static void
3082f_debugbreak(typval_T *argvars, typval_T *rettv)
3083{
3084 int pid;
3085
3086 rettv->vval.v_number = FAIL;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003087 if (in_vim9script() && check_for_number_arg(argvars, 0) == FAIL)
3088 return;
3089
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003090 pid = (int)tv_get_number(&argvars[0]);
Bram Moolenaar4551c0a2018-06-20 22:38:21 +02003091 if (pid == 0)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003092 emsg(_(e_invarg));
Bram Moolenaar4551c0a2018-06-20 22:38:21 +02003093 else
3094 {
3095 HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid);
3096
3097 if (hProcess != NULL)
3098 {
3099 DebugBreakProcess(hProcess);
3100 CloseHandle(hProcess);
3101 rettv->vval.v_number = OK;
3102 }
3103 }
3104}
3105#endif
3106
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003107/*
3108 * "deepcopy()" function
3109 */
3110 static void
3111f_deepcopy(typval_T *argvars, typval_T *rettv)
3112{
Bram Moolenaar239f8d92021-01-17 13:21:20 +01003113 varnumber_T noref = 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003114 int copyID;
3115
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02003116 if (in_vim9script()
3117 && (check_for_opt_bool_arg(argvars, 1) == FAIL))
3118 return;
3119
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003120 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaar239f8d92021-01-17 13:21:20 +01003121 noref = tv_get_bool_chk(&argvars[1], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003122 if (noref < 0 || noref > 1)
Bram Moolenaarbade44e2020-09-26 22:39:24 +02003123 semsg(_(e_using_number_as_bool_nr), noref);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003124 else
3125 {
3126 copyID = get_copyID();
3127 item_copy(&argvars[0], rettv, TRUE, noref == 0 ? copyID : 0);
3128 }
3129}
3130
3131/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003132 * "did_filetype()" function
3133 */
3134 static void
3135f_did_filetype(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
3136{
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003137 rettv->vval.v_number = did_filetype;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003138}
3139
3140/*
Bram Moolenaar4132eb52020-02-14 16:53:00 +01003141 * "echoraw({expr})" function
3142 */
3143 static void
3144f_echoraw(typval_T *argvars, typval_T *rettv UNUSED)
3145{
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02003146 char_u *str;
Bram Moolenaar4132eb52020-02-14 16:53:00 +01003147
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02003148 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
3149 return;
3150
3151 str = tv_get_string_chk(&argvars[0]);
Bram Moolenaar4132eb52020-02-14 16:53:00 +01003152 if (str != NULL && *str != NUL)
3153 {
3154 out_str(str);
3155 out_flush();
3156 }
3157}
3158
3159/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003160 * "empty({expr})" function
3161 */
3162 static void
3163f_empty(typval_T *argvars, typval_T *rettv)
3164{
3165 int n = FALSE;
3166
3167 switch (argvars[0].v_type)
3168 {
3169 case VAR_STRING:
3170 case VAR_FUNC:
3171 n = argvars[0].vval.v_string == NULL
3172 || *argvars[0].vval.v_string == NUL;
3173 break;
3174 case VAR_PARTIAL:
3175 n = FALSE;
3176 break;
3177 case VAR_NUMBER:
3178 n = argvars[0].vval.v_number == 0;
3179 break;
3180 case VAR_FLOAT:
3181#ifdef FEAT_FLOAT
3182 n = argvars[0].vval.v_float == 0.0;
3183 break;
3184#endif
3185 case VAR_LIST:
3186 n = argvars[0].vval.v_list == NULL
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003187 || argvars[0].vval.v_list->lv_len == 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003188 break;
3189 case VAR_DICT:
3190 n = argvars[0].vval.v_dict == NULL
3191 || argvars[0].vval.v_dict->dv_hashtab.ht_used == 0;
3192 break;
Bram Moolenaar9b4a15d2020-01-11 16:05:23 +01003193 case VAR_BOOL:
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003194 case VAR_SPECIAL:
3195 n = argvars[0].vval.v_number != VVAL_TRUE;
3196 break;
3197
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01003198 case VAR_BLOB:
3199 n = argvars[0].vval.v_blob == NULL
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01003200 || argvars[0].vval.v_blob->bv_ga.ga_len == 0;
3201 break;
3202
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003203 case VAR_JOB:
3204#ifdef FEAT_JOB_CHANNEL
3205 n = argvars[0].vval.v_job == NULL
3206 || argvars[0].vval.v_job->jv_status != JOB_STARTED;
3207 break;
3208#endif
3209 case VAR_CHANNEL:
3210#ifdef FEAT_JOB_CHANNEL
3211 n = argvars[0].vval.v_channel == NULL
3212 || !channel_is_open(argvars[0].vval.v_channel);
3213 break;
3214#endif
3215 case VAR_UNKNOWN:
Bram Moolenaar4c683752020-04-05 21:38:23 +02003216 case VAR_ANY:
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01003217 case VAR_VOID:
Bram Moolenaarf18332f2021-05-07 17:55:55 +02003218 case VAR_INSTR:
Bram Moolenaardd589232020-02-29 17:38:12 +01003219 internal_error_no_abort("f_empty(UNKNOWN)");
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003220 n = TRUE;
3221 break;
3222 }
3223
3224 rettv->vval.v_number = n;
3225}
3226
3227/*
Bram Moolenaar691ddee2019-05-09 14:52:41 +02003228 * "environ()" function
3229 */
3230 static void
3231f_environ(typval_T *argvars UNUSED, typval_T *rettv)
3232{
3233#if !defined(AMIGA)
3234 int i = 0;
3235 char_u *entry, *value;
3236# ifdef MSWIN
3237 extern wchar_t **_wenviron;
3238# else
3239 extern char **environ;
3240# endif
3241
3242 if (rettv_dict_alloc(rettv) != OK)
3243 return;
3244
3245# ifdef MSWIN
3246 if (*_wenviron == NULL)
3247 return;
3248# else
3249 if (*environ == NULL)
3250 return;
3251# endif
3252
3253 for (i = 0; ; ++i)
3254 {
3255# ifdef MSWIN
3256 short_u *p;
3257
3258 if ((p = (short_u *)_wenviron[i]) == NULL)
3259 return;
3260 entry = utf16_to_enc(p, NULL);
3261# else
3262 if ((entry = (char_u *)environ[i]) == NULL)
3263 return;
3264 entry = vim_strsave(entry);
3265# endif
3266 if (entry == NULL) // out of memory
3267 return;
3268 if ((value = vim_strchr(entry, '=')) == NULL)
3269 {
3270 vim_free(entry);
3271 continue;
3272 }
3273 *value++ = NUL;
3274 dict_add_string(rettv->vval.v_dict, (char *)entry, value);
3275 vim_free(entry);
3276 }
3277#endif
3278}
3279
3280/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003281 * "escape({string}, {chars})" function
3282 */
3283 static void
3284f_escape(typval_T *argvars, typval_T *rettv)
3285{
3286 char_u buf[NUMBUFLEN];
3287
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003288 if (in_vim9script()
3289 && (check_for_string_arg(argvars, 0) == FAIL
3290 || check_for_string_arg(argvars, 1) == FAIL))
3291 return;
3292
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003293 rettv->vval.v_string = vim_strsave_escaped(tv_get_string(&argvars[0]),
3294 tv_get_string_buf(&argvars[1], buf));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003295 rettv->v_type = VAR_STRING;
3296}
3297
3298/*
3299 * "eval()" function
3300 */
3301 static void
3302f_eval(typval_T *argvars, typval_T *rettv)
3303{
3304 char_u *s, *p;
3305
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003306 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
3307 return;
3308
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003309 s = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003310 if (s != NULL)
3311 s = skipwhite(s);
3312
3313 p = s;
Bram Moolenaar5409f5d2020-06-24 18:37:35 +02003314 if (s == NULL || eval1(&s, rettv, &EVALARG_EVALUATE) == FAIL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003315 {
3316 if (p != NULL && !aborting())
Bram Moolenaar108010a2021-06-27 22:03:33 +02003317 semsg(_(e_invalid_expression_str), p);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003318 need_clr_eos = FALSE;
3319 rettv->v_type = VAR_NUMBER;
3320 rettv->vval.v_number = 0;
3321 }
3322 else if (*s != NUL)
Bram Moolenaar2d06bfd2020-07-23 17:16:18 +02003323 semsg(_(e_trailing_arg), s);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003324}
3325
3326/*
3327 * "eventhandler()" function
3328 */
3329 static void
3330f_eventhandler(typval_T *argvars UNUSED, typval_T *rettv)
3331{
Bram Moolenaardfc33a62020-04-29 22:30:13 +02003332 rettv->vval.v_number = vgetc_busy || input_busy;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003333}
3334
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003335static garray_T redir_execute_ga;
3336
3337/*
3338 * Append "value[value_len]" to the execute() output.
3339 */
3340 void
3341execute_redir_str(char_u *value, int value_len)
3342{
3343 int len;
3344
3345 if (value_len == -1)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003346 len = (int)STRLEN(value); // Append the entire string
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003347 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003348 len = value_len; // Append only "value_len" characters
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003349 if (ga_grow(&redir_execute_ga, len) == OK)
3350 {
3351 mch_memmove((char *)redir_execute_ga.ga_data
3352 + redir_execute_ga.ga_len, value, len);
3353 redir_execute_ga.ga_len += len;
3354 }
3355}
3356
3357/*
3358 * Get next line from a list.
3359 * Called by do_cmdline() to get the next line.
3360 * Returns allocated string, or NULL for end of function.
3361 */
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003362 static char_u *
3363get_list_line(
3364 int c UNUSED,
3365 void *cookie,
Bram Moolenaare96a2492019-06-25 04:12:16 +02003366 int indent UNUSED,
Bram Moolenaar66250c92020-08-20 15:02:42 +02003367 getline_opt_T options UNUSED)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003368{
3369 listitem_T **p = (listitem_T **)cookie;
3370 listitem_T *item = *p;
3371 char_u buf[NUMBUFLEN];
3372 char_u *s;
3373
3374 if (item == NULL)
3375 return NULL;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003376 s = tv_get_string_buf_chk(&item->li_tv, buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003377 *p = item->li_next;
3378 return s == NULL ? NULL : vim_strsave(s);
3379}
3380
3381/*
3382 * "execute()" function
3383 */
Bram Moolenaar261f3462019-09-07 15:45:32 +02003384 void
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003385execute_common(typval_T *argvars, typval_T *rettv, int arg_off)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003386{
3387 char_u *cmd = NULL;
3388 list_T *list = NULL;
3389 int save_msg_silent = msg_silent;
3390 int save_emsg_silent = emsg_silent;
3391 int save_emsg_noredir = emsg_noredir;
3392 int save_redir_execute = redir_execute;
Bram Moolenaar20951482017-12-25 13:44:43 +01003393 int save_redir_off = redir_off;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003394 garray_T save_ga;
Bram Moolenaar10ccaa12018-12-07 16:38:23 +01003395 int save_msg_col = msg_col;
Bram Moolenaar446e7a32018-12-08 13:57:42 +01003396 int echo_output = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003397
3398 rettv->vval.v_string = NULL;
3399 rettv->v_type = VAR_STRING;
3400
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003401 if (argvars[arg_off].v_type == VAR_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003402 {
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003403 list = argvars[arg_off].vval.v_list;
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003404 if (list == NULL || list->lv_len == 0)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003405 // empty list, no commands, empty output
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003406 return;
3407 ++list->lv_refcount;
3408 }
Bram Moolenaare2a8f072020-01-08 19:32:18 +01003409 else if (argvars[arg_off].v_type == VAR_JOB
3410 || argvars[arg_off].v_type == VAR_CHANNEL)
3411 {
Bram Moolenaar68db9962021-05-09 23:19:22 +02003412 semsg(_(e_using_invalid_value_as_string_str),
3413 vartype_name(argvars[arg_off].v_type));
Bram Moolenaare2a8f072020-01-08 19:32:18 +01003414 return;
3415 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003416 else
3417 {
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003418 cmd = tv_get_string_chk(&argvars[arg_off]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003419 if (cmd == NULL)
3420 return;
3421 }
3422
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003423 if (argvars[arg_off + 1].v_type != VAR_UNKNOWN)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003424 {
3425 char_u buf[NUMBUFLEN];
Bram Moolenaar3cfa5b12021-06-06 14:14:39 +02003426 char_u *s = tv_get_string_buf_chk_strict(&argvars[arg_off + 1], buf,
3427 in_vim9script());
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003428
3429 if (s == NULL)
3430 return;
Bram Moolenaar446e7a32018-12-08 13:57:42 +01003431 if (*s == NUL)
3432 echo_output = TRUE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003433 if (STRNCMP(s, "silent", 6) == 0)
3434 ++msg_silent;
3435 if (STRCMP(s, "silent!") == 0)
3436 {
3437 emsg_silent = TRUE;
3438 emsg_noredir = TRUE;
3439 }
3440 }
3441 else
3442 ++msg_silent;
3443
3444 if (redir_execute)
3445 save_ga = redir_execute_ga;
3446 ga_init2(&redir_execute_ga, (int)sizeof(char), 500);
3447 redir_execute = TRUE;
Bram Moolenaar20951482017-12-25 13:44:43 +01003448 redir_off = FALSE;
Bram Moolenaar446e7a32018-12-08 13:57:42 +01003449 if (!echo_output)
3450 msg_col = 0; // prevent leading spaces
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003451
3452 if (cmd != NULL)
3453 do_cmdline_cmd(cmd);
3454 else
3455 {
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003456 listitem_T *item;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003457
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02003458 CHECK_LIST_MATERIALIZE(list);
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003459 item = list->lv_first;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003460 do_cmdline(NULL, get_list_line, (void *)&item,
3461 DOCMD_NOWAIT|DOCMD_VERBOSE|DOCMD_REPEAT|DOCMD_KEYTYPED);
3462 --list->lv_refcount;
3463 }
3464
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003465 // Need to append a NUL to the result.
Bram Moolenaard297f352017-01-29 20:31:21 +01003466 if (ga_grow(&redir_execute_ga, 1) == OK)
3467 {
3468 ((char *)redir_execute_ga.ga_data)[redir_execute_ga.ga_len] = NUL;
3469 rettv->vval.v_string = redir_execute_ga.ga_data;
3470 }
3471 else
3472 {
3473 ga_clear(&redir_execute_ga);
3474 rettv->vval.v_string = NULL;
3475 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003476 msg_silent = save_msg_silent;
3477 emsg_silent = save_emsg_silent;
3478 emsg_noredir = save_emsg_noredir;
3479
3480 redir_execute = save_redir_execute;
3481 if (redir_execute)
3482 redir_execute_ga = save_ga;
Bram Moolenaar20951482017-12-25 13:44:43 +01003483 redir_off = save_redir_off;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003484
Bram Moolenaar10ccaa12018-12-07 16:38:23 +01003485 // "silent reg" or "silent echo x" leaves msg_col somewhere in the line.
Bram Moolenaar446e7a32018-12-08 13:57:42 +01003486 if (echo_output)
3487 // When not working silently: put it in column zero. A following
3488 // "echon" will overwrite the message, unavoidably.
3489 msg_col = 0;
3490 else
3491 // When working silently: Put it back where it was, since nothing
3492 // should have been written.
3493 msg_col = save_msg_col;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003494}
3495
3496/*
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003497 * "execute()" function
3498 */
3499 static void
3500f_execute(typval_T *argvars, typval_T *rettv)
3501{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003502 if (in_vim9script()
3503 && (check_for_string_or_list_arg(argvars, 0) == FAIL
3504 || check_for_opt_string_arg(argvars, 1) == FAIL))
3505 return;
3506
Bram Moolenaar868b7b62019-05-29 21:44:40 +02003507 execute_common(argvars, rettv, 0);
3508}
3509
3510/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003511 * "exists()" function
3512 */
3513 static void
3514f_exists(typval_T *argvars, typval_T *rettv)
3515{
3516 char_u *p;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003517 int n = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003518
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003519 if (in_vim9script() && check_for_nonempty_string_arg(argvars, 0) == FAIL)
3520 return;
3521
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003522 p = tv_get_string(&argvars[0]);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003523 if (*p == '$') // environment variable
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003524 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003525 // first try "normal" environment variables (fast)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003526 if (mch_getenv(p + 1) != NULL)
3527 n = TRUE;
3528 else
3529 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003530 // try expanding things like $VIM and ${HOME}
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003531 p = expand_env_save(p);
3532 if (p != NULL && *p != '$')
3533 n = TRUE;
3534 vim_free(p);
3535 }
3536 }
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003537 else if (*p == '&' || *p == '+') // option
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003538 {
Bram Moolenaar9a78e6d2020-07-01 18:29:55 +02003539 n = (eval_option(&p, NULL, TRUE) == OK);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003540 if (*skipwhite(p) != NUL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003541 n = FALSE; // trailing garbage
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003542 }
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003543 else if (*p == '*') // internal or user defined function
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003544 {
Bram Moolenaarb54c3ff2016-07-31 14:11:58 +02003545 n = function_exists(p + 1, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003546 }
Bram Moolenaar15c47602020-03-26 22:16:48 +01003547 else if (*p == '?') // internal function only
3548 {
3549 n = has_internal_func_name(p + 1);
3550 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003551 else if (*p == ':')
3552 {
3553 n = cmd_exists(p + 1);
3554 }
3555 else if (*p == '#')
3556 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003557 if (p[1] == '#')
3558 n = autocmd_supported(p + 2);
3559 else
3560 n = au_exists(p + 1);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003561 }
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003562 else // internal variable
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003563 {
Bram Moolenaarc6f9f732018-02-11 19:06:26 +01003564 n = var_exists(p);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003565 }
3566
3567 rettv->vval.v_number = n;
3568}
3569
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003570/*
3571 * "expand()" function
3572 */
3573 static void
3574f_expand(typval_T *argvars, typval_T *rettv)
3575{
3576 char_u *s;
3577 int len;
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003578 char *errormsg;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003579 int options = WILD_SILENT|WILD_USE_NL|WILD_LIST_NOTFOUND;
3580 expand_T xpc;
3581 int error = FALSE;
3582 char_u *result;
Bram Moolenaar8f187fc2020-09-26 18:47:11 +02003583#ifdef BACKSLASH_IN_FILENAME
3584 char_u *p_csl_save = p_csl;
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02003585#endif
Bram Moolenaar8f187fc2020-09-26 18:47:11 +02003586
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02003587 if (in_vim9script()
3588 && (check_for_string_arg(argvars, 0) == FAIL
3589 || check_for_opt_bool_arg(argvars, 1) == FAIL
3590 || (argvars[1].v_type != VAR_UNKNOWN
3591 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
3592 return;
3593
3594#ifdef BACKSLASH_IN_FILENAME
Bram Moolenaar8f187fc2020-09-26 18:47:11 +02003595 // avoid using 'completeslash' here
3596 p_csl = empty_option;
3597#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003598
3599 rettv->v_type = VAR_STRING;
3600 if (argvars[1].v_type != VAR_UNKNOWN
3601 && argvars[2].v_type != VAR_UNKNOWN
Bram Moolenaar551d25e2020-09-02 21:37:56 +02003602 && tv_get_bool_chk(&argvars[2], &error)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003603 && !error)
Bram Moolenaar45cf6e92017-04-30 20:25:19 +02003604 rettv_list_set(rettv, NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003605
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003606 s = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003607 if (*s == '%' || *s == '#' || *s == '<')
3608 {
3609 ++emsg_off;
3610 result = eval_vars(s, s, &len, NULL, &errormsg, NULL);
3611 --emsg_off;
3612 if (rettv->v_type == VAR_LIST)
3613 {
3614 if (rettv_list_alloc(rettv) != FAIL && result != NULL)
3615 list_append_string(rettv->vval.v_list, result, -1);
Bram Moolenaar86173482019-10-01 17:02:16 +02003616 vim_free(result);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003617 }
3618 else
3619 rettv->vval.v_string = result;
3620 }
3621 else
3622 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003623 // When the optional second argument is non-zero, don't remove matches
3624 // for 'wildignore' and don't put matches for 'suffixes' at the end.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003625 if (argvars[1].v_type != VAR_UNKNOWN
Bram Moolenaar551d25e2020-09-02 21:37:56 +02003626 && tv_get_bool_chk(&argvars[1], &error))
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003627 options |= WILD_KEEP_ALL;
3628 if (!error)
3629 {
3630 ExpandInit(&xpc);
3631 xpc.xp_context = EXPAND_FILES;
3632 if (p_wic)
3633 options += WILD_ICASE;
3634 if (rettv->v_type == VAR_STRING)
3635 rettv->vval.v_string = ExpandOne(&xpc, s, NULL,
3636 options, WILD_ALL);
3637 else if (rettv_list_alloc(rettv) != FAIL)
3638 {
3639 int i;
3640
3641 ExpandOne(&xpc, s, NULL, options, WILD_ALL_KEEP);
3642 for (i = 0; i < xpc.xp_numfiles; i++)
3643 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
3644 ExpandCleanup(&xpc);
3645 }
3646 }
3647 else
3648 rettv->vval.v_string = NULL;
3649 }
Bram Moolenaar8f187fc2020-09-26 18:47:11 +02003650#ifdef BACKSLASH_IN_FILENAME
3651 p_csl = p_csl_save;
3652#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003653}
3654
3655/*
Bram Moolenaar80dad482019-06-09 17:22:31 +02003656 * "expandcmd()" function
3657 * Expand all the special characters in a command string.
3658 */
3659 static void
3660f_expandcmd(typval_T *argvars, typval_T *rettv)
3661{
3662 exarg_T eap;
3663 char_u *cmdstr;
3664 char *errormsg = NULL;
3665
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003666 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
3667 return;
3668
Bram Moolenaar80dad482019-06-09 17:22:31 +02003669 rettv->v_type = VAR_STRING;
3670 cmdstr = vim_strsave(tv_get_string(&argvars[0]));
3671
3672 memset(&eap, 0, sizeof(eap));
3673 eap.cmd = cmdstr;
3674 eap.arg = cmdstr;
Bram Moolenaar8071cb22019-07-12 17:58:01 +02003675 eap.argt |= EX_NOSPC;
Bram Moolenaar80dad482019-06-09 17:22:31 +02003676 eap.usefilter = FALSE;
3677 eap.nextcmd = NULL;
3678 eap.cmdidx = CMD_USER;
3679
3680 expand_filename(&eap, &cmdstr, &errormsg);
3681 if (errormsg != NULL && *errormsg != NUL)
3682 emsg(errormsg);
3683
3684 rettv->vval.v_string = cmdstr;
3685}
3686
3687/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003688 * "feedkeys()" function
3689 */
3690 static void
3691f_feedkeys(typval_T *argvars, typval_T *rettv UNUSED)
3692{
3693 int remap = TRUE;
3694 int insert = FALSE;
3695 char_u *keys, *flags;
3696 char_u nbuf[NUMBUFLEN];
3697 int typed = FALSE;
3698 int execute = FALSE;
3699 int dangerous = FALSE;
Bram Moolenaar5e66b422019-01-24 21:58:10 +01003700 int lowlevel = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003701 char_u *keys_esc;
3702
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003703 // This is not allowed in the sandbox. If the commands would still be
3704 // executed in the sandbox it would be OK, but it probably happens later,
3705 // when "sandbox" is no longer set.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003706 if (check_secure())
3707 return;
3708
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003709 if (in_vim9script()
3710 && (check_for_string_arg(argvars, 0) == FAIL
3711 || check_for_opt_string_arg(argvars, 1) == FAIL))
3712 return;
3713
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003714 keys = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003715
3716 if (argvars[1].v_type != VAR_UNKNOWN)
3717 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003718 flags = tv_get_string_buf(&argvars[1], nbuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003719 for ( ; *flags != NUL; ++flags)
3720 {
3721 switch (*flags)
3722 {
3723 case 'n': remap = FALSE; break;
3724 case 'm': remap = TRUE; break;
3725 case 't': typed = TRUE; break;
3726 case 'i': insert = TRUE; break;
3727 case 'x': execute = TRUE; break;
3728 case '!': dangerous = TRUE; break;
Bram Moolenaar5e66b422019-01-24 21:58:10 +01003729 case 'L': lowlevel = TRUE; break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003730 }
3731 }
3732 }
3733
3734 if (*keys != NUL || execute)
3735 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003736 // Need to escape K_SPECIAL and CSI before putting the string in the
3737 // typeahead buffer.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003738 keys_esc = vim_strsave_escape_csi(keys);
3739 if (keys_esc != NULL)
3740 {
Bram Moolenaar5e66b422019-01-24 21:58:10 +01003741 if (lowlevel)
3742 {
3743#ifdef USE_INPUT_BUF
Bram Moolenaar9645e2d2020-03-20 20:48:49 +01003744 int idx;
3745 int len = (int)STRLEN(keys);
3746
3747 for (idx = 0; idx < len; ++idx)
3748 {
3749 // if a CTRL-C was typed, set got_int, similar to what
3750 // happens in fill_input_buf()
3751 if (keys[idx] == 3 && ctrl_c_interrupts && typed)
3752 got_int = TRUE;
3753 add_to_input_buf(keys + idx, 1);
3754 }
Bram Moolenaar5e66b422019-01-24 21:58:10 +01003755#else
3756 emsg(_("E980: lowlevel input not supported"));
3757#endif
3758 }
3759 else
Bram Moolenaar8d4ce562019-01-30 22:01:40 +01003760 {
Bram Moolenaar5e66b422019-01-24 21:58:10 +01003761 ins_typebuf(keys_esc, (remap ? REMAP_YES : REMAP_NONE),
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003762 insert ? 0 : typebuf.tb_len, !typed, FALSE);
Bram Moolenaar8d4ce562019-01-30 22:01:40 +01003763 if (vgetc_busy
Bram Moolenaar5d7be4f2017-06-25 13:40:17 +02003764#ifdef FEAT_TIMERS
Bram Moolenaar8d4ce562019-01-30 22:01:40 +01003765 || timer_busy
Bram Moolenaar5d7be4f2017-06-25 13:40:17 +02003766#endif
Bram Moolenaardfc33a62020-04-29 22:30:13 +02003767 || input_busy)
Bram Moolenaar8d4ce562019-01-30 22:01:40 +01003768 typebuf_was_filled = TRUE;
3769 }
3770 vim_free(keys_esc);
3771
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003772 if (execute)
3773 {
3774 int save_msg_scroll = msg_scroll;
3775
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003776 // Avoid a 1 second delay when the keys start Insert mode.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003777 msg_scroll = FALSE;
3778
Bram Moolenaarb2ac14c2018-05-01 18:47:59 +02003779 if (!dangerous)
Bram Moolenaar4934ad02020-09-28 22:29:58 +02003780 {
Bram Moolenaarb2ac14c2018-05-01 18:47:59 +02003781 ++ex_normal_busy;
Bram Moolenaar4934ad02020-09-28 22:29:58 +02003782 ++in_feedkeys;
3783 }
Bram Moolenaar905dd902019-04-07 14:21:47 +02003784 exec_normal(TRUE, lowlevel, TRUE);
Bram Moolenaarb2ac14c2018-05-01 18:47:59 +02003785 if (!dangerous)
Bram Moolenaar189832b2020-09-23 12:29:11 +02003786 {
Bram Moolenaarb2ac14c2018-05-01 18:47:59 +02003787 --ex_normal_busy;
Bram Moolenaar4934ad02020-09-28 22:29:58 +02003788 --in_feedkeys;
Bram Moolenaar189832b2020-09-23 12:29:11 +02003789 }
Bram Moolenaarb2ac14c2018-05-01 18:47:59 +02003790
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003791 msg_scroll |= save_msg_scroll;
3792 }
3793 }
3794 }
3795}
3796
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003797/*
3798 * "fnameescape({string})" function
3799 */
3800 static void
3801f_fnameescape(typval_T *argvars, typval_T *rettv)
3802{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02003803 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
3804 return;
3805
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003806 rettv->vval.v_string = vim_strsave_fnameescape(
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003807 tv_get_string(&argvars[0]), FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003808 rettv->v_type = VAR_STRING;
3809}
3810
3811/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003812 * "foreground()" function
3813 */
3814 static void
3815f_foreground(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
3816{
3817#ifdef FEAT_GUI
3818 if (gui.in_use)
Bram Moolenaarafde13b2019-04-28 19:46:49 +02003819 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003820 gui_mch_set_foreground();
Bram Moolenaarafde13b2019-04-28 19:46:49 +02003821 return;
3822 }
3823#endif
3824#if defined(MSWIN) && (!defined(FEAT_GUI) || defined(VIMDLL))
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003825 win32_set_foreground();
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003826#endif
3827}
3828
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003829 static void
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003830common_function(typval_T *argvars, typval_T *rettv, int is_funcref)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003831{
3832 char_u *s;
3833 char_u *name;
3834 int use_string = FALSE;
3835 partial_T *arg_pt = NULL;
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003836 char_u *trans_name = NULL;
Bram Moolenaar4c17ad92020-04-27 22:47:51 +02003837 int is_global = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003838
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02003839 if (in_vim9script()
3840 && (check_for_opt_list_arg(argvars, 1) == FAIL
3841 || (argvars[1].v_type != VAR_UNKNOWN
3842 && check_for_opt_dict_arg(argvars, 2) == FAIL)))
3843 return;
3844
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003845 if (argvars[0].v_type == VAR_FUNC)
3846 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003847 // function(MyFunc, [arg], dict)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003848 s = argvars[0].vval.v_string;
3849 }
3850 else if (argvars[0].v_type == VAR_PARTIAL
3851 && argvars[0].vval.v_partial != NULL)
3852 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003853 // function(dict.MyFunc, [arg])
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003854 arg_pt = argvars[0].vval.v_partial;
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003855 s = partial_name(arg_pt);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003856 }
3857 else
3858 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003859 // function('MyFunc', [arg], dict)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01003860 s = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003861 use_string = TRUE;
3862 }
3863
Bram Moolenaar843b8842016-08-21 14:36:15 +02003864 if ((use_string && vim_strchr(s, AUTOLOAD_CHAR) == NULL) || is_funcref)
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003865 {
3866 name = s;
Bram Moolenaar4c17ad92020-04-27 22:47:51 +02003867 trans_name = trans_function_name(&name, &is_global, FALSE,
Bram Moolenaar32b3f822021-01-06 21:59:39 +01003868 TFN_INT | TFN_QUIET | TFN_NO_AUTOLOAD | TFN_NO_DEREF,
3869 NULL, NULL, NULL);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003870 if (*name != NUL)
3871 s = NULL;
3872 }
3873
Bram Moolenaar843b8842016-08-21 14:36:15 +02003874 if (s == NULL || *s == NUL || (use_string && VIM_ISDIGIT(*s))
3875 || (is_funcref && trans_name == NULL))
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003876 semsg(_(e_invarg2), use_string ? tv_get_string(&argvars[0]) : s);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003877 // Don't check an autoload name for existence here.
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003878 else if (trans_name != NULL && (is_funcref
Bram Moolenaar4c17ad92020-04-27 22:47:51 +02003879 ? find_func(trans_name, is_global, NULL) == NULL
3880 : !translated_function_exists(trans_name, is_global)))
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003881 semsg(_("E700: Unknown function: %s"), s);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003882 else
3883 {
3884 int dict_idx = 0;
3885 int arg_idx = 0;
3886 list_T *list = NULL;
3887
3888 if (STRNCMP(s, "s:", 2) == 0 || STRNCMP(s, "<SID>", 5) == 0)
3889 {
3890 char sid_buf[25];
3891 int off = *s == 's' ? 2 : 5;
3892
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003893 // Expand s: and <SID> into <SNR>nr_, so that the function can
3894 // also be called from another script. Using trans_function_name()
3895 // would also work, but some plugins depend on the name being
3896 // printable text.
Bram Moolenaarf29c1c62018-09-10 21:05:02 +02003897 sprintf(sid_buf, "<SNR>%ld_", (long)current_sctx.sc_sid);
Bram Moolenaar51e14382019-05-25 20:21:28 +02003898 name = alloc(STRLEN(sid_buf) + STRLEN(s + off) + 1);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003899 if (name != NULL)
3900 {
3901 STRCPY(name, sid_buf);
3902 STRCAT(name, s + off);
3903 }
3904 }
3905 else
3906 name = vim_strsave(s);
3907
3908 if (argvars[1].v_type != VAR_UNKNOWN)
3909 {
3910 if (argvars[2].v_type != VAR_UNKNOWN)
3911 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003912 // function(name, [args], dict)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003913 arg_idx = 1;
3914 dict_idx = 2;
3915 }
3916 else if (argvars[1].v_type == VAR_DICT)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003917 // function(name, dict)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003918 dict_idx = 1;
3919 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003920 // function(name, [args])
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003921 arg_idx = 1;
3922 if (dict_idx > 0)
3923 {
3924 if (argvars[dict_idx].v_type != VAR_DICT)
3925 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003926 emsg(_("E922: expected a dict"));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003927 vim_free(name);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003928 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003929 }
3930 if (argvars[dict_idx].vval.v_dict == NULL)
3931 dict_idx = 0;
3932 }
3933 if (arg_idx > 0)
3934 {
3935 if (argvars[arg_idx].v_type != VAR_LIST)
3936 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01003937 emsg(_("E923: Second argument of function() must be a list or a dict"));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003938 vim_free(name);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003939 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003940 }
3941 list = argvars[arg_idx].vval.v_list;
3942 if (list == NULL || list->lv_len == 0)
3943 arg_idx = 0;
Bram Moolenaar4c054e92019-11-10 00:13:50 +01003944 else if (list->lv_len > MAX_FUNC_ARGS)
3945 {
Bram Moolenaar2118a302019-11-22 19:29:45 +01003946 emsg_funcname((char *)e_toomanyarg, s);
Bram Moolenaar4c054e92019-11-10 00:13:50 +01003947 vim_free(name);
3948 goto theend;
3949 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003950 }
3951 }
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003952 if (dict_idx > 0 || arg_idx > 0 || arg_pt != NULL || is_funcref)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003953 {
Bram Moolenaarc799fe22019-05-28 23:08:19 +02003954 partial_T *pt = ALLOC_CLEAR_ONE(partial_T);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003955
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003956 // result is a VAR_PARTIAL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003957 if (pt == NULL)
3958 vim_free(name);
3959 else
3960 {
3961 if (arg_idx > 0 || (arg_pt != NULL && arg_pt->pt_argc > 0))
3962 {
3963 listitem_T *li;
3964 int i = 0;
3965 int arg_len = 0;
3966 int lv_len = 0;
3967
3968 if (arg_pt != NULL)
3969 arg_len = arg_pt->pt_argc;
3970 if (list != NULL)
3971 lv_len = list->lv_len;
3972 pt->pt_argc = arg_len + lv_len;
Bram Moolenaarc799fe22019-05-28 23:08:19 +02003973 pt->pt_argv = ALLOC_MULT(typval_T, pt->pt_argc);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003974 if (pt->pt_argv == NULL)
3975 {
3976 vim_free(pt);
3977 vim_free(name);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003978 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003979 }
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003980 for (i = 0; i < arg_len; i++)
3981 copy_tv(&arg_pt->pt_argv[i], &pt->pt_argv[i]);
3982 if (lv_len > 0)
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003983 {
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02003984 CHECK_LIST_MATERIALIZE(list);
Bram Moolenaaraeea7212020-04-02 18:50:46 +02003985 FOR_ALL_LIST_ITEMS(list, li)
Bram Moolenaar437bafe2016-08-01 15:40:54 +02003986 copy_tv(&li->li_tv, &pt->pt_argv[i++]);
Bram Moolenaar50985eb2020-01-27 22:09:39 +01003987 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003988 }
3989
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003990 // For "function(dict.func, [], dict)" and "func" is a partial
3991 // use "dict". That is backwards compatible.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003992 if (dict_idx > 0)
3993 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01003994 // The dict is bound explicitly, pt_auto is FALSE.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02003995 pt->pt_dict = argvars[dict_idx].vval.v_dict;
3996 ++pt->pt_dict->dv_refcount;
3997 }
3998 else if (arg_pt != NULL)
3999 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004000 // If the dict was bound automatically the result is also
4001 // bound automatically.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004002 pt->pt_dict = arg_pt->pt_dict;
4003 pt->pt_auto = arg_pt->pt_auto;
4004 if (pt->pt_dict != NULL)
4005 ++pt->pt_dict->dv_refcount;
4006 }
4007
4008 pt->pt_refcount = 1;
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004009 if (arg_pt != NULL && arg_pt->pt_func != NULL)
4010 {
4011 pt->pt_func = arg_pt->pt_func;
4012 func_ptr_ref(pt->pt_func);
4013 vim_free(name);
4014 }
4015 else if (is_funcref)
4016 {
Bram Moolenaar4c17ad92020-04-27 22:47:51 +02004017 pt->pt_func = find_func(trans_name, is_global, NULL);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004018 func_ptr_ref(pt->pt_func);
4019 vim_free(name);
4020 }
4021 else
4022 {
4023 pt->pt_name = name;
4024 func_ref(name);
4025 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004026 }
4027 rettv->v_type = VAR_PARTIAL;
4028 rettv->vval.v_partial = pt;
4029 }
4030 else
4031 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004032 // result is a VAR_FUNC
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004033 rettv->v_type = VAR_FUNC;
4034 rettv->vval.v_string = name;
4035 func_ref(name);
4036 }
4037 }
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004038theend:
4039 vim_free(trans_name);
4040}
4041
4042/*
4043 * "funcref()" function
4044 */
4045 static void
4046f_funcref(typval_T *argvars, typval_T *rettv)
4047{
4048 common_function(argvars, rettv, TRUE);
4049}
4050
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01004051 static type_T *
Bram Moolenaardfc33a62020-04-29 22:30:13 +02004052ret_f_function(int argcount, type_T **argtypes)
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01004053{
4054 if (argcount == 1 && argtypes[0]->tt_type == VAR_STRING)
4055 return &t_func_any;
Bram Moolenaarefc5db52021-07-07 21:21:30 +02004056 // Need to check the type at runtime, the function may be defined later.
Bram Moolenaar5e654232020-09-16 15:22:00 +02004057 return &t_func_unknown;
Bram Moolenaarfbdd08e2020-03-01 14:04:46 +01004058}
4059
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004060/*
4061 * "function()" function
4062 */
4063 static void
4064f_function(typval_T *argvars, typval_T *rettv)
4065{
4066 common_function(argvars, rettv, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004067}
4068
4069/*
4070 * "garbagecollect()" function
4071 */
4072 static void
4073f_garbagecollect(typval_T *argvars, typval_T *rettv UNUSED)
4074{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004075 if (in_vim9script() && check_for_opt_bool_arg(argvars, 0) == FAIL)
4076 return;
4077
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004078 // This is postponed until we are back at the toplevel, because we may be
4079 // using Lists and Dicts internally. E.g.: ":echo [garbagecollect()]".
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004080 want_garbage_collect = TRUE;
4081
Bram Moolenaar2df47312020-09-05 17:30:44 +02004082 if (argvars[0].v_type != VAR_UNKNOWN && tv_get_bool(&argvars[0]) == 1)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004083 garbage_collect_at_exit = TRUE;
4084}
4085
4086/*
4087 * "get()" function
4088 */
4089 static void
4090f_get(typval_T *argvars, typval_T *rettv)
4091{
4092 listitem_T *li;
4093 list_T *l;
4094 dictitem_T *di;
4095 dict_T *d;
4096 typval_T *tv = NULL;
Bram Moolenaarf91aac52019-07-28 13:21:01 +02004097 int what_is_dict = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004098
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01004099 if (argvars[0].v_type == VAR_BLOB)
4100 {
4101 int error = FALSE;
4102 int idx = tv_get_number_chk(&argvars[1], &error);
4103
4104 if (!error)
4105 {
4106 rettv->v_type = VAR_NUMBER;
Bram Moolenaar2ea773b2019-01-15 22:16:42 +01004107 if (idx < 0)
4108 idx = blob_len(argvars[0].vval.v_blob) + idx;
4109 if (idx < 0 || idx >= blob_len(argvars[0].vval.v_blob))
4110 rettv->vval.v_number = -1;
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01004111 else
Bram Moolenaar2ea773b2019-01-15 22:16:42 +01004112 {
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01004113 rettv->vval.v_number = blob_get(argvars[0].vval.v_blob, idx);
Bram Moolenaar2ea773b2019-01-15 22:16:42 +01004114 tv = rettv;
4115 }
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01004116 }
4117 }
4118 else if (argvars[0].v_type == VAR_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004119 {
4120 if ((l = argvars[0].vval.v_list) != NULL)
4121 {
4122 int error = FALSE;
4123
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004124 li = list_find(l, (long)tv_get_number_chk(&argvars[1], &error));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004125 if (!error && li != NULL)
4126 tv = &li->li_tv;
4127 }
4128 }
4129 else if (argvars[0].v_type == VAR_DICT)
4130 {
4131 if ((d = argvars[0].vval.v_dict) != NULL)
4132 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004133 di = dict_find(d, tv_get_string(&argvars[1]), -1);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004134 if (di != NULL)
4135 tv = &di->di_tv;
4136 }
4137 }
4138 else if (argvars[0].v_type == VAR_PARTIAL || argvars[0].v_type == VAR_FUNC)
4139 {
4140 partial_T *pt;
4141 partial_T fref_pt;
4142
4143 if (argvars[0].v_type == VAR_PARTIAL)
4144 pt = argvars[0].vval.v_partial;
4145 else
4146 {
Bram Moolenaara80faa82020-04-12 19:37:17 +02004147 CLEAR_FIELD(fref_pt);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004148 fref_pt.pt_name = argvars[0].vval.v_string;
4149 pt = &fref_pt;
4150 }
4151
4152 if (pt != NULL)
4153 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004154 char_u *what = tv_get_string(&argvars[1]);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004155 char_u *n;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004156
4157 if (STRCMP(what, "func") == 0 || STRCMP(what, "name") == 0)
4158 {
4159 rettv->v_type = (*what == 'f' ? VAR_FUNC : VAR_STRING);
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004160 n = partial_name(pt);
4161 if (n == NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004162 rettv->vval.v_string = NULL;
4163 else
Bram Moolenaar437bafe2016-08-01 15:40:54 +02004164 {
4165 rettv->vval.v_string = vim_strsave(n);
4166 if (rettv->v_type == VAR_FUNC)
4167 func_ref(rettv->vval.v_string);
4168 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004169 }
4170 else if (STRCMP(what, "dict") == 0)
Bram Moolenaarf91aac52019-07-28 13:21:01 +02004171 {
4172 what_is_dict = TRUE;
4173 if (pt->pt_dict != NULL)
4174 rettv_dict_set(rettv, pt->pt_dict);
4175 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004176 else if (STRCMP(what, "args") == 0)
4177 {
4178 rettv->v_type = VAR_LIST;
4179 if (rettv_list_alloc(rettv) == OK)
4180 {
4181 int i;
4182
4183 for (i = 0; i < pt->pt_argc; ++i)
4184 list_append_tv(rettv->vval.v_list, &pt->pt_argv[i]);
4185 }
4186 }
4187 else
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01004188 semsg(_(e_invarg2), what);
Bram Moolenaarf91aac52019-07-28 13:21:01 +02004189
4190 // When {what} == "dict" and pt->pt_dict == NULL, evaluate the
4191 // third argument
4192 if (!what_is_dict)
4193 return;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004194 }
4195 }
4196 else
Bram Moolenaar0d17f0d2019-01-22 22:20:38 +01004197 semsg(_(e_listdictblobarg), "get()");
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004198
4199 if (tv == NULL)
4200 {
4201 if (argvars[2].v_type != VAR_UNKNOWN)
4202 copy_tv(&argvars[2], rettv);
4203 }
4204 else
4205 copy_tv(tv, rettv);
4206}
4207
Bram Moolenaarb5ae48e2016-08-12 22:23:25 +02004208/*
Bram Moolenaar07ad8162018-02-13 13:59:59 +01004209 * "getchangelist()" function
4210 */
4211 static void
4212f_getchangelist(typval_T *argvars, typval_T *rettv)
4213{
4214#ifdef FEAT_JUMPLIST
4215 buf_T *buf;
4216 int i;
4217 list_T *l;
4218 dict_T *d;
4219#endif
4220
4221 if (rettv_list_alloc(rettv) != OK)
4222 return;
4223
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004224 if (in_vim9script() && check_for_opt_buffer_arg(argvars, 0) == FAIL)
4225 return;
4226
Bram Moolenaar07ad8162018-02-13 13:59:59 +01004227#ifdef FEAT_JUMPLIST
Bram Moolenaar4c313b12019-08-24 22:58:31 +02004228 if (argvars[0].v_type == VAR_UNKNOWN)
4229 buf = curbuf;
4230 else
Bram Moolenaara5d38412020-09-02 21:02:35 +02004231 buf = tv_get_buf_from_arg(&argvars[0]);
Bram Moolenaar07ad8162018-02-13 13:59:59 +01004232 if (buf == NULL)
4233 return;
4234
4235 l = list_alloc();
4236 if (l == NULL)
4237 return;
4238
4239 if (list_append_list(rettv->vval.v_list, l) == FAIL)
4240 return;
4241 /*
4242 * The current window change list index tracks only the position in the
4243 * current buffer change list. For other buffers, use the change list
4244 * length as the current index.
4245 */
4246 list_append_number(rettv->vval.v_list,
4247 (varnumber_T)((buf == curwin->w_buffer)
4248 ? curwin->w_changelistidx : buf->b_changelistlen));
4249
4250 for (i = 0; i < buf->b_changelistlen; ++i)
4251 {
4252 if (buf->b_changelist[i].lnum == 0)
4253 continue;
4254 if ((d = dict_alloc()) == NULL)
4255 return;
4256 if (list_append_dict(l, d) == FAIL)
4257 return;
Bram Moolenaare0be1672018-07-08 16:50:37 +02004258 dict_add_number(d, "lnum", (long)buf->b_changelist[i].lnum);
4259 dict_add_number(d, "col", (long)buf->b_changelist[i].col);
Bram Moolenaare0be1672018-07-08 16:50:37 +02004260 dict_add_number(d, "coladd", (long)buf->b_changelist[i].coladd);
Bram Moolenaar07ad8162018-02-13 13:59:59 +01004261 }
4262#endif
4263}
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004264
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004265 static void
4266getpos_both(
4267 typval_T *argvars,
4268 typval_T *rettv,
4269 int getcurpos,
4270 int charcol)
4271{
4272 pos_T *fp = NULL;
4273 pos_T pos;
4274 win_T *wp = curwin;
4275 list_T *l;
4276 int fnum = -1;
4277
4278 if (rettv_list_alloc(rettv) == OK)
4279 {
4280 l = rettv->vval.v_list;
4281 if (getcurpos)
4282 {
4283 if (argvars[0].v_type != VAR_UNKNOWN)
4284 {
4285 wp = find_win_by_nr_or_id(&argvars[0]);
4286 if (wp != NULL)
4287 fp = &wp->w_cursor;
4288 }
4289 else
4290 fp = &curwin->w_cursor;
4291 if (fp != NULL && charcol)
4292 {
4293 pos = *fp;
Bram Moolenaar91458462021-01-13 20:08:38 +01004294 pos.col =
4295 buf_byteidx_to_charidx(wp->w_buffer, pos.lnum, pos.col);
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004296 fp = &pos;
4297 }
4298 }
4299 else
4300 fp = var2fpos(&argvars[0], TRUE, &fnum, charcol);
4301 if (fnum != -1)
4302 list_append_number(l, (varnumber_T)fnum);
4303 else
4304 list_append_number(l, (varnumber_T)0);
4305 list_append_number(l, (fp != NULL) ? (varnumber_T)fp->lnum
4306 : (varnumber_T)0);
4307 list_append_number(l, (fp != NULL)
4308 ? (varnumber_T)(fp->col == MAXCOL ? MAXCOL : fp->col + 1)
4309 : (varnumber_T)0);
4310 list_append_number(l, (fp != NULL) ? (varnumber_T)fp->coladd :
4311 (varnumber_T)0);
4312 if (getcurpos)
4313 {
4314 int save_set_curswant = curwin->w_set_curswant;
4315 colnr_T save_curswant = curwin->w_curswant;
4316 colnr_T save_virtcol = curwin->w_virtcol;
4317
4318 if (wp == curwin)
4319 update_curswant();
4320 list_append_number(l, wp == NULL ? 0 : wp->w_curswant == MAXCOL
4321 ? (varnumber_T)MAXCOL : (varnumber_T)wp->w_curswant + 1);
4322
4323 // Do not change "curswant", as it is unexpected that a get
4324 // function has a side effect.
4325 if (wp == curwin && save_set_curswant)
4326 {
4327 curwin->w_set_curswant = save_set_curswant;
4328 curwin->w_curswant = save_curswant;
4329 curwin->w_virtcol = save_virtcol;
4330 curwin->w_valid &= ~VALID_VIRTCOL;
4331 }
4332 }
4333 }
4334 else
4335 rettv->vval.v_number = FALSE;
4336}
4337
4338/*
4339 * "getcharpos()" function
4340 */
4341 static void
4342f_getcharpos(typval_T *argvars UNUSED, typval_T *rettv)
4343{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004344 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
4345 return;
4346
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004347 getpos_both(argvars, rettv, FALSE, TRUE);
4348}
4349
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004350/*
4351 * "getcharsearch()" function
4352 */
4353 static void
4354f_getcharsearch(typval_T *argvars UNUSED, typval_T *rettv)
4355{
4356 if (rettv_dict_alloc(rettv) != FAIL)
4357 {
4358 dict_T *dict = rettv->vval.v_dict;
4359
Bram Moolenaare0be1672018-07-08 16:50:37 +02004360 dict_add_string(dict, "char", last_csearch());
4361 dict_add_number(dict, "forward", last_csearch_forward());
4362 dict_add_number(dict, "until", last_csearch_until());
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004363 }
4364}
4365
4366/*
Bram Moolenaar691ddee2019-05-09 14:52:41 +02004367 * "getenv()" function
4368 */
4369 static void
4370f_getenv(typval_T *argvars, typval_T *rettv)
4371{
4372 int mustfree = FALSE;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004373 char_u *p;
Bram Moolenaar691ddee2019-05-09 14:52:41 +02004374
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004375 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
4376 return;
4377
4378 p = vim_getenv(tv_get_string(&argvars[0]), &mustfree);
Bram Moolenaar691ddee2019-05-09 14:52:41 +02004379 if (p == NULL)
4380 {
4381 rettv->v_type = VAR_SPECIAL;
4382 rettv->vval.v_number = VVAL_NULL;
4383 return;
4384 }
4385 if (!mustfree)
4386 p = vim_strsave(p);
4387 rettv->vval.v_string = p;
4388 rettv->v_type = VAR_STRING;
4389}
4390
4391/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004392 * "getfontname()" function
4393 */
4394 static void
4395f_getfontname(typval_T *argvars UNUSED, typval_T *rettv)
4396{
4397 rettv->v_type = VAR_STRING;
4398 rettv->vval.v_string = NULL;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004399
4400 if (in_vim9script() && check_for_opt_string_arg(argvars, 0) == FAIL)
4401 return;
4402
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004403#ifdef FEAT_GUI
4404 if (gui.in_use)
4405 {
4406 GuiFont font;
4407 char_u *name = NULL;
4408
4409 if (argvars[0].v_type == VAR_UNKNOWN)
4410 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004411 // Get the "Normal" font. Either the name saved by
4412 // hl_set_font_name() or from the font ID.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004413 font = gui.norm_font;
4414 name = hl_get_font_name();
4415 }
4416 else
4417 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004418 name = tv_get_string(&argvars[0]);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004419 if (STRCMP(name, "*") == 0) // don't use font dialog
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004420 return;
4421 font = gui_mch_get_font(name, FALSE);
4422 if (font == NOFONT)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004423 return; // Invalid font name, return empty string.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004424 }
4425 rettv->vval.v_string = gui_mch_get_fontname(font, name);
4426 if (argvars[0].v_type != VAR_UNKNOWN)
4427 gui_mch_free_font(font);
4428 }
4429#endif
4430}
4431
4432/*
Bram Moolenaar4f505882018-02-10 21:06:32 +01004433 * "getjumplist()" function
4434 */
4435 static void
4436f_getjumplist(typval_T *argvars, typval_T *rettv)
4437{
4438#ifdef FEAT_JUMPLIST
4439 win_T *wp;
4440 int i;
4441 list_T *l;
4442 dict_T *d;
4443#endif
4444
4445 if (rettv_list_alloc(rettv) != OK)
4446 return;
4447
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004448 if (in_vim9script()
4449 && (check_for_opt_number_arg(argvars, 0) == FAIL
4450 || (argvars[0].v_type != VAR_UNKNOWN
4451 && check_for_opt_number_arg(argvars, 1) == FAIL)))
4452 return;
4453
Bram Moolenaar4f505882018-02-10 21:06:32 +01004454#ifdef FEAT_JUMPLIST
Bram Moolenaar00aa0692019-04-27 20:37:57 +02004455 wp = find_tabwin(&argvars[0], &argvars[1], NULL);
Bram Moolenaar4f505882018-02-10 21:06:32 +01004456 if (wp == NULL)
4457 return;
4458
Bram Moolenaar57ee2b62019-02-12 22:15:06 +01004459 cleanup_jumplist(wp, TRUE);
4460
Bram Moolenaar4f505882018-02-10 21:06:32 +01004461 l = list_alloc();
4462 if (l == NULL)
4463 return;
4464
4465 if (list_append_list(rettv->vval.v_list, l) == FAIL)
4466 return;
4467 list_append_number(rettv->vval.v_list, (varnumber_T)wp->w_jumplistidx);
4468
4469 for (i = 0; i < wp->w_jumplistlen; ++i)
4470 {
Bram Moolenaara7e18d22018-02-11 14:29:49 +01004471 if (wp->w_jumplist[i].fmark.mark.lnum == 0)
4472 continue;
Bram Moolenaar4f505882018-02-10 21:06:32 +01004473 if ((d = dict_alloc()) == NULL)
4474 return;
4475 if (list_append_dict(l, d) == FAIL)
4476 return;
Bram Moolenaare0be1672018-07-08 16:50:37 +02004477 dict_add_number(d, "lnum", (long)wp->w_jumplist[i].fmark.mark.lnum);
4478 dict_add_number(d, "col", (long)wp->w_jumplist[i].fmark.mark.col);
Bram Moolenaare0be1672018-07-08 16:50:37 +02004479 dict_add_number(d, "coladd", (long)wp->w_jumplist[i].fmark.mark.coladd);
Bram Moolenaare0be1672018-07-08 16:50:37 +02004480 dict_add_number(d, "bufnr", (long)wp->w_jumplist[i].fmark.fnum);
Bram Moolenaara7e18d22018-02-11 14:29:49 +01004481 if (wp->w_jumplist[i].fname != NULL)
Bram Moolenaare0be1672018-07-08 16:50:37 +02004482 dict_add_string(d, "filename", wp->w_jumplist[i].fname);
Bram Moolenaar4f505882018-02-10 21:06:32 +01004483 }
4484#endif
4485}
4486
4487/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004488 * "getpid()" function
4489 */
4490 static void
4491f_getpid(typval_T *argvars UNUSED, typval_T *rettv)
4492{
4493 rettv->vval.v_number = mch_get_pid();
4494}
4495
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004496/*
4497 * "getcurpos()" function
4498 */
4499 static void
4500f_getcurpos(typval_T *argvars, typval_T *rettv)
4501{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004502 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
4503 return;
4504
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004505 getpos_both(argvars, rettv, TRUE, FALSE);
4506}
4507
4508 static void
4509f_getcursorcharpos(typval_T *argvars, typval_T *rettv)
4510{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004511 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
4512 return;
4513
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004514 getpos_both(argvars, rettv, TRUE, TRUE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004515}
4516
4517/*
4518 * "getpos(string)" function
4519 */
4520 static void
4521f_getpos(typval_T *argvars, typval_T *rettv)
4522{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004523 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
4524 return;
4525
Bram Moolenaar6f02b002021-01-10 20:22:54 +01004526 getpos_both(argvars, rettv, FALSE, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004527}
4528
4529/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004530 * "getreg()" function
4531 */
4532 static void
4533f_getreg(typval_T *argvars, typval_T *rettv)
4534{
4535 char_u *strregname;
4536 int regname;
4537 int arg2 = FALSE;
4538 int return_list = FALSE;
4539 int error = FALSE;
4540
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02004541 if (in_vim9script()
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004542 && (check_for_opt_string_arg(argvars, 0) == FAIL
4543 || (argvars[0].v_type != VAR_UNKNOWN
4544 && (check_for_opt_bool_arg(argvars, 1) == FAIL
4545 || (argvars[1].v_type != VAR_UNKNOWN
4546 && check_for_opt_bool_arg(argvars, 2) == FAIL)))))
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02004547 return;
4548
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004549 if (argvars[0].v_type != VAR_UNKNOWN)
4550 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004551 strregname = tv_get_string_chk(&argvars[0]);
Bram Moolenaar418a29f2021-02-10 22:23:41 +01004552 if (strregname == NULL)
4553 error = TRUE;
4554 else if (in_vim9script() && STRLEN(strregname) > 1)
4555 {
4556 semsg(_(e_register_name_must_be_one_char_str), strregname);
4557 error = TRUE;
4558 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004559 if (argvars[1].v_type != VAR_UNKNOWN)
4560 {
Bram Moolenaar67ff97d2020-09-02 21:45:54 +02004561 arg2 = (int)tv_get_bool_chk(&argvars[1], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004562 if (!error && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar67ff97d2020-09-02 21:45:54 +02004563 return_list = (int)tv_get_bool_chk(&argvars[2], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004564 }
4565 }
4566 else
4567 strregname = get_vim_var_str(VV_REG);
4568
4569 if (error)
4570 return;
4571
4572 regname = (strregname == NULL ? '"' : *strregname);
4573 if (regname == 0)
4574 regname = '"';
4575
4576 if (return_list)
4577 {
4578 rettv->v_type = VAR_LIST;
4579 rettv->vval.v_list = (list_T *)get_reg_contents(regname,
4580 (arg2 ? GREG_EXPR_SRC : 0) | GREG_LIST);
4581 if (rettv->vval.v_list == NULL)
4582 (void)rettv_list_alloc(rettv);
4583 else
4584 ++rettv->vval.v_list->lv_refcount;
4585 }
4586 else
4587 {
4588 rettv->v_type = VAR_STRING;
4589 rettv->vval.v_string = get_reg_contents(regname,
4590 arg2 ? GREG_EXPR_SRC : 0);
4591 }
4592}
4593
4594/*
4595 * "getregtype()" function
4596 */
4597 static void
4598f_getregtype(typval_T *argvars, typval_T *rettv)
4599{
4600 char_u *strregname;
4601 int regname;
4602 char_u buf[NUMBUFLEN + 2];
4603 long reglen = 0;
4604
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004605 if (in_vim9script() && check_for_opt_string_arg(argvars, 0) == FAIL)
4606 return;
4607
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004608 if (argvars[0].v_type != VAR_UNKNOWN)
4609 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01004610 strregname = tv_get_string_chk(&argvars[0]);
Bram Moolenaar418a29f2021-02-10 22:23:41 +01004611 if (strregname != NULL && in_vim9script() && STRLEN(strregname) > 1)
4612 {
4613 semsg(_(e_register_name_must_be_one_char_str), strregname);
4614 strregname = NULL;
4615 }
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004616 if (strregname == NULL) // type error; errmsg already given
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004617 {
4618 rettv->v_type = VAR_STRING;
4619 rettv->vval.v_string = NULL;
4620 return;
4621 }
4622 }
4623 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004624 // Default to v:register
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004625 strregname = get_vim_var_str(VV_REG);
4626
4627 regname = (strregname == NULL ? '"' : *strregname);
4628 if (regname == 0)
4629 regname = '"';
4630
4631 buf[0] = NUL;
4632 buf[1] = NUL;
4633 switch (get_reg_type(regname, &reglen))
4634 {
4635 case MLINE: buf[0] = 'V'; break;
4636 case MCHAR: buf[0] = 'v'; break;
4637 case MBLOCK:
4638 buf[0] = Ctrl_V;
4639 sprintf((char *)buf + 1, "%ld", reglen + 1);
4640 break;
4641 }
4642 rettv->v_type = VAR_STRING;
4643 rettv->vval.v_string = vim_strsave(buf);
4644}
4645
Bram Moolenaarb5ae48e2016-08-12 22:23:25 +02004646/*
Bram Moolenaarf49cc602018-11-11 15:21:05 +01004647 * "gettagstack()" function
4648 */
4649 static void
4650f_gettagstack(typval_T *argvars, typval_T *rettv)
4651{
4652 win_T *wp = curwin; // default is current window
4653
4654 if (rettv_dict_alloc(rettv) != OK)
4655 return;
4656
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004657 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
4658 return;
4659
Bram Moolenaarf49cc602018-11-11 15:21:05 +01004660 if (argvars[0].v_type != VAR_UNKNOWN)
4661 {
4662 wp = find_win_by_nr_or_id(&argvars[0]);
4663 if (wp == NULL)
4664 return;
4665 }
4666
4667 get_tagstack(wp, rettv->vval.v_dict);
4668}
4669
Bram Moolenaar0b39c3f2020-08-30 15:52:10 +02004670/*
4671 * "gettext()" function
4672 */
4673 static void
4674f_gettext(typval_T *argvars, typval_T *rettv)
4675{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02004676 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
4677 return;
4678
Bram Moolenaar0b39c3f2020-08-30 15:52:10 +02004679 if (argvars[0].v_type != VAR_STRING
4680 || argvars[0].vval.v_string == NULL
4681 || *argvars[0].vval.v_string == NUL)
4682 {
4683 semsg(_(e_invarg2), tv_get_string(&argvars[0]));
4684 }
4685 else
4686 {
4687 rettv->v_type = VAR_STRING;
4688 rettv->vval.v_string = vim_strsave(
4689 (char_u *)_(argvars[0].vval.v_string));
4690 }
4691}
4692
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01004693// for VIM_VERSION_ defines
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004694#include "version.h"
4695
4696/*
4697 * "has()" function
4698 */
Bram Moolenaara259d8d2020-01-31 20:10:50 +01004699 void
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004700f_has(typval_T *argvars, typval_T *rettv)
4701{
4702 int i;
4703 char_u *name;
Bram Moolenaar79296512020-03-22 16:17:14 +01004704 int x = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004705 int n = FALSE;
Bram Moolenaar79296512020-03-22 16:17:14 +01004706 typedef struct {
4707 char *name;
4708 short present;
4709 } has_item_T;
4710 static has_item_T has_list[] =
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004711 {
Bram Moolenaar79296512020-03-22 16:17:14 +01004712 {"amiga",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004713#ifdef AMIGA
Bram Moolenaar79296512020-03-22 16:17:14 +01004714 1
Bram Moolenaar39536dd2019-01-29 22:58:21 +01004715#else
Bram Moolenaar79296512020-03-22 16:17:14 +01004716 0
Bram Moolenaar39536dd2019-01-29 22:58:21 +01004717#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004718 },
4719 {"arp",
4720#if defined(AMIGA) && defined(FEAT_ARP)
4721 1
4722#else
4723 0
4724#endif
4725 },
Bram Moolenaar79296512020-03-22 16:17:14 +01004726 {"haiku",
4727#ifdef __HAIKU__
4728 1
4729#else
4730 0
4731#endif
4732 },
4733 {"bsd",
4734#if defined(BSD) && !defined(MACOS_X)
4735 1
4736#else
4737 0
4738#endif
4739 },
4740 {"hpux",
4741#ifdef hpux
4742 1
4743#else
4744 0
4745#endif
4746 },
4747 {"linux",
4748#ifdef __linux__
4749 1
4750#else
4751 0
4752#endif
4753 },
4754 {"mac", // Mac OS X (and, once, Mac OS Classic)
4755#ifdef MACOS_X
4756 1
4757#else
4758 0
4759#endif
4760 },
4761 {"osx", // Mac OS X
4762#ifdef MACOS_X
4763 1
4764#else
4765 0
4766#endif
4767 },
4768 {"macunix", // Mac OS X, with the darwin feature
4769#if defined(MACOS_X) && defined(MACOS_X_DARWIN)
4770 1
4771#else
4772 0
4773#endif
4774 },
4775 {"osxdarwin", // synonym for macunix
4776#if defined(MACOS_X) && defined(MACOS_X_DARWIN)
4777 1
4778#else
4779 0
4780#endif
4781 },
4782 {"qnx",
4783#ifdef __QNX__
4784 1
4785#else
4786 0
4787#endif
4788 },
4789 {"sun",
4790#ifdef SUN_SYSTEM
4791 1
4792#else
4793 0
4794#endif
4795 },
4796 {"unix",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004797#ifdef UNIX
Bram Moolenaar79296512020-03-22 16:17:14 +01004798 1
4799#else
4800 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004801#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004802 },
4803 {"vms",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004804#ifdef VMS
Bram Moolenaar79296512020-03-22 16:17:14 +01004805 1
4806#else
4807 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004808#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004809 },
4810 {"win32",
Bram Moolenaar4f974752019-02-17 17:44:42 +01004811#ifdef MSWIN
Bram Moolenaar79296512020-03-22 16:17:14 +01004812 1
4813#else
4814 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004815#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004816 },
4817 {"win32unix",
Bram Moolenaar1eed5322019-02-26 17:03:54 +01004818#if defined(UNIX) && defined(__CYGWIN__)
Bram Moolenaar79296512020-03-22 16:17:14 +01004819 1
4820#else
4821 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004822#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004823 },
4824 {"win64",
Bram Moolenaar44b443c2019-02-18 22:14:18 +01004825#ifdef _WIN64
Bram Moolenaar79296512020-03-22 16:17:14 +01004826 1
4827#else
4828 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004829#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004830 },
4831 {"ebcdic",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004832#ifdef EBCDIC
Bram Moolenaar79296512020-03-22 16:17:14 +01004833 1
4834#else
4835 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004836#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004837 },
4838 {"fname_case",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004839#ifndef CASE_INSENSITIVE_FILENAME
Bram Moolenaar79296512020-03-22 16:17:14 +01004840 1
4841#else
4842 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004843#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004844 },
4845 {"acl",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004846#ifdef HAVE_ACL
Bram Moolenaar79296512020-03-22 16:17:14 +01004847 1
4848#else
4849 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004850#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004851 },
4852 {"arabic",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004853#ifdef FEAT_ARABIC
Bram Moolenaar79296512020-03-22 16:17:14 +01004854 1
4855#else
4856 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004857#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004858 },
4859 {"autocmd", 1},
4860 {"autochdir",
Bram Moolenaar83ec2a72018-07-27 22:08:59 +02004861#ifdef FEAT_AUTOCHDIR
Bram Moolenaar79296512020-03-22 16:17:14 +01004862 1
4863#else
4864 0
Bram Moolenaar83ec2a72018-07-27 22:08:59 +02004865#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004866 },
4867 {"autoservername",
Bram Moolenaare42a6d22017-11-12 19:21:51 +01004868#ifdef FEAT_AUTOSERVERNAME
Bram Moolenaar79296512020-03-22 16:17:14 +01004869 1
4870#else
4871 0
Bram Moolenaare42a6d22017-11-12 19:21:51 +01004872#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004873 },
4874 {"balloon_eval",
Bram Moolenaarc3719bd2017-11-18 22:13:31 +01004875#ifdef FEAT_BEVAL_GUI
Bram Moolenaar79296512020-03-22 16:17:14 +01004876 1
4877#else
4878 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004879#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004880 },
4881 {"balloon_multiline",
4882#if defined(FEAT_BEVAL_GUI) && !defined(FEAT_GUI_MSWIN)
4883 // MS-Windows requires runtime check, see below
4884 1
4885#else
4886 0
4887#endif
4888 },
4889 {"balloon_eval_term",
Bram Moolenaarc3719bd2017-11-18 22:13:31 +01004890#ifdef FEAT_BEVAL_TERM
Bram Moolenaar79296512020-03-22 16:17:14 +01004891 1
4892#else
4893 0
Bram Moolenaar51b0f372017-11-18 18:52:04 +01004894#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004895 },
4896 {"builtin_terms",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004897#if defined(SOME_BUILTIN_TCAPS) || defined(ALL_BUILTIN_TCAPS)
Bram Moolenaar79296512020-03-22 16:17:14 +01004898 1
4899#else
4900 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004901#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004902 },
4903 {"all_builtin_terms",
4904#if defined(ALL_BUILTIN_TCAPS)
4905 1
4906#else
4907 0
4908#endif
4909 },
4910 {"browsefilter",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004911#if defined(FEAT_BROWSE) && (defined(USE_FILE_CHOOSER) \
Bram Moolenaar4f974752019-02-17 17:44:42 +01004912 || defined(FEAT_GUI_MSWIN) \
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004913 || defined(FEAT_GUI_MOTIF))
Bram Moolenaar79296512020-03-22 16:17:14 +01004914 1
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004915#else
Bram Moolenaar79296512020-03-22 16:17:14 +01004916 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02004917#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01004918 },
4919 {"byte_offset",
4920#ifdef FEAT_BYTEOFF
4921 1
4922#else
4923 0
4924#endif
4925 },
4926 {"channel",
4927#ifdef FEAT_JOB_CHANNEL
4928 1
4929#else
4930 0
4931#endif
4932 },
4933 {"cindent",
4934#ifdef FEAT_CINDENT
4935 1
4936#else
4937 0
4938#endif
4939 },
4940 {"clientserver",
4941#ifdef FEAT_CLIENTSERVER
4942 1
4943#else
4944 0
4945#endif
4946 },
4947 {"clipboard",
4948#ifdef FEAT_CLIPBOARD
4949 1
4950#else
4951 0
4952#endif
4953 },
4954 {"cmdline_compl", 1},
4955 {"cmdline_hist", 1},
Bram Moolenaar21829c52021-01-26 22:42:21 +01004956 {"cmdwin",
4957#ifdef FEAT_CMDWIN
4958 1
4959#else
4960 0
4961#endif
4962 },
Bram Moolenaar79296512020-03-22 16:17:14 +01004963 {"comments", 1},
4964 {"conceal",
4965#ifdef FEAT_CONCEAL
4966 1
4967#else
4968 0
4969#endif
4970 },
4971 {"cryptv",
4972#ifdef FEAT_CRYPT
4973 1
4974#else
4975 0
4976#endif
4977 },
4978 {"crypt-blowfish",
4979#ifdef FEAT_CRYPT
4980 1
4981#else
4982 0
4983#endif
4984 },
4985 {"crypt-blowfish2",
4986#ifdef FEAT_CRYPT
4987 1
4988#else
4989 0
4990#endif
4991 },
4992 {"cscope",
4993#ifdef FEAT_CSCOPE
4994 1
4995#else
4996 0
4997#endif
4998 },
4999 {"cursorbind", 1},
5000 {"cursorshape",
5001#ifdef CURSOR_SHAPE
5002 1
5003#else
5004 0
5005#endif
5006 },
5007 {"debug",
5008#ifdef DEBUG
5009 1
5010#else
5011 0
5012#endif
5013 },
5014 {"dialog_con",
5015#ifdef FEAT_CON_DIALOG
5016 1
5017#else
5018 0
5019#endif
5020 },
5021 {"dialog_gui",
5022#ifdef FEAT_GUI_DIALOG
5023 1
5024#else
5025 0
5026#endif
5027 },
5028 {"diff",
5029#ifdef FEAT_DIFF
5030 1
5031#else
5032 0
5033#endif
5034 },
5035 {"digraphs",
5036#ifdef FEAT_DIGRAPHS
5037 1
5038#else
5039 0
5040#endif
5041 },
5042 {"directx",
5043#ifdef FEAT_DIRECTX
5044 1
5045#else
5046 0
5047#endif
5048 },
5049 {"dnd",
5050#ifdef FEAT_DND
5051 1
5052#else
5053 0
5054#endif
5055 },
Bram Moolenaar1d1ce612021-06-27 19:02:52 +02005056 {"drop_file",
5057#ifdef HAVE_DROP_FILE
5058 1
5059#else
5060 0
5061#endif
5062 },
Bram Moolenaar79296512020-03-22 16:17:14 +01005063 {"emacs_tags",
5064#ifdef FEAT_EMACS_TAGS
5065 1
5066#else
5067 0
5068#endif
5069 },
5070 {"eval", 1}, // always present, of course!
5071 {"ex_extra", 1}, // graduated feature
5072 {"extra_search",
5073#ifdef FEAT_SEARCH_EXTRA
5074 1
5075#else
5076 0
5077#endif
5078 },
5079 {"file_in_path",
5080#ifdef FEAT_SEARCHPATH
5081 1
5082#else
5083 0
5084#endif
5085 },
5086 {"filterpipe",
5087#if defined(FEAT_FILTERPIPE) && !defined(VIMDLL)
5088 1
5089#else
5090 0
5091#endif
5092 },
5093 {"find_in_path",
5094#ifdef FEAT_FIND_ID
5095 1
5096#else
5097 0
5098#endif
5099 },
5100 {"float",
5101#ifdef FEAT_FLOAT
5102 1
5103#else
5104 0
5105#endif
5106 },
5107 {"folding",
5108#ifdef FEAT_FOLDING
5109 1
5110#else
5111 0
5112#endif
5113 },
5114 {"footer",
5115#ifdef FEAT_FOOTER
5116 1
5117#else
5118 0
5119#endif
5120 },
5121 {"fork",
5122#if !defined(USE_SYSTEM) && defined(UNIX)
5123 1
5124#else
5125 0
5126#endif
5127 },
5128 {"gettext",
5129#ifdef FEAT_GETTEXT
5130 1
5131#else
5132 0
5133#endif
5134 },
5135 {"gui",
5136#ifdef FEAT_GUI
5137 1
5138#else
5139 0
5140#endif
5141 },
5142 {"gui_neXtaw",
5143#if defined(FEAT_GUI_ATHENA) && defined(FEAT_GUI_NEXTAW)
5144 1
5145#else
5146 0
5147#endif
5148 },
5149 {"gui_athena",
5150#if defined(FEAT_GUI_ATHENA) && !defined(FEAT_GUI_NEXTAW)
5151 1
5152#else
5153 0
5154#endif
5155 },
5156 {"gui_gtk",
5157#ifdef FEAT_GUI_GTK
5158 1
5159#else
5160 0
5161#endif
5162 },
5163 {"gui_gtk2",
5164#if defined(FEAT_GUI_GTK) && !defined(USE_GTK3)
5165 1
5166#else
5167 0
5168#endif
5169 },
5170 {"gui_gtk3",
5171#if defined(FEAT_GUI_GTK) && defined(USE_GTK3)
5172 1
5173#else
5174 0
5175#endif
5176 },
5177 {"gui_gnome",
5178#ifdef FEAT_GUI_GNOME
5179 1
5180#else
5181 0
5182#endif
5183 },
5184 {"gui_haiku",
5185#ifdef FEAT_GUI_HAIKU
5186 1
5187#else
5188 0
5189#endif
5190 },
Bram Moolenaar097148e2020-08-11 21:58:20 +02005191 {"gui_mac", 0},
Bram Moolenaar79296512020-03-22 16:17:14 +01005192 {"gui_motif",
5193#ifdef FEAT_GUI_MOTIF
5194 1
5195#else
5196 0
5197#endif
5198 },
5199 {"gui_photon",
5200#ifdef FEAT_GUI_PHOTON
5201 1
5202#else
5203 0
5204#endif
5205 },
5206 {"gui_win32",
5207#ifdef FEAT_GUI_MSWIN
5208 1
5209#else
5210 0
5211#endif
5212 },
5213 {"iconv",
5214#if defined(HAVE_ICONV_H) && defined(USE_ICONV)
5215 1
5216#else
5217 0
5218#endif
5219 },
5220 {"insert_expand", 1},
Bram Moolenaarbfe13cc2020-04-12 17:53:12 +02005221 {"ipv6",
5222#ifdef FEAT_IPV6
5223 1
5224#else
5225 0
5226#endif
5227 },
Bram Moolenaar79296512020-03-22 16:17:14 +01005228 {"job",
5229#ifdef FEAT_JOB_CHANNEL
5230 1
5231#else
5232 0
5233#endif
5234 },
5235 {"jumplist",
5236#ifdef FEAT_JUMPLIST
5237 1
5238#else
5239 0
5240#endif
5241 },
5242 {"keymap",
5243#ifdef FEAT_KEYMAP
5244 1
5245#else
5246 0
5247#endif
5248 },
5249 {"lambda", 1}, // always with FEAT_EVAL, since 7.4.2120 with closure
5250 {"langmap",
5251#ifdef FEAT_LANGMAP
5252 1
5253#else
5254 0
5255#endif
5256 },
5257 {"libcall",
5258#ifdef FEAT_LIBCALL
5259 1
5260#else
5261 0
5262#endif
5263 },
5264 {"linebreak",
5265#ifdef FEAT_LINEBREAK
5266 1
5267#else
5268 0
5269#endif
5270 },
5271 {"lispindent",
5272#ifdef FEAT_LISP
5273 1
5274#else
5275 0
5276#endif
5277 },
5278 {"listcmds", 1},
5279 {"localmap", 1},
5280 {"lua",
5281#if defined(FEAT_LUA) && !defined(DYNAMIC_LUA)
5282 1
5283#else
5284 0
5285#endif
5286 },
5287 {"menu",
5288#ifdef FEAT_MENU
5289 1
5290#else
5291 0
5292#endif
5293 },
5294 {"mksession",
5295#ifdef FEAT_SESSION
5296 1
5297#else
5298 0
5299#endif
5300 },
5301 {"modify_fname", 1},
5302 {"mouse", 1},
5303 {"mouseshape",
5304#ifdef FEAT_MOUSESHAPE
5305 1
5306#else
5307 0
5308#endif
5309 },
5310 {"mouse_dec",
5311#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_DEC)
5312 1
5313#else
5314 0
5315#endif
5316 },
5317 {"mouse_gpm",
5318#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_GPM)
5319 1
5320#else
5321 0
5322#endif
5323 },
5324 {"mouse_jsbterm",
5325#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_JSB)
5326 1
5327#else
5328 0
5329#endif
5330 },
5331 {"mouse_netterm",
5332#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_NET)
5333 1
5334#else
5335 0
5336#endif
5337 },
5338 {"mouse_pterm",
5339#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_PTERM)
5340 1
5341#else
5342 0
5343#endif
5344 },
5345 {"mouse_sgr",
5346#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_XTERM)
5347 1
5348#else
5349 0
5350#endif
5351 },
5352 {"mouse_sysmouse",
5353#if (defined(UNIX) || defined(VMS)) && defined(FEAT_SYSMOUSE)
5354 1
5355#else
5356 0
5357#endif
5358 },
5359 {"mouse_urxvt",
5360#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_URXVT)
5361 1
5362#else
5363 0
5364#endif
5365 },
5366 {"mouse_xterm",
5367#if (defined(UNIX) || defined(VMS)) && defined(FEAT_MOUSE_XTERM)
5368 1
5369#else
5370 0
5371#endif
5372 },
5373 {"multi_byte", 1},
5374 {"multi_byte_ime",
5375#ifdef FEAT_MBYTE_IME
5376 1
5377#else
5378 0
5379#endif
5380 },
5381 {"multi_lang",
5382#ifdef FEAT_MULTI_LANG
5383 1
5384#else
5385 0
5386#endif
5387 },
5388 {"mzscheme",
5389#if defined(FEAT_MZSCHEME) && !defined(DYNAMIC_MZSCHEME)
5390 1
5391#else
5392 0
5393#endif
5394 },
5395 {"num64", 1},
5396 {"ole",
5397#ifdef FEAT_OLE
5398 1
5399#else
5400 0
5401#endif
5402 },
5403 {"packages",
5404#ifdef FEAT_EVAL
5405 1
5406#else
5407 0
5408#endif
5409 },
5410 {"path_extra",
5411#ifdef FEAT_PATH_EXTRA
5412 1
5413#else
5414 0
5415#endif
5416 },
5417 {"perl",
5418#if defined(FEAT_PERL) && !defined(DYNAMIC_PERL)
5419 1
5420#else
5421 0
5422#endif
5423 },
5424 {"persistent_undo",
5425#ifdef FEAT_PERSISTENT_UNDO
5426 1
5427#else
5428 0
5429#endif
5430 },
5431 {"python_compiled",
5432#if defined(FEAT_PYTHON)
5433 1
5434#else
5435 0
5436#endif
5437 },
5438 {"python_dynamic",
5439#if defined(FEAT_PYTHON) && defined(DYNAMIC_PYTHON)
5440 1
5441#else
5442 0
5443#endif
5444 },
5445 {"python",
5446#if defined(FEAT_PYTHON) && !defined(DYNAMIC_PYTHON)
5447 1
5448#else
5449 0
5450#endif
5451 },
5452 {"pythonx",
5453#if (defined(FEAT_PYTHON) && !defined(DYNAMIC_PYTHON)) \
5454 || (defined(FEAT_PYTHON3) && !defined(DYNAMIC_PYTHON3))
5455 1
5456#else
5457 0
5458#endif
5459 },
5460 {"python3_compiled",
5461#if defined(FEAT_PYTHON3)
5462 1
5463#else
5464 0
5465#endif
5466 },
5467 {"python3_dynamic",
5468#if defined(FEAT_PYTHON3) && defined(DYNAMIC_PYTHON3)
5469 1
5470#else
5471 0
5472#endif
5473 },
5474 {"python3",
5475#if defined(FEAT_PYTHON3) && !defined(DYNAMIC_PYTHON3)
5476 1
5477#else
5478 0
5479#endif
5480 },
5481 {"popupwin",
5482#ifdef FEAT_PROP_POPUP
5483 1
5484#else
5485 0
5486#endif
5487 },
5488 {"postscript",
5489#ifdef FEAT_POSTSCRIPT
5490 1
5491#else
5492 0
5493#endif
5494 },
5495 {"printer",
5496#ifdef FEAT_PRINTER
5497 1
5498#else
5499 0
5500#endif
5501 },
5502 {"profile",
5503#ifdef FEAT_PROFILE
5504 1
5505#else
5506 0
5507#endif
5508 },
5509 {"reltime",
5510#ifdef FEAT_RELTIME
5511 1
5512#else
5513 0
5514#endif
5515 },
5516 {"quickfix",
5517#ifdef FEAT_QUICKFIX
5518 1
5519#else
5520 0
5521#endif
5522 },
5523 {"rightleft",
5524#ifdef FEAT_RIGHTLEFT
5525 1
5526#else
5527 0
5528#endif
5529 },
5530 {"ruby",
5531#if defined(FEAT_RUBY) && !defined(DYNAMIC_RUBY)
5532 1
5533#else
5534 0
5535#endif
5536 },
5537 {"scrollbind", 1},
5538 {"showcmd",
5539#ifdef FEAT_CMDL_INFO
5540 1
5541#else
5542 0
5543#endif
5544 },
5545 {"cmdline_info",
5546#ifdef FEAT_CMDL_INFO
5547 1
5548#else
5549 0
5550#endif
5551 },
5552 {"signs",
5553#ifdef FEAT_SIGNS
5554 1
5555#else
5556 0
5557#endif
5558 },
5559 {"smartindent",
5560#ifdef FEAT_SMARTINDENT
5561 1
5562#else
5563 0
5564#endif
5565 },
5566 {"startuptime",
5567#ifdef STARTUPTIME
5568 1
5569#else
5570 0
5571#endif
5572 },
5573 {"statusline",
5574#ifdef FEAT_STL_OPT
5575 1
5576#else
5577 0
5578#endif
5579 },
5580 {"netbeans_intg",
5581#ifdef FEAT_NETBEANS_INTG
5582 1
5583#else
5584 0
5585#endif
5586 },
Christian Brabandtf573c6e2021-06-20 14:02:16 +02005587 {"sodium",
5588#ifdef FEAT_SODIUM
5589 1
5590#else
5591 0
5592#endif
5593 },
Bram Moolenaar79296512020-03-22 16:17:14 +01005594 {"sound",
5595#ifdef FEAT_SOUND
5596 1
5597#else
5598 0
5599#endif
5600 },
5601 {"spell",
5602#ifdef FEAT_SPELL
5603 1
5604#else
5605 0
5606#endif
5607 },
5608 {"syntax",
5609#ifdef FEAT_SYN_HL
5610 1
5611#else
5612 0
5613#endif
5614 },
5615 {"system",
5616#if defined(USE_SYSTEM) || !defined(UNIX)
5617 1
5618#else
5619 0
5620#endif
5621 },
5622 {"tag_binary",
5623#ifdef FEAT_TAG_BINS
5624 1
5625#else
5626 0
5627#endif
5628 },
5629 {"tcl",
5630#if defined(FEAT_TCL) && !defined(DYNAMIC_TCL)
5631 1
5632#else
5633 0
5634#endif
5635 },
5636 {"termguicolors",
5637#ifdef FEAT_TERMGUICOLORS
5638 1
5639#else
5640 0
5641#endif
5642 },
5643 {"terminal",
5644#if defined(FEAT_TERMINAL) && !defined(MSWIN)
5645 1
5646#else
5647 0
5648#endif
5649 },
5650 {"terminfo",
5651#ifdef TERMINFO
5652 1
5653#else
5654 0
5655#endif
5656 },
5657 {"termresponse",
5658#ifdef FEAT_TERMRESPONSE
5659 1
5660#else
5661 0
5662#endif
5663 },
5664 {"textobjects",
5665#ifdef FEAT_TEXTOBJ
5666 1
5667#else
5668 0
5669#endif
5670 },
5671 {"textprop",
5672#ifdef FEAT_PROP_POPUP
5673 1
5674#else
5675 0
5676#endif
5677 },
5678 {"tgetent",
5679#ifdef HAVE_TGETENT
5680 1
5681#else
5682 0
5683#endif
5684 },
5685 {"timers",
5686#ifdef FEAT_TIMERS
5687 1
5688#else
5689 0
5690#endif
5691 },
5692 {"title",
5693#ifdef FEAT_TITLE
5694 1
5695#else
5696 0
5697#endif
5698 },
5699 {"toolbar",
5700#ifdef FEAT_TOOLBAR
5701 1
5702#else
5703 0
5704#endif
5705 },
5706 {"unnamedplus",
5707#if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
5708 1
5709#else
5710 0
5711#endif
5712 },
5713 {"user-commands", 1}, // was accidentally included in 5.4
5714 {"user_commands", 1},
5715 {"vartabs",
5716#ifdef FEAT_VARTABS
5717 1
5718#else
5719 0
5720#endif
5721 },
5722 {"vertsplit", 1},
5723 {"viminfo",
5724#ifdef FEAT_VIMINFO
5725 1
5726#else
5727 0
5728#endif
5729 },
5730 {"vimscript-1", 1},
5731 {"vimscript-2", 1},
5732 {"vimscript-3", 1},
5733 {"vimscript-4", 1},
5734 {"virtualedit", 1},
5735 {"visual", 1},
5736 {"visualextra", 1},
5737 {"vreplace", 1},
5738 {"vtp",
5739#ifdef FEAT_VTP
5740 1
5741#else
5742 0
5743#endif
5744 },
5745 {"wildignore",
5746#ifdef FEAT_WILDIGN
5747 1
5748#else
5749 0
5750#endif
5751 },
5752 {"wildmenu",
5753#ifdef FEAT_WILDMENU
5754 1
5755#else
5756 0
5757#endif
5758 },
5759 {"windows", 1},
5760 {"winaltkeys",
5761#ifdef FEAT_WAK
5762 1
5763#else
5764 0
5765#endif
5766 },
5767 {"writebackup",
5768#ifdef FEAT_WRITEBACKUP
5769 1
5770#else
5771 0
5772#endif
5773 },
5774 {"xim",
5775#ifdef FEAT_XIM
5776 1
5777#else
5778 0
5779#endif
5780 },
5781 {"xfontset",
5782#ifdef FEAT_XFONTSET
5783 1
5784#else
5785 0
5786#endif
5787 },
5788 {"xpm",
5789#if defined(FEAT_XPM_W32) || defined(HAVE_XPM)
5790 1
5791#else
5792 0
5793#endif
5794 },
5795 {"xpm_w32", // for backward compatibility
5796#ifdef FEAT_XPM_W32
5797 1
5798#else
5799 0
5800#endif
5801 },
5802 {"xsmp",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005803#ifdef USE_XSMP
Bram Moolenaar79296512020-03-22 16:17:14 +01005804 1
5805#else
5806 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005807#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005808 },
5809 {"xsmp_interact",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005810#ifdef USE_XSMP_INTERACT
Bram Moolenaar79296512020-03-22 16:17:14 +01005811 1
5812#else
5813 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005814#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005815 },
5816 {"xterm_clipboard",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005817#ifdef FEAT_XCLIPBOARD
Bram Moolenaar79296512020-03-22 16:17:14 +01005818 1
5819#else
5820 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005821#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005822 },
5823 {"xterm_save",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005824#ifdef FEAT_XTERM_SAVE
Bram Moolenaar79296512020-03-22 16:17:14 +01005825 1
5826#else
5827 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005828#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005829 },
5830 {"X11",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005831#if defined(UNIX) && defined(FEAT_X11)
Bram Moolenaar79296512020-03-22 16:17:14 +01005832 1
5833#else
5834 0
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005835#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005836 },
5837 {NULL, 0}
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005838 };
5839
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02005840 if (in_vim9script()
5841 && (check_for_string_arg(argvars, 0) == FAIL
5842 || check_for_opt_bool_arg(argvars, 1) == FAIL))
5843 return;
5844
Bram Moolenaard155d7a2018-12-21 16:04:21 +01005845 name = tv_get_string(&argvars[0]);
Bram Moolenaar79296512020-03-22 16:17:14 +01005846 for (i = 0; has_list[i].name != NULL; ++i)
5847 if (STRICMP(name, has_list[i].name) == 0)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005848 {
Bram Moolenaar79296512020-03-22 16:17:14 +01005849 x = TRUE;
5850 n = has_list[i].present;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005851 break;
5852 }
5853
Bram Moolenaar79296512020-03-22 16:17:14 +01005854 // features also in has_list[] but sometimes enabled at runtime
5855 if (x == TRUE && n == FALSE)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005856 {
Bram Moolenaar79296512020-03-22 16:17:14 +01005857 if (0)
Bram Moolenaar86b9a3e2020-04-07 19:57:29 +02005858 {
5859 // intentionally empty
5860 }
Bram Moolenaar4f974752019-02-17 17:44:42 +01005861#if defined(FEAT_BEVAL) && defined(FEAT_GUI_MSWIN)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005862 else if (STRICMP(name, "balloon_multiline") == 0)
5863 n = multiline_balloon_available();
5864#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005865#ifdef VIMDLL
5866 else if (STRICMP(name, "filterpipe") == 0)
5867 n = gui.in_use || gui.starting;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005868#endif
5869#if defined(USE_ICONV) && defined(DYNAMIC_ICONV)
5870 else if (STRICMP(name, "iconv") == 0)
5871 n = iconv_enabled(FALSE);
5872#endif
5873#ifdef DYNAMIC_LUA
5874 else if (STRICMP(name, "lua") == 0)
5875 n = lua_enabled(FALSE);
5876#endif
5877#ifdef DYNAMIC_MZSCHEME
5878 else if (STRICMP(name, "mzscheme") == 0)
5879 n = mzscheme_enabled(FALSE);
5880#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005881#ifdef DYNAMIC_PERL
5882 else if (STRICMP(name, "perl") == 0)
5883 n = perl_enabled(FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005884#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005885#ifdef DYNAMIC_PYTHON
5886 else if (STRICMP(name, "python") == 0)
5887 n = python_enabled(FALSE);
5888#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005889#ifdef DYNAMIC_PYTHON3
5890 else if (STRICMP(name, "python3") == 0)
5891 n = python3_enabled(FALSE);
5892#endif
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01005893#if defined(DYNAMIC_PYTHON) || defined(DYNAMIC_PYTHON3)
5894 else if (STRICMP(name, "pythonx") == 0)
5895 {
5896# if defined(DYNAMIC_PYTHON) && defined(DYNAMIC_PYTHON3)
5897 if (p_pyx == 0)
5898 n = python3_enabled(FALSE) || python_enabled(FALSE);
5899 else if (p_pyx == 3)
5900 n = python3_enabled(FALSE);
5901 else if (p_pyx == 2)
5902 n = python_enabled(FALSE);
5903# elif defined(DYNAMIC_PYTHON)
5904 n = python_enabled(FALSE);
5905# elif defined(DYNAMIC_PYTHON3)
5906 n = python3_enabled(FALSE);
5907# endif
5908 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005909#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005910#ifdef DYNAMIC_RUBY
5911 else if (STRICMP(name, "ruby") == 0)
5912 n = ruby_enabled(FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005913#endif
Bram Moolenaar79296512020-03-22 16:17:14 +01005914#ifdef DYNAMIC_TCL
5915 else if (STRICMP(name, "tcl") == 0)
5916 n = tcl_enabled(FALSE);
Bram Moolenaar4b8366b2019-05-04 17:34:34 +02005917#endif
Bram Moolenaar4f974752019-02-17 17:44:42 +01005918#if defined(FEAT_TERMINAL) && defined(MSWIN)
Bram Moolenaara83e3962017-08-17 14:39:07 +02005919 else if (STRICMP(name, "terminal") == 0)
5920 n = terminal_enabled();
5921#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02005922 }
5923
Bram Moolenaar79296512020-03-22 16:17:14 +01005924 // features not in has_list[]
5925 if (x == FALSE)
5926 {
5927 if (STRNICMP(name, "patch", 5) == 0)
5928 {
5929 x = TRUE;
5930 if (name[5] == '-'
5931 && STRLEN(name) >= 11
5932 && vim_isdigit(name[6])
5933 && vim_isdigit(name[8])
5934 && vim_isdigit(name[10]))
5935 {
5936 int major = atoi((char *)name + 6);
5937 int minor = atoi((char *)name + 8);
5938
5939 // Expect "patch-9.9.01234".
5940 n = (major < VIM_VERSION_MAJOR
5941 || (major == VIM_VERSION_MAJOR
5942 && (minor < VIM_VERSION_MINOR
5943 || (minor == VIM_VERSION_MINOR
5944 && has_patch(atoi((char *)name + 10))))));
5945 }
5946 else
5947 n = has_patch(atoi((char *)name + 5));
5948 }
5949 else if (STRICMP(name, "vim_starting") == 0)
5950 {
5951 x = TRUE;
5952 n = (starting != 0);
5953 }
5954 else if (STRICMP(name, "ttyin") == 0)
5955 {
5956 x = TRUE;
5957 n = mch_input_isatty();
5958 }
5959 else if (STRICMP(name, "ttyout") == 0)
5960 {
5961 x = TRUE;
5962 n = stdout_isatty;
5963 }
5964 else if (STRICMP(name, "multi_byte_encoding") == 0)
5965 {
5966 x = TRUE;
5967 n = has_mbyte;
5968 }
5969 else if (STRICMP(name, "gui_running") == 0)
5970 {
5971 x = TRUE;
5972#ifdef FEAT_GUI
5973 n = (gui.in_use || gui.starting);
5974#endif
5975 }
5976 else if (STRICMP(name, "browse") == 0)
5977 {
5978 x = TRUE;
5979#if defined(FEAT_GUI) && defined(FEAT_BROWSE)
5980 n = gui.in_use; // gui_mch_browse() works when GUI is running
5981#endif
5982 }
5983 else if (STRICMP(name, "syntax_items") == 0)
5984 {
5985 x = TRUE;
5986#ifdef FEAT_SYN_HL
5987 n = syntax_present(curwin);
5988#endif
5989 }
5990 else if (STRICMP(name, "vcon") == 0)
5991 {
5992 x = TRUE;
5993#ifdef FEAT_VTP
5994 n = is_term_win32() && has_vtp_working();
5995#endif
5996 }
5997 else if (STRICMP(name, "netbeans_enabled") == 0)
5998 {
5999 x = TRUE;
6000#ifdef FEAT_NETBEANS_INTG
6001 n = netbeans_active();
6002#endif
6003 }
6004 else if (STRICMP(name, "mouse_gpm_enabled") == 0)
6005 {
6006 x = TRUE;
6007#ifdef FEAT_MOUSE_GPM
6008 n = gpm_enabled();
6009#endif
6010 }
6011 else if (STRICMP(name, "conpty") == 0)
6012 {
6013 x = TRUE;
6014#if defined(FEAT_TERMINAL) && defined(MSWIN)
6015 n = use_conpty();
6016#endif
6017 }
6018 else if (STRICMP(name, "clipboard_working") == 0)
6019 {
6020 x = TRUE;
6021#ifdef FEAT_CLIPBOARD
6022 n = clip_star.available;
6023#endif
6024 }
6025 }
6026
Bram Moolenaar04637e22020-09-05 18:45:29 +02006027 if (argvars[1].v_type != VAR_UNKNOWN && tv_get_bool(&argvars[1]))
Bram Moolenaar79296512020-03-22 16:17:14 +01006028 // return whether feature could ever be enabled
6029 rettv->vval.v_number = x;
6030 else
6031 // return whether feature is enabled
6032 rettv->vval.v_number = n;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006033}
6034
6035/*
Bram Moolenaar8cebd432020-11-08 12:49:47 +01006036 * Return TRUE if "feature" can change later.
6037 * Also when checking for the feature has side effects, such as loading a DLL.
6038 */
6039 int
6040dynamic_feature(char_u *feature)
6041{
6042 return (feature == NULL
6043#if defined(FEAT_BEVAL) && defined(FEAT_GUI_MSWIN)
6044 || STRICMP(feature, "balloon_multiline") == 0
6045#endif
6046#if defined(FEAT_GUI) && defined(FEAT_BROWSE)
6047 || (STRICMP(feature, "browse") == 0 && !gui.in_use)
6048#endif
6049#ifdef VIMDLL
6050 || STRICMP(feature, "filterpipe") == 0
6051#endif
Bram Moolenaar29b281b2020-11-10 20:58:00 +01006052#if defined(FEAT_GUI) && !defined(ALWAYS_USE_GUI) && !defined(VIMDLL)
Bram Moolenaar8cebd432020-11-08 12:49:47 +01006053 // this can only change on Unix where the ":gui" command could be
6054 // used.
6055 || (STRICMP(feature, "gui_running") == 0 && !gui.in_use)
6056#endif
6057#if defined(USE_ICONV) && defined(DYNAMIC_ICONV)
6058 || STRICMP(feature, "iconv") == 0
6059#endif
6060#ifdef DYNAMIC_LUA
6061 || STRICMP(feature, "lua") == 0
6062#endif
6063#ifdef FEAT_MOUSE_GPM
6064 || (STRICMP(feature, "mouse_gpm_enabled") == 0 && !gpm_enabled())
6065#endif
6066#ifdef DYNAMIC_MZSCHEME
6067 || STRICMP(feature, "mzscheme") == 0
6068#endif
6069#ifdef FEAT_NETBEANS_INTG
6070 || STRICMP(feature, "netbeans_enabled") == 0
6071#endif
6072#ifdef DYNAMIC_PERL
6073 || STRICMP(feature, "perl") == 0
6074#endif
6075#ifdef DYNAMIC_PYTHON
6076 || STRICMP(feature, "python") == 0
6077#endif
6078#ifdef DYNAMIC_PYTHON3
6079 || STRICMP(feature, "python3") == 0
6080#endif
6081#if defined(DYNAMIC_PYTHON) || defined(DYNAMIC_PYTHON3)
6082 || STRICMP(feature, "pythonx") == 0
6083#endif
6084#ifdef DYNAMIC_RUBY
6085 || STRICMP(feature, "ruby") == 0
6086#endif
6087#ifdef FEAT_SYN_HL
6088 || STRICMP(feature, "syntax_items") == 0
6089#endif
6090#ifdef DYNAMIC_TCL
6091 || STRICMP(feature, "tcl") == 0
6092#endif
6093 // once "starting" is zero it will stay that way
6094 || (STRICMP(feature, "vim_starting") == 0 && starting != 0)
6095 || STRICMP(feature, "multi_byte_encoding") == 0
6096#if defined(FEAT_TERMINAL) && defined(MSWIN)
6097 || STRICMP(feature, "conpty") == 0
6098#endif
6099 );
6100}
6101
6102/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006103 * "haslocaldir()" function
6104 */
6105 static void
6106f_haslocaldir(typval_T *argvars, typval_T *rettv)
6107{
Bram Moolenaar00aa0692019-04-27 20:37:57 +02006108 tabpage_T *tp = NULL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006109 win_T *wp = NULL;
6110
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006111 if (in_vim9script()
6112 && (check_for_opt_number_arg(argvars, 0) == FAIL
6113 || (argvars[0].v_type != VAR_UNKNOWN
6114 && check_for_opt_number_arg(argvars, 1) == FAIL)))
6115 return;
6116
Bram Moolenaar00aa0692019-04-27 20:37:57 +02006117 wp = find_tabwin(&argvars[0], &argvars[1], &tp);
6118
6119 // Check for window-local and tab-local directories
6120 if (wp != NULL && wp->w_localdir != NULL)
6121 rettv->vval.v_number = 1;
6122 else if (tp != NULL && tp->tp_localdir != NULL)
6123 rettv->vval.v_number = 2;
6124 else
6125 rettv->vval.v_number = 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006126}
6127
6128/*
6129 * "hasmapto()" function
6130 */
6131 static void
6132f_hasmapto(typval_T *argvars, typval_T *rettv)
6133{
6134 char_u *name;
6135 char_u *mode;
6136 char_u buf[NUMBUFLEN];
6137 int abbr = FALSE;
6138
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006139 if (in_vim9script()
6140 && (check_for_string_arg(argvars, 0) == FAIL
6141 || check_for_opt_string_arg(argvars, 1) == FAIL
6142 || (argvars[1].v_type != VAR_UNKNOWN
6143 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
6144 return;
6145
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006146 name = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006147 if (argvars[1].v_type == VAR_UNKNOWN)
6148 mode = (char_u *)"nvo";
6149 else
6150 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006151 mode = tv_get_string_buf(&argvars[1], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006152 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar04d594b2020-09-02 22:25:35 +02006153 abbr = (int)tv_get_bool(&argvars[2]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006154 }
6155
6156 if (map_to_exists(name, mode, abbr))
6157 rettv->vval.v_number = TRUE;
6158 else
6159 rettv->vval.v_number = FALSE;
6160}
6161
6162/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006163 * "highlightID(name)" function
6164 */
6165 static void
6166f_hlID(typval_T *argvars, typval_T *rettv)
6167{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006168 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
6169 return;
6170
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006171 rettv->vval.v_number = syn_name2id(tv_get_string(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006172}
6173
6174/*
6175 * "highlight_exists()" function
6176 */
6177 static void
6178f_hlexists(typval_T *argvars, typval_T *rettv)
6179{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006180 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
6181 return;
6182
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006183 rettv->vval.v_number = highlight_exists(tv_get_string(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006184}
6185
6186/*
6187 * "hostname()" function
6188 */
6189 static void
6190f_hostname(typval_T *argvars UNUSED, typval_T *rettv)
6191{
6192 char_u hostname[256];
6193
6194 mch_get_host_name(hostname, 256);
6195 rettv->v_type = VAR_STRING;
6196 rettv->vval.v_string = vim_strsave(hostname);
6197}
6198
6199/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006200 * "index()" function
6201 */
6202 static void
6203f_index(typval_T *argvars, typval_T *rettv)
6204{
6205 list_T *l;
6206 listitem_T *item;
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006207 blob_T *b;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006208 long idx = 0;
6209 int ic = FALSE;
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006210 int error = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006211
6212 rettv->vval.v_number = -1;
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006213
6214 if (in_vim9script()
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02006215 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
6216 || (argvars[0].v_type == VAR_BLOB
6217 && check_for_number_arg(argvars, 1) == FAIL)
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006218 || check_for_opt_number_arg(argvars, 2) == FAIL
6219 || (argvars[2].v_type != VAR_UNKNOWN
6220 && check_for_opt_bool_arg(argvars, 3) == FAIL)))
6221 return;
6222
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006223 if (argvars[0].v_type == VAR_BLOB)
6224 {
6225 typval_T tv;
6226 int start = 0;
6227
6228 if (argvars[2].v_type != VAR_UNKNOWN)
6229 {
6230 start = tv_get_number_chk(&argvars[2], &error);
6231 if (error)
6232 return;
6233 }
6234 b = argvars[0].vval.v_blob;
6235 if (b == NULL)
6236 return;
Bram Moolenaar05500ec2019-01-13 19:10:33 +01006237 if (start < 0)
6238 {
6239 start = blob_len(b) + start;
6240 if (start < 0)
6241 start = 0;
6242 }
6243
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006244 for (idx = start; idx < blob_len(b); ++idx)
6245 {
6246 tv.v_type = VAR_NUMBER;
6247 tv.vval.v_number = blob_get(b, idx);
6248 if (tv_equal(&tv, &argvars[1], ic, FALSE))
6249 {
6250 rettv->vval.v_number = idx;
6251 return;
6252 }
6253 }
6254 return;
6255 }
6256 else if (argvars[0].v_type != VAR_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006257 {
Bram Moolenaar0d17f0d2019-01-22 22:20:38 +01006258 emsg(_(e_listblobreq));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006259 return;
6260 }
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006261
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006262 l = argvars[0].vval.v_list;
6263 if (l != NULL)
6264 {
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02006265 CHECK_LIST_MATERIALIZE(l);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006266 item = l->lv_first;
6267 if (argvars[2].v_type != VAR_UNKNOWN)
6268 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006269 // Start at specified item. Use the cached index that list_find()
6270 // sets, so that a negative number also works.
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006271 item = list_find(l, (long)tv_get_number_chk(&argvars[2], &error));
Bram Moolenaar0ff6aad2020-01-29 21:27:21 +01006272 idx = l->lv_u.mat.lv_idx;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006273 if (argvars[3].v_type != VAR_UNKNOWN)
Bram Moolenaar6c553f92020-09-02 22:10:34 +02006274 ic = (int)tv_get_bool_chk(&argvars[3], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006275 if (error)
6276 item = NULL;
6277 }
6278
6279 for ( ; item != NULL; item = item->li_next, ++idx)
6280 if (tv_equal(&item->li_tv, &argvars[1], ic, FALSE))
6281 {
6282 rettv->vval.v_number = idx;
6283 break;
6284 }
6285 }
6286}
6287
6288static int inputsecret_flag = 0;
6289
6290/*
6291 * "input()" function
6292 * Also handles inputsecret() when inputsecret is set.
6293 */
6294 static void
6295f_input(typval_T *argvars, typval_T *rettv)
6296{
6297 get_user_input(argvars, rettv, FALSE, inputsecret_flag);
6298}
6299
6300/*
6301 * "inputdialog()" function
6302 */
6303 static void
6304f_inputdialog(typval_T *argvars, typval_T *rettv)
6305{
6306#if defined(FEAT_GUI_TEXTDIALOG)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006307 // Use a GUI dialog if the GUI is running and 'c' is not in 'guioptions'
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006308 if (gui.in_use && vim_strchr(p_go, GO_CONDIALOG) == NULL)
6309 {
6310 char_u *message;
6311 char_u buf[NUMBUFLEN];
6312 char_u *defstr = (char_u *)"";
6313
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006314 if (in_vim9script()
6315 && (check_for_string_arg(argvars, 0) == FAIL
6316 || check_for_opt_string_arg(argvars, 1) == FAIL
6317 || (argvars[1].v_type != VAR_UNKNOWN
6318 && check_for_opt_string_arg(argvars, 2) == FAIL)))
6319 return;
6320
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006321 message = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006322 if (argvars[1].v_type != VAR_UNKNOWN
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006323 && (defstr = tv_get_string_buf_chk(&argvars[1], buf)) != NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006324 vim_strncpy(IObuff, defstr, IOSIZE - 1);
6325 else
6326 IObuff[0] = NUL;
6327 if (message != NULL && defstr != NULL
6328 && do_dialog(VIM_QUESTION, NULL, message,
6329 (char_u *)_("&OK\n&Cancel"), 1, IObuff, FALSE) == 1)
6330 rettv->vval.v_string = vim_strsave(IObuff);
6331 else
6332 {
6333 if (message != NULL && defstr != NULL
6334 && argvars[1].v_type != VAR_UNKNOWN
6335 && argvars[2].v_type != VAR_UNKNOWN)
6336 rettv->vval.v_string = vim_strsave(
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006337 tv_get_string_buf(&argvars[2], buf));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006338 else
6339 rettv->vval.v_string = NULL;
6340 }
6341 rettv->v_type = VAR_STRING;
6342 }
6343 else
6344#endif
6345 get_user_input(argvars, rettv, TRUE, inputsecret_flag);
6346}
6347
6348/*
6349 * "inputlist()" function
6350 */
6351 static void
6352f_inputlist(typval_T *argvars, typval_T *rettv)
6353{
Bram Moolenaar50985eb2020-01-27 22:09:39 +01006354 list_T *l;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006355 listitem_T *li;
6356 int selected;
6357 int mouse_used;
6358
6359#ifdef NO_CONSOLE_INPUT
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006360 // While starting up, there is no place to enter text. When running tests
6361 // with --not-a-term we assume feedkeys() will be used.
Bram Moolenaar91d348a2017-07-29 20:16:03 +02006362 if (no_console_input() && !is_not_a_term())
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006363 return;
6364#endif
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006365 if (in_vim9script() && check_for_list_arg(argvars, 0) == FAIL)
6366 return;
6367
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006368 if (argvars[0].v_type != VAR_LIST || argvars[0].vval.v_list == NULL)
6369 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01006370 semsg(_(e_listarg), "inputlist()");
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006371 return;
6372 }
6373
6374 msg_start();
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006375 msg_row = Rows - 1; // for when 'cmdheight' > 1
6376 lines_left = Rows; // avoid more prompt
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006377 msg_scroll = TRUE;
6378 msg_clr_eos();
6379
Bram Moolenaar50985eb2020-01-27 22:09:39 +01006380 l = argvars[0].vval.v_list;
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02006381 CHECK_LIST_MATERIALIZE(l);
Bram Moolenaar00d253e2020-04-06 22:13:01 +02006382 FOR_ALL_LIST_ITEMS(l, li)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006383 {
Bram Moolenaar32526b32019-01-19 17:43:09 +01006384 msg_puts((char *)tv_get_string(&li->li_tv));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006385 msg_putchar('\n');
6386 }
6387
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006388 // Ask for choice.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006389 selected = prompt_for_number(&mouse_used);
6390 if (mouse_used)
6391 selected -= lines_left;
6392
6393 rettv->vval.v_number = selected;
6394}
6395
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006396static garray_T ga_userinput = {0, 0, sizeof(tasave_T), 4, NULL};
6397
6398/*
6399 * "inputrestore()" function
6400 */
6401 static void
6402f_inputrestore(typval_T *argvars UNUSED, typval_T *rettv)
6403{
6404 if (ga_userinput.ga_len > 0)
6405 {
6406 --ga_userinput.ga_len;
6407 restore_typeahead((tasave_T *)(ga_userinput.ga_data)
Bram Moolenaarc41badb2021-06-07 22:04:52 +02006408 + ga_userinput.ga_len, TRUE);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006409 // default return is zero == OK
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006410 }
6411 else if (p_verbose > 1)
6412 {
Bram Moolenaar32526b32019-01-19 17:43:09 +01006413 verb_msg(_("called inputrestore() more often than inputsave()"));
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006414 rettv->vval.v_number = 1; // Failed
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006415 }
6416}
6417
6418/*
6419 * "inputsave()" function
6420 */
6421 static void
6422f_inputsave(typval_T *argvars UNUSED, typval_T *rettv)
6423{
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006424 // Add an entry to the stack of typeahead storage.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006425 if (ga_grow(&ga_userinput, 1) == OK)
6426 {
6427 save_typeahead((tasave_T *)(ga_userinput.ga_data)
6428 + ga_userinput.ga_len);
6429 ++ga_userinput.ga_len;
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006430 // default return is zero == OK
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006431 }
6432 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006433 rettv->vval.v_number = 1; // Failed
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006434}
6435
6436/*
6437 * "inputsecret()" function
6438 */
6439 static void
6440f_inputsecret(typval_T *argvars, typval_T *rettv)
6441{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006442 if (in_vim9script()
6443 && (check_for_string_arg(argvars, 0) == FAIL
6444 || check_for_opt_string_arg(argvars, 1) == FAIL))
6445 return;
6446
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006447 ++cmdline_star;
6448 ++inputsecret_flag;
6449 f_input(argvars, rettv);
6450 --cmdline_star;
6451 --inputsecret_flag;
6452}
6453
6454/*
Bram Moolenaar67a2deb2019-11-25 00:05:32 +01006455 * "interrupt()" function
6456 */
6457 static void
6458f_interrupt(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
6459{
6460 got_int = TRUE;
6461}
6462
6463/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006464 * "invert(expr)" function
6465 */
6466 static void
6467f_invert(typval_T *argvars, typval_T *rettv)
6468{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006469 if (in_vim9script() && check_for_number_arg(argvars, 0) == FAIL)
6470 return;
6471
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006472 rettv->vval.v_number = ~tv_get_number_chk(&argvars[0], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006473}
6474
6475/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006476 * "islocked()" function
6477 */
6478 static void
6479f_islocked(typval_T *argvars, typval_T *rettv)
6480{
6481 lval_T lv;
6482 char_u *end;
6483 dictitem_T *di;
6484
6485 rettv->vval.v_number = -1;
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02006486
6487 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
6488 return;
6489
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006490 end = get_lval(tv_get_string(&argvars[0]), NULL, &lv, FALSE, FALSE,
Bram Moolenaar3a257732017-02-21 20:47:13 +01006491 GLV_NO_AUTOLOAD | GLV_READ_ONLY, FNE_CHECK_START);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006492 if (end != NULL && lv.ll_name != NULL)
6493 {
6494 if (*end != NUL)
Bram Moolenaar1840a7b2021-07-13 20:32:29 +02006495 {
6496 semsg(_(lv.ll_name == lv.ll_name_end
6497 ? e_invarg2 : e_trailing_arg), end);
6498 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006499 else
6500 {
6501 if (lv.ll_tv == NULL)
6502 {
Bram Moolenaar79518e22017-02-17 16:31:35 +01006503 di = find_var(lv.ll_name, NULL, TRUE);
6504 if (di != NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006505 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006506 // Consider a variable locked when:
6507 // 1. the variable itself is locked
6508 // 2. the value of the variable is locked.
6509 // 3. the List or Dict value is locked.
Bram Moolenaar79518e22017-02-17 16:31:35 +01006510 rettv->vval.v_number = ((di->di_flags & DI_FLAGS_LOCK)
6511 || tv_islocked(&di->di_tv));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006512 }
6513 }
6514 else if (lv.ll_range)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01006515 emsg(_("E786: Range not allowed"));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006516 else if (lv.ll_newkey != NULL)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01006517 semsg(_(e_dictkey), lv.ll_newkey);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006518 else if (lv.ll_list != NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006519 // List item.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006520 rettv->vval.v_number = tv_islocked(&lv.ll_li->li_tv);
6521 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006522 // Dictionary item.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006523 rettv->vval.v_number = tv_islocked(&lv.ll_di->di_tv);
6524 }
6525 }
6526
6527 clear_lval(&lv);
6528}
6529
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006530/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006531 * "last_buffer_nr()" function.
6532 */
6533 static void
6534f_last_buffer_nr(typval_T *argvars UNUSED, typval_T *rettv)
6535{
6536 int n = 0;
6537 buf_T *buf;
6538
Bram Moolenaar29323592016-07-24 22:04:11 +02006539 FOR_ALL_BUFFERS(buf)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006540 if (n < buf->b_fnum)
6541 n = buf->b_fnum;
6542
6543 rettv->vval.v_number = n;
6544}
6545
6546/*
6547 * "len()" function
6548 */
6549 static void
6550f_len(typval_T *argvars, typval_T *rettv)
6551{
6552 switch (argvars[0].v_type)
6553 {
6554 case VAR_STRING:
6555 case VAR_NUMBER:
6556 rettv->vval.v_number = (varnumber_T)STRLEN(
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006557 tv_get_string(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006558 break;
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01006559 case VAR_BLOB:
6560 rettv->vval.v_number = blob_len(argvars[0].vval.v_blob);
6561 break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006562 case VAR_LIST:
6563 rettv->vval.v_number = list_len(argvars[0].vval.v_list);
6564 break;
6565 case VAR_DICT:
6566 rettv->vval.v_number = dict_len(argvars[0].vval.v_dict);
6567 break;
6568 case VAR_UNKNOWN:
Bram Moolenaar4c683752020-04-05 21:38:23 +02006569 case VAR_ANY:
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01006570 case VAR_VOID:
Bram Moolenaar9b4a15d2020-01-11 16:05:23 +01006571 case VAR_BOOL:
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006572 case VAR_SPECIAL:
6573 case VAR_FLOAT:
6574 case VAR_FUNC:
6575 case VAR_PARTIAL:
6576 case VAR_JOB:
6577 case VAR_CHANNEL:
Bram Moolenaarf18332f2021-05-07 17:55:55 +02006578 case VAR_INSTR:
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01006579 emsg(_("E701: Invalid type for len()"));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006580 break;
6581 }
6582}
6583
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006584 static void
Bram Moolenaar6d721c72017-01-17 16:56:28 +01006585libcall_common(typval_T *argvars UNUSED, typval_T *rettv, int type)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006586{
6587#ifdef FEAT_LIBCALL
6588 char_u *string_in;
6589 char_u **string_result;
6590 int nr_result;
6591#endif
6592
6593 rettv->v_type = type;
6594 if (type != VAR_NUMBER)
6595 rettv->vval.v_string = NULL;
6596
6597 if (check_restricted() || check_secure())
6598 return;
6599
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02006600 if (in_vim9script()
6601 && (check_for_string_arg(argvars, 0) == FAIL
6602 || check_for_string_arg(argvars, 1) == FAIL
6603 || check_for_string_or_number_arg(argvars, 2) == FAIL))
6604 return;
6605
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006606#ifdef FEAT_LIBCALL
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006607 // The first two args must be strings, otherwise it's meaningless
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006608 if (argvars[0].v_type == VAR_STRING && argvars[1].v_type == VAR_STRING)
6609 {
6610 string_in = NULL;
6611 if (argvars[2].v_type == VAR_STRING)
6612 string_in = argvars[2].vval.v_string;
6613 if (type == VAR_NUMBER)
6614 string_result = NULL;
6615 else
6616 string_result = &rettv->vval.v_string;
6617 if (mch_libcall(argvars[0].vval.v_string,
6618 argvars[1].vval.v_string,
6619 string_in,
6620 argvars[2].vval.v_number,
6621 string_result,
6622 &nr_result) == OK
6623 && type == VAR_NUMBER)
6624 rettv->vval.v_number = nr_result;
6625 }
6626#endif
6627}
6628
6629/*
6630 * "libcall()" function
6631 */
6632 static void
6633f_libcall(typval_T *argvars, typval_T *rettv)
6634{
6635 libcall_common(argvars, rettv, VAR_STRING);
6636}
6637
6638/*
6639 * "libcallnr()" function
6640 */
6641 static void
6642f_libcallnr(typval_T *argvars, typval_T *rettv)
6643{
6644 libcall_common(argvars, rettv, VAR_NUMBER);
6645}
6646
6647/*
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006648 * "line(string, [winid])" function
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006649 */
6650 static void
6651f_line(typval_T *argvars, typval_T *rettv)
6652{
6653 linenr_T lnum = 0;
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006654 pos_T *fp = NULL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006655 int fnum;
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006656 int id;
6657 tabpage_T *tp;
6658 win_T *wp;
6659 win_T *save_curwin;
6660 tabpage_T *save_curtab;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006661
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02006662 if (in_vim9script()
6663 && (check_for_string_arg(argvars, 0) == FAIL
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006664 || check_for_opt_number_arg(argvars, 1) == FAIL))
Yegappan Lakshmanan1a71d312021-07-15 12:49:58 +02006665 return;
6666
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006667 if (argvars[1].v_type != VAR_UNKNOWN)
6668 {
6669 // use window specified in the second argument
6670 id = (int)tv_get_number(&argvars[1]);
6671 wp = win_id2wp_tp(id, &tp);
6672 if (wp != NULL && tp != NULL)
6673 {
6674 if (switch_win_noblock(&save_curwin, &save_curtab, wp, tp, TRUE)
6675 == OK)
6676 {
6677 check_cursor();
Bram Moolenaar6f02b002021-01-10 20:22:54 +01006678 fp = var2fpos(&argvars[0], TRUE, &fnum, FALSE);
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006679 }
6680 restore_win_noblock(save_curwin, save_curtab, TRUE);
6681 }
6682 }
6683 else
6684 // use current window
Bram Moolenaar6f02b002021-01-10 20:22:54 +01006685 fp = var2fpos(&argvars[0], TRUE, &fnum, FALSE);
Bram Moolenaar8e0a8e72019-09-02 22:56:24 +02006686
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006687 if (fp != NULL)
6688 lnum = fp->lnum;
6689 rettv->vval.v_number = lnum;
6690}
6691
6692/*
6693 * "line2byte(lnum)" function
6694 */
6695 static void
6696f_line2byte(typval_T *argvars UNUSED, typval_T *rettv)
6697{
6698#ifndef FEAT_BYTEOFF
6699 rettv->vval.v_number = -1;
6700#else
6701 linenr_T lnum;
6702
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006703 if (in_vim9script() && check_for_lnum_arg(argvars, 0) == FAIL)
6704 return;
6705
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006706 lnum = tv_get_lnum(argvars);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006707 if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count + 1)
6708 rettv->vval.v_number = -1;
6709 else
6710 rettv->vval.v_number = ml_find_line_or_offset(curbuf, lnum, NULL);
6711 if (rettv->vval.v_number >= 0)
6712 ++rettv->vval.v_number;
6713#endif
6714}
6715
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006716#ifdef FEAT_LUA
6717/*
6718 * "luaeval()" function
6719 */
6720 static void
6721f_luaeval(typval_T *argvars, typval_T *rettv)
6722{
6723 char_u *str;
6724 char_u buf[NUMBUFLEN];
6725
Bram Moolenaar8c62a082019-02-08 14:34:10 +01006726 if (check_restricted() || check_secure())
6727 return;
6728
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02006729 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
6730 return;
6731
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006732 str = tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006733 do_luaeval(str, argvars + 1, rettv);
6734}
6735#endif
6736
6737/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006738 * "maparg()" function
6739 */
6740 static void
6741f_maparg(typval_T *argvars, typval_T *rettv)
6742{
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006743 if (in_vim9script()
6744 && (check_for_string_arg(argvars, 0) == FAIL
6745 || check_for_opt_string_arg(argvars, 1) == FAIL
6746 || (argvars[1].v_type != VAR_UNKNOWN
6747 && (check_for_opt_bool_arg(argvars, 2) == FAIL
6748 || (argvars[2].v_type != VAR_UNKNOWN
6749 && check_for_opt_bool_arg(argvars, 3) == FAIL)))))
6750 return;
6751
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006752 get_maparg(argvars, rettv, TRUE);
6753}
6754
6755/*
6756 * "mapcheck()" function
6757 */
6758 static void
6759f_mapcheck(typval_T *argvars, typval_T *rettv)
6760{
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006761 if (in_vim9script()
6762 && (check_for_string_arg(argvars, 0) == FAIL
6763 || check_for_opt_string_arg(argvars, 1) == FAIL
6764 || (argvars[1].v_type != VAR_UNKNOWN
6765 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
6766 return;
6767
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006768 get_maparg(argvars, rettv, FALSE);
6769}
6770
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006771typedef enum
6772{
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006773 MATCH_END, // matchend()
6774 MATCH_MATCH, // match()
6775 MATCH_STR, // matchstr()
6776 MATCH_LIST, // matchlist()
6777 MATCH_POS // matchstrpos()
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006778} matchtype_T;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006779
6780 static void
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006781find_some_match(typval_T *argvars, typval_T *rettv, matchtype_T type)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006782{
6783 char_u *str = NULL;
6784 long len = 0;
6785 char_u *expr = NULL;
6786 char_u *pat;
6787 regmatch_T regmatch;
6788 char_u patbuf[NUMBUFLEN];
6789 char_u strbuf[NUMBUFLEN];
6790 char_u *save_cpo;
6791 long start = 0;
6792 long nth = 1;
6793 colnr_T startcol = 0;
6794 int match = 0;
6795 list_T *l = NULL;
6796 listitem_T *li = NULL;
6797 long idx = 0;
6798 char_u *tofree = NULL;
6799
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006800 // Make 'cpoptions' empty, the 'l' flag should not be used here.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006801 save_cpo = p_cpo;
Bram Moolenaare5a2dc82021-01-03 19:52:05 +01006802 p_cpo = empty_option;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006803
6804 rettv->vval.v_number = -1;
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006805 if (type == MATCH_LIST || type == MATCH_POS)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006806 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006807 // type MATCH_LIST: return empty list when there are no matches.
6808 // type MATCH_POS: return ["", -1, -1, -1]
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006809 if (rettv_list_alloc(rettv) == FAIL)
6810 goto theend;
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006811 if (type == MATCH_POS
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006812 && (list_append_string(rettv->vval.v_list,
6813 (char_u *)"", 0) == FAIL
6814 || list_append_number(rettv->vval.v_list,
6815 (varnumber_T)-1) == FAIL
6816 || list_append_number(rettv->vval.v_list,
6817 (varnumber_T)-1) == FAIL
6818 || list_append_number(rettv->vval.v_list,
6819 (varnumber_T)-1) == FAIL))
6820 {
6821 list_free(rettv->vval.v_list);
6822 rettv->vval.v_list = NULL;
6823 goto theend;
6824 }
6825 }
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006826 else if (type == MATCH_STR)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006827 {
6828 rettv->v_type = VAR_STRING;
6829 rettv->vval.v_string = NULL;
6830 }
6831
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02006832 if (in_vim9script()
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02006833 && (check_for_string_or_list_arg(argvars, 0) == FAIL
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006834 || check_for_string_arg(argvars, 1) == FAIL
6835 || check_for_opt_number_arg(argvars, 2) == FAIL
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02006836 || (argvars[2].v_type != VAR_UNKNOWN
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02006837 && check_for_opt_number_arg(argvars, 3) == FAIL)))
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02006838 goto theend;
6839
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006840 if (argvars[0].v_type == VAR_LIST)
6841 {
6842 if ((l = argvars[0].vval.v_list) == NULL)
6843 goto theend;
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02006844 CHECK_LIST_MATERIALIZE(l);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006845 li = l->lv_first;
6846 }
6847 else
6848 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006849 expr = str = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006850 len = (long)STRLEN(str);
6851 }
6852
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006853 pat = tv_get_string_buf_chk(&argvars[1], patbuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006854 if (pat == NULL)
6855 goto theend;
6856
6857 if (argvars[2].v_type != VAR_UNKNOWN)
6858 {
6859 int error = FALSE;
6860
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006861 start = (long)tv_get_number_chk(&argvars[2], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006862 if (error)
6863 goto theend;
6864 if (l != NULL)
6865 {
6866 li = list_find(l, start);
6867 if (li == NULL)
6868 goto theend;
Bram Moolenaar0ff6aad2020-01-29 21:27:21 +01006869 idx = l->lv_u.mat.lv_idx; // use the cached index
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006870 }
6871 else
6872 {
6873 if (start < 0)
6874 start = 0;
6875 if (start > len)
6876 goto theend;
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006877 // When "count" argument is there ignore matches before "start",
6878 // otherwise skip part of the string. Differs when pattern is "^"
6879 // or "\<".
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006880 if (argvars[3].v_type != VAR_UNKNOWN)
6881 startcol = start;
6882 else
6883 {
6884 str += start;
6885 len -= start;
6886 }
6887 }
6888
6889 if (argvars[3].v_type != VAR_UNKNOWN)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01006890 nth = (long)tv_get_number_chk(&argvars[3], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006891 if (error)
6892 goto theend;
6893 }
6894
6895 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
6896 if (regmatch.regprog != NULL)
6897 {
6898 regmatch.rm_ic = p_ic;
6899
6900 for (;;)
6901 {
6902 if (l != NULL)
6903 {
6904 if (li == NULL)
6905 {
6906 match = FALSE;
6907 break;
6908 }
6909 vim_free(tofree);
6910 expr = str = echo_string(&li->li_tv, &tofree, strbuf, 0);
6911 if (str == NULL)
6912 break;
6913 }
6914
6915 match = vim_regexec_nl(&regmatch, str, (colnr_T)startcol);
6916
6917 if (match && --nth <= 0)
6918 break;
6919 if (l == NULL && !match)
6920 break;
6921
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006922 // Advance to just after the match.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006923 if (l != NULL)
6924 {
6925 li = li->li_next;
6926 ++idx;
6927 }
6928 else
6929 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006930 startcol = (colnr_T)(regmatch.startp[0]
6931 + (*mb_ptr2len)(regmatch.startp[0]) - str);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006932 if (startcol > (colnr_T)len
6933 || str + startcol <= regmatch.startp[0])
6934 {
6935 match = FALSE;
6936 break;
6937 }
6938 }
6939 }
6940
6941 if (match)
6942 {
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006943 if (type == MATCH_POS)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006944 {
6945 listitem_T *li1 = rettv->vval.v_list->lv_first;
6946 listitem_T *li2 = li1->li_next;
6947 listitem_T *li3 = li2->li_next;
6948 listitem_T *li4 = li3->li_next;
6949
6950 vim_free(li1->li_tv.vval.v_string);
6951 li1->li_tv.vval.v_string = vim_strnsave(regmatch.startp[0],
Bram Moolenaardf44a272020-06-07 20:49:05 +02006952 regmatch.endp[0] - regmatch.startp[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006953 li3->li_tv.vval.v_number =
6954 (varnumber_T)(regmatch.startp[0] - expr);
6955 li4->li_tv.vval.v_number =
6956 (varnumber_T)(regmatch.endp[0] - expr);
6957 if (l != NULL)
6958 li2->li_tv.vval.v_number = (varnumber_T)idx;
6959 }
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006960 else if (type == MATCH_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006961 {
6962 int i;
6963
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006964 // return list with matched string and submatches
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006965 for (i = 0; i < NSUBEXP; ++i)
6966 {
6967 if (regmatch.endp[i] == NULL)
6968 {
6969 if (list_append_string(rettv->vval.v_list,
6970 (char_u *)"", 0) == FAIL)
6971 break;
6972 }
6973 else if (list_append_string(rettv->vval.v_list,
6974 regmatch.startp[i],
6975 (int)(regmatch.endp[i] - regmatch.startp[i]))
6976 == FAIL)
6977 break;
6978 }
6979 }
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006980 else if (type == MATCH_STR)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006981 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01006982 // return matched string
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006983 if (l != NULL)
6984 copy_tv(&li->li_tv, rettv);
6985 else
6986 rettv->vval.v_string = vim_strnsave(regmatch.startp[0],
Bram Moolenaardf44a272020-06-07 20:49:05 +02006987 regmatch.endp[0] - regmatch.startp[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006988 }
6989 else if (l != NULL)
6990 rettv->vval.v_number = idx;
6991 else
6992 {
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02006993 if (type != MATCH_END)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02006994 rettv->vval.v_number =
6995 (varnumber_T)(regmatch.startp[0] - str);
6996 else
6997 rettv->vval.v_number =
6998 (varnumber_T)(regmatch.endp[0] - str);
6999 rettv->vval.v_number += (varnumber_T)(str - expr);
7000 }
7001 }
7002 vim_regfree(regmatch.regprog);
7003 }
7004
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007005theend:
7006 if (type == MATCH_POS && l == NULL && rettv->vval.v_list != NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007007 // matchstrpos() without a list: drop the second item.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007008 listitem_remove(rettv->vval.v_list,
7009 rettv->vval.v_list->lv_first->li_next);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007010 vim_free(tofree);
7011 p_cpo = save_cpo;
7012}
7013
7014/*
7015 * "match()" function
7016 */
7017 static void
7018f_match(typval_T *argvars, typval_T *rettv)
7019{
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007020 find_some_match(argvars, rettv, MATCH_MATCH);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007021}
7022
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007023/*
7024 * "matchend()" function
7025 */
7026 static void
7027f_matchend(typval_T *argvars, typval_T *rettv)
7028{
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007029 find_some_match(argvars, rettv, MATCH_END);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007030}
7031
7032/*
7033 * "matchlist()" function
7034 */
7035 static void
7036f_matchlist(typval_T *argvars, typval_T *rettv)
7037{
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007038 find_some_match(argvars, rettv, MATCH_LIST);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007039}
7040
7041/*
7042 * "matchstr()" function
7043 */
7044 static void
7045f_matchstr(typval_T *argvars, typval_T *rettv)
7046{
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007047 find_some_match(argvars, rettv, MATCH_STR);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007048}
7049
7050/*
7051 * "matchstrpos()" function
7052 */
7053 static void
7054f_matchstrpos(typval_T *argvars, typval_T *rettv)
7055{
Bram Moolenaar8d9f0ef2017-08-27 13:51:01 +02007056 find_some_match(argvars, rettv, MATCH_POS);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007057}
7058
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007059 static void
7060max_min(typval_T *argvars, typval_T *rettv, int domax)
7061{
7062 varnumber_T n = 0;
7063 varnumber_T i;
7064 int error = FALSE;
7065
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007066 if (in_vim9script() && check_for_list_or_dict_arg(argvars, 0) == FAIL)
7067 return;
7068
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007069 if (argvars[0].v_type == VAR_LIST)
7070 {
7071 list_T *l;
7072 listitem_T *li;
7073
7074 l = argvars[0].vval.v_list;
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007075 if (l != NULL && l->lv_len > 0)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007076 {
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007077 if (l->lv_first == &range_list_item)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007078 {
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007079 if ((l->lv_u.nonmat.lv_stride > 0) ^ domax)
7080 n = l->lv_u.nonmat.lv_start;
7081 else
7082 n = l->lv_u.nonmat.lv_start + (l->lv_len - 1)
7083 * l->lv_u.nonmat.lv_stride;
7084 }
7085 else
7086 {
7087 li = l->lv_first;
7088 if (li != NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007089 {
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007090 n = tv_get_number_chk(&li->li_tv, &error);
Bram Moolenaarab65fc72021-02-04 22:07:16 +01007091 if (error)
7092 return; // type error; errmsg already given
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007093 for (;;)
7094 {
7095 li = li->li_next;
7096 if (li == NULL)
7097 break;
7098 i = tv_get_number_chk(&li->li_tv, &error);
Bram Moolenaarab65fc72021-02-04 22:07:16 +01007099 if (error)
7100 return; // type error; errmsg already given
Bram Moolenaar9f2d0202020-01-30 16:40:10 +01007101 if (domax ? i > n : i < n)
7102 n = i;
7103 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007104 }
7105 }
7106 }
7107 }
7108 else if (argvars[0].v_type == VAR_DICT)
7109 {
7110 dict_T *d;
7111 int first = TRUE;
7112 hashitem_T *hi;
7113 int todo;
7114
7115 d = argvars[0].vval.v_dict;
7116 if (d != NULL)
7117 {
7118 todo = (int)d->dv_hashtab.ht_used;
7119 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
7120 {
7121 if (!HASHITEM_EMPTY(hi))
7122 {
7123 --todo;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007124 i = tv_get_number_chk(&HI2DI(hi)->di_tv, &error);
Bram Moolenaarab65fc72021-02-04 22:07:16 +01007125 if (error)
7126 return; // type error; errmsg already given
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007127 if (first)
7128 {
7129 n = i;
7130 first = FALSE;
7131 }
7132 else if (domax ? i > n : i < n)
7133 n = i;
7134 }
7135 }
7136 }
7137 }
7138 else
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01007139 semsg(_(e_listdictarg), domax ? "max()" : "min()");
Bram Moolenaarab65fc72021-02-04 22:07:16 +01007140
7141 rettv->vval.v_number = n;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007142}
7143
7144/*
7145 * "max()" function
7146 */
7147 static void
7148f_max(typval_T *argvars, typval_T *rettv)
7149{
7150 max_min(argvars, rettv, TRUE);
7151}
7152
7153/*
7154 * "min()" function
7155 */
7156 static void
7157f_min(typval_T *argvars, typval_T *rettv)
7158{
7159 max_min(argvars, rettv, FALSE);
7160}
7161
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007162#if defined(FEAT_MZSCHEME) || defined(PROTO)
7163/*
7164 * "mzeval()" function
7165 */
7166 static void
7167f_mzeval(typval_T *argvars, typval_T *rettv)
7168{
7169 char_u *str;
7170 char_u buf[NUMBUFLEN];
7171
Bram Moolenaar8c62a082019-02-08 14:34:10 +01007172 if (check_restricted() || check_secure())
7173 return;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007174
7175 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
7176 return;
7177
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007178 str = tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007179 do_mzeval(str, rettv);
7180}
7181
7182 void
7183mzscheme_call_vim(char_u *name, typval_T *args, typval_T *rettv)
7184{
7185 typval_T argvars[3];
7186
7187 argvars[0].v_type = VAR_STRING;
7188 argvars[0].vval.v_string = name;
7189 copy_tv(args, &argvars[1]);
7190 argvars[2].v_type = VAR_UNKNOWN;
7191 f_call(argvars, rettv);
7192 clear_tv(&argvars[1]);
7193}
7194#endif
7195
7196/*
7197 * "nextnonblank()" function
7198 */
7199 static void
7200f_nextnonblank(typval_T *argvars, typval_T *rettv)
7201{
7202 linenr_T lnum;
7203
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007204 if (in_vim9script() && check_for_lnum_arg(argvars, 0) == FAIL)
7205 return;
7206
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007207 for (lnum = tv_get_lnum(argvars); ; ++lnum)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007208 {
7209 if (lnum < 0 || lnum > curbuf->b_ml.ml_line_count)
7210 {
7211 lnum = 0;
7212 break;
7213 }
7214 if (*skipwhite(ml_get(lnum)) != NUL)
7215 break;
7216 }
7217 rettv->vval.v_number = lnum;
7218}
7219
7220/*
7221 * "nr2char()" function
7222 */
7223 static void
7224f_nr2char(typval_T *argvars, typval_T *rettv)
7225{
7226 char_u buf[NUMBUFLEN];
7227
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02007228 if (in_vim9script()
7229 && (check_for_number_arg(argvars, 0) == FAIL
7230 || check_for_opt_bool_arg(argvars, 1) == FAIL))
7231 return;
7232
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007233 if (has_mbyte)
7234 {
7235 int utf8 = 0;
7236
7237 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaared6a4302020-09-05 20:29:41 +02007238 utf8 = (int)tv_get_bool_chk(&argvars[1], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007239 if (utf8)
Bram Moolenaarbdace832019-03-02 10:13:42 +01007240 buf[utf_char2bytes((int)tv_get_number(&argvars[0]), buf)] = NUL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007241 else
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007242 buf[(*mb_char2bytes)((int)tv_get_number(&argvars[0]), buf)] = NUL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007243 }
7244 else
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007245 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007246 buf[0] = (char_u)tv_get_number(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007247 buf[1] = NUL;
7248 }
7249 rettv->v_type = VAR_STRING;
7250 rettv->vval.v_string = vim_strsave(buf);
7251}
7252
7253/*
7254 * "or(expr, expr)" function
7255 */
7256 static void
7257f_or(typval_T *argvars, typval_T *rettv)
7258{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007259 if (in_vim9script()
7260 && (check_for_number_arg(argvars, 0) == FAIL
7261 || check_for_number_arg(argvars, 1) == FAIL))
7262 return;
7263
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007264 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
7265 | tv_get_number_chk(&argvars[1], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007266}
7267
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007268#ifdef FEAT_PERL
7269/*
7270 * "perleval()" function
7271 */
7272 static void
7273f_perleval(typval_T *argvars, typval_T *rettv)
7274{
7275 char_u *str;
7276 char_u buf[NUMBUFLEN];
7277
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007278 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
7279 return;
7280
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007281 str = tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007282 do_perleval(str, rettv);
7283}
7284#endif
7285
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007286/*
7287 * "prevnonblank()" function
7288 */
7289 static void
7290f_prevnonblank(typval_T *argvars, typval_T *rettv)
7291{
7292 linenr_T lnum;
7293
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007294 if (in_vim9script() && check_for_lnum_arg(argvars, 0) == FAIL)
7295 return;
7296
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007297 lnum = tv_get_lnum(argvars);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007298 if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count)
7299 lnum = 0;
7300 else
7301 while (lnum >= 1 && *skipwhite(ml_get(lnum)) == NUL)
7302 --lnum;
7303 rettv->vval.v_number = lnum;
7304}
7305
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007306// This dummy va_list is here because:
7307// - passing a NULL pointer doesn't work when va_list isn't a pointer
7308// - locally in the function results in a "used before set" warning
7309// - using va_start() to initialize it gives "function with fixed args" error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007310static va_list ap;
7311
7312/*
7313 * "printf()" function
7314 */
7315 static void
7316f_printf(typval_T *argvars, typval_T *rettv)
7317{
7318 char_u buf[NUMBUFLEN];
7319 int len;
7320 char_u *s;
7321 int saved_did_emsg = did_emsg;
7322 char *fmt;
7323
7324 rettv->v_type = VAR_STRING;
7325 rettv->vval.v_string = NULL;
7326
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02007327 if (in_vim9script() && check_for_string_or_number_arg(argvars, 0) == FAIL)
7328 return;
7329
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007330 // Get the required length, allocate the buffer and do it for real.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007331 did_emsg = FALSE;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007332 fmt = (char *)tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar8327d1d2017-07-11 22:34:51 +02007333 len = vim_vsnprintf_typval(NULL, 0, fmt, ap, argvars + 1);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007334 if (!did_emsg)
7335 {
7336 s = alloc(len + 1);
7337 if (s != NULL)
7338 {
7339 rettv->vval.v_string = s;
Bram Moolenaar8327d1d2017-07-11 22:34:51 +02007340 (void)vim_vsnprintf_typval((char *)s, len + 1, fmt,
7341 ap, argvars + 1);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007342 }
7343 }
7344 did_emsg |= saved_did_emsg;
7345}
7346
7347/*
Bram Moolenaare9bd5722019-08-17 19:36:06 +02007348 * "pum_getpos()" function
7349 */
7350 static void
7351f_pum_getpos(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
7352{
7353 if (rettv_dict_alloc(rettv) != OK)
7354 return;
Bram Moolenaare9bd5722019-08-17 19:36:06 +02007355 pum_set_event_info(rettv->vval.v_dict);
Bram Moolenaare9bd5722019-08-17 19:36:06 +02007356}
7357
7358/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007359 * "pumvisible()" function
7360 */
7361 static void
7362f_pumvisible(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
7363{
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007364 if (pum_visible())
7365 rettv->vval.v_number = 1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007366}
7367
7368#ifdef FEAT_PYTHON3
7369/*
7370 * "py3eval()" function
7371 */
7372 static void
7373f_py3eval(typval_T *argvars, typval_T *rettv)
7374{
7375 char_u *str;
7376 char_u buf[NUMBUFLEN];
7377
Bram Moolenaar8c62a082019-02-08 14:34:10 +01007378 if (check_restricted() || check_secure())
7379 return;
7380
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007381 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
7382 return;
7383
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01007384 if (p_pyx == 0)
7385 p_pyx = 3;
7386
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007387 str = tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007388 do_py3eval(str, rettv);
7389}
7390#endif
7391
7392#ifdef FEAT_PYTHON
7393/*
7394 * "pyeval()" function
7395 */
7396 static void
7397f_pyeval(typval_T *argvars, typval_T *rettv)
7398{
7399 char_u *str;
7400 char_u buf[NUMBUFLEN];
7401
Bram Moolenaar8c62a082019-02-08 14:34:10 +01007402 if (check_restricted() || check_secure())
7403 return;
7404
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007405 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
7406 return;
7407
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01007408 if (p_pyx == 0)
7409 p_pyx = 2;
7410
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007411 str = tv_get_string_buf(&argvars[0], buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007412 do_pyeval(str, rettv);
7413}
7414#endif
7415
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01007416#if defined(FEAT_PYTHON) || defined(FEAT_PYTHON3)
7417/*
7418 * "pyxeval()" function
7419 */
7420 static void
7421f_pyxeval(typval_T *argvars, typval_T *rettv)
7422{
Bram Moolenaar8c62a082019-02-08 14:34:10 +01007423 if (check_restricted() || check_secure())
7424 return;
7425
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007426 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
7427 return;
7428
Bram Moolenaarf42dd3c2017-01-28 16:06:38 +01007429# if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7430 init_pyxversion();
7431 if (p_pyx == 2)
7432 f_pyeval(argvars, rettv);
7433 else
7434 f_py3eval(argvars, rettv);
7435# elif defined(FEAT_PYTHON)
7436 f_pyeval(argvars, rettv);
7437# elif defined(FEAT_PYTHON3)
7438 f_py3eval(argvars, rettv);
7439# endif
7440}
7441#endif
7442
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007443static UINT32_T srand_seed_for_testing = 0;
7444static int srand_seed_for_testing_is_used = FALSE;
7445
7446 static void
7447f_test_srand_seed(typval_T *argvars, typval_T *rettv UNUSED)
7448{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007449 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
7450 return;
7451
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007452 if (argvars[0].v_type == VAR_UNKNOWN)
Bram Moolenaar7633fe52020-06-22 19:10:56 +02007453 srand_seed_for_testing_is_used = FALSE;
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007454 else
7455 {
Bram Moolenaar7633fe52020-06-22 19:10:56 +02007456 srand_seed_for_testing = (UINT32_T)tv_get_number(&argvars[0]);
7457 srand_seed_for_testing_is_used = TRUE;
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007458 }
7459}
7460
7461 static void
7462init_srand(UINT32_T *x)
7463{
7464#ifndef MSWIN
7465 static int dev_urandom_state = NOTDONE; // FAIL or OK once tried
7466#endif
7467
7468 if (srand_seed_for_testing_is_used)
7469 {
Bram Moolenaar7633fe52020-06-22 19:10:56 +02007470 *x = srand_seed_for_testing;
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007471 return;
7472 }
7473#ifndef MSWIN
7474 if (dev_urandom_state != FAIL)
7475 {
7476 int fd = open("/dev/urandom", O_RDONLY);
7477 struct {
7478 union {
7479 UINT32_T number;
7480 char bytes[sizeof(UINT32_T)];
7481 } contents;
7482 } buf;
7483
7484 // Attempt reading /dev/urandom.
7485 if (fd == -1)
7486 dev_urandom_state = FAIL;
7487 else
7488 {
7489 buf.contents.number = 0;
7490 if (read(fd, buf.contents.bytes, sizeof(UINT32_T))
7491 != sizeof(UINT32_T))
7492 dev_urandom_state = FAIL;
7493 else
7494 {
7495 dev_urandom_state = OK;
7496 *x = buf.contents.number;
7497 }
7498 close(fd);
7499 }
7500 }
7501 if (dev_urandom_state != OK)
7502 // Reading /dev/urandom doesn't work, fall back to time().
7503#endif
7504 *x = vim_time();
7505}
7506
7507#define ROTL(x, k) ((x << k) | (x >> (32 - k)))
7508#define SPLITMIX32(x, z) ( \
7509 z = (x += 0x9e3779b9), \
7510 z = (z ^ (z >> 16)) * 0x85ebca6b, \
7511 z = (z ^ (z >> 13)) * 0xc2b2ae35, \
7512 z ^ (z >> 16) \
7513 )
7514#define SHUFFLE_XOSHIRO128STARSTAR(x, y, z, w) \
7515 result = ROTL(y * 5, 7) * 9; \
7516 t = y << 9; \
7517 z ^= x; \
7518 w ^= y; \
7519 y ^= z, x ^= w; \
7520 z ^= t; \
7521 w = ROTL(w, 11);
7522
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007523/*
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007524 * "rand()" function
7525 */
7526 static void
7527f_rand(typval_T *argvars, typval_T *rettv)
7528{
7529 list_T *l = NULL;
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007530 static UINT32_T gx, gy, gz, gw;
7531 static int initialized = FALSE;
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007532 listitem_T *lx, *ly, *lz, *lw;
Bram Moolenaar0fd797e2020-11-05 20:46:32 +01007533 UINT32_T x = 0, y, z, w, t, result;
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007534
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007535 if (in_vim9script() && check_for_opt_list_arg(argvars, 0) == FAIL)
7536 return;
7537
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007538 if (argvars[0].v_type == VAR_UNKNOWN)
7539 {
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007540 // When no argument is given use the global seed list.
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007541 if (initialized == FALSE)
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007542 {
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007543 // Initialize the global seed list.
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007544 init_srand(&x);
7545
7546 gx = SPLITMIX32(x, z);
7547 gy = SPLITMIX32(x, z);
7548 gz = SPLITMIX32(x, z);
7549 gw = SPLITMIX32(x, z);
7550 initialized = TRUE;
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007551 }
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007552
7553 SHUFFLE_XOSHIRO128STARSTAR(gx, gy, gz, gw);
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007554 }
7555 else if (argvars[0].v_type == VAR_LIST)
7556 {
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007557 l = argvars[0].vval.v_list;
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007558 if (l == NULL || list_len(l) != 4)
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007559 goto theend;
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007560
7561 lx = list_find(l, 0L);
7562 ly = list_find(l, 1L);
7563 lz = list_find(l, 2L);
7564 lw = list_find(l, 3L);
7565 if (lx->li_tv.v_type != VAR_NUMBER) goto theend;
7566 if (ly->li_tv.v_type != VAR_NUMBER) goto theend;
7567 if (lz->li_tv.v_type != VAR_NUMBER) goto theend;
7568 if (lw->li_tv.v_type != VAR_NUMBER) goto theend;
7569 x = (UINT32_T)lx->li_tv.vval.v_number;
7570 y = (UINT32_T)ly->li_tv.vval.v_number;
7571 z = (UINT32_T)lz->li_tv.vval.v_number;
7572 w = (UINT32_T)lw->li_tv.vval.v_number;
7573
7574 SHUFFLE_XOSHIRO128STARSTAR(x, y, z, w);
7575
7576 lx->li_tv.vval.v_number = (varnumber_T)x;
7577 ly->li_tv.vval.v_number = (varnumber_T)y;
7578 lz->li_tv.vval.v_number = (varnumber_T)z;
7579 lw->li_tv.vval.v_number = (varnumber_T)w;
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007580 }
7581 else
7582 goto theend;
7583
7584 rettv->v_type = VAR_NUMBER;
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007585 rettv->vval.v_number = (varnumber_T)result;
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007586 return;
7587
7588theend:
7589 semsg(_(e_invarg2), tv_get_string(&argvars[0]));
Bram Moolenaarf8c1f922019-11-28 22:13:14 +01007590 rettv->v_type = VAR_NUMBER;
7591 rettv->vval.v_number = -1;
Bram Moolenaar06b0b4b2019-11-25 15:40:55 +01007592}
7593
7594/*
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007595 * "srand()" function
7596 */
7597 static void
7598f_srand(typval_T *argvars, typval_T *rettv)
7599{
7600 UINT32_T x = 0, z;
7601
7602 if (rettv_list_alloc(rettv) == FAIL)
7603 return;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007604
7605 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
7606 return;
7607
Bram Moolenaar4f645c52020-02-08 16:40:39 +01007608 if (argvars[0].v_type == VAR_UNKNOWN)
7609 {
7610 init_srand(&x);
7611 }
7612 else
7613 {
7614 int error = FALSE;
7615
7616 x = (UINT32_T)tv_get_number_chk(&argvars[0], &error);
7617 if (error)
7618 return;
7619 }
7620
7621 list_append_number(rettv->vval.v_list, (varnumber_T)SPLITMIX32(x, z));
7622 list_append_number(rettv->vval.v_list, (varnumber_T)SPLITMIX32(x, z));
7623 list_append_number(rettv->vval.v_list, (varnumber_T)SPLITMIX32(x, z));
7624 list_append_number(rettv->vval.v_list, (varnumber_T)SPLITMIX32(x, z));
7625}
7626
7627#undef ROTL
7628#undef SPLITMIX32
7629#undef SHUFFLE_XOSHIRO128STARSTAR
7630
7631/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007632 * "range()" function
7633 */
7634 static void
7635f_range(typval_T *argvars, typval_T *rettv)
7636{
7637 varnumber_T start;
7638 varnumber_T end;
7639 varnumber_T stride = 1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007640 int error = FALSE;
7641
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007642 if (in_vim9script()
7643 && (check_for_number_arg(argvars, 0) == FAIL
7644 || check_for_opt_number_arg(argvars, 1) == FAIL
7645 || (argvars[1].v_type != VAR_UNKNOWN
7646 && check_for_opt_number_arg(argvars, 2) == FAIL)))
7647 return;
7648
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007649 start = tv_get_number_chk(&argvars[0], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007650 if (argvars[1].v_type == VAR_UNKNOWN)
7651 {
7652 end = start - 1;
7653 start = 0;
7654 }
7655 else
7656 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007657 end = tv_get_number_chk(&argvars[1], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007658 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007659 stride = tv_get_number_chk(&argvars[2], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007660 }
7661
7662 if (error)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007663 return; // type error; errmsg already given
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007664 if (stride == 0)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01007665 emsg(_("E726: Stride is zero"));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007666 else if (stride > 0 ? end + 1 < start : end - 1 > start)
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01007667 emsg(_("E727: Start past end"));
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007668 else if (rettv_list_alloc(rettv) == OK)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007669 {
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007670 list_T *list = rettv->vval.v_list;
7671
7672 // Create a non-materialized list. This is much more efficient and
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02007673 // works with ":for". If used otherwise CHECK_LIST_MATERIALIZE() must
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007674 // be called.
7675 list->lv_first = &range_list_item;
Bram Moolenaar0ff6aad2020-01-29 21:27:21 +01007676 list->lv_u.nonmat.lv_start = start;
7677 list->lv_u.nonmat.lv_end = end;
7678 list->lv_u.nonmat.lv_stride = stride;
Bram Moolenaar50985eb2020-01-27 22:09:39 +01007679 list->lv_len = (end - start) / stride + 1;
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007680 }
7681}
7682
7683/*
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02007684 * Materialize "list".
7685 * Do not call directly, use CHECK_LIST_MATERIALIZE()
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007686 */
7687 void
7688range_list_materialize(list_T *list)
7689{
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02007690 varnumber_T start = list->lv_u.nonmat.lv_start;
7691 varnumber_T end = list->lv_u.nonmat.lv_end;
7692 int stride = list->lv_u.nonmat.lv_stride;
7693 varnumber_T i;
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01007694
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02007695 list->lv_first = NULL;
7696 list->lv_u.mat.lv_last = NULL;
7697 list->lv_len = 0;
7698 list->lv_u.mat.lv_idx_item = NULL;
7699 for (i = start; stride > 0 ? i <= end : i >= end; i += stride)
7700 if (list_append_number(list, (varnumber_T)i) == FAIL)
7701 break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007702}
7703
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007704/*
7705 * "getreginfo()" function
7706 */
7707 static void
7708f_getreginfo(typval_T *argvars, typval_T *rettv)
7709{
7710 char_u *strregname;
7711 int regname;
7712 char_u buf[NUMBUFLEN + 2];
7713 long reglen = 0;
7714 dict_T *dict;
7715 list_T *list;
7716
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007717 if (in_vim9script() && check_for_opt_string_arg(argvars, 0) == FAIL)
7718 return;
7719
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007720 if (argvars[0].v_type != VAR_UNKNOWN)
7721 {
7722 strregname = tv_get_string_chk(&argvars[0]);
7723 if (strregname == NULL)
7724 return;
Bram Moolenaar418a29f2021-02-10 22:23:41 +01007725 if (in_vim9script() && STRLEN(strregname) > 1)
7726 {
7727 semsg(_(e_register_name_must_be_one_char_str), strregname);
7728 return;
7729 }
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007730 }
7731 else
7732 strregname = get_vim_var_str(VV_REG);
7733
7734 regname = (strregname == NULL ? '"' : *strregname);
7735 if (regname == 0 || regname == '@')
7736 regname = '"';
7737
7738 if (rettv_dict_alloc(rettv) == FAIL)
7739 return;
7740 dict = rettv->vval.v_dict;
7741
7742 list = (list_T *)get_reg_contents(regname, GREG_EXPR_SRC | GREG_LIST);
7743 if (list == NULL)
7744 return;
Bram Moolenaar91639192020-06-29 19:55:58 +02007745 (void)dict_add_list(dict, "regcontents", list);
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007746
7747 buf[0] = NUL;
7748 buf[1] = NUL;
7749 switch (get_reg_type(regname, &reglen))
7750 {
7751 case MLINE: buf[0] = 'V'; break;
7752 case MCHAR: buf[0] = 'v'; break;
7753 case MBLOCK:
7754 vim_snprintf((char *)buf, sizeof(buf), "%c%ld", Ctrl_V,
7755 reglen + 1);
7756 break;
7757 }
Bram Moolenaar91639192020-06-29 19:55:58 +02007758 (void)dict_add_string(dict, (char *)"regtype", buf);
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007759
7760 buf[0] = get_register_name(get_unname_register());
7761 buf[1] = NUL;
7762 if (regname == '"')
Bram Moolenaar91639192020-06-29 19:55:58 +02007763 (void)dict_add_string(dict, (char *)"points_to", buf);
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007764 else
7765 {
7766 dictitem_T *item = dictitem_alloc((char_u *)"isunnamed");
7767
7768 if (item != NULL)
7769 {
7770 item->di_tv.v_type = VAR_SPECIAL;
7771 item->di_tv.vval.v_number = regname == buf[0]
Bram Moolenaar418a29f2021-02-10 22:23:41 +01007772 ? VVAL_TRUE : VVAL_FALSE;
Bram Moolenaar91639192020-06-29 19:55:58 +02007773 (void)dict_add(dict, item);
Bram Moolenaarbb861e22020-06-07 18:16:36 +02007774 }
7775 }
7776}
7777
Bram Moolenaar0b6d9112018-05-22 20:35:17 +02007778 static void
7779return_register(int regname, typval_T *rettv)
7780{
7781 char_u buf[2] = {0, 0};
7782
7783 buf[0] = (char_u)regname;
7784 rettv->v_type = VAR_STRING;
7785 rettv->vval.v_string = vim_strsave(buf);
7786}
7787
7788/*
7789 * "reg_executing()" function
7790 */
7791 static void
7792f_reg_executing(typval_T *argvars UNUSED, typval_T *rettv)
7793{
7794 return_register(reg_executing, rettv);
7795}
7796
7797/*
7798 * "reg_recording()" function
7799 */
7800 static void
7801f_reg_recording(typval_T *argvars UNUSED, typval_T *rettv)
7802{
7803 return_register(reg_recording, rettv);
7804}
7805
Bram Moolenaar7416f3e2017-03-18 18:10:13 +01007806/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007807 * "rename({from}, {to})" function
7808 */
7809 static void
7810f_rename(typval_T *argvars, typval_T *rettv)
7811{
7812 char_u buf[NUMBUFLEN];
7813
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007814 rettv->vval.v_number = -1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007815 if (check_restricted() || check_secure())
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007816 return;
7817
7818 if (in_vim9script()
7819 && (check_for_string_arg(argvars, 0) == FAIL
7820 || check_for_string_arg(argvars, 1) == FAIL))
7821 return;
7822
7823 rettv->vval.v_number = vim_rename(tv_get_string(&argvars[0]),
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007824 tv_get_string_buf(&argvars[1], buf));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007825}
7826
7827/*
7828 * "repeat()" function
7829 */
7830 static void
7831f_repeat(typval_T *argvars, typval_T *rettv)
7832{
7833 char_u *p;
7834 int n;
7835 int slen;
7836 int len;
7837 char_u *r;
7838 int i;
7839
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02007840 if (in_vim9script()
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02007841 && (check_for_string_or_number_or_list_arg(argvars, 0) == FAIL
7842 || check_for_number_arg(argvars, 1) == FAIL))
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02007843 return;
7844
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007845 n = (int)tv_get_number(&argvars[1]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007846 if (argvars[0].v_type == VAR_LIST)
7847 {
7848 if (rettv_list_alloc(rettv) == OK && argvars[0].vval.v_list != NULL)
7849 while (n-- > 0)
7850 if (list_extend(rettv->vval.v_list,
7851 argvars[0].vval.v_list, NULL) == FAIL)
7852 break;
7853 }
7854 else
7855 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007856 p = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007857 rettv->v_type = VAR_STRING;
7858 rettv->vval.v_string = NULL;
7859
7860 slen = (int)STRLEN(p);
7861 len = slen * n;
7862 if (len <= 0)
7863 return;
7864
7865 r = alloc(len + 1);
7866 if (r != NULL)
7867 {
7868 for (i = 0; i < n; i++)
7869 mch_memmove(r + i * slen, p, (size_t)slen);
7870 r[len] = NUL;
7871 }
7872
7873 rettv->vval.v_string = r;
7874 }
7875}
7876
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007877#define SP_NOMOVE 0x01 // don't move cursor
7878#define SP_REPEAT 0x02 // repeat to find outer pair
7879#define SP_RETCOUNT 0x04 // return matchcount
7880#define SP_SETPCMARK 0x08 // set previous context mark
7881#define SP_START 0x10 // accept match at start position
7882#define SP_SUBPAT 0x20 // return nr of matching sub-pattern
7883#define SP_END 0x40 // leave cursor at end of match
7884#define SP_COLUMN 0x80 // start at cursor column
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007885
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007886/*
7887 * Get flags for a search function.
7888 * Possibly sets "p_ws".
7889 * Returns BACKWARD, FORWARD or zero (for an error).
7890 */
7891 static int
7892get_search_arg(typval_T *varp, int *flagsp)
7893{
7894 int dir = FORWARD;
7895 char_u *flags;
7896 char_u nbuf[NUMBUFLEN];
7897 int mask;
7898
7899 if (varp->v_type != VAR_UNKNOWN)
7900 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007901 flags = tv_get_string_buf_chk(varp, nbuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007902 if (flags == NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007903 return 0; // type error; errmsg already given
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007904 while (*flags != NUL)
7905 {
7906 switch (*flags)
7907 {
7908 case 'b': dir = BACKWARD; break;
7909 case 'w': p_ws = TRUE; break;
7910 case 'W': p_ws = FALSE; break;
7911 default: mask = 0;
7912 if (flagsp != NULL)
7913 switch (*flags)
7914 {
7915 case 'c': mask = SP_START; break;
7916 case 'e': mask = SP_END; break;
7917 case 'm': mask = SP_RETCOUNT; break;
7918 case 'n': mask = SP_NOMOVE; break;
7919 case 'p': mask = SP_SUBPAT; break;
7920 case 'r': mask = SP_REPEAT; break;
7921 case 's': mask = SP_SETPCMARK; break;
7922 case 'z': mask = SP_COLUMN; break;
7923 }
7924 if (mask == 0)
7925 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01007926 semsg(_(e_invarg2), flags);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007927 dir = 0;
7928 }
7929 else
7930 *flagsp |= mask;
7931 }
7932 if (dir == 0)
7933 break;
7934 ++flags;
7935 }
7936 }
7937 return dir;
7938}
7939
7940/*
7941 * Shared by search() and searchpos() functions.
7942 */
7943 static int
7944search_cmn(typval_T *argvars, pos_T *match_pos, int *flagsp)
7945{
7946 int flags;
7947 char_u *pat;
7948 pos_T pos;
7949 pos_T save_cursor;
7950 int save_p_ws = p_ws;
7951 int dir;
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007952 int retval = 0; // default: FAIL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007953 long lnum_stop = 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007954#ifdef FEAT_RELTIME
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02007955 proftime_T tm;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007956 long time_limit = 0;
7957#endif
7958 int options = SEARCH_KEEP;
7959 int subpatnum;
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02007960 searchit_arg_T sia;
Bram Moolenaara9c01042020-06-07 14:50:50 +02007961 int use_skip = FALSE;
Bram Moolenaaradc17a52020-06-06 18:37:51 +02007962 pos_T firstpos;
7963
Yegappan Lakshmanan0ad871d2021-07-23 20:37:56 +02007964 if (in_vim9script()
7965 && (check_for_string_arg(argvars, 0) == FAIL
7966 || check_for_opt_string_arg(argvars, 1) == FAIL
7967 || (argvars[1].v_type != VAR_UNKNOWN
7968 && (check_for_opt_number_arg(argvars, 2) == FAIL
7969 || (argvars[2].v_type != VAR_UNKNOWN
7970 && check_for_opt_number_arg(argvars, 3) == FAIL)))))
7971 goto theend;
7972
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007973 pat = tv_get_string(&argvars[0]);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01007974 dir = get_search_arg(&argvars[1], flagsp); // may set p_ws
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007975 if (dir == 0)
7976 goto theend;
7977 flags = *flagsp;
7978 if (flags & SP_START)
7979 options |= SEARCH_START;
7980 if (flags & SP_END)
7981 options |= SEARCH_END;
7982 if (flags & SP_COLUMN)
7983 options |= SEARCH_COL;
7984
Bram Moolenaaradc17a52020-06-06 18:37:51 +02007985 // Optional arguments: line number to stop searching, timeout and skip.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007986 if (argvars[1].v_type != VAR_UNKNOWN && argvars[2].v_type != VAR_UNKNOWN)
7987 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007988 lnum_stop = (long)tv_get_number_chk(&argvars[2], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007989 if (lnum_stop < 0)
7990 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007991 if (argvars[3].v_type != VAR_UNKNOWN)
7992 {
Bram Moolenaaradc17a52020-06-06 18:37:51 +02007993#ifdef FEAT_RELTIME
Bram Moolenaard155d7a2018-12-21 16:04:21 +01007994 time_limit = (long)tv_get_number_chk(&argvars[3], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007995 if (time_limit < 0)
7996 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02007997#endif
Bram Moolenaara9c01042020-06-07 14:50:50 +02007998 use_skip = eval_expr_valid_arg(&argvars[4]);
Bram Moolenaaradc17a52020-06-06 18:37:51 +02007999 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008000 }
8001
8002#ifdef FEAT_RELTIME
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008003 // Set the time limit, if there is one.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008004 profile_setlimit(time_limit, &tm);
8005#endif
8006
8007 /*
8008 * This function does not accept SP_REPEAT and SP_RETCOUNT flags.
8009 * Check to make sure only those flags are set.
8010 * Also, Only the SP_NOMOVE or the SP_SETPCMARK flag can be set. Both
8011 * flags cannot be set. Check for that condition also.
8012 */
8013 if (((flags & (SP_REPEAT | SP_RETCOUNT)) != 0)
8014 || ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
8015 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008016 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008017 goto theend;
8018 }
8019
8020 pos = save_cursor = curwin->w_cursor;
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008021 CLEAR_FIELD(firstpos);
Bram Moolenaara80faa82020-04-12 19:37:17 +02008022 CLEAR_FIELD(sia);
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008023 sia.sa_stop_lnum = (linenr_T)lnum_stop;
8024#ifdef FEAT_RELTIME
8025 sia.sa_tm = &tm;
8026#endif
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008027
8028 // Repeat until {skip} returns FALSE.
8029 for (;;)
8030 {
8031 subpatnum = searchit(curwin, curbuf, &pos, NULL, dir, pat, 1L,
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008032 options, RE_SEARCH, &sia);
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008033 // finding the first match again means there is no match where {skip}
8034 // evaluates to zero.
8035 if (firstpos.lnum != 0 && EQUAL_POS(pos, firstpos))
8036 subpatnum = FAIL;
8037
Bram Moolenaara9c01042020-06-07 14:50:50 +02008038 if (subpatnum == FAIL || !use_skip)
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008039 // didn't find it or no skip argument
8040 break;
8041 firstpos = pos;
8042
Bram Moolenaara9c01042020-06-07 14:50:50 +02008043 // If the skip expression matches, ignore this match.
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008044 {
8045 int do_skip;
8046 int err;
8047 pos_T save_pos = curwin->w_cursor;
8048
8049 curwin->w_cursor = pos;
Bram Moolenaara9c01042020-06-07 14:50:50 +02008050 err = FALSE;
8051 do_skip = eval_expr_to_bool(&argvars[4], &err);
Bram Moolenaaradc17a52020-06-06 18:37:51 +02008052 curwin->w_cursor = save_pos;
8053 if (err)
8054 {
8055 // Evaluating {skip} caused an error, break here.
8056 subpatnum = FAIL;
8057 break;
8058 }
8059 if (!do_skip)
8060 break;
8061 }
8062 }
8063
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008064 if (subpatnum != FAIL)
8065 {
8066 if (flags & SP_SUBPAT)
8067 retval = subpatnum;
8068 else
8069 retval = pos.lnum;
8070 if (flags & SP_SETPCMARK)
8071 setpcmark();
8072 curwin->w_cursor = pos;
8073 if (match_pos != NULL)
8074 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008075 // Store the match cursor position
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008076 match_pos->lnum = pos.lnum;
8077 match_pos->col = pos.col + 1;
8078 }
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008079 // "/$" will put the cursor after the end of the line, may need to
8080 // correct that here
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008081 check_cursor();
8082 }
8083
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008084 // If 'n' flag is used: restore cursor position.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008085 if (flags & SP_NOMOVE)
8086 curwin->w_cursor = save_cursor;
8087 else
8088 curwin->w_set_curswant = TRUE;
8089theend:
8090 p_ws = save_p_ws;
8091
8092 return retval;
8093}
8094
Bram Moolenaare99be0e2019-03-26 22:51:09 +01008095#ifdef FEAT_RUBY
8096/*
8097 * "rubyeval()" function
8098 */
8099 static void
8100f_rubyeval(typval_T *argvars, typval_T *rettv)
8101{
8102 char_u *str;
8103 char_u buf[NUMBUFLEN];
8104
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008105 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
8106 return;
8107
Bram Moolenaare99be0e2019-03-26 22:51:09 +01008108 str = tv_get_string_buf(&argvars[0], buf);
8109 do_rubyeval(str, rettv);
8110}
8111#endif
8112
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008113/*
8114 * "screenattr()" function
8115 */
8116 static void
8117f_screenattr(typval_T *argvars, typval_T *rettv)
8118{
8119 int row;
8120 int col;
8121 int c;
8122
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008123 if (in_vim9script()
8124 && (check_for_number_arg(argvars, 0) == FAIL
8125 || check_for_number_arg(argvars, 1) == FAIL))
8126 return;
8127
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008128 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
8129 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008130 if (row < 0 || row >= screen_Rows
8131 || col < 0 || col >= screen_Columns)
8132 c = -1;
8133 else
8134 c = ScreenAttrs[LineOffset[row] + col];
8135 rettv->vval.v_number = c;
8136}
8137
8138/*
8139 * "screenchar()" function
8140 */
8141 static void
8142f_screenchar(typval_T *argvars, typval_T *rettv)
8143{
8144 int row;
8145 int col;
8146 int off;
8147 int c;
8148
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008149 if (in_vim9script()
8150 && (check_for_number_arg(argvars, 0) == FAIL
8151 || check_for_number_arg(argvars, 1) == FAIL))
8152 return;
8153
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008154 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
8155 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008156 if (row < 0 || row >= screen_Rows || col < 0 || col >= screen_Columns)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008157 c = -1;
8158 else
8159 {
8160 off = LineOffset[row] + col;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008161 if (enc_utf8 && ScreenLinesUC[off] != 0)
8162 c = ScreenLinesUC[off];
8163 else
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008164 c = ScreenLines[off];
8165 }
8166 rettv->vval.v_number = c;
8167}
8168
8169/*
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008170 * "screenchars()" function
8171 */
8172 static void
8173f_screenchars(typval_T *argvars, typval_T *rettv)
8174{
8175 int row;
8176 int col;
8177 int off;
8178 int c;
8179 int i;
8180
8181 if (rettv_list_alloc(rettv) == FAIL)
8182 return;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008183
8184 if (in_vim9script()
8185 && (check_for_number_arg(argvars, 0) == FAIL
8186 || check_for_number_arg(argvars, 1) == FAIL))
8187 return;
8188
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008189 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
8190 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
8191 if (row < 0 || row >= screen_Rows || col < 0 || col >= screen_Columns)
8192 return;
8193
8194 off = LineOffset[row] + col;
8195 if (enc_utf8 && ScreenLinesUC[off] != 0)
8196 c = ScreenLinesUC[off];
8197 else
8198 c = ScreenLines[off];
8199 list_append_number(rettv->vval.v_list, (varnumber_T)c);
8200
8201 if (enc_utf8)
8202
8203 for (i = 0; i < Screen_mco && ScreenLinesC[i][off] != 0; ++i)
8204 list_append_number(rettv->vval.v_list,
8205 (varnumber_T)ScreenLinesC[i][off]);
8206}
8207
8208/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008209 * "screencol()" function
8210 *
8211 * First column is 1 to be consistent with virtcol().
8212 */
8213 static void
8214f_screencol(typval_T *argvars UNUSED, typval_T *rettv)
8215{
8216 rettv->vval.v_number = screen_screencol() + 1;
8217}
8218
8219/*
8220 * "screenrow()" function
8221 */
8222 static void
8223f_screenrow(typval_T *argvars UNUSED, typval_T *rettv)
8224{
8225 rettv->vval.v_number = screen_screenrow() + 1;
8226}
8227
8228/*
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008229 * "screenstring()" function
8230 */
8231 static void
8232f_screenstring(typval_T *argvars, typval_T *rettv)
8233{
8234 int row;
8235 int col;
8236 int off;
8237 int c;
8238 int i;
8239 char_u buf[MB_MAXBYTES + 1];
8240 int buflen = 0;
8241
8242 rettv->vval.v_string = NULL;
8243 rettv->v_type = VAR_STRING;
8244
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008245 if (in_vim9script()
8246 && (check_for_number_arg(argvars, 0) == FAIL
8247 || check_for_number_arg(argvars, 1) == FAIL))
8248 return;
8249
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008250 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
8251 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
8252 if (row < 0 || row >= screen_Rows || col < 0 || col >= screen_Columns)
8253 return;
8254
8255 off = LineOffset[row] + col;
8256 if (enc_utf8 && ScreenLinesUC[off] != 0)
8257 c = ScreenLinesUC[off];
8258 else
8259 c = ScreenLines[off];
8260 buflen += mb_char2bytes(c, buf);
8261
Bram Moolenaarf1387282021-03-22 17:11:15 +01008262 if (enc_utf8 && ScreenLinesUC[off] != 0)
Bram Moolenaar2912abb2019-03-29 14:16:42 +01008263 for (i = 0; i < Screen_mco && ScreenLinesC[i][off] != 0; ++i)
8264 buflen += mb_char2bytes(ScreenLinesC[i][off], buf + buflen);
8265
8266 buf[buflen] = NUL;
8267 rettv->vval.v_string = vim_strsave(buf);
8268}
8269
8270/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008271 * "search()" function
8272 */
8273 static void
8274f_search(typval_T *argvars, typval_T *rettv)
8275{
8276 int flags = 0;
8277
8278 rettv->vval.v_number = search_cmn(argvars, NULL, &flags);
8279}
8280
8281/*
8282 * "searchdecl()" function
8283 */
8284 static void
8285f_searchdecl(typval_T *argvars, typval_T *rettv)
8286{
Bram Moolenaar30788d32020-09-05 21:35:16 +02008287 int locally = TRUE;
8288 int thisblock = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008289 int error = FALSE;
8290 char_u *name;
8291
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008292 rettv->vval.v_number = 1; // default: FAIL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008293
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02008294 if (in_vim9script()
8295 && (check_for_string_arg(argvars, 0) == FAIL
8296 || check_for_opt_bool_arg(argvars, 1) == FAIL
8297 || (argvars[1].v_type != VAR_UNKNOWN
8298 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
8299 return;
8300
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008301 name = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008302 if (argvars[1].v_type != VAR_UNKNOWN)
8303 {
Bram Moolenaar30788d32020-09-05 21:35:16 +02008304 locally = !(int)tv_get_bool_chk(&argvars[1], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008305 if (!error && argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar30788d32020-09-05 21:35:16 +02008306 thisblock = (int)tv_get_bool_chk(&argvars[2], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008307 }
8308 if (!error && name != NULL)
8309 rettv->vval.v_number = find_decl(name, (int)STRLEN(name),
8310 locally, thisblock, SEARCH_KEEP) == FAIL;
8311}
8312
8313/*
8314 * Used by searchpair() and searchpairpos()
8315 */
8316 static int
8317searchpair_cmn(typval_T *argvars, pos_T *match_pos)
8318{
8319 char_u *spat, *mpat, *epat;
Bram Moolenaar48570482017-10-30 21:48:41 +01008320 typval_T *skip;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008321 int save_p_ws = p_ws;
8322 int dir;
8323 int flags = 0;
8324 char_u nbuf1[NUMBUFLEN];
8325 char_u nbuf2[NUMBUFLEN];
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008326 int retval = 0; // default: FAIL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008327 long lnum_stop = 0;
8328 long time_limit = 0;
8329
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02008330 if (in_vim9script()
8331 && (check_for_string_arg(argvars, 0) == FAIL
8332 || check_for_string_arg(argvars, 1) == FAIL
8333 || check_for_string_arg(argvars, 2) == FAIL
8334 || check_for_opt_string_arg(argvars, 3) == FAIL
8335 || (argvars[3].v_type != VAR_UNKNOWN
8336 && argvars[4].v_type != VAR_UNKNOWN
8337 && (check_for_opt_number_arg(argvars, 5) == FAIL
8338 || (argvars[5].v_type != VAR_UNKNOWN
8339 && check_for_opt_number_arg(argvars, 6) == FAIL)))))
8340 goto theend;
8341
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008342 // Get the three pattern arguments: start, middle, end. Will result in an
8343 // error if not a valid argument.
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008344 spat = tv_get_string_chk(&argvars[0]);
8345 mpat = tv_get_string_buf_chk(&argvars[1], nbuf1);
8346 epat = tv_get_string_buf_chk(&argvars[2], nbuf2);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008347 if (spat == NULL || mpat == NULL || epat == NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008348 goto theend; // type error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008349
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008350 // Handle the optional fourth argument: flags
8351 dir = get_search_arg(&argvars[3], &flags); // may set p_ws
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008352 if (dir == 0)
8353 goto theend;
8354
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008355 // Don't accept SP_END or SP_SUBPAT.
8356 // Only one of the SP_NOMOVE or SP_SETPCMARK flags can be set.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008357 if ((flags & (SP_END | SP_SUBPAT)) != 0
8358 || ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
8359 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008360 semsg(_(e_invarg2), tv_get_string(&argvars[3]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008361 goto theend;
8362 }
8363
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008364 // Using 'r' implies 'W', otherwise it doesn't work.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008365 if (flags & SP_REPEAT)
8366 p_ws = FALSE;
8367
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008368 // Optional fifth argument: skip expression
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008369 if (argvars[3].v_type == VAR_UNKNOWN
8370 || argvars[4].v_type == VAR_UNKNOWN)
Bram Moolenaar48570482017-10-30 21:48:41 +01008371 skip = NULL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008372 else
8373 {
Bram Moolenaara9c01042020-06-07 14:50:50 +02008374 // Type is checked later.
Bram Moolenaar48570482017-10-30 21:48:41 +01008375 skip = &argvars[4];
Bram Moolenaara9c01042020-06-07 14:50:50 +02008376
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008377 if (argvars[5].v_type != VAR_UNKNOWN)
8378 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008379 lnum_stop = (long)tv_get_number_chk(&argvars[5], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008380 if (lnum_stop < 0)
Bram Moolenaar3dddb092018-06-24 19:01:59 +02008381 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008382 semsg(_(e_invarg2), tv_get_string(&argvars[5]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008383 goto theend;
Bram Moolenaar3dddb092018-06-24 19:01:59 +02008384 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008385#ifdef FEAT_RELTIME
8386 if (argvars[6].v_type != VAR_UNKNOWN)
8387 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008388 time_limit = (long)tv_get_number_chk(&argvars[6], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008389 if (time_limit < 0)
Bram Moolenaar3dddb092018-06-24 19:01:59 +02008390 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008391 semsg(_(e_invarg2), tv_get_string(&argvars[6]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008392 goto theend;
Bram Moolenaar3dddb092018-06-24 19:01:59 +02008393 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008394 }
8395#endif
8396 }
8397 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008398
8399 retval = do_searchpair(spat, mpat, epat, dir, skip, flags,
8400 match_pos, lnum_stop, time_limit);
8401
8402theend:
8403 p_ws = save_p_ws;
8404
8405 return retval;
8406}
8407
8408/*
8409 * "searchpair()" function
8410 */
8411 static void
8412f_searchpair(typval_T *argvars, typval_T *rettv)
8413{
8414 rettv->vval.v_number = searchpair_cmn(argvars, NULL);
8415}
8416
8417/*
8418 * "searchpairpos()" function
8419 */
8420 static void
8421f_searchpairpos(typval_T *argvars, typval_T *rettv)
8422{
8423 pos_T match_pos;
8424 int lnum = 0;
8425 int col = 0;
8426
8427 if (rettv_list_alloc(rettv) == FAIL)
8428 return;
8429
8430 if (searchpair_cmn(argvars, &match_pos) > 0)
8431 {
8432 lnum = match_pos.lnum;
8433 col = match_pos.col;
8434 }
8435
8436 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
8437 list_append_number(rettv->vval.v_list, (varnumber_T)col);
8438}
8439
8440/*
8441 * Search for a start/middle/end thing.
8442 * Used by searchpair(), see its documentation for the details.
8443 * Returns 0 or -1 for no match,
8444 */
8445 long
8446do_searchpair(
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008447 char_u *spat, // start pattern
8448 char_u *mpat, // middle pattern
8449 char_u *epat, // end pattern
8450 int dir, // BACKWARD or FORWARD
8451 typval_T *skip, // skip expression
8452 int flags, // SP_SETPCMARK and other SP_ values
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008453 pos_T *match_pos,
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008454 linenr_T lnum_stop, // stop at this line if not zero
8455 long time_limit UNUSED) // stop after this many msec
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008456{
8457 char_u *save_cpo;
8458 char_u *pat, *pat2 = NULL, *pat3 = NULL;
8459 long retval = 0;
8460 pos_T pos;
8461 pos_T firstpos;
8462 pos_T foundpos;
8463 pos_T save_cursor;
8464 pos_T save_pos;
8465 int n;
8466 int r;
8467 int nest = 1;
Bram Moolenaar48570482017-10-30 21:48:41 +01008468 int use_skip = FALSE;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008469 int err;
8470 int options = SEARCH_KEEP;
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008471#ifdef FEAT_RELTIME
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008472 proftime_T tm;
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008473#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008474
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008475 // Make 'cpoptions' empty, the 'l' flag should not be used here.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008476 save_cpo = p_cpo;
8477 p_cpo = empty_option;
8478
8479#ifdef FEAT_RELTIME
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008480 // Set the time limit, if there is one.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008481 profile_setlimit(time_limit, &tm);
8482#endif
8483
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008484 // Make two search patterns: start/end (pat2, for in nested pairs) and
8485 // start/middle/end (pat3, for the top pair).
Bram Moolenaar964b3742019-05-24 18:54:09 +02008486 pat2 = alloc(STRLEN(spat) + STRLEN(epat) + 17);
8487 pat3 = alloc(STRLEN(spat) + STRLEN(mpat) + STRLEN(epat) + 25);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008488 if (pat2 == NULL || pat3 == NULL)
8489 goto theend;
Bram Moolenaar6e450a52017-01-06 20:03:58 +01008490 sprintf((char *)pat2, "\\m\\(%s\\m\\)\\|\\(%s\\m\\)", spat, epat);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008491 if (*mpat == NUL)
8492 STRCPY(pat3, pat2);
8493 else
Bram Moolenaar6e450a52017-01-06 20:03:58 +01008494 sprintf((char *)pat3, "\\m\\(%s\\m\\)\\|\\(%s\\m\\)\\|\\(%s\\m\\)",
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008495 spat, epat, mpat);
8496 if (flags & SP_START)
8497 options |= SEARCH_START;
8498
Bram Moolenaar48570482017-10-30 21:48:41 +01008499 if (skip != NULL)
Bram Moolenaara9c01042020-06-07 14:50:50 +02008500 use_skip = eval_expr_valid_arg(skip);
Bram Moolenaar48570482017-10-30 21:48:41 +01008501
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008502 save_cursor = curwin->w_cursor;
8503 pos = curwin->w_cursor;
Bram Moolenaarb5aedf32017-03-12 18:23:53 +01008504 CLEAR_POS(&firstpos);
8505 CLEAR_POS(&foundpos);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008506 pat = pat3;
8507 for (;;)
8508 {
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008509 searchit_arg_T sia;
8510
Bram Moolenaara80faa82020-04-12 19:37:17 +02008511 CLEAR_FIELD(sia);
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008512 sia.sa_stop_lnum = lnum_stop;
8513#ifdef FEAT_RELTIME
8514 sia.sa_tm = &tm;
8515#endif
Bram Moolenaar5d24a222018-12-23 19:10:09 +01008516 n = searchit(curwin, curbuf, &pos, NULL, dir, pat, 1L,
Bram Moolenaar92ea26b2019-10-18 20:53:34 +02008517 options, RE_SEARCH, &sia);
Bram Moolenaarb5aedf32017-03-12 18:23:53 +01008518 if (n == FAIL || (firstpos.lnum != 0 && EQUAL_POS(pos, firstpos)))
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008519 // didn't find it or found the first match again: FAIL
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008520 break;
8521
8522 if (firstpos.lnum == 0)
8523 firstpos = pos;
Bram Moolenaarb5aedf32017-03-12 18:23:53 +01008524 if (EQUAL_POS(pos, foundpos))
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008525 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008526 // Found the same position again. Can happen with a pattern that
8527 // has "\zs" at the end and searching backwards. Advance one
8528 // character and try again.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008529 if (dir == BACKWARD)
8530 decl(&pos);
8531 else
8532 incl(&pos);
8533 }
8534 foundpos = pos;
8535
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008536 // clear the start flag to avoid getting stuck here
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008537 options &= ~SEARCH_START;
8538
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008539 // If the skip pattern matches, ignore this match.
Bram Moolenaar48570482017-10-30 21:48:41 +01008540 if (use_skip)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008541 {
8542 save_pos = curwin->w_cursor;
8543 curwin->w_cursor = pos;
Bram Moolenaar48570482017-10-30 21:48:41 +01008544 err = FALSE;
8545 r = eval_expr_to_bool(skip, &err);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008546 curwin->w_cursor = save_pos;
8547 if (err)
8548 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008549 // Evaluating {skip} caused an error, break here.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008550 curwin->w_cursor = save_cursor;
8551 retval = -1;
8552 break;
8553 }
8554 if (r)
8555 continue;
8556 }
8557
8558 if ((dir == BACKWARD && n == 3) || (dir == FORWARD && n == 2))
8559 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008560 // Found end when searching backwards or start when searching
8561 // forward: nested pair.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008562 ++nest;
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008563 pat = pat2; // nested, don't search for middle
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008564 }
8565 else
8566 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008567 // Found end when searching forward or start when searching
8568 // backward: end of (nested) pair; or found middle in outer pair.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008569 if (--nest == 1)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008570 pat = pat3; // outer level, search for middle
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008571 }
8572
8573 if (nest == 0)
8574 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008575 // Found the match: return matchcount or line number.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008576 if (flags & SP_RETCOUNT)
8577 ++retval;
8578 else
8579 retval = pos.lnum;
8580 if (flags & SP_SETPCMARK)
8581 setpcmark();
8582 curwin->w_cursor = pos;
8583 if (!(flags & SP_REPEAT))
8584 break;
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008585 nest = 1; // search for next unmatched
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008586 }
8587 }
8588
8589 if (match_pos != NULL)
8590 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008591 // Store the match cursor position
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008592 match_pos->lnum = curwin->w_cursor.lnum;
8593 match_pos->col = curwin->w_cursor.col + 1;
8594 }
8595
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008596 // If 'n' flag is used or search failed: restore cursor position.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008597 if ((flags & SP_NOMOVE) || retval == 0)
8598 curwin->w_cursor = save_cursor;
8599
8600theend:
8601 vim_free(pat2);
8602 vim_free(pat3);
8603 if (p_cpo == empty_option)
8604 p_cpo = save_cpo;
8605 else
Bram Moolenaare5a2dc82021-01-03 19:52:05 +01008606 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008607 // Darn, evaluating the {skip} expression changed the value.
Bram Moolenaare5a2dc82021-01-03 19:52:05 +01008608 // If it's still empty it was changed and restored, need to restore in
8609 // the complicated way.
8610 if (*p_cpo == NUL)
8611 set_option_value((char_u *)"cpo", 0L, save_cpo, 0);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008612 free_string_option(save_cpo);
Bram Moolenaare5a2dc82021-01-03 19:52:05 +01008613 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008614
8615 return retval;
8616}
8617
8618/*
8619 * "searchpos()" function
8620 */
8621 static void
8622f_searchpos(typval_T *argvars, typval_T *rettv)
8623{
8624 pos_T match_pos;
8625 int lnum = 0;
8626 int col = 0;
8627 int n;
8628 int flags = 0;
8629
8630 if (rettv_list_alloc(rettv) == FAIL)
8631 return;
8632
8633 n = search_cmn(argvars, &match_pos, &flags);
8634 if (n > 0)
8635 {
8636 lnum = match_pos.lnum;
8637 col = match_pos.col;
8638 }
8639
8640 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
8641 list_append_number(rettv->vval.v_list, (varnumber_T)col);
8642 if (flags & SP_SUBPAT)
8643 list_append_number(rettv->vval.v_list, (varnumber_T)n);
8644}
8645
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008646/*
8647 * Set the cursor or mark position.
Christian Brabandt98703d72021-06-24 19:55:27 +02008648 * If 'charpos' is TRUE, then use the column number as a character offset.
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008649 * Otherwise use the column number as a byte offset.
8650 */
8651 static void
8652set_position(typval_T *argvars, typval_T *rettv, int charpos)
8653{
8654 pos_T pos;
8655 int fnum;
8656 char_u *name;
8657 colnr_T curswant = -1;
8658
8659 rettv->vval.v_number = -1;
8660
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02008661 if (in_vim9script()
8662 && (check_for_string_arg(argvars, 0) == FAIL
8663 || check_for_list_arg(argvars, 1) == FAIL))
8664 return;
8665
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008666 name = tv_get_string_chk(argvars);
8667 if (name != NULL)
8668 {
8669 if (list2fpos(&argvars[1], &pos, &fnum, &curswant, charpos) == OK)
8670 {
8671 if (pos.col != MAXCOL && --pos.col < 0)
8672 pos.col = 0;
8673 if ((name[0] == '.' && name[1] == NUL))
8674 {
8675 // set cursor; "fnum" is ignored
8676 curwin->w_cursor = pos;
8677 if (curswant >= 0)
8678 {
8679 curwin->w_curswant = curswant - 1;
8680 curwin->w_set_curswant = FALSE;
8681 }
8682 check_cursor();
8683 rettv->vval.v_number = 0;
8684 }
8685 else if (name[0] == '\'' && name[1] != NUL && name[2] == NUL)
8686 {
8687 // set mark
8688 if (setmark_pos(name[1], &pos, fnum) == OK)
8689 rettv->vval.v_number = 0;
8690 }
8691 else
8692 emsg(_(e_invarg));
8693 }
8694 }
8695}
8696/*
8697 * "setcharpos()" function
8698 */
8699 static void
8700f_setcharpos(typval_T *argvars, typval_T *rettv)
8701{
8702 set_position(argvars, rettv, TRUE);
8703}
8704
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008705 static void
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008706f_setcharsearch(typval_T *argvars, typval_T *rettv UNUSED)
8707{
8708 dict_T *d;
8709 dictitem_T *di;
8710 char_u *csearch;
8711
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008712 if (in_vim9script() && check_for_dict_arg(argvars, 0) == FAIL)
8713 return;
8714
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008715 if (argvars[0].v_type != VAR_DICT)
8716 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008717 emsg(_(e_dictreq));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008718 return;
8719 }
8720
8721 if ((d = argvars[0].vval.v_dict) != NULL)
8722 {
Bram Moolenaar8f667172018-12-14 15:38:31 +01008723 csearch = dict_get_string(d, (char_u *)"char", FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008724 if (csearch != NULL)
8725 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008726 if (enc_utf8)
8727 {
8728 int pcc[MAX_MCO];
8729 int c = utfc_ptr2char(csearch, pcc);
8730
8731 set_last_csearch(c, csearch, utfc_ptr2len(csearch));
8732 }
8733 else
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008734 set_last_csearch(PTR2CHAR(csearch),
Bram Moolenaar1614a142019-10-06 22:00:13 +02008735 csearch, mb_ptr2len(csearch));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008736 }
8737
8738 di = dict_find(d, (char_u *)"forward", -1);
8739 if (di != NULL)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008740 set_csearch_direction((int)tv_get_number(&di->di_tv)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008741 ? FORWARD : BACKWARD);
8742
8743 di = dict_find(d, (char_u *)"until", -1);
8744 if (di != NULL)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008745 set_csearch_until(!!tv_get_number(&di->di_tv));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008746 }
8747}
8748
8749/*
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008750 * "setcursorcharpos" function
8751 */
8752 static void
Bram Moolenaar3af15ab2021-01-17 16:16:23 +01008753f_setcursorcharpos(typval_T *argvars, typval_T *rettv)
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008754{
8755 set_cursorpos(argvars, rettv, TRUE);
8756}
8757
8758/*
Bram Moolenaar691ddee2019-05-09 14:52:41 +02008759 * "setenv()" function
8760 */
8761 static void
8762f_setenv(typval_T *argvars, typval_T *rettv UNUSED)
8763{
8764 char_u namebuf[NUMBUFLEN];
8765 char_u valbuf[NUMBUFLEN];
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02008766 char_u *name;
Bram Moolenaar691ddee2019-05-09 14:52:41 +02008767
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02008768 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
8769 return;
8770
8771 name = tv_get_string_buf(&argvars[0], namebuf);
Bram Moolenaar691ddee2019-05-09 14:52:41 +02008772 if (argvars[1].v_type == VAR_SPECIAL
8773 && argvars[1].vval.v_number == VVAL_NULL)
8774 vim_unsetenv(name);
8775 else
8776 vim_setenv(name, tv_get_string_buf(&argvars[1], valbuf));
8777}
8778
8779/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008780 * "setfperm({fname}, {mode})" function
8781 */
8782 static void
8783f_setfperm(typval_T *argvars, typval_T *rettv)
8784{
8785 char_u *fname;
8786 char_u modebuf[NUMBUFLEN];
8787 char_u *mode_str;
8788 int i;
8789 int mask;
8790 int mode = 0;
8791
8792 rettv->vval.v_number = 0;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02008793
8794 if (in_vim9script()
8795 && (check_for_string_arg(argvars, 0) == FAIL
8796 || check_for_string_arg(argvars, 1) == FAIL))
8797 return;
8798
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008799 fname = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008800 if (fname == NULL)
8801 return;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008802 mode_str = tv_get_string_buf_chk(&argvars[1], modebuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008803 if (mode_str == NULL)
8804 return;
8805 if (STRLEN(mode_str) != 9)
8806 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01008807 semsg(_(e_invarg2), mode_str);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008808 return;
8809 }
8810
8811 mask = 1;
8812 for (i = 8; i >= 0; --i)
8813 {
8814 if (mode_str[i] != '-')
8815 mode |= mask;
8816 mask = mask << 1;
8817 }
8818 rettv->vval.v_number = mch_setperm(fname, mode) == OK;
8819}
8820
8821/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008822 * "setpos()" function
8823 */
8824 static void
8825f_setpos(typval_T *argvars, typval_T *rettv)
8826{
Bram Moolenaar6f02b002021-01-10 20:22:54 +01008827 set_position(argvars, rettv, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008828}
8829
8830/*
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008831 * Translate a register type string to the yank type and block length
8832 */
8833 static int
8834get_yank_type(char_u **pp, char_u *yank_type, long *block_len)
8835{
8836 char_u *stropt = *pp;
8837 switch (*stropt)
8838 {
8839 case 'v': case 'c': // character-wise selection
8840 *yank_type = MCHAR;
8841 break;
8842 case 'V': case 'l': // line-wise selection
8843 *yank_type = MLINE;
8844 break;
8845 case 'b': case Ctrl_V: // block-wise selection
8846 *yank_type = MBLOCK;
8847 if (VIM_ISDIGIT(stropt[1]))
8848 {
8849 ++stropt;
8850 *block_len = getdigits(&stropt) - 1;
8851 --stropt;
8852 }
8853 break;
8854 default:
8855 return FAIL;
8856 }
8857 *pp = stropt;
8858 return OK;
8859}
8860
8861/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008862 * "setreg()" function
8863 */
8864 static void
8865f_setreg(typval_T *argvars, typval_T *rettv)
8866{
8867 int regname;
8868 char_u *strregname;
8869 char_u *stropt;
8870 char_u *strval;
8871 int append;
8872 char_u yank_type;
8873 long block_len;
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008874 typval_T *regcontents;
8875 int pointreg;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008876
Yegappan Lakshmanana764e732021-07-25 15:57:32 +02008877 if (in_vim9script()
8878 && (check_for_string_arg(argvars, 0) == FAIL
8879 || check_for_opt_string_arg(argvars, 2) == FAIL))
8880 return;
8881
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008882 pointreg = 0;
8883 regcontents = NULL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008884 block_len = -1;
8885 yank_type = MAUTO;
8886 append = FALSE;
8887
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008888 strregname = tv_get_string_chk(argvars);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008889 rettv->vval.v_number = 1; // FAIL is default
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008890
8891 if (strregname == NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008892 return; // type error; errmsg already given
Bram Moolenaar418a29f2021-02-10 22:23:41 +01008893 if (in_vim9script() && STRLEN(strregname) > 1)
8894 {
8895 semsg(_(e_register_name_must_be_one_char_str), strregname);
8896 return;
8897 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008898 regname = *strregname;
8899 if (regname == 0 || regname == '@')
8900 regname = '"';
8901
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008902 if (argvars[1].v_type == VAR_DICT)
8903 {
8904 dict_T *d = argvars[1].vval.v_dict;
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008905 dictitem_T *di;
8906
8907 if (d == NULL || d->dv_hashtab.ht_used == 0)
8908 {
8909 // Empty dict, clear the register (like setreg(0, []))
8910 char_u *lstval[2] = {NULL, NULL};
8911 write_reg_contents_lst(regname, lstval, 0, FALSE, MAUTO, -1);
8912 return;
8913 }
8914
8915 di = dict_find(d, (char_u *)"regcontents", -1);
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008916 if (di != NULL)
8917 regcontents = &di->di_tv;
8918
8919 stropt = dict_get_string(d, (char_u *)"regtype", FALSE);
8920 if (stropt != NULL)
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008921 {
8922 int ret = get_yank_type(&stropt, &yank_type, &block_len);
8923
8924 if (ret == FAIL || *++stropt != NUL)
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008925 {
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008926 semsg(_(e_invargval), "value");
8927 return;
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008928 }
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008929 }
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008930
8931 if (regname == '"')
8932 {
8933 stropt = dict_get_string(d, (char_u *)"points_to", FALSE);
8934 if (stropt != NULL)
8935 {
8936 pointreg = *stropt;
8937 regname = pointreg;
8938 }
8939 }
Bram Moolenaar6a950582020-08-28 16:39:33 +02008940 else if (dict_get_bool(d, (char_u *)"isunnamed", -1) > 0)
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008941 pointreg = regname;
8942 }
8943 else
8944 regcontents = &argvars[1];
8945
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008946 if (argvars[2].v_type != VAR_UNKNOWN)
8947 {
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008948 if (yank_type != MAUTO)
8949 {
8950 semsg(_(e_toomanyarg), "setreg");
8951 return;
8952 }
8953
Bram Moolenaard155d7a2018-12-21 16:04:21 +01008954 stropt = tv_get_string_chk(&argvars[2]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008955 if (stropt == NULL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008956 return; // type error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008957 for (; *stropt != NUL; ++stropt)
8958 switch (*stropt)
8959 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008960 case 'a': case 'A': // append
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008961 append = TRUE;
8962 break;
Bram Moolenaar7633fe52020-06-22 19:10:56 +02008963 default:
8964 get_yank_type(&stropt, &yank_type, &block_len);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008965 }
8966 }
8967
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008968 if (regcontents && regcontents->v_type == VAR_LIST)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008969 {
8970 char_u **lstval;
8971 char_u **allocval;
8972 char_u buf[NUMBUFLEN];
8973 char_u **curval;
8974 char_u **curallocval;
Bram Moolenaarbb861e22020-06-07 18:16:36 +02008975 list_T *ll = regcontents->vval.v_list;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008976 listitem_T *li;
8977 int len;
8978
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008979 // If the list is NULL handle like an empty list.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008980 len = ll == NULL ? 0 : ll->lv_len;
8981
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01008982 // First half: use for pointers to result lines; second half: use for
8983 // pointers to allocated copies.
Bram Moolenaarc799fe22019-05-28 23:08:19 +02008984 lstval = ALLOC_MULT(char_u *, (len + 1) * 2);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008985 if (lstval == NULL)
8986 return;
8987 curval = lstval;
8988 allocval = lstval + len + 2;
8989 curallocval = allocval;
8990
Bram Moolenaar50985eb2020-01-27 22:09:39 +01008991 if (ll != NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008992 {
Bram Moolenaar7e9f3512020-05-13 22:44:22 +02008993 CHECK_LIST_MATERIALIZE(ll);
Bram Moolenaar00d253e2020-04-06 22:13:01 +02008994 FOR_ALL_LIST_ITEMS(ll, li)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008995 {
Bram Moolenaar50985eb2020-01-27 22:09:39 +01008996 strval = tv_get_string_buf_chk(&li->li_tv, buf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02008997 if (strval == NULL)
8998 goto free_lstval;
Bram Moolenaar50985eb2020-01-27 22:09:39 +01008999 if (strval == buf)
9000 {
9001 // Need to make a copy, next tv_get_string_buf_chk() will
9002 // overwrite the string.
9003 strval = vim_strsave(buf);
9004 if (strval == NULL)
9005 goto free_lstval;
9006 *curallocval++ = strval;
9007 }
9008 *curval++ = strval;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009009 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009010 }
9011 *curval++ = NULL;
9012
9013 write_reg_contents_lst(regname, lstval, -1,
9014 append, yank_type, block_len);
9015free_lstval:
9016 while (curallocval > allocval)
9017 vim_free(*--curallocval);
9018 vim_free(lstval);
9019 }
Bram Moolenaarbb861e22020-06-07 18:16:36 +02009020 else if (regcontents)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009021 {
Bram Moolenaarbb861e22020-06-07 18:16:36 +02009022 strval = tv_get_string_chk(regcontents);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009023 if (strval == NULL)
9024 return;
9025 write_reg_contents_ex(regname, strval, -1,
9026 append, yank_type, block_len);
9027 }
Bram Moolenaarbb861e22020-06-07 18:16:36 +02009028 if (pointreg != 0)
9029 get_yank_register(pointreg, TRUE);
9030
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009031 rettv->vval.v_number = 0;
9032}
9033
9034/*
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009035 * "settagstack()" function
9036 */
9037 static void
9038f_settagstack(typval_T *argvars, typval_T *rettv)
9039{
9040 static char *e_invact2 = N_("E962: Invalid action: '%s'");
9041 win_T *wp;
9042 dict_T *d;
9043 int action = 'r';
9044
9045 rettv->vval.v_number = -1;
9046
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009047 if (in_vim9script()
9048 && (check_for_number_arg(argvars, 0) == FAIL
9049 || check_for_dict_arg(argvars, 1) == FAIL
9050 || check_for_opt_string_arg(argvars, 2) == FAIL))
9051 return;
9052
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009053 // first argument: window number or id
9054 wp = find_win_by_nr_or_id(&argvars[0]);
9055 if (wp == NULL)
9056 return;
9057
9058 // second argument: dict with items to set in the tag stack
9059 if (argvars[1].v_type != VAR_DICT)
9060 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01009061 emsg(_(e_dictreq));
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009062 return;
9063 }
9064 d = argvars[1].vval.v_dict;
9065 if (d == NULL)
9066 return;
9067
9068 // third argument: action - 'a' for append and 'r' for replace.
9069 // default is to replace the stack.
9070 if (argvars[2].v_type == VAR_UNKNOWN)
9071 action = 'r';
9072 else if (argvars[2].v_type == VAR_STRING)
9073 {
9074 char_u *actstr;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009075 actstr = tv_get_string_chk(&argvars[2]);
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009076 if (actstr == NULL)
9077 return;
Bram Moolenaar271fa082020-01-02 14:02:16 +01009078 if ((*actstr == 'r' || *actstr == 'a' || *actstr == 't')
9079 && actstr[1] == NUL)
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009080 action = *actstr;
9081 else
9082 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01009083 semsg(_(e_invact2), actstr);
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009084 return;
9085 }
9086 }
9087 else
9088 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01009089 emsg(_(e_stringreq));
Bram Moolenaarf49cc602018-11-11 15:21:05 +01009090 return;
9091 }
9092
9093 if (set_tagstack(wp, d, action) == OK)
9094 rettv->vval.v_number = 0;
9095}
9096
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009097#ifdef FEAT_CRYPT
9098/*
9099 * "sha256({string})" function
9100 */
9101 static void
9102f_sha256(typval_T *argvars, typval_T *rettv)
9103{
9104 char_u *p;
9105
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009106 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
9107 return;
9108
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009109 p = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009110 rettv->vval.v_string = vim_strsave(
9111 sha256_bytes(p, (int)STRLEN(p), NULL, 0));
9112 rettv->v_type = VAR_STRING;
9113}
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009114#endif // FEAT_CRYPT
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009115
9116/*
9117 * "shellescape({string})" function
9118 */
9119 static void
9120f_shellescape(typval_T *argvars, typval_T *rettv)
9121{
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009122 int do_special;
Bram Moolenaar20615522017-06-05 18:46:26 +02009123
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009124 if (in_vim9script()
9125 && (check_for_string_arg(argvars, 0) == FAIL
9126 || check_for_opt_bool_arg(argvars, 1) == FAIL))
9127 return;
9128
9129 do_special = non_zero_arg(&argvars[1]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009130 rettv->vval.v_string = vim_strsave_shellescape(
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009131 tv_get_string(&argvars[0]), do_special, do_special);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009132 rettv->v_type = VAR_STRING;
9133}
9134
9135/*
9136 * shiftwidth() function
9137 */
9138 static void
9139f_shiftwidth(typval_T *argvars UNUSED, typval_T *rettv)
9140{
Bram Moolenaarf9514162018-11-22 03:08:29 +01009141 rettv->vval.v_number = 0;
9142
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009143 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
9144 return;
9145
Bram Moolenaarf9514162018-11-22 03:08:29 +01009146 if (argvars[0].v_type != VAR_UNKNOWN)
9147 {
9148 long col;
9149
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009150 col = (long)tv_get_number_chk(argvars, NULL);
Bram Moolenaarf9514162018-11-22 03:08:29 +01009151 if (col < 0)
9152 return; // type error; errmsg already given
9153#ifdef FEAT_VARTABS
9154 rettv->vval.v_number = get_sw_value_col(curbuf, col);
9155 return;
9156#endif
9157 }
9158
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009159 rettv->vval.v_number = get_sw_value(curbuf);
9160}
9161
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009162/*
9163 * "soundfold({word})" function
9164 */
9165 static void
9166f_soundfold(typval_T *argvars, typval_T *rettv)
9167{
9168 char_u *s;
9169
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009170 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
9171 return;
9172
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009173 rettv->v_type = VAR_STRING;
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009174 s = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009175#ifdef FEAT_SPELL
9176 rettv->vval.v_string = eval_soundfold(s);
9177#else
9178 rettv->vval.v_string = vim_strsave(s);
9179#endif
9180}
9181
9182/*
9183 * "spellbadword()" function
9184 */
9185 static void
9186f_spellbadword(typval_T *argvars UNUSED, typval_T *rettv)
9187{
9188 char_u *word = (char_u *)"";
9189 hlf_T attr = HLF_COUNT;
9190 int len = 0;
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009191#ifdef FEAT_SPELL
9192 int wo_spell_save = curwin->w_p_spell;
9193
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009194 if (in_vim9script() && check_for_opt_string_arg(argvars, 0) == FAIL)
9195 return;
9196
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009197 if (!curwin->w_p_spell)
9198 {
9199 did_set_spelllang(curwin);
9200 curwin->w_p_spell = TRUE;
9201 }
9202
9203 if (*curwin->w_s->b_p_spl == NUL)
9204 {
9205 emsg(_(e_no_spell));
9206 curwin->w_p_spell = wo_spell_save;
9207 return;
9208 }
9209#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009210
9211 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009212 {
9213#ifdef FEAT_SPELL
9214 curwin->w_p_spell = wo_spell_save;
9215#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009216 return;
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009217 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009218
9219#ifdef FEAT_SPELL
9220 if (argvars[0].v_type == VAR_UNKNOWN)
9221 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009222 // Find the start and length of the badly spelled word.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009223 len = spell_move_to(curwin, FORWARD, TRUE, TRUE, &attr);
9224 if (len != 0)
Bram Moolenaarb73fa622017-12-21 20:27:47 +01009225 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009226 word = ml_get_cursor();
Bram Moolenaarb73fa622017-12-21 20:27:47 +01009227 curwin->w_set_curswant = TRUE;
9228 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009229 }
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009230 else if (*curbuf->b_s.b_p_spl != NUL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009231 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009232 char_u *str = tv_get_string_chk(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009233 int capcol = -1;
9234
9235 if (str != NULL)
9236 {
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009237 // Check the argument for spelling.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009238 while (*str != NUL)
9239 {
9240 len = spell_check(curwin, str, &attr, &capcol, FALSE);
9241 if (attr != HLF_COUNT)
9242 {
9243 word = str;
9244 break;
9245 }
9246 str += len;
Bram Moolenaar66ab9162018-07-20 20:28:48 +02009247 capcol -= len;
Bram Moolenaar0c779e82019-08-09 17:01:02 +02009248 len = 0;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009249 }
9250 }
9251 }
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009252 curwin->w_p_spell = wo_spell_save;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009253#endif
9254
9255 list_append_string(rettv->vval.v_list, word, len);
9256 list_append_string(rettv->vval.v_list, (char_u *)(
9257 attr == HLF_SPB ? "bad" :
9258 attr == HLF_SPR ? "rare" :
9259 attr == HLF_SPL ? "local" :
9260 attr == HLF_SPC ? "caps" :
9261 ""), -1);
9262}
9263
9264/*
9265 * "spellsuggest()" function
9266 */
9267 static void
9268f_spellsuggest(typval_T *argvars UNUSED, typval_T *rettv)
9269{
9270#ifdef FEAT_SPELL
9271 char_u *str;
9272 int typeerr = FALSE;
9273 int maxcount;
9274 garray_T ga;
9275 int i;
9276 listitem_T *li;
9277 int need_capital = FALSE;
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009278 int wo_spell_save = curwin->w_p_spell;
9279
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009280 if (in_vim9script()
9281 && (check_for_string_arg(argvars, 0) == FAIL
9282 || check_for_opt_number_arg(argvars, 1) == FAIL
9283 || (argvars[1].v_type != VAR_UNKNOWN
9284 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
9285 return;
9286
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009287 if (!curwin->w_p_spell)
9288 {
9289 did_set_spelllang(curwin);
9290 curwin->w_p_spell = TRUE;
9291 }
9292
9293 if (*curwin->w_s->b_p_spl == NUL)
9294 {
9295 emsg(_(e_no_spell));
9296 curwin->w_p_spell = wo_spell_save;
9297 return;
9298 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009299#endif
9300
9301 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009302 {
9303#ifdef FEAT_SPELL
9304 curwin->w_p_spell = wo_spell_save;
9305#endif
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009306 return;
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009307 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009308
9309#ifdef FEAT_SPELL
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009310 if (*curwin->w_s->b_p_spl != NUL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009311 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009312 str = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009313 if (argvars[1].v_type != VAR_UNKNOWN)
9314 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009315 maxcount = (int)tv_get_number_chk(&argvars[1], &typeerr);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009316 if (maxcount <= 0)
9317 return;
9318 if (argvars[2].v_type != VAR_UNKNOWN)
9319 {
Bram Moolenaar7c27f332020-09-05 22:45:55 +02009320 need_capital = (int)tv_get_bool_chk(&argvars[2], &typeerr);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009321 if (typeerr)
9322 return;
9323 }
9324 }
9325 else
9326 maxcount = 25;
9327
9328 spell_suggest_list(&ga, str, maxcount, need_capital, FALSE);
9329
9330 for (i = 0; i < ga.ga_len; ++i)
9331 {
9332 str = ((char_u **)ga.ga_data)[i];
9333
9334 li = listitem_alloc();
9335 if (li == NULL)
9336 vim_free(str);
9337 else
9338 {
9339 li->li_tv.v_type = VAR_STRING;
9340 li->li_tv.v_lock = 0;
9341 li->li_tv.vval.v_string = str;
9342 list_append(rettv->vval.v_list, li);
9343 }
9344 }
9345 ga_clear(&ga);
9346 }
Bram Moolenaar152e79e2020-06-10 15:32:08 +02009347 curwin->w_p_spell = wo_spell_save;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009348#endif
9349}
9350
9351 static void
9352f_split(typval_T *argvars, typval_T *rettv)
9353{
9354 char_u *str;
9355 char_u *end;
9356 char_u *pat = NULL;
9357 regmatch_T regmatch;
9358 char_u patbuf[NUMBUFLEN];
9359 char_u *save_cpo;
9360 int match;
9361 colnr_T col = 0;
9362 int keepempty = FALSE;
9363 int typeerr = FALSE;
9364
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009365 if (in_vim9script()
9366 && (check_for_string_arg(argvars, 0) == FAIL
9367 || check_for_opt_string_arg(argvars, 1) == FAIL
9368 || (argvars[1].v_type != VAR_UNKNOWN
9369 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
9370 return;
9371
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009372 // Make 'cpoptions' empty, the 'l' flag should not be used here.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009373 save_cpo = p_cpo;
Bram Moolenaare5a2dc82021-01-03 19:52:05 +01009374 p_cpo = empty_option;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009375
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009376 str = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009377 if (argvars[1].v_type != VAR_UNKNOWN)
9378 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009379 pat = tv_get_string_buf_chk(&argvars[1], patbuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009380 if (pat == NULL)
9381 typeerr = TRUE;
9382 if (argvars[2].v_type != VAR_UNKNOWN)
Bram Moolenaar3986b942020-09-06 16:09:04 +02009383 keepempty = (int)tv_get_bool_chk(&argvars[2], &typeerr);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009384 }
9385 if (pat == NULL || *pat == NUL)
9386 pat = (char_u *)"[\\x01- ]\\+";
9387
9388 if (rettv_list_alloc(rettv) == FAIL)
Bram Moolenaar7d5e7442020-07-21 22:25:51 +02009389 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009390 if (typeerr)
Bram Moolenaar7d5e7442020-07-21 22:25:51 +02009391 goto theend;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009392
9393 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
9394 if (regmatch.regprog != NULL)
9395 {
9396 regmatch.rm_ic = FALSE;
9397 while (*str != NUL || keepempty)
9398 {
9399 if (*str == NUL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009400 match = FALSE; // empty item at the end
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009401 else
9402 match = vim_regexec_nl(&regmatch, str, col);
9403 if (match)
9404 end = regmatch.startp[0];
9405 else
9406 end = str + STRLEN(str);
9407 if (keepempty || end > str || (rettv->vval.v_list->lv_len > 0
9408 && *str != NUL && match && end < regmatch.endp[0]))
9409 {
9410 if (list_append_string(rettv->vval.v_list, str,
9411 (int)(end - str)) == FAIL)
9412 break;
9413 }
9414 if (!match)
9415 break;
Bram Moolenaar13505972019-01-24 15:04:48 +01009416 // Advance to just after the match.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009417 if (regmatch.endp[0] > str)
9418 col = 0;
9419 else
Bram Moolenaar13505972019-01-24 15:04:48 +01009420 // Don't get stuck at the same match.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009421 col = (*mb_ptr2len)(regmatch.endp[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009422 str = regmatch.endp[0];
9423 }
9424
9425 vim_regfree(regmatch.regprog);
9426 }
9427
Bram Moolenaar7d5e7442020-07-21 22:25:51 +02009428theend:
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009429 p_cpo = save_cpo;
9430}
9431
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009432/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009433 * "submatch()" function
9434 */
9435 static void
9436f_submatch(typval_T *argvars, typval_T *rettv)
9437{
9438 int error = FALSE;
9439 int no;
9440 int retList = 0;
9441
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009442 if (in_vim9script()
9443 && (check_for_number_arg(argvars, 0) == FAIL
9444 || check_for_opt_bool_arg(argvars, 1) == FAIL))
9445 return;
9446
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009447 no = (int)tv_get_number_chk(&argvars[0], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009448 if (error)
9449 return;
Bram Moolenaar989f5922016-08-21 15:26:54 +02009450 if (no < 0 || no >= NSUBEXP)
9451 {
Bram Moolenaarf9e3e092019-01-13 23:38:42 +01009452 semsg(_("E935: invalid submatch number: %d"), no);
Bram Moolenaar79518e22017-02-17 16:31:35 +01009453 return;
Bram Moolenaar989f5922016-08-21 15:26:54 +02009454 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009455 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaarad304702020-09-06 18:22:53 +02009456 retList = (int)tv_get_bool_chk(&argvars[1], &error);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009457 if (error)
9458 return;
9459
9460 if (retList == 0)
9461 {
9462 rettv->v_type = VAR_STRING;
9463 rettv->vval.v_string = reg_submatch(no);
9464 }
9465 else
9466 {
9467 rettv->v_type = VAR_LIST;
9468 rettv->vval.v_list = reg_submatch_list(no);
9469 }
9470}
9471
9472/*
9473 * "substitute()" function
9474 */
9475 static void
9476f_substitute(typval_T *argvars, typval_T *rettv)
9477{
9478 char_u patbuf[NUMBUFLEN];
9479 char_u subbuf[NUMBUFLEN];
9480 char_u flagsbuf[NUMBUFLEN];
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02009481 char_u *str;
9482 char_u *pat;
Bram Moolenaar72ab7292016-07-19 19:10:51 +02009483 char_u *sub = NULL;
9484 typval_T *expr = NULL;
Yegappan Lakshmanan5bca9062021-07-24 21:33:26 +02009485 char_u *flg;
9486
9487 if (in_vim9script()
9488 && (check_for_string_arg(argvars, 0) == FAIL
9489 || check_for_string_arg(argvars, 1) == FAIL
9490 || check_for_string_arg(argvars, 3) == FAIL))
9491 return;
9492
9493 str = tv_get_string_chk(&argvars[0]);
9494 pat = tv_get_string_buf_chk(&argvars[1], patbuf);
9495 flg = tv_get_string_buf_chk(&argvars[3], flagsbuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009496
Bram Moolenaar72ab7292016-07-19 19:10:51 +02009497 if (argvars[2].v_type == VAR_FUNC || argvars[2].v_type == VAR_PARTIAL)
9498 expr = &argvars[2];
9499 else
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009500 sub = tv_get_string_buf_chk(&argvars[2], subbuf);
Bram Moolenaar72ab7292016-07-19 19:10:51 +02009501
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009502 rettv->v_type = VAR_STRING;
Bram Moolenaar72ab7292016-07-19 19:10:51 +02009503 if (str == NULL || pat == NULL || (sub == NULL && expr == NULL)
9504 || flg == NULL)
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009505 rettv->vval.v_string = NULL;
9506 else
Bram Moolenaar72ab7292016-07-19 19:10:51 +02009507 rettv->vval.v_string = do_string_sub(str, pat, sub, expr, flg);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009508}
9509
9510/*
Bram Moolenaar00f123a2018-08-21 20:28:54 +02009511 * "swapinfo(swap_filename)" function
9512 */
9513 static void
9514f_swapinfo(typval_T *argvars, typval_T *rettv)
9515{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009516 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
9517 return;
9518
Bram Moolenaar00f123a2018-08-21 20:28:54 +02009519 if (rettv_dict_alloc(rettv) == OK)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009520 get_b0_dict(tv_get_string(argvars), rettv->vval.v_dict);
Bram Moolenaar00f123a2018-08-21 20:28:54 +02009521}
9522
9523/*
Bram Moolenaar110bd602018-09-16 18:46:59 +02009524 * "swapname(expr)" function
9525 */
9526 static void
9527f_swapname(typval_T *argvars, typval_T *rettv)
9528{
9529 buf_T *buf;
9530
9531 rettv->v_type = VAR_STRING;
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009532
9533 if (in_vim9script() && check_for_buffer_arg(argvars, 0) == FAIL)
9534 return;
9535
Bram Moolenaarf2d79fa2019-01-03 22:19:27 +01009536 buf = tv_get_buf(&argvars[0], FALSE);
Bram Moolenaar110bd602018-09-16 18:46:59 +02009537 if (buf == NULL || buf->b_ml.ml_mfp == NULL
9538 || buf->b_ml.ml_mfp->mf_fname == NULL)
9539 rettv->vval.v_string = NULL;
9540 else
9541 rettv->vval.v_string = vim_strsave(buf->b_ml.ml_mfp->mf_fname);
9542}
9543
9544/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009545 * "synID(lnum, col, trans)" function
9546 */
9547 static void
9548f_synID(typval_T *argvars UNUSED, typval_T *rettv)
9549{
9550 int id = 0;
9551#ifdef FEAT_SYN_HL
9552 linenr_T lnum;
9553 colnr_T col;
9554 int trans;
9555 int transerr = FALSE;
9556
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009557 if (in_vim9script()
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02009558 && (check_for_lnum_arg(argvars, 0) == FAIL
Yegappan Lakshmanan83494b42021-07-20 17:51:51 +02009559 || check_for_number_arg(argvars, 1) == FAIL
9560 || check_for_bool_arg(argvars, 2) == FAIL))
9561 return;
9562
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009563 lnum = tv_get_lnum(argvars); // -1 on type error
9564 col = (linenr_T)tv_get_number(&argvars[1]) - 1; // -1 on type error
Bram Moolenaarfcb6d702020-09-05 21:41:56 +02009565 trans = (int)tv_get_bool_chk(&argvars[2], &transerr);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009566
9567 if (!transerr && lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
9568 && col >= 0 && col < (long)STRLEN(ml_get(lnum)))
9569 id = syn_get_id(curwin, lnum, (colnr_T)col, trans, NULL, FALSE);
9570#endif
9571
9572 rettv->vval.v_number = id;
9573}
9574
9575/*
9576 * "synIDattr(id, what [, mode])" function
9577 */
9578 static void
9579f_synIDattr(typval_T *argvars UNUSED, typval_T *rettv)
9580{
9581 char_u *p = NULL;
9582#ifdef FEAT_SYN_HL
9583 int id;
9584 char_u *what;
9585 char_u *mode;
9586 char_u modebuf[NUMBUFLEN];
9587 int modec;
9588
Yegappan Lakshmanan7973de32021-07-24 16:16:15 +02009589 if (in_vim9script()
9590 && (check_for_number_arg(argvars, 0) == FAIL
9591 || (check_for_string_arg(argvars, 1) == FAIL
9592 || (argvars[1].v_type != VAR_UNKNOWN
9593 && check_for_opt_string_arg(argvars, 2) == FAIL))))
9594 return;
9595
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009596 id = (int)tv_get_number(&argvars[0]);
9597 what = tv_get_string(&argvars[1]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009598 if (argvars[2].v_type != VAR_UNKNOWN)
9599 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009600 mode = tv_get_string_buf(&argvars[2], modebuf);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009601 modec = TOLOWER_ASC(mode[0]);
9602 if (modec != 't' && modec != 'c' && modec != 'g')
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009603 modec = 0; // replace invalid with current
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009604 }
9605 else
9606 {
9607#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
9608 if (USE_24BIT)
9609 modec = 'g';
9610 else
9611#endif
9612 if (t_colors > 1)
Dominique Pelle4781d6f2021-05-18 21:46:31 +02009613 modec = 'c';
9614 else
9615 modec = 't';
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009616 }
9617
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009618 switch (TOLOWER_ASC(what[0]))
9619 {
9620 case 'b':
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009621 if (TOLOWER_ASC(what[1]) == 'g') // bg[#]
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009622 p = highlight_color(id, what, modec);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009623 else // bold
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009624 p = highlight_has_attr(id, HL_BOLD, modec);
9625 break;
9626
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009627 case 'f': // fg[#] or font
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009628 p = highlight_color(id, what, modec);
9629 break;
9630
9631 case 'i':
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009632 if (TOLOWER_ASC(what[1]) == 'n') // inverse
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009633 p = highlight_has_attr(id, HL_INVERSE, modec);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009634 else // italic
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009635 p = highlight_has_attr(id, HL_ITALIC, modec);
9636 break;
9637
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009638 case 'n': // name
Bram Moolenaarc96272e2017-03-26 13:50:09 +02009639 p = get_highlight_name_ext(NULL, id - 1, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009640 break;
9641
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009642 case 'r': // reverse
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009643 p = highlight_has_attr(id, HL_INVERSE, modec);
9644 break;
9645
9646 case 's':
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009647 if (TOLOWER_ASC(what[1]) == 'p') // sp[#]
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009648 p = highlight_color(id, what, modec);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009649 // strikeout
Bram Moolenaarcf4b00c2017-09-02 18:33:56 +02009650 else if (TOLOWER_ASC(what[1]) == 't' &&
9651 TOLOWER_ASC(what[2]) == 'r')
9652 p = highlight_has_attr(id, HL_STRIKETHROUGH, modec);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009653 else // standout
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009654 p = highlight_has_attr(id, HL_STANDOUT, modec);
9655 break;
9656
9657 case 'u':
Bram Moolenaar391c3622020-09-29 20:59:17 +02009658 if (TOLOWER_ASC(what[1]) == 'l') // ul
9659 p = highlight_color(id, what, modec);
9660 else if (STRLEN(what) <= 5 || TOLOWER_ASC(what[5]) != 'c')
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009661 // underline
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009662 p = highlight_has_attr(id, HL_UNDERLINE, modec);
9663 else
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009664 // undercurl
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009665 p = highlight_has_attr(id, HL_UNDERCURL, modec);
9666 break;
9667 }
9668
9669 if (p != NULL)
9670 p = vim_strsave(p);
9671#endif
9672 rettv->v_type = VAR_STRING;
9673 rettv->vval.v_string = p;
9674}
9675
9676/*
9677 * "synIDtrans(id)" function
9678 */
9679 static void
9680f_synIDtrans(typval_T *argvars UNUSED, typval_T *rettv)
9681{
9682 int id;
9683
9684#ifdef FEAT_SYN_HL
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009685 if (in_vim9script() && check_for_number_arg(argvars, 0) == FAIL)
9686 return;
9687
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009688 id = (int)tv_get_number(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009689
9690 if (id > 0)
9691 id = syn_get_final_id(id);
9692 else
9693#endif
9694 id = 0;
9695
9696 rettv->vval.v_number = id;
9697}
9698
9699/*
9700 * "synconcealed(lnum, col)" function
9701 */
9702 static void
9703f_synconcealed(typval_T *argvars UNUSED, typval_T *rettv)
9704{
9705#if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
9706 linenr_T lnum;
9707 colnr_T col;
9708 int syntax_flags = 0;
9709 int cchar;
9710 int matchid = 0;
9711 char_u str[NUMBUFLEN];
9712#endif
9713
Bram Moolenaar45cf6e92017-04-30 20:25:19 +02009714 rettv_list_set(rettv, NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009715
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02009716 if (in_vim9script()
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02009717 && (check_for_lnum_arg(argvars, 0) == FAIL
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02009718 || check_for_number_arg(argvars, 1) == FAIL))
9719 return;
9720
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009721#if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009722 lnum = tv_get_lnum(argvars); // -1 on type error
9723 col = (colnr_T)tv_get_number(&argvars[1]) - 1; // -1 on type error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009724
Bram Moolenaara80faa82020-04-12 19:37:17 +02009725 CLEAR_FIELD(str);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009726
9727 if (rettv_list_alloc(rettv) != FAIL)
9728 {
9729 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
9730 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
9731 && curwin->w_p_cole > 0)
9732 {
9733 (void)syn_get_id(curwin, lnum, col, FALSE, NULL, FALSE);
9734 syntax_flags = get_syntax_info(&matchid);
9735
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009736 // get the conceal character
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009737 if ((syntax_flags & HL_CONCEAL) && curwin->w_p_cole < 3)
9738 {
9739 cchar = syn_get_sub_char();
Bram Moolenaar4d785892017-06-22 22:00:50 +02009740 if (cchar == NUL && curwin->w_p_cole == 1)
Bram Moolenaareed9d462021-02-15 20:38:25 +01009741 cchar = (curwin->w_lcs_chars.conceal == NUL) ? ' '
9742 : curwin->w_lcs_chars.conceal;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009743 if (cchar != NUL)
9744 {
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009745 if (has_mbyte)
9746 (*mb_char2bytes)(cchar, str);
9747 else
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009748 str[0] = cchar;
9749 }
9750 }
9751 }
9752
9753 list_append_number(rettv->vval.v_list,
9754 (syntax_flags & HL_CONCEAL) != 0);
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009755 // -1 to auto-determine strlen
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009756 list_append_string(rettv->vval.v_list, str, -1);
9757 list_append_number(rettv->vval.v_list, matchid);
9758 }
9759#endif
9760}
9761
9762/*
9763 * "synstack(lnum, col)" function
9764 */
9765 static void
9766f_synstack(typval_T *argvars UNUSED, typval_T *rettv)
9767{
9768#ifdef FEAT_SYN_HL
9769 linenr_T lnum;
9770 colnr_T col;
9771 int i;
9772 int id;
9773#endif
9774
Bram Moolenaar45cf6e92017-04-30 20:25:19 +02009775 rettv_list_set(rettv, NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009776
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02009777 if (in_vim9script()
Yegappan Lakshmanancd917202021-07-21 19:09:09 +02009778 && (check_for_lnum_arg(argvars, 0) == FAIL
Yegappan Lakshmanana9a7c0c2021-07-17 19:11:07 +02009779 || check_for_number_arg(argvars, 1) == FAIL))
9780 return;
9781
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009782#ifdef FEAT_SYN_HL
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009783 lnum = tv_get_lnum(argvars); // -1 on type error
9784 col = (colnr_T)tv_get_number(&argvars[1]) - 1; // -1 on type error
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009785
9786 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
9787 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
9788 && rettv_list_alloc(rettv) != FAIL)
9789 {
9790 (void)syn_get_id(curwin, lnum, (colnr_T)col, FALSE, NULL, TRUE);
9791 for (i = 0; ; ++i)
9792 {
9793 id = syn_get_stack_item(i);
9794 if (id < 0)
9795 break;
9796 if (list_append_number(rettv->vval.v_list, id) == FAIL)
9797 break;
9798 }
9799 }
9800#endif
9801}
9802
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009803/*
9804 * "tabpagebuflist()" function
9805 */
9806 static void
9807f_tabpagebuflist(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
9808{
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009809 tabpage_T *tp;
9810 win_T *wp = NULL;
9811
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009812 if (in_vim9script() && check_for_opt_number_arg(argvars, 0) == FAIL)
9813 return;
9814
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009815 if (argvars[0].v_type == VAR_UNKNOWN)
9816 wp = firstwin;
9817 else
9818 {
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009819 tp = find_tabpage((int)tv_get_number(&argvars[0]));
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009820 if (tp != NULL)
9821 wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
9822 }
9823 if (wp != NULL && rettv_list_alloc(rettv) != FAIL)
9824 {
9825 for (; wp != NULL; wp = wp->w_next)
9826 if (list_append_number(rettv->vval.v_list,
9827 wp->w_buffer->b_fnum) == FAIL)
9828 break;
9829 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009830}
9831
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009832/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009833 * "tagfiles()" function
9834 */
9835 static void
9836f_tagfiles(typval_T *argvars UNUSED, typval_T *rettv)
9837{
9838 char_u *fname;
9839 tagname_T tn;
9840 int first;
9841
9842 if (rettv_list_alloc(rettv) == FAIL)
9843 return;
9844 fname = alloc(MAXPATHL);
9845 if (fname == NULL)
9846 return;
9847
9848 for (first = TRUE; ; first = FALSE)
9849 if (get_tagfname(&tn, first, fname) == FAIL
9850 || list_append_string(rettv->vval.v_list, fname, -1) == FAIL)
9851 break;
9852 tagname_free(&tn);
9853 vim_free(fname);
9854}
9855
9856/*
9857 * "taglist()" function
9858 */
9859 static void
9860f_taglist(typval_T *argvars, typval_T *rettv)
9861{
Bram Moolenaarc6aafba2017-03-21 17:09:10 +01009862 char_u *fname = NULL;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009863 char_u *tag_pattern;
9864
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009865 if (in_vim9script()
9866 && (check_for_string_arg(argvars, 0) == FAIL
9867 || check_for_opt_string_arg(argvars, 1) == FAIL))
9868 return;
9869
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009870 tag_pattern = tv_get_string(&argvars[0]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009871
9872 rettv->vval.v_number = FALSE;
9873 if (*tag_pattern == NUL)
9874 return;
9875
Bram Moolenaarc6aafba2017-03-21 17:09:10 +01009876 if (argvars[1].v_type != VAR_UNKNOWN)
Bram Moolenaard155d7a2018-12-21 16:04:21 +01009877 fname = tv_get_string(&argvars[1]);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009878 if (rettv_list_alloc(rettv) == OK)
Bram Moolenaarc6aafba2017-03-21 17:09:10 +01009879 (void)get_tags(rettv->vval.v_list, tag_pattern, fname);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009880}
9881
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009882/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009883 * "type(expr)" function
9884 */
9885 static void
9886f_type(typval_T *argvars, typval_T *rettv)
9887{
9888 int n = -1;
9889
9890 switch (argvars[0].v_type)
9891 {
Bram Moolenaar9b4a15d2020-01-11 16:05:23 +01009892 case VAR_NUMBER: n = VAR_TYPE_NUMBER; break;
9893 case VAR_STRING: n = VAR_TYPE_STRING; break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009894 case VAR_PARTIAL:
Bram Moolenaar9b4a15d2020-01-11 16:05:23 +01009895 case VAR_FUNC: n = VAR_TYPE_FUNC; break;
9896 case VAR_LIST: n = VAR_TYPE_LIST; break;
9897 case VAR_DICT: n = VAR_TYPE_DICT; break;
9898 case VAR_FLOAT: n = VAR_TYPE_FLOAT; break;
9899 case VAR_BOOL: n = VAR_TYPE_BOOL; break;
9900 case VAR_SPECIAL: n = VAR_TYPE_NONE; break;
Bram Moolenaarf562e722016-07-19 17:25:25 +02009901 case VAR_JOB: n = VAR_TYPE_JOB; break;
9902 case VAR_CHANNEL: n = VAR_TYPE_CHANNEL; break;
Bram Moolenaar6e5ea8d2019-01-12 22:47:31 +01009903 case VAR_BLOB: n = VAR_TYPE_BLOB; break;
Bram Moolenaarf18332f2021-05-07 17:55:55 +02009904 case VAR_INSTR: n = VAR_TYPE_INSTR; break;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009905 case VAR_UNKNOWN:
Bram Moolenaar4c683752020-04-05 21:38:23 +02009906 case VAR_ANY:
Bram Moolenaar8a7d6542020-01-26 15:56:19 +01009907 case VAR_VOID:
Bram Moolenaardd589232020-02-29 17:38:12 +01009908 internal_error_no_abort("f_type(UNKNOWN)");
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009909 n = -1;
9910 break;
9911 }
9912 rettv->vval.v_number = n;
9913}
9914
9915/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009916 * "virtcol(string)" function
9917 */
9918 static void
9919f_virtcol(typval_T *argvars, typval_T *rettv)
9920{
9921 colnr_T vcol = 0;
9922 pos_T *fp;
9923 int fnum = curbuf->b_fnum;
Bram Moolenaarb3d33d82020-01-15 20:36:55 +01009924 int len;
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009925
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009926 if (in_vim9script()
9927 && check_for_string_or_list_arg(argvars, 0) == FAIL)
9928 return;
9929
Bram Moolenaar6f02b002021-01-10 20:22:54 +01009930 fp = var2fpos(&argvars[0], FALSE, &fnum, FALSE);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009931 if (fp != NULL && fp->lnum <= curbuf->b_ml.ml_line_count
9932 && fnum == curbuf->b_fnum)
9933 {
Bram Moolenaarb3d33d82020-01-15 20:36:55 +01009934 // Limit the column to a valid value, getvvcol() doesn't check.
9935 if (fp->col < 0)
9936 fp->col = 0;
9937 else
9938 {
9939 len = (int)STRLEN(ml_get(fp->lnum));
9940 if (fp->col > len)
9941 fp->col = len;
9942 }
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009943 getvvcol(curwin, fp, NULL, NULL, &vcol);
9944 ++vcol;
9945 }
9946
9947 rettv->vval.v_number = vcol;
9948}
9949
9950/*
9951 * "visualmode()" function
9952 */
9953 static void
9954f_visualmode(typval_T *argvars, typval_T *rettv)
9955{
9956 char_u str[2];
9957
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +02009958 if (in_vim9script() && check_for_opt_bool_arg(argvars, 0) == FAIL)
9959 return;
9960
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009961 rettv->v_type = VAR_STRING;
9962 str[0] = curbuf->b_visual_mode_eval;
9963 str[1] = NUL;
9964 rettv->vval.v_string = vim_strsave(str);
9965
Bram Moolenaar5d18efe2019-12-01 21:11:22 +01009966 // A non-zero number or non-empty string argument: reset mode.
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009967 if (non_zero_arg(&argvars[0]))
9968 curbuf->b_visual_mode_eval = NUL;
9969}
9970
9971/*
9972 * "wildmenumode()" function
9973 */
9974 static void
9975f_wildmenumode(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
9976{
9977#ifdef FEAT_WILDMENU
9978 if (wild_menu_showing)
9979 rettv->vval.v_number = 1;
9980#endif
9981}
9982
9983/*
Bram Moolenaar0c1e3742019-12-27 13:49:24 +01009984 * "windowsversion()" function
9985 */
9986 static void
9987f_windowsversion(typval_T *argvars UNUSED, typval_T *rettv UNUSED)
9988{
9989 rettv->v_type = VAR_STRING;
9990 rettv->vval.v_string = vim_strsave((char_u *)windowsVersion);
9991}
9992
9993/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +02009994 * "wordcount()" function
9995 */
9996 static void
9997f_wordcount(typval_T *argvars UNUSED, typval_T *rettv)
9998{
9999 if (rettv_dict_alloc(rettv) == FAIL)
10000 return;
10001 cursor_pos_info(rettv->vval.v_dict);
10002}
10003
10004/*
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020010005 * "xor(expr, expr)" function
10006 */
10007 static void
10008f_xor(typval_T *argvars, typval_T *rettv)
10009{
Yegappan Lakshmanan4490ec42021-07-27 22:00:44 +020010010 if (in_vim9script()
10011 && (check_for_number_arg(argvars, 0) == FAIL
10012 || check_for_number_arg(argvars, 1) == FAIL))
10013 return;
10014
Bram Moolenaard155d7a2018-12-21 16:04:21 +010010015 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
10016 ^ tv_get_number_chk(&argvars[1], NULL);
Bram Moolenaar73dad1e2016-07-17 22:13:49 +020010017}
10018
Bram Moolenaar5d18efe2019-12-01 21:11:22 +010010019#endif // FEAT_EVAL